home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / READINTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  1.5 KB  |  70 lines
  1.                                 (* Chapter 11 - Program 4 *)
  2. program Read_Integers_From_File;
  3.  
  4. var Cupcake : text;
  5.     Index   : byte;
  6.     Var1,Var2,Var3,Var4,Var5 : integer;
  7.  
  8. begin
  9.    Assign(Cupcake,'INTDATA.TXT');
  10.    Reset(Cupcake);
  11.  
  12.    for Index := 1 to 5 do begin
  13.       Read(Cupcake,Var1,Var2,Var3);
  14.       Writeln(Var1:6,Var2:6,Var3:6);
  15.    end;
  16.  
  17.    Reset(Cupcake);
  18.    Writeln;
  19.    for Index := 1 to 5 do begin
  20.       Readln(Cupcake,Var1,Var2,Var3);
  21.       Writeln(Var1:6,Var2:6,Var3:6);
  22.    end;
  23.  
  24.    Reset(Cupcake);
  25.    Writeln;
  26.    for Index := 1 to 5 do begin
  27.       Read(Cupcake,Var1,Var2,Var3,Var4,Var5);
  28.       Writeln(Var1:6,Var2:6,Var3:6,Var4:6,Var5:6);
  29.    end;
  30.  
  31.    Reset(Cupcake);
  32.    Writeln;
  33.    for Index := 1 to 5 do begin
  34.       Readln(Cupcake,Var1,Var2,Var3,Var4,Var5);
  35.       Writeln(Var1:6,Var2:6,Var3:6,Var4:6,Var5:6);
  36.    end;
  37.    Close(Cupcake);
  38. end. (* of main program *)
  39.  
  40.  
  41.  
  42.  
  43. { Result of execution (This data is read from INTDATA.TXT)
  44.  
  45.    101   102   103
  46.    104   105   106
  47.    107   108   109
  48.    110   111   112
  49.    113   114   115
  50.  
  51.    101   102   103
  52.    105   106   107
  53.    109   110   111
  54.    113   114   115
  55.    117   118   119
  56.  
  57.    101   102   103   104   105
  58.    106   107   108   109   110
  59.    111   112   113   114   115
  60.    116   117   118   119   120
  61.    121   122   123   124   125
  62.  
  63.    101   102   103   104   105
  64.    109   110   111   112   113
  65.    117   118   119   120   121
  66.    125   126   127   128   129
  67.    133   134   135   136   137
  68.  
  69. }
  70.