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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Разработка циклической программы с неизвестным количеством повторений (http://www.tehnari.ru/f41/t86565/)

beda	19.03.2013 21:49

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

Вложений: 1

Общий член ряда
Вложение 127424
точность а=0,01

Валерий

19.03.2013 22:02

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

beda	19.03.2013 22:06

Цитата:

Сообщение от Валерий (Сообщение 883539)

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

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

Валерий

19.03.2013 22:08

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

beda	19.03.2013 22:09

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

Валерий

19.03.2013 22:10

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

beda	19.03.2013 22:12

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

Валерий

19.03.2013 22:27

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

interacia

19.03.2013 23:16

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

beda	19.03.2013 23:23

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

Vladimir_S

20.03.2013 10:04

Цитата:

Сообщение от beda (Сообщение 883591)

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

Ладно, :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	20.03.2013 14:23

Цитата:

Сообщение от Vladimir_S (Сообщение 883690)

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.

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

Часовой пояс GMT +4, время: 19:37.