Снаступающим. в турбо паскале решена, но выводит результат - вопрос №10466410 от tanamakagonova 14.05.2023 01:47

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. найти ошибку

tanamakagonova · Answer

===== Оформление по канонам 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.

Снаступающим. в турбо паскале решена, но выводит результат неверно, а именно не правильно высчитывае