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

(* Chapter 11 - Program 7 *)
program Binary_Input;

type Input_Record = record
Number : integer;
Amount : real;
Name : string[30];
end;

var Input_File : file of Input_Record;
Bird_Food : array[1..20] of Input_Record;
Index : byte;

begin (* main program *)
Assign(Input_File,'KIBBLES.BIT');
Reset(Input_File);

for Index := 1 to 20 do
if not Eof(Input_File) then
Read(Input_File,Bird_Food[Index]);
Close(Input_File);

Writeln(Bird_Food[6].Number:6,Bird_Food[20].Amount:13:5,
' ',Bird_Food[1].Name);
end. (* of main program *)




{ Result of execution

6 12345.67890 Large size Kibbles & Bits

}