задачка на pascal. решение формулы, помогите решить... Опции

[MrOverseer]

Знак суммы. (Сверху r, снизу i=1.) *(i+3)! (! - факториал)

Желательно программу написать по-проще, т.к. я с паскалем на ВЫ.
ПОЖАЛУЙСТА помогите!!!!!!

[Client]

Ты можешь формулу записать в ворде и сделать скрин, а то не понятно. Может как и в этой теме Работа над суммами и факториалами ?

Сообщение отредактировано: Client - 6.01.2008 10:20

[MrOverseer]

Вот. Для этой формулы мне нада написать прогу

[Client]

uses crt;
var
   n,r,i:word;
   s,fac:real;
begin
     clrscr;
     writeln(' Vvedite n: ');
     read(n);
     fac:=6;
     s:=0;
     for i:=0 to n do begin
         fac:=fac*(i+4);
         s:=s+fac;
         writeln(' Fac= ',fac:0:1,'  S= ',s:0:1)
     end;
     readkey
end.

Так?

[volvo]

Так?

Нет... Вот так:

     for i:=1 to n do begin { <--- От 1, а не от 0... }
       fac:=fac*(i+3); { <--- 3 а не 4 }

иначе ты получишь слишком большую сумму... Проверь на n = 1, например...

Сообщение отредактировано: volvo - 6.01.2008 12:34

[Client]

Да, тока тогда еще

fac:=fac*(i+3) // а не 4;

[MrOverseer]

ОТ ВСЕЙ ДУШИ БЛАГОДАРЮ!!!
тока подскажите что за команда word?

[ammaximus]

word - тип данных. Переменная такого типа принимает значения в диапазоне 0..65536, только положительные

[MrOverseer]

СТОП! а почему это факториал равен шести???

[Client]

у тебя же (i+3)!, при i=0 факториал равен 3!=1*2*3=6