دستور Case در پاسکال
با استفاده از دستور Case قادر به برسی شرط یا شرایط خاصی خواهید بود
در حقیقت عملکرد دستور Case معادل با استفاده از چندین دستور if است
همچنین دستور Case نیز از پرکاربردترین دستورات برنامه نویسی پاسکال است و موجب ایجاد خوانایی در برنامه میگردد
شکل کلی استفاده از دستور Case به صورت زیر است
Case عبارت of دستور:[[,..],مقدار]مقدار; [,....] [else دستور ;] end;
برای مثال در برنامه زیر از دستور Case استفاده شده است
Var A:Integer; begin ReadLn (A); Case A OF 1:WriteLn(1); 2:WriteLn(2); end; end.
برنامه فوق ابتدا عددی را از کاربر دریافت نموده
و سپس دو طرف شرط مختلف را در مورد عدد مربوطه مورد برسی قرار میدهد
اگر عدد وارد شده 1 باشد عدد 1 نمایش داده خواهد شد
و اگر عدد وارد شده برابر 2 باشد عدد 2 نمایش داده خواهد شد
برنامه فوق را می توان با استفاده از دستور if به صورت زیر نوشت
Var A:Integer; begin ReadLn(A); if A=1 the WriteLn (1); if A=2 the WriteLn (2); end.
همان طور که مشاهده میکنید استفاده از دستور Case باعث خوانایی بیشتر برنامه میگردد
با توجه به اینکه در صورت برقراری هر یک ارشروط دستور Case میتوانید یک دستور را اجرا کنید
بنابراین استفاده از دستور مرکب نیز امکان پذیر است
برای مثال به برنامه زیر توجه کنید
Var
A:Integer;
begin
ReadLn(A);
case A of
1 : begin
WriteLn;
WriteLn(1);
end;
2 : WriteLn(2);
end;
end.
همچنین میتوانید چندین شرط را در یک مرحله مورد برسی قرار دهید
برای مثال به برنامه زیرتوجه کنید
Var
A:Integer;
begin
ReadLn(A);
case A of
1,2,3 : WriteLn ('1 or 2 or 3 ' );
4 : WriteLn ('4');
5,6 WriteLn ('5 or 6');
end;
end.
در ضمن میتوانید در صورت عدم برقراری شرایط باعث اجرای دستور یا دستورات خاصی شوید
برای مثال به برنامه زیر توجه کنید
Var
A:Integer;
begin
ReadLn(A);
case A of
1,2,3 : WriteLn ('Hello' );
4 : WriteLn ('ok');
5,6 WriteLn ('Goodby');
end;
end.
برنامه فوق عددی را از کاربر دریافت نموده و سپس شرایط مختلفی را مورد برسی قرار میدهد
در صورتی که عدد مورد نظر 1 و 2 و 3 باشد کلمه Hello نمایش داده خواهد شد
اگر عددی مرود نظر 4 و 5 باشد کلمه ok نمایش داده می شود
در صورتی که شرایطی قبلی برقرار نباشد
( یعنی عدد مورد نظر 1 و 2 و 3 و 4 و 5 تباشد )
کلمه Goodby نمایش داده خواهد شد
همچنین در تعیین مقدار می توانید از زیر محدوده ها نیز استفاده کنید
برای مثال به برنامه زیر توجه کنید
Var
A:Integer;
begin
ReadLn(A);
case A of
1..100 : WriteLn ('Hello' );
200..300 : WriteLn ('ok');
else WriteLn ('bad');
end;
end.
توجه داشته باشید که اگر از یک مقدار در دو شرط استفاده نمایید
دستور مربوط به اولین شرط مورد اجرا قرار خواهد گرفت ( در صورت بر قراری شرط )
برای مثال به برنامه زیر توجه کنید
Var
A:Integer;
begin
A:=10;
case A of
1..10 : WriteLn ('Bad' );
10..20: WriteLn ('Good');
end;
end.
اجرای برنامه فوق باعث نمایش کلمه Bad خواهد شد
به این دلیل که در صورت بر قراری هر یک از شروط پاسکال شروط دیگر را برسی نخواهد کرد
