درخواست برنامه فاكتوريل به زبان پاسکال ؟ کمک فوری

[bhsbhs]

از مهندسین محترم خواهش میکنم در نوشتن برنامه زیر کمکم کنند
برنامه ای بنویسید که فاکتوریل عبارت زیر را بدست بیاورد !s=1+2+3!+....+n

[Borna66]

از مهندسین محترم خواهش میکنم در نوشتن برنامه زیر کمکم کنند
برنامه ای بنویسید که فاکتوریل عبارت زیر را بدست بیاورد !s=1+2+3!+....+n

با سلام
اين هم قطعه كد درخواستي شما دوست عزيز

 procedure Cal_Facts(n1,n2:integer;var fact1:integer;var fact2: Integer);
var i:integer;
begin
for i:=1 to n1 do fact1:= fact1*i
for i:=1 to n2 do fact2:= fact2*i
end;

n1,n2 بعنوان ورودی هستند و جوابها در fact1,fact2 ذخیره می شوند .

روزگار خوش

[Borna66]

با سلام
اين هم سبكي ديگر از فاكتوريل به زبان پاسكال

program factorial;
uses crt;
var
f:real;
n,i:integer;
begin
clrscr;
f:=1;
writeln ('insert n');
readln (n);
for i:=1 to n do
f:=i*f;
writeln ('n!=',f);
readln;
end.

[bhsbhs]

از دوستان گرامی تشکر میکنم خیلی لطف دارید ، عملیات جمع نمیخواد یعنی برنامه ای که زحمت کشیدید حل کامل عبارت روبرو میباشد !s=1+2+3!+....+n

[bhsbhs]

دوستان ببخشید صورت مسئله اینطور بود ممنون میشم برنامه کامل باشد
برنامه ای بنویسید که n را از ورودی دریافت کرده و عبارت زیر را بدست بیاورد !s=1+2+3!+....+n