home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / chplus / cecko / CPP / NEKO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-05  |  298 b   |  14 lines
  1. {$L NEKO.OBJ}
  2. function NEKO:double; external;
  3.  
  4. var a:double;
  5. begin
  6.  Writeln('Program byl odstartován.');
  7.  a:=NEKO;
  8.  Writeln('Nekoneçno je ',a);
  9.  Writeln('1/nekoneçno je ',1/a);
  10.  Writeln('-nekoneçno je ',-a);
  11.  Writeln('-1/nekoneçno je ',-1/a);
  12.  Writeln('Konec programu.');Writeln;
  13. end.
  14.