var
X, A. Y, C, D, H: real;
begin
writeln (‘Введите С, D, H, A’);
readln (C,D,H,A);
x:= C;
repeat
if x > A then y:= x*cos(A*x)
else y:= sin(x) + A*a;
writeln (‘y= ‘,y:10:2, ‘ x= ‘,x:10:2);
x:=x + H
until x<=D
end.
Оператор цикла с параметром организует выполнение одного оператора заранее известное число раз.
Существует два варианта оператора цикла с параметром.
- for i:= a1 to a2 do
begin
тело цикла
end;
- fo r i:= a1 downto a2 do
begin
тело цикла
end,
где: i - параметр цикла, являющийся переменной порядкового типа; а1 - выражение, определяющее начальное значение параметра цикла; а2 - выражение, определяющее конечное значение параметра цикла.
Цикл действует следующим образом. Вначале вычисляются и запоминаются начальное и конечное значения параметра цикла. Далее параметру i цикла присваивается начальное значение. Затем значение параметра i цикла сравнивается со значением а2. Пока параметр цикла остается меньше или равен конечному значению а2 (в первом варианте) и больше или равен конечному значению а2 (во втором варианте) выполняется в очередной раз операторы из тела цикла. В противном случае происходит выход из цикла.
|
|
После выхода из цикла параметр цикла становится неопределенным.
Пример. Вычислить значения функции Y при изменении X от С до D с шагом 1.
Программа.
var
X, A. Y, C, D: real;
begin
writeln (‘Введите С, D, H, A’);
readln (C,D,H,A);
for i:=C to D do begin if x > A then y:= x*cos(A*x) else y:=sin(x) + A*a;
writeln (‘y= ‘,y:10:2, ‘ x= ‘,x:10:2);
x:=x + H;end;
readln
end.