9.8. Программы циклических алгоритмов

Задача. Написать программу вычисления и вывода таблицы значений функции y=cos(x). Переменная хизменяется в интервале отx₁=0 доx_k= 2 с шагомdx= 0,2.

Пример 18.

В данной программе используется оператор цикла с параметрами.

PROGRAM PR18;

Var

x,y,dx,x1,xk:real;

i, n :integer;

begin

{циклический алгоритм}

writeln (‘ввести начальное – x1, конечное – xk, шаг – dx’);

read (x1,xk,dx);

n:=trunc((xk-x1)/dx+1);

x:=x1;

{оператор цикла с параметрами}

for i:=1 to n do

begin

y:=cos(x);

Writeln (‘x= ’, x:8:5, ‘y= ’, y:8:5);

x:=x+dx;

End; {конец оператора цикла с параметрами}End.