سوال:پاسکال

[hamedsullivan]

سلام

شیرازی جان ببخشید , بخش پاسکال پیدا نکردم !!!!


1: برنامه ای بنویسید که شعاع کره را دریافت و حجم انرا محاسبه کرده و نمایش دهد.

2:برنامه ای بنویسید که طول اضلاع مثلث را از ورودی بخواند و مساحت را محاسبه کرده و نمایش دهد.




اصلا پاسکال بلد نیستم

 

[saeedsmk]

سلام
خوب هستيد والا خيلي وقت پيش با پاسكال كار كردم دستوراتش رو يادم نيست . اما فكر كنم ساده باشه
-----------------------------------------------------------
پ.ن بيشتر به دلفي نرديكه تا وي بي انتقال ميدم به اونجا

 

[hamedsullivan]

ممنونم , والله من اصلا پاسکال کار نکردم , این رو هم یکی از دوستام خواسته .

 

[saalek110]

سلام حامد جان. خوبید؟

program add_two_number;

uses
  WinCrt;
Var
a,b,c:integer;

begin
  writeln('enter 2 numbers');
  readln(a,b); 
  c:=a+b; 
  writeln('result is =',c);

end.

برنامه بالا را در توربوپاسکال 7 تست کردم.کارش گرفتن دو عدد از ورودی و جمع کردن و نمایش آنهاست. برای اعداد اعشاری هم توانستم real را بکار گیرم.
منبع :آموزش پاسکال
http://www.iritn.com/?action=show&type=news&id=9590

دانلود توربو پاسکال 7 حدود 6 مگا.

 

[Neo.BHK]

سلام

شیرازی جان ببخشید , بخش پاسکال پیدا نکردم !!!!


1: برنامه ای بنویسید که شعاع کره را دریافت و حجم انرا محاسبه کرده و نمایش دهد.

2:برنامه ای بنویسید که طول اضلاع مثلث را از ورودی بخواند و مساحت را محاسبه کرده و نمایش دهد.




اصلا پاسکال بلد نیستم

سلام.
دومين برنامه رو به C دارم ... اگر كسي مي تونه به پاسكال تبديل كنه بفرستم...
چون خودم پاسكال يادم رفته.

اين برنامه ها ساده هشتن فكر كنم تو كتابا باشه ... اگر پيدا كردم مي نويسم اينجا

 

[saalek110]

بی زحمت بفرستید تا من تبدیل کنم.
فرمول حجم کره را هم اگر کسی می داند بنویسید.

 

[Neo.BHK]

بی زحمت بفرستید تا من تبدیل کنم.
فرمول حجم کره را هم اگر کسی می داند بنویسید.

اين لينك اون برنامه كه گفتم :

لينك

حجم كره هم فكر كنم چهار سوم پي آر 3
يعني :‌ 4/3 ضربدر عدد پي ضربدر ( شعاع به توان 3 )

 

[saalek110]

program volume_of_sphere;

uses
  WinCrt;
const
pi=3.14;

Var
radius,volume   :real;

begin

writeln('Enter the radius of the sphere:');
readln(radius);

volume:=(4*pi*radius*radius*radius)/3; 

writeln('The volume of the sphere is =',volume);
end.

program area_of_triangle;

uses
  WinCrt;
Var
triangle_base,triangle_heigh,area   :real;

begin
writeln('Enter the length of the base of the triangle:');
readln(triangle_base);
writeln('Enter the height of the triangle:');
readln(triangle_heigh);
area:=0.5*triangle_base*triangle_heigh;
writeln('The area of the triangle is =',area);
end.

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

 

[hamedsullivan]

ممنونم از دوستان عزیز , خیلی لطف کردید.

 

[hamedsullivan]

ادیت شد.

 

[Ernest]

برنامه ای بنویسید که 10 عدد را از کاربر گرفته و در یک آرایه ذخیره کند و سپس از کوچک به بزرگ سورت کند(بچیند) و بگوید ماکزیمم در کدام خانه آرایه بوده؟
فقط خواهشا سریع

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

 

[pooya_ww]

اگه یه کمی وارد باشید تقریبن سورس همه ی این برنامه ها رو اینجا گذاشتم... خودتون کامپایلشون کنید ببینید...
http://www.pooya-ww.persiangig.com/p

بیشتر تمرین های مهم کتاب پاسکال کافمن هست.. خیالتون هم راحت باشه چون توسط یه استاد نوشته شده...
فقط این دومیه ضرایب بسط توشون نیست...