Я не пойму, как это сотворить?

Sergei47 · 19.01.2010, 15:13

Язык Паскаль..

я ваще даже не представляю как это сделать

Vladimir_S · 19.01.2010, 17:08

Цитата:

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

Язык Паскаль..
Вложение 6943 я ваще даже не представляю как это сделать

Странная какая-то формула, ну да ладно - сотворить элементарно, например так:

Код:

VAR
 S,a:REAL;
 k,N:INTEGER;

BEGIN
 Write('N= ');
 ReadLn(N);
 a:=1;
 S:=1;
 For k:=1 to N do
  begin
   a:=-a/k*(k+1)/k;
   S:=S+a;
  end;
 WriteLn('S= ',S);
 ReadLn;
END.

Sergei47 · 21.01.2010, 19:28

ой спасибо!!

19.01.2010, 15:13	#1 (permalink)
Sergei47 Member Регистрация: 05.10.2009 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я не пойму, как это сотворить? Язык Паскаль.. я ваще даже не представляю как это сделать

21.01.2010, 19:28	#3 (permalink)
Sergei47 Member Регистрация: 05.10.2009 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ой спасибо!!

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