1) вычислить и вывести на экран значение функции y=cos x, где x изменяется от 0 до 1 с шагом 0,2. ПОМОГИТЕ ПОЖАЛУЙСТА
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.
Не нашли ответ?
Похожие вопросы