Category : Pascal Source Code
Archive   : PASTUT.ZIP
Filename : TYPES.PAS

(* Chapter 6 - Program 3 *)
program Example_Of_Types;

type Array_Def = array[12..25] of integer;
Char_Def = array[0..27] of char;
Real_Array = array[-17..42] of real;
Dog_Food = array[1..6] of boolean;
Airplane = array[1..12] of Dog_Food;
Boat = array[1..12,1..6] of boolean;

var Index,Counter : integer;
Stuff : Array_Def;
Stuff2 : Array_Def;
Puppies : Airplane;
Kitties : Boat;

begin (* main program *)
for Index := 1 to 12 do
for Counter := 1 to 6 do begin
Puppies[Index,Counter] := TRUE;
Kitties[Index,Counter] := Puppies[Index,Counter];
end;
Writeln(Puppies[2,3]:7,Kitties[12,5]:7,Puppies[1,1]:7);
end. (* of main program *)




{ Result of execution

TRUE TRUE TRUE

}