Главная » Статьи » Лекции » Программирование на Turbo Pascal

Цикл с заданным числом повторений

В большинстве задач, встречающихся на практике, необходимо производить многократное выполнение некоторого действия. Такой многократно повторяющийся участок вычислительного процесса называется циклом.

Известны три типа циклических структур:

  • цикл  с предусловием (цикл ПОКА),
  • цикл с постусловием (цикл ДО),
  • цикл с параметром (цикл ДЛЯ);

Если заранее известно количество необходимых повторений, то цикл называется арифметическим. Если же количество повторений заранее неизвестно, то говорят об итерационном цикле.

В итерационных циклах производится проверка некоторого условия, и в зависимости от результата этой проверки происходит либо выход из цикла, либо повторение выполнения тела цикла. Если проверка условия производится перед выполнением блока операторов, то такой итерационный цикл называется циклом с предусловием (цикл "пока"), а если проверка производится после выполнения тела цикла, то это цикл с постусловием (цикл "до").

Особенность этих циклов заключается в том, что тело цикла с постусловием всегда выполняется хотя бы один раз, а тело цикла с предусловием может ни разу не выполниться. В зависимости от решаемой задачи необходимо использовать тот или иной вид итерационных циклов.

Арифметические циклы


Синтаксис:

for переменная:= значение 1 to значение 2 do оператор

или

for переменная:= значение 1 downto значение 2 do оператор

Оператор for вызывает оператор, находящийся после слова do, по одному разу для каждого значения в диапазоне от значения 1 до значения 2.

Переменная цикла, начальное и конечное значения должны иметь порядковый тип. Со словом to, значение переменной цикла увеличивается на 1 при каждой итерации цикла. Со словом downto, значение переменной цикла уменьшается на 1 при каждой итерации цикла. Не следует самостоятельно изменять значение управляющей переменной внутри цикла.

Как и в случае использования оператора условного прехода, следует помнить, что синтаксис языка допускает запись только одного оператора после ключевого слова do, поэтому, если вы хотите в цикле выполнить группу операторов, обязательно надо объединить их в составной оператор (окаймить операторными скобками begin ... end). В противном случае будет сделана логическая ошибка программы.

Пример 1. Квадраты чисел от 2-х до 10-и.

for x:=2 to 10 do WriteLn(x*x);

Пример 2. Латинский алфавит.

for ch:='A' to 'Z' do Writeln(ch);

Пример 3. Использование цикла с downto.

for i:=10 downto 1 do WriteLn(i);

Пример 4. Использование составного оператора. Вычислить значение функции y=2x+3 на [1;10]

for x:=1 to 10 do begin
     y:=2*x+3;
     WriteLn('f(',x,')=',y);
end;

Какое значение будет принимать переменная у после выполнения фрагментов программы.

Образец:

Var х, у: integer;

begin

у:=0;

 for х:=1 to 7 do

         у:=у+1;

writeln (у);

end.

 

Решение:

При х=1 у=0+1=1

При х=2 у=1+1=2

При х=3 у=2+1=3

При х=4 у=3+1=4

При х=5 у=4+1=5

При х=6  у=5+1=6

При х=7 у=6+1=7

Ответ: у=7

 

 

Категория: Программирование на Turbo Pascal | Добавил: Admin (30.01.2016)
Просмотров: 631 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map