Форум: "Прочее";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

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

---

← →
SergP ©   (2006-06-01 04:29) [4]

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


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


---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c