aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Conditional-structures/Ada/conditional-structures-1.ada
View file

@ -1,10 +0,0 @@
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;

13
Task/Conditional-structures/Ada/conditional-structures-2.ada
View file

@ -1,13 +0,0 @@
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
);

6
Task/Conditional-structures/Ada/conditional-structures-3.ada
View file

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

1
Task/Conditional-structures/Ada/conditional-structures-4.ada
View file

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

13
Task/Conditional-structures/Ada/conditional-structures-5.ada
View file

@ -1,13 +0,0 @@
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;

9
Task/Conditional-structures/Ada/conditional-structures-6.ada
View file

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

10
Task/Conditional-structures/Ada/conditional-structures-7.ada
View file

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

7
Task/Conditional-structures/Ada/conditional-structures-8.ada
View file

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

5
Task/Conditional-structures/Ada/conditional-structures-9.ada
View file

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