كيف أستطيع اختصار الجمل الشرطية في باسكال؟

نعم، هنالك في أغلب لغات البرمجة مثل السي والسي بلس بلس وباسكال وغيرها طريقة سريعة لعمل الجمل الشرطية، فيكفي أن تكتب الشرط ثم تكتب أمامه الأوامر التي يجب تنفيذها ما إذا كان الشرط صحيح، وهذه الطريقة تسمى في باسكال بـ Case of، أي على حسب محتويات متغير معين قم بفعل أوامر معينة.
هذه الطريقة تختصر الكثير من الجهد والوقت وهذا مثال بسيط لبرنامج بلغة باسكال باستخدام هذه الحلقة:

Program Program1b_Lesson5;
Uses Crt;
Label Return;  {use of the goto statement
                is not recommended..avoid it}
Var SEL : Integer;
    YN  : Char;
           
Begin
 Return:Clrscr;
 Writeln('[1].PLAY GAME');
 WRITELN('[2].LOAD GAME');
 WRITELN('[3].MULTIPLAYER');
 WRITELN('[4].EXIT GAME');
 Writeln('note: Do note press anything except');
 Writeln('numbers; otherwise an error occurs!');
 Readln(SEL);
 Case SEL of
  1 : Begin
       Writeln('Are you able to create');
       Writeln('a game of yourself using pascal??');
       Delay(2000);
       Goto Return;
      End;
  2 : Begin
       Writeln('Ahhh... no saved games');
       Delay(2000);
       Goto Return;
      End;
  3 : Begin
       Writeln('networking or 2 players?');
       Delay(2000);
       Goto Return;
      End;
  4 : Begin
       Writeln('Exit?');
       YN := Readkey;
       Case YN of {a sort of a nested case statement}
        'y' : Begin
               Writeln('Nooooooooooooo...');
               Delay(1000);
               Halt;
              End;
        'n' : Goto Return;
       End;{End Case2}
      End;{Close Conditional Expression 4}
 End;  {End Case1}
End.

المصدر