This is the second disk of the PASCAL TUTOR system. It has the
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 4 - Program 9 *)
program A_Bigger_Case_Example;
var Count : integer;
Index : byte;
begin (* main program *)
for Count := 1 to 10 do begin
Write(Count:5);
case Count of
7..9 : Write(' Big Number');
2,4,6 : begin Write(' Small');
Write(' even');
Write(' number.');
end;
3 : for Index := 1 to 3 do Write(' Boo');
1 : if TRUE then begin Write(' TRUE is True,');
Write(' and this is dumb.');
end;
else Write(' This number is not in the allowable list');
end; (* of case structure *)
Writeln;
end; (* of Count loop *)
end. (* of main program *)
