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

Вниз

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

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

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

---

← →
ANB ©   (2006-05-31 19:28) [7]

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

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.016 c