Вычислить сумму .
Решение:
program pr3;
var s:real;
i:integer;
begin
s:=0;
for i:=1 to 20 do
s:=s+sqr(i);
writeln(‘s=’,s:8:2)
end.
При программировании циклов с параметром необходимо соблюдать следующие правила организации цикла:
1) параметр цикла, начальное и конечное значения должны быть одинакового типа, их тип может быть любым скалярным типом, кроме вещественного;
2) запрещено изменять внутри (в теле) цикла значения параметра цикла;
3) запрещено входить в цикл с помощью оператора GOTO, минуя заголовок оператора цикла FOR, т.к. значения параметра цикла будут не определены;
4) цикл не выполняется вообще, если начальное значение больше чем конечное при изменении параметра цикла на +1, или, если начальное значение меньше чем конечное при изменении цикла на –1;
5) по окончании выполнения цикла значение переменной параметра цикла не определено и не может быть непосредственно использовано в дальнейших вычислениях;
6) после служебного слова DO может стоять только один оператор; если в цикле нужно выполнить группу операторов, то их заключают в операторные скобки BEGIN – END;
7) из составного оператора, входящего в оператор цикла, можно выйти до окончания этого цикла с помощью оператора GOTO, тогда последнее значение параметра цикла сохраняется.