مشاهده پست های بی پاسخ | مشاهده موضوعهای فعال تاریخ امروز یکشنبه 19 نوامبر, 2017 6:16 am



پاسخ به موضوع  [ یک پست ] 
 برنامه مثلث خیام پاسکال 
نویسنده پیام
آواتار کاربر

عضو: دوشنبه 18 فوریه, 2008 1:41 pm
پست ها: 383
پست برنامه مثلث خیام پاسکال
شاید همه شما این برنامه رو نوشته باشید. ولی شاید در ایجاد فرمت خروجی (به شکل مثلث) با مشکل روبرو شدید. برنامه حاضر با استفاده از پروسیجرهای غیرمعمول ، سطرها و جاهای خالی مابین اعداد واقع بر مثلث را ایجاد می کند. یک برنامه کاملا آموزشی برای آنها که به خوانایی برنامه اهمیت می دهند:

کد:
PROGRAM KHAYYAM;
VAR
Pos,N,K:Integer;
FUNCTION Fact(K:Integer):LongInt;    {تابع بازگشتی محاسبه فاکتوریل}
BEGIN
IF (K=۰) OR (K=۱) THEN Fact:=۱ ELSE Fact:=K*Fact(K-۱);
END;
FUNCTION Tarkib(K,I:Integer):longInt;    {تابع محاسبه ترکیب}
BEGIN
Tarkib:=trunc(Fact(K)/(Fact(I)*Fact(K-I)));
END;
PROCEDURE Blank;    {پروسیجر ایجاد فواصل خالی}
VAR I:Integer;
BEGIN
FOR I:=۱ TO Pos DO
Write(’ ‘);
Pos:=Pos-۳;
END;
PROCEDURE Satr(K:Integer);     ‌{پروسیجر ایجاد سطرهای مثلث}
VAR I:Integer;
BEGIN
FOR I:=۰ TO K DO
Write(Tarkib(K,I):۶);
END;
BEGIN{Of Main}
Pos:=۳۳;    ‍{قرار دادن مکان نما در وسط صفحه نمایش}
Write(’Enter Your Number: ‘);    {گرفتن تعداد سطرهای مثلث از کاربر}
Readln(N);
FOR K:=۰ TO N DO
BEGIN
Blank;
Satr(K);
Writeln(”);
END;{Of For}
Readln
END.{Of Main}


_________________
مقاله های من از مجموعه 1000 مقاله رایانه انتخاب شده
جمع آوری این مقالات از منابع مختلف اینترنت و همچنین کتابهاست
این مجموعه در آینده به صورت کتاب الکترونیک منتشر خواهد شد.


شنبه 12 آوریل, 2008 2:22 pm
مشخصات شخصی
مشاهده پست های قبلی:  نمایش بر اساس  
پاسخ به موضوع   [ یک پست ] 

افراد آنلاین

کاربران حاضر در این تالار: Bing [Bot] و 2 مهمان


شما نمی توانید در این تالار موضوع جدید باز کنید
شما نمی توانید در این تالار به موضوع ها پاسخ دهید
شما نمی توانید در این تالار پست های خود را ویرایش کنید
شما نمی توانید در این تالار پست های خود را حذف کنید
شما نمی توانید در این تالار ضمیمه ارسال کنید

جستجو برای:
پرش به:  
cron
استفاده و نقل از مباحث سایت، فقط با ذکر منبع و لینک سایت میکرورایانه مجاز است.
Copyright © 2006 - 2010 MicroRayaneh - Powered by phpBB © phpBB Group
Valid CSS2 Valid XHTML 1.0
طراحی سایت : میکرو رایانه