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

Vladimir_S · 20.03.2013, 10:04

Цитата:

Сообщение от 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.

beda · 20.03.2013, 14:23

Цитата:

Сообщение от Vladimir_S

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.

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

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070