
Gholbizel
6 год назад
Составить программу в TURBO PASCAL 7.0, в которой с помощью оператора REPEAT необходимо протабулировать функцию y = cos(x/3+0.3) в диапазоне параметра от 0 до 6 с шагом 0.2
Буду очень благодарен за решение,спасибо за внимание.
ОТВЕТЫ

Veededav
Jul 10, 2019
Var x: Real;
begin
x:=-0.2;
while xlt;=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 xlt;=6 do begin
x:=x+0.2;
Writeln(X=,x:2:1, Y=,cos(x/3+0.3):5:2);
end;
end.
212
Смежные вопросы: