آژانس هواپیماییexchanging

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

شروع موضوع توسط 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.