|
| Program summa;
Var S: Real;
i, n: Integer;
x: array[1..100] of real;
begin
write(‘n=’);readln(n);
for i:=1 to n do begin
write (‘x[‘,i:2, ‘]=’);
readln (x[i]); end;
S:=0.0;
for i:=1 to n do S:=S+x[i];
writeln (‘сумма=’, S);
End.
|
Заметим, что составной оператор, повторно выполняемый при помощи оператора for, не должен содержать операторов, присваивающих значения управляющей переменной. Если необходимо завершить повторное выполнение составного оператора прежде, чем управляющая переменная примет конечное значение, то можно воспользоваться оператором goto. В таких случаях лучше воспользоваться оператором while или repeat.
После завершения выполнения операторов for значение управляющей переменной равно конечному значению, если же это не так, то значит цикл не был выполнен вообще. В этих случаях никакие значения управляющей переменной вообще не присваивались.
