home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PASSRC.ZIP / READDATA.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  856b  |  34 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 *)
  19.  
  20.  
  21.  
  22.  
  23. { Result of execution
  24.  
  25.       1      23.600     145.450     234.800
  26.       2      -0.400      -0.050       0.345
  27.       3       4.000    3456.000     123.000
  28.       4      77.000       5.000      -0.003
  29.       6       1.000       2.000       3.000
  30.       7      12.120      13.110      14.140
  31.       8       2.000       3.000       4.000
  32.  
  33. }
  34.