Цитата:
Сообщение от Anastasia12
это моя программа
|
Ну что же, прекрасно!
Первый блин, как говорится, комом - но ничего страшного.
Ошибок довольно много.
Разберем.
1. Константу p вводить не надо: в Паскале есть стандартная константа (функция) Pi.
2. Формула вычисления членов последовательности (t) должна зависеть не от n, а от i.
3. Сама формула записана неверно.
Ну вот, с учетом сказанного, отлаженный вариант Вашей программы:
Код:
Var
s, f, t: Real;
i, n: Word;
Begin
Write('n=');
ReadLn(n);
WriteLn;
WriteLn('----------------');
WriteLn(' i s');
WriteLn('----------------');
t:=1.0;
s:=1.0;
f:=Pi/4;
For i:=1 To n Do
Begin
t:=-t*(2*i-1)/(2*i+1);
s:=s+t;
WriteLn(i:3, ' ', s:0:6);
End;
WriteLn('----------------');
WriteLn;
WriteLn(' f= ',f:0:6);
Readln;
End.
Успехов! Обращайтесь, если что.