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.