home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 09 / statis / io.inc < prev    next >
Encoding:
Text File  |  1987-07-02  |  2.0 KB  |  67 lines

  1. {***************************************************************************}
  2. {*                                IO.INC                                   *}
  3. {*                      Leseroutine fuer Datenvektor                       *}
  4. {***************************************************************************}
  5. PROCEDURE warten;
  6.  
  7. BEGIN
  8.   writeln; writeln; Write('weiter:  Taste druecken ... ');
  9.   REPEAT UNTIL KeyPressed; Writeln; Writeln;
  10. END;
  11. {---------------------------------------------------------------------------}
  12. function Ja: BOOLEAN;
  13.  
  14. var ch: Char;
  15.  
  16. begin
  17.   repeat read(Kbd, ch); ch := Upcase(ch); until ch in ['J','N'];
  18.   Ja := ch = 'J';  WriteLn(ch);
  19. END;
  20. {---------------------------------------------------------------------------}
  21. PROCEDURE readvector (VAR vec : vector);
  22.  
  23. VAR datei : TEXT;
  24.     name  : filename;
  25.     i, n  : INTEGER;
  26.  
  27. BEGIN
  28.   WriteLn; WriteLn; Write('Dateneingabe per Tastatur (J/N) ? ');
  29.   IF Ja THEN
  30.      BEGIN
  31.        REPEAT
  32.          Write('Anzahl der Stichprobenelemente (2 oder mehr) : ');
  33.          ReadLn(n);
  34.        UNTIL n > 1;
  35.        vec.n := n;
  36.        WriteLn('Bitte die Werte eingeben...');
  37.        FOR I := 1 TO n DO
  38.           BEGIN
  39.             Write(I:4,'-ten Wert eingeben :  ');
  40.             ReadLn(vec.value[I]);
  41.           END;
  42.     END
  43.   ELSE
  44.     BEGIN
  45.       repeat
  46.         Write('Name der Datei mit den Stichprobenwerten ? ');
  47.         ReadLn(name);
  48.         if length(name) > 0 then
  49.           begin
  50.             Assign(datei, name);
  51.             (*$I-*)  ReSet(datei);  (*$I+*)
  52.             i := ioresult;
  53.             if i <> 0 then writeln('I/O-Fehler #',i,' !!');
  54.           end;
  55.       until (i = 0) OR (name = '');
  56.       if name <> '' then
  57.         begin
  58.           ReadLn(datei,vec.n);
  59.           FOR I := 1 TO vec.n DO ReadLn(datei, vec.value[I]);
  60.           Close(datei);
  61.         end;
  62.     END;
  63.   writeln;
  64. END;
  65. {--------------------------------------------------------------------------}
  66. {                            Ende IO.INC                                   }
  67.