Object-oriented Software in Ada 95

Appendix A 367
if Temp < 15 then Put("Cool"); end if;
if Temp < 15 then Put("Cool"); else Put("Warm"); end if;
case Number is
when 2+3 => Put("Is 5");
when 7 => Put("Is 7");
when others => Put("Not 5 or 7");
end case;
Looping statements
while Raining loop --While raining
Work; -- Perform work
end loop; --
loop --Repeat
Work; -- Perform work
exit when Sunny; -- exit from loop when sunny
end loop; --
for I in 1 .. 10 loop --Vary I from 1 to 10
Put(I); New_Line; -- Write I
end loop; --
Arithmetic operators
Res := A + B; --plus
Res := A - B; --minus
Res := A * B; --multiplication
Res := A / B; --Division
Res := A mod B; --Modulus
Res := A rem B; --Remainder
Conditional expressions
if A = B then --Equal to
if A > B then --Greater than
if A < B then --Less than
if A /= B then --Not equal
if A >= B then --Greater
-- or equal
if A 15 and Dry then
Note:
When using and then or or else the conditional expression will only be evaluated as far as
necessary to produce the result of the condition. Thus in the if statement:
if fun_one or else fun_two then
fun_two will not be called if fun_one delivered true.
Exits from loops
© M A Smith - May not be reproduced without permission