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

Ответ

Автор - BobbyFresnel

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

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.