Предмет: Информатика,
автор: newboy1
Составить программу в TURBO PASCAL 7.0, в которой с помощью оператора REPEAT необходимо протабулировать функцию y=cos(x/3+0.3) в диапазоне параметра от 0 до 6 с шагом 0.2
Буду очень благодарен за решение,спасибо за внимание.
Ответы
Автор ответа:
0
Var x: Real;
begin
x:=-0.2;
while x<=6 do begin
x:=x+0.2;
Writeln('X=',x:2:1,' Y=',cos(x/3+0.3):5:2);
end;
end.
begin
x:=-0.2;
while x<=6 do begin
x:=x+0.2;
Writeln('X=',x:2:1,' Y=',cos(x/3+0.3):5:2);
end;
end.
Интересные вопросы
Предмет: Литература,
автор: arlertruuuruu
Предмет: Литература,
автор: Аноним
Предмет: Другие предметы,
автор: QQQadadsw
Предмет: Математика,
автор: Polinka10z
Предмет: Алгебра,
автор: irinaivlieva7