Оператор цикла применяется при выполнении расчетов или других действий, повторяющихся определенное количество раз. Оператор имеет вид:
For i:= N1 To N2 Do <оператор>;
либо
For i:= N1 DownTo N2 Do <оператор>;
Здесь i – параметр цикла (переменная целого типа),
N1, N2 - начальное и конечное значения параметра цикла i.
N1, N2 могут быть константами, переменными или выражениями порядкового типа.
Выполнение оператора For в первом варианте (То) происходит по следующей схеме:
1. Параметру цикла присваивается значение N1.
2. Значение параметра цикла сравнивается со значением N2. Если параметр цикла меньше или равен этому значению, то выполняется тело цикла (<оператор>), в противном случае выполнение цикла заканчивается.
3. Значение параметра циклаувеличивается на единицу; происходит возврат к пункту 2.
Слово DownTo буквально можно перевести как «вниз до». В таком случае параметр цикла в пункте 2 изменяется по убыванию, т. е. при каждом повторении цикла параметр изменяет свое значение на предыдущее.
|
|
Пример. Требуется вычислить сумму целых чисел от М до N путем прямого суммирования. Здесь Л/и N— целые числа. Задачу можно сформулировать так:
Алгоритм и программа решения этой задачи с использованиемцикла с параметром имеют следующий вид:
ProgramSummering; VarI,M,N,Summa: Integer; Begin Write('M='); ReadLn(M); Write('N='); ReadLn(N); Summa:=0; ForI:=M To N Do Summa:=Summa+I; WriteLn('Сумма равна', Summa) End. |