МАТЕМАТИЧЕСКИЕ ОСНОВЫ ИНФОРМАТИКИ
Суббота, 15.12.2018, 06:07
ГлавнаяРегистрацияВход Приветствую Вас Гость | RSS

Меню сайта

Категории раздела
Линейный алгоритм [2]
Условный оператор if [3]
Оператор выбора [1]
Операторы цикла [2]
Целочисленное деление div и mod [2]
Генератор случайных чисел [1]
Практика [5]
Это интересно [2]
ЗАДАНИЕ 3 [1]

Наш опрос
Какой язык программирования Вы изучаете
Всего ответов: 954

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа


Главная » Файлы » ВИДЫ АЛГОРИТМОВ » Операторы цикла

Циклы на паскаль
09.12.2012, 22:40

Циклы на паскаль

В языке Паскаль существует  три  различных  оператора  с  помощью  которых  можно  запрограммировать  повторяющиеся  фрагменты  программы (три  оператора  цикла):

- счетный  цикл  FOR;

- цикл  WHILE  с  предусловием;

- цикл  REPEAT...UNTIL  c  постусловием.


Задача:

Найти сумму всех натуральных чисел от 1 до n. 

Рассмотрим примеры использования циклов:

                                  I цикл FOR .

Переменная внутри цикла изменяется автоматически от k до n  (n>k)  с шагом 1:

Формат записи цикла:  for i:=k to n do

или

от n до k  (n>k)  с шагом  -1:

Формат записи цикла:  for i:=n dawnto k do

Если в цикле должны выполняться несколько операторов, то используем операторные скобки:    begin …. end;

Цикл FOR удобно использовать тогда, когда точно известно количество повторений.

     var i,n,s:integer;

Begin

     writeln(' введите  натуральное n');  readln(n);

     s:=0;

     for i:=1  to n do

                   s:=s+i;

     writeln('сумма  от  1  до',n,' = ',s);

End.

 

В данном цикле переменная i автоматически изменяется от 1 до n  с шагом 1. Поэтому к переменной s прибавляется i вначале равная 1, потом 2, потом 3, и т.д. до n, соответственно переменная s принимает значении 1, 3, 6, 10, 15 .


II цикл  WHILE

     var i,n,s:integer;

Begin

   writeln('введите натуральное n');  readln(n);

   s:=0;    i: =1;

   while i<=n do

        begin

           s:=s+i;

           i:=i+1;

        end;

   writeln('сумма от 1 до',n,'=',s);

End.

Цикл WHILE будет выполняться до тех пор, пока выполняется условие i<=n.  Причем переменную i изменяем внутри цикла.


III  цикл  REPEAT

      var i,n,s:integer;

Begin

    writeln(' введите  натуральное n');  readln(n);

    s:=0; i:=1;

    repeat

          begin

               s:=s+i;

               i:=i+1;

          end;

    until i>n;

    writeln('сумма от 1 до',n,' = ',s);

End.

Цикл  REPEAT  . . . UNTIL  будет выполняться до тех пор, пока не выполниться  условие i>n.

Категория: Операторы цикла | Добавил: i_elf
Просмотров: 1817 | Загрузок: 0 | Комментарии: 1 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Поиск

Друзья сайта
  • Творческий учитель
  • Сайт ООАКМР
  • Школьный сайт
  • Информатика учебник
  • МОИ

  • Copyright MyCorp © 2018 Сделать бесплатный сайт с uCoz