درخواست عاجزانه یک برنامه پاسکال

[Akbari694]

سلام

من برنامه زیر را برای پاسکال می خواستم. اگه کسی زحمتشو بکشه خیلی خیلی ممنون میشم.

برنامه ای بنویسید که ابتدا بنویسد:

1. Circle 2.Triangle 3.Rectangle

اگر شماره بیش تر از 3 یا کم تر 1 باشد قبول نکرده و عددی قابل قبول بگیرد.

1.

اگر شخص شماره 1 را انتخاب کند شعاع را از او بگیرد

Radius=

و با توجه به شعاع محیط و مساحت آن را حساب کند.

Perimeter= 2*Pi*Radius


Area= Pi*SQR (Radius)

2.

اگر شخص شماره 2 را انتخاب کند اضلاع را از او بگیرد

Side1=


Side2=


Side3=

و با توجه به اضلاع محیط و مساحت را حساب کند.

Perimeter=Side1+Side2+Side3


Area= SQRT (P*(P-Side1)(P-Side2)(P-Side3)) (P=(Side1+Side2+Side3)/2)

3.

اگر شخص شماره 3 را انتخاب کند عرض و طول را از او بگیرد

Width=


Length=

و با توجه به عرض و طول محیط و مساحت را حساب کند.

Perimeter= 2(Width + Length)

Area= Width*Length

[ayshin]

من کامپایلرشو ندارم ولی بلدم.توضیح می دم شاید مفید باشه.
اول که یه منو باشه خوبه مثل این(البته توی برنامه ی اصلی)

repeat
clrscr;
writeln('0) Exit');
writeln('1) rectangle);
writeln('2) triangle );
writeln('3) Circle );
readln(number);
case number of
1:num1;
num2:2;
3:num3;
end;
Until number=0;
بعدش واسه ی 1 یه تابع یا پروسیجر بنویس چون یه خروجی داره فرقی نمی کنه کدوم باشه.داخلش کارایی رو که می خوای رو انجام بده.واسه ی 2و3 هم این کارو انجام بده.می تونی متغیرها رو از نوع real)اعشاری تعریف کنی)
برنامه ی خیلی ساده ای هستش اگه مشکلی بود می تونم بیشتر توضیح بدم.

[Akbari694]

از اونجایی که من زیاد وارد نیستم برای یکی از این شکل ها مثلا مثلث بنویسیسد ممنونن میشم و بقیه اش رو خودم می نویسم.