Mail.RuПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискВсе проекты

помогите пожалуйста с паскалям сейчас сежу на паре, пожалуйста помогите

Ученик (192), на голосовании 6 лет назад
Задание 5
Вычислить сумму членов бесконечного ряда


с точностью до члена ряда, меньшего заданного ξ для |z| ≤ 1.
Голосование за лучший ответ
вот и сЕди с паскалЯм, если по русски то писать не умеешь, то на паскале уж подавно
На "паре" нужно сЕдеть либо подготовленным либо с полным кошельком денег.
А если нет ни того ни другого, то и нечего сЕдеть там штаны протирать.

> Бойчук.

Молодец, возьми с полки пирожок.
var z,x,e:real;
i:integer;

function fact(a:integer):real;
var f:real;
i:integer;
begin
f:=1;
for i:=1 to a do f:=f*i;
fact:=f;
end;

begin
writeln ('Введите z:');
readln(z);
writeln ('Укажите точность e=');
readln(e);
x:=0;
i:=2;
while (exp(i*ln(z+2))/fact(i)>e) do
begin
inc(i);
x:=x+exp(i*ln(z+2))/fact(i);
end;
writeln('x=',x:7:3);
end.

---

Если надо проверить правильность ввода z, то уже сам допишешь.
Ну вот и потрать время на чтение учебника, если слушать не хочешь.
P.S. Назар, такие ряды считают рекуррентно, а не в лоб...
Похожие вопросы
Также спрашивают