Распечатать 6 значений :X,Y Y=3*cosx/3 Где x изменяется от -3πс шагом 0.8 составить...

Question

Распечатать 6 значений :X,Y
Y=3*cosx/3
Где x изменяется от -3πс шагом 0.8 составить программу(pascal)

Answer 1

Var
  x:real;
  i:integer;
begin
  x:=-3*pi;
  for i:=1 to 6 do begin
    Writeln(x:9:6,3*cos(x/3):16:6);
    x:=x+0.8
    end
end.

Результат
-9.424778       -3.000000
-8.624778       -2.893964
-7.824778       -2.583352
-7.024778       -2.090120
-6.224778       -1.449137
-5.424778       -0.705713