Снаступающим. в турбо паскале решена, но выводит результат неверно, а именно не правильно высчитывает левую границу интервала. косяк вот тут 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.
найти ошибку
===== Оформление по канонам 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.