Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

1) вычислить и вывести на экран значение функции y=cos x, где x изменяется от 0 до 1 с шагом 0,2.
ПОМОГИТЕ ПОЖАЛУЙСТА

Ответ оставил Гость

Паскаль.

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.