آموزش پاسکال

به طور کلی برای انجام پرش های شرطی می توانیم  از دستور case استفاده به خصوص زمانی که پرش های چند شاخه ای نیاز داشته باشیم.شکل کلی دستور caseبه شکل زیر است : 

Case          نام متغییری که شرط بر روی آن اعمال می شود      of

دستور1:  شرط 1             

دستور2:  شرط2                                

دستورn:  شرط n

End

نکته:

علامت آخر end بستگی به محل قرار گیری آن دارد امکان دارد سمیکالن یا نقطه  باشد ودر ضمن به دستور قبل از end در شرطcase می توان سمیکالن نگذاشت.

مثال:

Case   traffic   of

Red: Write ('stop');

Green: write ('go head');

Amber: write('stop  if possible, else go head')

End;

 مثال:

Case   key     of

'A'. . 'Z': write ('uppercase');

'a' . . 'z': write('Lowercase');

'0'. . '9': write('numeric');

End;

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

Program EXAMPL6;

Var

A,B: integer

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.