home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / pascal / pascsrc.arc / READDATA.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  501b  |  18 lines
  1.                                 (* Chapter 11 - Program 5 *)
  2. program Read_Real_Data_From_A_File;
  3.  
  4. var  Hot_Dog : text;
  5.      Index   : byte;
  6.      Line_Number : integer;
  7.      Real1,Real2,Real3 : real;
  8.  
  9. begin  (* main program *)
  10.    Assign(Hot_Dog,'REALDATA.TXT');
  11.    Reset(Hot_Dog);
  12.  
  13.    for Index := 1 to 7 do begin
  14.       Readln(Hot_Dog,Line_Number,Real1,Real2,Real3);
  15.       Writeln(Line_Number:7,Real1:12:3,Real2:12:3,Real3:12:3);
  16.    end;
  17.    Close(Hot_Dog);
  18. end.  (* of main program *)