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

@Дарюшка · Регистрация: 08.02.2012

Author24 — интернет-сервис помощи студентам

S=K² – (2K)² + (3K)² - … + (-1)^n-1 * (KN)²
Заранее спасибо.

@Alteisen · 27.05.2012, 19:57

Pascal

program f6;
var s,k,n,t,p,d: integer;
begin
write('введите k ');read(k);
write('введите n ');read(n);
for t:=1 to n do begin           {Здесь t это n при каждом шаге}
p:=-1;                           {Нужно для определения знака перед 1}
for d:=1 to t do p:=p *(-1);     {Определение знака перед 1  в  ((-1)^(n-1))}
s:=s + p*(k*t)*(k*t);            {Сумма накапливающаяся с каждым шагом}
end;
writeln('сумма = ',s);
end.

Паскаль не умеет возводить в степень, поэтому приходиться перемножать. Безобидное a^5, в паскале превращается в а*а*а*а*а.
P.S. Здесь n=N, поэтому на этом внимания не заострял.

@Дарюшка · 27.05.2012, 20:12 **[ТС]**

Alteisen, спасибо)
выручили))

@morgan57 · 27.05.2012, 22:20

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

Паскаль не умеет возводить в степень, поэтому приходиться перемножать. Безобидное a^5, в паскале превращается в а*а*а*а*а.
P.S. Здесь n=N, поэтому на этом внимания не заострял.

Не по теме:

да, из-за этого нагромождения на первый взгляд безобидные задачи могут превратится в гигантский нубо-код

@Дарюшка 1 / 1 / 0 Регистрация: 08.02.2012 Сообщений: 106
		1
	Вычислить сумму 27.05.2012, 17:08. Показов 516. Ответов 3 Метки нет (Все метки) S=K² – (2K)² + (3K)² - … + (-1)^n-1 * (KN)² Заранее спасибо. 0

@Дарюшка 1 / 1 / 0 Регистрация: 08.02.2012 Сообщений: 106
	27.05.2012, 20:12 [ТС]	3
	Alteisen, спасибо) выручили)) 0

@morgan57 43 / 43 / 33 Регистрация: 05.12.2011 Сообщений: 201
	27.05.2012, 22:20	4
	Сообщение от Alteisen Паскаль не умеет возводить в степень, поэтому приходиться перемножать. Безобидное a^5, в паскале превращается в ааааа. P.S. Здесь n=N, поэтому на этом внимания не заострял. Не по теме: да, из-за этого нагромождения на первый взгляд безобидные задачи могут превратится в гигантский нубо-код 0