دانشجویان دانشگاه آزاد سوسنگرد و آبادان

دانشجویان دانشگاه آزاد سوسنگرد و آبادان

پروژه مهندسی اینترنت

آرم وبلاگ

لينك دوستان

لينك هاي روزانه

ساعت و تاريخ

منوي اصلي

نويسندگان

موضوعات

آرشيو ماهانه

جستجوگر

آمار وبلاگ

طراح قالب

pascal ( )

مثال : برنامه اي بنويسيد كه دو عدد را از ورودي دريافت و چنانچه عدد اول در بازه 0 تا 5 بود توان دوم عدد دوم را چاپ كند چنانچه 68 بود حاصلضرب دو عدد را چاپ كند و در غير اينصورت مقادير مجاز را چاپ كند.

BEGIN
WRITELN('ENTER TWO NUMBER');
READLN(A,B);
CASE A OF
0..5 :WRITELN(B*B);
68:WRITELN(A*B)
ELSE
WRITELN('ENTER 0..5 OR 68');
END;
END.

- معادل برنامه بالا با دستور If :

Begin
Writeln('enter 2 number');
Readln(a,b);
If (a>=0)and(a<=5) then
Writeln(b*b)
Else
If a=68 then
Writeln(a*b)
Else
Writeln('enter 0..5 or68');
End.

نوشته شده توسط محمد امین سعیدی در دوشنبه سوم بهمن 1384

لينك مطلب

مطالب پيشين

کپي برداري از مطالب وبلاگ فقط با ذکر منبع مجاز ميباشد .