home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / pas60pg.lzh / PG01.MY < prev    next >
Text File  |  1991-01-25  |  20KB  |  459 lines
  1.                            ù Ç æ Æ £  1.
  2.  
  3.                       æÆÇìäÇÉÆ TURBO PASCAL.
  4.  
  5.                              âïÇéÇ 1.
  6.  
  7.                        ïàèæàê èÄìæÆÇìÆ¢.
  8.  
  9.  
  10.      ï Ñ  ¬  ß  Ñ  ¼  á ¼ ¿ ¡áºδóáεΓß∩ ¼¿¡¿¼á½∞¡δÑ º¡áτ¿¼δÑ Ññ¿¡¿µδ
  11. ΓѬßΓá ó »α«úαá¼¼Ñ,  ¡á»¿ßá¡¡«⌐ ¡á Åá߬á½Ñ. Ä¡¿ »αÑñßΓáó½Ñ¡δ Γᬿ¼¿
  12. ¬áΓÑú«α¿∩¼¿ ¬á¬ ß»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ, ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ, ¼ÑΓ¬¿, τ¿ß½á ¿
  13. ßΓ᫬«óδÑ ¬«¡ßΓá¡Γδ.
  14.  
  15.      Åα«úαá¼¼á, ¡á»¿ßá¡¡á∩  ¡á  Åá߬á½Ñ,  ß«ßΓ«¿Γ   ¿º   ½Ñ¬ßѼ   ¿
  16. αáºñѽ¿ΓѽÑ⌐,   úñÑ   αáºñѽ¿Γѽ∞  »αÑñßΓáó½∩ÑΓ  ß«í«⌐  »α«íѽ  ¿½¿
  17. ¬«¼¼Ñ¡Γáα¿⌐.  äóÑ ß«ßÑñ¡¿σ ½Ñ¬ßѼδ,  Ñß½¿  «¡¿  »αÑñßΓáó½∩εΓ  ß«í«⌐
  18. ºáαѺÑαó¿α«óá¡¡«Ñ  ß½«ó«,  ¿ñÑ¡Γ¿Σ¿¬áΓ«α,  ¼ÑΓ¬π ¿½¿ τ¿ß½«,  ñ«½ª¡δ
  19. íδΓ∞ «Γñѽѡδ ñαπú «Γ ñαπúá «ñ¡¿¼ ¿½¿ ¡Ñ߬«½∞¬¿¼¿ αáºñѽ¿Γѽ∩¼¿.
  20.  
  21.      Åα¿¼Ñτá¡¿Ñ: Éáºñѽ¿Γѽ¿  ¡Ñ  ¼«úπΓ  íδΓ∞  τáßΓ∞ε  ½Ñ¬ßѼ,   ºá
  22. ¿ß¬½ετÑ¡¿Ñ¼ ßΓ᫬«óδ󠬫¡ßΓá¡Γ.
  23.  
  24.  
  25.                         æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ
  26.                      ¿ ºáαѺÑαó¿α«óá¡¡δÑ ß½«óá
  27.  
  28.      Turbo Pascal ¿ß»«½∞ºπÑΓ ß½ÑñπεΘ¿Ñ »«ñ¼¡«ªÑßΓóá ¡áí«αá ß¿¼ó«½«ó
  29. ¬«ñá ASCII:
  30.  
  31.      - üπ¬óδ á¡ú½¿⌐߬«ú« á½Σáó¿Γá «Γ A ñ« Z ¿ «Γ a ñ« z;
  32.      - û¿Σαδ - áαáí߬¿Ñ «Γ 0 ñ« 9;
  33.      - ÿÑßΓ¡áñµáΓ¿α¿τ¡δÑ µ¿Σαδ - áαáí߬¿Ñ µ¿Σαδ «Γ 0 ñ« 9, íπ¬óδ «Γ
  34.        A ñ« F ¿ «Γ a ñ« f.
  35.      - Åα«íѽδ - ß¿¼ó«½ »α«íѽá (ASCII32) ¿ óßÑ π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ
  36.        ¬«ñá ASCII (ASCII «Γ 0 ñ« 31),  ó¬½ετá∩ ß¿¼ó«½ ¬«¡µá  ßΓ᫬¿
  37.        ¿½¿ ß¿¼ó«½ ó«ºóαáΓá ¬áαÑΓ¬¿ (ASCII13).
  38.  
  39.      äá½ÑÑ ß½ÑñπÑΓ ñ ¿ á ú α á ¼ ¼ á  ß ¿ ¡ Γ á ¬ ß ¿ ß á ñ½∩ íπ¬ó,
  40. µ¿Σα  ¿ ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ µ¿Σα.  ä½∩ »α«τΓÑ¡¿∩ φΓ«⌐ ñ¿áúαá¼¼δ ¡πª¡«
  41. ß½Ññ«óáΓ∞ ºá ßΓαѽ¬á¼¿.  ùáßΓ« óßΓαÑτáεΓß∩ á½∞ΓÑα¡áΓ¿ó¡δÑ »πΓ¿; óßÑ
  42. »πΓ¿,   ¡áτ¿¡áεΘ¿Ñß∩   ß½Ñóá  ¿  ºá¬á¡τ¿óáεΘ¿Ñß∩  ßΓαѽ¬«⌐  ß»αáóá,
  43. ñ«»πßΓ¿¼δ.  ÅπΓ∞  »α«σ«ñ¿Γ   τÑαѺ   αἬ¿,   ß«ñÑαªáΘ¿Ñ   ¡áºóá¡¿∩
  44. φ½Ñ¼Ñ¡Γ«ó, ¿ß»«½∞ºπѼδσ ñ½∩ ß«ºñá¡¿∩ τáßΓ¿ ß¿¡Γá¬ß¿ßá.
  45.      ê¼Ñ¡á ó  »α∩¼«πú«½∞¡¿¬áσ  ñ«½ª¡δ íδΓ∞ ºá¼Ñ¡Ñ¡δ ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿
  46. ¬«¡ßΓαπ¬µ¿∩¼¿.  é  ¬óáñαáΓáσ  ºá¬½ετÑ¡δ   ¡áºóá¡¿∩   ñÑ⌐ßΓó¿Γѽ∞¡δσ
  47. ΓÑମó,   ¿ß»«½∞ºπѼδσ   ó   »α«úαἼѠ -  ºáαѺÑαó¿α«óá¡¡δσ  ß½«ó,
  48. «»ÑαáΓ«α«ó ¿ º¡á¬«ó »π¡¬Γπᵿ¿.
  49.  
  50.      íπ¬óá
  51.        ───────┬──────────────┬──────────────┬──────────────┐
  52.               │              │              │              │
  53.               ∙              ∙              ∙              ∙
  54.             ┌───┐          ┌───┐          ┌───┐          ┌───┐
  55.             │ A │   ...    │ Z │          │ a │   ...    │ z │
  56.             └─┬─┘          └─┬─┘          └─┬─┘          └─┬─┘
  57.               │              │              │              │
  58.               └──────────────┴──────────────┴──────────────┴─────÷
  59.  
  60.      µ¿Σαá
  61.        ───────┬───────────┐
  62.               │           │
  63.               ∙           ∙
  64.             ┌───┐       ┌───┐
  65.             │ 0 │  ...  │ 9 │
  66.             └─┬─┘       └─┬─┘
  67.               │           │
  68.               └───────────┴───────÷
  69.  
  70.      ΦÑßΓ¡áñµáΓ¿α¿τ¡á∩
  71.      µ¿Σαá
  72.                 ┌───────────┐
  73.       ─────────÷│   µ¿Σαá   │─────────────────────────┐
  74.           │     └───────────┘                         │
  75.           │                                           │
  76.           └───┬─────────┬─────────┬─────────┐         │
  77.               │         │         │         │         │
  78.               ∙         ∙         ∙         ∙         │
  79.             ┌───┐     ┌───┐     ┌───┐     ┌───┐       │
  80.             │ A │ ..  │ F │     │ a │ ... │ f │       │
  81.             └─┬─┘     └─┬─┘     └─┬─┘     └─┬─┘       │
  82.               │         │         │         │         │
  83.               └─────────┴─────────┴─────────┴─────────┴───÷
  84.  
  85.      C»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ  ¿  ºáαѺÑαó¿α«óá¡¡δÑ  ß½«óá  »αÑñßΓáó½∩εΓ
  86. ß«í«⌐ ß¿¼ó«½δ,  ¿¼ÑεΘ¿Ñ «ñ¡« ¿½¿ ¡Ñ߬«½∞¬« Σ¿¬ß¿α«óá¡¡δσ  º¡áτÑ¡¿⌐.
  87. æ»Ñµ¿á½∞¡δ¼¿ ß¿¼ó«½á¼¿ ∩ó½∩εΓß∩ ß½ÑñπεΘ¿Ñ ß¿¼ó«½δ:
  88.  
  89.      + - * / = < > [ ] . , ( ) : ; ^ @ { } $ #
  90.  
  91.      æ½ÑñπεΘ¿Ñ »áαδ ß¿¼ó«½«ó ΓᬪѠ»αÑñßΓáó½∩εΓ  ß«í«⌐  ß»Ñµ¿á½∞¡δÑ
  92. ß¿¼ó«½δ:
  93.  
  94.      <=   >=  :=   ..   (*  *)  (.  .)
  95.  
  96.      ìѬ«Γ«αδѠ߻ѵ¿á½∞¡δÑ  ß¿¼ó«½δ  ∩ó½∩εΓß∩  ΓᬪѠ  «»ÑαáΓ«αἿ.
  97. ïÑóá∩  ¬óáñαáΓ¡á∩ ß¬«í¬á ([) φ¬ó¿óá½Ñ¡Γ¡á »áαÑ ß¿¼ó«½«ó,  ß«ßΓ«∩ΘÑ⌐
  98. ¿º  ½Ñó«⌐  ¬απú½«⌐  ß¬«í¬¿  ¿  Γ«τ¬¿  (  (.  ).  Ç¡á½«ú¿τ¡«  »αáóá∩
  99. ¬óáñαáΓ¡á∩  ß¬«í¬á  (])  φ¬ó¿óá½Ñ¡Γ¡á  »áαÑ ß¿¼ó«½«ó,  ß«ßΓ«∩ΘÑ⌐ ¿º
  100. Γ«τ¬¿ ¿ »αáó«⌐ ¬απú½«⌐ ß¬«í¬¿ ( .) ).
  101.      æ½ÑñπεΘ¿Ñ ß½«óá ∩ó½∩εΓß∩ ºáαѺÑαó¿α«óá¡¡δ¼¿ ó Æπαí«-Åá߬á½Ñ:
  102.  
  103.         Æáí½¿µá 1.1. çáαѺÑαó¿α«óá¡¡δÑ ß½«óá Turbo Pascal.
  104.  
  105. ───────────────────────────────────────────────────────────────────
  106.        and          else            inline       procedure    type
  107.        asm          end             interface    program      unit
  108.        array        external        interrupt    record       until
  109.        begin        file            label        repeat       uses
  110.        case         for             mod          set          var
  111.        const        forward         nil          shl          while
  112.        constructor  function        not          shr          with
  113.        destructor   goto            object       string       xor
  114.        div          if              of           then
  115.        do           implementation  or           to
  116.        downto       in              packed
  117. ───────────────────────────────────────────────────────────────────
  118.  
  119.        ä½∩ Turbo Pascal íѺαẽ¿τÑ¡ αÑú¿ßΓα ¬½áó¿áΓπαδ,  »«φΓ«¼π éδ
  120. ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ó ßó«Ñ⌐ »α«úαἼѠ¬á¬ ßΓα«τ¡δÑ, Γᬠ¿ »α«»¿ß¡δÑ
  121. íπ¬óδ.
  122.  
  123.      é ß½ÑñπεΘÑ⌐  Γáí½¿µÑ  »α¿óÑñÑ¡δ  ßΓá¡ñáαΓ¡δÑ  ñ¿αÑ¬Γ¿óδ  Turbo
  124. Pascal. é  «Γ½¿τ¿Ñ  «Γ  ºáαѺÑαó¿α«óá¡¡δσ  ß½«ó,  «¡¿  ¼«úπΓ   íδΓ∞
  125. »ÑαÑ«»αÑñÑ½Ñ¡δ »«½∞º«óáΓѽѼ, σ«Γ∩ φΓ« ¿ ¡ÑªÑ½áΓѽ∞¡«.
  126.  
  127.          Æáí½¿µá 1.2. æΓá¡ñáαΓ¡δÑ ñ¿αÑ¬Γ¿óδ Turbo Pascal.
  128.  
  129. ───────────────────────────────────────────────────────────────────
  130.      absolute       external      forward        near
  131.      assembler      far           interrupt      private
  132.                                                  virtual
  133. ───────────────────────────────────────────────────────────────────
  134.  
  135.      çá¼ÑΓ¿¼, τΓ« private ºáαѺÑαó¿α«óá¡« Γ«½∞¬« ó¡πΓα¿ «íΩÑ¬Γ«ó.
  136.  
  137.  
  138.                           êñÑ¡Γ¿Σ¿¬áΓ«αδ
  139.  
  140.      êñÑ¡Γ¿Σ¿¬áΓ«αδ óδßΓπ»áεΓ  ó  ¬áτÑßΓóÑ  ¿¼Ñ¡  ¬«¡ßΓá¡Γ,  Γ¿»«ó,
  141. »ÑαѼѡ¡δσ, »α«µÑñπα, Σπ¡¬µ¿⌐, ¼«ñπ½Ñ⌐, »α«úαá¼¼ ¿ »«½Ñ⌐ ó ºá»¿ß∩σ.
  142. êñÑ¡Γ¿Σ¿¬áΓ«α ¼«ªÑΓ ¿¼ÑΓ∞ ½εíπε ñ½¿¡π,  «ñ¡á¬«  º¡áτ¿¼δ¼¿  ∩ó½∩εΓß∩
  143. Γ«½∞¬« »ÑαóδÑ 63 ß¿¼ó«½á.
  144.      êñÑ¡Γ¿Σ¿¬áΓ«α ñ«½ªÑ¡   ¡áτ¿¡áΓ∞ß∩   ß   íπ¬óδ   ¿½¿    ß¿¼ó«½á
  145. »«ñτÑનóá¡¿∩ ¿ ¡Ñ ñ«½ªÑ¡ ß«ñÑαªáΓ∞ »α«íѽ«ó. Å«ß½Ñ »Ñαó«ú« ß¿¼ó«½á
  146. ñ«»π߬áεΓß∩ íπ¬óδ,  µ¿Σαδ ¿ º¡á¬ »«ñτÑનóá¡¿∩ (ASCII $5F).  èᬠ ¿
  147. ºáαѺÑαó¿α«óá¡¡δÑ  ß½«óá,  ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ  íѺαẽ¿τ¡δ  ¬  αÑú¿ßΓαπ
  148. ¬½áó¿áΓπαδ.
  149.      è«úñá ¿¼ÑÑΓß∩   ¡Ñ߬«½∞¬«   φ¬ºÑ¼»½∩α«ó   «ñ¡«ú«   ¿  Γ«ú«  ªÑ
  150. ¿ñÑ¡Γ¿Σ¿¬áΓ«αá,  ñ½∩ π¬áºá¡¿∩  ¡πª¡«ú«  óá¼  φ¬ºÑ¼»½∩αá  ¡Ñ«íσ«ñ¿¼«
  151. πΓ«τ¡¿Γ∞ φëà ¿ñÑ¡Γ¿Σ¿¬áΓ«α ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¼«ñπ½∩, τΓ«íδ
  152. óδíαáΓ∞ π¬áºá¡¡δ⌐  φ¬ºÑ¼»½∩α  (¼«ñπ½¿   «»¿ßδóáεΓß∩   ó   ú½áóÑ   3
  153. Éπ¬«ó«ñßΓóá »«½∞º«óáΓѽ∩   ¿   ú½áóÑ   9  ¡áßΓ«∩ΘÑú«  απ¬«ó«ñßΓóá).
  154. ìá»α¿¼Ñα,   ñ½∩   πΓ«τ¡Ñ¡¿∩   ¿ñÑ¡Γ¿Σ¿¬áΓ«αá   Ident   ß    »«¼«Θ∞ε
  155. ¿ñÑ¡Γ¿Σ¿¬áΓ«αá  UnitName  ß½ÑñπÑΓ  ¡á»¿ßáΓ∞  UnitName.Ident.  Æᬫ⌐
  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.  
  185.                                               ┌───────────────┐
  186.      πΓ«τ¡Ñ¡¡δ⌐   ─┬──────────────────────────┤ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├───÷
  187.      ¿ñÑ¡Γ¿Σ¿¬áΓ«α │                       °  └───────────────┘
  188.                    │ ┌───────────┐   ┌───┐ │
  189.                    └÷│¿ñÑ¡Γ¿Σ¿¬á-├──÷│ . ├─┘
  190.                      │    Γ«α    │   └───┘
  191.                      │  ¼«ñπ½∩   │
  192.                      └───────────┘
  193.  
  194.      Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó:
  195.  
  196.         Writeln
  197.         Exit
  198.         RealString
  199.         System.MemAvail
  200.         Dos.Exec
  201.         Crt.Window
  202.  
  203.  
  204.                                îÑΓ¬¿
  205.  
  206.      îÑΓ¬«⌐ ∩ó½∩ÑΓß∩ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ µ¿Σα ó ñ¿á»áº«¡Ñ  «Γ  0  ñ«
  207. 9999. ìáτá½∞¡δÑ   ¡π½¿ ¡Ñ ∩ó½∩εΓß∩ º¡áτáΘ¿¼¿.  îÑΓ¬¿ ¿ß»«½∞ºπεΓß∩ ß
  208. «»ÑαáΓ«αἿ »ÑαÑσ«ñá (GoTo).
  209.  
  210.                             ┌──────────────────────┐
  211.      îÑΓ¬á ───────┬────────÷│  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  ├──────────÷
  212.                   │         │       µ¿Σα           │      °
  213.                   │         └──────────────────────┘      │
  214.                   │                                       │
  215.                   │            ┌─────────────┐            │
  216.                   └───────────÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├────────────┘
  217.                                └─────────────┘
  218.  
  219.      èᬠαáßΦ¿αÑ¡¿Ñ ßΓá¡ñáαΓ¡«ú« Åá߬á½∩,  Turbo  Pascal  »«ºó«½∩ÑΓ
  220. ¿ß»«½∞º«óáΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ Σπ¡¬µ¿¿ ó ¬áτÑßΓóÑ ¼ÑΓ«¬.
  221.  
  222.  
  223.                                ù¿ß½á
  224.  
  225.      ä½∩ τ¿ßѽ,   »αÑñßΓáó½∩εΘ¿σ   ß«í«⌐   ¬«¡ßΓá¡Γδ    µÑ½«ú«    ¿
  226. óÑΘÑßΓóÑ¡¡«ú« Γ¿»á,  ¿ß»«½∞ºπÑΓß∩ «íδτ¡á∩ ñÑß∩Γ¿τ¡á∩ ºá»¿ß∞.  ûѽá∩
  227. ¬«¡ßΓá¡Γá ó ΦÑßΓ¡áñµáΓ¿α¿τ¡«¼ Σ«α¼áΓÑ  ¿¼ÑÑΓ  ó  ¬áτÑßΓóÑ  »αÑΣ¿¬ßá
  228. º¡á¬ ñ«½½áαá ($). ÆÑσ¡¿τÑ߬«Ñ «í«º¡áτÑ¡¿Ñ (à ¿½¿ Ñ ß φ¬ß»«¡Ñ¡Γ«⌐) ó
  229. óÑΘÑßΓóÑ¡¡δσ Γ¿»áσ τ¿ΓáÑΓß∩ ¬á¬ "ñÑß∩Γ∞ ó ßΓѻѡ¿".
  230.      ìá»α¿¼Ñα:
  231.  
  232.      7Ñ-2        "7 π¼¡«ªÑ¡¡«Ñ ¡á 10 ó ßΓѻѡ¿ -2";
  233.  
  234.      12.25Ñ+6
  235.      12.25Ñ+6    "12.25 π¼¡«ªÑ¡¡«Ñ ¡á 10 ó ßΓѻѡ¿ +6;
  236.  
  237.  
  238.      ì¿ªÑ »α¿óÑñÑ¡δ ß¿¡Γá¬ß¿τÑ߬¿Ñ ñ¿áúαá¼¼δ ñ½∩ ºá»¿ß¿ τ¿ßѽ.
  239.  
  240.                                  ┌─────────────────┐
  241.      »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ────────÷│ΦÑßΓ¡áñµáΓ¿α¿τ¡á∩├───────┬──÷
  242.      ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ     °     │     µ¿Σαá       │       │
  243.      µ¿Σα                  │     └─────────────────┘       │
  244.                            └───────────────────────────────┘
  245.  
  246.                                  ┌─────────────────┐
  247.      »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ────────÷│                 ├───────┬───÷
  248.      µ¿Σα                  °     │     µ¿Σαá       │       │
  249.                            │     └─────────────────┘       │
  250.                            └───────────────────────────────┘
  251.  
  252.                                 ┌──────────────────┐
  253.      µÑ½δÑ íѺ º¡á¬á  ────┬────÷│»«ß½Ññ«óáΓѽ∞¡«ßΓ∞├───────────÷
  254.                           │     │     µ¿Σα         │     °
  255.                           │     └──────────────────┘     │
  256.                           │                              │
  257.                           │     ┌───┐     ┌──────────────┴───┐
  258.                           └────÷│ $ │────÷│»«ß½Ññ«óáΓѽ∞¡«ßΓ∞│
  259.                                 └───┘     │ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ │
  260.                                           │       µ¿Σα       │
  261.                                           └──────────────────┘
  262.                  ┌───┐
  263.      º¡á¬  ─┬───÷│ + ├───────÷
  264.             │    └───┘   °
  265.             │    ┌───┐   │
  266.             └───÷│ - ├───┘
  267.                  └───┘
  268.  
  269.      óÑΘÑßΓóÑ¡¡«Ñ íѺ º¡á¬á
  270.       │   ┌──────────┐    ┌───┐  ┌──────────┐
  271.       └──÷│Å«ß½Ññ«óá-├─┬─÷│ . ├─÷│»«ß½Ññ«óá-├──┬──────────────────÷
  272.           │Γѽ∞¡«ßΓ∞ │ │  └───┘  │Γѽ∞¡«ßΓ∞ │  │               °
  273.           │ µ¿Σα     │ │         │ µ¿Σα     │  │               │
  274.           └──────────┘ │         └──────────┘  │               │
  275.                        │                       ∙  ┌──────────┐ │
  276.                        └─────────────────────────÷│¼áßΦΓáí¡δ⌐├─┘
  277.                                                   │ ¼¡«ª¿Γѽ∞│
  278.                                                   └──────────┘
  279.  
  280.      ¼áßΦΓáí¡δ⌐
  281.      ¼¡«ª¿Γѽ∞
  282.       │          ┌───┐                      ┌──────────────┐
  283.       └───────┬─÷│ à ├─────┬───────────────÷│»«ß½Ññ«óáΓѽ∞-├──÷
  284.               │  └───┘ °   │          °     │¡«ßΓ∞ µ¿Σα    │
  285.               │  ┌───┐ │   │  ┌────┐  │     └──────────────┘
  286.               └─÷│ Ñ ├─┘   └─÷│º¡á¬├──┘
  287.                  └───┘        └────┘
  288.  
  289.  
  290.      τ¿ß½« íѺ º¡á¬á
  291.       │              ┌───────────────┐
  292.       └───────────┬─÷│µÑ½«Ñ íѺ º¡á¬á├────────÷
  293.                   │  └───────────────┘    °
  294.                   │  ┌────────────┐       │
  295.                   └─÷│óÑΘÑßΓóÑ¡¡«Ñ├───────┘
  296.                      │íѺ º¡á¬á   │
  297.                      └────────────┘
  298.  
  299.      τ¿ß½« ß« º¡á¬«¼
  300.       │                          ┌───────────────┐
  301.       └────────┬────────────────÷│τ¿ß½« íѺ º¡á¬á├────÷
  302.                │             °   └───────────────┘
  303.                │  ┌────┐     │
  304.                └─÷│º¡á¬├─────┘
  305.                   └────┘
  306.  
  307.  
  308.      ù¿ß½á ß  ñÑß∩Γ¿τ¡δ¼¿  Γ«τ¬á¼¿  ¿½¿  φ¬ß»«¡Ñ¡ΓἿ  »αÑñßΓáó½∩εΓ
  309. ß«í«⌐   ¬«¡ßΓá¡Γδ   óÑΘÑßΓóÑ¡¡«ú«   Γ¿»á,    «ßΓá½∞¡δÑ    ¬«¡ßΓá¡Γδ
  310. »αÑñßΓáó½∩εΓ   ß«í«⌐  ¬«¡ßΓá¡Γδ  µÑ½«τ¿ß½Ñ¡¡«ú«  Γ¿»á;  «¡¿  ñ«½ª¡δ
  311. ¡áσ«ñ¿Γ∞ß∩ ó ñ¿á»áº«¡Ñ «Γ -2147483648 ñ« 2147483647.
  312.      ÿÑßΓ¡áñµáΓ¿α¿τ¡δÑ τ¿ß½á  «í«º¡áτáεΓ  ¬«¡ßΓá¡Γδ  µÑ½«τ¿ß½Ñ¡¡«ú«
  313. Γ¿»á; «¡¿  ñ«½ª¡δ ¡áσ«ñ¿Γ∞ß∩ ó ñ¿á»áº«¡Ñ «Γ $00000000 ñ« $FFFFFFFF.
  314. ÉѺπ½∞Γ¿απεΘ¿⌐ º¡á¬    º¡áτÑ¡¿∩    «»αÑñѽ∩ÑΓß∩   ΦÑßΓ¡áñµáΓ¿α¿τ¡«⌐
  315. ºá»¿ß∞ε.
  316.  
  317.  
  318.                           æΓ᫬¿ ß¿¼ó«½«ó
  319.  
  320.      æΓ᫬á ß¿¼ó«½«ó    »αÑñßΓáó½∩ÑΓ    ß«í«⌐   »«ß½Ññ«óáΓѽ∞¡«ßΓ∞,
  321. ß«ñÑαªáΘπε ¡π½∞ ¿ í«½ÑÑ ß¿¼ó«½«ó ¿º  αáßΦ¿αÑ¡¡«ú«  ¡áí«αá  ß¿¼ó«½«ó
  322. ¬«ñá  ASCII  (»α¿½«ªÑ¡¿Ñ é),  ºá»¿ßá¡¡πε ó «ñ¡«⌐ ßΓα«¬Ñ »α«úαá¼¼δ ¿
  323. ºá¬½ετÑ¡¡πε ó «ñ¿¡«τ¡δÑ ¬áóδτ¬¿ (ừßΓα«Σδ).æΓ᫬á ß¿¼ó«½«ó, ¡¿τÑú«
  324. ¡Ñ ß«ñÑαªáΘá∩  ¼Ñªñπ  á»«ßΓα«ΣἿ,  ¡áºδóáÑΓß∩ »πßΓ«⌐ ßΓ᫬«⌐.  äóá
  325. »«ß½Ññ«óáΓѽ∞¡δσ á»«ßΓα«Σá ó ßΓα«¬Ñ ß¿¼ó«½«ó «í«º¡áτáεΓ «ñ¿¡ ß¿¼ó«½
  326. - á»«ßΓα«Σ.  ÇΓα¿íπΓ  ñ½¿¡δ ßΓ᫬¿ ß¿¼ó«½«ó ß«ñÑαª¿Γ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ
  327. ¬«½¿τÑßΓó« ß¿¼ó«½«ó ¼Ñªñπ á»«ßΓαáΣἿ.
  328.      é ¬áτÑßΓóÑ   αáßΦ¿αÑ¡¿∩   ßΓá¡ñáαΓ¡«ú«  Åá߬á½∩  Turbo  Pascal
  329. αáºαÑΦáÑΓ óßΓáó½∩Γ∞ ó ßΓ᫬π ß¿¼ó«½«ó π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ. æ¿¼ó«½ #
  330. ß  µÑ½«⌐  ¬«¡ßΓá¡Γ«⌐  íѺ  º¡á¬á ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 255 «í«º¡áτáÑΓ
  331. ß««ΓóÑΓßΓóπεΘ¿⌐ φΓ«¼π º¡áτÑ¡¿ε ß¿¼ó«½ ó ¬«ñÑ ASCII.  îѪñπ ß¿¼ó«½«¼
  332. #   ¿   µÑ½«⌐  ¬«¡ßΓá¡Γ«⌐  ¡Ñ  ñ«½ª¡«  íδΓ∞  ¡¿¬á¬¿σ  αáºñѽ¿ΓѽÑ⌐.
  333. ǡὫú¿τ¡«,  Ñß½¿ ¡Ñ߬«½∞¬« π»αáó½∩εΘ¿σ ß¿¼ó«½«ó  óσ«ñ∩Γ  ó  ßΓ᫬π
  334. ß¿¼ó«½«ó, Γ« ¼Ñªñπ ¡¿¼¿ ¡Ñ ñ«½ª¡« íδΓ∞ αáºñѽ¿ΓѽÑ⌐.
  335.  
  336.  
  337.  
  338.                      ┌───┐                    ┌───┐
  339.      ßΓα«¬á   ──────÷│ ' ├──────────────┬────÷│ ' ├────÷
  340.      ß¿¼ó«½«ó        └───┘ °  ┌──────┐  │     └───┘
  341.                            └──┤ß¿¼ó«½│≈─┘
  342.                               │ßΓ᫬¿│
  343.                               └──────┘
  344.  
  345.                           ┌──────────────────────┐
  346.                           │                      │
  347.      ß¿¼ó«½ ßΓ᫬¿ ───┬──÷│½εí«⌐ ß¿¼ó«½, ¬α«¼Ñ ' ├──────÷
  348.                       │   │ ¿½¿ CR               │   °
  349.                       │   └──────────────────────┘   │
  350.                       │        ┌───┐       ┌───┐     │
  351.                       └───────÷│ ' ├──────÷│ ' ├─────┘
  352.                                └───┘       └───┘
  353.  
  354.      Åα¿¼Ñτá¡¿Ñ: CR - ß¿¼ó«½ ó«ºóαáΓá ¬áαÑΓ¬¿.
  355.  
  356.      æΓ᫬á ß¿¼ó«½«ó ¡π½Ñó«⌐ ñ½¿¡δ (»πßΓá∩ ßΓ᫬á) ß«ó¼ÑΓ¿¼á Γ«½∞¬«
  357. ñ½∩ ßΓ᫬«óδ¼ Γ¿»«¼. æΓ᫬á ß¿¼ó«½«ó ß ñ½¿¡«⌐, αáó¡«⌐ 1, ß«ó¼ÑßΓ¿¼á
  358. ß ½εíδ¼ ß¿¼ó«½∞¡δ¼ ¿ ßΓ᫬«óδ¼ Γ¿»«¼.  æΓ᫬á ß¿¼ó«½«ó ß ñ½¿¡«⌐  N,
  359. úñÑ N  í«½∞ΦÑ  ¿½¿ αáó¡« 2,  ß«ó¼ÑßΓ¿¼á ß ½εíδ¼ ßΓ᫬«óδ¼ Γ¿»«¼ ¿ ß
  360. π»á¬«óá¡¡δ¼ ¼áßß¿ó«¼ ¿º N ß¿¼ó«½«ó.
  361.      Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó ßΓ᫬ ß¿¼ó«½«ó:
  362.  
  363.      'TURBO'   'You''ll see'        ''''    ';'     ' '
  364.      #13#10    'Line 1'#13'Line 2'   #7#7'Wake up!'#7#7
  365.  
  366.  
  367.                         ÄíΩ∩ó½Ñ¡¿Ñ ¬«¡ßΓá¡Γ
  368.  
  369.      ÄíΩ∩ó½Ñ¡¿Ñ ¬«¡ßΓá¡Γ  ß«ñÑαª¿Γ ¿ñÑ¡Γ¿Σ¿¬áΓ«α,  ¬«Γ«αδ⌐ ∩ó½∩ÑΓß∩
  370. «í«º¡áτÑ¡¿Ñ¼ ¬«¡ßΓá¡Γδ  ó¡πΓα¿   í½«¬á,   ß«ñÑαªáΘÑú«   «íΩ∩ó½Ñ¡¿Ñ.
  371. êñÑ¡Γ¿Σ¿¬áΓ«α  ¬«¡ßΓá¡Γδ  ¡Ñ  ¼«ªÑΓ íδΓ∞ ó¬½ετÑ¡ ó ßó«Ñ ß«íßΓóÑ¡¡«Ñ
  372. «íΩ∩ó½Ñ¡¿Ñ.
  373.  
  374.      «íΩ∩ó½Ñ¡¿Ñ ¬«¡ßΓá¡Γδ
  375.       │      ┌─────────────┐    ┌───┐   ┌─────────┐    ┌───┐
  376.       └─────÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├───÷│ = ├──÷│¬«¡ßΓá¡Γá├───÷│ ; ├─┬─÷
  377.         °    └─────────────┘    └───┘   └─────────┘    └───┘ │
  378.         └────────────────────────────────────────────────────┘
  379.  
  380.                     ┌─────────┐
  381.      ¬«¡ßΓá¡Γá ────÷│óδαáªÑ¡¿Ñ├───÷
  382.                     └─────────┘
  383.  
  384.      é ¬áτÑßΓóÑ   αáßΦ¿αÑ¡¿∩   ßΓá¡ñáαΓ¡«ú«  Åá߬á½∩  Turbo  Pascal
  385. αáºαÑΦáÑΓ ¿ß»«½∞º«óáΓ∞ ¬«¡ßΓá¡Γ¡δÑ óδαáªÑ¡¿∩. è«¡ßΓá¡Γ¡«Ñ óδαáªÑ¡¿Ñ
  386. -   φΓ«   óδαáªÑ¡¿Ñ,  ¬«Γ«α«Ñ  ¼«ªÑΓ  íδΓ∞  óδτ¿ß½Ñ¡«  ¬«¼»¿½∩Γ«α«¼
  387. Σá¬Γ¿τÑ߬¿ íѺ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ.  Åα¿óÑñѼ »α¿¼Ñαδ  ¬«¡ßΓá¡Γ¡δσ
  388. óδαáªÑ¡¿⌐:
  389.  
  390.      100
  391.      'Ç'
  392.      256 -1
  393.      (2.5 + 1)/(2.5 - 1)
  394.      'Turbo' + ' ' + 'Pascal'
  395.      Chr(32)
  396.      Ord('Z') - Ord('A') + 1
  397.  
  398.      Åα«ßΓÑ⌐Φ¿¼ ß½πτáѼ  ¬«¡ßΓá¡Γ¡«ú«  óδαáªÑ¡¿∩  ∩ó½∩ÑΓß∩  »α«ßΓá∩
  399. ¬«¡ßΓá¡Γá,  Γá¬á∩ ¬á¬ 100 ¿½¿  'Ç';  ó  Γ«  óαѼ∩  ¬á¬  ßΓá¡ñáαΓ¡δ⌐
  400. Åá߬á½∞ ñ«»π߬áÑΓ Γ«½∞¬« »α«ßΓπε ¬«¡ßΓá¡Γπ, Turbo Pascal ñ«»π߬áÑΓ
  401. ¬«¡ßΓá¡Γ¡δÑ óδαáªÑ¡¿∩.
  402.      Æᬠ¬á¬  ¬«¼»¿½∩Γ«α  óδτ¿ß½∩ÑΓ  ¬«¡ßΓá¡Γ¡«Ñ óδαáªÑ¡¿Ñ ºá óαѼ∩
  403. ¬«¼»¿½∩µ¿¿,  Γ« ó ¬«¡ßΓá¡Γ¡δσ  óδαáªÑ¡¿∩σ  ¡Ñ  αáºαÑΦÑ¡δ  ß½ÑñπεΘ¿Ñ
  404. ¬«¡ßΓαπ¬µ¿¿:
  405.  
  406.      - ßß佬¿   ¡á   »ÑαѼѡ¡δÑ   ¿   Γ¿»¿α«óá¡¡δÑ   ¬«¡ßΓá¡Γδ  (ºá
  407. ¿ß¬½ετÑ¡¿Ñ¼ ¬«¡ßΓá¡Γ¡δσ áñαÑß¡δσ óδαáªÑ¡¿⌐, ¬á¬ «»¿ßá¡« ó ú½áóÑ 5).
  408.      - ó맮óδ Σπ¡¬µ¿⌐ (¬α«¼Ñ »ÑαÑτ¿ß½Ñ¡¡δσ ¡¿ªÑ)
  409.      - áñαÑß¡δ⌐ «»ÑαáΓ«α (@) (ºá ¿ß¬½ετÑ¡¿Ñ¼  ¬«¡ßΓá¡Γ¡δσ  áñαÑß¡δσ
  410. óδ«αáªÑ¡¿⌐, ¬á¬ Γ»¿ßá¡« ó ú½áóÑ 5)
  411.  
  412.      çᠿ߬½ετÑ¡¿Ñ¼   φΓ¿σ   «úαá¡¿τÑ¡¿⌐,   ¬«¡ßΓá¡Γ¡δÑ   óδαáªÑ¡¿∩
  413. »«ñτ¿¡∩εΓß∩ Γ«τ¡« Γᬿ¼ ªÑ ß¿¡Γá¬ß¿τÑ߬¿¼ »αáó¿½á¼,  τΓ« ¿  «íδτ¡δÑ
  414. óδαáªÑ¡¿∩ («»¿ßá¡¡δÑ ó ú½áóÑ 6 "éδαáªÑ¡¿∩").
  415.      é ¬«¡ßΓá¡Γ¡δσ óδαáªÑ¡¿∩σ αáºαÑΦáεΓß∩ ßΓá¡ñáαΓ¡δÑ Σπ¡¬µ¿¿:
  416.  
  417.      Abs     Chr     ìi      Length     Lo      Odd     Ord
  418.  
  419.      Pred    Ptr     Round   SizeOf     Succ    Swap    Trunc
  420.  
  421.      Åα¿óÑñѼ ¡Ñ߬«½∞¬«    »α¿¼Ñα«ó    ¿ß»«½∞º«óá¡¿∩    ¬«¡ßΓá¡Γ¡δσ
  422. óδαáªÑ¡¿⌐ ó «íΩ∩ó½Ñ¡¿¿ ¬«¡ßΓá¡Γ:
  423.  
  424.      const
  425.         Min      = 0;
  426.         Max      = 100;
  427.         Center   = (Max - Min) div 2;
  428.         Beta     = Chr(225);
  429.         NumChars = Ord('Z') - Ord('A') + 1;
  430.         Message  = 'Out of memory';
  431.         ErrStr   = 'Error:' + message + '.';
  432.         ErrPos   = 80 - Lenth(ErrorStr) div 2;
  433.         ErrAttr  = Blink + Red * 16 + White;
  434.         Ln10     = 2.302585092994045684;
  435.         Ln10R    = 1/Ln10;
  436.         Numeric  = ['0' .. '9'];
  437.         Alpha    = ['A' .. 'Z', 'a' .. 'z']
  438.         AlphaNum = Alpha + Numeric;
  439.  
  440.  
  441.                             è«¼¼Ñ¡Γáα¿¿
  442.  
  443.      æ½ÑñπεΘ¿Ñ ¬«¡ßΓαπ¬µ¿¿   »αÑñßΓáó½∩εΓ   ß«í«⌐   ¬«¼¼Ñ¡Γáα¿¿   ¿
  444. ¿ú¡«α¿απεΓß∩ ¬«¼»¿½∩Γ«α«¼:
  445.  
  446.      {Any text not containing right brace}
  447.      (* Any text not containing star/right parenthesis*)
  448.  
  449.      è«¼Ñ¡Γáα¿⌐, ß«ñÑαªáΘ¿⌐   º¡á¬   ñ«½½áαá   ($)   ßαáºπ    »«ß½Ñ
  450. «Γ¬αδóáεΘÑ⌐ß∩ ß¬«í¬¿ { ¿½¿ (* - ∩ó½∩ÑΓß∩ ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá. çá
  451. ß¿¼ó«½«¼ $ ß½ÑñπÑΓ ¼¡Ñ¼«¡¿¬á ¬«¼á¡ñδ  ¬«¼»¿½∩Γ«αá.  ÄíΘÑÑ  «»¿ßá¡¿Ñ
  452. ñ¿αÑ¬Γ¿ó ¬«¼»¿½∩Γ«αá ñá¡« ó ú½áóÑ 21.
  453.  
  454.  
  455.                          æΓ᫬¿ »α«úαá¼¼δ
  456.  
  457.      é Turbo Pascal ßΓ᫬¿ »α«úαá¼¼δ ¿¼ÑεΓ ¼á¬ß¿¼á½∞¡πε ñ½¿¡π ó 126
  458. ß¿¼ó«½«ó.
  459.