تبليغات
تبلیغات در دانشجو کلوب محک :: موسسه خيريه حمايت از کودکان مبتلا به سرطان ::
جستجوگر انجمن.براي جستجوي مطالب دانشجو کلوپ مي توانيد استفاده کنيد 
برای بروز رسانی تاپیک کلیک کنید
 
امتیاز موضوع:
  • 2 رأی - میانگین امتیازات: 5
  • 1
  • 2
  • 3
  • 4
  • 5

بدست آوردن فاکتوریل اعداد بزرگ - پاسکال

نویسنده پیام
  • navid
    آفلاین
  • مدیر بازنشسته
    **
  • ارسال‌ها: 1,344
  • تاریخ عضویت: مرداد ۱۳۹۰
  • اعتبار: 85
  • تحصیلات:لیسانس
  • علایق:برنامه نویسی
  • محل سکونت:Istanbul, Turkey
  • سپاس ها 1152
    سپاس شده 3031 بار در 1139 ارسال
  • امتیاز کاربر: 27,279$
  • حالت من:حالت من
ارسال: #1
بدست آوردن فاکتوریل اعداد بزرگ - پاسکال
تا حالا دقت کردید که نمیتونید تو پاسکال از فاکتوریل عدد 14 بیشتر واسه نوع integer بدست آورید
این برنامه که از آرایه واسه بدست آوردن فاکتوریل استفاده میکنه، میتونه تا عدد 600 هم حساب کنه که یک پروژه ی دانشجویی ساده هست

program factoriel;
uses crt;
const m=10000;
type arr= array[1..m] of integer;
var a: arr;
n,s,temp,i,j,k: longint;
begin
clrscr;
write('enter a number: ');
readln(n);
temp:=0;
a[1]:=1;
for i:=2 to n do
begin
temp:=0;
for j:=1 to m do
begin
s:=(a[j]*i)+temp;
if s<10 then
begin
a[j]:=s;
temp:=0;
end
else
begin
temp:= s div 10;
a[j]:= s mod 10;
end;
end;
end;
for i:=m downto 1 do
if a[i]>0 then
begin
k:=i;
break;
end;
for i:=k downto 1 do
write(a[i]);
readln;
end.

نویسنده: navid

مطالب مشابه ...










تن آدمی شریف است به جیب آدمیت و همین لباس زیباست نشان آدمیت !

(آخرین ویرایش در این ارسال: ۴-۷-۱۳۹۰ ۱۰:۰۷ عصر، توسط navid.)
۴-۷-۱۳۹۰ ۱۰:۰۵ عصر
جستجو یافتن همه ارسال های کاربر اهدا امتیازاهدای امتیاز به کاربر پاسخ پاسخ با نقل قول
 سپاس شده توسط ♔ αϻἰг κнаη ♔ ، senior engineer

برای بروز رسانی تاپیک کلیک کنید


مطالب مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  بازی جنگ فضایی-پاسکال Macsi - space fighting game. ♔ αϻἰг κнаη ♔ 0 421 ۲-۳-۱۳۹۱ ۱۱:۴۳ عصر
آخرین ارسال: ♔ αϻἰг κнаη ♔
  استخر شنا و تعداد افراد ان-پاسکال ♔ αϻἰг κнаη ♔ 0 259 ۲-۳-۱۳۹۱ ۱۱:۴۰ عصر
آخرین ارسال: ♔ αϻἰг κнаη ♔
  برنامه تقویم -پاسکال ♔ αϻἰг κнаη ♔ 0 442 ۲-۳-۱۳۹۱ ۱۱:۳۲ عصر
آخرین ارسال: ♔ αϻἰг κнаη ♔
  سورس کد گرفتن یک عدد و نمایش عامل های اول آن به زبان پاسکال navid 2 859 ۲۶-۸-۱۳۹۰ ۰۸:۵۸ عصر
آخرین ارسال: navid
  ضرب دو ماتریس - پاسکال navid 0 1,864 ۴-۷-۱۳۹۰ ۱۰:۴۱ عصر
آخرین ارسال: navid
  ترانهاده یک ماتریس - پاسکال navid 0 1,382 ۴-۷-۱۳۹۰ ۱۰:۴۰ عصر
آخرین ارسال: navid
  تعویض قطر اصلی و فرعی در یک ماتریس - پاسکال navid 0 792 ۴-۷-۱۳۹۰ ۱۰:۳۸ عصر
آخرین ارسال: navid
  جمع ردیف های یک ماتریس - پاسکال navid 0 356 ۴-۷-۱۳۹۰ ۱۰:۳۴ عصر
آخرین ارسال: navid
  جمع دو ماتریس - پاسکال navid 0 770 ۴-۷-۱۳۹۰ ۱۰:۳۰ عصر
آخرین ارسال: navid
  مرتب کردن دو آرایه غیر مرتب در یک آرایه - پاسکال navid 0 519 ۴-۷-۱۳۹۰ ۱۰:۲۷ عصر
آخرین ارسال: navid

پرش به انجمن:

کاربرانِ درحال بازدید از این موضوع: 1 مهمان