Оператор цикла с параметром используется в тех случаях, когда некоторое однообразное действие надо повторить определенное количество раз. Особенно, если это количество достаточно велико. Бывают же такие задачи, когда необходимо, например, вычислить сумму каких-либо величин, каждая из которых вычисляется по формуле. Ведь если непосредственно вычислять сумму 1 + 2 + 3 + ... + 1000, то программа разрастется до невообразимых масштабов.
Оператор цикла с параметром в народе ещё называют "оператор For", и в Pascal он бывает двух типов (второй тип смотрите ниже). Первый записывается так:
for i := N1 to N2 do
<ОПЕРАТОР>
Всё, что находится между for и do, называется заголовком цикла, после do – телом цикла. Переменная i зазывается параметром цикла и имеет порядковый тип (целые числа, логический тип, символы, перечислимый и диапазонный тип). Слова for, to и do – это служебные слова Pascal, которые использовать в своих программах для обозначения переменных нельзя. Индекс i, которым обозначаются номера действий в операторе цикла, изменяется от меньшего N1 к большему N2 (N1 ≤ N2). Первый номер N1 по значению не должен превышать второй N2, иначе цикл не запустится.
Program zadacha;
var a1,a26, norm1,norm26,S, d: real;
n:integer;
begin
a1:=42;
d:=3;
n:=26;
norm1:=round(a1*100/67);//найдем дневную норму и округлим ее
a26:= a1+d*(n-1);//бригада выполнит в 26-й день, 26-й член арифметической прогрессии, где разность=3
norm26:= norm1*n;//найдем норму за 26 рабочих дней
S:= (a1+a26)*26/2;//сумма 26-сти членов арифметической прогрессии, все изделия за 26 дней
//вывод на экран промежуточных вычислений не обязателен
writeln ('норма за один день = ',norm1);
writeln ('изделий в 26-й день = ',a26);
writeln ('норма за 26 дней = ',norm26);
writeln ('всего изделий за 26 дней = ',S);
if S >= norm26 then
writeln ('бригада выполнит месячную норму')
else
writeln ('бригада не выполнит месячную норму');
end.
//В вашем условии m - это норма за месяц, т.е. за 26 рабочих дней
