Data update

2024-04-19 16:56:29 -07:00 · 2024-04-19 16:56:29 -07:00 · aec8ed51b6
commit aec8ed51b6
parent 0df55f9f24
1045 changed files with 18889 additions and 2777 deletions
--- a/Task/Conditional-structures/Ada/conditional-structures-10.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-10.ada
@ -1,10 +0,0 @@
-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;
--- a/Task/Conditional-structures/Ada/conditional-structures-11.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-11.ada
@ -1,7 +0,0 @@
-select
-   accept first_entry;
-   -- do something
-   or accept second_entry;
-   -- do something
-   or terminate;
-end select;
--- a/Task/Conditional-structures/Ada/conditional-structures-12.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-12.ada
@ -1,5 +0,0 @@
-select
-  My_Task.Start;
-or
-  delay Timeout_Period;
-end select;
--- a/Task/Conditional-structures/Ada/conditional-structures-3.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-3.ada
@ -1 +1,6 @@
-Operation
+Result := (case Op is
+  Add => A + B,
+  Subtract => A - B,
+  Multiply => A * B,
+  Divide => A / B
+);
--- a/Task/Conditional-structures/Ada/conditional-structures-4.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-4.ada
@ -1 +1 @@
-Op
+case Op of...
--- a/Task/Conditional-structures/Ada/conditional-structures-5.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-5.ada
@ -1 +1,13 @@
-Result
+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;
--- a/Task/Conditional-structures/Ada/conditional-structures-6.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-6.ada
@ -1,6 +1,9 @@
-Result := (case Op is
-  Add => A + B,
-  Subtract => A - B,
-  Multiply => A * B,
-  Divide => A / B
-);
+case Today is
+  when Monday =>
+     Compute_Starting_Balance;
+  when Friday =>
+     Compute_Ending_Balance;
+  when Tuesday .. Thursday =>
+     Accumulate_Sales;
+  -- ignore Saturday and Sunday
+end case;
--- a/Task/Conditional-structures/Ada/conditional-structures-7.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-7.ada
@ -1 +1,10 @@
-case Op of...
+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;
--- a/Task/Conditional-structures/Ada/conditional-structures-8.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-8.ada
@ -1,13 +1,7 @@
-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;
+select
+   accept first_entry;
+   -- do something
+   or accept second_entry;
+   -- do something
+   or terminate;
+end select;
--- a/Task/Conditional-structures/Ada/conditional-structures-9.ada
+++ b/Task/Conditional-structures/Ada/conditional-structures-9.ada
@ -1,9 +1,5 @@
-case Today is
-  when Monday =>
-     Compute_Starting_Balance;
-  when Friday =>
-     Compute_Ending_Balance;
-  when Tuesday .. Thursday =>
-     Accumulate_Sales;
-  -- ignore Saturday and Sunday
-end case;
+select
+  My_Task.Start;
+or
+  delay Timeout_Period;
+end select;