Akbari694
03-04-2009, 05:59
سلام
من برنامه زیر را برای پاسکال می خواستم. اگه کسی زحمتشو بکشه خیلی خیلی ممنون میشم.
برنامه ای بنویسید که ابتدا بنویسد:
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
من برنامه زیر را برای پاسکال می خواستم. اگه کسی زحمتشو بکشه خیلی خیلی ممنون میشم.
برنامه ای بنویسید که ابتدا بنویسد:
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