Question

1) вычислить и вывести на экран значение функции y=cos x, где x изменяется от 0 до 1 с шагом 0,2.

ПОМОГИТЕ ПОЖАЛУЙСТА

Answer 1

Паскаль.

Program pr;
uses crt;

Var x,y:real;

Begin
x:=0;  

While x<=1 do
Begin
y:=cos(x);
Writeln('x=', x:6:2,  '  y=',  y:6:2);
x:=x+0.2;
end;
readln;
end.