home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / pas60pg.lzh / PG14.MY < prev    next >
Text File  |  1991-02-04  |  15KB  |  355 lines
  1.                              âïÇéÇ 14.
  2.  
  3.                         êæÅÄï£çÄéÇìêà 8087.
  4.  
  5.  
  6.      æπΘÑßΓóπÑΓ ñóá ó¿ñá τ¿ßѽ,  ß ¬«Γ«α묨 óδ  ¼«ªÑΓÑ  αáí«ΓáΓ∞  ó
  7. Turbo Pascal:  µÑ½δÑ (Shortint,  Integer,  LongInt,  Byte,  Word) ¿
  8. óÑΘÑßΓóÑ¡¡δÑ (Real,  Single,  Double, Extended, Comp). éÑΘÑßΓóÑ¡¡δÑ
  9. ΓᬪѠ¿ºóÑßΓ¡δ,  ¬á¬  τ¿ß½á  ß  »½áóáεΘÑ⌐  Γ«τ¬«⌐.  Åα«µÑßß«α  8086
  10. ß»α«Ñ¬Γ¿α«óá¡  Γá¬,  τΓ« ½Ñú¬« «íαáíáΓδóáÑΓ µÑ½δÑ τ¿ß½á,  ¡« ΓαáΓ¿Γ
  11. º¡áτ¿Γѽ∞¡« í«½∞ΦÑ óαѼѡ¿  ¿  πß¿½¿⌐  ¡á  «íαáí«Γ¬π  óÑΘÑßΓóÑ¡¡δσ.
  12. ùΓ«íδ  π½πτΦ¿Γ∞  »α«¿ºó«ñ¿Γѽ∞¡«ßΓ∞  «íαáí«Γ¬¿  óÑΘÑßΓóÑ¡¡δσ τ¿ßѽ,
  13. ßπΘÑßΓóπÑΓ ¼áΓѼáΓ¿τÑ߬¿⌐ ß«»α«µÑßß«α 8087.
  14.      æ«»α«µÑßß«α 8087   -   φΓ«   ß»Ñµ¿á½∞¡δ⌐  á»»áαáΓ¡δ⌐  τ¿ß½«ó«⌐
  15. »α«µÑßß«α,  ¬«Γ«αδ⌐  ¼«ªÑΓ  íδΓ∞  πßΓá¡«ó½Ñ¡  ó  éáΦπ  ¼áΦ¿¡π.   Ä¡
  16. óδ»«½¡∩ÑΓ  «»Ñαᵿ¿  ß  »½áóáεΘÑ⌐  Γ«τ¬«⌐  «τÑ¡∞  íδßΓα«,  Ñß½¿  óδ
  17. ¿ß»«½∞ºπÑΓÑ  ¼¡«ú«  Γᬿσ  óδτ¿ß½Ñ¡¿⌐,  óá¼,  óÑα«∩Γ¡«,   ¡Ñ«íσ«ñ¿¼
  18. ß«»α«µÑßß«α.
  19.      Turbo Pascal  «íÑß»Ñτ¿óáÑΓ  «»Γ¿¼á½∞¡πε  »α«¿ºó«ñ¿Γѽ∞¡«ßΓ∞  ß
  20. »½áóáεΘÑ⌐ Γ«τ¬«⌐ ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, ÑßΓ∞ π óáß 8087 ¿½¿ ¡ÑΓ.
  21.  
  22.      - ä½∩  »α«úαá¼¼,  αáí«ΓáεΘ¿σ  ¡á  ½εíδσ  ¥éî (ß 8087 ¿½¿ íѺ),
  23. Turbo Pascal «íÑß»Ñτ¿óáÑΓ Γ¿» real ¿ í¿í½¿«ΓÑ¬π  »α«úαá¼¼,  ¬«Γ«αá∩
  24. «íαáíáΓδóáÑΓ óÑΘÑßΓóÑ¡¡δÑ «»Ñαᵿ¿. Æ¿» real ºá¡¿¼áÑΓ 6 íá⌐Γ »á¼∩Γ¿
  25. ¿ «íÑß»Ñτ¿óáÑΓ ñ¿á»áº«¡ «Γ 2.9x(10** -39) ñ« 1.7x(10**38) ß  11-ε -
  26. 12-ε  º¡áτáΘ¿¼¿ µ¿ΣαἿ.  Åα«úαá¼¼¡á∩ í¿í½¿«ΓѬá ß »½áóáεΘÑ⌐ Γ«τ¬«⌐
  27. «»Γ¿¼¿º¿α«óá¡á »«  ß¬«α«ßΓ¿  ¿  αẼÑαπ,  »α¿í½¿ªá∩ß∞  ó  ¡Ñ¬«Γ«αδσ
  28. »α¿¼Ñ¡Ñ¡¿∩σ r ó«º¼«ª¡«ßΓ∩¼, «íÑß»Ñτ¿óáÑ¼δ¼ 8087.
  29.  
  30.      - àß½¿  óá¼ ΓαÑíπÑΓß∩ ñ«»«½¡¿Γѽ∞¡á∩ Γ«τ¡«ßΓ∞ ¿ ú¿í¬«ßΓ∞ 8087,
  31. óδ ¼«ªÑΓÑ ¿¡ßΓαπ¬Γ¿α«óáΓ∞ Turbo Pascal,  úÑ¡Ñα¿α«óáΓ∞ ¬«ñ,  ¬«Γ«αδ⌐
  32. ¿ß»«½∞ºπÑΓ  8087.  ¥Γ«  ñáÑΓ  óá¼  ñ«ßΓπ»  ¬ τÑΓδαѼ ñ«»«½¡¿Γѽ∞¡δ¼
  33. óÑΘÑßΓóÑ¡¡δ¼ Γ¿»á¼ (Single,  Double,  Extended ¿ Comp) ¿  αáßΦ¿α∩ÑΓ
  34. ñ¿á»áº«¡ «Γ   3.4x(10**-4951)  ñ«  1.1x(10**4932)  ß  19-ε  -  20-ε
  35. º¡áτáΘ¿¼¿ µ¿ΣαἿ.
  36.  
  37.      éδ »ÑαѬ½ετáÑΓÑ ¼Ñªñπ ñóπ¼∩ αẽ¿τ¡δ¼¿  ¼«ñѽ∩¼¿  óÑΘÑßΓóÑ¡¡δσ
  38. τ¿ßѽ,  ¿ß»«½∞ºπ∩  ñ¿αÑ¬Γ¿ó𠬫¼»¿½∩Γ«αá $N ¿½¿ ¬¡«»¬π 8087/80287 ó
  39. ñ¿á½«ú«ó«¼ «¬¡Ñ Options/Compiler.  ç¡áτÑ¡¿∩ »« π¼«½τá¡¿ε - {$N-}, ¿
  40. ó  φΓ«¼  ß«ßΓ«∩¡¿¿  ¬«¼»¿½∩Γ«α ¿ß»«½∞ºπÑΓ 6-¿ íá⌐Γ«óπε óÑΘÑßΓóÑ¡¡πε
  41. í¿í½¿«ΓѬπ, »«ºó«½∩∩ óá¼ αáí«ΓáΓ∞ Γ«½∞¬« ß »ÑαѼѡ¡δ¼¿ Γ¿»á Real. é
  42. ß«ßΓ«∩¡¿¿ {$N+} ¬«¼»¿½∩Γ«α úÑ¡Ñα¿απÑΓ ¬«ñ ñ½∩ 8087, «íÑß»Ñτ¿óá∩ éá¼
  43. »«óδΦÑ¡¡πε Γ«τ¡«ßΓ∞ ¿ ñ«ßΓπ» ¬ τÑΓδαѼ  ñ«»«½¡¿Γѽ∞¡δ¼ óÑΘÑßΓóÑ¡¡δ¼
  44. Γ¿»á¼.
  45.  
  46.      Åα¿¼Ñτá¡¿Ñ: è«úñá   »α«úαἼᠠ ¬«¼»¿½¿απÑΓß∩   ó  αѪ¿¼Ñ  N+,
  47. º¡áτÑ¡¿∩, ó«ºóαáΘáѼδÑ  óÑΘÑßΓóÑ¡¡δ¼¿  »α«úαἼἿ  ¼«ñπ½∩   System
  48. (Sqrt, Pi, Sin ¿ Γ.ñ.) íπñÑΓ Γ¿»á Extended ó¼ÑßΓ« Real:
  49.  
  50.      {$N+}
  51.      begin
  52.         WriteLn(Pi);  {3.14159265358979}
  53.      end.
  54.  
  55.      {$N-}
  56.      begin
  57.         WriteLn(Pi);  {3.1415926536}
  58.      end.
  59.  
  60.      äáªÑ Ñß½¿  ¡á  éáΦÑ⌐  ¥éî  ¡ÑΓ  8087,  óδ ¼«ªÑΓÑ π¬áºáΓ∞ Turbo
  61. Pascal »«ñ¬½ετ¿Γ∞ í¿í½¿«ΓѬπ, ¬«Γ«αá∩ φ¼π½¿απÑΓ ß«»α«µÑßß«α. é φΓ«¼
  62. ß½πτáÑ, Ñß½¿ 8087 ßπΘÑßΓóπÑΓ - «¡ ¿ß»«½∞ºπÑΓß∩. àß½¿ ¡Ñ ßπΘÑßΓóπÑΓ,
  63. «¡ φ¼π½¿απÑΓß∩ »α«úαá¼¼¡«⌐ í¿í½¿«ΓѬ«⌐,  τΓ« º¡áτ¿Γѽ∞¡« ¼Ññ½Ñ¡¡ÑÑ.
  64.      ä¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá  $E ¿ ¬¡«»¬á Emulation ó ñ¿á½«ú«ó«¼ «¬¡Ñ
  65. Options/Compiler  ¿ß»«½∞ºπÑΓß∩  ñ½∩   αáºαÑΦÑ¡¿∩   ¿½¿   ºá»αÑΘÑ¡¿∩
  66. φ¼π½∩µ¿¿ 8087.  ç¡áτÑ¡¿Ñ  »«  π¼«½τá¡¿ε  - $à+.  ê ó φΓ«¼ ß«ßΓ«∩¡¿¿
  67. »«½¡δ⌐  φ¼π½∩Γ«α  8087  áóΓ«¼áΓ¿τÑ߬¿  »«ñ¬½ετáÑΓß∩  ¬   »α«úαá¼¼Ñ,
  68. ¬«Γ«αá∩ ¿ß»«½∞ºπÑΓ  8087.  é ß«ßΓ«∩¡¿¿ $E- ¿ß»«½∞ºπÑΓß∩ º¡áτ¿Γѽ∞¡«
  69. ¼Ñ¡∞Φá∩ í¿í½¿«ΓѬᠿ αѺπ½∞Γ¿απεΘ¿⌐ .EXE Σá⌐½ ¼«ªÑΓ αáí«ΓáΓ∞ Γ«½∞¬«
  70. ¡á ¥éî ß 8087.
  71.  
  72.      Åα¿¼Ñτá¡¿Ñ: ä¿αÑ¬Γ¿óá  $E  ¡Ñ  ¿¼ÑÑΓ  φΣΣѬΓá,  Ñß½¿  ßΓ«¿Γ  ó
  73. ¼«ñπ½Ñ,   «¡á   »α¿¼Ñ¡∩ÑΓß∩   Γ«½∞¬«   »α¿   ¬«¼»¿½∩µ¿¿   »α«úαá¼¼.
  74. æ½Ññ«óáΓѽ∞¡«,  Ñß½¿  »α«úαá¼¼á «Γ¬«¼»¿½¿α«óá¡á ó ß«ßΓ«∩¡¿¿ {$N-} ¿
  75. óßÑ ¼«ñπ½¿, ¿ß»«½∞ºπѼδÑ »α«úαá¼¼«⌐, ΓᬪѠ«Γ¬«¼»¿½¿α«óá¡δ ß {$N-},
  76. Γ« í¿í½¿«ΓѬá 8087 ¡Ñ »«ñ¬½ετáÑΓß∩ ¿ ñ¿αÑ¬Γ¿óá $E ¿ú¡«α¿απÑΓß∩.
  77.      äá½ÑÑ ó φΓ«⌐ ú½áóÑ «íßπªñáεΓß∩ ß»Ñµ¿á½∞¡δÑ ó«»α«ßδ, ¬áßáεΘ¿Ñß∩
  78. »α«úαá¼¼ ¡á Turbo Pascal, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓ 8087.
  79.  
  80.  
  81.                          Æ¿»δ ñá¡¡δσ 8087.
  82.  
  83.      ä½∩ »α«úαá¼¼,   ¬«Γ«αδÑ   ¿ß»«½∞ºπεΓ   8087,   Turbo    Pascal
  84. «íÑß»Ñτ¿óáÑΓ τÑΓδαÑ óÑΘÑßΓóÑ¡¡δσ Γ¿»á ó ñ«»«½¡Ñ¡¿Ñ ¬ Γ¿»π Rreal.
  85.  
  86.      - Æ¿»   Single   ¿¼ÑÑΓ   ¡á¿¼Ñ¡∞Φπε   ñ½¿¡π,   ¬«Γ«απε   ¼«ª¡«
  87. ¿ß»«½∞º«óáΓ∞ ñ½∩ óÑΘÑßΓóÑ¡¡«ú« τ¿ß½á.  Ä¡ ºá¡¿¼áÑΓ 4 íá⌐Γá  »á¼∩Γ¿,
  88. «íÑß»Ñτ¿óá∩ ñ¿á»áº«¡  «Γ 1.5x(10** -45) ñ« 3.4x(10**38) ß 7-ε - 8-ε
  89. º¡áτáΘ¿¼¿ µ¿ΣαἿ.
  90.  
  91.      - Æ¿» Double ºá¡¿¼áÑΓ 8 íá⌐Γ »á¼∩Γ¿,  «íÑß»Ñτ¿óá∩ ñ¿á»áº«¡  «Γ
  92. 5.0σ(10**  -324) ñ« 1.7σ(10** 308) ß 15-ε - 16-ε º¡áτáΘ¿¼¿ µ¿ΣαἿ.
  93.  
  94.      - Æ¿»  Extended - ¡á¿í«½∞Φ¿⌐ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿»,  »«ññÑনóáѼδ⌐
  95. 8087. Ä¡ ºá¡¿¼áÑΓ 10 íá⌐Γ »á¼∩Γ¿, «íÑß»Ñτ¿óá∩ ñ¿á»áº«¡ «Γ 3.4σ(10 *
  96. *  -4932) ñ« 1.1σ(10** 4932) ß 19-ε - 20-ε º¡áτáΘ¿¼¿ µ¿ΣαἿ. ïεíá∩
  97. áα¿Σ¼ÑΓ¿τÑ߬á∩ «»Ñαᵿ∩  ß  óÑΘÑßΓóÑ¡¡δ¼   Γ¿»«¼   »α«¿ºó«ñ¿Γß∩   ß
  98. ñ¿á»áº«¡«¼ ¿ Γ«τ¡«ßΓ∞ε Γ¿»á Extended.
  99.  
  100.      - Æ¿»  Comp  ß«σαá¡∩ÑΓ  µÑ½δÑ  º¡áτÑ¡¿∩  ó  8  íá⌐Γáσ  »á¼∩Γ¿,
  101. «íÑß»Ñτ¿óá∩ ñ¿á»áº«¡ «Γ -2 ** 63+1 ñ« 2 ** 63-1, τΓ« »α¿¼Ñα¡« αáó¡«
  102. «Γ -  9.2σ(10**18)  ñ« 9.2σ(10**18).  Comp ¼«ª¡« ßαáó¡¿Γ∞ ß LongInt
  103. ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿,  ¡« αáßß¼áΓα¿óáÑΓß∩ ¬á¬  óÑΘÑßΓóÑ¡¡δ⌐  Γ¿»  ¿º-ºá
  104. Γ«ú«,  τΓ«  óßÑ  «»Ñαᵿ¿  Comp  ¿ß»«½∞ºπεΓ  8087.  Comp πñ«íÑ¡ ñ½∩
  105. ¿ß»«½∞º«óá¡¿∩ ó φ¬«¡«¼¿τÑ߬¿σ αáßτÑΓáσ.
  106.  
  107.      é ¡Ñºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«,  ÑßΓ∞ ½¿ 8087 ¿½¿ ¡ÑΓ,  6-Γ¿ íá⌐Γ«óδ⌐
  108. Γ¿» Real ñ«ßΓπ»Ñ¡ óßÑúñá, ΓᬠτΓ« óá¼ ¡Ñ »«ΓαÑíπÑΓß∩ ¼«ñ¿Σ¿µ¿α«óáΓ∞
  109. ¿ßσ«ñ¡δ⌐ ¬«ñ ñ½∩ ¿ß»«½∞º«óá¡¿∩ 8087.  éδ ¼«ªÑΓÑ óßÑúñá τ¿ΓáΓ∞ Σá⌐½δ
  110. ß  ñá¡¡δ¼¿,  ßúÑ¡Ñα¿α«óá¡¡δ¼¿ »α«úαá¼¼«⌐,  ó ¬«Γ«α«⌐ ¿ß»«½∞º«óá½áß∞
  111. »α«úαá¼¼¡á∩ í¿í½¿«ΓѬá óÑΘÑßΓóÑ¡¡δσ τ¿ßѽ.
  112.      çá¼ÑΓ¿¼ «ñ¡á¬«,  τΓ«  8087  «íαáíáΓδóáÑΓ  »ÑαѼѡ¡δÑ Γ¿»á Real
  113. º¡áτ¿Γѽ∞¡« ¼Ññ½Ñ¡¡ÑÑ,  τѼ ñαπú¿Ñ Γ¿»δ. ¥Γ« »α«¿ßσ«ñ¿Γ ¿º-ºá Γ«ú«,
  114. τΓ«  8087  ¡Ñ  ¼«ªÑΓ  »α∩¼« «íαáíáΓδóáΓ∞ Σ«α¼áΓ Real.  é¼ÑßΓ« φΓ«ú«
  115. óδºδóáÑΓß∩  »α«úαá¼¼á,  »αÑ«íαáºπεΘá∩  º¡áτÑ¡¿Ñ  Γ¿»á  Real  ó  Γ¿»
  116. Extended  ñ«  «»Ñαᵿ¿  ¡áñ  ¡¿¼.  àß½¿  Bδ  σ«Γ¿ΓÑ  «»Γ¿¼¿º¿α«óáΓ∞
  117. ߬«α«ßΓ∞ óδ»«½¡Ñ¡¿∩ ¿ ¡¿¬«úñá ¡Ñ íπñÑΓÑ ¿ß»«½∞º«óáΓ∞ ¥éî  íѺ 8087,
  118. óá¼ ½πτΦÑ ¿ß»«½∞º«óáΓ∞ Γ«½∞¬« Γ¿»δ Single, Double, Extended ¿ Comp.
  119.  
  120.  
  121.                       ÉáßΦ¿αÑ¡¡á∩ áα¿Σ¼ÑΓ¿¬á.
  122.  
  123.      Æ¿» Extended ∩ó½∩ÑΓß∩ «ß¡«ó«⌐ ñ½∩ óßÑσ óδτ¿ß½Ñ¡¿⌐  ß »½áóáεΘÑ⌐
  124. Γ«τ¬«⌐  ñ½∩  8087.  Turbo  Pascal  ¿ß»«½∞ºπÑΓ  Σ«α¼áΓ  Extended ñ½∩
  125. σαá¡Ñ¡¿∩ óßÑσ óÑΘÑßΓóÑ¡¡δ󠬫¡ßΓá¡Γ ¿  óδτ¿ß½∩ÑΓ  óßÑ  óÑΘÑßΓóÑ¡¡δÑ
  126. óδαáªÑ¡¿∩,  ¿ß»«½∞ºπ∩ Γ«τ¡«ßΓ∞ Extended.  Æᬠ¡á»α¿¼Ñα,  óß∩ »αáóá∩
  127. τáßΓ∞  ß½ÑñπεΘÑú«  «»ÑαáΓ«αá,  íπñÑΓ  óδτ¿ß½∩Γ∞ß∩  ó  Extended   ñ«
  128. »αÑ«íαẫóá¡¿∩ ó Γ¿» ½Ñó«⌐ τáßΓ¿:
  129.  
  130.      {$N+}
  131.      var
  132.         X, A, B, C: Real;
  133.      begin
  134.         X := (B + Sqrt(B * B - A * C)) / A;
  135.      end;
  136.  
  137.      üѺ ß»Ñµ¿á½∞¡δσ πß¿½¿⌐ »α«úαá¼¼¿ßΓá Turbo  Pascal «íÑß»Ñτ¿óáÑΓ
  138. óδτ¿ß½Ñ¡¿∩,   ¿ß»«½∞ºπ∩   Γ«τ¡«ßΓ∞   ¿   ñ¿á»áº«¡   Γ¿»á  Extended.
  139. ä«»«½¡¿Γѽ∞¡á∩  Γ«τ¡«ßΓ∞  «º¡áτáÑΓ  ¼Ñ¡∞Φπε  «Φ¿í¬π  «¬απú½Ñ¡¿∩,  ¿
  140. ñ«»«½¡¿Γѽ∞¡δ⌐  ñ¿á»áº«¡ «º¡áτáÑΓ í«½ÑÑ αÑñ¬¿Ñ «Φ¿í¬¿ »ÑαÑ»«½¡Ñ¡¿∩.
  141.      éδ ¼«ªÑΓÑ π½πτΦ¿Γ∞ áóΓ«¼áΓ¿τÑ߬«Ñ ¿ß»«½∞º«óá¡¿Ñ Extended Turbo
  142. Pascal.  ìá»α¿¼Ñα,  óδ  ¼«ªÑΓÑ  «íΩ∩ó¿Γ∞  »ÑαѼѡ¡δÑ Γ¿»á Extended,
  143. ¿ß»«½∞ºπѼδÑ  ñ½∩  »α«¼ÑªπΓ«τ¡δσ  αѺπ½∞ΓáΓ«ó.   æ½ÑñπεΘ¿⌐   »α¿¼Ñα
  144. óδτ¿ß½∩ÑΓ ßπ¼¼π:
  145.  
  146.      var
  147.         Sum: Single;
  148.         X, Y: array[1..100] of Single;
  149.         I: Integer;
  150.         T: Extended;        {ñ½∩ »α«¼ÑªπΓ«τ¡«ú« αѺπ½∞ΓáΓá}
  151.      begin
  152.         T := 0.0;
  153.         for I := 1 to 100 do
  154.            T := T + X[I] * Y[I];
  155.         Sum := T;
  156.      end;
  157.  
  158.      àß½¿ íδ Æ íδ½á «íΩ∩ó½Ñ¡á ¬á¬ Single,  Γ« ¬áªñ«Ñ »α¿ßóá¿óá¡¿Ñ T
  159. 󠵿¬½Ñ ñáóὫ íδ «Φ¿í¬π  «¬απú½Ñ¡¿∩  ¿º-ºá  «úαá¡¿τÑ¡¡«⌐  Γ«τ¡«ßΓ¿
  160. Single. ì«   Γᬠ ¬á¬  Æ  -  Extended,  Γ«  óßÑ  «Φ¿í¬¿  «¬απú½Ñ¡¿∩
  161. «úαá¡¿τÑ¡δ Γ«τ¡«ßΓ∞ε Extended ºá ¿ß¬½ετÑ¡¿Ñ¼ »α¿ßóá¿óá¡¿∩ T  ó Sum.
  162. îÑ¡∞Φá∩ «Φ¿í¬á «¬απú½Ñ¡¿∩ «º¡áτáÑΓ í«½ÑÑ Γ«τ¡δ⌐ αѺπ½∞ΓáΓ.
  163.      éδ ¼«ªÑΓÑ ΓᬪѠ «íΩ∩ó¿Γ∞  Σ«α¼á½∞¡δÑ  »áαá¼ÑΓαδ  ¿  αѺπ½∞ΓáΓ
  164. Σπ¡¬µ¿⌐    Γ¿»á    Extended.    ¥Γ«   »αÑñ«ΓóαáΘáÑΓ   ¡Ñ«íσ«ñ¿¼«ßΓ∞
  165. »αÑ«íαẫóá¡¿∩ ¼Ñªñπ τ¿ß½«ó묨 Σ«α¼áΓἿ,  τΓ« ¼«ú½« íδ »α¿óÑßΓ¿  ¬
  166. »«ΓÑαÑ Γ«τ¡«ßΓ¿. ìá»α¿¼Ñα:
  167.  
  168.      function Area(Radius: Extended): Extended;
  169.      begin
  170.         Area := Pi * Radius * Radius;
  171.      end;
  172.  
  173.  
  174.  
  175.                    æαáó¡Ñ¡¿Ñ óÑΘÑßΓóÑ¡¡δσ Γ¿»«ó.
  176.  
  177.      Å«ß¬«½∞¬π óÑΘÑßΓóÑ¡¡δÑ  Γ¿»δ   ∩ó½∩εΓß∩   á»»α«¬ß¿¼¿α«óá¡¡δ¼¿,
  178. αѺπ½∞ΓáΓ  ßαáó¡Ñ¡¿∩  ñóπσ  αẽ¿τ¡δσ  óÑΘÑßΓóÑ¡¡δσ Γ¿»«ó ¡Ñ óßÑúñá
  179. «τÑó¿ñÑ¡. ìá»α¿¼Ñα, Ñß½¿ X - »ÑαѼѡ¡á∩ Γ¿»á Single, á Y »ÑαѼѡ¡á∩
  180. Γ¿»á Double, Γ« ß½ÑñπεΘ¿Ñ «»ÑαáΓ«αδ íπñπΓ ñáóáΓ∞ False :
  181.  
  182.      X := 1/3;
  183.      Y := 1/3;
  184.      Writeln( X = Y);
  185.  
  186.      ¥Γ« »α«¿ßσ«ñ¿Γ ¿º-ºá Γ«ú«,  τΓ« X ¿¼ÑÑΓ Γ«τ¡«ßΓ∞ 7 - 8 µ¿Σα, á
  187. Y - 15 - 16 ;  ¿ ¬«úñá «íÑ  »αÑ«íαáºπεΓß∩  ó  Extended,  «¡¿  ¿¼ÑεΓ
  188. «Γ½¿τ¿Ñ »«ß½Ñ 7 - 8 µ¿Σα. Ç¡á½«ú¿τ¡«, «»ÑαáΓ«αδ
  189.  
  190.      X := 1/3;
  191.      Writeln( X = 1/3);
  192.  
  193.      íπñπΓ óδñáóáΓ∞ False »«ß¬«½∞¬π αѺπ½∞ΓáΓ 1/3 ó  WriteLn  íπñÑΓ
  194. óδτ¿ß½∩Γ∞ß∩ ß 20-ε º¡áτáΘ¿¼¿ µ¿ΣαἿ.
  195.  
  196.  
  197.                        æΓѬ óδτ¿ß½Ñ¡¿∩ 8087.
  198.  
  199.      8087 ¿¼ÑÑΓ  ó¡πΓαÑ¡¡¿⌐  ßΓѬ  ú½πí¿¡«⌐  8  πα«ó¡Ñ⌐.  ä«ßΓπ»  ¬
  200. º¡áτÑ¡¿ε  ó  ßΓѬѠ 8087  ¼¡«ú« íδßΓαÑÑ,  τѼ ñ«ßΓπ» ¬ »ÑαѼѡ¡«⌐ ó
  201. »á¼∩Γ¿. ùΓ«íδ ñ«ßΓ¿τ∞ ¡á¿í«½∞ΦÑ⌐ »α«¿ºó«ñ¿Γѽ∞¡«ßΓ¿,  Turbo  Pascal
  202. ¿ß»«½∞ºπÑΓ ßΓѬ 8087 ñ½∩ σαá¡Ñ¡¿∩ óαѼѡ¡δσ αѺπ½∞ΓáΓ«ó.
  203.      ÆÑ«αÑΓ¿τÑ߬¿, «τÑ¡∞  ß½«ª¡δÑ  óÑΘÑßΓóÑ¡¡δÑ   óδαáªÑ¡¿∩   ¼«úπΓ
  204. »α¿óÑßΓ¿   ¬  »ÑαÑ»«½¡Ñ¡¿ε  ßΓѬá.  Äñ¡á¬«,  φΓ«ú«  ¡Ñ  »α«¿ßσ«ñ¿Γ,
  205. »«ß¬«½∞¬π  φΓ«  ΓαÑíπÑΓ,  τΓ«íδ  óδαáªÑ¡¿Ñ  úÑ¡Ñα¿α«óὫ  í«½ÑÑ   8
  206. »α«¼ÑªπΓ«τ¡δσ αѺπ½∞ΓáΓ«ó.
  207.      Ä»áß¡«ßΓ∞ ºá¬½ετáÑΓß∩ ó ó맮óÑ αѬπαß¿ó¡δσ Σπ¡¬µ¿⌐. àß½¿ ΓᬿÑ
  208. ¬«¡ßΓαπ¬µ¿¿ ¡á»¿ßá¡δ ¡Ñ¬«ααÑ¬Γ¡«, «¡¿ ¼«úπΓ »α¿óÑßΓ¿ ¬ »ÑαÑ»«½¡Ñ¡¿ε
  209. ßΓѬá 8087.
  210.       Éáßß¼«Γα¿¼ ß½ÑñπεΘπε   »α«µÑñπαπ,   ¬«Γ«αá∩  óδτ¿ß½∩ÑΓ  τ¿ß½á
  211. ö¿í«¡áττ¿, ¿ß»«½∞ºπ∩ αѬπαß¿ε.
  212.  
  213.      function Fib(N: Integer): Extended;
  214.      begin
  215.         if N = 0 then
  216.            Fib := 0.0
  217.         else
  218.            if N = 1 then
  219.               Fib := 1.0
  220.            else
  221.               Fib := Fib(N - 1) + Fib(N - 2);
  222.      end;
  223.  
  224.      é맮ó φΓ«⌐ óÑαß¿¿ Fib íπñÑΓ  »α¿ó«ñ¿Γ∞  ¬  »ÑαÑ»«½¡Ñ¡¿ε  ßΓѬá
  225. 8087  »α¿  N  >  8.  ¥Γ«  »α«¿ßσ«ñ¿Γ  ¿º-ºá  Γ«ú«,  τΓ«  óδτ¿ß½Ñ¡¿Ñ
  226. »«ß½Ññ¡Ñú«  »α¿ßóá¿óá¡¿∩  ΓαÑíπÑΓ  ß«σαá¡¿Γ∞  ó   ßΓѬѠ  αѺπ½∞ΓáΓ
  227. Fib(N-1).  èáªñδ⌐  αѬπαß¿ó¡δ⌐  ó맮ó  íπñÑΓ  ß«σαá¡∩Γ∞  º¡áτÑ¡¿∩ ó
  228. ßΓѬÑ,  »α¿ó«ñ∩  ¬  »ÑαÑ»«½¡Ñ¡¿ε   ¡á   9-«¼   ó맮óÑ.   è«ααÑ¬Γ¡á∩
  229. ¬«¡ßΓαπ¬µ¿∩ ñ«ª¡á íδΓ∞
  230.  
  231.           function Fib(N: Integer): Extended;
  232.           var F1, F2: Extended;
  233.           begin
  234.              if N = 0 then
  235.                 Fib := 0.0
  236.              else
  237.                 if N = 1 then
  238.                    Fib := 1.0
  239.                 else
  240.                 begin
  241.                    F1 := Fib(N - 1);
  242.                    F2 := Fib(N - 2);
  243.                    Fib := F1 + F2;
  244.                 end;
  245.           end;
  246.  
  247.      éαѼѡ¡δÑ αѺπ½∞ΓáΓδ   ßÑ⌐τáß   ºá»«¼¿¡áεΓß∩   ó   »ÑαѼѡ¡δσ,
  248. αáß»αÑñѽѡ¡δσ ó ßΓѬѠ8086.  (æΓѬ 8086,  ¬«¡Ñτ¡« Γ«ªÑ ¼«ªÑΓ  íδΓ∞
  249. »ÑαÑ»«½¡Ñ¡,  ¡«  φΓ«  «íδτ¡« ΓαÑíπÑΓ º¡áτ¿Γѽ∞¡« í«½∞ΦÑ αѬπαß¿ó¡δσ
  250. ó맮ó«ó).
  251.  
  252.  
  253.                  éδó«ñ óÑΘÑßΓóÑ¡¡δσ τ¿ßѽ ß 8087.
  254.  
  255.      é ß«ßΓ«∩¡¿¿   {$N+}  ßΓá¡ñáαΓ¡δÑ  »α«µÑñπαδ  Write  ¿  WriteLn
  256. óδó«ñ∩Γ 4 µ¿Σαδ ó¼ÑßΓ« 2 ñ½∩ φ¬ß»«¡Ñ¡Γδ τ¿ß½á ß  »½áóáεΘÑ⌐  Γ«τ¬«⌐,
  257. τΓ«íδ   «íÑß»Ñτ¿Γ∞   ñ¿á»áº«¡   ñ½∩   Γ¿»á  àxtended.  èα«¼Ñ  Γ«ú«,
  258. ßΓá¡ñáαΓ¡á∩ »α«µÑñπαá Str  ó«ºóαáΘáÑΓ  4  µ¿Σαδ  φ¬ß»«¡Ñ¡Γδ,  ¬«úñá
  259. óδíαá¡ óÑΘÑßΓóÑ¡¡δ⌐ Σ«α¼áΓ.
  260.  
  261.  
  262.                     î«ñπ½¿, ¿ß»«½∞ºπεΘ¿Ñ 8087.
  263.  
  264.      î«ñπ½¿, ¬«Γ«αδÑ  ¿ß»«½∞ºπεΓ  8087,  ¼«úπΓ  íδΓ∞   ¿ß»«½∞º«óá¡δ
  265. Γ«½∞¬«  ΓѼ¿  ¼«ñπ½∩¼¿  ¿  »α«úαἼἿ,  ¬«Γ«αδÑ  «Γ¬«¼»¿½¿α«óá¡δ ó
  266. ß«ßΓ«∩¡¿¿ {$N+}.
  267.      Ä»αÑñѽѡ¿Ñ, íπñÑΓ  ½¿  ¼«ñπ½∞  ¿ß»«½∞º«óáΓ∞ 8087,  ºáó¿ß¿Γ «Γ
  268. Γ«ú«,  ß«ñÑαª¿Γ ½¿ «¡ ¿¡ßΓαπ¬µ¿¿  8087,  á  ¡Ñ  «Γ  Γ«ú«,  ó  ¬á¬«¼
  269. ß«ßΓ«∩¡¿¿  ¡áσ«ñ¿Γß∩  ñ¿αÑ¬Γ¿óá  $N  ó«  óαѼ∩ Ñú« ¬«¼»¿½∩µ¿¿.  ¥Γ«
  270. ñѽáÑΓ ¬«¼»¿½∩Γ«α í«½ÑÑ "ºáíδóτ¿óδ¼" ó ß½πτáÑ,  ¬«úñá  óδ  ß½πτá⌐¡«
  271. ¬«¼»¿½¿απÑΓÑ ¼«ñπ½∞ (¬«Γ«αδ⌐ ¡Ñ ¿ß»«½∞ºπÑΓ 8087) ó {$N+}.
  272.  
  273.      Åα¿¼Ñτá¡¿Ñ: è«úñá   éδ   ¬«¼»¿½¿απÑΓÑ   ó  ß«ßΓ«∩¡¿¿  τ¿ß½«ó«⌐
  274. «íαáí«Γ¬¿, {$N+} ó«ºóαáΘáѼ«Ñ º¡áτÑ¡¿Ñ »α«úαá¼¼ ß  »½áóáεΘÑ⌐ Γ«τ¬«⌐
  275. 󠼫ñπ½Ñ System - Sqrt,  Pi,  Sin ¿ Γ.ñ. íπñπΓ Γ¿»á Extended ó¼ÑßΓ«
  276. Real.
  277.  
  278.  
  279.                          Äí¡áαπªÑ¡¿Ñ 8087.
  280.  
  281.      ü¿í½¿«ΓѬá 8087  Turbo  Pascal,  óßΓα«Ñ¡¡á∩  ó  éáΦπ »α«úαá¼¼π
  282. (¬«¼»¿½¿α«óá¡¡πε  ß  {$N+})  ó¬½ετáÑΓ  ¬«ñ,  ¬«Γ«αδ⌐  áóΓ«¼áΓ¿τÑ߬¿
  283. «»αÑñѽ∩ÑΓ  ¡á½¿τ¿Ñ 8087.  àß½¿ 8087 »α¿ßπΓßΓóπÑΓ - »α«úαá¼¼á íπñÑΓ
  284. Ñú« ¿ß»«½∞º«óáΓ∞.  àß½¿ Ñú« ¡ÑΓ,  Γ« »α«úαἼᠠíπñÑΓ  ¿ß»«½∞º«óáΓ∞
  285. í¿í½¿«ΓÑ¬π   φ¼π½∩µ¿¿.   àß½¿   »α«úαἼᠠíδ½á  «Γ¬«¼»¿½¿α«óá¡á  ó
  286. ß«ßΓ«∩¡¿¿  {$E-}  ¿  8087  ¡Ñ  «í¡áαπªÑ¡,  Γ«   »α«úαἼᠠ óδñáÑΓ:
  287. "ÆαÑíπÑΓß∩ ß«»α«µÑßß«α"    ("Numeric   coprocessor   required")   ¿
  288. ºáóÑαΦáÑΓß∩.
  289.      üδóáεΓ ß½πτá¿,    ¬«úñá    éá¼    ¡Ñ«íσ«ñ¿¼«    «Γ¼Ñ¡¿Γ∞   φΓ«
  290. áóΓ««í¡áαπªÑ¡¿Ñ. ìá»α¿¼Ñα,  óáΦá ¥éî ¼«ªÑΓ ¿¼ÑΓ∞ 8087, ¡« éδ σ«Γ¿ΓÑ
  291. »α«óÑα¿Γ∞,  ¬á¬  íπñÑΓ  αáí«ΓáΓ∞ éáΦá »α«úαἼᠡᠼáΦ¿¡Ñ íѺ 8087.
  292. 꽿 éáΦÑ⌐ »α«úαἼѠ¡πª¡«  αáí«ΓáΓ∞  ¡á  PC  -  ß«ó¼ÑßΓ¿¼δσ  ¥éî  ¿
  293. ¬á¬¿Ñ-Γ« ¿º    ¡¿σ    ó«ºóαáΘáεΓ    ¡Ñ¬«ααÑ¬Γ¡«Ñ    º¡áτÑ¡¿Ñ    »α¿
  294. áóΓ««í¡áαπªÑ¡¿¿ (߬áªÑ¼,  τΓ« 8087 »α¿ßπΓßΓóπÑΓ, ¬«úñá Ñú« ¡ÑΓ, ¿½¿
  295. ¡á«í«α«Γ).
  296.      Turbo Pascal     «íÑß»Ñτ¿óáÑΓ     ó«º¼«ª¡«ßΓ∞    ñ½∩    «Γ¼Ñ¡δ
  297. áóΓ««í¡áαπªÑ¡¿∩. ¥Γ« ñѽáÑΓß∩ ß »«¼«Θ∞ε »ÑαѼѡ¡«⌐ 87 ßαÑñδ DOS.
  298.      éδ πßΓá¡áó½¿óáÑΓÑ  º¡áτÑ¡¿Ñ  »ÑαѼѡ¡«⌐  87  «Γ »«ñ߬Ậ¿ DOS,
  299. ¿ß»«½∞ºπ∩ ¬«¼á¡ñπ SET:
  300.  
  301.      SET 87 = Y
  302.  
  303.      ¿½¿
  304.  
  305.      SET 87 = N
  306.  
  307.      ôßΓá¡áó½¿óá∩ »ÑαѼѡ¡πε  ßαÑñδ  87  ó  N,  éδ  ú«ó«α¿ΓÑ  Turbo
  308. Pascal,  τΓ« ¡Ñ σ«Γ¿ΓÑ ¿ß»«½∞º«óáΓ∞ 8087, ñáªÑ Ñß½¿ «¡ ÑßΓ∞ ¡á ¥éî.
  309. æ««ΓóÑΓßΓóÑ¡¡«,  »α¿ßóá¿óá¡¿Ñ »ÑαѼѡ¡«⌐  87  =  Y,  «º¡áτáÑΓ,  τΓ«
  310. ß«»α«µÑßß«α ÑßΓ∞ ¿ éδ σ«Γ¿ΓÑ ¿ß»«½∞º«óáΓ∞ Ñú«.
  311.  
  312.      éìêîÇìêà! àß½¿  éδ πßΓᡫ󿽿 87 = Y ,  á 8087 ¡ÑΓ ¡á ¥éî,  Γ«
  313. óδ»«½¡Ñ¡¿Ñ éáΦÑ⌐ »α«úαá¼¼δ »α¿óÑñÑΓ ¬ áóáα¿⌐¡«¼π ºáóÑαΦÑ¡¿ε.
  314.  
  315.      àß½¿ »ÑαѼѡ¡á∩ 87  íδ½á  «»αÑñѽѡᠠ(½εí«Ñ  º¡áτÑ¡¿Ñ)  ¿  éδ
  316. σ«Γ¿ΓÑ «Γ¼Ñ¡¿Γ∞ Ñú«, óóÑñ¿ΓÑ
  317.  
  318.      SET 87 =
  319.  
  320. ¿ »«ß½Ñ φΓ«ú« ¡áª¼¿ΓÑ Enter.
  321.  
  322.      àß½¿ πßΓá¡«ó½Ñ¡« 87 = Y ¿½¿ Ñß½¿ áóΓ««í¡áαπªÑ¡¿Ñ πß»ÑΦ¡« ¡áΦ½«
  323. ß«»α«µÑßß«α,  Γ« ¬«ñ áóΓ««í¡áαπªÑ¡¿∩ «»αÑñѽ∩ÑΓ,  ¬á¬«⌐ ß«»α«µÑßß«α
  324. ¿ß»«½∞ºπÑΓß∩ (8087, 80287 ¿½¿ 80387).
  325.      ¥Γ« ¡Ñ«íσ«ñ¿¼« ñ½∩ Γ«ú«,  τΓ«íδ  Turbo  Pascal  ¼«ú  ¬«ααÑ¬Γ¡«
  326. «íαáíáΓδóáΓ∞  αẽ¿τ¿∩,  ¬«Γ«αδÑ ¿¼ÑεΓ φΓ¿ ß«»α«µÑßß«αδ.  ÉѺπ½∞ΓáΓ
  327. áóΓ««í¡áαπªÑ¡¿∩  ºá»¿ßδóáÑΓß∩  ó   »ÑαѼѡ¡πε   Test8087   (¬«Γ«αá∩
  328. «íΩ∩ó½Ñ¡á ó ¼«ñπ½Ñ System). Ä»αÑñѽѡδ ß½ÑñπεΘ¿Ñ º¡áτÑ¡¿∩ :
  329.  
  330. ────────────────────────────────────
  331.   ç¡áτÑ¡¿Ñ         Ä»¿ßá¡¿Ñ
  332. ────────────────────────────────────
  333.      0          ß«»α«µÑßß«αá ¡ÑΓ
  334.      1          «í¡áαπªÑ¡ 8087
  335.      2          «í¡áαπªÑ¡ 80287
  336.      3          «í¡áαπªÑ¡ 80387
  337. ────────────────────────────────────
  338.  
  339.      éáΦá »α«úαἼᠠ¼«ªÑΓ  »α«óÑα¿Γ∞  »ÑαѼѡ¡πε  Test8087,  τΓ«íδ
  340. «»αÑñѽ¿Γ∞  ¬«¡Σ¿úπαáµ¿ε  ¥éî.  é  τáßΓ¡«ßΓ¿,  Test8087  ¼«ªÑΓ íδΓ∞
  341. »α«óÑαÑ¡á  ñ½∩  Γ«ú«,  τΓ«íδ  «»αÑñѽ¿Γ∞  -  óÑΘÑßΓóÑ¡¡δÑ  «»Ñαᵿ¿
  342. φ¼π½¿απεΓß∩ ¿½¿ óδ»«½¡∩εΓß∩ ¡á»α∩¼πε.
  343.  
  344.  
  345.                     ¥¼π½∩µ¿∩ 8087 ó ÇßßѼí½ÑαÑ.
  346.  
  347.      è«úñá »«ñ¬½ετáÑΓß∩ «íΩÑ¬Γ¡δ⌐  Σá⌐½  (¿ß»«½∞ºπ∩  ñ¿αÑ¬Γ¿óπ  {$L
  348. filename}),   Γ«   ¡Ñ«íσ«ñ¿¼«,   τΓ«íδ   φëà «íΩÑ¬Γ¡δ⌐  Σá⌐½  íδ½
  349. «Γ¬«¼»¿½¿α«óá¡ ß φ¼π½∩µ¿Ñ⌐  8087.  ìá»α¿¼Ñα,  Ñß½¿  éδ  ¿ß»«½∞ºπÑΓÑ
  350. óÑΘÑßΓóÑ¡¡δÑ   «»Ñαᵿ¿   ó«   ó¡ÑΦ¡Ñ⌐   »α«µÑñπαÑ,  ¡á»¿ßá¡¡«⌐  ¡á
  351. ÇßßѼí½ÑαÑ,  Γ« ¡Ñ«íσ«ñ¿¼«, τΓ«íδ íδ½á ó¬½ετÑ¡á φ¼¼π½∩µ¿∩, ¬«úñá éδ
  352. áßßÑ¼í½¿απÑΓÑ Σá⌐½ .ASM ó Σá⌐½ .OBJ.  é »α«Γ¿ó¡«¼ ß½πτáÑ ¿¡ßΓαπ¬µ¿¿
  353. 8087 ¡Ñ ß¼«úπΓ íδΓ∞ φ¼π½¿α«óá¡δ ¡á ¼áΦ¿¡Ñ íѺ 8087.  ä½∩  ó¬½ετÑ¡¿∩
  354. φ¼π½∩µ¿¿ ¿ß»«½∞ºπ⌐ΓÑ «»µ¿ε /à Turbo Assembler.
  355.