Вычисление синуса и косинуса — Pascal(Паскаль)

program sc;

const a=pi/4;
      b=pi/2;
      h=pi/60;
var x,fx:real;
begin x:=a;
      writeln('  x       y');
      while x<=b do
      begin fx:=sin(x)+0.5*cos(x);
      writeln('f(',x:4:2,')=',fx:4:2);
      x:=x+h;
      end;
end.

Leave a Comment