This is the second disk of the PASCAL TUTOR system. It has the
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 11 - Program 5 *)
program Read_Real_Data_From_A_File;
var Hot_Dog : text;
Index : byte;
Line_Number : integer;
Real1,Real2,Real3 : real;
begin (* main program *)
Assign(Hot_Dog,'REALDATA.TXT');
Reset(Hot_Dog);
for Index := 1 to 7 do begin
Readln(Hot_Dog,Line_Number,Real1,Real2,Real3);
Writeln(Line_Number:7,Real1:12:3,Real2:12:3,Real3:12:3);
end;
Close(Hot_Dog);
end. (* of main program *)
