CDE

Task/Conditional-structures/Ada/conditional-structures-1.ada

@@ -0,0 +1,10 @@
+type Restricted is range 1..10;
+My_Var : Restricted;
+
+if My_Var = 5 then
+  -- do something
+elsif My_Var > 5 then
+  -- do something
+else
+  -- do something
+end if;

Task/Conditional-structures/Ada/conditional-structures-2.ada

@@ -0,0 +1,13 @@
+type Days is (Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday);
+Today : Days;
+
+case Today is
+  when Saturday | Sunday =>
+     null;
+  when Monday =>
+     Compute_Starting_Balance;
+  when Friday =>
+     Compute_Ending_Balance;
+  when others =>
+     Accumulate_Sales;
+end case;

Task/Conditional-structures/Ada/conditional-structures-3.ada

@@ -0,0 +1,9 @@
+case Today is
+  when Monday =>
+     Compute_Starting_Balance;
+  when Friday =>
+     Compute_Ending_Balance;
+  when Tuesday .. Thursday =>
+     Accumulate_Sales;
+  -- ignore Saturday and Sunday
+end case;

Task/Conditional-structures/Ada/conditional-structures-4.ada

@@ -0,0 +1,10 @@
+case Today is
+  when Saturday | Sunday =>
+     null; -- don't do anything, if Today is Saturday or Sunday
+  when Monday =>
+     Compute_Starting_Balance;
+  when Friday =>
+     Compute_Ending_Balance;
+  when Tuesday .. Thursday =>
+     Accumulate_Sales;
+end case;

Task/Conditional-structures/Ada/conditional-structures-5.ada

@@ -0,0 +1,7 @@
+select
+   accept first_entry;
+   -- do something
+   or accept second_entry;
+   -- do something
+   or terminate;
+end select;

Task/Conditional-structures/Ada/conditional-structures-6.ada

@@ -0,0 +1,5 @@
+select
+  My_Task.Start;
+or
+  delay Timeout_Period;
+end select;