помогите написать уравнение Опции

[maks123]

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

Добавлено через 11 мин.
помогите ....срочно....завтра последний день сдачи

[Krjuger]

Ну это сугубо ваши проблемы,что вы в последний день вдруг спохватились.Для начала и While и repeat-это два разных цикла.Во вторых,в вашей формуле неизвестно где расставлены закрывающие скобочки,гадать тут врятли будут.И наконец,чтобы показать,что вы пытались самостоятельно решить задачу,покажите то,что у вас получилось.

Сообщение отредактировано: Krjuger - 16.01.2012 13:40

[IUnknown]

Во вторых,в вашей формуле неизвестно где расставлены закрывающие скобочки,гадать тут врятли будут

А что не так с закрывающими скобками? Они вроде все на местах.

Помогите пожалуйста составить уравнение....

Уравнение чего? Задача состоит в нахождении суммы ряда, так? Вот и надо заниматься нахождением суммы, а не составлением какого-то непонятного уравнения. А уж как находить сумму ряда (пошагово) - об этом на форуме не раз и не десять, и даже не 100 раз было написано. Что, даже поиском воспользоваться времени нет? Ну, тогда у меня тоже нет времени еще раз объяснять это.

[maks123]

искать на форуме??...

Добавлено через 5 мин.
подскажите где искать..пожалуйста....или ссылку дайте-в крайний случай(((

[maks123]

var
n:integer;
summ,an,x:real;
begin
writeln('n') ;
write('x');
readln(n);
an:=(exp(n*ln(-1))*exp(2*n*ln(1+x)))/n;
x:=0.15;
summ:=0;
for n:=1 to 10 do
begin
summ:=summ+an;
writeln('summ,an');
end;
write('an',summ:6:4);
readln;
end.

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