for Цикл со счётчиком for
Общая форма записи for i := A to B do begin... end; for i := A downto B do begin... end; i - управляющая переменная или переменная цикла, А - начальное значение переменной цикла, В - конечное значение переменной цикла.
Примеры for i := 1 to ListSize do begin readln (Number): S := S +Number; end; for Dlina := 15 downto 1 do writeln (Sqr(Dlina)); for x := 1 to 10 do for y := 1 to 10 do writeln (x,*,y,=,x*y); for Range := Number+1 to Multi*3 do writeln (Sqrt(Range));
for Правила использования цикла for Тип управляющей переменной не должен быть real. Переменная цикла не должна изменяться какими-либо операторами внутри цикла. К ней можно обращаться и использовать в вычислениях, но нельзя присваивать новое значение. Присваивания могут выполняться только механизмом самого цикла.
for Пример некорректного использования цикла for for i := 1 to 10 do begin... i := i-1;... end; for j := 1 to 0 do writeln (j);
for Вложенные циклы for При завершении внутреннего цикла управляющая переменная внешнего цикла увеличивается. Повторение этих действий будет продолжаться до завершения внешнего цикла. Приведенный ниже вложенный цикл печатает пары чисел, начиная от (1,1), (1,2),... и кончая (10,10): for х:= 1 to 10 do for у:= 1 to 10 do writeln ((,х,,,y,), );
Решение задач Составить программу, которая распечатывает на экране таблицу умножения. Найти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3. В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала m ч., а каждая следующая на 10 мин. больше, чем предыдущая. Сколько часов проработала вся бригада?