Question

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

Answer 1

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.