home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / misc / line_f / original / fpu_test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-09-20  |  971 b   |  34 lines
  1. (* Programm zum testen der FPU-MC68881 im Mega STE (mit LFED dem
  2.     LineF-Emulation-Driver) unter Pure Pascal
  3. *)
  4.  
  5. Program FPU_Test;
  6. {$IFOPT N+}
  7.     Type Real = Extended;
  8. {$ENDIF}
  9.  
  10. Var    sinus, cosinus, arcustang, lauf_var : Real;
  11.     zaehler : LongInt;
  12.  
  13. Begin
  14.     sinus := 0; cosinus := 0; arcustang := 0;
  15.     lauf_var := 0; zaehler := 0;
  16.         
  17.     While lauf_var <= 2 * Pi Do Begin
  18.         lauf_var := lauf_var + 0.0001;
  19.         zaehler := Succ(zaehler);
  20.         cosinus := cos(lauf_var);
  21.         sinus   := sin(lauf_var);
  22.         arcustang := arctan(lauf_var);
  23.     End;            
  24.     WriteLn('Für ', zaehler, ' Durchläufe');
  25.     WriteLn('Inhalte der Variblen:');
  26.     WriteLn('Cosinus     : ', cosinus);
  27.     WriteLn('Sinus       : ', sinus); 
  28.     WriteLn('Arcusangens : ', arcustang);
  29.     ReadLn;
  30.     Halt;    (* ohne diesen "Kunstgriff" gibt es einen Address Error (!?)
  31.                Tests haben ergeben, daß das dieses die Einzige Möglich-
  32.                keit ist, unter Nutzung von LFED und N+ "sauber" zu Ter-
  33.                minieren :-( *)
  34. End.