home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 15 / graphen / reg / eintast.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-16  |  970 b   |  31 lines
  1. PROCEDURE Tastatur (VAR Anzahl : Index; VAR x,y : Messwerte);
  2. VAR i     : Index    ;
  3.     ofset : Integer  ;
  4.  
  5. BEGIN
  6.      WriteLn;WriteLn;
  7.      REPEAT                       { Einlesen der Anzahl der Meßpunkte }
  8.            Write ('Wieviel Messpunkte (< ',Nmax,') : '); ReadLn (Anzahl);
  9.      UNTIL Anzahl < Nmax;
  10.      ClrScr;
  11.  
  12.      WriteLn ( 'n │':4,       'x':10,'│':10,'y':10);
  13.      WriteLn ('───┼───────────────────┼───────────────────────────');
  14.      Window (1,10,80,25);
  15.  
  16.      Ofset := 0;
  17.      FOR i := 1 TO Anzahl DO      {     und Meßwerte einlesen         }
  18.      BEGIN
  19.           GotoXY (  1,i+Ofset) ; Write (i : 2,' │','':4) ; ReadLn (x[i]);
  20.           GotoXY ( 24,i+Ofset) ; Write ('│','':4)        ; ReadLn (y[i]);
  21.           IF i MOD 10 = 0 THEN
  22.           BEGIN
  23.                Write (#07);
  24.                Delay (1500);
  25.                ClrScr;
  26.                Ofset := Ofset - 10;
  27.           END;
  28.      END;
  29.      Window (1,8,80,25);
  30. END;
  31.