Вычислить сумму - Паскаль, Turbo Pascal, PascalABC.NET

diagen_62 · 24.04.2011, 20:14

помогите вычислить сумму с помощью while и repeat:

MyLastHit · 24.04.2011, 20:25

Код:

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

24.04.2011, 20:25	#2
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	Код: `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` Ненавижу быть как все, но люблю, чтобы все были как я. Последний раз редактировалось MyLastHit; 24.04.2011 в 21:00.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вычислить сумму	Balda1111	Паскаль, Turbo Pascal, PascalABC.NET	2	12.04.2011 13:36
Вычислить сумму чисел.	ilnar51	Паскаль, Turbo Pascal, PascalABC.NET	6	13.03.2011 14:29
вычислить сумму	ольгару	Помощь студентам	0	28.01.2011 15:04
Вычислить сумму квадратов	kuholor	Помощь студентам	4	20.10.2010 16:42
вычислить сумму ряда	ANRJumper	Помощь студентам	5	26.05.2009 14:45