Question

Снаступающим. в турбо паскале решена, но выводит результат неверно, а именно не правильно высчитывает левую границу интервала. косяк вот тут writeln('y = ',y: 5: -2,' s = ',s: 5: 2);
сам код
var s,y: real;
i: integer;
begin
s: =0;
for i: =1 to 20 do
begin
y: =cos((-pi/40)*i);
s: =s+(pi/20)*y;
end;
writeln('y = ',y: 5: -2,' s = ',s: 5: 2);
end.
найти ошибку

Answer 1

===== Оформление по канонам Turbo Pascal =====

program Turbo;

uses Crt;

var

 s, y: real;

 i, n: integer;

begin

 ClrScr;

 s := 0;

 n := 20;

 for i := 0 to n - 1 do

   s := s + Cos(-Pi / 2 + Pi * i / (n - 1));

 s := s * Pi / n;

 WriteLn('s = ', s:6:3);

 ReadKey;

end.