var
X, A. Y, C, D, H: real;
begin
writeln (‘Введите С, D, H, A’); вывод на экран текста «Введите С, D, H, A»
readln (C, D, H, A); ввод исходных данных
x:= C; присвоение переменной х первоначального значения С
while x <= D do условие условного оператора
begin
if x > A then y:= x*cos(A*x) вычисление у при условии, что х > A
else y:=sin(x) + A*a; вычисление у при условии, что х< = A
writeln (‘y= ‘,y:10:2, ‘ x= ‘,x:10:2); вывод на экран значений у и х
x:= x + H увеличение х на шаг
end; переход на начало оператора while
end. конец программы
Оператор цикла с последующим условием имеет следующую форму записи:
repeat
тело цикла (выполняемые операторы)
until логическое выражение.
Данный оператор организует выполнение цикла, состоящего из любого числа операторов, с неизвестным заранее числом повторений. Тело цикла выполняется хотя бы один раз. Выход из цикла осуществляется при истинном значении некоторого логического выражения. Истинность логического выражения проверяется в конце каждой итерации.
Пример. Вычислить значения функции Y при изменении X от С до D с шагом Н.