Data commit

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-10.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-11.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-12.ada

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

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

@@ -0,0 +1,13 @@
+type Operation is (Add, Subtract, Multiply, Divide);
+Op : Operation;
+Result : Integer;
+-- we assume that A and B are inputs.
+Result := (if Op = Add then
+  A + B
+elsif Op = Subtract then
+  A - B
+elsif Op = Multiply then
+  A * B
+elsif Op = Divide then
+  A / B
+);

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

@@ -0,0 +1 @@
+Operation

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

@@ -0,0 +1 @@
+Op

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

@@ -0,0 +1 @@
+Result

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

@@ -0,0 +1,6 @@
+Result := (case Op is
+  Add => A + B,
+  Subtract => A - B,
+  Multiply => A * B,
+  Divide => A / B
+);

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

@@ -0,0 +1 @@
+case Op of...

Task/Conditional-structures/Ada/conditional-structures-8.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-9.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;