Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.25;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
15-1149150033
RA
2006-06-01 12:20
2006.06.25
Перезд в столицу? (Киев)


2-1149417399
Whom
2006-06-04 14:36
2006.06.25
canvas


15-1148989599
RomanH
2006-05-30 15:46
2006.06.25
SQL сервер TransBase


15-1149067188
TUser
2006-05-31 13:19
2006.06.25
Студенты и промт :)


2-1149596976
mfender
2006-06-06 16:29
2006.06.25
TWebBrowser: найти и удалить элемент