home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / asemblr / pas / _386test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-05  |  1.3 KB  |  42 lines
  1. {$N+}
  2. { **************************************************************
  3.   Datei: _386TEST.PAS
  4.   --------------------------------------------------------------
  5.   Autor: Sven Letzel
  6.   Datum: 18.04.1993
  7.   Funktion: Einfaches DEMO-Programm für Unit _386
  8.   Borland Pascal 7.0 - Zielplattform: Real, Protected
  9.   **************************************************************}
  10.  
  11. USES _386, Crt;
  12.  
  13. TYPE
  14.   LongFeld = ARRAY[1..5000] OF LONGINT;
  15.  
  16. VAR
  17.   Feld1, Feld2: LongFeld;
  18.   LongZ: LONGINT;
  19.   ExtZ : EXTENDED;
  20.   I,S: WORD;
  21. BEGIN
  22.   IF Test8086 < 2 THEN
  23.     WriteLn('Programm benötigt eine 80386-CPU oder höher.');
  24.   WriteLn('Die kleinste LongInt-Zahl ist: ',SetBit(0,31));
  25.   WriteLn('Die größte LongInt-Zahl ist:    ',ClearBit(-1,31));
  26.   WriteLn('Die kleinste Integer-Zahl ist: ',INTEGER(SetBit(0,15)));
  27.   WriteLn('Die größte Integer-Zahl ist:    ',INTEGER(ClearBit(-1,15)));
  28.   WriteLn;
  29.   Randomize;
  30.   WriteLn('Initialisiere Feld mit zufälligen Zahlen.');
  31.   FOR I:= 1 TO 5000 DO Feld1[I] := Random(3000);
  32.   WriteLn('Erzeuge Kopie von Feld1.');
  33.   Mem386Copy(@Feld1, @Feld2, 5000);
  34.   Write('Geben Sie eine Zahl zwischen 0 und 3000 ein: ');
  35.   ReadLn(LongZ);
  36.   S := Scan386(Feld2, LongZ);
  37.   IF S <> 0 THEN
  38.     WriteLn('Die Zahl ',LongZ,' befindet sich an ',S,'. Stelle.')
  39.   ELSE
  40.     WriteLn('Die Zahl ',LongZ,' wurde nicht gefunden.');
  41. END.
  42.