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-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;