home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / asemblr / pas / fpu_pas.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-05  |  1.1 KB  |  34 lines
  1. { **************************************************************
  2.   Datei: FPU_PAS.PAS
  3.   --------------------------------------------------------------
  4.   Autor: Sven Letzel
  5.   Datum: 12.04.1993
  6.   Funktion: Demonstriert die Einbindung von externen Assembler-
  7.             modulen sowie die Programmierung der FPU
  8.   Borland Pascal 7.0 - Zielplattform: Real, Protected, Windows
  9.   **************************************************************}
  10. {$N+,E-}
  11.  
  12. {$IFDEF Windows} USES WinCrt; {$ENDIF}
  13.  
  14. {$L FPU.OBJ}
  15. {* Assemblermodul einbinden *}
  16.  
  17. FUNCTION Berechne(X: EXTENDED): EXTENDED; EXTERNAL;
  18.  
  19. VAR
  20.   X, Y: EXTENDED;
  21. BEGIN
  22.   WriteLn('DEMO-Program für externen Assembler.');
  23.   WriteLn('Programmieren der FPU');
  24.   WriteLn('Sie können nun Werte für X eingeben, eine Eingabe von');
  25.   WriteLn('X < -1000 beendet das Programm.');
  26.   WriteLn('Berechnet wird der Funktionswert von f(x)=√|2*x^2-3*x+4|'#10);
  27.   REPEAT
  28.     Write('Wert für X: '); ReadLn(X);
  29.     IF X < -1000 THEN Break;
  30.     Y := Berechne(X);
  31.     WriteLn('f(X) = ',Y,' (',Y:4:4,')');
  32.   UNTIL FALSE;
  33. END.
  34.