Простите что не в тему!

← →
Pascal-men (2006-05-31 18:44) [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)

← →
ANB © (2006-05-31 18:48) [1]

n := 5;
X := 15;
S := 0;
P := X;
for i := 1 to n do begin
P := P * X;
S := S + (i + 1 + P);
end;

PS. Книжки читать надо.

← →
StriderMan © (2006-05-31 18:53) [2]

function task(x: double; n: integer): double; var i: integer; begin Result := 0; for i := 2 to n + 1 do Result := Result + (i + power(x, i)); end;

← →
Pascal-men (2006-05-31 18:54) [3]

Спасибо щас проверю!

← →
StriderMan © (2006-05-31 19:00) [4]

ой пардон ошибся в том что в четные коэфф. прибавляются а нечетеные умножаются

function task(x: double; n: integer): double; var i: integer; begin Result := 0; for i := 2 to n + 1 do if (i div 2) <> (i / 2) then //нечетное Result := Result + (i * power(x, i)) else Result := Result + (i + power(x, i)) end;

← →
ANB © (2006-05-31 19:08) [5]

Я тоже ошибся.

← →
Pascal-men (2006-05-31 19:11) [6]

>Я тоже ошибся.
Где? Я проверил вроде всё работает!?

> Pascal-men (31.05.06 19:11) [6]

Дык у меня всегда сложение. А надо четные умножать. Впрочем можешь и сам подправить.

Простите что не в тему! Найти похожие ветки