برنامه ای برای محاسبه مساحت - پاسکال

[roya_2003]

با سلام.
من نمونه برنامه ای میخواستم که 10 عدد به عنوان x و y بگیره و از طریق فرمول زیر مساحت رو بده: (به زبان پاسکال)

S=(x1y2+x2y3+...)-(x2y1+x3y2+...)=|s|

ممنون میشم راهنمایی نمایید

[vcldeveloper]

اینجا برای شما برنامه گذاشته نمیشه. می تونید خودتون شروع کنید، هر جا گیر کردید، اینجا بپرسید.

[roya_2003]

ممنون. برنامه رو نوشتم.
من در برنامه 3 متغیر از نوع real تعریف کردم، و در پابان هم که خروجی که همان مساحت باشد نشان داده می شود بصورت نماد علمی نشان داده می شود در صورتیکه عدد صحیح می باشد ، راهی نیست که متغیر از نوع real باشد ولی خروجی در صورت صحیح بودن با نماد علمی نمایش داده نشود؟
ممنون

[Mahmood_M]

منظورتون از نماد علمی چیه ؟
اگه می خواید که قسمت اعشاری نشون داده نشه می تونید اون رو تبدیل به Integer تبدیل کنید :

FloatToInteger(S);
داده های از نوع Real رو می تونید به وسیله ی تابع بالا به یک عدد صحیح تبدیل کنید ...
اگر می خواید که عدد اعشاری رو گرد کنید می تونید از تابع Round استفاده کنید :

I : Integer;
...
I := Round(S);
اگه مشکل جای دیگه هست بگید تا راه حل بهتری ارایه بشه ...

موفق باشید ...