Операторы циклов. Цикл по простой переменной.

 

    

Описание: Эта программа показывает, как можно организовать циклы в Паскаль-программе. Программа выводит матрицу с возрастающими на 1 элементами.

Текст программы:

 

program Program3; 

uses crt;

var

x, y: real; {Переменные дробного типа}

I, n: integer; {Целочисленные переменные}

begin {Начало исполнительной части программы}

 

     clrscr; {Очистка экрана}

     write ('Введите количество элементов: ');

     readln(n);

{Операторы циклов for и while – циклы с предусловием}

      for i := 1 to n do

                  begin

                             writeln(‘Цикл for do: ’,i);

                  end;

 

      i := 0;

      while i <= n do

      begin

                  i := i + 1;

writeln(‘Цикл while do: ’,i);

      end;

 

{Оператор цикла repeat – циклы с постусловием}

      i := 0;

      repeat

i := i + 1;

writeln(‘Цикл repeat: ’,i);

      until i>n; {Другая запись условия!}

     writeln (‘Нажмите любую клавишу…');

     readkey; {Ожидание нажатия любой клавиши перед закрытием программы}

 

end. {Окончание программы – перед End точку с запятой ; можно не ставить}

 

'Загрузить текст программы'

 

Примечания:

• Цикл for лучше всего подходит для организации циклов по целочисленным переменным (например, массивы).
• Для цикла repeat … until составной оператор begin … end не требуется.
• Для всех циклов, кроме for необходимо предварительно инициализировать индекс цикла (i := 0;).
• Чтобы организовать цикл for с убывающими элементами, нужно указать вместо to downto: for i := n downto 1 do.
• Для организации цикла в программе могут также использоваться операторы безусловного перехода goto и метки, но это значительно менее удобно, чем использование операторов цикла.

 

Попробуйте поэкспериментировать с текстом программы для лучшего понимания:

• Измените условия в циклах.
• Измените величину n (от 0 до 5).

 

Посмотрите на изменения в выполнении программы после каждого изменения её текста.

'К списку тем'     'Версия для печати'

 {Примечания:

1. Если Вы не смогли найти ответы на вопросы о программе, то Вы можете связаться с авторами. Для этого посетите страничку "Обратная связь".                                

                                                                              

2. Размещать приведённые материалы с сайта проекта "Begin ... end!" (www.tolks.narod.ru) на других сайтах (как полностью, так и частично) можно только с согласия авторов проекта и только с обязательным указанием адреса проекта "Begin ... end!" (www.tolks.narod.ru).}