Разработка циклической программы с неизвестным количеством повторений

[beda]

Разработка циклической программы с неизвестным количеством повторений

Общий член ряда

точность а=0,01

 

[Валерий]

Кросспостинг у нас не приветствуется вплоть до серьёзного наказания.

 

[beda]

Кросспостинг у нас не приветствуется вплоть до серьёзного наказания.

А что это такое Кросспостинг??

 

[Валерий]

Дублирование одной и той же темы.

 

[beda]

я может ошибся,сейчас всё исправлю!

 

[Валерий]

Уже исправлено.

 

[beda]

извините!темы перепутал,а можно узнать долго ли отвечают на тему которую я создал?

 

[Валерий]

Как только появятся специалисты, и как только у этих специалистов появится желание что-то за кого-то решать.

 

[interacia]

Поскольку язык неуказан то в общем виде
Может быть так
1. Объявляете переменную Сумматор вещественного типа.
2. организуете цикл с условием while ( сюда вписываете условие выхода из цикла ) в вашем случае это скорей всего (-2/5)^N>0.01
3. в теле цикла вычисляете (-2/5)^N и суммируете с переменной сумматором.
4. По окончанию цикла выводите значение переменной.

 

[beda]

это Turbo Pascal? interacia Помоги пожалуйсто оформить это в паскале

 

[Vladimir_S]

Помоги пожалуйсто оформить это в паскале

Ладно, :dobriy:

Var
 S,a:Real;
Begin
 a:=1;
 S:=a;
 Repeat
  a:=a*(-0.4);
  S:=S+a;
 Until Abs(a)<0.01;
 Writeln('S= ',S:0:5);
 Readln
End.

 

[beda]

Var
S,a:Real;
Begin
a:=1;
S:=a;
Repeat
a:=a*(-0.4);
S:=S+a;
Until Abs(a)<0.01;
Writeln('S= ',S:0:5);
Readln
End.

спасибо большое