statement2;
...
endloop;18-8 Ada case
case PixelColor of
when RedColor =>statement1 ;
statement2 ;...
when GreenColor =>
statement1 ;
statsment2
...
when Others =>
statement1 ;
statement2 ;
...
end case;Ada if-then while-loop case-or18-9
18-9
A
B
C
D
A D
if-then
begin-end
begin end
begin end
18.3.2
Ada begin end