آژانس هواپیمایی
pop up

خواهش مي كنم يكي در رابطه با پاسكال سوالهامن رو جواب بده

شروع موضوع توسط aluminum ‏26 اکتبر 2007 در انجمن برنامه نویسی

  1. aluminum

    aluminum کاربر تازه وارد

    تاریخ عضویت:
    ‏25 اکتبر 2007
    نوشته ها:
    1
    تشکر شده:
    0
    توي برنامه پاسكال چه جوري مي توان يك متغير رو به توان يك متغير ديگه رساند.مي خوام برنامه جو استاندارد را بنويسم .لطفاٌ كمكم كنيد
     
  2. saalek110

    saalek110 Registered User

    تاریخ عضویت:
    ‏10 آپریل 2007
    نوشته ها:
    212
    تشکر شده:
    1
    فکر کنم پاسکال توان ندارد.
    باید متوالی ضرب کنید.
    برنامه زیر حجم کره است:
    کد:
    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.