langs a-z

Task/Conditional-structures/Pascal/conditional-structures-1.pascal

@@ -0,0 +1,23 @@
+IF condition1 THEN
+  procedure1
+ELSE
+  procedure3;
+
+IF condition1 THEN
+  BEGIN
+    procedure1;
+    procedure2;
+  END
+ELSE
+  procedure3;
+
+IF condition 1 THEN
+  BEGIN
+    procedure1;
+    procedure2;
+  END
+ELSE
+  BEGIN
+    procedure3;
+    procedure4;
+  END;

Task/Conditional-structures/Pascal/conditional-structures-2.pascal

@@ -0,0 +1,10 @@
+case i of
+  1,4,9: { executed if i is 1, 4 or 9 }
+    DoSomething;
+  11, 13 .. 17: { executed if i is 11, 13, 14, 15, 16 or 17 }
+    DoSomethingElse;
+  42: { executed only if i is 42 }
+    DoSomeOtherThing;
+  else
+    DoYetAnotherThing;
+end;

Task/Conditional-structures/Pascal/conditional-structures-3.pascal

@@ -0,0 +1,7 @@
+Case X of
+   'A'           : statement ;
+   'B'           : statement ;
+   in ['C'..'W'] : statement ;
+else
+   Statement ;
+end;