Вычислить сумму

diagen_62 · 24.04.2011, 22:51

вычислить сумму с помощью while и repeat
var n,k:integer;
x,s,s1:real;
n:=0;
s:=0;
while n<101 do
begin
s:=s+exp(n*Ln(x));
inc(n);
end;
s1:=0;
k:=0;
repeat
s1:=s1+exp(k*Ln(x));
inc(k);
until k>99

не пойму почему не работает!исправьте, что не так пожалуйста

Vladimir_S · 25.04.2011, 09:38

Цитата:

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

не пойму почему не работает!исправьте, что не так пожалуйста

Потому что это не программа, а огрызок программы. Написанный в принципе (если не считать одной мелочи с границей цикла Repeat) правильно. А программа - это примерно так:

Код:

var
 n,k:integer;
 x,s,s1:real;
BEGIN
 Write('X= ');
 ReadLn(x);
 n:=0;
 s:=0;
 while n<101 do
  begin
   s:=s+exp(n*Ln(x));
   inc(n);
  end;
 s1:=0;
 k:=0;
 repeat
  s1:=s1+exp(k*Ln(x));
  inc(k);
 until k>100;
 WriteLn('S= ',S:16:3);
 WriteLn('S1= ',S1:15:3);
 ReadLn;
END.

24.04.2011, 22:51	#1 (permalink)
diagen_62 Member Регистрация: 19.03.2011 Сообщений: 30 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вычислить сумму вычислить сумму с помощью while и repeat var n,k:integer; x,s,s1:real; n:=0; s:=0; while n<101 do begin s:=s+exp(nLn(x)); inc(n); end; s1:=0; k:=0; repeat s1:=s1+exp(kLn(x)); inc(k); until k>99 не пойму почему не работает!исправьте, что не так пожалуйста Миниатюры

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