Здравствуйте, с наступающим. Задача в турбо паскале решена, но выводит результат неверно, а именно не правильно высчитывает левую границу интервала. Косяк вот тут 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.
Помогите найти ошибку
Сам код
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.
Помогите найти ошибку
More Questions From This User See All
Answers & Comments
===== Оформление по канонам 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.