home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 15 / graphen / reg / eingabe.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-17  |  3.9 KB  |  98 lines
  1. { --------------------------------------------------------------- }
  2. {                   File : EINGABE.PAS ( gehört zu REG.PAS )      }
  3. {          Copyright (c) : 1989  Heinz Hagemeyer & TOOLBOX        }
  4. {                Sprache : TURBO PASCAL 4.0  (oder 3.0)           }
  5. {              Ein Programm zur Auswertung von Meßwerten          }
  6. {                   mit Hilfe von GRAPH.PAS                       }
  7. { --------------------------------------------------------------- }
  8.  
  9. { --     führt die notwendigen Eingaben für REG.PAS durch      -- }
  10.  
  11. PROCEDURE Eingabe (VAR Anzahl       : Index     ;
  12.                    VAR x,y          : Messwerte ;
  13.                    VAR l,rl,lo,rlo,po,rpo,
  14.                        e,re,q,iks   : Boolean)  ;
  15.  
  16. { liefert TRUE zurück, wenn Taste [j] oder [J] gedrückt wurde und   }
  17. { FALSE, wenn [n] oder [N] betätigt wird. Andere Tasten werden ig-  }
  18. { noriert.                                                          }
  19.  
  20. FUNCTION JA_Nein : BOOLEAN;
  21. VAR c : Char;
  22. BEGIN
  23.      REPEAT                          {       in Turbo 3.0 :            }
  24.            c := UpCase (ReadKey);    {      Read (kbd,c)    ;          }
  25.      UNTIL c in  ['J','N'];          {      c := UpCase (c) ;          }
  26.      WriteLn (c);
  27.      JA_Nein := c = 'J';
  28. END;
  29.  
  30. { -------------------------------------------------------------------- }
  31.  
  32. PROCEDURE Kopf;
  33. BEGIN
  34.      ClrScr;
  35.      WriteLn;
  36.      WriteLn ('P r o g r a m m  z u m   A u s w e r t e n   v o n'+
  37.               '   M e ß d a t e n' :70);
  38.      WriteLn ('Copyright (c)  1989':50);
  39.      WriteLn ('  Heinz  Hagemeyer ':50);
  40.      WriteLn ('   Peter Kurzweil  ':50);
  41.      WriteLn ('     & TOOLBOX     ':50);
  42.      Window  (1,8,80,25);
  43. END;
  44.  
  45. {$I EINDAT.PAS  Eingabe über eine Datei         bei T 3.0 müssen die   }
  46. {$I EINTAST.PAS Eingabe mit der Tastatur        Dateien mit ^KR einge- }
  47. {$I EINTEST.PAS Erzeugung Testdatensatzes       lesen werden.          }
  48.  
  49. VAR      c : CHAR;
  50.     Erfolg : BOOLEAN;
  51.  
  52. BEGIN
  53.      Kopf;
  54.      REPEAT
  55.            Erfolg := TRUE;
  56.            WriteLn;
  57.            WriteLn ('Wie wollen Sie die Daten gewinnen ?':57);
  58.            WriteLn;
  59.            WriteLn ('Über die Tastatur (Keyboard) <K>':54);
  60.            WriteLn ('Eine Datei auswerten         <D>':54);
  61.            WriteLn ('Einen Testdatensatz erzeugen <T>':54);
  62.            WriteLn ('oder das Programm abbrechen  <A>':54);
  63.            WriteLn;
  64.            Write   ('Bitte wählen Sie : ..........   ':54);
  65.  
  66.            REPEAT
  67.                  c := UpCase (ReadKey);
  68.            UNTIL c IN ['D','T','A','K'] ;
  69.  
  70.            ClrScr;
  71.            CASE c OF
  72.                 'A': HALT;
  73.                 'D': DateiEingabe (Anzahl,x,y,Erfolg);
  74.                 'K': Tastatur     (Anzahl,x,y);
  75.                 'T': Testdatensatz(Anzahl,x,y);
  76.            END;
  77.      UNTIL Erfolg;
  78.      ClrScr;
  79.      WriteLn;
  80.      WriteLn ('Welche Art der Meßwertauswertung wünschen Sie,',
  81.               ' bitte nur <J> , <N> eingeben :');
  82.      Window (20,11,80,25);
  83.      Write ('Lineare Regression normal ............ : '); l   := JA_Nein;
  84.      Write ('Lineare Regression mit Ausreißerb .... : '); rl  := JA_Nein;
  85.      Write ('Potenzfunktion normal ................ : '); po  := JA_Nein;
  86.      Write ('Potenzfunktion mit Ausreißern ........ : '); rpo := JA_Nein;
  87.      Write ('Logarithmische Funktion normal ....... : '); lo  := JA_Nein;
  88.      Write ('Logarithmische Funktion mit Ausreißern : '); rlo := JA_Nein;
  89.      Write ('Exponetialfunktion normal ............ : '); e   := JA_Nein;
  90.      Write ('Exponentialfunktion mit Ausreißern ... : '); re  := JA_Nein;
  91.      Write ('Quadratische Regression .............. : '); q   := JA_Nein;
  92.      Write ('Interpolation durch kubische Splines . : '); iks := Ja_Nein;
  93.      Window (1,1,80,25);
  94. END;
  95.  
  96. { ---------------------------------------------------------------------- }
  97. { --                 Ende von EINGABE.PAS                             -- }
  98.