Конспект урока Циклы с параметром в языке Pascal

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

Цикл с заданным числом повторений, по-другому его называют цикл-ДЛЯ, программируется в языке Паскаль с помощью оператора for.

Синтаксис цикла с параметром:

for <параметр>:=<начальное_значение> to <конечное _значение> do <оператор>

Здесь <параметр> - переменная целого типа(как правило, integer)

<начальное_значение> и <конечное _значение> - переменные того же типа, что и параметр, вычисляемые перед началом цикла.

<оператор> - простой или составной оператор - тело цикла.

При выполнении этого оператора после каждого выполнения тела цикла происходит увеличение на единицу параметра цикла; условием выхода из цикла является превышения параметром конечного значения.

Если оператор составной, то его заключают в операторные скобки begin … end.

Пример :

for i:=1 to n do

begin

<оператор 1>;

<оператор 2>;

end.

Цикл работает следующим образом:

1. Параметр принимает начальное значение

2. Выполняется оператор.

3. Параметр увеличивается на единицу.

4. Если параметр больше конечного значения, то происходит выход из цикла, если меньше, то повторяется пункт 2.

Замечание! Внутри цикла параметр изменять нельзя! Изменять шаг нельзя!

Задача 1.

Определите, что будет напечатано в результате работы следующей программы.

Составить программу, вычисляющую сумму чисел от 1 до 100. Т. е. S=1+2+3+4+5+...+100.

program sum;

var i, S: integer;

begin

S:=0;

for i :=1 to 100 do S:=S+i;

writeln ('сумма чисел от 1 до 100 равна ', S);

end.

Задача 2.

Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5.

Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется положительное число, делящееся на цело на 5.

Количество чисел не превышает 1000. Введенные числа по абсолютной величине не превышают 30000.

Программа должна вывести одно число - минимальное положительное число, кратное 5.

program zadacha2;

var a,i,n,min: integer;

begin

readln(n);

min:=30001;

for i:=1 to n do

begin

readln(a);

if (a0) then min:=a

end;

writeln(min);

end.