уравнение паскль.

[maks1234567]

Помогите пожалуйста составить уравнение....
...а также поскажите как потом перейти к while и repeat...
....очень прошу ....последняя надежда остаться в универе...
-(1+x)^2+((1+x)^4)/2-((1+x)^6)/3+...+((1+x)^20)/10;
x= -0.15

[maks1234567]

помогите пожалуйста.......

[Zer0]

Не флудил бы, помогли бы быстрее
1) Нужно задать точность epsilon
2) Первый элемент принимаешь за -(1+x)^2
3) В цикле на каждом последующем шаге предыдущее подсчитанное умножаешь на -(1+x)^2*(k-1)/k (k - номер текущего шага) и прибавляешь к общей сумме
4) Продолжаешь до тех пор, пока текущий элемент не будет меньше epsilon

P.S. флудераст блин(
UPD: Пардоньте, Вадим говорит правильно, нужно убрать первый пункт, а последний заменить на "до тех пор, пока текущий шаг не будет равен 10"

[Вадим Мошев]

Не, Андрей, тут эпсилон вообще не нужен. Это же ряд конечный, последний элемент которого равен ((1+x)^20)/10

[maks1234567]

да-да -да тут конечный ряд.....так что к и эпсилон не пойдут......

[maks1234567]

ну напишите....да я и писатть не умею...огромная благодарность...плиз...

[Alex11223]

А зачем вам тогда оставаться в нем?

[maks1234567]

кх.....ну если бы я бы учился на программиста другое дело.. а то автомеханик, автосервис, машиностроение....со всеми остальными предметами порядок....

[maks1234567]

не нуууу ребят...киньте что нибудь похожее.....урод зачет не ставит из-за одной этой фигни..

[Zer0]

a1:=-sqr(1+x);
sum:=a1;
i:=1;
repeat
 inc(i);
 a1:=a1*(-1)*sqr(x+1)*(i-1)/i;
 sum:=sum+a1;
until i=10;
writeln (sum:0:2);

Если и после этого не поймешь, полетишь в игнор :D