Помогите решить плиз!

← →
Pascal-men (2006-05-31 18:48) [0]

Привет, помогите плиз решить задачку на Паскале. Вот суть: нужно ввести 2 числа x и n и дальше нужно найти S по формуле (2+x*x)+(3*x*x*x)+ пребовлять нужно столько раз, скольким равен n. Если n=5 то, должно быть так (2+x*x)+(3*x*x*x)+ (4+x*x*x*x)+(5*x*x*x*x*x)+(6+x*x*x*x*x*x)

← →
Rouse_ © (2006-05-31 19:01) [1]

Result := 0; for I := 2 to N + 1 do Inc(Result, I + IntPower(X, I));

← →
Rouse_ © (2006-05-31 19:06) [2]

А, не... там чередуется :)

var AResult: Extended; I, X, N: Integer; begin X := 3; N := 6; AResult := 0; for I := 2 to N + 1 do if (I mod 2) = 0 then AResult := AResult + (I + IntPower(X, I)) else AResult := AResult + (I * IntPower(X, I)); ShowMessage(FloatToStr(AResult));

← →
vidiv © (2006-06-01 03:13) [3]

> А, не... там чередуется :)

Я бы не заметил... :) Респект!

И можно в [2] не вычислять каждый раз IntPower(X, I)
а делать что-то типа:

... f:=x; for I := 2 to N + 1 do begin f:=f*x; ... end;

Помогите решить плиз! Найти похожие ветки