| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Простите что не в тему! [D7, XP]

Pascal-men ©   (2006-05-31 18:44:00) 

Привет, помогите плиз решить задачку на Паскале. Вот суть: нужно ввести 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 19:28:00) [1]

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

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

---

Pascal-men   (2006-05-31 19:11:00) [2]

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

---

ANB   (2006-05-31 19:08:00) [3]

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

---

StriderMan   (2006-05-31 19:00: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;


---

Pascal-men   (2006-05-31 18:54:00) [5]

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

---

StriderMan   (2006-05-31 18:53:00) [6]


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;


---

ANB   (2006-05-31 18:48:00) [7]

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. Книжки читать надо.

---

Наверх