برنامه میخوام پاسکال کمک کنید؟

 
AMIN1995
AMIN1995
کاربر نقره ای
تاریخ عضویت : دی 1389 
تعداد پست ها : 163
محل سکونت : خراسان رضوی

برنامه میخوام پاسکال کمک کنید؟

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

خلی ساده و روان باشه مرسی

1-برنامه بنویسد که مقلوب یک عدد را چاپ کند؟

2-برنامه بنویسد که مقسوم علیه ها یک عدد را چاپ کند؟

3-برنامه که یک عدددریافت کند بعد بگه عدد دریافتی کامل (تام) هست یا نه؟

4-برنامه که ب ب م و ک ک م دو عدد را محاسبه کند؟

5-برنامه ای فکتوریل هر عدد گرفته و چاپ کند؟

 

لطفا کمک کنید -منتظر برنامه ها هستم

مرسی

با خدا باش پادشاهی کن   بی خداباش هرچه خواهی کن

کاش صداقت داشتی....

ARLUX

پنج شنبه 9 آبان 1392  11:33 ق.ظ
تشکرات از این پست
aliagri
aliagri
کاربر برنزی
تاریخ عضویت : دی 1390 
تعداد پست ها : 43
محل سکونت : گلستان

پاسخ به:برنامه میخوام پاسکال کمک کنید؟

Function factorial(I:Integer):String;
Var
J,Q:LongInt;
Begin
    if I=0 then
    Begin
       Result:='1';
    End;
 
    if I>0 then Begin
   Q:=I;
   J:=1;
    for I := Q downto 1 do
    begin
       J:=J*I;
    End;
    Result:=IntToStr(J);
End;
 end;
 
 
محاسبه ی فاکتوریل
دوشنبه 3 آذر 1393  08:27 ق.ظ
تشکرات از این پست
5519975736
5519975736
کاربر تازه وارد
تاریخ عضویت : دی 1393 
تعداد پست ها : 5
دوشنبه 8 دی 1393  01:20 ب.ظ
تشکرات از این پست
5519975736
5519975736
کاربر تازه وارد
تاریخ عضویت : دی 1393 
تعداد پست ها : 5
دوشنبه 8 دی 1393  01:22 ب.ظ
تشکرات از این پست
دسترسی سریع به انجمن ها