home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / pas60pg.lzh / PG04.MY < prev    next >
Text File  |  1991-01-26  |  16KB  |  402 lines
  1.                              âïÇéÇ 4.
  2.  
  3.                             ÅàÉàîàìì¢à.
  4.  
  5.                       ÄíΩ∩ó½Ñ¡¿∩ »ÑαѼѡ¡δσ.
  6.  
  7.      ÄíΩ∩ó½Ñ¡¿Ñ »ÑαѼѡ¡δσ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ß»¿ß«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó,
  8. ¬«Γ«αδÑ «í«º¡áτáεΓ ¡«óδÑ »ÑαѼѡ¡δÑ ¿ ¿σ Γ¿»δ.
  9.  
  10. «íΩ∩ó½Ñ¡¿Ñ     ┌────────────┐   ┌─┐   ┌───┐                 ┌─┐
  11. »ÑαѼѡ¡«⌐ ───÷│ß»¿ß«¬ ¿ñÑ¡-├──÷│:├──÷│Γ¿»├─┬────────────┬─÷│;├──÷
  12.                │Γ¿Σ¿¬áΓ«α«ó │   └─┘   └───┘ │            │  └─┘
  13.                └────────────┘               │  ┌───────┐ │
  14.                                             └─÷│ñ¿αѬ- ├─┘
  15.                                                │Γ¿óá   │
  16.                                                │absolu-│
  17.                                                │te     │
  18.                                                └───────┘
  19.  
  20.      Æ¿», ºáñáóáѼδ⌐  ñ½∩  »ÑαѼѡ¡δσ,  ¼«ªÑΓ  íδΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼
  21. Γ¿»á, ¬«Γ«αδ⌐ íδ½ αá¡ÑÑ «íΩ∩ó½Ñ¡ ó αáºñѽѠ«íΩ∩ó½Ñ¡¿∩ Γ¿»«ó Γ«ú« ªÑ
  22. ßἫú« í½«¬á,  ¿½¿ í½«¬á, ó ¬«Γ«αδ⌐ óσ«ñ¿Γ »Ñαóδ⌐, ¿½¿ ¼«ñπ½∩; φΓ«Γ
  23. Γ¿» ΓᬠªÑ ¼«ªÑΓ íδΓ∞ ¡«óδ¼ «»αÑñѽѡ¿Ñ¼ Γ¿»á.
  24.      Åα¿ π¬áºá¡¿¿    ¿ñÑ¡Γ¿Σ¿¬áΓ«αá    ó   ß»¿ß¬Ñ   ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó
  25. «íΩ∩ó½Ñ¡¿∩ »ÑαѼѡ¡«⌐  φëà ¿ñÑ¡Γ¿Σ¿¬áΓ«α  -   φΓ«   ¿ñÑ¡Γ¿Σ¿¬áΓ«α
  26. »ÑαѼѡ¡«⌐ ó   í½«¬Ñ,   úñÑ  óßΓαÑΓ¿½«ß∞  φΓ«  «íΩ∩ó½Ñ¡¿Ñ.  è  φΓ«⌐
  27. »ÑαѼѡ¡«⌐ ¼«ª¡« «íαáΘáΓ∞ß∩ ¿º ½εí«ú« ¼ÑßΓá φΓ«ú«  í½«¬á,  Ñß½¿  ÑÑ
  28. ¿ñÑ¡Γ¿Σ¿¬áΓ«α   ¡Ñ   »ÑαÑ«»αÑñѽѡ  ó  í½«¬Ñ,  óσ«ñ∩ΘѼ  ó  »Ñαóδ⌐.
  29. ÅÑαÑ«»αÑñѽѡ¿Ñ «º¡áτáÑΓ, τΓ« ñ½∩ ¡«ó«⌐ »ÑαѼѡ¡«⌐ ¿ß»«½∞ºπÑΓß∩ Γ«Γ
  30. ªÑ  ßá¼δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α,  ¡« φΓ« ¿ß»«½∞º«óá¡¿Ñ ¡Ñ «¬áºδóáÑΓ ó½¿∩¡¿∩
  31. ¡á º¡áτÑ¡¿Ñ »Ñαó«¡áτá½∞¡«⌐ »ÑαѼѡ¡«⌐.
  32.      Åα¿óÑñѼ »α¿¼Ñα αáºñѽᠫíΩ∩ó½Ñ¡¿∩ »ÑαѼѡ¡δσ:
  33.  
  34.        var 
  35.          X, Y, Z    : Real; 
  36.          I, J, K    : Integer; 
  37.          Digit      : 0 .. 9; 
  38.          C          : Color; 
  39.          Done, Error: Boolean; 
  40.          Operator   : (Plus, Minus, Times); 
  41.          Hue1, Hue2 : set of Color; 
  42.          Today      : Date; 
  43.          Results    : MesureList; 
  44.          P1, P2     : Person; 
  45.          Matrix     : array[1 .. 10, 1 .. 10] of Real;
  46.  
  47.      ÅÑαѼѡ¡δÑ, «íΩ∩ó½Ñ¡¡δÑ ó¡Ñ »α«µÑñπαδ  ¿  Σπ¡¬µ¿¿,  ¡áºδóáεΓß∩
  48. ú½«íá½∞¡δ¼¿ »ÑαѼѡ¡δ¼¿ ¿   αáß»«½áúáεΓß∩    ó   ßÑú¼Ñ¡ΓÑ   ñá¡¡δσ.
  49. ÅÑαѼѡ¡δÑ,  «íΩ∩ó½Ñ¡¡δÑ ó ßἫ⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿,  ¡áºδóáεΓß∩
  50. ½«¬á½∞¡δ¼¿ »ÑαѼѡ¡δ¼¿ ¿ αáß»«½áúáεΓß∩ ó ßÑú¼Ñ¡ΓÑ ßΓѬá.
  51.  
  52.  
  53.                           æÑú¼Ñ¡Γ ñá¡¡δσ.
  54.  
  55.      îá¬ß¿¼á½∞¡δ⌐ αẼÑα ßÑú¼Ñ¡Γá  ñá¡¡δσ  αáóÑ¡  65520  íá⌐Γ.  Åα¿
  56. ¬«¼»á¡«ó¬Ñ  »α«úαá¼¼δ  (τΓ«  áóΓ«¼áΓ¿τÑ߬¿  «ßπΘÑßΓó½∩ÑΓß∩  ó ¬«¡µÑ
  57. ¬«¼»¿½∩µ¿¿   »α«úαá¼¼δ)   ú½«íá½∞¡δÑ   »ÑαѼѡ¡δÑ   óßÑσ   ¼«ñπ½Ñ⌐,
  58. ¿ß»«½∞ºπѼδσ »α«úαá¼¼«⌐,  á ΓᬪѠ߫íßΓóÑ¡¡δÑ ú½«íá½∞¡δÑ »ÑαѼѡ¡δÑ
  59. »α«úαá¼¼δ αẼÑΘáεΓß∩ ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ.
  60.      àß½¿ ñ½∩  ú½«íá½∞¡δσ »ÑαѼѡ¡δσ ΓαÑíπÑΓß∩ í«½ÑÑ 65520 íá⌐Γ, Γ«
  61. ß½ÑñπÑΓ  αáß»αÑñѽ¿Γ∞  í«½∞Φ¿Ñ  ßΓαπ¬Γπαδ   ó   ó¿ñÑ   ñ¿¡á¼¿τÑ߬¿σ
  62. »ÑαѼѡ¡δσ. äá½∞¡Ñ⌐ΦÑÑ  «»¿ßá¡¿Ñ  φΓ«⌐  ΓÑ¼δ  ¼«ª¡« ¡á⌐Γ¿ ó αáºñѽÑ
  63. "ô¬áºáΓѽ¿ ¿ ñ¿¡á¼¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ" ¡áßΓ«∩ΘÑ⌐ ú½áóδ.
  64.  
  65.  
  66.                            æÑú¼Ñ¡Γ ßΓѬá
  67.  
  68.      ÉẼÑα ßÑú¼Ñ¡Γá  ßΓѬᠠπßΓá¡áó½¿óáÑΓß∩  ß  »«¼«Θ∞ε  ñ¿αÑ¬Γ¿óδ
  69. ¬«¼»¿½∩Γ«αá $M ¿ ½Ñª¿Γ  ó  »αÑñѽáσ  «Γ  1024  ñ«  65520  íá⌐Γ.  Å«
  70. π¼«½τá¡¿ε αẼÑα ßΓѬá αáóÑ¡ 16384 íá⌐Γ.
  71.      Åα¿ ¬áªñ«⌐ á¬Γ¿ó¿ºáµ¿¿ (ó맮óÑ) »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿  ó  ßΓѬ
  72. »«¼ÑΘáÑΓß∩ ¡áí«α   ½«¬á½∞¡δσ   »ÑαѼѡ¡δσ.  Åα¿  ºáóÑαΦÑ¡¿¿  αáí«Γδ
  73. »á¼∩Γ∞,  ºá¡¿¼áѼá∩ ½«¬á½∞¡δ¼¿ »ÑαѼѡ¡δ¼¿,  «ßó«í«ªñáÑΓß∩. é ½εí«⌐
  74. ¼«¼Ñ¡Γ  óδ»«½¡Ñ¡¿∩  »α«úαá¼¼δ  «íΘ¿⌐  αẼÑα ½«¬á½∞¡δσ »ÑαѼѡ¡δσ ó
  75. á¬Γ¿ó¡δσ »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ ¡Ñ ñ«½ªÑ¡ »αÑóδΦáΓ∞ αẼÑαá ßÑú¼Ñ¡Γá
  76. ßΓѬá.
  77.      ä¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $S ¿ß»«½∞ºπÑΓß∩ ñ½∩  »α«óÑñÑ¡¿∩ »α«óÑ᫬
  78. »ÑαÑ»«½¡Ñ¡¿∩  ßΓѬᠠ󠠻α«úαá¼¼Ñ.  é ß«ßΓ«∩¡¿¿ {$S+},  »α¿¡∩Γ«¼ »«
  79. π¼«½τá¡¿ε,  úÑ¡Ñα¿απÑΓß∩ ¬«ñ,  «ßπΘÑßΓó½∩εΘ¿⌐ »α«óÑα¬π »ÑαÑ»«½¡Ñ¡¿∩
  80. ßΓѬᠠ󠠡áτá½Ñ  ¬áªñ«⌐  »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿.  é ß«ßΓ«∩¡¿¿ {$S-}
  81. ΓᬿѠ»α«óÑન ¡Ñ  »α«ó«ñ∩Γß∩.  ÅÑαÑ»«½¡Ñ¡¿Ñ  ßΓѬᠠ¼«ªÑΓ  óδºóáΓ∞
  82. áóáα¿⌐¡«Ñ  ºáóÑαΦÑ¡¿Ñ  αáí«Γδ ß¿ßΓѼδ,  »«φΓ«¼π ¡Ñ ß½ÑñπÑΓ «Γ¼Ñ¡∩Γ∞
  83. »α«óÑન  ßΓѬá,  Ñß½¿  ¡ÑΓ  áíß«½εΓ¡«⌐  πóÑαÑ¡¡«ßΓ¿  ó  Γ«¼,   τΓ«
  84. »ÑαÑ»«½¡Ñ¡¿∩ ¡Ñ »α«¿º«⌐ñÑΓ.
  85.  
  86.  
  87.                       Çíß«½εΓ¡δÑ »ÑαѼѡ¡δÑ.
  88.  
  89.      ÅÑαѼѡ¡δÑ ¼«ª¡« «»¿ßáΓ∞ Γá¬,  τΓ« «¡¿ íπñπΓ αáß»«½áúáΓ∞ß∩  »«
  90. «»αÑñѽѡ¡«¼π  áñαÑßπ  ó  »á¼∩Γ¿,  ¿  ó  φΓ«¼ ß½πτáÑ «¡¿ ¡áºδóáεΓß∩
  91. áíß«½εΓ¡δ¼¿  »ÑαѼѡ¡δ¼¿.  ÄíΩ∩ó½Ñ¡¿Ñ   Γá¬¿σ   »ÑαѼѡ¡δσ   ñ«½ª¡«
  92. ß«ñÑαªáΓ∞ ñ¿αÑ¬Γ¿óπ absolute:
  93.  
  94.  
  95. «íΩ∩ó½Ñ¡¿Ñ     ┌────────┐    ┌─────────┐   ┌─┐   ┌─────────┐
  96. áíß«½εΓ¡«⌐ ───÷│absolute├─┬─÷│µÑ½«Ñ íѺ├──÷│:├──÷│µÑ½«Ñ íѺ├─┬─÷
  97. »ÑαѼѡ¡«⌐     └────────┘ │  │ º¡á¬á   │   └─┘   │ º¡á¬á   │ │
  98.                           │  └─────────┘         └─────────┘ │
  99.                           │       ┌─────────────┐            │
  100.                           └──────÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├────────────┘
  101.                                   │  »ÑαѼѡ¡«⌐ │
  102.                                   └─────────────┘
  103.  
  104.  
  105.      ÄΓ¼ÑΓ¿¼ τΓ« ß»¿ß«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó ó «íΩ∩ó½Ñ¡¿¿ »ÑαѼѡ¡«⌐ »α¿
  106. π¬áºá¡¿¿ ñ¿αÑ¬Γ¿óδ   absolute   ¼«ªÑΓ   ß«ñÑαªáΓ∞    Γ«½∞¬«    «ñ¿¡
  107. ¿ñÑ¡Γ¿Σ¿¬áΓ«α.
  108.      ÅÑαóá∩ Σ«α¼á  ß  ñ¿αÑ¬Γ¿ó«⌐  absolute   ß«ñÑαª¿Γ   ßÑú¼Ñ¡Γ   ¿
  109. ß¼ÑΘÑ¡¿Ñ, Γ« ÑßΓ∞ áñαÑß, úñÑ ñ«½ª¡á íδΓ∞ αẼÑΘÑ¡á »ÑαѼѡ¡á∩.
  110.  
  111.      CrtMode : Byte absolute $0040 : $0049;
  112.  
  113.      ÅÑαóá∩ ¬«¡ßΓá¡Γá   «í«º¡áτáÑΓ   íẫóδ⌐   ßÑú¼Ñ¡Γ,   á  óΓ«αá∩
  114. «»αÑñѽ∩ÑΓ ß¼ÑΘÑ¡¿Ñ ó¡πΓα¿ φΓ«ú« ßÑú¼Ñ¡Γá.  ÄíÑ ¬«¡ßΓá¡Γδ ¡Ñ ñ«½ª¡δ
  115. óδσ«ñ¿Γ∞ ºá  »αÑñÑ½δ  ñ¿á»áº«¡á  «Γ $0000 ñ« $FFFF («Γ 0 ñ« 65535).
  116.      éΓ«αá∩ Σ«α¼á ß ñ¿αÑ¬Γ¿ó«⌐ absolute ¿ß»«½∞ºπÑΓß∩ ñ½∩ «íΩ∩ó½Ñ¡¿∩
  117. »ÑαѼѡ¡«⌐,  ¬«Γ«αá∩ »«¼ÑΘáÑΓß∩ "»«óÑασ" ñαπú«⌐ »ÑαѼѡ¡«⌐, Γ« ÑßΓ∞
  118. »« Γ«¼π ªÑ ßἫ¼π áñαÑßπ, τΓ« ¿ ñαπúá∩ »ÑαѼѡ¡á∩.
  119.  
  120.      var
  121.         Str    : String[32];
  122.         StrLen : Byte absolute Str;
  123.  
  124.      ¥Γ« «íΩ∩ó½Ñ¡¿Ñ  π¬áºδóáÑΓ,  τΓ«   »ÑαѼѡ¡á∩   StrLen   ñ«½ª¡á
  125. αẼÑΘáΓ∞ß∩  ß  Γ«ú« ªÑ áñαÑßá,  τΓ« ¿ »ÑαѼѡ¡á∩ Str,  á »«ß¬«½∞¬π
  126. »Ñαóδ⌐  íá⌐Γ  ßΓ᫬«ó«⌐  »ÑαѼѡ¡«⌐  ß«ñÑαª¿Γ  ñ¿¡á¼¿τÑ߬πε   ñ½¿¡π
  127. ßΓ᫬¿, Γ« StrLen íπñÑΓ ß«ñÑαªáΓ∞ ñ½¿¡π Str.
  128.  
  129.  
  130.                        æß佬¿ ¡á »ÑαѼѡ¡δÑ.
  131.  
  132.      æßδ½¬á ¡á »ÑαѼѡ¡πε ¼«ªÑΓ «í«º¡áτáΓ∞ ß½ÑñπεΘÑÑ:
  133.  
  134.      - »ÑαѼѡ¡πε;
  135.      - φ½Ñ¼Ñ¡Γ   »ÑαѼѡ¡«⌐ ßΓαπ¬Γπα¡«ú« ¿½¿ ßΓ᫬«ó«ú« Γ¿»á;
  136.      - ñ¿¡á¼¿τÑ߬πε »ÑαѼѡ¡πε, ¡á ¬«Γ«απε π¬áºδóáÑΓ »ÑαѼѡ¡á∩
  137.        Γ¿»á π¬áºáΓѽ∞.
  138.  
  139.      æ¿¡Γá¬ß¿ß ßß佬¿ ¡á »ÑαѼѡ¡πε ¿¼ÑÑΓ ó¿ñ:
  140.  
  141.  
  142.  
  143.                 ┌─────────────┐
  144. ßßδ½¬á ¡á  ─┬──÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├────────────────────────────┬──÷
  145. »ÑαѼѡ¡πε  │   │  »ÑαѼѡ¡«⌐ │      °  °  ┌────────────┐  │
  146.             │   └─────────────┘      │  └──┤¬óá½¿Σ¿¬áΓ«α│≈─┘
  147.             │   ┌───────────────┐    │     └────────────┘
  148.             ├──÷│»α¿óÑñÑ¡¿Ñ Γ¿»á├────┤
  149.             │   │  »ÑαѼѡ¡«⌐   │    │
  150.             │   └───────────────┘    │
  151.             │   ┌─────────────┐  ┌─┐ │
  152.             └──÷│ó맮ó Σπ¡¬µ¿¿├─÷│^├─┘
  153.                 └─────────────┘  └─┘
  154.  
  155.  
  156.      çá¼ÑΓ¿¼, τΓ«  ß¿¡Γá¬ß¿ß   ßß佬¿   ¡á   »ÑαѼѡ¡πε   ñ«»π߬áÑΓ
  157. ¿ß»«½∞º«óáΓ∞ ó맮ó Σπ¡¬µ¿¿ τÑαѺ π¬áºáΓѽ∞ ¡á Σπ¡¬µ¿ε. Å«½πτÑ¡¡δ⌐ ó
  158. αѺπ½∞ΓáΓÑ π¬áºáΓѽ∞ ºáΓѼ αế¼Ñ¡«óδóáÑΓß∩ ß ΓѼ, τΓ«íδ «í«º¡áτáΓ∞
  159. ñ¿¡á¼¿τÑ߬πε »ÑαѼѡ¡πε.
  160.  
  161.  
  162.                           èóá½¿Σ¿¬áΓ«αδ.
  163.  
  164.      æßδ½¬á ¡á   »ÑαѼѡ¡πε   »αÑñßΓáó½∩ÑΓ   ß«í«⌐    ¿ñÑ¡Γ¿Σ¿¬áΓ«α
  165. »ÑαѼѡ¡«⌐  ß  ¡Ñ߬«½∞¬¿¼¿  ¬óá½¿Σ¿¬áΓ«αἿ  ¿½¿  íѺ ¡¿σ,  ¬«Γ«αδÑ
  166. ¿º¼Ñ¡∩εΓ º¡áτÑ¡¿Ñ ßß佬¿ ¡á »ÑαѼѡ¡πε.
  167.  
  168.  
  169.                    ┌──────┐
  170. ¬óá½¿Σ¿¬áΓ«α ──┬──÷│¿¡ñѬß├──────────÷
  171.                │   └──────┘       °
  172.                │   ┌───────────┐  │
  173.                ├──÷│«í«º¡áτÑ¡¿Ñ├──┤
  174.                │   │ »«½∩      │  │
  175.                │   └───────────┘  │
  176.                │   ┌  ─┐          │
  177.                └──÷│ ^ ├──────────┘
  178.                    └─  ┘
  179.  
  180.  
  181.      êñÑ¡Γ¿Σ¿¬áΓ«α ¼áßß¿óá  íѺ  ¬óá½¿Σ¿¬áΓ«αá  ∩ó½∩ÑΓß∩ ßß佬«⌐ ¡á
  182. óÑß∞ ¼áßß¿ó, ¡á»α¿¼Ñα:
  183.  
  184.      Results
  185.  
  186.      êñÑ¡Γ¿Σ¿¬áΓ«α ¼áßß¿óá   ß   π¬áºá¡¡δ¼   ¿¡ñѬ߫¼    «í«º¡áτáÑΓ
  187. ¬«¡¬αÑΓ¡δ⌐ φ½Ñ¼Ñ¡Γ ¼áßß¿óá, ó ñá¡¡«¼ ß½πτáÑ ßΓαπ¬Γπα¡πε »ÑαѼѡ¡πε:
  188.  
  189.      Results[Current + 1]
  190.  
  191.      é ß½πτáÑ,  Ñß½¿  ¬«¼»«¡Ñ¡Γ«⌐  ∩ó½∩ÑΓß∩  ºá»¿ß∞ ¿½¿ «íΩѬΓ,  ºá
  192. ¿¡ñѬ߫¼ ¼«ª¡« π¬áºáΓ∞ «í«º¡áτÑ¡¿Ñ »«½∩;  ó φΓ«¼ ß½πτáÑ  ßßδ½¬á  ¡á
  193. »ÑαѼѡ¡πε «º¡áτáÑΓ  ¬«¡¬αÑΓ¡«Ñ  »«½Ñ  ó¡πΓα¿ ¬«¡¬αÑΓ¡«⌐ ¬«¼»«¡Ñ¡Γδ
  194. ¼áßß¿óá.
  195.  
  196.      Results[Current + 1].Data
  197.  
  198.      Å«½Ñ π¬áºáΓѽ∞ ¼«ªÑΓ ß«»α«ó«ªñáΓ∞ß∩ ß¿¼ó«½«¼ π¬áºáΓѽ∩  (^)  ß
  199. ΓѼ,  τΓ«íδ  »α«óÑßΓ¿ αẽ¿τ¿Ñ ¼Ñªñπ »«½Ñ¼ π¬áºáΓѽ∩ ¿ ñ¿¡á¼¿τÑ߬«⌐
  200. »ÑαѼѡ¡«⌐, ¡á ¬«Γ«απε «¡ π¬áºδóáÑΓ.
  201.  
  202.      Results[Current + 1].Data^
  203.  
  204.     àß½¿ π¬áºδóáѼá∩ »ÑαѼѡ¡á∩ - ¼áßß¿ó, Γ« ¼«ª¡« ñ«íáó¿Γ∞ ¿¡ñѬßδ
  205. ñ½∩ «í«º¡áτÑ¡¿∩ φ½Ñ¼Ñ¡Γ«ó φΓ«ú« ¼áßß¿óá.
  206.  
  207.      Results[Current + 1].Data^[J]
  208.  
  209.  
  210.                     îáßß¿óδ, ßΓ᫬¿ ¿ ¿¡ñѬßδ.
  211.  
  212.      è«¡¬αÑΓ¡δ⌐ φ½Ñ¼Ñ¡Γ ¼áßß¿óá «í«º¡áτáÑΓß∩ ß  »«¼«Θ∞ε  ßß佬¿  ¡á
  213. »ÑαѼѡ¡πε   ¼áßß¿óá,   ºá  ¬«Γ«α«⌐  π¬áºδóáÑΓß∩  ¿¡ñѬß,  ºáñáεΘ¿⌐
  214. φ½Ñ¼Ñ¡Γ.  è«¡¬αÑΓ¡δ⌐ ß¿¼ó«½ ó ßΓ᫬«ó«⌐ »ÑαѼѡ¡«⌐  «í«º¡áτáÑΓß∩  ß
  215. »«¼«Θ∞ε  ßß佬¿  ¡á  ßΓ᫬«óπε  »ÑαѼѡ¡πε,  ºá ¬«Γ«α«⌐ π¬áºδóáÑΓß∩
  216. ¿¡ñѬß, ºáñáεΘ¿⌐ »«º¿µ¿ε ß¿¼ó«½á.
  217.  
  218.  
  219.           ┌─┐      ┌─────────┐      ┌─┐
  220. ¿¡ñѬߠ──÷│[├─────÷│óδαáªÑ¡¿Ñ├──┬──÷│]├──÷
  221.           └─┘  °   └─────────┘  │   └─┘
  222.                │       ┌─┐      │
  223.                └───────│,│≈─────┘
  224.                        └─┘
  225.  
  226.  
  227.      ê¡ñѬߡδÑ óδαáªÑ¡¿∩  «í«º¡áτáεΓ  φ½Ñ¼Ñ¡Γδ  ó   ß««ΓóÑΓßΓóπεΘÑ⌐
  228. αẼÑα¡«ßΓ¿  ¼áßß¿óá.  ù¿ß½«  óδαáªÑ¡¿⌐  ¡Ñ  ñ«½ª¡« »αÑóδΦáΓ∞ τ¿ß½á
  229. ¿¡ñѬߡδσ Γ¿»«ó ó  «íΩ∩ó½Ñ¡¿¿  ¼áßß¿óá.  ü«½ÑÑ  Γ«ú«,  Γ¿»  ¬áªñ«ú«
  230. óδαáªÑ¡¿∩  ñ«½ªÑ¡  íδΓ∞ ß«ó¼ÑßΓ¿¼ »« »α¿ßóá¿óá¡¿ε ß ß««ΓóÑΓßΓóπεΘ¿¼
  231. ¿¡ñÑ¬ß¡δ¼ Γ¿»«¼.
  232.      é ß½πτáÑ  ¼¡«ú«¼Ñα¡«ú«  ¼áßß¿óá  «ñ¿¡á¬«ó«  ¼«ª¡« ¿ß»«½∞º«óáΓ∞
  233. ¡Ñ߬«½∞¬« ¿¡ñѬ߫󠿽¿ ¡Ñ߬«½∞¬« óδαáªÑ¡¿⌐ ó ¿¡ñѬßÑ; ¡á»α¿¼Ñα,
  234.  
  235.      Matrix[I][J]
  236.  
  237. Γ«ªñÑßΓóÑ¡¡«
  238.  
  239.      Matrix[I, J]
  240.  
  241.      æΓ᫬«óπε »ÑαѼѡ¡πε   ¼«ª¡«   »α«¿¡ñѬ߿α«óáΓ∞   ß    »«¼«Θ∞ε
  242. «ñ¿¡«τ¡«ú«  ¿¡ñѬߡ«ú«  óδαáªÑ¡¿∩,  º¡áτÑ¡¿Ñ ¬«Γ«α«ú« ñ«½ª¡« íδΓ∞ ó
  243. ñ¿á»áº«¡Ñ 0 ..N,  úñÑ N - π¬áºá¡¡δ⌐ ó «íΩ∩ó½Ñ¡¿¿ αẼÑα ßΓ᫬¿. ¥Γ«
  244. ñáÑΓ  ñ«ßΓπ» ¬ ¬áªñ«¼π ß¿¼ó«½π ó ßΓ᫬«ó«¼ º¡áτÑ¡¿¿,  ß Γ¿»«¼ Char,
  245. ñáóáѼ«¼π φΓ«¼π ß¿¼ó«½∞¡«¼π º¡áτÑ¡¿ε.
  246.      ÅÑαóδ⌐ ß¿¼ó«½   ßΓ᫬«ó«⌐   »ÑαѼѡ¡«⌐   (¿¡ñѬߠ 0)  ß«ñÑনΓ
  247. ñ¿¡á¼¿τÑ߬πε  ñ½¿¡π  ßΓ᫬¿;   Γ«   ÑßΓ∞   Length(S)   Γ«ªñÑßΓóÑ¡¡«
  248. Ord(S[0]).   àß½¿   áΓα¿íπΓπ   ñ½¿¡δ   »α¿ßóáÑóáÑΓß∩  º¡áτÑ¡¿Ñ,  Γ«
  249. ¬«¼»¿½∩Γ«α  ¡Ñ  »α«óÑα∩ÑΓ,  ∩ó½∩ÑΓß∩   ½¿   φΓ«   º¡áτÑ¡¿Ñ   ¼Ñ¡∞ΦÑ
  250. «íΩ∩ó½Ñ¡¡«ú« αẼÑαá ßΓ᫬¿.  éδ ¼«ªÑΓÑ π¬áºáΓ∞ ¿¡ñѬߠßΓ᫬¿ ¿ ó¡Ñ
  251. ÑÑ ΓѬπΘÑ⌐ ñ¿¡á¼¿τÑ߬«⌐ ñ½¿¡δ.  é φΓ«¼ ß½πτáÑ  ßτ¿ΓδóáѼδÑ  ß¿¼ó«½δ
  252. íπñπΓ  ß½πτá⌐¡δ¼¿,  á »α¿ßóá¿óá¡¿∩ ó¡Ñ ΓѬπΘÑ⌐ ñ½¿¡δ ¡Ñ »«ó½¿∩εΓ ¡á
  253. ñÑ⌐ßΓó¿Γѽ∞¡«Ñ º¡áτÑ¡¿Ñ ßΓ᫬«ó«⌐ »ÑαѼѡ¡«⌐.
  254.  
  255.  
  256.                     çỿ߿ ¿ «í«º¡áτÑ¡¿∩ »«½Ñ⌐.
  257.  
  258.      è«¡¬αÑΓ¡«Ñ »«½Ñ   »ÑαѼѡ¡«⌐  ºá»¿ß¿  «í«º¡áτáÑΓß∩  ß  »«¼«Θ∞ε
  259. ßß佬¿ ¡á »ÑαѼѡ¡πε ºá»¿ß¿,  »«ß½Ñ ¬«Γ«α«⌐ π¬áºδóáÑΓß∩ «í«º¡áτÑ¡¿Ñ
  260. »«½∩, ºáñáεΘÑÑ φΓ« »«½Ñ.
  261.  
  262.  
  263.  
  264.                      ┌───┐    ┌─────────────┐
  265. «í«º¡áτÑ¡¿Ñ »«½∩ ───÷│ . │───÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α│───÷
  266.                      └───┘    │ »«½∩        │
  267.                               └─────────────┘
  268.  
  269.      Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó «í«º¡áτÑ¡¿∩ »«½Ñ⌐:
  270.  
  271.      Today.Year
  272.      Results[1].Count
  273.      Results[1].When.Month
  274.  
  275.      é «»ÑαáΓ«αÑ,  óσ«ñ∩ΘѼ ó «»ÑαáΓ«α with,  «í«º¡áτÑ¡¿ε  »«½∩  ¡Ñ
  276. ñ«½ª¡á »αÑñΦÑßΓó«óáΓ∞ ßßδ½¬á ¡á »ÑαѼѡ¡πε, ß«ñÑαªáΘπε ºá»¿ß∞.
  277.  
  278.  
  279.                   Äí«º¡áτÑ¡¿∩ ¬«¼»«¡Ñ¡Γ «íΩѬΓá.
  280.  
  281.      Åα¿ óδí«αÑ ¬«¼»«¡Ñ¡Γ «íΩѬΓá ¿ß»«½∞ºπÑΓß∩ Γᬫ⌐ ªÑ Σ«α¼áΓ, ¬á¬
  282. ¿ »α¿ óδí«αÑ »«½∩ ºá»¿ß¿;  Γ.Ñ.  «¡ ß«ßΓ«¿Γ ¿º φ¬ºÑ¼»½∩αá,  Γ«τ¬¿ ¿
  283. ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¬«¼»«¡Ñ¡Γδ.    Äí«º¡áτÑ¡¿∩    ¬«¼»«¡Ñ¡Γδ,    ¬«Γ«αá∩
  284. «í«º¡áτáÑΓ ¼ÑΓ«ñ,  ¡áºδóáÑΓß∩  «í«º¡áτÑ¡¿Ñ¼  ¼ÑΓ«ñá.  è  φ¬ºÑ¼»½∩απ
  285. «íΩÑ¬Γ¡«ú« Γ¿»á ¼«ªÑΓ íδΓ∞ »α¿¼Ñ¡Ñ¡ «»ÑαáΓ«α with.  é  φΓ«¼  ß½πτáÑ
  286. »α¿ ßß佬áσ  ¡á  ¬«¼»«¡Ñ¡Γδ  «íΩÑ¬Γ¡«ú«  Γ¿»á  ¼«ªÑΓ  íδΓ∞ »α«»πΘÑ¡
  287. φ¬ºÑ¼»½∩α ¿ Γ«τ¬á.
  288.  
  289.      ¥¬ºÑ¼»½∩α ¿ Γ«τ¬á ΓᬠªÑ ¼«úπΓ  íδΓ∞  »α«»πΘÑ¡δ  ó¡πΓα¿  í½«¬á
  290. ¼ÑΓ«ñá, á ¬«úñá «¡¿ ¿ß»«½∞ºπεΓß∩,  Γ« ñÑ⌐ßΓóπεΓ ΓᬠªÑ, ¬á¬ Ñß½¿ íδ
  291. »α¿ ßßδ½¬Ñ ¬ ¬«¼»«¡Ñ¡ΓÑ ¿ß»«½∞º«ó὿ß∞ Self ¿ Γ«τ¬á.
  292.  
  293.  
  294.          ÅÑαѼѡ¡δÑ π¬áºáΓѽÑ⌐ ¿ ñ¿¡á¼¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ.
  295.  
  296.      ç¡áτÑ¡¿Ñ¼ »ÑαѼѡ¡«⌐ π¬áºáΓѽ∩ ∩ó½∩ÑΓß∩ ¿½¿  nil,   ¿½¿  áñαÑß
  297. º¡áτÑ¡¿∩, π¬áºδóáεΘ¿⌐ ¡á ñ¿¡á¼¿τÑ߬πε »ÑαѼѡ¡πε.
  298.      æßδ½¬á ¡á   ñ¿¡á¼¿τÑ߬πε   »ÑαѼѡ¡πε,  ¡á  ¬«Γ«απε  π¬áºδóáÑΓ
  299. »ÑαѼѡ¡á∩ π¬áºáΓѽ∞, ºá»¿ßδóáÑΓß∩  ó  ó¿ñÑ  »ÑαѼѡ¡«⌐  π¬áºáΓѽ∩,
  300. »«ß½Ñ ¬«Γ«α«⌐ ßΓáó¿Γß∩ ß¿¼ó«½ π¬áºáΓѽ∩ (^).
  301.      ä¿¡á¼¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ ¿ º¡áτÑ¡¿∩ ¿σ π¬áºáΓѽÑ⌐  ß«ºñáεΓß∩  ß
  302. »«¼«Θ∞ε  ßΓá¡ñáαΓ¡δσ »α«µÑñπα New ¿ GetMem.  éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞
  303. «»ÑαáΓ«α  @  (»«½πτÑ¡¿Ñ  áñαÑßá)  ¿  ßΓá¡ñáαΓ¡πε  Σπ¡¬µ¿ε  Ptr  ñ½∩
  304. ß«ºñá¡¿∩ º¡áτÑ¡¿⌐ π¬áºáΓѽ∩,  ¬«Γ«αδÑ αáßß¼áΓα¿óáεΓß∩ ¬á¬ π¬áºáΓѽ¿
  305. ñ¿¡á¼¿τÑ߬¿σ »ÑαѼѡ¡δσ.
  306.      ç¡áτÑ¡¿Ñ nil  ¡Ñ  π¬áºδóáÑΓ ¡¿ ¡á ¬á¬πε »ÑαѼѡ¡πε.  ÉѺπ½∞ΓáΓ
  307. íπñÑΓ  ¡Ñ«»αÑñѽѡ¡δ¼,  Ñß½¿  éδ  »«»δΓáÑΓÑß∞  »«½πτ¿Γ∞  ñ«ßΓπ»   ¬
  308. ñ¿¡á¼¿τÑ߬«⌐  »ÑαѼѡ¡«⌐  »α¿ ¡Ñ«»αÑñѽѡ¡«¼ º¡áτÑ¡¿¿ π¬áºáΓѽ∩ ¿½¿
  309. αáó¡«¼ nil.
  310.      Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó ßß佫¬ ¡á ñ¿¡á¼¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ:
  311.  
  312.      P1^
  313.      P1^.Sibling^
  314.      Results[1].Data^
  315.  
  316.  
  317.                    Åα¿óÑñÑ¡¿Ñ Γ¿»«ó »ÑαѼѡ¡δσ.
  318.  
  319.      æßδ½¬á ¡á »ÑαѼѡ¡πε «ñ¡«ú« Γ¿»á ¼«ªÑΓ  íδΓ∞  »αÑ«íαẫóá¡á  ó
  320. ßßδ½¬π  ¡á  »ÑαѼѡ¡πε  ñαπú«ú«  Γ¿»á  ß  »«¼«Θ∞ε  »α¿óÑñÑ¡¿∩ Γ¿»«ó
  321. »ÑαѼѡ¡δσ.
  322.  
  323.  
  324.                ┌─────────────┐   ┌───┐   ┌──────────┐   ┌───┐
  325. »α¿óÑñÑ¡¿Ñ ───÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├──÷│ ( ├──÷│ßßδ½¬á ¡á ├──÷│ ) ├──÷
  326. Γ¿»«ó          │    Γ¿»á     │   └───┘   │»ÑαѼѡ¡πε│   └───┘
  327.                └─────────────┘           └──────────┘
  328.  
  329.  
  330.      è«úñá »α¿óÑñÑ¡¿Ñ Γ¿»«ó »α¿¼Ñ¡∩ÑΓß∩  ¬  ßßδ½¬Ñ  ¡á  »ÑαѼѡ¡πε,
  331. ßßδ½¬á ¡á   »ÑαѼѡ¡πε   αáßß¼áΓα¿óáÑΓß∩   ¬á¬   φ¬ºÑ¼»½∩α    Γ¿»á,
  332. »αÑñßΓáó½Ñ¡¡«ú«  ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼  Γ¿»á.  ÉẼÑα  »ÑαѼѡ¡«⌐  (τ¿ß½«
  333. íá⌐Γ«ó,  ºá¡¿¼áѼδσ »ÑαѼѡ¡«⌐) ñ«½ªÑ¡  íδΓ∞  αáóÑ¡  αẼÑαπ  Γ¿»á,
  334. »αÑñßΓáó½Ñ¡¡«ú«   ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼   Γ¿»á.   Å«ß½Ñ  »α¿óÑñÑ¡¿∩  Γ¿»á
  335. »ÑαѼѡ¡«⌐ ¼«ª¡« π¬áºáΓ∞ «ñ¿¡ ¿½¿  ¡Ñ߬«½∞¬«  ¬óá½¿Σ¿¬áΓ«α«ó,  Ñß½¿
  336. φΓ« ñ«»π߬áÑΓß∩ π¬áºá¡¡δ¼ Γ¿»«¼.
  337.      Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó »α¿óÑñÑ¡¿∩ Γ¿»«ó »ÑαѼѡ¡δσ:
  338.  
  339.      type
  340.         ByteRec = record
  341.            Lo,Hi : Byte;
  342.         end;
  343.         WordRec = record
  344.            Low, High : Word;
  345.         end;
  346.         PtrRec  = record
  347.            Ofs, Seg : Word;
  348.         end;
  349.         BytePtr = ^Byte;
  350.      var
  351.         B: Byte;
  352.         W: Word;
  353.         L: LongInt;
  354.         P: Pointer;
  355.      begin
  356.         W := $1234;
  357.         B := ByteRec(W).Lo;
  358.         ByteRec(W).Hi := 0;
  359.         L := $01234567;
  360.         W := WordRec(L).Lo;
  361.         B := ByteRec(WordRec(L).Lo).Hi;
  362.         B := BytePtr(L)^;
  363.         P := Ptr($40,$49);
  364.         W := PtrRec(P).Seg;
  365.         Inc(PtrRec(P).Ofs,4);
  366.      end;
  367.  
  368.  
  369.      ÄΓ¼ÑΓ¿¼ ¿ß»«½∞º«óá¡¿Ñ  Γ¿»á  ByteRec  ñ½∩  ñ«ßΓπ»á  ¬   íá⌐Γá¼
  370. ¼½áñΦÑ⌐   ¿  ßΓáαΦÑ⌐  τáßΓ¿  ß½«óá;  φΓ«  ß««ΓóÑΓßΓóπÑΓ  óßΓα«Ñ¡¡δ¼
  371. Σπ¡¬µ¿∩¼ Lo ¿ Hi,  ºá ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú«,  τΓ« »α¿óÑñÑ¡¿Ñ  »ÑαѼѡ¡δσ
  372. ¼«ª¡«  ¿ß»«½∞º«óáΓ∞  ΓᬪѠ ¿ ó ½Ñó«⌐ τáßΓ¿ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩.
  373. ÆᬪѠ«íαáΓ¿ΓѠ󡿼᡿Ѡ¡á ¿ß»«½∞º«óá¡¿Ñ WordRec ¿ PtrRec Γ¿»«ó ñ½∩
  374. ñ«ßΓπ»á ¬  ¼½áñΦÑ¼π  ¿  ßΓáαΦѼπ  ß½«óπ τáßΓ¿ ñ½¿¡¡«ú« µÑ½«ú«,  ¿ ¬
  375. ßÑú¼Ñ¡Γ¡«⌐ τáßΓ¿ ¿ ß¼ÑΘÑ¡¿ε ó π¬áºáΓѽÑ.
  376.  
  377.      Turbo Pascal   »«½¡«ßΓ∞ε   »«ññÑনóáÑΓ    »α¿óÑñÑ¡¿Ñ    Γ¿»«ó
  378. »ÑαѼѡ¡δσ, ó¬½ετá∩ »α«µÑñπα¡δÑ Γ¿»δ. ìá»α¿¼Ñα, ñ½∩ «íΩ∩ó½Ñ¡¿⌐
  379.  
  380.      type
  381.        Func = function(X : Integer) : Integer;
  382.  
  383.      var
  384.        F: Func;
  385.        P: Pointer;
  386.        N: Integer;
  387.  
  388.      ¼«ª¡« ¡á»¿ßáΓ∞ ß½ÑñπεΘ¿Ñ »α¿ßóá¿óá¡¿∩:
  389.  
  390.      F := Func(P);      { »α¿ßó«¿Γ∞ »α«µÑñπα¡«Ñ º¡áτÑ¡¿Ñ ¿º É ó F }
  391.      Func(P) := F;      { »α¿ßó«¿Γ∞ »α«µÑñπα¡«Ñ º¡áτÑ¡¿Ñ ¿º F ó P }
  392.      @F := P;           { »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ π¬áºáΓѽ∩ ¿º É ó F }
  393.      P := @F;           { »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ π¬áºáΓѽ∩ ¿º F ó P }
  394.      N := F(N);         { ó맮ó Σπ¡¬µ¿¿ τÑαѺ F }
  395.      N := Func(P)(N);   { ó맮ó Σπ¡¬µ¿¿ τÑαѺ P }
  396.  
  397.      çá¼ÑΓ¿¼, τΓ« áñαÑß¡δ⌐ «»ÑαáΓ«α @,  »α¿¼Ñ¡Ñ¡¡δ⌐  ¬  »α«µÑñπα¡«⌐
  398. »ÑαѼѡ¡«⌐ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ½Ñó«⌐ τáßΓ¿ »α¿ßóá¿óá¡¿∩. çá¼ÑΓ¿¼
  399. ΓᬪÑ, τΓ« »α¿óÑñÑ¡¿Ñ Γ¿»á ó  »«ß½Ññª¡Ñ⌐  ßΓα«¬Ñ  óδºδóáÑΓ  Σπ¡¬µ¿ε
  400. τÑαѺ »ÑαѼѡ¡πε π¬áºáΓѽ∞.
  401.  
  402.