For Beginners & Professional Hackers/cd.iso/docum/tp6userg.doc/ug04

Text File | 1991-02-18 | 104.8 KB | 2,168 lines

                             âïÇéÇ 4.

            ÄüÜàèÆìÄ-ÄÉêàìÆêÉÄéÇììÄà ÅÉÄâÉÇîîêÉÄéÇìêà.

     ÄíΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ (ÄÄÅ)  -  φΓ«  ¼ÑΓ«ñ
»α«úαá¼¼¿α«óá¡¿∩,    ¿¼¿Γ¿απεΘ¿⌐    ß»«ß«íδ,   ¬á¬¿¼¿,   »«   ¡áΦ¿¼
»αÑñßΓáó½Ñ¡¿∩¼,  óδ»«½¡Ñ¡δ »αÑñ¼ÑΓδ.  ¥Γ« ÑßΓÑßΓóÑ¡¡á∩ φó«½εµ¿∩  ¿º
í«½ÑÑ αá¡¡¿σ ¡«óΦÑßΓó ó »α«Ñ¬Γ¿α«óá¡¿¿ ∩ºδ¬«ó »α«úαá¼¼¿α«óá¡¿∩: «¡«
í«½ÑÑ  ßΓαπ¬Γπα¿α«óá¡«,  τѼ  »αÑñδñπΘ¿Ñ  »«»δΓ¬¿   ó   ßΓαπ¬Γπα¡«¼
»α«úαá¼¼¿α«óá¡¿¿;  «¡« í«½ÑÑ ¼«ñπ½∞¡« ¿ áíßΓαá¬Γ¡«,  τѼ »αÑñδñπΘ¿Ñ
»«»δΓ¬¿ ó áíßΓαáú¿α«óá¡¿¿ ñá¡¡δσ ¿ ß«¬αδΓ¿¿ ñÑΓá½Ñ⌐.  Æα¿  «ß¡«ó¡δσ
ßó«⌐ßΓóá      σáαá¬ΓÑਧπεΓ      ∩ºδ¬     «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«
»α«úαá¼¼¿α«óá¡¿∩:
     - ¿¡¬á»ßπ½∩µ¿∩: «íΩÑñ¿¡Ñ¡¿Ñ ºá»¿ßÑ⌐ ß »α«µÑñπαἿ ¿ Σπ¡¬µ¿∩¼¿,
τΓ« »αÑóαáΘáÑΓ ¿σ ó ¡«óδ⌐ Γ¿» ñá¡¡δσ - «íΩѬΓ;
     - ¡áß½Ññ«óá¡¿Ñ:  ºáñá¡¿Ñ «íΩѬΓá,  ºáΓѼ ¿ß»«½∞º«óá¡¿Ñ Ñú« ñ½∩
»«ßΓα«Ñ¡¿∩ ¿Ñαáασ¿¿ »«α«ªñÑ¡¡δσ «íΩÑ¬Γ«ó,  ß ¡áß½Ññ«ó᡿Ѽ  ñ«ßΓπ»á
¬áªñ«ú« ¿º »«α«ªñÑ¡¡δσ «íΩÑ¬Γ«ó ¬ ¬«ñπ ¿ ñá¡¡δ¼ »αÑñ¬á;
     - »«½¿¼«αΣ¿º¼:  ºáñá¡¿Ñ   «ñ¡«ú«   ¿¼Ñ¡¿   ñÑ⌐ßΓó¿ε,   ¬«Γ«α«Ñ
»ÑαÑñáÑΓß∩ óóÑασ  ¿ 󡿺 »« ¿Ñαáασ¿¿ «íΩÑ¬Γ«ó,  ß αÑ὿ºáµ¿Ñ⌐ φΓ«ú«
ñÑ⌐ßΓó¿∩ ß»«ß«í«¼, ß««ΓóÑΓßΓóπεΘ¿¼ ¬áªñ«¼π «íΩѬΓπ ó ¿Ñαáασ¿¿.

     ÉáßΦ¿αÑ¡¿Ñ ∩ºδ¬á Turbo Pascal  »αÑñ«ßΓáó½∩ÑΓ  óßÑ  󫺼«ª¡«ßΓ¿
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«        »α«úαá¼¼¿α«óá¡¿∩:       ¡á¿í«½∞Φπε
ßΓαπ¬Γπα¡«ßΓ∞,     áíßΓαá¬Γ¡«ßΓ∞,      ¼«ñπ½∞¡«ßΓ∞,      óßΓα«Ñ¡¡δÑ
¡Ñ»«ßαÑñßΓóÑ¡¡«   ó   ∩ºδ¬.   éßÑ  φΓ¿  ßó«⌐ßΓóá  »α¿ßπΘ¿  ¿  ¬«ñπ,
∩ó½∩εΘѼπß∩  ¡á¿í«½ÑÑ  ßΓαπ¬Γπα¡δ¼,  αáßΦ¿α∩Ñ¼δ¼   ¿   ½Ñú¬¿¼   ñ½∩
»«ññÑ᪬¿.
     ÄíαáΘÑ¡¿Ñ ¬     «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«¼π     »α«úαá¼¼¿α«óá¡¿ε
ºáßΓáó¿Γ    éáß    ¿º¼Ñ¡¿Γ∞   »α¿óδτ¬¿   ¿   ß»«ß«íδ   ¼δΦ½Ñ¡¿∩   ó
»α«úαá¼¼¿α«óá¡¿¿,  ¬«Γ«αδÑ í뫨 ßΓá¡ñáαΓ¡δ¼¿ ó ΓÑτÑ¡¿Ñ ¼¡«ú¿σ  ½ÑΓ.
Äñ¡á¬«  ÄÄÅ  ∩ó½∩ÑΓß∩  »α∩¼δ¼  «Γ¬αδΓδ¼  ¿  ¡Ñºáπα∩ñ¡δ¼ ñ½∩ αÑΦÑ¡¿∩
»α«í½Ñ¼, «ß«íÑ¡¡« Γαπñ¡δσ ñ½∩ Γαáñ¿µ¿«¡¡«ú« »α«úαá¼¼¿α«óá¡¿∩.
     çá¼Ñτá¡¿∩ ΓѼ,    ¬Γ«   ¿¼ÑÑΓ  «»δΓ  «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«
»α«úαá¼¼¿α«óá¡¿∩ ó ñαπú¿σ ∩ºδ¬áσ: ºáíπñ∞ΓÑ óßÑ ß½«ª¿óΦ¿Ñß∩ ΦΓá¼»δ ó
ÄÄÅ ¿ ¿ºπτá⌐ΓÑ «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δÑ ßó«⌐ßΓóá Turbo Pascal ó Ñú«
ΓÑନ¡áσ.  ÄÄÅ - φΓ« ¡Ñ Ññ¿¡ßΓóÑ¡¡δ⌐ ¼ÑΓ«ñ;  φΓ« ¼¡«ªÑßΓó« ¿ñÑ⌐. Å«
Σ¿½«ß«Σ¿¿ «íΩÑ¬Γ«ó,   Turbo   Pascal  ßΓ«¿Γ  í½¿ªÑ  ¬  æ++,  τѼ  ¬
SmallTálk.  SmallTalk - φΓ« ¿¡ΓÑα»αÑΓáΓ«α,  ó Γ« óαѼ∩ ¬á¬ ß ßἫú«
¡áτá½á Turbo   Pascal   ¿¼Ñ½   óßΓα«Ñ¡¡δ⌐  ß«íßΓóÑ¡¡δ⌐  ¬«¼»¿½∩Γ«α.
éßΓα«Ñ¡¡δÑ ¬«¼»¿½∩Γ«αδ óδ»«½¡∩εΓ αáí«Γπ ¿¡áτÑ,  τѼ  ¿¡ΓÑα»αÑΓáΓ«αδ
(¿ ú«αáºñ«  íδßΓαÑÑ).  Turbo  Pascal  »α«Ñ¬Γ¿α«óá½ß∩  ¬á¬  ßαÑñßΓó«
αáºαáí«Γ¬¿ »α«ñπ¬Γá, á ¡Ñ ¬á¬ ¿¡ßΓαπ¼Ñ¡Γ ¿ßß½Ññ«óá¡¿∩.
     ê ºá¼Ñτá¡¿∩  ΓѼ,  ¬Γ«  ¡Ñ  ¿¼ÑÑΓ ¡¿¬á¬«ú« »«¡∩Γ¿∩ « Γ«¼,  τΓ«
Γá¬«Ñ  ÄÄÅ:  ߬«½∞¬«  »πΓá¡¿µδ  »α«¿º«Φ½«  ¿º-ºá  Γ«ú«,  τΓ«   ½εñ¿
αáßßπªñáεΓ  «  Γ«¼,  ó  τѼ ¡Ñ αáºí¿αáεΓß∩.  çáíπñ∞ΓÑ óßÑ,  τΓ« éá¼
¡áú«ó«α¿½¿ «í ÄÄÅ. ïπτΦ¿⌐ ß»«ß«í (¿ ¡á ßἫ¼ ñÑ½Ñ Ññ¿¡ßΓóÑ¡¡δ⌐) ñ½∩
¿ºπτÑ¡¿∩ ÄÄÅ - φΓ« ßÑßΓ∞ ¿ »δΓáΓ∞ß∩ ¿ºπτ¿Γ∞ Ñú« ßἿ¼.

                            ÄíΩѬΓδ?

     äá, «íΩѬΓδ.  Å«ß¼«Γα¿ΓÑ ó«¬απú ßÑí∩...  èαπú«¼ «¡¿: ¡á»α¿¼Ñα,
∩í½«¬«, ¬«Γ«α«Ñ éδ óº∩½¿ ¡á ºáóΓαá¬.  ÅαÑñ»«½«ª¿¼,  τΓ« éδ ºáσ«Γѽ¿
«»¿ßáΓ∞ ∩í½«¬« ó ΓÑନ¡áσ »α«úαá¼¼¡«ú« «íÑß»ÑτÑ¡¿∩.  æαáºπ »«∩ó¿Γß∩
¿ß¬πΦÑ¡¿Ñ αáßτ½Ñ¡¿Γ∞ Ñú«:  »πßΓ∞  S  »αÑñßΓáó½∩ÑΓ  »½«Θáñ∞  ¬«ªπαδ;
»πßΓ∞  J  »αÑñßΓáó½∩ÑΓ  «íΩѼ ß«¬á,  ¬«Γ«αδ⌐ «¡« ß«ñÑনΓ;  »πßΓ∞ F
»αÑñßΓáó½∩ÑΓ óÑß Σαπ¬Γá;  »πßΓ∞ D »αÑñßΓáó½∩ÑΓ τ¿ß½« ßѼÑτѬ....
     ìÑ αáßßπªñá⌐ΓÑ   Γᬿ¼   «íαẫ¼.  äπ¼á⌐ΓÑ  ¬á¬  σπñ«ª¡¿¬.  éδ
ß¼«Γα¿ΓÑ ¡á ∩í½«¬«, ¿ éδ α¿ßπÑΓÑ ∩í½«¬«. 꺫íαáªÑ¡¿Ñ ∩í½«¬á ¡Ñ ÑßΓ∞
ßἫ   ∩í½«¬«;  φΓ«  ß¿¼ó«½  ¡á  »½«ß¬«⌐  »«óÑασ¡«ßΓ¿.  ì«  «¡«  ¡Ñ
áíßΓαáú¿απÑΓß∩ ó ¡Ñ߬«½∞¬« τ¿ßѽ,  ßΓ«∩Θ¿σ  «Γñѽ∞¡«  ¿  ¡Ñºáó¿ß¿¼«
ñαπú  «Γ  ñαπúá  úñÑ-Γ« ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ.  éßÑ ¬«¼»«¡Ñ¡Γδ «ßΓáεΓß∩
ó¼ÑßΓÑ, ß« ßó«¿¼¿ óºá¿¼«ßó∩º∩¼¿.
     ÄíΩѬΓδ ¼«ñѽ¿απεΓ  ßó«⌐ßΓóá  ¿  »«óÑñÑ¡¿Ñ  φ½Ñ¼Ñ¡Γ«ó ¼¿αá,  ó
¬«Γ«α«¼ ¼δ ª¿óѼ. Ä¡¿ ∩ó½∩εΓß∩ «¬«¡τáΓѽ∞¡«⌐ áíßΓαᬵ¿Ñ⌐ ñá¡¡δσ.

     Åα¿¼Ñτá¡¿Ñ: ÄíΩѬΓδ  σαá¡∩Γ  óßÑ  ßó«¿  ßó«⌐ßΓóá  ¿  »«óÑñÑ¡¿Ñ
ó¼ÑßΓÑ.

     ƒí½«¬« ¼«ª¡«  αáßτ½Ñ¡¿Γ∞,  ¡«  ó Γᬫ¼ ó¿ñÑ «¡« ∩í½«¬«¼ πªÑ ¡Ñ
íπñÑΓ.  éºá¿¼«ßó∩º¿ ¼Ñªñπ τáßΓ∩¼¿ ¿  µÑ½δ¼  ßΓá¡«ó∩Γß∩  «τÑó¿ñ¡δ¼¿,
¬«úñá  óßÑ  σαá¡¿Γß∩  ó¼ÑßΓÑ,  ó  «ñ¡«⌐ "«í«½«τ¬Ñ".  ¥Γ« ¡áºδóáÑΓß∩
¿¡¬á»ßπ½∩µ¿Ñ⌐,  ¿  φΓ«  «τÑ¡∞  ó᪡«Ñ  »«¡∩Γ¿Ñ.   îδ   óÑα¡Ñ¼ß∩   ¬
¿¡¬á»ßπ½∩µ¿¿ ¡Ñ¼¡«ú« »«ºñ¡ÑÑ.
     ìÑ ¼Ñ¡ÑÑ óáªÑ¡ Σá¬Γ,  τΓ« «íΩѬΓδ ¼«úπΓ ¡áß½Ññ«óáΓ∞ ßó«⌐ßΓóá ¿
»«óÑñÑ¡¿Ñ  «Γ  Γ«ú«,  τΓ« ¼δ ¡áºδóáѼ α«ñ¿Γѽ∞߬¿¼¿ «íΩѬΓἿ.  ¥Γ«
¿¡Γπ¿Γ¿ó¡δ⌐ ߬áτ«¬;  ¡áß½Ññ«óá¡¿Ñ,  󫺼«ª¡«, ∩ó½∩ÑΓß∩ Ññ¿¡ßΓóÑ¡¡δ¼
¬απ»¡δ¼     «Γ½¿τ¿Ñ¼     «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«    Åá߬á½∩    «Γ
»α«úαá¼¼¿α«óá¡¿∩ ¡á Turbo Pascal ó ¡áßΓ«∩ΘÑÑ óαѼ∩.


                           ìáß½Ññ«óá¡¿Ñ.

     ûѽ∞ ¡á㪨   ß«ßΓ«¿Γ   ó   Γ«¼,  τΓ«íδ  «»¿ßáΓ∞  óßѽѡ¡πε.  é
ñ«ßΓ¿ªÑ¡¿¿ φΓ«⌐ µÑ½¿ αáí«Γá ¡áπ¬¿, ó «ß¡«ó¡«¼, ºá¬½ετáÑΓß∩ »α«ßΓ« ó
ß«ºñá¡¿¿  úÑ¡ÑὫú¿τÑ߬¿σ  ñÑαÑó∞Ñó.  è«úñá  φ¡Γ«¼«½«ú¿ óÑα¡π½¿ß∞ ß
íÑαÑú«ó Ǽẫ¡¬¿ ß ¡Ñ¿ºóÑßΓ¡δ¼ αá¡ÑÑ ¡áßѬ«¼δ¼ ó íᡬÑ,  ¿σ  ºáñáτá
ß«ßΓ«∩½á  ó  Γ«¼,  τΓ«íδ  «»αÑñѽ¿Γ∞,  ¬πñá  ß½ÑñπÑΓ  »«¼ÑßΓ¿Γ∞ φΓ«
¡áßѬ«¼«Ñ ó ú¿úá¡Γ߬«⌐ ñ¿áúαá¼¼Ñ,  ó ¬«Γ«α«⌐  ß«íαá¡δ  óßÑ  ¡áπτ¡δÑ
¡áºóá¡¿∩  óßÑσ  ¡áßѬ«¼δσ.  Æá¬¿Ñ  ªÑ  ñ¿áúαá¼¼δ  ßπΘÑßΓóπεΓ  ¿ ñ½∩
αáßΓÑ¡¿⌐, αδí, ¼½Ñ¬«»¿ΓáεΘ¿σ, »αÑß¼δ¬áεΘ¿σß∩, σ¿¼¿τÑ߬¿σ φ½Ñ¼Ñ¡Γ«ó,
ó¡πΓα¿áΓ«¼¡δσ  τáßΓ¿µ  ¿  ñαπú¿σ  úá½á¬Γ¿¬.  éßÑ  «¡¿  óδú½∩ñ∩Γ ¬á¬
úÑ¡ÑὫú¿τÑ߬¿Ñ ñÑαÑó∞∩:  Ññ¿¡ßΓóÑ¡¡á∩ «íΘá∩ ¬áΓÑú«α¿∩ ó óÑαΦ¿¡Ñ, ß
πóѽ¿τ¿óáεΘ¿¼ß∩  τ¿ß½«¼  αáßσ«ñ∩Θ¿σß∩  óÑÑα«¼  ¬áΓÑú«α¿⌐  ¡¿ªÑ φΓ«⌐
Ññ¿¡ßΓóÑ¡¡«⌐ ¬áΓÑú«α¿¿.
     é¡πΓα¿ ¬áΓÑú«α¿¿   "¡áßѬ«¼«Ñ",   ¡á»α¿¼Ñα,  ÑßΓ∞  ñóÑ  óÑΓó¿:
¡áßѬ«¼δÑ ß ó¿ñ¿¼δ¼¿ ¬αδ½∞∩¼¿ ¿ ¡áßѬ«¼δÑ ß« ߬αδΓ묨  ¬αδ½∞∩¼¿ ¿½¿
ó««íΘÑ  íѺ  ¡¿σ.  ì¿ªÑ  ¬αδ½áΓδσ ¡áßѬ«¼δσ ¡áσ«ñ¿Γß∩ í«½∞Φ«Ñ τ¿ß½«
¬áΓÑú«α¿⌐:  ¼«Γδ½∞¬¿,  íáí«τ¬¿,  ¼πσ¿ ¿ Γ.ñ. èáªñá∩ ¬áΓÑú«α¿∩ ¿¼ÑÑΓ
»«ñ¬áΓÑú«α¿¿,   á  ¡¿ªÑ  φΓ¿σ  »«ñ¬áΓÑú«α¿⌐  ¡áσ«ñ¿Γß∩  ÑΘÑ  í«½∞ΦÑ
»«ñ¬áΓÑú«α¿⌐ (ß¼. α¿ß.4.1)

         É¿ßπ¡«¬ 1.1. ùáßΓ∞ ñ¿áúαá¼¼δ ¬áΓÑú«α¿¿ ¡áßѬ«¼δÑ.

                               ┌───────────┐
                               │ ¡áßѬ«¼δÑ │
                               └─┬───────┬─┘
                 ┌───────────────┘       │
                 │                       │
            ┌────┴─────┐             ┌───┴───────┐
            │ ¬αδ½áΓδÑ │             │ íÑ߬αδ½δÑ │
            └┬───┬───┬─┘             └───────────┘
    ┌────────┘   │   └───────┐
┌───┴──────┐┌────┴────┐┌─────┴────┐
│ ¼«Γδ½∞¬¿ ││ íáí«τ¬¿ ││   ¼πσ¿   │
└──────────┘└─────────┘└──────────┘

     ¥Γ«Γ »α«µÑßß   ¬½áßß¿Σ¿¬áµ¿¿   ¡áºδóáÑΓß∩   ß¿ßΓѼáΓ¿¬«⌐.  ¥Γ«
σ«α«Φá∩       ¼ÑΓáΣ«αá       ñ½∩       ¼Ñσá¡¿º¼á       ¡áß½Ññ«óá¡¿∩
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú« »α«úαá¼¼¿α«óá¡¿∩.
     é«»α«ßδ, ¬á¬¿Ñ ºáñáεΓ ßÑíÑ πτÑ¡δÑ »α¿ »«»δ⪥ ¬½áßß¿Σ¿µ¿α«óáΓ∞
¬á¬«Ñ-Γ«  ¡«ó«Ñ  ª¿ó«Γ¡«Ñ  ¿½¿  «íΩѬΓ:  ìá߬«½∞¬«  «¡«  »«σ«ªÑ  ¡á
ª¿ó«Γ¡«Ñ ¿½¿  «íΩѬΓδ  «íΘÑú«  ¬½áßßá?  ìá߬«½∞¬«  «¡«  «Γ½¿τáÑΓß∩?
èáªñδ⌐  αẽ¿τ¡δ⌐  ¬½áßß  ¿¼ÑÑΓ ¼¡«ªÑßΓó« ßó«⌐ßΓó ¿ τÑαΓ »«óÑñÑ¡¿∩,
¬«Γ«αδÑ σáαá¬ΓÑਧπεΓ Ñú«.  ôτÑ¡δÑ ¡áτ¿¡áεΓ  ß  óÑασπΦ¬¿  ßѼÑ⌐¡«ú«
ñÑαÑóá  «íαẵ«ó  ¿ ß»π߬áεΓß∩ »« Ñú« óÑΓó∩¼,  ºáñáóá∩ ßÑíÑ φΓ¿ ñóá
ó«»α«ßá ¡á »α«Γ∩ªÑ¡¿¿ óßÑú« »πΓ¿.  ìá¿óδßΦ¿Ñ  πα«ó¡¿  óßÑúñá  ßá¼δÑ
«íΘ¿Ñ,  ¿  ó«»α«ßδ »α«ßΓÑ⌐Φ¿Ñ:  ß ¬αδ½∞∩¼¿ ¿½¿ íѺ?  èáªñδ⌐ πα«óÑ¡∞
í«½ÑÑ ß»Ñµ¿Σ¿τÑ¡ »« ßαáó¡Ñ¡¿ε ß »αÑñδñπΘ¿¼ ¿ ∩ó½∩ÑΓß∩  ¼Ñ¡ÑÑ «íΘ¿¼.
ÄτÑó¿ñ¡«,  πτÑ¡δÑ  ñ«íα὿ß∞  ñ«  Γ«τ¬¿  óδßτ¿Γδóá¡¿∩  󫽫߿¡«¬ ¡á
ΓαÑΓ∞Ѽ ßπßΓáóÑ ºáñ¡¿σ ½á»«¬ ¡áßѬ«¼δσ - ó ßἫ¼  ñѽÑ, ߻ѵ¿Σ¿τ¡«Ñ
ßó«⌐ßΓó« (¿ «ß¡«óáΓѽ∞¡á∩ »α¿τ¿¡á, 󫺼«ª¡«, »« ¬«Γ«α«⌐ φ¡Γ«¼«½«ú«¼
½πτΦÑ ¡Ñ íδΓ∞).
     é᪡« ºá»«¼¡¿Γ∞, τΓ« ¬á¬ Γ«½∞¬« ßó«⌐ßΓó« ºáñá¡«, óßÑ ¬áΓÑú«α¿¿
¡¿ªÑ φΓ«ú« «»αÑñѽѡ¿∩ ß«ñÑαªáΓ φΓ« ßó«⌐ßΓó«.  Å«φΓ«¼π  ¬á¬  Γ«½∞¬«
¡áßѬ«¼«Ñ ¿ñÑ¡Γ¿Σ¿µ¿α«óá¡« ¬á¬ τ½Ñ¡ αáß»«½«ªÑ¡¿∩ diptera (¼πσá), ¡Ñ
¡πª¡« π¬áºδóáΓ∞ ºá¡«ó«,  τΓ« ¼πσá ¿¼ÑÑΓ «ñ¡π  »áαπ  ¬αδ½∞Ñó.  Äß«í¿
¡áßѬ«¼δσ,  ¬«Γ«αδσ  ¼δ ¡áºδóáѼ ¼πσἿ,  ¡áß½ÑñπεΓ φΓ« ßó«⌐ßΓó« ¿º
αáß»«½«ªÑ¡¿∩ ó ßѼÑ⌐¡«¼ ñÑαÑóÑ.
     é߬«αÑ éδ      πº¡áÑΓÑ,      τΓ«      «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«Ñ
»α«úαá¼¼¿α«óá¡¿Ñ    «τÑ¡∞     ¡á»«¼¿¡áÑΓ     »α«µÑßß     »«ßΓα«Ñ¡¿∩
úÑ¡ÑὫú¿τÑ߬¿σ  ñÑαÑó∞Ñó  ñ½∩ ßΓαπ¬Γπα ñá¡¡δσ.  Äñ¡«⌐ ¿º ó᪡Ñ⌐Φ¿σ
óÑΘÑ⌐,  ñ«íáó½∩Ѽδσ  «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δ¼  »α«úαá¼¼¿α«ó᡿Ѽ  ¬
Γαáñ¿µ¿«¡¡δ¼ ∩ºδ¬á¼ »α«úαá¼¼¿α«óá¡¿∩ Γᬿ¼,  ¬á¬ Åá߬á½∞,  ∩ó½∩ÑΓß∩
¼Ñσá¡¿º¼ ¡áß½Ññ«óá¡¿∩ ßó«⌐ßΓó ñ½∩ Γ¿»«ó ñá¡¡δσ  «Γ  í«½ÑÑ  »α«ßΓδσ,
í«½ÑÑ «íΘ¿σ Γ¿»«ó. ¥Γ¿¼ ¼Ñσá¡¿º¼«¼ ∩ó½∩ÑΓß∩ ¡áß½Ññ«óá¡¿Ñ.


                ÄíΩѬΓδ: ºá»¿ß¿, ¬«Γ«αδÑ ¡áß½ÑñπεΓ.

     é ΓÑନ¡áσ Åá߬á½∩,  «íΩÑ¬Γ «τÑ¡∞ ¡á»«¼¿¡áÑΓ ºá»¿ß∞,   ¬«Γ«αá∩
ß½πª¿Γ "«í«½«τ¬«⌐"  ñ½∩ ß«Ññ¿¡Ñ¡¿∩ ¡Ñ߬«½∞¬¿σ ßó∩ºá¡¡δσ ¼Ñªñπ ß«í«⌐
φ½Ñ¼Ñ¡Γ«ó ñá¡¡δσ »«ñ «ñ¡¿¼ ¿¼Ñ¡Ñ¼.  é úαáΣ¿τÑ߬«⌐ ßαÑñÑ  ¼δ  ñ«½ª¡δ
óº∩Γ∞ ó¼ÑßΓÑ  ¬««αñ¿¡áΓδ  X  ¿  Y  »«º¿µ¿¿  ¡á úαáΣ¿τÑ߬«¼ φ¬αá¡Ñ ¿
¡áºóáΓ∞ φΓ« Γ¿»«¼ ºá»¿ß¿ ß ¿¼Ñ¡Ñ¼ Location:

     Location = record
       X, Y : Integer;
     end;

     Location ºñÑß∞ ∩ó½∩ÑΓß∩  Γ¿»«¼  ºá»¿ß∞;  φΓ«  Φáí½«¡,  ¬«Γ«αδ⌐
¿ß»«½∞ºπÑΓß∩  ¬«¼»¿½∩Γ«α«¼  ñ½∩  ß«ºñá¡¿∩  »ÑαѼѡ¡δσ  Γ¿»á ºá»¿ß∞.
ÅÑαѼѡ¡á∩ Γ¿»á Location -  φΓ«  φ¬ºÑ¼»½∩α  Γ¿»á  Location.  ÆÑନ¡
"φ¬ºÑ¼»½∩α"  ¿ß»«½∞ºπÑΓß∩ ßÑ⌐τáß ó «¬απªÑ¡¿¿ Åá߬á½∩,  ¡« «¡ óßÑúñá
¿ß»«½∞ºπÑΓß∩ ½εñ∞¼¿,  ºá¡¿¼áεΘ¿¼¿ß∩ ÄÄÅ,  ¿ íπñÑΓ σ«α«Φ«,  Ñß½¿  éδ
¡áτ¡ÑΓÑ ñπ¼áΓ∞ ó ΓÑନ¡áσ Γ¿»«ó ¿ φ¬ºÑ¼»½∩α«ó φΓ¿σ Γ¿»«ó.
     Ä Γ¿»Ñ Location ¼«ª¡« ñπ¼áΓ∞ ñóπ¼∩ ß»«ß«íἿ: ¬«úñá ¬««αñ¿¡áΓδ
X ¿ Y ¡πª¡δ «Γñѽ∞¡« ¿ ¬«úñá éδ ñπ¼áÑΓÑ « ¡¿σ,  ¬á¬ « »«½∩σ X ¿ Y ó
ºá»¿ß¿. æ ñαπú«⌐ ßΓ«α«¡δ,  Ñß½¿ éá¼ ¡πª¡« ñπ¼áΓ∞ « ¬««αñ¿¡áΓáσ X  ¿
Y, ñÑ⌐ßΓóπεΘ¿σ ó¼ÑßΓÑ ñ½∩ ¡áσ«ªñÑ¡¿∩ Γ«τ¬¿ ¡á φ¬αá¡Ñ,  Γ« éδ ¼«ªÑΓÑ
ñπ¼áΓ∞ « ¡¿σ ß«ó«¬π»¡« ¬á¬ « Location.
     ÅαÑñ»«½«ª¿¼, éδ σ«Γ¿ΓÑ óδßóÑΓ¿Γ∞ Γ«τ¬π ó »«º¿µ¿¿, «»¿ßá¡¡«⌐ ¡á
φ¬αá¡Ñ ß »«¼«Θ∞ε Location ºá»¿ß¿.  é  Åá߬á½Ñ  éδ  ¼«ªÑΓÑ  ñ«íáó¿Γ∞
íπ½Ñó߬«Ñ »«½Ñ, π¬áºδóáεΘÑÑ, ßóÑΓ¿Γß∩ ½¿ »¿¬ßѽ ó ñá¡¡«⌐ »«º¿µ¿¿, ¿
ßñѽáΓ∞ φΓ« ¡«óδ¼ Γ¿»«¼ ºá»¿ß¿:

     Point = record
       X, Y : Integer;
       visible : éoolean;
     end;

     àß½¿ íδΓ∞  »«π¼¡ÑÑ,   Γ«  ¼«ª¡«  ß«σαá¡¿Γ∞ Γ¿» ºá»¿ß¿ Location
»«ßαÑñßΓó«¼ ß«ºñá¡¿∩ »«½∩ Γ¿»á Location ó¡πΓα¿ Γ¿»á Point:

     Point = record
       Position : Location;
       Visible  : éoolean;
     end;

     ¥Γ« αáí«ΓáÑΓ,   ¿  »α«úαá¼¼¿ßΓδ ¡á Åá߬á½Ñ ºá¡¿¼áεΓß∩ φΓ¿¼ óßÑ
óαѼ∩. Äñ¡á óÑΘ∞,  ¬«Γ«απε φëà ¼ÑΓ«ñ ¡Ñ ñѽáÑΓ:  «¡ ¡Ñ  ºáßΓáó½∩ÑΓ
éáß ñπ¼áΓ∞   «   ßπΘ¡«ßΓ¿  Γ«ú«,   τѼ  éδ  ¼á¡¿»π½¿απÑΓÑ  ó  ßó«Ñ¼
»α«úαá¼¼¡«¼ «íÑß»ÑτÑ¡¿¿. éá¼ ¡πª¡« ºáñáóáΓ∞ ßÑíÑ ó«»α«ßδ Γ¿»á: "ùѼ
Γ«τ¬á ¡á  φ¬αá¡Ñ  «Γ½¿τáÑΓß∩  «Γ  »«º¿µ¿¿ ¡á φ¬αá¡Ñ?" ÄΓóÑΓ Γᬫ⌐ :
Æ«τ¬á - φΓ« »«º¿µ¿∩ ¡á φ¬αá¡Ñ,  ¬«Γ«αá∩ ßóÑΓ¿Γß∩. Å«ñπ¼á⌐ΓÑ ÑΘÑ αáº
« »Ñαó«⌐ τáßΓ¿ φΓ«ú« πΓóÑαªñÑ¡¿∩: Γ«τ¬á - φΓ« »«º¿µ¿∩ ...
     é «»αÑñѽѡ¿¿ Γ«τ¬¿ ¡Ñ∩ó¡« »α¿ßπΓßΓóπÑΓ »«º¿µ¿∩ ñ½∩ φΓ«⌐ Γ«τ¬¿
(»¿¬ßѽδ ßπΘÑßΓóπεΓ  Γ«½∞¬« ¡á φ¬αá¡Ñ).  é «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«¼
»α«úαá¼¼¿α«óá¡¿¿ ¼δ »α¿º¡áѼ φΓπ «ß«íπε óºá¿¼«ßó∩º∞.  ū߬«½∞¬π óßÑ
Γ«τ¬¿ ñ«½ª¡δ  ß«ñÑαªáΓ∞  »«º¿µ¿ε,  ¼δ ú«ó«α¿¼,  τΓ« Γ¿» Point - φΓ«
Γ¿», »«α«ªñÑ¡¡δ⌐ Γ¿»«¼ Location.  Point ¡áß½ÑñπÑΓ óßÑ,   τΓ«  ¿¼ÑÑΓ
Location, ¿ ñ«íáó½∩ÑΓ ¡ÑτΓ« ¡«ó«Ñ ¬ Point, τΓ«íδ ßñѽáΓ∞ Point ΓѼ,
τѼ «¡« ñ«½ª¡« íδΓ∞.
     Åα«µÑßß, »«ßαÑñßΓó«¼  ¬«Γ«α«ú«  «ñ¿¡  Γ¿»  ¡áß½ÑñπÑΓ  ßó«⌐ßΓóá
ñαπú«ú« Γ¿»á,   ¡áºδóáÑΓß∩  ¡áß½Ññ«ó᡿Ѽ.   ìáß½Ññ¡¿¬   ¡áºδóáÑΓß∩
»«α«ªñÑ¡¡δ¼ Γ¿»«¼;  Γ¿»,   «Γ  ¬«Γ«α«ú«  ¡áß½ÑñπÑΓ »«α«ªñÑ¡¡δ⌐ Γ¿»,
¡áºδóáÑΓß∩ α«ñ¿Γѽ∞߬¿¼ Γ¿»«¼.
     Æ¿»δ ºá»¿ßÑ⌐  «íδτ¡«ú«  Åá߬á½∩  ¡áß½Ññ«óáΓ∞  ¡Ñ ¼«úπΓ.  Turbo
Pascal,  «ñ¡á¬«, αáßΦ¿α∩ÑΓ ∩ºδ¬ Åá߬á½∞ ñ½∩ »«ññÑ᪬¿ ¡áß½Ññ«óá¡¿∩.
Äñ¡¿¼ ¿º φΓ¿σ αáßΦ¿αÑ¡¿⌐ ∩ó½∩ÑΓß∩ ¡«óá∩ ¬áΓÑú«α¿∩ ßΓαπ¬Γπαδ ñá¡¡δσ,
¿¼ÑεΘá∩ «Γ¡«ΦÑ¡¿Ñ ¬ ºá»¿ß∩¼, ¡« ú«αáºñ« í«½ÑÑ ¼«Θ¡á∩. Æ¿»δ ñá¡¡δσ ó
φΓ«⌐  ¡«ó«⌐  ¬áΓÑú«α¿¿  ºáñáεΓß∩  ¡«óδ¼  ºáαѺÑαó¿α«óá¡¡δ¼ ß½«ó«¼ :
object («íΩѬΓ).  Æ¿» «íΩÑ¬Γ  ¼«ªÑΓ  íδΓ∞  ºáñá¡  ¬á¬  ºá¬«¡τÑ¡¡δ⌐,
áóΓ«¡«¼¡δ⌐  Γ¿»  ó ßΓ¿½Ñ ºá»¿ßÑ⌐ Åá߬á½∩,  ¿½¿ ¼«ªÑΓ íδΓ∞ ºáñá¡ ¬á¬
»«α«ªñÑ¡¿Ñ ßπΘÑßΓóπεΘÑú« Γ¿»á «íΩѬΓá,  »«ßαÑñßΓó«¼ »«¼ÑΘÑ¡¿∩ ¿¼Ñ¡¿
α«ñ¿Γѽ∞߬«ú« Γ¿»á ó ¬απú½δσ ߬«í¬áσ »«ß½Ñ ºáαѺÑαó¿α«óá¡¡«ú« ß½«óá
object.
     é úαáΣ¿τÑ߬«¼ »α¿¼ÑαÑ,  ¬«Γ«αδ⌐ ¼δ Γ«½∞¬« τΓ« αáßß¼«Γαѽ¿, ñóá
Γ¿»á «íΩѬΓá ¼«ª¡« ºáñáΓ∞ ß««ΓóÑΓßΓóÑ¡¡« Γᬿ¼ ß»«ß«í«¼:

     type
       Location = object
         X, Y : Integer;
       end;

     Point = object(Location)
       visible : éoolean;
     end;

     Åα¿¼Ñτá¡¿Ñ: ÄΓ¼ÑΓ¿¼  ¿ß»«½∞º«óá¡¿Ñ  ºñÑß∞  ¬απú½δσ  ߬«í«¬ ñ½∩
«í«º¡áτÑ¡¿∩ ¡áß½Ññ«óá¡¿∩.

     çñÑß∞ Location  ∩ó½∩ÑΓß∩  α«ñ¿Γѽ∞߬¿¼  Γ¿»«¼,   á   Point   -
»«α«ªñÑ¡¡δ¼ Γ¿»«¼.      èᬠ éδ  πó¿ñ¿ΓÑ  »«ºñ¡ÑÑ,   »α«µÑßß  ¼«ªÑΓ
»α«ñ«½ªáΓ∞ß∩ íÑ߬«¡Ñτ¡«:   ¼«ª¡«  ºáñáΓ∞  ¡áß½Ññ¡¿¬«ó  Γ¿»á  Point,
¡áß½Ññ¡¿¬«ó Γ¿»á,    »«α«ªñÑ¡¡«ú«  «Γ  Point  ¿ Γ.ñ.  ü«½∞Φá∩ τáßΓ∞
»α¿¼Ñ¡Ñ¡¿⌐ «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«   »α«Ñ¬Γ¿α«óá¡¿∩   ß«ßΓ«¿Γ   ó
»«ßΓα«Ñ¡¿¿ φΓ«⌐   ¿Ñαáασ¿¿  «íΩÑ¬Γ«ó,   óδαáªáεΘÑ⌐  ßѼÑ⌐¡«Ñ ñÑαÑó«
«íΩÑ¬Γ«ó.
     éßÑ ó«º¼«ª¡δÑ   Γ¿»δ,   »«α«ªñÑ¡¡δÑ  «Γ  Location,  ¡áºδóáεΓß∩
Location »«α«ªñÑ¡¡δ¼¿ Γ¿»á¼¿,  á Point - «ñ¿¡  ¿º  ¡Ñ»«ßαÑñßΓóÑ¡¡δσ
¡áß½Ññ¡¿¬«ó Location. ÄíαáΓ¡«, Location - ¡Ñ»«ßαÑñßΓóÑ¡¡δ⌐ α«ñ¿Γѽ∞
ñ½∩ Point.  Æ¿» «íΩÑ¬Γ (¬á¬ »«ñß»αáó«τ¡¿¬ DOS)  ¼«ªÑΓ  ¿¼ÑΓ∞  ½εí«Ñ
τ¿ß½«    ¡Ñ»«ßαÑñßΓóÑ¡¡δσ    ¡áß½Ññ¡¿¬«ó,    ¡«    Γ«½∞¬«    «ñ¡«ú«
¡Ñ»«ßαÑñßΓóÑ¡¡«ú« »αÑñ¬á.
     ÄíΩѬΓδ ΓÑß¡«  ßó∩ºá¡δ  ß  ºá»¿ß∩¼¿,    ¬á¬   »«¬áºδóáεΓ   φΓ¿
«»αÑñѽѡ¿∩. ì«ó«Ñ   ºáαѺÑαó¿α«óá¡¡«Ñ   ß½«ó«  object  -  ¡á¿í«½ÑÑ
«τÑó¿ñ¡«Ñ «Γ½¿τ¿Ñ,   ¡«  ßπΘÑßΓóπÑΓ   ¼¡«ªÑßΓó«   ñαπú¿σ   «Γ½¿τ¿⌐,
¡Ñ¬«Γ«αδÑ ¿º ¡¿σ «τÑ¡∞ Γ«¡¬¿Ñ, ¬á¬ éδ πó¿ñ¿ΓÑ »«ºñ¡ÑÑ.
     ìá»α¿¼Ñα: X ¿ Y »«½∩ ó Location ¡Ñ »¿ΦπΓß∩ ∩ó¡« ó Γ¿»Ñ  Point,
¡« Point ¿σ ¿¼ÑÑΓ,  ó« óß∩¬«¼ ß½πτáÑ, í½áú«ñáα∩ ¡áß½Ññ«óá¡¿ε. ¡«
ú«ó«α¿Γ∞ « º¡áτÑ¡¿¿ ò Γ¿»á Point,  Γ«τ¡« ΓᬠªÑ, ¬á¬ ¼«ª¡« ú«ó«α¿Γ∞
« º¡áτÑ¡¿¿ ò Γ¿»á Location.


                    ¥¬ºÑ¼»½∩αδ «íΩÑ¬Γ¡«ú« Γ¿»á.

     ¥¬ºÑ¼»½∩αδ Γ¿»á «íΩÑ¬Γ «íΩ∩ó½∩εΓß∩ Γ«τ¡« ΓᬠªÑ, ¬á¬ ó Åá߬á½Ñ
«íΩ∩ó½∩ÑΓß∩ ½εíá∩ »ÑαѼѡ¡á∩, ½¿í« ¬á¬ ßΓáΓ¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ, ½¿í«
¬á¬ π¬áºáΓѽ∞ ¡á »ÑαѼѡ¡δÑ, αẼÑΘÑ¡¡δÑ ó ¬πτÑ:

     type
       PointPtr = ^Point;
     var
       StatPoint : Point;  {ú«Γ«ó« ¬ ¿ß»«½∞º«óá¡¿ε}
       DynaPoint : PointPtr; {»ÑαÑñ ¿ß»«½∞º«ó᡿Ѽ ¡πª¡« αẼÑßΓ¿Γ∞
                              ß »«¼«Θ∞ε New}


                           Å«½∩ «íΩѬΓá.

     ä«ßΓπ» ¬  »«½∩¼ ñá¡¡δσ «íΩѬΓá ¼«ª¡« »«½πτ¿Γ∞ ΓᬠªÑ,  ¬á¬ ¿ ó
«íδτ¡«⌐ ºá»¿ß¿; ½¿í« ¿ß»«½∞ºπ∩ «»ÑαáΓ«α With, ½¿í« ¿ß»«½∞ºπ∩ Γ«τ¬π.
ìá»α¿¼Ñα:

     MyPoint.Visible := false;
     With MyPoint do
     begin
       X := 341;
       Y := 42;
     end;

     Åα¿¼Ñτá¡¿Ñ: ìÑ  ºáíδóá⌐ΓÑ!  Å«½∩,  ¡áß½ÑñπѼδÑ  «íΩÑ¬Γ«¼,   ¡Ñ
«íαáíáΓδóáεΓß∩ «ß«íδ¼ «íαẫ¼ »α«ßΓ« »«Γ«¼π,  τΓ« «¡¿ π¡áß½Ññ«óá¡δ.

     æÑ⌐τáß, »αѪñÑ óßÑú«, éδ ñ«½ª¡δ ºá»«¼¡¿Γ∞ (󫺼«ª¡«, »«¡¿¼á¡¿Ñ
φΓ«ú« »α¿ñÑΓ ÑßΓÑßΓóÑ¡¡«), τΓ« π¡áß½Ññ«óá¡¡δÑ »«½∩ ñ«ßΓπ»¡δ ΓᬠªÑ,
¬á¬ »«½∩, «íΩ∩ó½Ñ¡¡δÑ ó¡πΓα¿ ñá¡¡«ú« Γ¿»á «íΩѬΓá. ìá»α¿¼Ñα, σ«Γ∩ X
¿ Y ¡Ñ ∩ó½∩εΓß∩ τáßΓ∞ε «íΩ∩ó½Ñ¡¿∩ Point («¡¿  ¡áß½ÑñπεΓß∩  ¿º  Γ¿»á
Location),  ¼«ª¡«  ºáñáóáΓ∞  ¿σ,  ¬á¬ íπñΓ« íδ «¡¿ «íΩ∩ó½Ñ¡δ ó¡πΓα¿
Point:

     MyPoint.X := 17;


                ò«α«Φá∩ »αá¬Γ¿¬á ¿ »½«σá∩ »αá¬Γ¿¬á.

     ò«Γ∩ ¬  »«½∩¼ «íΩѬΓá ¼«ª¡« »«½πτ¿Γ∞ »α∩¼«⌐ ñ«ßΓπ»,  »«ßΓπ»áΓ∞
Γᬠ- ¡Ñ ß½¿Φ¬«¼ σ«α«Φá∩ ¿ñÑ∩.  Åα¿¡µ¿»δ  «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«
»α«úαá¼¼¿α«óá¡¿∩ ΓαÑíπεΓ, τΓ«íδ »«½∩ «íΩѬΓá «ßΓáó὿ß∞ ¡ÑΓα«¡πΓ묨
ßΓ«½∞¬«,  ¡á߬«½∞¬« φΓ« 󫺼«ª¡«.  ¥Γ«  «úαá¡¿τÑ¡¿Ñ  ó¡áτá½Ñ  ¼«ªÑΓ
»«¬áºáΓ∞ß∩  »α«¿ºó«½∞¡δ¼  ¿ úαπíδ¼,  ¡« φΓ« - τáßΓ∞ í«½∞Φ«⌐ ¬áαΓ¿¡δ
ÄÄÅ,  ¬«Γ«απε ¼δ ß«ºñáѼ ó φΓ«⌐ ú½áóÑ. æ« óαѼѡѼ éδ πó¿ñ¿ΓÑ ß¼δß½
φΓ«⌐ ¡«ó«⌐ ñѬ½áαᵿ¿ ñ½∩ σ«α«ΦÑ⌐ »αá¬Γ¿¬¿ »α«úαá¼¼¿α«óá¡¿∩, «ñ¡á¬«
»« α∩ñπ »α¿τ¿¡ ¼δ ¡Ñ ¼«ªÑ¼ αá߬αδΓ∞ Ñú«  ßÑ⌐τáß  »«½¡«ßΓ∞ε  ¿  »«¬á
»α¿¼¿ΓÑ ¡á óÑαπ:  ¿ºíÑúá⌐ΓÑ »α∩¼«ú« ñ«ßΓπ»á ¬ »«½∩¼ ñá¡¡δσ «íΩѬΓá.

     Åα¿¼Ñτá¡¿Ñ: Turbo  Pascal  ßÑ⌐τáß »«ºó«½∩ÑΓ éá¼ ßñѽáΓ∞ »«½∩ ¿
¼ÑΓ«ñδ «íΩѬΓá ½¿τ¡δ¼¿ (private). æ¼. ¡¿ªÑ "Éáºñѽ private".

     êΓᬠ- ¬á¬ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ »«½∩¼ «íΩѬΓá?  ùΓ« πßΓá¡áó½¿óáÑΓ
¿σ ¿ τ¿ΓáÑΓ ¿σ?

     Åα¿¼Ñτá¡¿Ñ: Å«½∩  ñá¡¡δσ  «íΩѬΓá - φΓ« Γ«,  τΓ« «íΩÑ¬Γ º¡áÑΓ;
Ñú« ¼ÑΓ«ñδ - φΓ« Γ«, τΓ« «íΩÑ¬Γ ñѽáÑΓ.

     ÄΓóÑΓ Γᬫ⌐:    ñ½∩  ñ«ßΓπ»á  ¬  »«½∩¼  ñá¡¡δσ  «íΩѬΓá  ¡πª¡«
¿ß»«½∞º«óáΓ∞ ¼ÑΓ«ñδ «íΩѬΓá,  úñÑ Γ«½∞¬«  󫺼«ª¡«.   îÑΓ«ñ  -  φΓ«
»α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩, «íΩ∩ó½Ñ¡¡á∩ ó¡πΓα¿ «íΩѬΓá ¿ ΓÑß¡« ßó∩ºá¡¡á∩
ß φΓ¿¼ «íΩÑ¬Γ«¼.


                              îÑΓ«ñδ.

     îÑΓ«ñδ -  φΓ«  «ñ¡¿  ¿º  ¡á¿í«½ÑÑ  »α¿ó½Ñ¬áΓѽ∞¡δσ   áΓα¿íπΓ«ó
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú« »α«úαá¼¼¿α«óá¡¿∩, ¿ «¡¿ «τÑ¡∞ óδú«ñ¡δ ñ½∩
¿ß»«½∞º«óá¡¿∩.  éÑα¡Ñ¼ß∩ ¡áºáñ ¬ «í«ß¡«óá¡¿ε  ßΓáα«⌐  ¡Ñ«íσ«ñ¿¼«ßΓ¿
ßΓαπ¬Γπα¡«ú«   »α«úαá¼¼¿α«óá¡¿∩,   ¿¡¿µ¿á½¿ºáµ¿¿  ßΓαπ¬Γπα  ñá¡¡δσ.
Éáßß¼«Γα¿¼ ºáñáτπ ¿¡¿µ¿á½¿ºáµ¿¿ ºá»¿ß¿ ß Γᬿ¼ «»αÑñѽѡ¿Ñ¼:

     Location = record
        X, Y : Integer;
     end;

     ü«½∞Φ¿¡ßΓó« »α«úαá¼¼¿ßΓ«ó íπñπΓ ¿ß»«½∞º«óáΓ∞ «»ÑαáΓ«α with ñ½∩
»α¿ßóá¿óá¡¿∩ ¿ßσ«ñ¡δσ º¡áτÑ¡¿⌐ »«½∩¼ X ¿ Y:

     var MyLocation : Location;
        with MyLocation do
        begin
           X := 17;
           Y := 42;
        end;

     ¥Γ« αáí«ΓáÑΓ σ«α«Φ«, ¡« φΓ« ΓÑß¡« ßó∩ºá¡« ß «ñ¡¿¼ «»αÑñѽѡ¡δ¼
φ¬ºÑ¼»½∩α«¼,  MyLocation.  àß½¿ »«ΓαÑíπÑΓß∩ ¿¡¿µ¿á½¿º¿α«óáΓ∞ í«½ÑÑ,
τѼ «ñ¡π ºá»¿ß∞ Location,  éá¼ ¡πª¡« íπñÑΓ í«½∞ΦÑ «»ÑαáΓ«α«ó  with,
óδ»«½¡∩εΘ¿σ, »« ßπΘÑßΓóπ, «ñ¡π ¿ Γπ ªÑ óÑΘ∞. æ½ÑñπεΘ¿¼ ÑßΓÑßΓóÑ¡¡δ¼
Φáú«¼ ∩ó½∩ÑΓß∩ »«ßΓα«Ñ¡¿Ñ »α«µÑñπαδ ¿¡¿µ¿á½¿ºáµ¿¿, ¬«Γ«αá∩ «í«íΘáÑΓ
«»ÑαáΓ«α  with,  τΓ«íδ  ó¬½ετ¿Γ∞  ½εí«⌐  φ¬ºÑ¼»½∩α  Γ¿»á  Location,
»ÑαÑñáóáѼδ⌐ ¬á¬ »áαá¼ÑΓα:

     procedure InitLocation(var Target : Location;
                            NewX, NewY : Integer);
     begin
        with Target do
        begin
           X := NewX;
           Y := NewY;
        end;
     end;

     ¥Γ« αáí«ΓáÑΓ,  óßÑ σ«α«Φ« - ¡« Ñß½¿ π éáß  »«∩󿽫ß∞  τπóßΓó«,
τΓ«  φΓ«  ¡Ñ¼¡«ú«  í«½ÑÑ ú½π»«,  τѼ ñ«½ª¡« íδΓ∞,  Γ« éδ τπóßΓóπÑΓÑ
Γá¬πε   ªÑ   óÑΘ∞,   ¬«Γ«απε   ¡áΘπ»δóáεΓ   í«½ÑÑ   αá¡¡¿Ñ   ΓÑ«α¿¿
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«     »α«úαá¼¼¿α«óá¡¿∩.
     ¥Γ« τπóßΓó« »«ñαáºπ¼ÑóáÑΓ,  τΓ«  éδ  ß»α«Ñ¬Γ¿α«ó὿  »α«µÑñπαπ
InitLocation ߻ѵ¿á½∞¡« ñ½∩ «íß½πª¿óá¡¿∩ Γ¿»á Location. ì« ºáτѼ éδ
ñ«½ª¡δ σαá¡¿Γ∞  ºáñá¡¿Ñ  Γ¿»á  ºá»¿ß¿  ¿  φ¬ºÑ¼»½∩αá,  ¡áñ  ¬«Γ«αδ¼
InitLocation  óδ»«½¡∩ÑΓ  ñÑ⌐ßΓó¿∩?  䫽ª¡«  íδΓ∞ ¡Ñ߬«½∞¬« ß»«ß«í«ó
«íΩÑñ¿¡Ñ¡¿∩ Γ¿»á ºá»¿ß∞ ¿ ¬«ñá,  «íß½πª¿óáεΘÑú« ÑÑ, ó Ññ¿¡«Ñ µÑ½«Ñ.
     çñÑß∞ αáßß¼áΓα¿óáÑΓß∩  Γᬫ⌐  ß»«ß«í.  Ä¡  ¡áºδóáÑΓß∩ ¼ÑΓ«ñ«¼.
îÑΓ«ñ - φΓ« »α«µÑñπαá  ¿½¿  Σπ¡¬µ¿∩  ¡áßΓ«½∞¬«  ΓÑß¡«  ßó∩ºá¡¡δÑ  ß
ñá¡¡δ¼ Γ¿»«¼, τΓ« ¼ÑΓ«ñ «¬απªáÑΓß∩ ¡Ñó¿ñ¿¼δ¼ «»ÑαáΓ«α«¼ with, ñѽá∩
ñ«ßΓπ»¡δ¼¿ φ¬ºÑ¼»½∩αδ φΓ«ú« Γ¿»á ¿º¡πΓα¿ ¼ÑΓ«ñá.  Ä»αÑñѽѡ¿Ñ  Γ¿»á
ó¬½ετáÑΓ  ºáú«½«ó«¬  ¼ÑΓ«ñá.  Å«½¡«Ñ  «»αÑñѽѡ¿Ñ ¼ÑΓ«ñá ºáñáÑΓß∩ ß
¿¼Ñ¡Ñ¼ Γ¿»á.  Æ¿» «íΩѬΓá ¿ ¼ÑΓ«ñ «íΩѬΓá - φΓ« ñóÑ  ßΓ«α«¡δ  φΓ«ú«
¡«ó«ú« ó¿ñá ßΓαπ¬Γπαδ, ¡áºδóáѼ«⌐ «íΩÑ¬Γ«¼:

     type
       Location = object
          X,Y : Integer;
          procedure Init(NewX, NewY : Integer);
       end;

       procedure Location.Init(NewX, NewY : Integer);
       begin
          X := NewX; {»«½Ñ ò «íΩѬΓá Location }
          Y := NewY; {»«½Ñ Y «íΩѬΓá Location }
       end;

     ÆÑ»Ñα∞, τΓ«íδ ¿¡¿µ¿á½¿º¿α«óáΓ∞ φ¬ºÑ¼»½∩α Γ¿»á Location, »α«ßΓ«
ó맮ó¿ΓÑ Ñú« ¼ÑΓ«ñ, ¬á¬ Ñß½¿ íδ ¼ÑΓ«ñ íδ½ »«½Ñ¼ ºá»¿ß¿:

     var
        MyLocation : Location;
     MyLocation.Init(17, 42);  {½Ñú¬«, ¡ÑΓ?}


                       è«ñ ¿ ñá¡¡δÑ ó¼ÑßΓÑ.

     Äñ¡¿¼ ¿º    ó᪡Ñ⌐Φ¿σ    »α¿¡µ¿»«ó   «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«
»α«úαá¼¼¿α«óá¡¿∩ ∩ó½∩ÑΓß∩ Γ«,  τΓ« »α«úαá¼¼¿ßΓ ñ«½ªÑ¡ ñπ¼áΓ∞ « ¬«ñÑ
¿ ñá¡¡δσ  ó¼ÑßΓÑ  ó«  óαѼ∩  »α«Ñ¬Γ¿α«óá¡¿∩ »α«úαá¼¼δ.  ì¿ ¬«ñ,  ¡¿
ñá¡¡δÑ ¡Ñ ßπΘÑßΓóπεΓ ó óá¬ππ¼Ñ.  äá¡¡δÑ π»αáó½∩εΓ »«Γ«¬«¼ ¬«ñá,   á
¬«ñ ¼á¡¿»π½¿απÑΓ Σ«α¼«⌐ ¿ º¡áτÑ¡¿Ñ¼ ñá¡¡δσ.
     è«úñá ¬«ñ ¿ ñá¡¡δÑ ßπΘÑßΓóπεΓ «Γñѽ∞¡«,  óßÑúñá ÑßΓ∞ «»áß¡«ßΓ∞
ó맮óá »αáó¿½∞¡«⌐   »α«µÑñπαδ  ß  ¡ÑóÑα¡δ¼¿  ñá¡¡δ¼¿  ¿½¿  ¡ÑóÑα¡«⌐
»α«µÑñπαδ ß   »αáó¿½∞¡δ¼¿  ñá¡¡δ¼¿.   Åα«óÑα¬á  φΓ«ú«  ß««ΓóÑΓßΓó¿∩
∩ó½∩ÑΓß∩ ºáñáτÑ⌐ »α«úαá¼¼¿ßΓá,  ¿ ó Γ« óαѼ∩, ¬á¬ Åá߬á½∞ «¬áºδóáÑΓ
»«¼«Θ∞ »α¿   »α«óÑα¬Ñ ßΓα«ú«ú« ß««ΓóÑΓßΓó¿∩ Γ¿»«ó,  ½πτΦÑÑ,  τΓ« «¡
¼«ªÑΓ ß¬áºáΓ∞, φΓ« Γ«, τÑú« ¡Ñ½∞º∩ ßñѽáΓ∞ "ó¼ÑßΓÑ".
     Åá߬á½∞ ¡¿τÑú« ¡Ñ ú«ó«α¿Γ « Γ«¼,  τΓ« ¼«ª¡« ßñѽáΓ∞  "ó¼ÑßΓÑ",
Ñß½¿  φΓ«ú«  ¡ÑΓ  ó  ¬«¼¼Ñ¡Γáα¿∩σ ¿½¿ ó éáΦÑ⌐ ú«½«óÑ,  Γ« éδ ó ó«½Ñ
ß½πτá∩.
     Å«ßαÑñßΓó«¼ «íΩÑñ¿¡Ñ¡¿∩  «íΩ∩ó½Ñ¡¿∩  ñá¡¡δσ  ¿   ¬«ñá   «íΩѬΓ
»«¼«úáÑΓ σαá¡¿Γ∞  ¿σ ß¿¡σα«¡¡«.  Äíδτ¡«,  ñ½∩ Γ«ú«,  τΓ«íδ »«½πτ¿Γ∞
º¡áτÑ¡¿Ñ «ñ¡«ú« ¿º »«½Ñ⌐ «íΩѬΓá, éδ óδºδóáÑΓÑ ¼ÑΓ«ñ, »α¿¡áñ½ÑªáΘ¿⌐
φΓ«¼π «íΩѬΓπ,  ¬«Γ«αδ⌐ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ΓαÑíπѼ«ú« »«½∩.  ùΓ«íδ
πßΓá¡«ó¿Γ∞ º¡áτÑ¡¿Ñ »«½∩,  éδ óδºδóáÑΓÑ ¼ÑΓ«ñ,  »α¿ßóá¿óáεΘ¿⌐ ¡«ó«Ñ
º¡áτÑ¡¿Ñ φΓ«¼π »«½ε.
     èᬠ¿       ¼¡«ú¿Ñ      á߻ѬΓδ      «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«
»α«úαá¼¼¿α«óá¡¿∩, ¿¡¬á»ßπ½∩µ¿∩ ñá¡¡δσ - φΓ« ñ¿ßµ¿»½¿¡á,  ¬«Γ«α«⌐ éδ
óßÑúñá ñ«½ª¡δ ß½Ññ«óáΓ∞.  ïπτΦ¿⌐ ß»«ß«í «íαáΘáΓ∞ß∩ ¬ ñá¡¡δ¼ «íΩѬΓá
ß ¿ß»«½∞º«ó᡿Ѽ Ñú« ¼ÑΓ«ñ«ó ó¼ÑßΓ« »α∩¼«ú«  τΓÑ¡¿∩  ñá¡¡δσ.  Turbo
Pascal »«ºó«½∩ÑΓ  éá¼  πß¿½¿Γ∞  ¿¡¬á»ßπ½∩µ¿ε,  ¿ß»«½∞ºπ∩ «íΩ∩ó½Ñ¡¿Ñ
private ó «íΩ∩ó½Ñ¡¿¿ «íΩѬΓá (ß¼. ¡¿ªÑ "Éáºñѽ private").


                         çáñá¡¿Ñ ¼ÑΓ«ñ«ó.

     Åα«µÑßß ºáñá¡¿∩  ¼ÑΓ«ñá  ¡á»«¼¿¡áÑΓ  ¼«ñ㫨 Turbo Pascal.  é¡Ñ
«íΩѬΓá  ¼ÑΓ«ñ   ºáñáÑΓß∩   ºáú«½«ó¬«¼   »α«µÑñπαδ   ¿½¿   Σπ¡¬µ¿¿,
ñÑ⌐ßΓóπεΘÑ⌐ ¬á¬ ¼ÑΓ«ñ:

     type
       Location = object
          X,Y : Integer;
          procedure Init(InitX, InitY : Integer);
          function GetX : Integer;
          function GetY : Integer;
       end;

     Åα¿¼Ñτá¡¿Ñ: éßÑ »«½∩ ñá¡¡δσ ñ«½ª¡δ íδΓ∞ «íΩ∩ó½Ñ¡δ »ÑαÑñ »Ñαóδ¼
«íΩ∩ó½Ñ¡¿Ñ¼ ¼ÑΓ«ñá.

     èᬠ¿ «íΩ∩ó½Ñ¡¿Ñ »α«µÑñπα ¿  Σπ¡¬µ¿⌐  ó  ¿¡ΓÑαΣÑ⌐ß¡«¼  αáºñѽÑ
¼«ñπ½∩, «íΩ∩ó½Ñ¡¿∩ ¼ÑΓ«ñá ó¡πΓα¿ «íΩѬΓá ú«ó«α∩Γ, τΓ« ¼ÑΓ«ñ ñѽáÑΓ,
¡« ¡Ñ ¬á¬.  èᬠ- ºáñáÑΓß∩  ó¡Ñ  «»αÑñѽѡ¿∩  «íΩѬΓá  ó  «Γñѽ∞¡«¼
«»αÑñѽѡ¿¿   »α«µÑñπαδ   ¿½¿   Σπ¡¬µ¿¿.   è«úñá  ¼ÑΓ«ñδ  »«½¡«ßΓ∞ε
«»αÑñѽѡδ ó¡Ñ «íΩѬΓá, ¿¼Ñ¡¿ ¼ÑΓ«ñá ñ«½ª¡« »αÑñΦÑßΓó«óáΓ∞ ¡áºóá¡¿Ñ
Γ¿»á «íΩѬΓá, ¬«Γ«α«¼π ¼ÑΓ«ñ »α¿¡áñ½Ñª¿Γ, ß«»α«ó«ªñáѼ«Ñ Γ«τ¬«⌐:

     procedure Location.Init(InitX, InitY : Integer);
     begin
       X := InitX;
       Y := InitY;
     end;

     function Location.GetX : Integer;
     begin
       GetX := X;
     end;

     function Location.GetY : Integer;
     begin
       GetY := Y;
     end;

     Ä»αÑñѽѡ¿Ñ ¼ÑΓ«ñá  ß½ÑñπÑΓ  ¿¡Γπ¿Γ¿ó¡«  ¼ÑΓ«ñπ  ºáñá¡¿∩  »«½∩
ºá»¿ß¿ ß »«¼«Θ∞ε Γ«τ¬¿. éñ«íáó«¬ ¬ «»αÑñѽѡ¿ε Location.GetX, íπñÑΓ
󻫽¡Ñ    ºá¬«¡¡«    ºáñáΓ∞    »α«µÑñπαπ,   ¡áºóá¡¡πε   GetX,   íѺ
»αÑñΦÑßΓóπεΘÑú«   ÑÑ   ¿¼Ñ¡¿   ¿ñÑ¡Γ¿Σ¿¬áΓ«αá   Location.   Äñ¡á¬«,
"ó¡ÑΦ¡∩∩" Getò  ¡Ñ  íπñÑΓ  ¿¼ÑΓ∞  ßó∩º¿  ß Γ¿»«¼ «íΩѬΓá Location ¿
¼«ªÑΓ »α¿óÑßΓ¿ ¬ »πΓá¡¿µÑ ó »α«úαá¼¼Ñ.


              æΣÑαá ñÑ⌐ßΓó¿∩ ¼ÑΓ«ñá ¿ Self »áαá¼ÑΓα.

     çá¼ÑΓ¿¼, τΓ«  ¡¿úñÑ ó »αÑñδñπΘ¿σ ¼ÑΓ«ñáσ ¡ÑΓ ∩ó¡«⌐ with «íΩѬΓ
do ...  ¬«¡ßΓαπ¬µ¿¿.  Å«½∩ ñá¡¡δσ  «íΩѬΓá  ñ«ßΓπ»¡δ  φΓ¿¼  ¼ÑΓ«ñá¼
«íΩѬΓá. Éáºñѽѡ¡δÑ  ó  ¿ßσ«ñ¡«¼ ¬«ñÑ,  ΓÑ½á ¼ÑΓ«ñ«ó ¿ »«½∩ ñá¡¡δσ
«íΩѬΓá ¡á ßἫ¼ ñÑ½Ñ αáºñѽ∩εΓ «ñ¡π ¿ Γπ ªÑ ßΣÑαπ ñÑ⌐ßΓó¿∩.
     ¥Γ« ∩ó½∩ÑΓß∩  «íΩ∩ß¡Ñ¡¿Ñ¼  Γ«ú«  Σá¬Γá,   τΓ« «ñ¿¡ ¿º Location
¼ÑΓ«ñ«ó ¼«ªÑΓ ß«ñÑαªáΓ∞ «»ÑαáΓ«α GetY := Y; íѺ  ¬óá½¿Σ¿¬áΓ«αá  ñ½∩
Y. ¥Γ«  »α«¿ßσ«ñ¿Γ »«Γ«¼π, τΓ« Y »α¿¡áñ½Ñª¿Γ Γ«¼π ªÑ «íΩѬΓπ, τΓ« ¿
φëà ¼ÑΓ«ñ.  è«úñá «íΩÑ¬Γ «»αÑñѽ∩ÑΓ ¼ÑΓ«ñ,  »α¿ φΓ«¼  »α¿ßπΓßΓóπÑΓ
¡Ñ∩ó¡δ⌐ «»ÑαáΓ«α  with  MySelf  do ¼ÑΓ«ñ,  ßó∩ºδóáεΘ¿⌐ «íΩÑ¬Γ ¿ Ñú«
¼ÑΓ«ñ ó ßΣÑαÑ ñÑ⌐ßΓó¿∩.
     ¥Γ«Γ ¡Ñ∩ó¡δ⌐  with  «»ÑαáΓ«α  óδ»«½¡∩ÑΓß∩ »«ßαÑñßΓó«¼ »ÑαÑñáτ¿
¡Ñ∩ó¡«ú«  »áαá¼ÑΓαá  ¼ÑΓ«ñπ  ¬áªñδ⌐  αáº,  ¬«úñá  ¬á¬«⌐-½¿í«  ¼ÑΓ«ñ
óδºδóáÑΓß∩.  ¥Γ«Γ  »áαá¼ÑΓα  ¡áºδóáÑΓß∩  Self ¿ Σá¬Γ¿τÑ߬¿ ∩ó½∩ÑΓß∩
»«½¡δ¼ 32 í¿Γ«óδ¼ π¬áºáΓѽѼ ¡á φ¬ºÑ¼»½∩α «íΩѬΓá,  ñѽáεΘ¿⌐  ó맮ó
ñ½∩ ¼ÑΓ«ñá.  GetY ¼ÑΓ«ñ, »α¿¡áñ½ÑªáΘ¿⌐ Location, úαπí« φ¬ó¿óá½Ñ¡ΓÑ¡
ß½ÑñπεΘѼπ:

     function Location.GetY(var Self : Location) : Integer;
     begin
       GetY := Self.Y;
     end;

     Åα¿¼Ñτá¡¿Ñ: ¥Γ«Γ  »α¿¼Ñα ß¿¡Γá¬ß¿τÑ߬¿ ¡Ñ ß«óßѼ »αáó¿½Ñ¡;  «¡
»α¿ó«ñ¿Γß∩ ºñÑß∞ »α«ßΓ« ñ½∩ Γ«ú«,  τΓ«íδ ñáΓ∞ í«½ÑÑ  »«½¡πε  «µÑ¡¬π
«ß«í«⌐ ßó∩º¿ ¼Ñªñπ «íΩѬΓἿ ¿ Ñú« ¼ÑΓ«ñἿ.

     é᪡« ½¿ ñ½∩ éáß º¡áΓ∞ í«½∞ΦÑ « Self? Äíδτ¡« ¡ÑΓ. âÑ¡Ñα¿απѼδ⌐
Turbo Pascal  ¬«ñ  «íαáíáΓδóáÑΓ  Ñú«  áóΓ«¼áΓ¿τÑ߬¿.  Äñ¡á¬«   ÑßΓ∞
¡Ñ߬«½∞¬«  ß½πτáÑó,  ¬«úñá  éδ  ¼«ªÑΓÑ  ó¼ÑΦáΓ∞ß∩  ó¡πΓα∞  ¼ÑΓ«ñá ¿
ßñѽáΓ∞ ∩ó¡δ¼ ¿ß»«½∞º«óá¡¿Ñ Self »áαá¼ÑΓαá.

     Åα¿¼Ñτá¡¿Ñ: ƒó¡«Ñ ¿ß»«½∞º«óá¡¿Ñ Self  ºá¬«¡¡«,  ¡«  éδ  ñ«½ª¡δ
¿ºíÑúáΓ∞ ß¿Γπᵿ⌐, ΓαÑíπεΘ¿σ φΓ«ú«.

     öá¬Γ¿τÑ߬¿ Self     ∩ó½∩ÑΓß∩     áóΓ«¼áΓ¿τÑ߬¿     «íΩ∩ó½Ñ¡¡δ¼
¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼,  ¿  Ñß½¿   éá¼   ß½πτ¿½«ß∞   «í¡áαπª¿Γ∞   ¬«¡Σ½¿¬Γ
¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó  ó¡πΓα¿  ¼ÑΓ«ñá,  éδ  ¼«ªÑΓÑ  αáºαÑΦ¿Γ∞  Ñú«  »πΓѼ
¿ß»«½∞º«óá¡¿∩ Self ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ó ¬áτÑßΓóÑ ¬óá½¿Σ¿¬áΓ«αá ¬ ½εí«¼π
»«½ε ñá¡¡δσ, »α¿¡áñ½ÑªáΘ¿σ «íΩѬΓπ ¼ÑΓ«ñá:

     type
        MouseStat = record
           Active : Boolean;
           X, Y : Integer;
           LButton, RButton : Boolean;
           Visible : Boolean;
        end;

        procedure Location.GoToMouse(MousePos : MouseStat);
        begin
           Hide;
           with MousePos do
           begin
              Self.X := X;
              Self.Y := Y;
           end;
           Show;
        end;

     Åα¿¼Ñτá¡¿Ñ: îÑΓ«ñδ,  αÑ὿º«óá¡¡δÑ  ¬á¬   ó¡ÑΦ¡¿Ñ   ¡á   ∩ºδ¬Ñ
áßßѼí½Ñα,  ñ«½ª¡δ  »α¿¡¿¼áΓ∞  ó  αáßτÑΓ  Self,  ¬«úñá «¡¿ »«½πτáεΓ
ñ«ßΓπ» ¬  »áαá¼ÑΓαá¼  ¼ÑΓ«ñá  ó  ßΓѬÑ.  ü«½ÑÑ  ñÑΓá½∞¡«Ñ  «»¿ßá¡¿Ñ
ßΓαπ¬Γπαδ ßΓÑ¬á    ó맮óá   ¼ÑΓ«ñá   ß¼.   ú½áóπ   18   Éπ¬«ó«ñßΓóá
»α«úαá¼¼¿ßΓá.

     ¥Γ«Γ »α¿¼Ñα  ß½¿Φ¬«¼ »α«ßΓ ¿ ¿ß»«½∞º«óá¡¿Ñ Self ¼«ª¡« ¿ºíѪáΓ∞
»πΓѼ   «Γ¬áºá   «Γ    ¿ß»«½∞º«óá¡¿∩    with    «»ÑαáΓ«αá    ó¡πΓα¿
Location.GoToMouse.  éδ  ¼«ªÑΓÑ «¬áºáΓ∞ß∩ ó ß¿Γπᵿ¿,  ¬«úñá ó¡πΓα¿
ß½«ª¡«ú« ¼ÑΓ«ñá ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ «»ÑαáΓ«αá with π»α«ΘáÑΓ
½«ú¿¬π ó ñ«ßΓáΓ«τ¡«⌐ ßΓѻѡ¿ ñ½∩ «Γ¬áºá «Γ  ¿ß»«½∞º«óá¡¿∩ »áαá¼ÑΓαá
Self. Self »áαá¼ÑΓα - φΓ« τáßΓ∞ Σ¿º¿τÑ߬«⌐ ßΓαπ¬Γπαδ ßΓѬá ñ½∩ óßÑσ
ó맮ó«ó ¼ÑΓ«ñá.


             Å«½∩ ñá¡¡δσ «íΩѬΓá ¿ Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ
                              ¼ÑΓ«ñá.

     æ½ÑñßΓó¿Ñ¼ Γ«ú« Σá¬Γá,  τΓ« «íΩѬΓδ ¿ ¿σ ¼ÑΓ«ñδ αáºñѽ∩εΓ «ñ¡π
¿ Γπ  ªÑ  ßΣÑαπ  ñÑ⌐ßΓó¿∩,  ∩ó½∩ÑΓß∩  Γ«,  τΓ« Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ
¼ÑΓ«ñá ¡Ñ ¼«úπΓ íδΓ∞ ¿ñÑ¡Γ¿τ¡δ »«½∩¼ ñá¡¡δσ «íΩѬΓá.  ¥Γ« ¡Ñ  ¡«óδÑ
«úαá¡¿τÑ¡¿∩,  óó«ñ¿¼δÑ «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δ¼ »α«úαá¼¼¿α«óá¡¿¼, á
߬«αÑÑ ßΓáαδÑ  »αáó¿½á  ßΣÑαδ  ñÑ⌐ßΓó¿∩,  ¬«Γ«αδÑ  óßÑúñá  í뫨   ó
Åá߬á½Ñ.  ¥Γ«  ΓÑ  ªÑ  ßá¼δÑ  »αáó¿½á,  ¡Ñ  »«ºó«½∩εΘ¿Ñ  Σ«α¼á½∞¡δ¼
»áαá¼ÑΓαá¼  »α«µÑñπαδ  íδΓ∞  ¿ñÑ¡Γ¿τ¡δ¼¿   ½«¬á½∞¡δ¼¿   »ÑαѼѡ¡δ¼¿
»α«µÑñπαδ:

     procedure CrunchIt(Crunchee : MyDataRec;
                        CrunchBy, ErrorCode : Integer);
     var
        A, B : Char;
        ErrorCode : Integer; {φΓ« «íΩ∩ó½Ñ¡¿Ñ »α¿óÑñÑΓ ¬ «Φ¿í¬Ñ}
     begin
        ...

     﫬á½∞¡δÑ »ÑαѼѡ¡δÑ   »α«µÑñπαδ  ¿  ÑÑ  Σ«α¼á½∞¡δÑ  »áαá¼ÑΓαδ
αáºñѽ∩εΓ «ñ¡π ¿ Γπ ªÑ ßΣÑαπ  ñÑ⌐ßΓó¿∩  ¿  »«φΓ«¼π  ¡Ñ  ¼«úπΓ  íδΓ∞
¿ñÑ¡Γ¿τ¡δ¼¿.  éδ  »«½πτ¿ΓÑ  "Error 4:  Duplicate identifier",  Ñß½¿
»«»δΓáÑΓÑß∞ «Γ¬«¼»¿½¿α«óáΓ∞ τΓ«-Γ« »«ñ«í¡«Ñ φΓ«¼π;  ß½πτ¿Γß∩ Γá  ªÑ
ßá¼á∩   «Φ¿í¬á,   Ñß½¿  éδ  »«»δΓáÑΓÑß∞  ºáñáΓ∞  ¼ÑΓ«ñπ  Σ«α¼á½∞¡δ⌐
»áαá¼ÑΓα,  ¿ñÑ¡Γ¿τ¡δ⌐  ¬á¬«¼π-½¿í«   »«½ε   ó   «íΩѬΓÑ,   ¬«Γ«α«¼π
»α¿¡áñ½Ñª¿Γ φëà ¼ÑΓ«ñ.
     Å«ß½ÑñßΓó¿∩ ¡Ñ¼¡«ú« «Γ½¿τáεΓß∩,  Γᬠ¬á¬  »«¼ÑΘÑ¡¿Ñ  ºáú«½«ó¬á
»α«µÑñπαδ ó¡πΓα¿  ßΓαπ¬Γπαδ  ñá¡¡δσ - φΓ« ¡«ó«Ñ ó Turbo Pascal,  ¡«
óÑñπΘ¿Ñ »α¿¡µ¿»δ ßΣÑαδ ñÑ⌐ßΓó¿∩ Åá߬á½∩ ó µÑ½«¼ ¡Ñ ¿º¼Ñ¡¿½¿ß∞.

                ÄíΩѬΓδ, φ¬ß»«αΓ¿απѼδÑ ¼«ñπ½∩¼¿.

     ê¼ÑÑΓ ß¼δß½ ºáñáΓ∞ «íΩѬΓδ ó ¼«ñπ½Ñ ß «íΩ∩ó½Ñ¡¿Ñ¼ Γ¿»á «íΩѬΓá
ó  ¿¡ΓÑαΣÑ⌐ß¡«¼  αáºñÑ½Ñ  ¼«ñπ½∩  ¿  ΓѽἿ  »α«µÑñπα  ¼ÑΓ«ñ«ó Γ¿»á
«íΩѬΓ,  ºáñá¡¡δ¼¿ ó  αáºñÑ½Ñ  αÑ὿ºáµ¿¿  ¼«ñπ½∩.

     Åα¿¼Ñτá¡¿Ñ: ¥¬ß»«αΓ¿απѼδ⌐ «º¡áτáÑΓ "ºáñá¡¡δ⌐  ó  ¿¡ΓÑαΣÑ⌐ß¡«¼
αáºñÑ½Ñ ¼«ñπ½∩".

     î«ñ㫨 ¼«úπΓ  ¿¼ÑΓ∞ ß«íßΓóÑ¡¡δÑ «»αÑñѽѡ¿∩ Γ¿»á «íΩÑ¬Γ ó¡πΓα¿
αáºñѽá αÑ὿ºáµ¿¿, ¿ Γá¬¿Ñ Γ¿»δ »«ñτ¿¡∩εΓß∩ Γᬿ¼ ªÑ «úαá¡¿τÑ¡¿∩¼,
τΓ« ¿ ½εíδÑ Γ¿»δ, ºáñá¡¡δÑ ó αáºñÑ½Ñ αÑ὿ºáµ¿¿ ¼«ñπ½∩. Æ¿» «íΩѬΓ,
ºáñá¡¡δ⌐ ó ¿¡ΓÑαΣÑ⌐ß¡«¼ αáºñÑ½Ñ ¼«ñπ½∩,   ¼«ªÑΓ  ¿¼ÑΓ∞  »«α«ªñÑ¡¡δÑ
Γ¿»δ «íΩѬΓá, ºáñá¡¡δÑ ó αáºñÑ½Ñ αÑ὿ºáµ¿¿ ¼«ñπ½∩. é ß½πτáÑ, ¬«úñá
¼«ñπ½∞ é ¿ß»«½∞ºπÑΓ ¼«ñπ½∞ Ç,   ¼«ñπ½∞  é  Γᬠ ªÑ  ¼«ªÑΓ  ºáñáóáΓ∞
»«α«ªñÑ¡¡δÑ Γ¿»δ ½εí«ú« «íΩѬΓá, φ¬ß»«αΓ¿απѼ«ú« ¿º ¼«ñπ½∩ Ç.
     Æ¿»δ «íΩÑ¬Γ«ó ¿ ¼ÑΓ«ñδ,  «»¿ßá¡¡δÑ óδΦÑ,  ¼«ª¡« ºáñáΓ∞  ó¡πΓα¿
¼«ñπ½∩, ¬á¬   »«¬áºá¡«   ó   POINTS.PAS   ¡á   éáΦѼ  ñ¿ß¬Ñ.  ùΓ«íδ
¿ß»«½∞º«óáΓ∞ Γ¿»δ «íΩÑ¬Γ«ó ¿ ¼ÑΓ«ñδ,  «»αÑñѽѡ¡δÑ ó ¼«ñπ½Ñ Points,
¼«ª¡«  »α«ßΓ« ¿ß»«½∞º«óáΓ∞ φëà ¼«ñπ½∞ ó ßó«Ñ⌐ »α«úαá¼¼Ñ ¿ «íΩ∩ó¿Γ∞
φ¬ºÑ¼»½∩α Γ¿»á Point ó var αáºñÑ½Ñ ßó«Ñ⌐ »α«úαá¼¼δ:

     program MakePoints;

     uses Graph, Points;

     var
        APoint : Point;
        ...

     ä½∩ Γ«ú«,   τΓ«íδ  ß«ºñáΓ∞  ¿  »«¬áºáΓ∞ Γ«τ¬π,  »αÑñßΓáó½Ñ¡¡πε
»ÑαѼѡ¡«⌐ APoint,  ¡πª¡« »α«ßΓ« óδºóáΓ∞ ¼ÑΓ«ñδ APoint,   ¿ß»«½∞ºπ∩
ß¿¡Γá¬ß¿ß ß Γ«τ¬«⌐:

     APoint.Init(151, 82); {¿ßσ«ñ¡δÑ º¡áτÑ¡¿∩ X, Y 151 ¿ 52}
     APoint.Show;          {APoint ó¬½ετáÑΓß∩}
     APoint.MoveTo(163, 101); {APoint »ÑαѼÑΘáÑΓß∩ ó 163, 101}
     APoint.Hide;          {APoint ó䬽ετáÑΓß∩}

     Åα¿¼Ñτá¡¿Ñ: ÄíΩѬΓδ    Γᬠ  ªÑ   ¼«úπΓ   íδΓ∞   Γ¿»¿α«óá¡¡δ¼¿
¬«¡ßΓá¡ΓἿ.

     ÄíΩѬΓδ ¿¼ÑεΓ ¼¡«ú« «íΘÑú«  ß  ºá»¿ß∩¼¿  ¿  ¿σ  Γᬠ ªÑ  ¼«ª¡«
¿ß»«½∞º«óáΓ∞   ó¡πΓα¿  with  «»ÑαáΓ«α«ó.  é  φΓ«¼  ß½πτáÑ  ¡áºóá¡¿Ñ
«íΩѬΓá, ¬«Γ«α«¼π »α¿¡áñ½Ñª¿Γ ¼ÑΓ«ñ, ¡Ñ«í∩ºáΓѽ∞¡«:

     with APoint do
     begin
        Init(151, 82); {¿ßσ«ñ¡δÑ º¡áτÑ¡¿∩ X, Y 151 ¿ 52}
        Show;          {APoint ó¬½ετáÑΓß∩}
        MoveTo(163, 101); {APoint »ÑαѼÑΘáÑΓß∩ ó 163, 101}
        Hide;          {APoint ó䬽ετáÑΓß∩}
     end;

     èᬠ¿ ºá»¿ß¿,  «íΩѬΓδ  ¼«úπΓ  »ÑαÑñáóáΓ∞ß∩  ó  »α«µÑñπαδ  ¬á¬
»áαá¼ÑΓαδ ¿ (¬á¬ éδ πó¿ñ¿ΓÑ »«ºñ¡ÑÑ) ¼«úπΓ αẼÑΘáΓ∞ß∩ ó "¬πτÑ".


                          Éáºñѽ private.

     é α∩ñÑ ß½πτáÑó π éáß  ¼«úπΓ  íδΓ∞  τáßΓ¿  «íΩ∩ó½Ñ¡¿∩  «íΩѬΓá,
¬«Γ«αδÑ éδ   ¡Ñ   σ«Γ¿ΓÑ   φ¬ß»«αΓ¿α«óáΓ∞.   ìá»α¿¼Ñα,   éá¼  ¼«ªÑΓ
»«¡áñ«í¿Γ∞ß∩ »αÑñ«ßΓáó¿Γ∞   «íΩѬΓδ   ñ½∩   ¿ß»«½∞º«óá¡¿∩   ñαπú¿¼¿
»α«úαá¼¼¿ßΓἿ, ¡Ñ   »«ºó«½∩∩  ¿¼  ¼á¡¿»π½¿α«óáΓ∞  ñá¡¡δ¼¿  «íΩѬΓá
¡á»α∩¼πε. ùΓ«íδ »«ºó«½¿Γ∞ φΓ«,  Turbo  Pascal  αáºαÑΦáÑΓ  π¬áºδóáΓ∞
½¿τ¡δÑ (private) »«½∩ ¿ ¼ÑΓ«ñδ ó¡πΓα¿ «íΩѬΓá.
     ï¿τ¡δÑ »«½∩ ¿ ¼ÑΓ«ñδ ñ«ßΓπ»¡δ Γ«½∞¬« ó¡πΓα¿ ¼«ñπ½∩,  ó ¬«Γ«α«¼
«íΩ∩ó½Ñ¡ «íΩѬΓ.  é »αÑñδñπΘѼ »α¿¼ÑαÑ,  Ñß½¿,  ¡á»α¿¼Ñα, Γ¿» Point
¿¼Ñ½ ½¿τ¡δÑ »«½∩,  ¬ ¡¿¼ ¼«ª¡«  «íαáΓ¿Γ∞ß∩  Γ«½∞¬«  ¿º¡πΓα¿  ¼«ñπ½∩
Points. äáªÑ,  σ«Γ∩  ñαπú¿Ñ  τáßΓ¿  Point  íπñπΓ  φ¬ß»«αΓ¿α«óáΓ∞ß∩,
τáßΓ¿, «íΩ∩ó½Ñ¡¡δÑ ¬á¬ ½¿τ¡δÑ, íπñπΓ ¡Ññ«ßΓπ»¡δ.
     ï¿τ¡δÑ »«½∩  ¿  ¼ÑΓ«ñδ «íΩ∩ó½∩εΓß∩ ßαáºπ »«ß½Ñ «íδτ¡δσ »«½Ñ⌐ ¿
¼ÑΓ«ñ«ó, ß½Ññπ∩  ºá  ºáαѺÑαó¿α«óá¡¡δ¼   ß½«ó«¼   private.   Å«½¡δ⌐
ß¿¡Γá¬ß¿ß «íΩ∩ó½Ñ¡¿∩ «íΩѬΓá:

         type
           ì«óδ⌐ÄíΩÑ¬Γ = object(»αÑñ«¬)
             »«½∩;
             ¼ÑΓ«ñδ;
           private
             »«½∩;
             ¼ÑΓ«ñδ;
           end;

                 ìÑ»«ßαÑñßΓóÑ¡¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ.

     î¡«ú«Ñ ¿º Γ«ú«,  τΓ« í佫 ߬áºá¡« «í «íΩѬΓáσ, ñѼ«¡ßΓα¿α«óὫ
πñ«í¡δÑ »Ñαß»Ñ¬Γ¿óδ αáºó¿Γ¿∩ Turbo Pascal,  ß ¬«Γ«αδ¼ éδ, óÑα«∩Γ¡«,
º¡á¬«¼δ.   Åα¿   »ÑαÑσ«ñÑ   ¬  ÄÄÅ  «Γ  «»δΓá  »α«úαá¼¼¿α«óá¡¿∩  ¡á
ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ ¼¡«ú«Ñ ¼Ñ¡∩ÑΓß∩.  ÄÄÅ ¿¼ÑÑΓ ßó«⌐  «ß«íδ⌐  ¡áí«α
»α¿¡µ¿»«ó,  Γᬠ ¬á¬  ßó«¿¼  »α«¿ßσ«ªñÑ¡¿Ñ¼  «í∩º∩¡  ñ«ó«½∞¡« πº¬«⌐
«í½áßΓ¿ ¿ßß½Ññ«óá¡¿⌐,  ¿ ΓᬠªÑ »α«ßΓ«  »«Γ«¼π,  τΓ«  ñÑ⌐ßΓó¿Γѽ∞¡«
¿¼ÑÑΓ αáñ¿¬á½∞¡δÑ «Γ½¿τ¿∩.

     Åα¿¼Ñτá¡¿Ñ: ÄíΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δÑ    ∩ºδ¬¿   «ñ¡áªñδ   í뫨
¼ÑΓáΣ«α¿τÑ߬¿ ¡áºóá¡δ "á¬ΓÑα߬¿¼¿ ∩ºδ¬á¼¿".

     çáíáó¡« óδú½∩ñ¿Γ,    ¬á¬  Σá¡áΓ¿¬¿  ÄÄÅ  á½ú«α¿Γ¼¿º¿απεΓ  ßó«¿
«íΩѬΓδ. æΓαπ¬Γπαδ  ñá¡¡δσ ¡Ñ ∩ó½∩εΓß∩ í«½∞ΦÑ »áßß¿ó¡δ¼¿ ¬«αº¿¡á¼¿,
¬πñá éδ   ºáíαáßδóáÑΓÑ  º¡áτÑ¡¿∩.   æ  ¡«ó«⌐  Γ«τ¬¿ ºαÑ¡¿∩,  «íΩѬΓ
αáßß¼áΓα¿óáÑΓß∩ ¬á¬ á¬ΓÑα ¡á ߵѡÑ,  ß ¡áí«α«¼  ºáπτÑ¡¡δσ  ¡á¿ºπßΓ∞
τÑαΓ »«óÑñÑ¡¿∩ (¼ÑΓ«ñ«ó).  è«úñá éδ (αѪ¿ßßÑα) ñáÑΓÑ ¬«¼á¡ñπ, á¬ΓÑα
ñѬ½á¼¿απÑΓ »« ߵѡáα¿ε.
     ÑΓ «¬áºáΓ∞ß∩   »«½Ñº¡δ¼  »«αáßßπªñáΓ∞  Γá¬,   τΓ«  «»ÑαáΓ«α
APoint.MoveTo(242, 118)  «ΓñáÑΓ  »α¿¬áº  «íΩѬΓπ  APoint,   ú«ó«α∩:
"»ÑαÑñó¿¡∞ß∩ ó  »«º¿µ¿ε  242, 118".  çñÑß∞ «íΩÑ¬Γ ∩ó½∩ÑΓß∩ «ß¡«ó¡δ¼
»«¡∩Γ¿Ñ¼. èᬠ ß»¿ß«¬  ¼ÑΓ«ñ«ó,   Γᬠ ¿   ß»¿ß«¬   »«½Ñ⌐   ñá¡¡δσ,
ß«ñÑαªáΘ¿σß∩ ó  «íΩѬΓÑ,   ß½πªáΓ  «íΩѬΓπ.   ì¿ ¬«ñ,  ¡¿ ñá¡¡δÑ ¡Ñ
∩ó½∩εΓß∩ ú½áó¡δ¼¿.
     ÄíΩѬΓδ ¡Ñ «»¿ßδóáεΓß∩ ¬á¬ á¬ΓÑαδ ¡á  ßµÑ¡Ñ,  τΓ«  ¬á¬  αẠ ¿
»α¿ó½Ñ¬áΓѽ∞¡«. ÄíΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ ßΓáαáÑΓß∩
«τÑ¡∞ ßΓα«ú« ¼«ñѽ¿α«óáΓ∞ ¬«¼»«¡Ñ¡Γδ »α«í½Ñ¼δ ¬á¬ ¬«¼»«¡Ñ¡Γδ,  á ¡Ñ
¬á¬ ½«ú¿τÑ߬¿Ñ áíßΓαᬵ¿¿.  æá¼δÑ αẽ¿τ¡δÑ óÑΘ¿, óßΓαÑτáεΘ¿Ñß∩ ¡á¼
ó ª¿º¡¿,  «Γ Γ«ßΓÑαá,  ΓѽÑΣ«¡«ó ñ« ¼áσα«óδσ »«½«Γѡѵ,  óßÑ  ¿¼ÑεΓ
ßó«⌐ßΓóá  (ñá¡¡δÑ)  ¿  »«óÑñÑ¡¿Ñ  (¼ÑΓ«ñδ).  æó«⌐ßΓóá Γ«ßΓÑαá ¼«úπΓ
ó¬½ετáΓ∞ ΓαÑíπѼ«Ñ  ¡á»α∩ªÑ¡¿Ñ,  ¬«½¿τÑßΓó«  ½«¼Γ¿¬«ó,  ¬«Γ«α«Ñ  «¡
¼«ªÑΓ  »«ñªáα¿Γ∞ «ñ¡«óαѼѡ¡«,  πßΓá¡«ó¬π πα«ó¡∩ ßóÑΓ/ΓѼ¡«Γá,  Ñú«
µóÑΓ,  ¼áα¬π ¿ Γ.ñ.  àú« »«óÑñÑ¡¿Ñ ó¬½ετáÑΓ »α¿Ñ¼  ½«¼Γ¿¬«ó  σ½Ñíá,
»«ñªáα¿óá¡¿Ñ ¿σ ¿ óδñáτá »«ñªáαÑ¡¡δσ ½«¼Γ¿¬«ó «íαáΓ¡«.
     àß½¿ ¼δ σ«Γ¿¼ ¡á»¿ßáΓ∞  »α«úαá¼¼π  ¼«ñѽ¿α«óá¡¿∩  ¬πσ¡¿,   τΓ«
¼«ªÑΓ íδΓ∞  ½πτΦÑ  ß»«ß«íá ¼«ñѽ¿α«óá¡¿∩ αẽ¿τ¡δσ »α¿ß»«ß«í½Ñ¡¿⌐ ó
ó¿ñÑ «íΩÑ¬Γ«ó ß« ßó«¿¼¿ ßó«⌐ßΓóἿ ¿ »«óÑñÑ¡¿Ñ¼,  ºá¬«ñ¿α«óá¡¡δ¼  ó
»«½∩σ ñá¡¡δσ  ¿ ¼ÑΓ«ñáσ?  öá¬Γ¿τÑ߬¿ φΓ« í佫 ßñѽᡫ; ßá¼δ⌐ »Ñαóδ⌐
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δ⌐ ∩ºδ¬ (Simula-67)  íδ½ ß«ºñá¡ ¬á¬ ∩ºδ¬  ñ½∩
Γᬫú« ¼«ñѽ¿α«óá¡¿∩.
     ¥Γ« ∩ó½∩ÑΓß∩ »α¿τ¿¡«⌐ Γ«ú«,  τΓ« «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δ⌐ ∩ºδ¬
ΓᬠΓÑß¡«     »α¿ó∩ºá¡     ó     «íδτ¡«¼     ºñαáó«¼    ß¼δ᫥    ¬
úαáΣ¿τÑ߬«-«α¿Ñ¡Γ¿α«óá¡¡«⌐ ßαÑñÑ. ÄíΩѬΓδ ñ«½ª¡δ íδΓ∞ ¿¼¿Γᵿ∩¼¿, á
τΓ« ¼«ªÑΓ  íδΓ∞ ½πτΦÑ ß»«ß«íá ß¼«ñѽ¿α«óáΓ∞ «íΩѬΓ,  τѼ ¡áα¿ß«óáΓ∞
Ñú« ¿º«íαáªÑ¡¿Ñ?   ÄíΩѬΓδ   Turbo   Pascal   ñ«½ª¡δ   ¼«ñѽ¿α«óáΓ∞
¬«¼»«¡Ñ¡Γδ »α«í½Ñ¼δ,  ¬«Γ«απε éδ »δΓáÑΓÑß∞ αÑΦ¿Γ∞.  çừ¼¡¿ΓÑ  φΓ«,
Γᬠ    ¬á¬     éδ    ó    ñá½∞¡Ñ⌐ΦѼ    íπñÑΓÑ    ¿ºπτáΓ∞    ¡«óδÑ
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δÑ αáßΦ¿αÑ¡¿∩ Turbo Pascal.

                        ꡬá»ßπ½∩µ¿∩.

     ÄíΩÑñ¿¡Ñ¡¿Ñ ¬«ñá   ¿   ñá¡¡δσ  ó¼ÑßΓÑ  ó  «íΩѬΓáσ  ¡áºδóáÑΓß∩
¿¡¬á»ßπ½∩µ¿Ñ⌐.  àß½¿ éδ ½εí¿ΓÑ ñ«¬á»δóáΓ∞ß∩ ñ« ßπΓ¿,  Γ« éδ  ¼«ªÑΓÑ
«íÑß»Ñτ¿Γ∞  Γá¬«Ñ  ¬«½¿τÑßΓó«  ¼ÑΓ«ñ«ó,  τΓ«íδ »«½∞º«óáΓÑ½ε «íΩѬΓá
¡¿¬«úñá ¡Ñ »«ΓαÑí«óá½ß∩ »α∩¼«⌐  ñ«ßΓπ»  ¬  »«½∩¼  «íΩѬΓá.  Å«ñ«í¡«
Smalltalk  ¿  ñαπú¿¼ «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δ¼ ∩ºδ¬á¼,  Turbo Pascal
ñáÑΓ   éá¼   󫺼«ª¡«ßΓ∞    »α¿¡πñ¿Γѽ∞¡«⌐    ¿¡¬á»ßπ½∩µ¿¿    τÑαѺ
¿ß»«½∞º«óá¡¿Ñ  ñ¿αÑ¬Γ¿óδ  private.  é  φΓ«¼  »α¿¼ÑαÑ  ¼δ  ¡Ñ  σ«Γ¿¼
π¬áºδóáΓ∞ αáºñѽ private ñ½∩ »«½Ñ⌐  ¿  ¼ÑΓ«ñ«ó,  ó¼ÑßΓ«  φΓ«ú«,  ¼δ
«úαá¡¿τ¿¼ß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡δ¼  ¿ß»«½∞º«ó᡿Ѽ  ¼ÑΓ«ñ«ó ñ½∩ ñ«ßΓπ»á ¬
ñá¡¡δ¼.
     Åα¿¼Ñτá¡¿Ñ: ÄíΩ∩ó½Ñ¡¿Ñ  »«½Ñ⌐ ¬á¬ private «º¡áτáÑΓ ó«º¼«ª¡«ßΓ∞
ñ«ßΓπ»á ¬ ¡¿¼ Γ«½∞¬« τÑαѺ ¼ÑΓ«ñδ.
     Location ¿  Point  ¡á»¿ßá¡δ  Γá¬,   τΓ«  »α∩¼«⌐ ñ«ßΓπ» ¬ ½εíδ¼
ó¡πΓαÑ¡¡¿¼ »«½∩¼ ñá¡¡δσ ß«óÑαΦÑ¡¡« ¡Ñ ¡πªÑ¡:

     type
       Location = object
          X,Y : Integer;
          procedure Init(InitX, InitY : Integer);
          function GetX : Integer;
          function GetY : Integer;
       end;

       Point    = object (Location)
          Visible : Boolean;
          procedure Init(InitX, InitY : Integer);
          procedure Show; virtual;
          procedure Hide; virtual;
          function IsVisible : Boolean;
          procedure MoveTo(NewX, NewY : Integer);
       end;


     çñÑß∞ ÑßΓ∞ Γ«½∞¬« Γα¿ »«½∩ ñá¡¡δσ:  X,  Y ¿  Visible.   MoveTo
¼ÑΓ«ñ »α¿ßóá¿óáÑΓ  ¡«óδÑ  º¡áτÑ¡¿∩  X  ¿  Y,   GetX  ¿  GetY ¼ÑΓ«ñδ
ó«ºóαáΘáεΓ º¡áτÑ¡¿∩ X ¿ Y.  Å«φΓ«¼π  »α∩¼«ú«  ñ«ßΓπ»á  ¬  X,   Y  ó
ñá½∞¡Ñ⌐ΦѼ ¡Ñ  »«ΓαÑíπÑΓß∩.   Show  ¿  Hide  »ÑαѬ½ετáεΓ  íπ½Ñó߬πε
»ÑαѼѡ¡πε Visible  ¼Ñªñπ  True  ¿  False,   á  IsVisible   Σπ¡¬µ¿∩
ó«ºóαáΘáÑΓ ΓѬπΘÑÑ ß«ßΓ«∩¡¿Ñ Visible.
     ÅαÑñ»«½«ª¿ó, τΓ« φ¬ºÑ¼»½∩α Γ¿»á Point ¡áºδóáÑΓß∩  APoint,   éδ
¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞  φëà  ¡áí«α  ¼ÑΓ«ñ«ó  ñ½∩ ¡Ñ»α∩¼«ú« π»αáó½Ñ¡¿∩
»«½∩¼¿ ñá¡¡δσ APoint, ¡á»α¿¼Ñα:

     with APoint do
     begin
        Init(0, 0); {¿¡¿µ¿á½¿º¿απÑΓ ¡«óπε Γ«τ¬π ó 0,0}
        Show;    {ñѽáÑΓ Γ«τ¬π ó¿ñ¿¼«⌐}
     end;

     çá¼ÑΓ¿¼, τΓ« ¬ »«½∩¼ ñá¡¡δσ «íΩѬΓá ñ«ßΓπ»á  ¡ÑΓ  ó««íΘÑ,   ºá
¿ß¬½ετÑ¡¿Ñ¼ ¼ÑΓ«ñ«ó «íΩѬΓá.

                   îÑΓ«ñδ: «íαáΓ¡á∩ ßΓ«α«¡á.

     ä«íáó½Ñ¡¿Ñ φΓ¿σ  ¼ÑΓ«ñ«ó ¡Ñ¼¡«ú« πóѽ¿τ¿óáÑΓ ó «íΩÑ¼Ñ ¿ßσ«ñ¡πε
Σ«α¼π Point, ¡« ßπα«óδ⌐ αÑñá¬Γ«α ßó∩ºÑ⌐ Turbo Pascal  πñá½∩ÑΓ ½εí«⌐
¬«ñ ¼ÑΓ«ñá,    ¬«Γ«αδ⌐   ¡¿   αáºπ   ¡Ñ   óδºδóáÑΓß∩  ó  »α«úαá¼¼Ñ.
æ½Ññ«óáΓѽ∞¡« ¡Ñ ¡πª¡« í«∩Γ∞ß∩ ºáñáΓ∞ Γ¿»π «íΩѬΓá ¼ÑΓ«ñ,   ¬«Γ«αδ⌐
¼«ªÑΓ ¿ ¡Ñ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áªñ«⌐ »α«úαá¼¼Ñ, ¿ß»«½∞ºπεΘÑ⌐ φΓ«Γ Γ¿»
«íΩѬΓá. ìÑ¿ß»«½∞ºπѼδÑ ¼ÑΓ«ñδ  ¡Ñ  íπñπΓ  éá¼  ßΓ«¿Γ∞  ¡¿τÑú«  »α¿
óδ»«½¡Ñ¡¿¿ ¿  ¡Ñ  «Γαáº∩Γ∞ß∩  ¡á  αẼÑαÑ  .EXE Σá⌐½á - Ñß½¿ «¡¿ ¡Ñ
¿ß»«½∞ºπεΓß∩, ¿σ Γá¼ »α«ßΓ« ¡ÑΓ.

     Åα¿¼Ñτá¡¿Ñ:  çá¼Ñτá¡¿Ñ «í áíßΓαᬵ¿¿ ñá¡¡δσ.
     àßΓ∞ ¼¡«ú« óδú«ñ¡δσ ßΓ«α«¡ ó 󫺼«ª¡«ßΓ¿  »«½¡«ßΓ∞ε  ¿ß¬½ετ¿Γ∞
Point ¿º  ú½«íá½∞¡δσ  ßß佫¬.   àß½¿  ¡¿¬Γ«  ó¡Ñ «íΩѬΓá "¡Ñ º¡áÑΓ"
»αÑñßΓáó½Ñ¡¿∩ Ñú« ó¡πΓαÑ¡¡¿σ ñá¡¡δσ,  Γ« »α«úαá¼¼¿ßΓ,   π»αáó½∩εΘ¿⌐
φΓ¿¼ «íΩÑ¬Γ«¼,   ¼«ªÑΓ  ¿º¼Ñ¡∩Γ∞  ñÑΓ὿  ó¡πΓαÑ¡¡Ñú« »αÑñßΓáó½Ñ¡¿∩
ñá¡¡δσ - ñ« ΓÑσ »«α, »«¬á ºáú«½«ó«¬ ¼ÑΓ«ñá «ßΓáÑΓß∩ »αѪ¡¿¼.

     é¡πΓα¿ ¡Ñ¬«Γ«αδσ «íΩÑ¬Γ«ó ñá¡¡δÑ ¼«ª¡« »αÑñßΓáó¿Γ∞ ¬á¬ ¼áßß¿ó,
¡« »«ºñ¡ÑÑ (󫺼«ª¡«,  »« ¼ÑαÑ α«ßΓá «í½áßΓ¿ ñÑ⌐ßΓó¿∩ »α¿½«ªÑ¡¿∩  ¿
αáßΦ¿αÑ¡¿∩ «íΩÑ¼á  ñá¡¡δσ)   í«½ÑÑ φΣΣÑ¬Γ¿ó¡δ¼ »αÑñßΓáó½Ñ¡¿Ñ¼ ¼«ª¡«
»α¿º¡áΓ∞ ñó«¿τ¡«Ñ ñÑαÑó«.  àß½¿ «íΩÑ¬Γ »«½¡«ßΓ∞ε ¿¡¬á»ßπ½¿α«óá¡, Γ«
¿º¼Ñ¡Ñ¡¿Ñ ó  »αÑñßΓáó½Ñ¡¿¿  ñá¡¡δσ  ¿º ¼áßß¿óá ó ñó«¿τ¡«Ñ ñÑαÑó« ¡Ñ
¿º¼Ñ¡¿Γ ¿ß»«½∞º«óá¡¿Ñ «íΩѬΓá ó µÑ½«¼. ê¡ΓÑαΣÑ⌐ß ¬ «íΩѬΓπ «ßΓáÑΓß∩
»«½¡«ßΓ∞ε »αѪ¡¿¼,    »«ºó«½∩∩   »α«úαá¼¼¿ßΓπ   ¿º∩Θ¡«  ¡áßΓαá¿óáΓ∞
αÑ὿ºáµ¿ε «íΩѬΓá  íѺ  αáºí¿Ñ¡¿∩  ¬á¬«ú«-Γ«  íδ  ¡¿  í佫   ¬«ñá,
¿ß»«½∞ºπΘÑú« φëà «íΩѬΓ.

                      ÉáßΦ¿α∩ѼδÑ «íΩѬΓδ.

     ïεñ¿, ó»ÑαóδÑ  ßΓ«½¬¡πóΦ¿Ñß∩  ß  Åá߬á½Ñ¼,  ßτ¿ΓáεΓ ßἫ ß«í«⌐
αáºπ¼ÑεΘ¿¼ß∩ ú¿í¬«ßΓ∞ ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ  Writeln,   »«ºó«½∩εΘÑ⌐
«ñ¡«⌐ »α«µÑñπαÑ «íαáíáΓδóáΓ∞ »áαá¼ÑΓαδ ¡Ñ߬«½∞¬¿σ αẽ¿τ¡δσ Γ¿»«ó:

     Writeln(CharVar); {óδó«ñ¿Γ º¡áτÑ¡¿Ñ ß¿¼ó«½á}
     Writeln(IntegerVar); {óδó«ñ¿Γ µÑ½«τ¿ß½Ñ¡¡«Ñ º¡áτÑ¡¿Ñ}
     Writeln(RealVar); {óδó«ñ¿Γ º¡áτÑ¡¿Ñ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐}

     è ß«ªá½Ñ¡¿ε  ßΓá¡ñáαΓ¡δ⌐  Åá߬á½∞ ¡Ñ »αÑñ«ßΓáó½∩ÑΓ ó«º¼«ª¡«ßΓ¿
ñ½∩ ß«ºñá¡¿∩ éáΦ¿σ ß«íßΓóÑ¡¡δσ ó αáó¡«⌐ ßΓѻѡ¿ ú¿í¬¿σ »α«µÑñπα.
     ÄíΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ  αÑΦáÑΓ φΓπ »α«í½Ñ¼π
»«ßαÑñßΓó«¼ ¡áß½Ññ«óá¡¿∩:  ¬«úñá ºáñáÑΓß∩ α«ñ¿Γѽ∞߬¿⌐ Γ¿»,  ¼ÑΓ«ñδ
α«ñ¿Γѽ∞߬«ú« Γ¿»á   ¡áß½ÑñπεΓß∩,   ¡« »α¿ ¡Ñ«íσ«ñ¿¼«ßΓ¿ «¡¿ ΓᬠªÑ
¼«úπΓ íδΓ∞ »ÑαѬαδΓδ.  ùΓ«íδ »ÑαѬαδΓ∞ α«ñ¿Γѽ∞߬¿⌐ ¼ÑΓ«ñ,   »α«ßΓ«
ºáñá⌐ΓÑ ¡«óδ⌐ ¼ÑΓ«ñ ß ΓѼ ªÑ ¿¼Ñ¡Ñ¼, τΓ« ¿ α«ñ¿Γѽ∞߬¿⌐ ¼ÑΓ«ñ, ¡« ß
ñαπú¿¼ Γѽ«¼ ¿ (Ñß½¿ ¡Ñ«íσ«ñ¿¼«) ß ñαπú¿¼ ¡áí«α«¼ »áαá¼ÑΓα«ó.
     Éáßß¼«Γα¿¼ »α«ßΓ«⌐ »α¿¼Ñα. äáóá⌐ΓÑ ºáñáñ¿¼ Γ¿», »«α«ªñÑ¡¡δ⌐ «Γ
Point, ¬«Γ«αδ⌐ α¿ßπÑΓ «¬απª¡«ßΓ∞ ó¼ÑßΓ« Γ«τ¬¿ ¡á φ¬αá¡Ñ:

    type
     Circle   = object (Point)
       Radius : Integer;
       procedure Init(InitX, InitY : Integer;
                      InitRadius : Integer);
       procedure Show;
       procedure Hide;
       procedure Expand(ExpandBy : Integer);
       procedure Contract(ContractBy : Integer);
     end;

     constructor Circle.Init(InitX, InitY : Integer;
                             InitRadius : Integer);
     begin
        Point.Init(InitX, InitY);
        Radius := InitRadius;
     end;

     procedure Circle.Show;
     begin
        Visible := True;
        Graph.Circle(X, Y, Radius);
     end;

     procedure Circle.Hide;
     var
        TempColor : Word;
     begin
        TempColor := Graph.GetColor;
        Graph.SetColor(GetBkColor);
        Visible := False;
        Graph.Circle(X, Y, Radius);
        Graph.SetColor(TempColor);
     end;

     procedure Circle.Expand(ExpandBy : Integer);
     begin
        Hide;
        Radius := Radius + ExpandBy;
        if Radius < 0 then Radius := 0;
        Show;
     end;

     procedure Circle.Contract(ContractBy : Integer);
     begin
        Expand(-ContractBy);
     end;

     procedure Circle.MoveTo(NewX, NewY : Integer);
     begin
        Hide;
        X := NewX;
        Y := NewY;
        Show;
     end;

     Ĭαπª¡«ßΓ∞, ó ¡Ñ¬«Γ«α«¼ ß¼δß½Ñ,  ∩ó½∩ÑΓß∩ ª¿α¡«⌐ Γ«τ¬«⌐:   «¡á
¿¼ÑÑΓ óßÑ,     τΓ«    ¿¼ÑÑΓ    Γ«τ¬á   (»«º¿µ¿ε   X,Y,    ß«ßΓ«∩¡¿Ñ
ó¿ñ¿¼δ⌐/¡Ñó¿ñ¿¼δ⌐) »½εß αáñ¿πß.  ÄíΩÑ¬Γ¡δ⌐ Γ¿» Circle »«∩ó¿½ß∩  ñ½∩
Γ«ú«, τΓ«íδ  ¿¼ÑΓ∞ Ññ¿¡ßΓóÑ¡¡«Ñ »«½Ñ Radius,  ¡« ¡Ñ ºáíδóáÑΓ « óßÑσ
ñαπú¿σ »«½∩σ,  ¬«Γ«αδÑ Circle ¡áß½ÑñπÑΓ ¬á¬ ¡áß½Ññ¡¿¬  Γ¿»á  Point.
Circle ¿¼ÑÑΓ X,Y ¿ Visible, ñáªÑ Ñß½¿ éδ ¡Ñ ó¿ñ¿ΓÑ ¿σ ó «»αÑñѽѡ¿¿
Γ¿»á ñ½∩ Circle.
     Æᬠ¬á¬ Circle ºáñáÑΓ ¡«ó«Ñ »«½Ñ Radius,  Γ« Ñú« ¿¡¿µ¿á½¿ºáµ¿∩
ΓαÑíπÑΓ ¡«ó«ú« Init ¼ÑΓ«ñá,  ¬«Γ«αδ⌐ ¿¡¿µ¿á½¿º¿απÑΓ Radius,  ΓᬠªÑ
¬á¬  ¿  ¡áß½ÑñπѼδÑ  »«½∩.  é¼ÑßΓ«  »α∩¼«ú«  »α¿ßóá¿óá¡¿∩  º¡áτÑ¡¿⌐
¡áß½ÑñπÑ¼δ¼ »«½∩¼,  »«τѼπ íδ ¡Ñ ¿ß»«½∞º«óáΓ∞ »«óΓ«α¡« Point  ¼ÑΓ«ñ
¿¡¿µ¿á½¿ºáµ¿¿  (¿½½εßΓα¿απѼδ⌐  »Ñαóδ¼  «»ÑαáΓ«α«¼  ó Circle.Init).
æ¿¡Γá¬ß¿ß ñ½∩  ó맮óá  ¡áß½ÑñπѼ«ú«  ¼ÑΓ«ñá:  Ancestor.Method,  úñÑ
Ancestor - φΓ« ¿ñÑ¡Γ¿Σ¿¬áΓ«α α«ñ¿Γѽ∞߬«ú« Γ¿»á «íΩѬΓá, á Method -
¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá φΓ«ú« Γ¿»á.
     çá¼ÑΓ¿¼, τΓ«  óδº«ó  »ÑαѬαδóáεΘÑú«  ¼ÑΓ«ñá  ∩ó½∩ÑΓß∩ ¡Ñ «τÑ¡∞
σ«α«Φ¿¼ ßΓ¿½Ñ¼; 󻫽¡Ñ 󫺼«ª¡«,  τΓ« Point.Init (¿½¿ Location.Init
ñ½∩ φΓ«ú«  ß½πτá∩)  óδ»«½¡∩ÑΓ í«½ÑÑ ó᪡πε,  ߬αδΓπε ¿¡¿µ¿á½¿ºáµ¿ε.
ÅπΓѼ ó맮óá »ÑαѬαδóáεΘÑú« ¼ÑΓ«ñá éδ «íÑß»Ñτ¿ΓÑ  ó¬½ετÑ¡¿Ñ  ó  Γ¿»
«íΩѬΓá, ∩ó½∩εΘÑú«ß∩ »«Γ«¼¬«¼, Σπ¡¬µ¿«¡á½∞¡«ßΓ¿ α«ñ¿Γѽ∩. éñ«íáó«¬,
½εíδÑ ¿º¼Ñ¡Ñ¡¿∩,  ßñѽᡡδÑ ó α«ñ¿Γѽ∞߬«¼  ¼ÑΓ«ñÑ,   áóΓ«¼áΓ¿τÑ߬¿
ó½¿∩εΓ ¡á óßÑσ Ñú« »«Γ«¼¬«ó.
     Å«ß½Ñ ó맮óá Point.Init,  Circle.Init  ¼«ªÑΓ  ºáΓѼ  óδ»«½¡¿Γ∞
ßó«ε ß«íßΓóÑ¡¡πε  ¿¡¿µ¿á½¿ºáµ¿ε,   ¬«Γ«αá∩  ó ñá¡¡«¼ ß½πτáÑ ß«ßΓ«¿Γ
Γ«½∞¬« ó »α¿ßó«Ñ¡¿¿ Radius º¡áτÑ¡¿∩, »ÑαÑñáóáѼ«ú« ó InitRadius.
     é¼ÑßΓ« ¿º«íαáªÑ¡¿∩  ¿  πñá½Ñ¡¿∩  «¬απª¡«ßΓ¿  »«  Γ«τ¬Ñ,  ¼«ª¡«
¿ß»«½∞º«óáΓ∞ BGI Circle »α«µÑñπαπ.   àß½¿  éδ  »«ßΓπ»¿ΓÑ  Γá¬,   Γ«
»«ΓαÑíπεΓß∩ ¡«óδÑ Show ¿ Hide ¼ÑΓ«ñδ, »ÑαѬαδóáεΘ¿Ñ Γá¬¿Ñ ªÑ ¼ÑΓ«ñδ
ó Point.  Æá¬¿Ñ »ÑαÑ»¿ßá¡¡δÑ ºá¡«ó« Show ¿ Hide ¼ÑΓ«ñδ »«∩󿽿ß∞  ó
»α¿óÑñÑ¡¡«¼ óδΦÑ »α¿¼ÑαÑ.
     ôΓ«τ¡Ñ¡¿Ñ ¿¼Ñ¡¿ ß »«¼«Θ∞ε Γ«τ¬¿ αáºαÑΦáÑΓ  󫺼«ª¡πε  »α«í½Ñ¼π
«ßó«í«ªñÑ¡¿∩ «Γ ¿¼Ñ¡¿ Γ¿»á «íΩѬΓá, ∩ó½∩εΘÑú«ß∩ Γᬿ¼ ªÑ, τΓ« ¿ ¿¼∩
BGI »α«úαá¼¼δ,  α¿ßπεΘÑ⌐ Γ¿» «íΩѬΓá ¡á φ¬αá¡Ñ.  Graph.Circle - φΓ«
ß«óÑαΦÑ¡¡« «ñ¡«º¡áτ¡δ⌐  ß»«ß«í  ߬áºáΓ∞  Turbo   Pascal,   τΓ«   éδ
ßßδ½áÑΓÑß∞  ¡á  Circle  »α«úαá¼¼π  ó GRAPH.TPU,  á ¡Ñ ¡á Circle Γ¿»
«íΩѬΓá.

     é᪡«!
     é Γ«  óαѼ∩,   ¬á¬  ¼ÑΓ«ñδ  ¼«ª¡«  »ÑαѬαδóáΓ∞,   »«½Ñ  ñá¡¡δσ
»ÑαѬαδóáΓ∞ ¡Ñ½∞º∩.  àß½¿ «ñ¡áªñδ éδ ºáñ὿ »«½Ñ ñá¡¡δσ ó  ¿Ñαáασ¿¿
«íΩÑ¬Γ«ó, »«α«ªñÑ¡¡δ⌐ Γ¿» ¡Ñ ¼«ªÑΓ ºáñáΓ∞ »«½Ñ ñá¡¡δσ ß Γ«τ¡« Γᬿ¼
ªÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼.

                 ìáß½ÑñπѼδÑ ßΓáΓ¿τÑ߬¿Ñ ¼ÑΓ«ñδ.

     Äñ¿¡ ¿º  Point  ¼ÑΓ«ñ«ó   »ÑαѬαδóáÑΓß∩   ¼ÑΓ«ñ«¼   MoveTo   ó
«»αÑñѽѡ¿¿ Γ¿»á   Circle.   àß½¿  éδ ó¡¿¼áΓѽ∞¡δ,  Γ« »«ß¼«ΓαÑó ¡á
MoveTo, éδ  ¼«ªÑΓÑ πñ¿ó¿Γ∞ß∩,  »«τѼπ  MoveTo  ¡Ñ  ¿ß»«½∞ºπÑΓ  »«½Ñ
Radius ¿  ¡Ñ ñѽáÑΓ ó맮óá BGI ¿½¿ ñαπú¿σ í¿í½¿«ΓѬ ñ½∩ ¿º«íαáªÑ¡¿∩
«¬απª¡«ßΓÑ⌐. é  Γ« ªÑ óαѼ∩  GetX  ¿  GetY  ¼ÑΓ«ñδ  ¡áß½ÑñπεΓß∩  ¡á
»α«Γ∩ªÑ¡¿¿ óßÑú« »πΓ¿ ¿º InitLocation íѺ ¿º¼Ñ¡Ñ¡¿⌐. ÆᬪÑ, Circle.
MoveTo »«½¡«ßΓ∞ε ¿ñÑ¡Γ¿τÑ¡  Point.MoveTo.   ì¿τÑú«  ¡Ñ  ¿º¼Ñ¡¿½«ß∞,
»α«¿º«Φ½« Γ«½∞¬«   ¬«»¿α«óá¡¿Ñ  »α«úαá¼¼δ  ¿  »ÑαÑñ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼
MoveTo »«∩ó¿½ß∩ ¬óá½¿Σ¿¬áΓ«α Circle.
     ¥Γ«Γ »α¿¼Ñα  ñѼ«¡ßΓα¿απÑΓ  »α«í½Ñ¼π  ß  «íΩѬΓἿ ¿ ¼ÑΓ«ñἿ,
»«∩ó½∩εΘπεß∩ »α¿ αáí«ΓÑ ó Γᬫ¼ ßΓ¿½Ñ.  éßÑ ¼ÑΓ«ñδ,   »«¬áºá¡¡δÑ  ó
ßó∩º¿ ß  Location,   Point  ¿  Circle  Γ¿»á¼¿  «íΩÑ¬Γ«ó,   ∩ó½∩εΓß∩
ßΓáΓ¿τÑ߬¿¼¿ ¼ÑΓ«ñἿ.  (ÆÑନ¡ "ßΓáΓ¿τÑ߬¿Ñ" íδ½ óδíαá¡ ñ½∩  Γ«ú«,
τΓ«íδ «»¿ßáΓ∞ ¼ÑΓ«ñ,  ¡Ñ ∩ó½∩εΘ¿⌐ß∩ ó¿αΓπá½∞¡δ¼, ΓÑନ¡, ¬«Γ«αδ⌐ ¼δ
߬«α« óóÑñѼ.  é¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ Σá¬Γ¿τÑ߬¿ ∩ó½∩εΓß∩ αÑΦÑ¡¿Ñ¼ φΓ«⌐
»α«í½Ñ¼δ, ¡«  ñ½∩  Γ«ú«,   τΓ«íδ »«¡∩Γ∞ αÑΦÑ¡¿Ñ,  éá¼ ¡πª¡« ó¡áτá½Ñ
»«¡∩Γ∞ ßá¼π »α«í½Ñ¼π).
     濼»Γ«¼δ φΓ«⌐ »α«í½Ñ¼δ Γᬫóδ:  ñ« ΓÑσ »«α,  »«¬á ¬«»¿∩ MoveTo
¼ÑΓ«ñá ¡Ñ  íπñÑΓ  »«¼ÑΘÑ¡á ó ßΣÑαÑ ñÑ⌐ßΓó¿∩ Circle ñ½∩ Γ«ú«,  τΓ«íδ
»ÑαѬαδΓ∞ Point.MoveTo, ¼ÑΓ«ñ íπñÑΓ αáí«ΓáΓ∞ ¡Ñ»αáó¿½∞¡« »α¿ ó맮óÑ
¿º «íΩѬΓá Γ¿»á Circle. àß½¿ Circle óδºδóáÑΓ Point.MoveTo ¼ÑΓ«ñ, Γ«
¡á φ¬αá¡Ñ íπñÑΓ »ÑαÑñó¿úáΓ∞ß∩ ߬«αÑÑ Γ«τ¬á, á ¡Ñ «¬απª¡«ßΓ∞. Æ«½∞¬«
¬«úñá Circle  ó맮óÑΓ ¬«»¿ε MoveTo ¼ÑΓ«ñá,  ºáñá¡¡«ú« ó ßó«Ñ⌐ ßΣÑαÑ
ñÑ⌐ßΓó¿∩,  Γ«  «¬απª¡«ßΓ¿  íπñπΓ  πñá½∩Γ∞ß∩  ¿   α¿ß«óáΓ∞ß∩   »πΓѼ
󽫪ѡ¡δσ ó맮ó«ó Show ¿ Hide.
     Å«τѼπ Γá¬?  ¥Γ« í佫  ßñѽᡫ  ó  ß««ΓóÑΓßΓó¿¿  ß«  ß»«ß«í«¼,
¬«Γ«αδ¼   ¬«¼»¿½∩Γ«α   αÑΦáÑΓ   ó맮óδ  ¼ÑΓ«ñ«ó.  è«úñá  ¬«¼»¿½∩Γ«α
¬«¼»¿½¿απÑΓ Point ¼ÑΓ«ñδ,  «¡ ß¡áτá½á ¡áΓὬ¿óáÑΓß∩ ¡á Point.Show ¿
Point.Hide ¿ ¬«¼»¿½¿απÑΓ ¬«ñδ ñ½∩ ¡¿σ «í«¿σ ó ßÑú¼Ñ¡Γ ¬«ñá. ìѼ¡«ú«
¡¿ªÑ ó Σá⌐½Ñ «¡ óßΓαÑτáÑΓ Point.MoveTo, ¬«Γ«αδ⌐ óδºδóáÑΓ Point.Show
¿ Point.Hide. èᬠ¿ »α¿ ó맮óÑ ½εí«⌐ »α«µÑñπαδ, ¬«¼»¿½∩Γ«α ºá¼Ñ¡∩ÑΓ
¿ßσ«ñ¡δ⌐ ¬«ñ,  ßßδ½áεΘ¿⌐ß∩ ¡á  Point.Show  ¿  Point.Hide,  áñαÑßἿ
ßúÑ¡Ñα¿α«óá¡¡«ú«   ¬«ñá  ó  ßÑú¼Ñ¡ΓÑ  ¬«ñá.  Æᬿ¼  «íαẫ¼,  ¬«úñá
óδºδóáÑΓß∩ ¬«ñ ñ½∩ Point.MoveTo,  «¡ óδºδóáÑΓ ¬«ñ ñ½∩ Point.Show  ¿
Point.Hide ¿ óßÑ ó »«α∩ñ¬Ñ.
     ¥Γ«Γ ߵѡáα¿⌐ ∩ó½∩ÑΓß∩ ¬½áßß¿¬«⌐ Turbo Pascal ¿ »«ññÑনóáÑΓß∩
(¬α«¼Ñ ΓÑନ¡«½«ú¿¿) ß óÑαß¿¿ 1.0. Äñ¡á¬« ß »«∩ó½Ñ¡¿Ñ¼ ¡áß½Ññ«óá¡¿∩
óßÑ  ¼Ñ¡∩ÑΓß∩.  è«úñá  Circle  ¡áß½ÑñπÑΓ  ¼ÑΓ«ñ  «Γ  Point,  Circle
¿ß»«½∞ºπÑΓ ¼ÑΓ«ñ Γ«τ¡« Γá¬, ¬á¬ «¡ íδ½ «Γ¬«¼»¿½¿α«óá¡.
     Å«ß¼«Γα¿¼ «»∩Γ∞,  τΓ«  íπñÑΓ  π¡áß½Ññ«óá¡«  Circle,   Ñß½¿  «¡
π¡áß½Ññ«óá½ Point.MoveTo:

     procedure Point.MoveTo(NewX, NewY : Integer);
     begin
       Hide;       {óδºδóáÑΓ Point.Hide}
       X := NewX;
       Y := NewY;
       Show;       {óδºδóáÑΓ point.Show}
     end;

     諼¼Ñ¡Γáα¿¿ í뫨 ñ«íáó½Ñ¡δ ñ½∩ Γ«ú«,  τΓ«íδ »«ñτÑભπΓ∞  Σá¬Γ,
τΓ« ¬«úñá   Circle  óδºδóáÑΓ  Point.MoveTo,   «¡  Γᬠ ªÑ  óδºδóáÑΓ
Point.Show ¿ Point.Hide, á ¡Ñ Circle.Show ¿ Circle.Hide. Point.Show
α¿ßπÑΓ Γ«τ¬π,   á  ¡Ñ  «¬απª¡«ßΓ∞.  ū߬«½∞¬π Point.MoveTo óδºδóáÑΓ
Point.Show ¿ Point.Hide,  Point.MoveTo ¡Ñ  ¼«ªÑΓ  íδΓ∞  ¡áß½Ññ«óá¡.
é¼ÑßΓ« φΓ«ú«  «¡  ñ«½ªÑ¡  íδΓ∞  ºá¼Ñ¡Ñ¡  óΓ«α«⌐ ¬«»¿Ñ⌐ ßἫú« ßÑí∩,
¬«Γ«αá∩ óδºδóáÑΓ  Show  ¿  Hide,  «»αÑñѽѡ¡δÑ  ó¡πΓα¿  ßó«Ñ⌐ ßΣÑαδ
ñÑ⌐ßΓó¿∩; Γ.Ñ., Circle.Show ¿ Circle.Hide.
     ï«ú¿¬á ¬«¼»¿½∩Γ«αá  ó   αÑΦÑ¡¿¿   ó맮ó«ó   ¼ÑΓ«ñ«ó   αáí«ΓáÑΓ
ß½ÑñπεΘ¿¼ «íαẫ¼:  »α¿ ó맮óÑ ¼ÑΓ«ñá ¬«¼»¿½∩Γ«α ó¡áτá½Ñ ¿ΘÑΓ ¼ÑΓ«ñ
ß φΓ¿¼  ¿¼Ñ¡Ñ¼,   «»αÑñѽѡ¡δ⌐  ó¡πΓα¿  Γ¿»á  «íΩѬΓ.   Circle  Γ¿»
«»αÑñѽ∩ÑΓ ¼ÑΓ«ñδ,  ¡áºóá¡¡δÑ Init,  Show, Hide, Expand, Contract ¿
MoveTo. àß½¿  íπñÑΓ  óδº«ó  «ñ¡«ú« ¿º φΓ¿σ »∩Γ¿ ¼ÑΓ«ñ«ó Circle,  Γ«
¬«¼»¿½∩Γ«α ºá¼Ñ¡¿Γ  ó맮ó  áñαÑß«¼  «ñ¡«ú«  ¿º  ß«íßΓóÑ¡¡δσ  Circle
¼ÑΓ«ñ«ó.
     àß½¿ ¼ÑΓ«ñ ß Γᬿ¼ ¿¼Ñ¡Ñ¼ ¡Ñ «»αÑñѽѡ ó¡πΓα¿ Γ¿»á «íΩѬΓ,  Γ«
¬«¼»¿½∩Γ«α «íαáΘáÑΓß∩ ¬ ¡Ñ»«ßαÑñßΓóÑ¡¡«¼π α«ñ¿Γѽ∞߬«¼π Γ¿»π ¿ ¿ΘÑΓ
ó¡πΓα¿ φΓ«ú« Γ¿»á ¼ÑΓ«ñ ß Γᬿ¼ ¿¼Ñ¡Ñ¼.  àß½¿ ¼ÑΓ«ñ ß  φΓ¿¼  ¿¼Ñ¡Ñ¼
¡á⌐ñÑ¡, Γ«  áñαÑß α«ñ¿Γѽ∞߬«ú« ¼ÑΓ«ñá ºá¼Ñ¡∩ÑΓ ¿¼∩ ó ¿ßσ«ñ¡«¼ ¬«ñÑ
¼ÑΓ«ñá »«Γ«¼¬á. àß½¿ ¼ÑΓ«ñ ß ñá¡¡δ¼ ¿¼Ñ¡Ñ¼ ¡Ñ ¡á⌐ñÑ¡, Γ« ¬«¼»¿½∩Γ«α
»«ñ¡¿¼áÑΓß∩ óδΦÑ  ¬  ß½ÑñπεΘѼπ »αÑñ¬π ó »«¿ß¬áσ ¡áºóá¡¡«ú« ¼ÑΓ«ñá.
àß½¿ ¬«¼»¿½∩Γ«α ñ«ßΓ¿ú ßἫú« »Ñαó«ú« Γ¿»á «íΩÑ¬Γ (óÑασπΦ¬¿), Γ« «¡
óδñáßΓ ß««íΘÑ¡¿Ñ   «í   «Φ¿í¬Ñ,    π¬áºδóáεΘÑÑ,    τΓ«  φëà  ¼ÑΓ«ñ
¡Ñ«»αÑñѽѡ.
     ì« ¬«úñá  ßΓáΓ¿τÑ߬¿⌐ ¡áß½ÑñπѼδ⌐ ¼ÑΓ«ñ ¡á⌐ñÑ¡ ¿ ¿ß»«½∞ºπÑΓß∩,
éδ ñ«½ª¡δ »«¼¡¿Γ∞, τΓ« óδºóá¡¡δ⌐ ¼ÑΓ«ñ - φΓ« ¼ÑΓ«ñ Γ«τ¡« Γᬫ⌐, ¬á¬
«¡   «»αÑñѽѡ   ¿  «Γ¬«¼»¿½¿α«óá¡  ñ½∩  α«ñ¿Γѽ∞߬«ú«  Γ¿»á.  àß½¿
α«ñ¿Γѽ∞߬¿⌐ ¼ÑΓ«ñ óδºδóáÑΓ ñαπú¿Ñ  ¼ÑΓ«ñδ,  Γ«  óδºδóáѼδÑ  ¼ÑΓ«ñδ
íπñπΓ  α«ñ¿Γѽ∞߬¿¼¿  ¼ÑΓ«ñἿ,  ñáªÑ  Ñß½¿  »«Γ«¼«¬  ¿¼ÑÑΓ ¼ÑΓ«ñδ,
¬«Γ«αδÑ «ΓóÑαúáεΓ α«ñ¿Γѽ∞߬¿Ñ ¼ÑΓ«ñδ.

                  é¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ ¿ »«½¿¼«αΣ¿º¼.

     îÑΓ«ñδ, «íßπªñáѼδÑ  óδΦÑ ∩ó½∩εΓß∩ ßΓáΓ¿τÑ߬¿¼¿.  Ä¡¿ ∩ó½∩εΓß∩
ßΓáΓ¿τÑ߬¿¼¿ »« Γ«⌐ ªÑ »α¿τ¿¡Ñ,  »« ¬«Γ«α«⌐ ßΓáΓ¿τÑ߬¿Ñ  »ÑαѼѡ¡δÑ
∩ó½∩εΓß∩ ßΓáΓ¿τÑ߬¿¼¿:   ¬«¼»¿½∩Γ«α αẼÑΘáÑΓ ¿σ ¿ αáºαÑΦáÑΓ ßß佬¿
¡á ¡¿σ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿.  èᬠéδ ó¿ñ¿ΓÑ,  «íΩѬΓδ ¿  ßΓáΓ¿τÑ߬¿Ñ
¼ÑΓ«ñδ ¼«úπΓ   íδΓ∞   ¼«Θ¡δ¼   ßαÑñßΓó«¼  ñ½∩  «αúá¡¿ºáµ¿¿  ß½«ª¡δσ
»α«úαá¼¼.
     Äñ¡á¬«, ¿¡«úñá  «¡¿  ∩ó½∩εΓß∩  ñá½Ñ¬«  ¡Ñ  ½πτΦ¿¼ ß»«ß«í«¼ ñ½∩
«íαáí«Γ¬¿ ¼ÑΓ«ñ«ó.
     Åα«í½Ñ¼δ, «»¿ßá¡¡δÑ   ó   »αÑñδñπΘѼ   αáºñѽÑ,    «íπß½«ó½Ñ¡δ
αáºαÑΦÑ¡¿Ñ¼ ßß佫¬   ¡á ¼ÑΓ«ñδ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿.  滫߫í αÑΦÑ¡¿∩
φΓ«⌐ »α«í½Ñ¼δ - ßΓáΓ∞ ñ¿¡á¼¿τÑ߬¿¼¿ - ¿ αáºαÑΦáΓ∞ Γá¬¿Ñ  ßß佬¿  ó«
óαѼ∩ óδ»«½¡Ñ¡¿∩.    ä½∩ Γ«ú«,  τΓ«íδ Γá¬«Ñ ßΓὫ 󫺼«ª¡δ¼,  ¡πª¡δ
«ß«íδÑ ¼Ñσá¡¿º¼δ,  á Turbo Pascal  «íÑß»Ñτ¿óáÑΓ φΓ¿  ¼Ñσá¡¿º¼δ  ñ½∩
»«ññÑ᪬¿ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó.

     é᪡«!
     é¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ  αÑ὿ºπεΓ  ταѺóδτá⌐¡« ¼«Θ¡«Ñ ßαÑñßΓó« ñ½∩
«í«íΘÑ¡¿∩, ¡áºδóáѼ«ú«  »«½¿¼«αΣ¿º¼«¼.  Å«½¿¼«αΣ¿º¼ - φΓ« ß½«ó«  ¿º
úαÑτÑ߬«ú« ∩ºδ¬á, «º¡áτáεΘÑÑ "¼¡«ú« Σ«α¼", ¿ ºñÑß∞ «¡« «º¡áτáÑΓ ó«Γ
τΓ«: φΓ«     ß»«ß«í   ºáñá¡¿∩   «ñ¡«¿¼Ñ¡¡«ú«   ñÑ⌐ßΓó¿∩,    ¬«Γ«α«Ñ
αáß»αÑñѽ∩ÑΓß∩ óóÑασ   ¿  󡿺 »« ¿Ñαáασ¿¿ «íΩÑ¬Γ«ó,  ß óδ»«½¡Ñ¡¿Ñ¼
φΓ«ú« ñÑ⌐ßΓó¿∩   ß»«ß«í«¼,   ß««ΓóÑΓßΓóπεΘ¿¼  ¬áªñ«¼π   «íΩѬΓπ   ó
¿Ñαáασ¿¿.
     ôªÑ «»¿ßá¡¡á∩ »α«ßΓá∩ ¿Ñαáασ¿∩ úαáΣ¿τÑ߬¿σ Σ¿úπα  »αÑñßΓáó½∩ÑΓ
ß«í«⌐ σ«α«Φ¿⌐ »α¿¼Ñα »«½¿¼«αΣ¿º¼á ó ñÑ⌐ßΓó¿¿,  αÑ὿º«óá¡¡«ú« τÑαѺ
ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ.
     èáªñδ⌐ Γ¿» «íΩѬΓá ó ¡áΦÑ⌐ ¿Ñαáασ¿¿ »αÑñßΓáó½∩ÑΓ αẽ¿τ¡δ⌐ Γ¿»
Σ¿úπαδ ¡á φ¬αá¡Ñ:  Γ«τ¬π ¿½¿ «¬απª¡«ßΓ∞.  Ä»αÑñѽѡ¡«  ¿¼ÑÑΓ  ß¼δß½
߬áºáΓ∞, τΓ«  éδ  ¼«ªÑΓÑ  »«¬áºáΓ∞  Γ«τ¬π  ¡á  φ¬αá¡Ñ  ¿½¿ »«¬áºáΓ∞
«¬απª¡«ßΓ∞. Å«ºñ¡ÑÑ,   Ñß½¿  éδ  ºáσ«Γ¿ΓÑ  «»αÑñѽ¿Γ∞  «íΩѬΓδ  ñ½∩
»αÑñßΓáó½Ñ¡¿∩ ñαπú¿σ Σ¿úπα, Γᬿσ ¬á¬ ½¿¡¿¿, ¬óáñαáΓδ, ñπú¿ ¿ Γ.ñ.,
éδ ¼«ªÑΓÑ ¡á»¿ßáΓ∞ ¼ÑΓ«ñ ñ½∩ ¬áªñ«⌐ Σ¿úπαδ,  ¬«Γ«αδ⌐ ¿º«íαáº¿Γ φΓ«Γ
«íΩÑ¬Γ ¡á  φ¬αá¡Ñ.  é  ΓÑନ¡áσ  ¡«ó«ú«   «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«
¼δΦ½Ñ¡¿∩  ¼«ª¡«  ߬áºáΓ∞,  τΓ« óßÑ φΓ¿ Γ¿»δ úαáΣ¿τÑ߬¿σ Σ¿úπα ¿¼ÑεΓ
ß»«ß«í¡«ßΓ∞ ¿º«íαáªÑ¡¿∩ ßἿσ ßÑí∩ ¡á φ¬αá¡Ñ.
     Æ«, ¬á¬¿¼ ß»«ß«í«¼ Γ¿» «íΩѬΓá ñ«½ªÑ¡ ¿º«íαáªáΓ∞  ßἫú«  ßÑí∩
¡á φ¬αá¡Ñ,   ∩ó½∩ÑΓß∩  αẽ¿τ¡δ¼  ñ½∩  ¬áªñ«ú« Γ¿»á «íΩѬΓá.  Æ«τ¬á
α¿ßπÑΓß∩ ß  »«¼«Θ∞ε  »α«úαá¼¼δ  ¿º«íαáªÑ¡¿∩  Γ«τ¬¿,    ¬«Γ«α«⌐   ¡Ñ
ΓαÑíπÑΓß∩ ¡¿τÑú«, ¬α«¼Ñ X, Y »«º¿µ¿¿ ¿ 󫺼«ª¡« º¡áτÑ¡¿∩ µóÑΓá. ä½∩
¿º«íαáªÑ¡¿∩ «¬απª¡«ßΓ¿ ΓαÑíπÑΓß∩ ß«óÑαΦÑ¡¡«  «Γñѽ∞¡á∩  úαáΣ¿τÑ߬á∩
»α«úαá¼¼á, »α¿¡¿¼áεΘá∩  ó  αáßτÑΓ  ¡Ñ  Γ«½∞¬«  X  ¿ Y,  ¡« ΓᬠªÑ ¿
αáñ¿πß. ìѼ¡«ú« ñá½∞ΦÑ ¼δ πó¿ñ¿¼,  τΓ« ñπúÑ ΓαÑíπÑΓß∩  ¡áτá½∞¡δ⌐  ¿
¬«¡Ñτ¡δ⌐ πú«½ ¿ í«½ÑÑ ß½«ª¡δ⌐ á½ú«α¿Γ¼ óδα¿ß«ó¬¿,  »α¿¡¿¼áεΘ¿⌐ ¿σ ó
αáßτÑΓ.
     ¡« ¿º«íαếΓ∞   ½εíπε  úαáΣ¿τÑ߬πε  Σ¿úπαπ,   ¡«  ¼Ñσá¡¿º¼,
»«ßαÑñßΓó«¼ ¬«Γ«α«ú« ¿º«íαáªáÑΓß∩ ¬áªñá∩ Σ¿úπαá »αÑñ«»αÑñѽѡ. Äñ¡«
ß½«ó« "Show", ¿ß»«½∞ºπÑΓß∩ ñ½∩ ¿º«íαáªÑ¡¿∩ ¼¡«ú¿σ Σ«α¼.
     ¥Γ« σ«α«Φ¿⌐ »α¿¼Ñα Γ«ú«, τΓ« »αÑñßΓáó½∩ÑΓ ß«í«⌐ »«½¿¼«αΣ¿º¼, á
ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ φΓ« Γ«, ¬á¬ «¡ αÑ὿ºπÑΓß∩ ó Turbo Pascal.

             Éá¡¡ÑÑ ßó∩ºδóá¡¿Ñ »« ßαáó¡Ñ¡¿ε ß »«ºñ¡¿¼
                           ßó∩ºδó᡿Ѽ.

     Éẽ¿τ¿Ñ ¼Ñªñπ   óδº«ó«¼   ßΓáΓ¿τÑ߬«ú«   ¼ÑΓ«ñá   ¿   ó맮ó«¼
ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá   -  φΓ«  αẽ¿τ¿Ñ  ¼Ñªñπ αÑΦÑ¡¿Ñ¼,  ßñÑ½á¡¡δ¼¿
ßÑ⌐τáß ¿   ºáñÑαªá¡¡δ¼  αÑΦÑ¡¿Ñ¼.    è«úñá   éδ   ¬«ñ¿απÑΓÑ   ó맮ó
ßΓáΓ¿τÑ߬«ú« ¼ÑΓ«ñá,  éδ,  »« ßπΘÑßΓóπ,  ú«ó«α¿ΓÑ ¬«¼»¿½∩Γ«απ:  "Æδ
º¡áÑΦ∞, τΓ«  ∩ σ«τπ.  äѽá⌐ ó맮ó".  é맮ó ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá,   ß
ñαπú«⌐ ßΓ«α«¡δ,  »«ñ«íÑ¡ Γ«¼π,  τΓ« éδ ú«ó«α¿ΓÑ ¬«¼»¿½∩Γ«απ: "Æδ ¡Ñ
º¡áÑΦ∞ τΓ« ∩ σ«τπ - »«¬á. è«úñá »α¿ñÑΓ óαѼ∩ - ºá»α«ß¿ «íαáºÑµ".
     Å«ñπ¼á⌐ΓÑ ¡áñ  φΓ«⌐  ¼ÑΓáΣ«α«⌐  ó  ΓÑନ¡áσ  MoveTo  »α«í½Ñ¼δ,
π»«¼∩¡πΓ«⌐ ó »αÑñδñπΘѼ αáºñѽÑ.  é맮ó  Circle.MoveTo  ¼«ªÑΓ  ¿ñΓ¿
Γ«½∞¬« ó «ñ¡« ¼ÑßΓ«:  í½¿ªá⌐Φπε αÑ὿ºáµ¿ε MoveTo óóÑασ »« ¿Ñαáασ¿¿
«íΩÑ¬Γ«ó. é   φΓ«¼  ß½πτáÑ  Circle.MoveTo  óßÑ  ÑΘÑ  ó맮óÑΓ  Point
«»αÑñѽѡ¿Ñ ñ½∩   MoveTo,  »«ß¬«½∞¬π Point - φΓ« í½¿ªá⌐Φ¿⌐ óóÑασ »«
¿Ñαáασ¿¿ «íΩÑ¬Γ ñ½∩ Circle.  ÅαÑñ»«½áúá∩,  τΓ« »«α«ªñÑ¡¡δ⌐  Γ¿»  ¡Ñ
«»αÑñѽ∩ÑΓ ßó«⌐   ß«íßΓóÑ¡¡δ⌐  MoveTo,   τΓ«íδ  »ÑαѬαδΓ∞ MoveTo ¿º
Point, ½εí«⌐  »«α«ªñÑ¡¡δ⌐ «Γ Point Γ¿» íπñÑΓ óßÑ ÑΘÑ óδºδóáΓ∞ Γπ ªÑ
ßá¼πε αÑ὿ºáµ¿ε MoveTo. ÉÑΦÑ¡¿Ñ «ßπΘÑßΓó½∩ÑΓß∩ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿
¿ φΓ« óßÑ, τΓ« ΓαÑíπÑΓß∩ ßñѽáΓ∞.
     Äñ¡á¬«, ¬«úñá MoveTo óδºδóáÑΓ Show, φΓ« ñαπúá∩ ¿ßΓ«α¿∩. èáªñδ⌐
Γ¿» Σ¿úπαδ ¿¼ÑÑΓ ßó«ε ß«íßΓóÑ¡¡πε αÑ὿ºáµ¿ε Show, »«Γ«¼π-Γ«, ¬á¬á∩
αÑ὿ºáµ¿∩ Show óδºδóáÑΓß∩ ó MoveTo,  ñ«½ª¡« »«½¡«ßΓ∞ε ºáó¿ßÑΓ∞  «Γ
Γ«ú«, ¬á¬«⌐  φ¬ºÑ¼»½∩α  «íΩѬΓá  óδºóá½  MoveTo.   ¥Γ«  ¿  ∩ó½∩ÑΓß∩
»α¿τ¿¡«⌐ Γ«ú«,  »«τѼπ ó맮ó Show ¼ÑΓ«ñá ó¡πΓα¿  αÑ὿ºáµ¿¿  MoveTo
ñ«½ªÑ¡ íδΓ∞ ºáñÑαªá¡¡δ¼ αÑΦÑ¡¿Ñ¼: »α¿ ¬«¼»¿½∩µ¿¿ ¬«ñá ñ½∩ MoveTo ¡Ñ
αÑΦ¿Γ∞, ó맮ó ¬á¬«ú« Show ßñѽáΓ∞.  ê¡Σ«α¼áµ¿∩ ¡Ññ«ßΓπ»¡á ó«  óαѼ∩
¬«¼»¿½∩µ¿¿, »«Γ«¼π  αÑΦÑ¡¿Ñ  «Γ¬½áñδóáÑΓß∩  ñ«  óαѼѡ¿ óδ»«½¡Ñ¡¿∩,
¬«úñá ¼«ª¡« ºá»α«ß¿Γ∞ φ¬ºÑ¼»½∩α «íΩѬΓá, óδºδóáεΘ¿⌐ MoveTo.
     Åα«µÑßß, »«ßαÑñßΓó«¼   ¬«Γ«α«ú«   ó맮óδ  ßΓáΓ¿τÑ߬«ú«  ¼ÑΓ«ñá
αáºαÑΦáεΓß∩  «ñ¡«º¡áτ¡«  («ñ¡¿¼  ¼ÑΓ«ñ«¼)  ¬«¼»¿½∩Γ«α«¼  ó«   óαѼ∩
¬«¼»¿½∩µ¿¿,   ¡áºδóáÑΓß∩   αá¡¡¿¼  ßó∩ºδó᡿Ѽ.  é«  óαѼ∩  αá¡¡Ñú«
ßó∩ºδóá¡¿∩,  óδºδóáѼδ⌐ ¼ÑΓ«ñ ¿ óδºδóáεΘ¿⌐  ¼ÑΓ«ñ  ßó∩ºδóáεΓß∩  »α¿
»Ñαó«¼  πñ«í¡«¼  ß½πτáÑ,  Γ.Ñ.  ó«  óαѼ∩  ¬«¼»¿½∩µ¿¿.  Åα¿ »«ºñ¡Ñ¼
ßó∩ºδóá¡¿¿ óδºδóáѼ«ú« ¼ÑΓ«ñá ¿ óδºδóáεΘÑú«  ¼ÑΓ«ñá  «¡¿  ¡Ñ  ¼«úπΓ
íδΓ∞  ßó∩ºá¡δ  ó«  óαѼ∩  ¬«¼»¿½∩µ¿¿,  »«φΓ«¼π  ¼Ñσá¡¿º¼ ßó∩ºδóá¡¿∩
»α«∩ó½∩ÑΓß∩ »«ºñ¡ÑÑ, ¬«úñá ó맮ó íπñÑΓ Σá¬Γ¿τÑ߬¿ ßñѽá¡.
     Åα¿α«ñá φΓ«ú«  ¼Ñσá¡¿º¼á ¿¡ΓÑαÑß¡á ¿ σ¿Γα«π¼¡á,  ¿ éδ πó¿ñ¿ΓÑ,
¬á¬ «¡á αáí«ΓáÑΓ ¡Ñ¼¡«ú« »«ºñ¡ÑÑ.

                   æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó «íΩÑ¬Γ«ó.

     ìáß½Ññ«óá¡¿Ñ «ΓτáßΓ¿ ¿º¼Ñ¡∩ÑΓ »αáó¿½á  ß«ó¼ÑßΓ¿¼«ßΓ¿  Γ¿»«ó  ó
Turbo Pascal.  é    ñ«íáó½Ñ¡¿Ñ  ¬«  óßѼπ »α«τѼπ,  »«α«ªñÑ¡¡δ⌐ Γ¿»
¡áß½ÑñπÑΓ ß«ó¼ÑßΓ¿¼«ßΓ∞   Γ¿»«ó  ß«  óßѼ¿  Γ¿»á¼¿   »αÑñ¬á.    ¥Γá
αáßΦ¿αÑ¡¡á∩ ß«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó ¿¼ÑÑΓ Γα¿ Σ«α¼δ :
     - ¼Ñªñπ φ¬ºÑ¼»½∩αἿ «íΩÑ¬Γ«ó
     - ¼Ñªñπ π¬áºáΓѽ∩¼¿ ¡á φ¬ºÑ¼»½∩αδ «íΩÑ¬Γ«ó
     - ¼Ñªñπ Σ«α¼á½∞¡δ¼¿ ¿ Σá¬Γ¿τÑ߬¿¼¿ »áαá¼ÑΓαἿ

     Äñ¡á¬« ó«  óßÑσ  ΓαÑσ  Σ«α¼áσ   ¡Ñ«íσ«ñ¿¼«   ºá»«¼¡¿Γ∞,    τΓ«
ß«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó  αáß»α«ßΓαá¡∩ÑΓß∩ «Γ »«Γ«¼¬á ¬ »αÑñ¬π.  äαπú¿¼¿
ß½«óἿ, »«α«ªñÑ¡¡δÑ  Γ¿»δ ¼«ª¡« ßó«í«ñ¡« ¿ß»«½∞º«óáΓ∞ ó¼ÑßΓ« Γ¿»«ó
»αÑñ¬á, ¡« ¡Ñ ¡á«í«α«Γ.
     Éáßß¼«Γα¿¼ ß½ÑñπεΘ¿Ñ «íΩ∩ó½Ñ¡¿∩:

     type
        LocationPtr = ^Location;
        PointPtr    = ^Point;
        CirclePtr   = ^Circle;
     var
        Alocation : Location;
        APoint    : Point;
        ACircle   : Circle;
        PLocation : LocationPtr;
        PPoint    : PointPtr;
        PCircle   : CirclePtr;

     Åα¿ ¡á½¿τ¿¿ φΓ¿σ «íΩ∩ó½Ñ¡¿⌐  ß½ÑñπεΘ¿Ñ  »α¿ßóá¿óá¡¿∩  ∩ó½∩εΓß∩
ºá¬«¡¡δ¼¿:

     Alocation := APoint;
     APoint    := ACircle;
     Alocation := ACircle;

     ÄíαáΓ¡δÑ »α¿ßóá¿óá¡¿∩ ¡Ñºá¬«¡¡δ.

     Åα¿¼Ñτá¡¿Ñ: É«ñ¿Γѽ∞߬«¼π  «íΩѬΓπ ¼«ª¡« »α¿ßóá¿óáΓ∞ φ¬ºÑ¼»½∩α
½εí«ú« »«α«ªñÑ¡¡«ú« ¿¼ Γ¿»á.

     ¥Γ« »«¡∩Γ¿Ñ ¡«ó«Ñ ñ½∩ Åá߬á½∩ ¿,   󫺼«ª¡«,   ó¡áτá½Ñ  Γαπñ¡«
ºá»«¼¡¿Γ∞ ¬á¬«⌐ »πΓ∞ ¿ß»«½∞ºπÑΓß∩ ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ Γ¿»«ó.  äπ¼á⌐ΓÑ
«í φΓ«¼ Γᬿ¼ «íαẫ¼ :  êßΓ«τ¡¿¬ ñ«½ªÑ¡ »«½¡«ßΓ∞ε ºá»«½¡∩Γ∞ «íΩѬΓ
¡áº¡áτÑ¡¿∩. Å«α«ªñÑ¡¡δÑ      Γ¿»δ   ß«ñÑαªáΓ   óßÑ,   τΓ«  ß«ñÑαªáΓ
α«ñ¿Γѽ∞߬¿Ñ Γ¿»δ     »«ßαÑñßΓó«¼   ¡áß½Ññ«óá¡¿∩.    æ½Ññ«óáΓѽ∞¡«,
»«α«ªñÑ¡¡δ⌐ Γ¿»   ¿½¿ ¿¼ÑÑΓ Γᬫ⌐ ªÑ αẼÑα,  ¿½¿ («íδτ¡«)  αẼÑα,
í«½∞Φ¿⌐, τѼ Ñú« »αÑñ«¬, ¡« ¡¿¬«úñá ¡Ñ ¼Ñ¡∞Φ¿⌐ αẼÑα. Åα¿ßóá¿óá¡¿Ñ
α«ñ¿Γѽ∞߬«ú« «íΩѬΓá »«α«ªñÑ¡¡«¼π «íΩѬΓπ ¼«ªÑΓ «ßΓáó¿Γ∞ ¡Ñ¬«Γ«αδÑ
»«½∩ »«α«ªñÑ¡¡«ú« «íΩѬΓá ¡Ñ«»αÑñѽѡ¡δ¼¿ »«ß½Ñ φΓ«ú« »α¿ßóá¿óá¡¿∩,
τΓ« «»áß¡« ¿,  ß½Ññ«óáΓѽ∞¡«, ¡Ñºá¬«¡¡«.
     é «»ÑαáΓ«αÑ »α¿ßóá¿óá¡¿∩  Γ«½∞¬«  ΓÑ  »«½∩,  ¬«Γ«αδÑ  ∩ó½∩εΓß∩
«íΘ¿¼¿  ñ½∩  «í«¿σ  Γ¿»«ó  íπñπΓ ¬«»¿α«óáΓ∞ß∩ «Γ ¿ßΓ«τ¡¿¬á ó «íΩѬΓ
¡áº¡áτÑ¡¿∩. é »αÑñ½«ªÑ¡¿¿ »α¿ßóá¿óá¡¿∩

     Alocation := ACircle;

Γ«½∞¬« »«½∩  X ¿ Y ACircle íπñπΓ ¬«»¿α«óáΓ∞ß∩ ó Alocation,  Γᬠ¬á¬
Γ«½∞¬« X ¿ Y - φΓ« «íΘ¿Ñ Γ¿»δ, ¬«Γ«αδÑ ¿¼ÑεΓ Circle ¿ Location.
     æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó ΓᬠªÑ ñÑ⌐ßΓóπÑΓ ¼Ñªñπ π¬áºáΓѽ∩¼¿ ¡á Γ¿»δ
«íΩÑ¬Γ«ó »«   ΓѼ  ªÑ  «íΘ¿¼ »αáó¿½á¼,  ¬á¬ ¿ ñ½∩ φ¬ºÑ¼»½∩α«ó Γ¿»«ó
«íΩÑ¬Γ«ó. ô¬áºáΓѽ¿  ¡á »«Γ«¼¬«ó ¼«ª¡«  »α¿ßóá¿óáΓ∞  π¬áºáΓѽ∩¼  ¡á
α«ñ¿ΓѽÑ⌐. ¥Γ¿ »α¿ßóá¿óá¡¿∩ π¬áºáΓѽÑ⌐ ∩ó½∩εΓß∩ ºá¬«¡¡δ¼¿:

     PPoint    := PCircle;
     PLocation := PPoint;
     PLocation := PCircle;

     çừ¼¡¿ΓÑ, τΓ« «íαáΓ¡δÑ »α¿ßóá¿óá¡¿∩ ∩ó½∩εΓß∩ ¡Ñºá¬«¡¡δ¼¿.
     ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα  (¿½¿  º¡áτÑ¡¿Ñ ¿½¿ »ÑαѼѡ¡á∩)  ºáñá¡¡«ú«
Γ¿»á «íΩѬΓá ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ ó ¬áτÑßΓóÑ  Σá¬Γ¿τÑ߬«ú«  »áαá¼ÑΓαá
«íΩѬΓá Γᬫú«   ªÑ  Γ¿»á  ¿½¿  ½εí«ú«  »«α«ªñÑ¡¡«ú«  Γ¿»á.   ÅπßΓ∞
»α«µÑñπαá ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ºáú«½«ó«¬:

     procedure DragIt (Target : Point);

Γ«úñá Σá¬Γ¿τÑ߬¿Ñ »áαá¼ÑΓαδ ¼«úπΓ ¿¼ÑΓ∞ Γ¿» Point ¿½¿ Circle, ¡« ¡Ñ
Γ¿» Location.    Target  ¼«ªÑΓ  Γᬠ ªÑ  íδΓ∞  »áαá¼ÑΓα«¼ Γ¿»á var;
»α¿¼Ñ¡∩εΓß∩ «ñ¡¿ ¿ ΓÑ ªÑ »αáó¿½á ß«ó¼ÑßΓ¿¼«ßΓ¿ Γ¿»«ó.

     Åα¿¼Ñτá¡¿Ñ: Äñ¡á¬« ºá»«¼¡¿ΓÑ,  τΓ« ÑßΓ∞ ¬«αÑ¡¡«Ñ «Γ½¿τ¿Ñ ¼Ñªñπ
»áαá¼ÑΓα«¼ Γ¿»á º¡áτÑ¡¿Ñ ¿ var.  Var »áαá¼ÑΓα -  φΓ«  π¬áºáΓѽ∞  ¡á
Σá¬Γ¿τÑ߬¿⌐ «íΩѬΓ,  »ÑαÑñáóáѼδ⌐ ó ¬áτÑßΓóÑ »áαá¼ÑΓαá,  ó Γ« óαѼ∩
¬á¬ »áαá¼ÑΓα Γ¿»á  º¡áτÑ¡¿Ñ  ∩ó½∩ÑΓß∩  Γ«½∞¬«  ¬«»¿Ñ⌐  Σá¬Γ¿τÑ߬«ú«
»áαá¼ÑΓαá. ü«½ÑÑ  Γ«ú«,  φΓá  ¬«»¿∩  ó¬½ετáÑΓ Γ«½∞¬« »«½∩ ¿ ¼ÑΓ«ñδ,
ó¬½ετÑ¡¡δÑ ó Γ¿»,  ∩ó½∩εΘ¿⌐ß∩ Σ«α¼á½∞¡δ¼ º¡áτÑ¡¿Ñ¼  »áαá¼ÑΓαá.  ¥Γ«
«º¡áτáÑΓ,  τΓ«  Σá¬Γ¿τÑ߬¿⌐  »áαá¼ÑΓα íπ¬óá½∞¡« »αÑ«íαáºπÑΓß∩ ó Γ¿»
Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá.  Åáαá¼ÑΓα Γ¿»á var í«½ÑÑ »«ñ«íÑ¡  »α¿óÑñÑ¡¿ε
Γ¿»«ó,   »α¿   φΓ«¼   Σá¬Γ¿τÑ߬¿⌐   »áαá¼ÑΓα  «ßΓáÑΓß∩  ¡Ñ¿º¼Ñ¡¡δ¼.
     ǡὫú¿τ¡«, Ñß½¿ Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα  ∩ó½∩ÑΓß∩  π¬áºáΓѽѼ  ¡á
Γ¿» «íΩѬΓá, Γ« Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα ¼«ªÑΓ íδΓ∞ π¬áºáΓѽѼ ¡á Γᬫ⌐
ªÑ Γ¿»  «íΩѬΓá  ¿½¿  π¬áºáΓѽѼ  ¡á  ½εí«⌐  Γ¿»  «íΩѬΓá,  ¬«Γ«αδ⌐
»«α«ªñáÑΓß∩   ñá¡¡δ¼  Γ¿»«¼  «íΩѬΓá.  ÅπßΓ∞  φΓá  »α«µÑñπαá  ¿¼ÑÑΓ
ß½ÑñπεΘ¿⌐ ºáú«½«ó«¬:

     procedure figure.Add (NewFigure : Pointer);

Γ«úñá Σá¬Γ¿τÑ߬¿Ñ »áαá¼ÑΓαδ ñ«½ª¡δ ¿¼ÑΓ∞ Γ¿» Pointer ¿½¿ CirclePtr,
¡« ¡Ñ ¼«úπΓ íδΓ∞ Γ¿»á LocationPtr.


                       Å«½¿¼«αΣ¡δÑ «íΩѬΓδ.

     Åα¿ τΓÑ¡¿¿ »αÑñδñπΘÑú« αáºñѽá π éáß  ¼«ú  󫺡¿¬¡πΓ∞  ó«»α«ß:
Ñß½¿  ó  ¬áτÑßΓóÑ  »áαá¼ÑΓαá  ¼«ª¡«  »ÑαÑñáóáΓ∞ ½εí«⌐ Γ¿» ¿º Γ¿»«ó,
»«α«ªñáѼδσ Γ¿»«¼  »áαá¼ÑΓαá,  Γ«  ¬á¬  Γ«Γ,  ¬Γ«  ¿ß»«½∞ºπÑΓ  φΓ«Γ
»áαá¼ÑΓα,   «»αÑñѽ∩ÑΓ   ¬á¬«⌐   Γ¿»  «íΩѬΓá  »«½πτÑ¡.  öá¬Γ¿τÑ߬¿
»«½∞º«óáΓѽ∞ ¡Ñ º¡áÑΓ φΓ«ú« ∩ó¡«. Æ«τ¡δ⌐ Γ¿» Σá¬Γ¿τÑ߬«ú« »áαá¼ÑΓαá
¡Ñ¿ºóÑßΓÑ¡ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿.  Ä¡ ¼«ªÑΓ íδΓ∞ ½εíδ¼ Γ¿»«¼ «íΩѬΓá,
»«α«ªñÑ¡¡δ¼ «Γ Γ¿»á »áαá¼ÑΓαá var ¿ »«φΓ«¼π  ¡áºδóáÑΓß∩ »«½¿¼«αΣ¡δ¼
«íΩÑ¬Γ«¼.
     é τѼ ªÑ »αÑ¿¼πΘÑßΓó« »«½¿¼«αΣ¡δσ «íΩÑ¬Γ«ó?  æá¼«Ñ  ú½áó¡«Ñ  ó
Γ«¼, τΓ«    »«½¿¼«αΣ¡δÑ  «íΩѬΓδ ñ«»π߬áεΓ «íαáí«Γ¬π «íΩÑ¬Γ«ó,  Γ¿»
¬«Γ«αδσ ¡Ñ¿ºóÑßΓÑ¡ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿. ¥Γ« ∩ó½∩ÑΓß∩ ¡«óδ¼ ß»«ß«í«¼
¼δΦ½Ñ¡¿∩ ñ½∩ Åá߬á½∩, ¬«úñá »α¿¼Ñα ¡Ñ«í∩ºáΓѽ∞¡« ñ«½ªÑ¡ »α«∩ó½∩Γ∞ß∩
ßαáºπ ªÑ.  (çáΓѼ éδ πñ¿ó¿ΓÑß∞ ¬á¬ φΓ« íπñÑΓ ¬áºáΓ∞ß∩ ÑßΓÑßΓóÑ¡¡δ¼.
¥Γ« íπñÑΓ   Γ«úñá,   ¬«úñá  éδ ñÑ⌐ßΓó¿Γѽ∞¡« ßΓá¡ÑΓÑ »α«úαá¼¼¿ßΓ«¼,
¿ß»«½∞ºπεΘ¿¼ »α¿¡µ¿»δ «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«  »α«úαá¼¼¿α«óá¡¿∩).
     ÅαÑñ»«½«ª¿¼, τΓ«   éδ  ¡á»¿ß὿  »á¬ÑΓ  úαáΣ¿τÑ߬¿σ  τÑαΓѪ¡δσ
ßαÑñßΓó, ¬«Γ«αδ⌐    »«ññÑনóáÑΓ  αẽ¿τ¡δÑ  Γ¿»δ  Σ¿úπα,    Γ«τ¬¿,
«¬απª¡«ßΓ¿, ¬óáñαáΓδ,     »α∩¼«πú«½∞¡¿¬¿,   ¬α¿óδÑ  ¿  Γ.».   ÑΓ
󫺡¿¬¡πΓ∞ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¡á»¿ßáΓ∞ ó  ¬áτÑßΓóÑ  τáßΓ¿  φΓ«ú«  »á¬ÑΓá
»«ñ»α«úαá¼¼π, ¬«Γ«αá∩ íπñÑΓ ¿º«íαáªáΓ∞ úαáΣ¿τÑ߬πε Σ¿úπαπ ¡á φ¬αá¡Ñ
ß »«¼«Θ∞ε π¬áºáΓѽ∩ "¼δΦ∞".
     æΓáαδ⌐ ß»«ß«í  ºá¬½ετáÑΓß∩  ó ¡á»¿ßá¡¿¿ «Γñѽ∞¡δσ »α«µÑñπα ñ½∩
¿º«íαáªÑ¡¿∩ úαáΣ¿τÑ߬¿σ Σ¿úπα óßÑσ Γ¿»«ó,  »«ññÑনóáѼδσ  »á¬ÑΓ«¼.
ìπª¡«  ¡á»¿ßáΓ∞  »α«µÑñπαδ  DragCircle,  DragSquare,  DragRectangle
¿ Γ.ñ.   äáªÑ  Ñß½¿ ßΓα«ú«Ñ Γ¿»¿α«óá¡¿Ñ Åá߬á½∩ αáºαÑΦáÑΓ φΓ« (¿ ¡Ñ
ºáíδóá⌐ΓÑ,  τΓ«  óßÑúñá  ÑßΓ∞  ß»«ß«íδ  «í«⌐Γ¿ ßΓα«ú«Ñ Γ¿»¿α«óá¡¿Ñ)
αẽ¿τ¿Ñ  ¼Ñªñπ  Γ¿»á¼¿  úαáΣ¿τÑ߬¿σ  Σ¿úπα   íπñÑΓ,   »«-ó¿ñ¿¼«¼π,
»αÑ»∩ΓßΓó«óáΓ∞ ¡á»¿ßá¡¿ε «íΘÑ⌐ »«ñ»α«úαá¼¼δ ¿º«íαáªÑ¡¿∩ φΓ¿σ Σ¿úπα.
     èα«¼Ñ Γ«ú«,  «¬απª¡«ßΓ∞ ¡Ñ ¿¼ÑÑΓ ßΓ«α«¡,  ¬óáñαáΓ  ¿¼ÑÑΓ  «ñ¡π
ñ½¿¡π ßΓ«α«¡δ,  »α∩¼«πú«½∞¡¿¬ - ñóÑ αẽ¿τ¡δÑ ñ½¿¡δ ßΓ«α«¡ ¿ Γ.ñ. é
φΓ«¼ ß½πτáÑ ¿ß¬πß¡δÑ »α«úαá¼¼¿ßΓδ ¡á Turbo  Pascal  ¿ñπΓ  ñá½∞ΦÑ  ¿
óδ»«½¡∩εΓ  óδΦÑ«»¿ßá¡¡πε ºáñáτπ ß½ÑñπεΘ¿¼ «íαẫ¼:  »ÑαÑñáεΓ ºá»¿ß∞
úαáΣ¿τÑ߬«⌐  Σ¿úπαδ  »α«µÑñπαÑ   DragIt   ¬á¬   ß«ñÑন¼«Ñ   «íΘÑú«
π¬áºáΓѽ∩.   é¡πΓα¿   DragIt   »α«ß¼áΓα¿óáεΓ   »«½Ñ   »α¿º¡á¬á  »α¿
Σ¿¬ß¿α«óá¡¡«¼ ß¼ÑΘÑ¡¿¿  ó¡πΓα¿  ºá»¿ß¿  úαáΣ¿τÑ߬«⌐  Σ¿úπαδ,  τΓ«íδ
«»αÑñѽ¿Γ∞  ¬á¬«⌐  Γ¿»  ¿¼ÑÑΓ  ñá¡¡á∩  Σ¿úπαá  ¿ ºáΓѼ «ßπΘÑßΓó½∩εΓ
óßΓáó¬π ß »«¼«Θ∞ε »αÑñ½«ªÑ¡¿∩ case:

     case FigureIdTage of
        Point     : DragPoint;
        Circle    : DragCircle;
        Square    : DragSquare;
        Rectangle : DragRectangle;
        Curve     : DragCurve;

     è«¡Ñτ¡«, ó¬½ετÑ¡¿Ñ   ßѼ¡áñµáΓ¿   ¡Ñí«½∞Φ¿σ  ¬π߬«ó  »α«úαá¼¼δ
ó¡πΓα∞ «ñ¡«ú« ¬π߬á ∩ó½∩ÑΓß∩ ¡Ñí«½∞Φ¿¼ Φáú«¼ ó»ÑαÑñ,  ¡«  »α¿  φΓ«¼
«ßΓáÑΓß∩ ¡ÑαÑΦÑ¡¡«⌐     ß½ÑñπεΘá∩   »α«í½Ñ¼á:   τΓ«  ñѽáΓ∞,   Ñß½¿
»«½∞º«óáΓѽ∞ »á¬ÑΓá «»αÑñѽ¿Γ ¡Ñ߬«½∞¬«  ¡«óδσ  úαáΣ¿τÑ߬¿σ  Σ¿úπα,
¡á»α¿¼Ñα, »«½∞º«óáΓѽ∞     αáºαáíáΓδóáÑΓ  ñ«α«ª¡δÑ  º¡á¬¿  ¿  σ«τÑΓ
αáí«ΓáΓ∞ ß ó«ß∞¼¿πú«½∞¡¿¬«¼ ñ½∩ º¡á¬á «ßΓá¡«ó¬¿.   Åá¬ÑΓ  ¡Ñ  ¿¼ÑÑΓ
Γ¿»á Octagon (ó«ß∞¼¿πú«½∞¡¿¬),  »«φΓ«¼π DragIt ¡Ñ ¿¼ÑÑΓ ¼ÑΓ¬π φΓ«ú«
Γ¿»á ó »αÑñ½«ªÑ¡¿¿ case ¿,   ß½Ññ«óáΓѽ∞¡«,   «Γ¬áªÑΓß∩  ¡áα¿ß«óáΓ∞
¡«óπε ó«ß∞¼¿πú«½∞¡πε  Σ¿úπαπ.  àß½¿ φΓπ ºá»¿ß∞ »ÑαÑñáΓ∞ DragIt,  Γ«
Σ¿úπαá Γ¿»á Octagon ñ«½ª¡á »«»áßΓ∞ ó τáßΓ∞  else  »αÑñ½«ªÑ¡¿∩  case
¬á¬ ¡Ñαáß»«º¡á¡¡á∩ Σ¿úπαá.
     ÄτÑó¿ñ¡«, τΓ«  »«ßΓα«Ñ¡¿Ñ  »α«úαá¼¼  »á¬ÑΓá  ñ½∩  »α«ñᪿ  íѺ
¿ßσ«ñ¡«ú« ¬«ñá   ßΓαáñáÑΓ  ¿º-ºá  ß½ÑñπεΘÑ⌐  »α«í½Ñ¼δ:  »á¬ÑΓ ¼«ªÑΓ
αáí«ΓáΓ∞ Γ«½∞¬« Γ¿»á¼¿ ñá¡¡δσ,  ¬«Γ«αδÑ «¡ "º¡áÑΓ",  Γ.Ñ. ß Γ¿»á¼¿,
¬«Γ«αδÑ í뫨 «»αÑñѽѡδ αáºαáí«Γτ¿¬á¼¿ »á¬ÑΓá.  Å«½∞º«óáΓѽ∞ »á¬ÑΓá
¡Ñ ¼«ªÑΓ αáßΦ¿α¿Γ∞ Σπ¡¬µ¿¿ »á¬ÑΓá ó ¡á»αáó½Ñ¡¿∩σ, ¡Ñ ¿ß»«½∞º«óá¡¡δσ
αáºαáí«Γτ¿¬á¼¿ »á¬ÑΓá. ùΓ« »«½∞º«óáΓѽ∞ »«¬π»áÑΓ, Γ« «¡ ¿ »«½πτáÑΓ.
     éδσ«ñ ß«ßΓ«¿Γ ó ¿ß»«½∞º«óá¡¿¿ ñ½∩ «íΩÑ¬Γ«ó  »αáó¿½ αáßΦ¿αÑ¡¡«⌐
ß«ó¼ÑßΓ¿¼«ßΓ¿ Γ¿»«ó Turbo Pascal ¿ »α«Ñ¬Γ¿α«óá¡¿¿ »α¿¬½áñ¡«⌐ ºáñáτ¿
ß ¿ß»«½∞º«ó᡿Ѽ »«½¿¼«αΣ¡δσ «íΩÑ¬Γ«ó ¿ ó¿αΓπá½∞¡δσ  ¼ÑΓ«ñ«ó.  àß½¿
»α«µÑñπαá  »á¬ÑΓá  DragIt ¡á»¿ßá¡á Γá¬,  τΓ«íδ «¡á ¼«ú½á αáí«ΓáΓ∞ ß
»«½¿¼«αΣ¡δ¼¿ «íΩѬΓἿ,  Γ« «¡á íπñÑΓ αáí«ΓáΓ∞ ß ½εí묨  «íΩѬΓἿ,
«»αÑñѽѡ¡δ¼¿  ó¡πΓα¿  »á¬ÑΓá  - ¿ ß ½εí묨 »«α«ªñÑ¡¡δ¼¿ «íΩѬΓἿ,
¬«Γ«αδÑ éδ «»αÑñѽ¿½¿ ßἿ.  àß½¿ Γ¿»δ «íΩÑ¬Γ«ó  »á¬ÑΓá  ¿ß»«½∞ºπεΓ
ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ, Γ« «íΩѬΓδ ¿ »«ñ»α«úαá¼¼δ »á¬ÑΓá ¼«úπΓ αáí«ΓáΓ∞
ß  «íδτ¡δ¼¿  úαáΣ¿τÑ߬¿¼¿  Σ¿úπαἿ  ó  ß«íßΓóÑ¡¡δσ  ΓÑନ¡áσ  φΓ«⌐
Σ¿úπαδ.  é¿αΓπá½∞¡δ⌐  ¼ÑΓ«ñ,  ¬«Γ«αδ⌐  éδ «»αÑñѽ¿ΓÑ ßÑ⌐τáß,  ¼«ªÑΓ
óδºδóáΓ∞ß∩  Σá⌐½«¼  ¼«ñπ½∩  .TPU  »á¬ÑΓá,  ¬«Γ«αδ⌐  íδ½  ¡á»¿ßá¡  ¿
«Γ¬«¼»¿½¿α«óá¡      ú«ñ«¼      »«ºªÑ.      ÄíΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«Ñ
»α«úαá¼¼¿α«óá¡¿Ñ  ñѽáÑΓ  φΓ«  󫺼«ª¡δ¼,  á   ó¿αΓπá½∞¡δÑ   ¼ÑΓ«ñδ
∩ó½∩εΓß∩ ¬½ετ«¼ ¬ αÑΦÑ¡¿ε φΓ«⌐ »α«í½Ñ¼δ.
     Å«¡¿¼á¡¿Ñ Γ«ú«,  ¬á¬ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ  ñѽáεΓ  Γá¬¿Ñ  ó맮óδ
»«½¿¼«αΣ¡δσ ¼ÑΓ«ñ«ó   󫺼«ª¡δ¼¿,   ΓαÑíπÑΓ º¡á¡¿∩ ¡Ñ¬«Γ«αδσ «ß¡«ó,
¬áßáεΘ¿σß∩ «íΩ∩ó½Ñ¡¿∩ ¿ ¿ß»«½∞º«óá¡¿∩ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó.


                      é¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ

     îÑΓ«ñ ßΓá¡«ó¿Γß∩  ó¿αΓπá½∞¡δ¼,  Ñß½¿ ºá Ñú« «íΩ∩ó½Ñ¡¿Ñ¼ ó Γ¿»Ñ
«íΩѬΓá ß½ÑñπÑΓ ¡«ó«Ñ ºáαѺÑαó¿α«óá¡¡«Ñ ß½«ó« virtual.   çừ¼¡¿ΓÑ,
Ñß½¿ éδ   «íΩ∩󿽿  ¼ÑΓ«ñ  ó α«ñ¿Γѽ∞߬«¼ Γ¿»Ñ ó¿αΓπá½∞¡δ¼,  Γ« óßÑ
¼ÑΓ«ñδ ß Γᬿ¼ ªÑ ¿¼Ñ¡Ñ¼ ó ½εí«¼ »«α«ªñÑ¡¡«¼ Γ¿»Ñ ñ«½ª¡δ  íδΓ∞  Γá¬
ªÑ «íΩ∩ó½Ñ¡δ ó¿αΓπá½∞¡δ¼¿, τΓ«íδ ¿ºíѪáΓ∞ «Φ¿í¬¿ ¬«¼»¿½∩µ¿¿.
     ì¿ªÑ »α¿óÑñÑ¡δ «íΩѬΓδ  úαáΣ¿τÑ߬«⌐  Σ«α¼δ,   ¬«Γ«αδÑ  ¬á¬  éδ
ó¿ñ¿ΓÑ ó¿αΓπ὿º¿α«óá¡δ ¡áñ½ÑªáΘ¿¼ «íαẫ¼.

     type
        Location = Object;
        X,Y : Integer;
        procedure Init (InitX, InitY : integer);
        function GetX : Integer;
        function GetY : Integer;
     end;
        Point = Object(Location)
        Visuble : Boolean;
        Constructor Init (InitX, InitY : Integer);
        procedure Show : virtual;
        procedure Hide : Boolean;
        procedure MoveTo (NewX, NewY : Integer);
        end;
        Circle = Object (Point)
        Radius : Integer;
        Constructor Init(InitX, InitY : Integer;
                         InitRadius : Integer);
        procedure Show; virtual;
        procedure Hide; virtual;
        procedure Expand (ExpandBy : Integer); virtual;
        procedure Contract (ContractBy : integer); virtual;
     end;

     ÅαѪñÑ óßÑú« ºá¼ÑΓ¿¼, τΓ« ¼ÑΓ«ñ MoveTo, »«¬áºá¡¡δ⌐ ó »«ß½Ññ¡Ñ⌐
¿ΓÑαᵿ¿ Γ¿»á Circle, íÑαÑΓß∩ ¿º «»αÑñѽѡ¿∩ Γ¿»á Point. ä½∩ Circle
í«½∞ΦÑ  ¡ÑΓ  ¡Ñ«íσ«ñ¿¼«ßΓ¿  »ÑαѬαδóáΓ∞  ¼ÑΓ«ñ  MoveTo  ¿º  Point ß
»«¼«Θ∞ε ¡Ñ¼«ñ¿Σ¿µ¿α«óá¡¡«⌐ ¬«»¿¿,  «Γ¬«¼»¿½¿α«óá¡¡«⌐  ó¡πΓα¿  ßΣÑαδ
ñÑ⌐ßΓó¿∩  Circle.  é¼ÑßΓ«  φΓ«ú«  MoveTo  ¼«ªÑΓ íδΓ∞ ¡áß½Ññ«óá¡á ¿º
Point,  »α¿ φΓ«¼ óßÑ ó맮óδ  ó½«ªÑ¡¡δσ  ¼ÑΓ«ñ«ó  ∩ó½∩εΓß∩  ¼ÑΓ«ñἿ
Circle,  á ¡Ñ Point, τΓ« í佫 íδ óÑα¡« ó ¿Ñαáασ¿¿, ß«ßΓ«∩ΘÑ⌐ Γ«½∞¬«
¿º ßΓáΓ¿τÑ߬¿σ «íΩÑ¬Γ«ó.
     èα«¼Ñ Γ«ú«,    ºá¼ÑΓ¿¼,   τΓ«  ¡«ó«Ñ  ºáαѺÑαó¿α«óá¡¡«Ñ  ß½«ó«
constructor ºá¼Ñ¡∩ÑΓ ºáαѺÑαó¿α«óá¡¡«Ñ ß½«ó« procedure ñ½∩ »α«µÑñπα
Point.Init ¿ Circle.Init.  è«¡ßΓαá¬Γ«α - φΓ« »α«µÑñπαá ߻ѵ¿á½∞¡«ú«
Γ¿»á, ¬«Γ«αá∩  ñѽáÑΓ ¡Ñ¬«Γ«απε αáí«Γπ »« ¡áßΓα«⌐¬Ñ  ñ½∩  ¼Ñσá¡¿º¼á
«íαáí«Γ¬¿ ó¿αΓπá½∞¡δσ   ¼ÑΓ«ñ«ó.

     Åα¿¼Ñτá¡¿Ñ: èáªñδ⌐  Γ¿»  «íΩѬΓá,  ¬«Γ«αδ⌐  ¿¼ÑÑΓ  ó¿αΓπá½∞¡δÑ
¼ÑΓ«ñδ, ñ«½ªÑΓ ¿¼ÑΓ∞ ¬«¡ßΓαá¬Γ«α (constructor).
     ü«½ÑÑ Γ«ú«, ¬«¡ßΓαá¬Γ«α ñ«½ªÑ¡ óδºδóáΓ∞ß∩ »ÑαÑñ óδº«ó«¼ ½εí«ú«
ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá. é맮ó ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá íѺ »αÑñóáα¿Γѽ∞¡«ú«
ó맮óá  ¬«¡ßΓαá¬Γ«αá  ¼«ªÑΓ  óδºδóáΓ∞  í½«¬¿α«óá¡¿Ñ ß¿ßΓѼδ,  ¬α«¼Ñ
Γ«ú«,  ¬«¼»¿½∩Γ«α ¡Ñ ¿¼ÑÑΓ  ß»«ß«íá  »α«óÑન  »«α∩ñ¬á,  ó  ¬«Γ«α«¼
óδºδóáεΓß∩ ¼ÑΓ«ñδ.
     îδ »αÑñ»«½áúáѼ   ¿ß»«½∞º«óá¡¿Ñ   ¿ñÑ¡Γ¿Σ¿¬áΓ«αá   Init    ñ½∩
¬«¡ßΓαá¬Γ«α«ó «íΩÑ¬Γ«ó.
     èáªñδ⌐ «Γñѽ∞¡δ⌐ φ¬ºÑ¼»½∩α «íΩѬΓá ñ«½ªÑ¡ ¿¡¿µ¿á½¿º¿α«óáΓ∞ß∩ ß
»«¼«Θ∞ε «Γñѽ∞¡«ú«         ó맮óá    ¬«¡ßΓαá¬Γ«αá.     ìÑñ«ßΓáΓ«τ¡«
»α«¿¡¿µ¿á½¿º¿α«óáΓ∞ «ñ¿¡ «íαáºÑµ «íΩѬΓá,  á ºáΓѼ  »α¿ßó«¿Γ∞  φΓ«Γ
«íαáºÑµ ñ«»«½¡¿Γѽ∞¡δ¼ «íαẵá¼.  ò«Γ∩ ñ«»«½¡¿Γѽ∞¡δÑ «íαáºµδ ¼«úπΓ
ß«ñÑαªáΓ∞ »αáó¿½∞¡δÑ ñá¡¡δÑ,  «¡¿ ¡Ñ  íπñπΓ  »α«¿¡¿µ¿á½¿º¿α«óá¡δ  ß
»«¼«Θ∞ε »αÑñ½«ªÑ¡¿⌐   »α¿ßóá¿óá¡¿∩  ¿  íπñπΓ  óδºδóáΓ∞ í½«¬¿α«óá¡¿Ñ
ß¿ßΓÑ¼δ »α¿ ó맮óÑ ¿σ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó. ìá»α¿¼Ñα:

     var
       QCircle, RCircle : Circle   {ß«ºñáÑΓ ñóá φ¬ºÑ¼»½∩αá Circle}
     begin
       QCircle.Init(600, 100, 30); {óδº«ó ¬«¡ßΓαá¬Γ«αá ñ½∩ Circle}
       RCircle := QCircle;         {¡ÑóÑα¡«}
     end;

     ùΓ« ß«ºñáεΓ ¬«¡ßΓαá¬Γ«αδ?  èáªñδ⌐ Γ¿» «íΩѬΓá ¿¼ÑÑΓ ó ßÑú¼Ñ¡ΓÑ
ñá¡¡δσ Γáí½¿µπ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó (éîÆ).  éîÆ ß«ñÑαª¿Γ αẼÑα Γ¿»á
«íΩѬΓá ¿   ñ½∩  ¬áªñ«ú«  ó¿αΓπá½∞¡«ú«  ¼ÑΓ«ñá  π¬áºáΓѽ∞  ¡á  ¬«ñ,
αÑ὿ºπεΘ¿⌐ φëà  ¼ÑΓ«ñ.   è«¡ßΓαá¬Γ«α  πßΓá¡áó½¿óáÑΓ  ßó∩º∞  ¼Ñªñπ
φ¬ºÑ¼»½∩α«¼, óδºδóáεΘ¿¼  ¬«¡ßΓαá¬Γ«α ¿ Γáí½¿µÑ⌐ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó
ñá¡¡«ú« Γ¿»á «íΩѬΓá.
     é᪡« ºá»«¼¡¿Γ∞:   ñ½∩  ¬áªñ«ú« Γ¿»á «íΩѬΓá ßπΘÑßΓóπÑΓ Γ«½∞¬«
«ñ¡á Γáí½¿µá ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó. ÄΓñѽ∞¡δÑ φ¬ºÑ¼»½∩αδ Γ¿»á «íΩѬΓá
(Γ.Ñ. »ÑαѼѡ¡á∩  φΓ«ú« Γ¿»á) ß«ñÑαª¿Γ ßó∩º∞ ß Γáí½¿µÑ⌐ ó¿αΓπá½∞¡δσ
¼ÑΓ«ñ«ó - «¡¿ ¡Ñ ß«ñÑαªáΓ φΓπ Γáí½¿µπ.   è«¡ßΓαá¬Γ«α  πßΓá¡áó½¿óáÑΓ
º¡áτÑ¡¿Ñ φΓ«⌐   ßó∩º¿  ß  Γáí½¿µÑ⌐ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó.  é«Γ »«τѼπ
¼«ª¡« ºá»πßΓ¿Γ∞ óδ»«½¡Ñ¡¿Ñ ó ¡¿¬πñá, Ñß½¿ óδºóáΓ∞ ó¿αΓπá½∞¡δ⌐ ¼ÑΓ«ñ
ñ« ó맮óá ¬«¡ßΓαá¬Γ«αá.


     é맮óδ »α«óÑન ñ«»πßΓ¿¼«ú« ñ¿á»áº«¡á ñ½∩ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó.

     Åα¿ αáºαáí«Γ¬Ñ  »α«úαá¼¼δ   ¼«ªÑΓ   󫺡¿¬¡πΓ∞   ¡Ñ«íσ«ñ¿¼«ßΓ∞
¿ß»«½∞º«óáΓ∞  »αÑ¿¼πΘÑßΓóá ßÑΓ¿ íѺ«»áß¡«ßΓ¿,  ¬«Γ«απε Turbo Pascal
»«¼ÑΘáÑΓ ¡¿ªÑ ó맮ó«ó ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó.  àß½¿ «»µ¿∩ $R ¡áσ«ñ¿Γß∩
ó á¬Γ¿ó¡«¼ ß«ßΓ«∩¡¿¿ {$R+}, Γ« ñ½∩ ó맮ó«ó óßÑσ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó
»α«óÑα∩ÑΓß∩ ßΓáΓπß ¿¡¿µ¿á½¿ºáµ¿¿ φ¬ºÑ¼»½∩αá,  ñѽáεΘÑú« ó맮ó. àß½¿
φ¬ºÑ¼»½∩α,  ñѽáεΘ¿⌐ ó맮ó,  ¡Ñ ¿¡¿µ¿á½¿º¿απÑΓß∩ ¬«¡ßΓαá¬Γ«α«¼,  Γ«
»α¿ óδ»«½¡Ñ¡¿¿ »α«¿ßσ«ñ¿Γ «Φ¿í¬á óδσ«ñá ºá ñ«»πßΓ¿¼δ⌐ ñ¿á»áº«¡.

     Åα¿¼Ñτá¡¿Ñ: Å«  π¼«½τá¡¿ε  «»µ¿∩  R  ¡áσ«ñ¿Γß∩  ó   ¡Ñá¬Γ¿ó¡«¼
ß«ßΓ«∩¡¿¿ {$R-}.

     Å«ß½Ñ Γ«ú«,   ¬á¬  éδ  «Γ½áñ¿½¿  »α«úαá¼¼π ¿ πóÑαÑ¡δ,  τΓ« ¡ÑΓ
ó맮ó«ó ¼ÑΓ«ñ«ó   ¿º  ¡Ñ¿¡¿µ¿á½¿º¿α«óá¡¡δσ  φ¬ºÑ¼»½∩α«ó,   ¼«ª¡«  ó
¡Ñ¬«Γ«α«⌐ ßΓѻѡ¿     πóѽ¿τ¿Γ∞   ߬«α«ßΓ∞   óδ»«½¡Ñ¡¿∩  »α«úαá¼¼δ,
πßΓá¡«ó¿ó «»µ¿ε $R  ó  ¡Ñá¬Γ¿ó¡«Ñ  ß«ßΓ«∩¡¿Ñ  {$R-}.  Æ«úñá  ó맮óδ
¼ÑΓ«ñ«ó  ¿º  ¡Ñ¿¡¿µ¿á½¿º¿α«óá¡¡δσ φ¬ºÑ¼»½∩α«ó í«½∞ΦÑ »α«óÑα∩Γ∞ß∩ ¡Ñ
íπñπΓ ¿,  󫺼«ª¡«,  íπñÑΓ »α«¿ßσ«ñ¿Γ∞ í½«¬¿α«óá¡¿Ñ  ß¿ßΓѼδ,  Ñß½¿
Γá¬¿Ñ ó맮óδ «í¡áαπªÑ¡δ.

             Äñ¡áªñδ ó¿αΓπá½∞¡δ⌐, óßÑúñá ó¿αΓπá½∞¡δ⌐.

     çá¼ÑΓ¿¼, τΓ«  ¿  Point  ¿ Circle ¿¼ÑεΓ ¼ÑΓ«ñδ ß ¿¼Ñ¡á¼¿ Show ¿
Hide. éßÑ    ºáú«½«ó¬¿  ¼ÑΓ«ñ«ó  ñ½∩  Show  ¿  Hide  »«¼ÑτÑ¡δ   ¬á¬
ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ   ß  »«¼«Θ∞ε  ºáαѺÑαó¿α«óá¡¡«ú«  ß½«óá virtual.
Å«ß½Ñ Γ«ú«,  ¬á¬ α«ñ¿Γѽ∞߬¿⌐  Γ¿»  «íΩѬΓá  »«¼ÑτáÑΓ  ¼ÑΓ«ñ,   ¬á¬
ó¿αΓπá½∞¡δ⌐, óßÑ  »«α«ªñÑ¡¡δÑ Γ¿»δ, ¬«Γ«αδÑ αÑ὿ºπεΓ ¼ÑΓ«ñ ß Γᬿ¼
ªÑ ¿¼Ñ¡Ñ¼ ñ«½ª¡δ »«¼ÑτáΓ∞ φëà ¼ÑΓ«ñ ΓᬠªÑ  ó¿αΓπá½∞¡δ¼.   äαπú¿¼¿
ß½«óἿ, ßΓáΓ¿τÑ߬¿⌐  ¼ÑΓ«ñ ¡¿¬«úñá ¡Ñ ß¼«ªÑΓ »ÑαѬαδΓ∞ ó¿αΓπá½∞¡δ⌐
¼ÑΓ«ñ. àß½¿ éδ »«»δΓáÑΓÑß∞ φΓ« ßñѽáΓ∞, ¬«¼»¿½∩Γ«α óδñáßΓ «Φ¿í¬π.
     ìπª¡« óßÑúñá  »«¼¡¿Γ∞,   τΓ«  ºáú«½«ó«¬ ¼ÑΓ«ñá ¡Ñ½∞º∩ ¿º¼Ñ¡∩Γ∞
¬á¬¿¼ íδ Γ« ¡¿ í佫 ß»«ß«í«¼ 󡿺 »« ¿Ñαáασ¿¿ «íΩÑ¬Γ«ó,  Ñß½¿ ¼ÑΓ«ñ
ßñѽᡠó¿αΓπá½∞¡δ¼.    èáªñ«Ñ «»αÑñѽѡ¿Ñ ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá ¼«ª¡«
»αÑñßΓáó½∩Γ∞ ó«α«ΓἿ ñ½∩ óßÑσ  Γá¬¿σ  ¼ÑΓ«ñ«ó.   Å«  φΓ«⌐  »α¿τ¿¡Ñ
ºáú«½«ó¬¿ ñ½∩  óßÑσ αÑ὿ºáµ¿⌐ «ñ¡«ú« ¿ Γ«ú« ªÑ ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá
ñ«½ª¡δ íδΓ∞ ¿ñÑ¡Γ¿τ¡δ¼¿ 󻽫Γ∞ ñ« ¬«½¿τÑßΓóá  ¿  Γ¿»«ó  »áαá¼ÑΓα«ó.
¥Γ« ¡Ñ  αáß»α«ßΓαá¡∩ÑΓß∩ ¡á ßΓáΓ¿τÑ߬¿Ñ ¼ÑΓ«ñδ.  æΓáΓ¿τÑ߬¿⌐ ¼ÑΓ«ñ,
»ÑαѬαδóáεΘ¿⌐ ñαπú«⌐   ¼ÑΓ«ñ,   ¼«ªÑΓ   ¿¼ÑΓ∞   ñαπú«Ñ   ¬«½¿τÑßΓó«
»áαá¼ÑΓα«ó ¿ ñαπú¿Ñ Γ¿»δ »áαá¼ÑΓα«ó, Ñß½¿ φΓ« ¡Ñ«íσ«ñ¿¼«.


                  Åα¿¼Ñα »«ºñ¡Ñú« ßó∩ºδóá¡¿∩.

     ùΓ«íδ »«¬áºáΓ∞ ¬á¬ ¿ß»«½∞º«óáΓ∞ »«½¿¼«αΣ¡δÑ «íΩѬΓδ ß  »«ºñ¡¿¼
ßó∩ºδó᡿Ѽ ó   »α«úαá¼¼Ñ   ¡á  Turbo  Pascal,  óÑα¡Ñ¼ß∩  ¬  ¼«ñπ½ε
úαáΣ¿τÑ߬¿σ  Σ¿úπα,  «»¿ßá¡¡«¼π  αá¡ÑÑ.  ûѽ∞  ß«ßΓ«¿Γ  ó  ß«ºñá¡¿¿
¼«ñπ½∩,  ¬«Γ«αδ⌐  φ¬ß»«αΓ¿απÑΓ ¡Ñ߬«½∞¬« «íΩÑ¬Γ«ó úαáΣ¿τÑ߬¿σ Σ¿úπα
(¡á»α¿¼Ñα Point ¿ Circle) ¿ «í«íΘÑ¡¡δÑ  ¼ÑΓ«ñδ  τÑατÑ¡¿∩  ½εí«⌐  ¿º
φΓ¿σ Σ¿úπα ¡á φ¬αá¡Ñ.  î«ñπ½∞,  ¿¼ÑεΘ¿⌐ ¿¼∩ Figures,  íπñÑΓ »α«ßΓ«⌐
αÑ὿ºáµ¿Ñ⌐   úαáΣ¿τÑ߬«ú«   »á¬ÑΓá,   «»¿ßá¡¡«ú«   αá¡ÑÑ.    ùΓ«íδ
»α«ñѼ«¡ßΓα¿α«óáΓ∞  Figures,  »«ßΓα«¿¼  »α«ßΓπε »α«úαá¼¼π,  ¬«Γ«αá∩
«»αÑñѽ∩ÑΓ ¡«óδ⌐ Γ¿» «íΩѬΓá, ¡Ñ¿ºóÑßΓ¡δ⌐ ó ¼«ñπ½Ñ Figures, á ºáΓѼ
¿ß»«½∞ºπÑΓ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ ñ½∩ ¿º«íαáªÑ¡¿∩ ¡«ó«ú« Γ¿»á Σ¿úπαδ ¡á
φ¬αá¡Ñ.
     Å«ñπ¼áѼ « Γ«¼,  τѼ  »«σ«ª¿  úαáΣ¿τÑ߬¿Ñ  Σ¿úπαδ  ¿  τѼ  «¡¿
«Γ½¿τáεΓß∩. Éẽ¿τ¿∩  «τÑó¿ñ¡δ, á τΓ« ¬áßáÑΓß∩ ßσ«ñßΓóá, Γ« óßÑ «¡¿
ó¬½ετáεΓ «τÑαΓá¡¿∩,  πú½δ ¿ ¬α¿óδÑ,   ¿º«íαáªÑ¡¡δÑ  ¡á  φ¬αá¡Ñ.   é
»α«ßΓ«⌐ úαáΣ¿τÑ߬«⌐ »α«úαá¼¼Ñ,  ¬«Γ«απε ¼δ íπñѼ «»¿ßδóáΓ∞, Σ¿úπαδ,
¿º«íαáªáѼδÑ ¡á φ¬αá¡Ñ, ¿¼ÑεΓ ß½ÑñπεΘ¿Ñ áΓα¿íπΓδ:

     - «¡¿ ¿¼ÑεΓ »«º¿µ¿ε,  ºáñáóáѼπε X,Y.   Æ«τ¬á  ó¡πΓα¿  Σ¿úπαδ,
¡áσ«ñ∩Θá∩ß∩ ó φΓ«⌐ »«º¿µ¿¿ X,Y ¡áºδóáÑΓß∩ Γ«τ¬«⌐ »α¿ó∩º¬¿ Σ¿úπαδ.
     - «¡¿  ¼«úπΓ íδΓ∞ ¿½¿ ó¿ñ¿¼δ¼¿,  ¿½¿ ¡Ñó¿ñ¿¼δ¼¿,  τΓ« ºáñáÑΓß∩
íπ½Ñó߬¿¼ º¡áτÑ¡¿Ñ¼ True (ó¿ñ¿¼δ⌐) ¿½¿ False (¡Ñó¿ñ¿¼δ⌐).

     àß½¿ »«ß¼«ΓαÑΓ∞  αá¡ÑÑ  »α¿óÑñÑ¡¡δÑ »α¿¼Ñαδ,  Γ« »ÑαÑτ¿ß½Ñ¡¡δÑ
áΓα¿íπΓδ ∩ó½∩εΓß∩ Γ«τ¡«⌐ σáαá¬ΓÑα¿ßΓ¿¬«⌐ Γ¿»«ó «íΩÑ¬Γ«ó Location  ¿
Point. Point      Σá¬Γ¿τÑ߬¿   »αÑñßΓáó½∩ÑΓ   ß«í«⌐   αạ«ó¿ñ¡«ßΓ∞
"ñÑñπΦ¬¿¡«ú«" Γ¿»á,   ¬«Γ«αδ⌐  »«α«ªñáÑΓ  óßÑ  «íΩѬΓδ  úαáΣ¿τÑ߬¿σ
Σ¿úπα.
     ï«ú¿τÑ߬«Ñ «í«ß¡«óá¡¿Ñ,   αáºπ¼¡«Ñ  «íΩ∩ß¡Ñ¡¿Ñ   ñѼ«¡ßΓα¿απÑΓ
ó᪡δ⌐ »α¿¡µ¿»       «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«    »α«úαá¼¼¿α«óá¡¿∩:
«»αÑñѽ∩∩ ¿Ñαáασ¿ε Γ¿»«ó «íΩÑ¬Γ«ó,  ß«íÑα¿ΓÑ óßÑ «íΘ¿Ñ  áΓα¿íπΓδ  ó
«ñ¿¡ Γ¿», ¿ «»αÑñѽ¿ΓÑ ¿Ñαáασ¿ε Γ¿»«ó Γá¬, τΓ«íδ óßÑ «íΘ¿Ñ φ½Ñ¼Ñ¡Γδ
¡áß½Ññ«ó὿ß∞ ¿º φΓ«ú« Γ¿»á.

     Åα¿¼Ñτá¡¿Ñ:  çá¼Ñτá¡¿Ñ «í áíßΓαá¬Γ¡δσ «íΩѬΓáσ.

     Æ¿» Point ñÑ⌐ßΓóπÑΓ ¬á¬ Φáí½«¡,  ¿º ¬«Γ«α«ú«  óßÑ  »«α«ªñÑ¡¡δÑ
Γ¿»δ «íΩÑ¬Γ«ó   ¼«úπΓ  óº∩Γ∞  φ½Ñ¼Ñ¡Γδ,   «íΘ¿Ñ  ñ½∩  óßÑσ  Γ¿»«ó ó
¿Ñαáασ¿¿. é  φΓ«¼ »α¿¼ÑαÑ «íΩÑ¬Γ Γ¿»á  Point  ¡Ñ  íπñÑΓ  Σá¬Γ¿τÑ߬¿
¿º«íαáªáΓ∞ß∩ ¡á   φ¬αá¡Ñ,   σ«Γ∩  «Γ φΓ«ú« ¡Ñ íπñÑΓ ¡¿¬á¬«ú« óαÑñá.
(é맮ó Point.Show ó맮óÑΓ »«∩ó½Ñ¡¿Ñ Γ«τ¬¿ ¡á φ¬αá¡Ñ).  Æ¿» «íΩѬΓá,
߻ѵ¿á½∞¡« «»αÑñѽѡ¡«ú« ñ½∩ «íÑß»ÑτÑ¡¿∩ ¡áß½Ññ«óá¡¿∩ σáαá¬ΓÑα¿ßΓ¿¬
»«α«ªñÑ¡¡δ¼¿ «íΩѬΓἿ,    ¡áºδóáÑΓß∩  áíßΓαá¬Γ¡δ¼  Γ¿»«¼  «íΩѬΓá.
â½áó¡á∩ ßπΓ∞   áíßΓαá¬Γ¡«ú«  Γ¿»á  ó  Γ«¼,   τΓ«  «¡  ñ«½ªÑ¡  ¿¼ÑΓ∞
»«α«ªñÑ¡¡δÑ Γ¿»δ, á ¡Ñ φ¬ºÑ¼»½∩αδ.
     Åα«τ¿ΓáѼ Point  ÑΘÑ  αáº,   ¡á  φëà  αẠ ¬á¬  αѺε¼Ñ   óßÑσ
áΓα¿íπΓ«ó, ¬«Γ«αδÑ    ∩ó½∩εΓß∩ «íΘ¿¼¿ ñ½∩ úαáΣ¿τÑ߬¿σ Σ¿úπα.  Point
¡áß½ÑñπÑΓ X ¿ Y ¿º ÑΘÑ í«½ÑÑ αá¡¡Ñú« Γ¿»á Location, ¡« ΓѼ ¡Ñ ¼Ñ¡ÑÑ
Point ß«ñÑαª¿Γ   X  ¿  Y  ¿  ¼«ªÑΓ »ÑαÑñáóáΓ∞ ¿σ »«α«ªñÑ¡¡δ¼ Γ¿»á¼.
çá¼ÑΓ¿¼, τΓ«  ¼ÑΓ«ñδ Point ¡Ñ «íαáΘáεΓß∩ ¬ Σ«α¼Ñ  Σ¿úπαδ,   ¡«  óßÑ
Σ¿úπαδ ¼«úπΓ íδΓ∞ ó¿ñ¿¼δ¼¿ ¿½¿ ¡Ñó¿ñ¿¼δ¼¿ ¿ »ÑαѼÑΘáΓ∞ß∩ »« φ¬αá¡π.
     Point ΓᬠªÑ ¿¼ÑÑΓ ó᪡πε  Σπ¡¬µ¿ε  "»ÑαÑñáεΘÑ⌐  ßΓᡵ¿¿"  ñ½∩
¿º¼Ñ¡Ñ¡¿⌐ ó  ¿Ñαáασ¿¿ «íΩÑ¬Γ«ó ó µÑ½«¼.  àß½¿ ñ«íáó½∩εΓß∩ ¡Ñ¬«Γ«αδÑ
¡«óδÑ ßó«⌐ßΓóá,  ¬«Γ«αδÑ »α¿¼Ñ¡∩εΓß∩ ¬«  óßѼ  úαáΣ¿τÑ߬¿¼  Σ¿úπαá¼
(»«ññÑαª¬á µóÑΓá,   ¡á»α¿¼Ñα),  Γ« ¿σ ¼«ª¡« ñ«íáó½∩Γ∞ ¬« óßѼ Γ¿»á¼
«íΩÑ¬Γ«ó, »α«¿ßσ«ñ∩Θ¿¼  «Γ Point, »α«ßΓ« ñ«íáó¿ó φΓ¿ ¡«óδÑ ßó«⌐ßΓóá
¬ Point.    Æ«úñá  ¡«óδÑ  ßó«⌐ßΓóá  ¼«ª¡«  óδºδóáΓ∞ ¿º ½εí«ú« Γ¿»á,
»«α«ªñÑ¡¡«ú« Point.  îÑΓ«ñ ñ½∩ »ÑαѼÑΘÑ¡¿∩ Σ¿úπαδ ó ΓѬπΘπε »«º¿µ¿ε
ß »«¼«Θ∞ε ¼á¡¿»π½∩Γ«αá "¼δΦ∞",  ¼«ª¡«,  ¡á»α¿¼Ñα, ñ«íáó¿Γ∞ ¬ Point,
¡Ñ ¿º¼Ñ¡∩∩ ¼ÑΓ«ñδ,  ߻ѵ¿Σ¿τÑ߬¿Ñ ñ½∩ ¬áªñ«⌐ Σ¿úπαδ,  Γᬠ¬á¬ Γᬫ⌐
¼ÑΓ«ñ íπñÑΓ  ñÑ⌐ßΓó«óáΓ∞ Γ«½∞¬« ¡á »«½∩ X ¿ Y.  ÄτÑó¿ñ¡«,  τΓ« Ñß½¿
¡«ó«Ñ ßó«⌐ßΓó«   ñ«½ª¡«  αÑ὿º«óδóáΓ∞ß∩  αẽ¿τ¡δ¼   «íαẫ¼   ñ½∩
αẽ¿τ¡δσ Σ¿úπα,    Γ« ñ«½ªÑ¡ íδΓ∞ µÑ½δ⌐ ¡áí«α ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó,
߻ѵ¿Σ¿τÑ߬¿σ ñ½∩ ¬áªñ«⌐ Σ¿úπαδ,  ñ«íáó½∩Ѽδ⌐ ó ¿Ñαáασ¿ε,  »α¿ φΓ«¼
¬áªñδ⌐ ¼ÑΓ«ñ   »ÑαѬαδóáÑΓ  ¼ÑΓ«ñ,  »α¿¡áñ½ÑªáΘ¿⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡«¼π
α«ñ¿Γѽε. ûóÑΓ,  ¡á»α¿¼Ñα, ñ«½ªÑ¡ ΓαÑí«óáΓ∞ ¼¿¡¿¼á½∞¡δÑ ¿º¼Ñ¡Ñ¡¿∩ ó
»α«µÑñπαáσ Show   ¿  Hide,   Γᬠ ¬á¬  ß¿¡Γá¬ß¿ß  ¼¡«ú¿σ  τÑαΓѪ¡δσ
»«ñ»α«úαá¼¼ Graph.TPU   ºáó¿ß¿Γ  «Γ  Γ«ú«,    ¬á¬   ºáñáÑΓß∩   µóÑΓ
¿º«íαáªÑ¡¿∩.


                       Åα«µÑñπαá ¿½¿ ¼ÑΓ«ñ?

     â½áó¡á∩ µÑ½∞   αáºαáí«Γ¬¿   ¼«ñπ½∩   Figures.PAS   ß«ßΓ«¿Γ   ó
»αÑñ«ßΓáó½Ñ¡¿¿ »«½∞º«óáΓѽ∩¼ 󫺼«ª¡«ßΓ¿ αáßΦ¿α∩Γ∞  Γ¿»δ  «íΩÑ¬Γ«ó,
«»αÑñѽѡ¡δÑ ó   ¼«ñπ½Ñ  ¿  ÑΘÑ  ¿ß»«½∞º«óáΓ∞ óßÑ ßó«⌐ßΓóá ¼«ñπ½Ñ⌐.
ê¡ΓÑαÑß¡á∩ ºáñáτá ß«ßΓ«¿Γ ó Γ«¼,  τΓ«íδ ß«ºñáΓ∞ ¡Ñ߬«½∞¬«  ß»«ß«í«ó
¿º«íαáªÑ¡¿∩ »α«¿ºó«½∞¡«⌐   úαáΣ¿τÑ߬«⌐  Σ¿úπαδ ¡á φ¬αá¡Ñ ó «ΓóÑΓ ¡á
óó«ñ »«½∞º«óáΓѽ∩.
     àßΓ∞ ñóá ß»«ß«íá αÑ὿ºáµ¿¿ φΓ«⌐ µÑ½¿.  滫߫í, ¬«Γ«αδ⌐ »Ñαóδ⌐
»α¿σ«ñ¿Γ ó ú«½«óπ Γαáñ¿µ¿«¡¡«¼π »α«úαá¼¼¿ßΓπ ¡á Åá߬á½Ñ - ºáßΓáó¿Γ∞
FIGURES.PAS φ¬ß»«αΓ¿α«óáΓ∞ »α«µÑñπαπ,   ¬«Γ«αá∩  íÑαÑΓ  »«½¿¼«αΣ¡δ⌐
«íΩÑ¬Γ ó  ¬áτÑßΓóÑ »áαá¼ÑΓαá var,  á ºáΓѼ ¿º«íαáªáÑΓ ñá¡¡δ⌐ «íΩѬΓ
¡á φ¬αá¡Ñ. Æá¬á∩ »α«µÑñπαá »α¿óÑñÑ¡á ¡¿ªÑ:

     procedure DragIt (var AnyFigure : Point;
                           DragBy : integer);
     var
        DeltaX, DeltaY : Integer;
        FigureX, FigureY : Integer;
     begin
        AnyFigure.Show {τΓ«íδ  ¿º«íαáªáѼá∩  Σ¿úπαá  íδ½á  ó¿ñ¡á ¡á
                        φ¬αá¡Ñ}
        FigureX := AnyFigure.GetX; {»«½πτáѼ ¡áτá½∞¡δÑ º¡áτÑ¡¿∩ X ¿
        FigureY := AnyFigure.GetY;  Y ñ½∩ ñá¡¡«⌐ Σ¿úπαδ }

     {ì¿ªÑ »α¿óÑñÑ¡ µ¿¬½, ó ¬«Γ«α«¼ τÑαΓ¿Γß∩ Σ¿úπαá}

        while GetDelta (DeltaX, DeltaY) do
        begin
          {»α¿¼Ñ¡¿¼ Delta ¬ X,Y}

           FigureX := FigureX + (DeltaX + DragBy);
           FigureY := FigureY + (DeltaY + DragBy);

          {ºáΓѼ »ÑαÑñó¿úáѼ Σ¿úπαπ}
        end;
     end;

     DragIt óδºδóáÑΓ  ñ«»«½¡¿Γѽ∞¡πε  »α«µÑñπαπ  GetDelta,  ¬«Γ«αá∩
»«½πτáÑΓ «Γ »«½∞º«óáΓѽ∩ ¿º¼Ñ¡Ñ¡¿∩ X ¿ Y ó ¡Ñ¬«Γ«α«⌐  Σ«α¼Ñ.   éó«ñ
¼«ª¡« «ßπΘÑßΓó½∩Γ∞   ß »«¼«Θ∞ε ¬½áó¿áΓπαδ,  ¼á¡¿»π½∩Γ«αá "¼δΦ∞" ¿½¿
ñª«⌐ßΓ¿¬á. ä½∩  »α«ßΓ«Γδ ó  ¡áΦѼ  »α¿¼ÑαÑ  óó«ñ  «ßπΘÑßΓó½∩ÑΓß∩  ß
»«¼«Θ∞ε ¬½áó¿Φ-ßΓαѽ«¬ ¡á ¬½áó¿áΓπαÑ.
     ùΓ« ¬áßáÑΓß∩ DragIt,  Γ« ¡πª¡« «Γ¼ÑΓ¿Γ∞, τΓ« ½εí«⌐ «íΩÑ¬Γ Γ¿»á
Point ¿½¿ «íΩÑ¬Γ ½εí«ú« Γ¿»á,  »«α«ªñÑ¡¡«ú« Point, ¼«ª¡« »ÑαÑñáΓ∞ ó
var  »áαá¼ÑΓα  AnyFigure.  ¥¬ºÑ¼»½∩αδ  Γ¿»á  Point ¿½¿ Circle,  ¿½¿
φ¬ºÑ¼»½∩αδ ½εí«ú« »«α«ªñÑ¡¡«ú« Point ¿½¿ Circle Γ¿»á, ¬«Γ«αδ⌐ íπñÑΓ
«»αÑñѽѡ ó íπñπΘѼ, ¼«úπΓ »ÑαÑñáóáΓ∞ß∩ íѺ ¬«¼»¿½∩µ¿¿ ó AnyFigure.
     èᬠ¬«ñ  DragIt πº¡áÑΓ,  ¬á¬«⌐ Γ¿» «íΩѬΓá Σá¬Γ¿τÑ߬¿ »ÑαÑñá¡?
DragIt ¡Ñ º¡áÑΓ Γ¿» ¿ φΓ« σ«α«Φ«.  DragIt Γ«½∞¬« ñѽáÑΓ  ßßδ½¬π  ¡á
¿ñÑ¡Γ¿Σ¿¬áΓ«αδ, «»αÑñѽѡ¡δÑ ó Γ¿»Ñ Point.  ü½áú«ñáα∩ ¡áß½Ññ«óá¡¿ε,
φΓ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ «»αÑñѽѡδ ΓᬠªÑ  ó  ½εí«¼  Γ¿»Ñ,   »«α«ªñÑ¡¡«¼
Point. îÑΓ«ñδ GetX,  GetY,  Show ¿ MoveTo Σá¬Γ¿τÑ߬¿ »α¿ßπΓßΓóπεΓ ó
Γ¿»Ñ Circle ΓᬠªÑ, ¬á¬ ó Γ¿»Ñ Point ¿ íπñπΓ »α¿ßπΓßΓó«óáΓ∞ ó ½εí«¼
íπñπΘѼ Γ¿»Ñ, «»αÑñѽѡ¡«¼ ó ¬áτÑßΓóÑ »«Γ«¼¬á ¿½¿ Point ¿½¿ Circle.
     GetX, GetY  ¿  MoveTo  ßΓáΓ¿τÑ߬¿Ñ ¼ÑΓ«ñδ,  φΓ« «º¡áτáÑΓ,  τΓ«
DragIt º¡áÑΓ áñαÑß ¬áªñ«⌐ »α«µÑñπαδ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿.  æ  ñαπú«⌐
ßΓ«α«¡δ, Show  - ó¿αΓπá½∞¡δ⌐ ¼ÑΓ«ñ.  àßΓ∞ αẽ¿τ¡δÑ αÑ὿ºáµ¿¿ Show
ñ½∩ Point ¿ Circle - ¿ DragIt ¡Ñ º¡áÑΓ ó«  óαѼ∩  ¬«¼»¿½∩µ¿¿  ¬á¬á∩
αÑ὿ºáµ¿∩ íπñÑΓ     óδºδóáΓ∞ß∩.    è«α«τÑ  ú«ó«α∩,   ¬«úñá  DragIt
óδºδóáÑΓß∩, «¡á  ¿ΘÑΓ áñαÑß »αáó¿½∞¡«⌐ αÑ὿ºáµ¿¿  Show  ó  Γáí½¿µÑ
ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó,  »ÑαÑñá¡¡«ú« ó AnyFigure. àß½¿ φ¬ºÑ¼»½∩α ¿¼ÑÑΓ
Γ¿» Circle,  Γ« DragIt óδºδóáÑΓ Circle.Show.  àß½¿ φ¬ºÑ¼»½∩α  ¿¼ÑÑΓ
Γ¿» Point,    Γ« DragIt óδºδóáÑΓ Point.Show.  ÉÑΦÑ¡¿Ñ « Γ«¼,  ¬á¬á∩
αÑ὿ºáµ¿∩ Show íπñÑΓ óδºδóáΓ∞ß∩ ¡Ñ »α¿¡¿¼áÑΓß∩ 󻽫Γ∞  ñ«  óαѼѡ¿
óδ»«½¡Ñ¡¿∩, Σá¬Γ¿τÑ߬¿,   󻽫Γ∞ ñ« Γ«ú« ¼«¼Ñ¡Γá ó »α«úαá¼¼Ñ, ¬«úñá
DragIt ñ«½ª¡á óδºóáΓ∞ ó¿αΓπá½∞¡δ⌐ ¼ÑΓ«ñ Show.
     ÆÑ»Ñα∞ DragIt   αáí«ΓáÑΓ   ñ«ßΓáΓ«τ¡«   σ«α«Φ«  ¿,   Ñß½¿  «¡á
φ¬ß»«αΓ¿απÑΓß∩ ¼«ñπ½Ñ¼ »á¬ÑΓá,  Γ« «¡á ¼«ªÑΓ ¿º«íαếΓ∞ ½εí«⌐  Γ¿»,
»«α«ªñÑ¡¡δ⌐ Point,   ¡á φ¬αá¡Ñ ¡Ñºáó¿ß¿¼« «Γ Γ«ú«,  ßπΘÑßΓóπÑΓ φΓ«Γ
Γ¿» »α¿ ¬«¼»¿½∩µ¿¿ »á¬ÑΓá ¿½¿ ¡ÑΓ.  ì« ¡πª¡« ñπ¼áΓ∞ ¡Ñ¼¡«ú« ñá½∞ΦÑ:
Ñß½¿ ½εí«⌐   «íΩÑ¬Γ  ¼«ªÑΓ  íδΓ∞ ¿º«íαáªÑ¡ ¡á φ¬αá¡Ñ,  Γ« »«τѼπ ¡Ñ
ßñѽáΓ∞ óδτÑατ¿óá¡¿Ñ ßó«⌐ßΓó«¼ ßἫú« úαáΣ¿τÑ߬«ú« «íΩѬΓá?
     äαπú¿¼¿ ß½«óἿ, »«τѼπ ¡Ñ ßñѽáΓ∞ DragIt ¼ÑΓ«ñ«¼?
     æñѽáѼ DragIt ¼ÑΓ«ñ«¼!
     äÑ⌐ßΓó¿Γѽ∞¡«. Å«τѼπ ¡πª¡« »ÑαÑñáóáΓ∞ «íΩÑ¬Γ »α«µÑñπαÑ, τΓ«íδ
¿º«íαếΓ∞ «íΩÑ¬Γ ¡á φ¬αá¡Ñ? ¥Γ« ßΓáαδ⌐ ß»«ß«í ¼δΦ½Ñ¡¿∩. àß½¿ ¼«ª¡«
¡á»¿ßáΓ∞ »α«µÑñπαπ ñ½∩ óδτÑατ¿óá¡¿∩ óßÑσ «íΩÑ¬Γ«ó úαáΣ¿τÑ߬¿σ Σ¿úπα
¡á φ¬αá¡Ñ,  Γ«  Γ«úñá  «íΩѬΓδ  úαáΣ¿τÑ߬¿σ  Σ¿úπα  ñ«½ª¡δ  íδΓ∞  ó
ß«ßΓ«∩¡¿¿ ¿º«íαếΓ∞ ßÑí∩ ¡á φ¬αá¡Ñ.
     äαπú¿¼¿ ß½«óἿ,  »α«µÑñπαá DragIt ñÑ⌐ßΓó¿Γѽ∞¡«  ñ«½ª¡á  íδΓ∞
¼ÑΓ«ñ«¼ Drag.
     ùΓ«íδ ñ«íáó¿Γ∞ ¡«óδ⌐ ¼ÑΓ«ñ ¬ ßπΘÑßΓóπεΘÑ⌐  ¿Ñαáασ¿¿  «íΩÑ¬Γ«ó,
¡πª¡« ¡Ñ¼¡«ª¬«   »«ñπ¼áΓ∞,   úñÑ   αáß»«½«ª¿Γ∞  ¼ÑΓ«ñ  ó  ¿Ñαáασ¿¿.
Å«ñπ¼á⌐ΓÑ «í πΓ¿½¿ΓÑ,  »αÑñ«ßΓáó½∩Ѽ«⌐ ¼ÑΓ«ñ«¼ ¿  αÑΦ¿ΓÑ  ¡á߬«½∞¬«
Φ¿α«¬«   «¡á   íπñÑΓ   »α¿¼Ñ¡∩Γ∞ß∩.  éδτÑατ¿óá¡¿Ñ  Σ¿úπαδ  ó¬½ετáÑΓ
¿º¼Ñ¡Ñ¡¿Ñ  »«º¿µ¿¿   Σ¿úπαδ   ó   «ΓóÑΓ   ¡á   óó«ñ   »«½∞º«óáΓѽ∩.
îÑΓáΣ«α¿τÑ߬¿  ¼«ª¡«  ßτ¿ΓáΓ∞,  τΓ«  ¼ÑΓ«ñ  Drag  á¡á½«ú¿τÑ¡ ¼ÑΓ«ñπ
MoveTo c ó¡πΓαÑ¡¡¿¼ ¿ßΓ«τ¡¿¬«¼ φ¡Ñαú¿¿.  é ΓÑନ¡áσ ¡áß½Ññ«óá¡¿∩ «¡
αáß»«½«ªÑ¡  ¡Ñ»«ßαÑñßΓóÑ¡¡« α∩ñ«¼ ß MoveTo - ½εí«⌐ «íΩѬΓ, ¬«Γ«α«¼π
»«ñσ«ñ¿Γ MoveTo,  ñ«½ªÑ¡ ΓᬠªÑ ¡áß½Ññ«óáΓ∞ ¿ Drag.  Æᬿ¼ «íαẫ¼,
Drag  ñ«½ªÑ¡ ñ«íáó½∩Γ∞ß∩ ¬ ¡áΦѼπ áíßΓαá¬Γ¡«¼π Γ¿»π «íΩÑ¬Γ«ó Point,
ΓᬠτΓ«íδ óßÑ »«Γ«¼¬¿ Point ¼«ú½¿ ¿ß»«½∞º«óáΓ∞ φëà ¼ÑΓ«ñ.
     ìπª¡« ½¿, τΓ«íδ Drag íδ½ ó¿αΓπá½∞¡δ¼ ¼ÑΓ«ñ«¼?
     ïᬼπß«óδ⌐ ΓÑßΓ ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞ ó¿αΓπ὿ºáµ¿¿ ¼ÑΓ«ñá  ß«ßΓ«¿Γ
ó Γ«¼,    «ª¿ñáÑΓß∩   ¿½¿  ¡ÑΓ  ¿º¼Ñ¡Ñ¡¿Ñ  Σπ¡¬µ¿«¡á½∞¡«ßΓ¿  ¼ÑΓ«ñá
úñÑ-¡¿íπñ∞ ¡¿ªÑ  ó  ¿Ñαáασ¿τÑ߬«¼  ñÑαÑóÑ.   Drag  -  φΓ«  ßó«⌐ßΓó«
ºá¼¬¡πΓ«ú«-ºá¬«¡τÑ¡¡«ú« Γ¿»á.   Drag ¼á¡¿»π½¿απÑΓ Γ«½∞¬« ß »«º¿µ¿Ñ⌐
X,Y Σ¿úπαδ   ¿  Γαπñ¡«  »αÑñ»«½«ª¿Γ∞,   τΓ«  ñ½∩  Drag  »«ΓαÑíπεΓß∩
¬á¬¿Ñ-¡¿íπñ∞ ¿º¼Ñ¡Ñ¡¿∩.  æ½Ññ«óáΓѽ∞¡«, óÑα«∩Γ¡«, τΓ« φëà ¼ÑΓ«ñ ¡Ñ
¡πª¡« ñѽáΓ∞ ó¿αΓπá½∞¡δ¼.
     üπñ∞ΓÑ «ßë᫪¡δ »α¿ ½εí«¼ Γᬫ¼ αÑΦÑ¡¿¿.  àß½¿ éδ ¡Ñ ßñѽáÑΓÑ
Drag ó¿αΓπá½∞¡δ¼, Γ« éδ ¿ß¬½ετ¿ΓÑ óßÑ ó«º¼«ª¡«ßΓ¿ ñ½∩ »«½∞º«óáΓѽÑ⌐
FIGURES.PAS   ¿º¼Ñ¡¿Γ∞   φëà  ¼ÑΓ«ñ  »α¿  αáßΦ¿αÑ¡¿¿  FIGURES.PAS.
髺¼«ª¡«, τΓ« éδ ¡Ñ ß¼«ªÑΓÑ »αÑñßΓáó¿Γ∞ «íßΓ«∩Γѽ∞ßΓóá, »α¿ ¬«Γ«αδσ
»«½∞º«óáΓѽ∞  ¼«ªÑΓ  ºáσ«ΓÑΓ∞ »ÑαÑ»¿ßáΓ∞ Drag.  ì« φΓ« ¡Ñ «º¡áτáÑΓ,
τΓ« Γá¬¿Ñ «íßΓ«∩Γѽ∞ßΓóá ¡Ñ ¼«úπΓ ó«º¡¿¬¡πΓ∞.
     ìá»α¿¼Ñα, Drag  ¿¼ÑÑΓ  ¡Ñ»αÑñó¿ñÑ¡¡«Ñ «íßΓ«∩Γѽ∞ßΓó«,  ¬«Γ«α«Ñ
»ÑαÑóÑΦ¿óáÑΓ íá½á¡ß ó »«½∞ºπ ó¿αΓπ὿ºáµ¿¿ ¼ÑΓ«ñá.  Drag ¿¼ÑÑΓ ñѽ«
ß «íαáí«Γ¬«⌐ ß«íδΓ¿⌐,  Γ.Ñ.  »ÑαÑσóáΓ óó«ñá «Γ πßΓα«⌐ßΓó,  »«ñ«í¡δσ
¬½áó¿áΓπαÑ ¿ ¼á¡¿»π½∩Γ«απ  "¼δΦ∞",   »α«¿ßσ«ñ¿Γ  ó  ¡Ñ»αÑñ߬áºπѼδÑ
¼«¼Ñ¡Γδ óαѼѡ¿,   φΓ¿ ß«íδΓ¿∩ ñ«½ª¡δ ΓѼ ¡Ñ ¼Ñ¡ÑÑ «íαáíáΓδóáΓ∞ß∩ ó
ëà ¼«¼Ñ¡Γ,  ¬«úñá «¡¿ »α«¿º«Φ½¿. Äíαáí«Γ¬á ß«íδΓ¿⌐ - íÑß»«α∩ñ«τ¡«Ñ
ñѽ« ¿   «τÑ¡∞  ºáó¿ß¿Γ  «Γ  á»»áαáΓπαδ.   àß½¿  »«½∞º«óáΓѽ∞ ¿¼ÑÑΓ
¡Ñ߬«½∞¬« πßΓα«⌐ßΓó óó«ñá,  ¬«Γ«αδÑ ¡Ñ «íΩ∩ó½Ñ¡δ ó Drag ó Γ«¼ ó¿ñÑ,
¬á¬ «¡ »αÑñßΓáó½Ñ¡, Γ« »«½∞º«óáΓѽ∞ íπñÑΓ ¡Ñ ó ß«ßΓ«∩¡¿¿ »ÑαÑ»¿ßáΓ∞
Drag. ìÑ ßª¿úá⌐ΓÑ óßÑ ¼«ßΓδ. æñѽá⌐ΓÑ Drag ó¿αΓπá½∞¡δ¼ ¼ÑΓ«ñ«¼.
     Åα«µÑßß »αÑ«íαẫóá¡¿∩  DragIt  ó  ¼ÑΓ«ñ ¿ ñ«íáó½Ñ¡¿Ñ ¼ÑΓ«ñá ¬
Point ∩ó½∩ÑΓß∩ »«τΓ¿ Γα¿ó¿á½∞¡δ¼.  é¡πΓα¿ «»αÑñѽѡ¿∩ «íΩѬΓá Point
Drag - φΓ« »α«ßΓ« ÑΘÑ «ñ¿¡ ºáú«½«ó«¬ ¼ÑΓ«ñá:

     Point = Object (Location)
     Visible : boolean
     Constructor Init (InitX, InitY : integer);
     procedure Show : virtual;
     procedure Hide : virtual;
     function IsVisible : Boolean;
     procedure MoveTo (NewX, NewY : integer);
     procedure Drag (DragBy : integer) : virtual;
     end;

     Å«º¿µ¿∩ ºáú«½«ó¬á  ¼ÑΓ«ñá  Drag ó «»αÑñѽѡ¿¿ «íΩѬΓá Point ¡Ñ
¿¼ÑÑΓ º¡áτÑ¡¿∩.  çừ¼¡¿ΓÑ,  τΓ« ¼ÑΓ«ñδ ¼«úπΓ «íΩ∩ó½∩Γ∞ß∩  ó  ½εí«¼
»«α∩ñ¬Ñ, á »«½∩ ñá¡¡δσ ñ«½ª¡δ «»αÑñѽ∩Γ∞ß∩ »ÑαÑñ »Ñαóδ¼ «íΩ∩ó½Ñ¡¿Ñ¼
¼ÑΓ«ñá. æπΘ¡«ßΓ∞  »αÑ«íαẫóá¡¿∩  »α«µÑñπαδ  DragIt  ó  ¼ÑΓ«ñ  Drag
»αá¬Γ¿τÑ߬¿ »«½¡«ßΓ∞ε   ß«ßΓ«¿Γ ó »α¿¼Ñ¡Ñ¡¿¿ ßΣÑαδ ñÑ⌐ßΓó¿∩ Point ¬
DragIt. é »α«µÑñπαÑ DragIt ¡πª¡« «»αÑñѽ¿Γ∞ ¼ÑΓ«ñδ AnyFigure.Show ¿
AnyFigure.GetX ¿  Γ.ñ.  Drag ΓÑ»Ñα∞ ∩ó½∩ÑΓß∩ τáßΓ∞ε Point,  »«φΓ«¼π
¬óá½¿Σ¿µ¿α«óáΓ∞ ¿¼Ñ¡á ¼ÑΓ«ñ«ó í«½∞ΦÑ ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿.
     AnyFigure.GetX - φΓ« ΓÑ»Ñα∞ »α«ßΓ« GetX ¿ Γ.ñ. ê, ¬«¡Ñτ¡«, var
»áαá¼ÑΓα AnyFigure  ¿ß¬½ετáÑΓß∩  ¿º  ßΓ᫬¿   »áαá¼ÑΓα«ó.   ìÑ∩ó¡δ⌐
»áαá¼ÑΓα Self ΓÑ»Ñα∞ ñáÑΓ ¿¡Σ«α¼áµ¿ε « Γ«¼, ¬á¬«⌐ φ¬ºÑ¼»½∩α «íΩѬΓá
¡áºδóáÑΓß∩ Drag.
     Åα¿¼Ñτá¡¿Ñ: Å«½¡δ⌐  ¿ßσ«ñ¡δ⌐  ¬«ñ ñ½∩ FIGURES.PAS,  ó¬½ετáεΘ¿⌐
Drag, αÑ὿º«óá¡¡δ⌐ ¬á¬ ó¿αΓπá½∞¡δ⌐ ¼ÑΓ«ñ, ÑßΓ∞ ¡á éáΦѼ ñ¿ß¬Ñ.

     ä« ß¿σ  »«α  éδ  ñ«½ª¡δ  í뫨  ñπ¼áΓ∞  ó  ΓÑନ¡áσ  »«ßΓα«Ñ¡¿∩
Σπ¡¬µ¿«¡á½∞¡«ßΓ¿ ó   «íΩѬΓáσ  ó  Σ«α¼Ñ  ¼ÑΓ«ñ«ó,   á ¡Ñ ó ΓÑନ¡áσ
»«ßΓα«Ñ¡¿∩ »α«µÑñπα  ¿  »ÑαÑñáτ¿  «íΩÑ¬Γ«ó  »α«µÑñπαá¼  ó  ¬áτÑßΓóÑ
»áαá¼ÑΓα«ó. é    ¬«¡µÑ  ¬«¡µ«ó  éδ  »α¿ñÑΓÑ ¬ »«ßΓα«Ñ¡¿ε »α«úαá¼¼ ó
ΓÑନ¡áσ ñÑ∩Γѽ∞¡«ßΓ¿,  ¬«Γ«απε ¼«úπΓ óδ»«½¡∩Γ∞ «íΩѬΓδ,   á  ¡Ñ  ¬
»«ßΓα«Ñ¡¿ε »α«úαá¼¼ ó ó¿ñÑ ¡áí«α«ó ó맮ó«ó »α«µÑñπα,  ¬«Γ«αδÑ ¿¼ÑεΓ
ñѽ« ß »áßß¿ó¡δ¼¿ ñá¡¡δ¼¿.
     ¥Γ« µÑ½δ⌐ ¡«óδ⌐ ¼¿α.


                      ÉáßΦ¿α∩Ѽ«ßΓ∞ «íΩÑ¬Γ«ó.

     ìπª¡« «Γ¼ÑΓ¿Γ∞   ó᪡πε   «ß«íÑ¡¡«ßΓ∞,    ¬áßáεΘπεß∩  ¼«ñπ½Ñ⌐,
»«ñ«í¡δσ FIGURES.PAS - Γ¿»δ  «íΩÑ¬Γ«ó  ¿  ¼ÑΓ«ñδ,   «»αÑñѽѡ¡δÑ  ó
¼«ñπ½Ñ, ¼«úπΓ »ÑαÑñáóáΓ∞ß∩ »«½∞º«óáΓѽ∩¼ Γ«½∞¬« ó «ΓαÑñá¬Γ¿α«óá¡¡«⌐
Σ«α¼Ñ .TPU  íѺ  ¿ßσ«ñ¡«ú«  ¬«ñá.  Æ«½∞¬« ß»¿ß«¬ ¿¡ΓÑαΣÑ⌐ß¡«⌐ τáßΓ¿
¼«ñπ½∩ ¡Ñ«íσ«ñ¿¼«  αáºΩÑñ¿¡¿Γ∞.  êß»«½∞ºπ∩  »«½¿¼«αΣ¡δÑ  «íΩѬΓδ  ¿
ó¿αΓπá½∞¡δÑ  ¼ÑΓ«ñδ,  »«½∞º«óáΓѽ∞ .TPU Σá⌐½á ¼«ªÑΓ ñ«íáó¿Γ∞ ¬ ¡Ñ¼π
ßó«⌐ßΓóá, «ΓóÑτáεΘ¿Ñ Ñú« »«ΓαÑí¡«ßΓ∩¼.
     ¥Γ« ¡«ó«Ñ ºá¼Ñτá¡¿Ñ  «  óº∩Γ¿¿  ¬«ñá  »α«úαá¼¼δ,   ¡á»¿ßá¡¡«ú«
¬Ñ¼-½¿í« ¿  ñ«íáó½Ñ¡¿¿ ¬ ¡Ñ¼π Σπ¡¬µ¿«¡á½∞¡«ßΓ¿ íѺ »«¼«Θ¿ ¿ßσ«ñ¡«ú«
¬«ñá ¡áºδóáÑΓß∩ αáßΦ¿α∩Ѽ«ßΓ∞ε.  ÉáßΦ¿α∩Ѽ«ßΓ∞ -  φΓ«  ÑßΓÑßΓóÑ¡¡δ⌐
αѺπ½∞ΓáΓ ¡áß½Ññ«óá¡¿∩.      éδ  ¡áß½ÑñπÑΓÑ  óßÑ,   τΓ«  ¿¼ÑεΓ  óßÑ
α«ñ¿Γѽ∞߬¿Ñ Γ¿»δ,  á ºáΓѼ ñ«íáó½∩ÑΓÑ ¡«óδÑ ó«º¼«ª¡«ßΓ¿,   ¬«Γ«αδÑ
éá¼ ¡Ñ«íσ«ñ¿¼δ.    Å«ºñ¡ÑÑ  ßó∩ºδóá¡¿Ñ  ñ«»π߬áÑΓ  «íΩ∩ó½Ñ¡¿∩ ¡«óδσ
«íΩÑ¬Γ«ó ó¼ÑßΓÑ ß« ßΓáα묨 «íΩѬΓἿ ó« óαѼ∩ óδ»«½¡Ñ¡¿∩,   »«φΓ«¼π
αáßΦ¿αÑ¡¿Ñ ßπΘÑßΓóπεΘÑú« ¬«ñá ¡Ñ ¡áαπΦáÑΓ Ñú« µÑ½«ßΓ¡«ßΓ¿ ¿ ºáΓαáΓδ
¡á Ñú« «ßπΘÑßΓó½Ñ¡¿Ñ ¡Ñ í«½∞ΦÑ,  τѼ »α¿ íδßΓα«¼ »α«σ«ñÑ »« Γáí½¿µÑ
ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó.
     FIGDEMO.PAS (¡á  éáΦѼ  ñ¿ß¬Ñ)  ¿ß»«½∞ºπÑΓ  ¼«ñπ½∞  Figures  ¿
αáßΦ¿α∩ÑΓ Ñú«,  ß«ºñáóá∩ ¡«óδ⌐  «íΩÑ¬Γ  úαáΣ¿τÑ߬«⌐  Σ¿úπαδ  Arc  ó
¬áτÑßΓóÑ Γ¿»á,  »«α«ªñÑ¡¡«ú« Circle.  ÄíΩÑ¬Γ Arc ¼«ªÑΓ íδΓ∞ ¡á»¿ßá¡
¡á¼¡«ú« »«ºñ¡ÑÑ ¬«¼»¿½∩µ¿¿ FIGURES.PAS, ¬α«¼Ñ Γ«ú«, «íΩÑ¬Γ Γ¿»á Arc
¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ ¡áß½ÑñπѼδÑ ¼ÑΓ«ñδ,  »«ñ«í¡« MoveTo ¿½¿ Drag íѺ
߻ѵ¿á½∞¡«ú« αáßß¼«ΓαÑ¡¿∩.  Å«ºñ¡ÑÑ ßó∩ºδóá¡¿Ñ ¿ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ
Arc  »«ºó«½∩εΓ ¼ÑΓ«ñπ Drag óδºδóáΓ∞ ¼ÑΓ«ñδ Arc.Show ¿ Arc.Hide ñáªÑ
Ñß½¿ φΓ¿ ¼ÑΓ«ñδ ¡á»¿ßá¡δ ¡á¼¡«ú« »«ºñ¡ÑÑ ¬«¼»¿½∩µ¿¿ Point.Drag.


                æΓáΓ¿τÑ߬¿Ñ ¿½¿ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ.

     é «íΘѼ ¡πª¡« ßñѽáΓ∞ óßÑ  ¼ÑΓ«ñδ  ó¿αΓπá½∞¡δ¼¿.   êß»«½∞ºπ⌐ΓÑ
ßΓáΓ¿τÑ߬¿Ñ ¼ÑΓ«ñδ   Γ«½∞¬«,  ¬«úñá ¡πª¡« «»Γ¿¼¿º¿α«óáΓ∞ ߬«α«ßΓ∞ ¿
φΣΣÑ¬Γ¿ó¡«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ »á¼∩Γ¿.   諼»α«¼¿ßc,  ¬á¬  éδ  ó¿ñ¿ΓÑ,
ºá¬½ετáÑΓß∩ ó αáßΦ¿α∩Ѽ«ßΓ¿.
     ÅαÑñ»«½«ª¿¼, τΓ«  éδ  «íΩ∩󿽿  «íΩÑ¬Γ  ß  ¿¼Ñ¡Ñ¼ Ancestor,  á
ó¡πΓα¿ «íΩѬΓá Ancestor éδ «íΩ∩󿽿  ¼ÑΓ«ñ  ß  ¿¼Ñ¡Ñ¼  Action.  èá¬
«»αÑñѽ¿Γ∞  ¡πª¡«  ½¿  ñѽáΓ∞  Action  ó¿αΓπá½∞¡δ¼ ¿½¿ ßΓáΓ¿τÑ߬¿¼?
çñÑß∞ ¿ß»«½∞ºπÑΓß∩ »αá󿽫 :  æñѽáѼ Action ó¿αΓπá½∞¡δ¼, Ñß½¿ ÑßΓ∞
󫺼«ª¡«ßΓ∞,  τΓ«  ¡Ñ¬«Γ«αδÑ íπñπΘ¿Ñ »«Γ«¼¬¿ «íΩѬΓá Ancestor íπñπΓ
»ÑαѬαδóáΓ∞ Action ¿ éδ σ«Γ¿ΓÑ, τΓ«íδ íπñπΘ¿⌐ ¬«ñ íδ½ ñ«ßΓπ»¡δ¼ ñ½∩
Ancestor.
     ÆÑ»Ñα∞ »α¿¼Ñ¡¿¼ φΓ« »αá󿽫 ¬ úαáΣ¿τÑ߬¿¼ «íΩѬΓá¼, ¬«Γ«αδÑ éδ
ó¿ñѽ¿ ó φΓ«⌐ ú½áóÑ. é φΓ«¼ ß½πτáÑ Point - α«ñ¿Γѽ∞߬¿⌐ Γ¿» «íΩѬΓá
¿ éδ ñ«½ª¡δ αÑΦ¿Γ∞ ñѽáΓ∞ Ñú« ¼ÑΓ«ñδ ßΓáΓ¿τÑ߬¿¼¿ ¿½¿ ó¿αΓπá½∞¡δ¼¿.
Éáßß¼«Γα¿¼ ¼ÑΓ«ñδ Point :  Show,  Hide ¿ MoveTo.   Æᬠ ¬á¬  ¬áªñδ⌐
αẽ¿τ¡δ⌐ Γ¿»   Σ¿úπαδ ¿¼ÑÑΓ ßó«¿ ßαÑñßΓóá ¿º«íαáªÑ¡¿∩ ¿ πñá½Ñ¡¿∩ ß
φ¬αá¡á, Γ«  Show  ¿  Hide  íπñπΓ  »ÑαѬαδóáΓ∞ß∩  ½εí«⌐  »«α«ªñÑ¡¡«⌐
Σ¿úπα«⌐, «ñ¡á¬«  »ÑαѼÑΘÑ¡¿Ñ úαáΣ¿τÑ߬«⌐ Σ¿úπαδ, »«-ó¿ñ¿¼«¼π, íπñÑΓ
«ñ¿¡á¬«óδ¼ ñ½∩ óßÑσ »«Γ«¼¬«ó:  ó맮ó Hide,  τΓ«íδ  πñ὿Γ∞  Σ¿úπαπ,
¿º¼Ñ¡Ñ¡¿Ñ ¬««αñ¿¡áΓ   X  ¿  Y,  á ºáΓѼ ó맮ó Show,  τΓ«íδ »«óΓ«α¡«
óδóÑßΓ¿ Σ¿úπαπ ¡á φ¬αá¡ ó ¡«ó«⌐ »«º¿µ¿¿.   Æᬠ ¬á¬  φëà  á½ú«α¿Γ¼
MoveTo ¼«ª¡«   »α¿¼Ñ¡¿Γ∞ ¬ ½εí«⌐ Σ¿úπαÑ ß «ñ¡«⌐ Γ«τ¬«⌐ «ΓßτÑΓá ò,Y,
Γ« αáºπ¼¡« ßñѽáΓ∞ Point.MoveTo ßΓáΓ¿τÑ߬¿¼ ¼ÑΓ«ñ«¼,  ¬«Γ«αδ⌐ íπñÑΓ
¡áß½Ññ«óáΓ∞ß∩ óßѼ¿    »«Γ«¼¬á¼¿  Point,   ¡«  Show  ¿  Hide  íπñπΓ
»ÑαѬαδóáΓ∞ß∩ ¿ ñ«½ª¡δ íδΓ∞ ó¿αΓπá½∞¡δ¼¿ Γá¬,   τΓ«íδ  Point.MoveTo
¼«ú½á óδºóáΓ∞ ¼ÑΓ«ñδ Show ¿ Hide, ¿¼ÑεΘ¿Ñß∩ π »«Γ«¼¬«ó Point.
     æ ñαπú«⌐ ßΓ«α«¡δ, ºá»«¼¡¿¼, τΓ« Ñß½¿ «íΩÑ¬Γ ¿¼ÑÑΓ ¬á¬¿Ñ-¡¿íπñ∞
ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ,    Γ«  ó  ßÑú¼Ñ¡ΓÑ ñá¡¡δσ íπñÑΓ ß«ºñá¡á Γáí½¿µá
ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ñ½∩  φΓ«ú«  Γ¿»á  «íΩѬΓá  ¿  ¬áªñδ⌐  φ¬ºÑ¼»½∩α
«íΩѬΓá íπñÑΓ     ¿¼ÑΓ∞   ßó∩º∞  ß  φΓ«⌐  Γáí½¿µÑ⌐.   èáªñδ⌐  ó맮ó
ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá   ñ«½ªÑ¡   »ÑαÑñáóáΓ∞ß∩   Γáí½¿µÑ   ó¿αΓπá½∞¡δσ
¼ÑΓ«ñ«ó, ó      Γ«   óαѼ∩   ¬á¬   ßΓáΓ¿τÑ߬¿Ñ   ¼ÑΓ«ñδ  óδºδóáεΓß∩
¡Ñ»«ßαÑñßΓóÑ¡¡«. ò«Γ∩    »α«ß¼«Γα  Γáí½¿µδ  ó¿αΓπá½∞¡δσ  ¼ÑΓ«ñ«ó  ¿
«ßπΘÑßΓó½∩ÑΓß∩ «τÑ¡∞     φΣΣÑ¬Γ¿ó¡«,    ó맮ó  ßΓáΓ¿τÑ߬«ú«  ¼ÑΓ«ñá
»α«¿ßσ«ñ¿Γ ¡Ñ߬«½∞¬« íδßΓαÑÑ, τѼ ó맮ó ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá. Ç Ñß½¿
ó éáΦѼ   «íΩѬΓÑ  ¡ÑΓ  ó¿αΓπá½∞¡δσ  ¼ÑΓ«ñ«ó,  Γ« ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ
Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ¡ÑΓ - ¿ τΓ« í«½ÑÑ ó᪡« - ¡ÑΓ  ßó∩º¿  ß
φΓ«⌐ Γáí½¿µÑ⌐ ó ¬áªñ«¼ φ¬ºÑ¼»½∩αÑ «íΩѬΓá.
     ä«»«½¡¿Γѽ∞¡á∩ ߬«α«ßΓ∞ ¿ φΣΣÑ¬Γ¿ó¡«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ »á¼∩Γ¿ π
ßΓáΓ¿τÑ߬¿σ ¼ÑΓ«ñ«ó ñ«½ª¡á  ß«»«ßΓáó½∩Γ∞ß∩  «Γ¡«ß¿Γѽ∞¡«  ú¿í¬«ßΓ¿,
¬«Γ«απε »αÑñ«ßΓáó½∩εΓ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ:  αáßΦ¿αÑ¡¿Ñ ßπΘÑßΓóπεΘÑú«
¬«ñá »«ß½Ñ ¬«¼»¿½∩µ¿¿ φΓ«ú« ¬«ñá.  Å«¼¡¿ΓÑ, τΓ« »«½∞º«óáΓѽ¿ éáΦÑú«
Γ¿»á «íΩÑ¬Γ«ó   ¼«úπΓ  ñπ¼áΓ∞  « Γᬿσ ß»«ß«íáσ ¿ß»«½∞º«óá¡¿∩ φΓ«ú«
«íΩѬΓá, « ¬«Γ«αδσ éδ ¼«ªÑΓÑ ¡¿¬«úñá ¿ ¡Ñ »αÑñ»«½áúáΓ∞, τΓ« ó ¬«¡µÑ
¬«¡µ«ó «τÑ¡∞ ó᪡«.


                       信ἿτÑ߬¿Ñ «íΩѬΓδ.

     éßÑ »α¿¼Ñαδ  «íΩÑ¬Γ«ó,   αáßß¼«ΓαÑ¡¡δÑ  ñ«  ß¿σ  »«α,    ¿¼Ñ½¿
ßΓáΓ¿τÑ߬¿Ñ φ¬ºÑ¼»½∩αδ  Γ¿»«ó «íΩÑ¬Γ«ó,  ¬«Γ«αδÑ í뫨 »ÑαÑτ¿ß½Ñ¡δ ó
«íΩ∩ó½Ñ¡¿∩σ var ¿ αẼÑΘÑ¡δ ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ ¿ ó ßΓѬÑ.

     var
        ACircle : Circle;

     Åα¿¼Ñτá¡¿Ñ: êß»«½∞º«óá¡¿Ñ   ß½«óá   "ßΓáΓ¿τÑ߬¿⌐"  ¡Ñ  ßó∩ºá¡«
¡¿¬á¬¿¼ «íαẫ¼ ß« ßΓáΓ¿τÑ߬¿¼¿ ¼ÑΓ«ñἿ.

     ÄíΩѬΓδ ¼«úπΓ íδΓ∞ αẼÑΘÑ¡δ ó ¬πτÑ ¿ ¼«ª¡« ¿¼¿ ¼á¡¿»π½¿α«óáΓ∞
ß  »«¼«Θ∞ε  π¬áºáΓѽÑ⌐,  φΓ« ªÑ ¿¼ÑÑΓ ¼ÑßΓ« ¿ ñ½∩ ΓÑß¡« ßó∩ºá¡¡δσ ß
¡¿¼¿ Γ¿»«ó ºá»¿ßÑ⌐,  ¬«Γ«αδÑ óßÑúñá í뫨 ó  Åá߬á½Ñ.  Turbo  Pascal
ó¬½ετáÑΓ  ¡Ñ߬«½∞¬« ¼«Θ¡δσ αáßΦ¿αÑ¡¿⌐ ñ½∩ «íÑß»ÑτÑ¡¿∩ í«½ÑÑ ½Ñú¬«ú«
¿ φΣΣÑ¬Γ¿ó¡«ú« αẼÑΘÑ¡¿∩ ¿ «ßó«í«ªñÑ¡¿∩  «íΩÑ¬Γ«ó.
     ÄíΩѬΓδ ¼«ª¡«  αẼÑßΓ¿Γ∞ ¬á¬ π¬áºáΓѽ∞,  ¡á ¬«Γ«αδ⌐ ßßδ½áÑΓß∩
»α«µÑñπαá New:

     var
        PCircle := ^Circle;
        New(PCircle);

     ÆᬠªÑ ¬á¬ ¿ ñ½∩ Γ¿»«ó ºá»¿ßÑ⌐,  New óδñѽ∩ÑΓ «íΩѼ  »á¼∩Γ¿  ó
¬πτÑ ñ½∩ αẼÑΘÑ¡¿∩ φ¬ºÑ¼»½∩αá íẫó«ú« Γ¿»á π¬áºáΓѽ∩ ¿ ó«ºóαáΘáÑΓ
áñαÑß óδñѽѡ¡«ú« «íΩÑ¼á  ó  π¬áºáΓѽÑ.
     àß½¿ ñ¿¡á¼¿τÑ߬¿⌐  «íΩÑ¬Γ ß«ñÑαª¿Γ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ,  Γ« Ñú«
¡πª¡« ºáΓѼ »α«¿¡¿µ¿á½¿º¿α«óáΓ∞ ß »«¼«Θ∞ε ó맮óá ¬«¡ßΓαá¬Γ«αá »ÑαÑñ
½εí묨 ó맮óἿ ¼ÑΓ«ñ«ó φΓ«ú« «íΩѬΓá:

     PCircle^.Init(600,100,30);

     é맮óδ ¼ÑΓ«ñ«ó  ºáΓѼ  ¼«úπΓ  «ßπΘÑßΓó½∩Γ∞ß∩ «íδτ¡δ¼ «íαẫ¼ ß
»«¼«Θ∞ε ¿¼Ñ¡¿  π¬áºáΓѽ∩  ¿   ß¿¼ó«½á   ßß佬¿   ^(º¡á¬   óßΓáó¬¿),
¿ß»«½∞ºπѼδσ ó¼ÑßΓ«  ¿¼Ñ¡¿  φ¬ºÑ¼»½∩αá,   ¬«Γ«α«Ñ  »α¿¼Ñ¡∩½«ß∞ íδ ó
ó맮óÑ ßΓáΓ¿τÑ߬¿ αẼÑΘÑ¡¡«ú« «íΩѬΓá:

     OldXPosition := PCircle^.GetX;


             ÉẼÑΘÑ¡¿Ñ ¿ ¿¡¿µ¿á½¿ºáµ¿∩ ß »«¼«Θ∞ε New.

     Turbo Pascal αáßΦ¿α∩ÑΓ ß¿¡Γá¬ß¿ß New, τΓ«íδ ¿ß»«½∞º«óáΓ∞ í«½ÑÑ
¬«¼»á¬Γ¡δÑ ¿ πñ«í¡δÑ  ß»«ß«íδ  αáß»αÑñѽѡ¿∩  »á¼∩Γ¿  ñ½∩  «íΩѬΓá,
¡áσ«ñ∩ΘÑú«ß∩  ó  ¬πτÑ  ¿  ¿¡¿µ¿á½¿ºáµ¿¿  «íΩѬΓá  ß  »«¼«Θ∞ε  «ñ¡«⌐
«»Ñαᵿ¿.  New ¼«ªÑΓ ΓÑ»Ñα∞ óδºδóáΓ∞ß∩ ß »«¼«Θ∞ε ñóπσ »áαá¼ÑΓα«ó: ó
¬áτÑßΓóÑ  »Ñαó«ú«  »áαá¼ÑΓαá ¿ß»«½∞ºπÑΓß∩ ¿¼∩ π¬áºáΓѽ∩,  á óΓ«α«ú«
»áαá¼ÑΓαá - óδº«ó ¬«¡ßΓαá¬Γ«αá:

     New(PCircle, Init(600,100,30));

     è«úñá ñ½∩   New   ¿ß»«½∞ºπÑΓß∩  Γᬫ⌐  αáßΦ¿αÑ¡¡δ⌐  ß¿¡Γá¬ß¿ß,
¬«¡ßΓαá¬Γ«α Init  Σá¬Γ¿τÑ߬¿  óδ»«½¡∩ÑΓ ñ¿¡á¼¿τÑ߬«Ñ αáß»αÑñѽѡ¿Ñ,
¿ß»«½∞ºπ∩ ߻ѵ¿á½∞¡δ⌐ ¬«ñ óó«ñá,  úÑ¡Ñα¿απѼδ⌐ ¬á¬ τáßΓ∞ ¬«¼»¿½∩µ¿¿
¬«¡ßΓαá¬Γ«αá.  ê¼∩ φ¬ºÑ¼»½∩αá ¡Ñ ¼«ªÑΓ »αÑñΦÑßΓó«óáΓ∞ Init, Γᬠ¬á¬
ó« óαѼ∩ ó맮óá New φ¬ºÑ¼»½∩α, ¿¡¿µ¿á½¿º¿απѼδ⌐ ß »«¼«Θ∞ε Init, ÑΘÑ
¡Ñ  ßπΘÑßΓóπÑΓ.  諼»¿½∩Γ«α  ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ  »αáó¿½∞¡δ⌐ ¼ÑΓ«ñ Init,
¬«Γ«αδ⌐  ¡πª¡«  óδºδóáΓ∞,  ß  »«¼«Θ∞ε  π¬áºáΓѽ∩,  »ÑαÑñáóáѼ«ú«  ó
¬áτÑßΓóÑ »Ñαó«ú« »áαá¼ÑΓαá.
     New ΓᬠªÑ íδ½á αáßΦ¿αÑ¡á,  τΓ«íδ «¡á ñÑ⌐ßΓó«óá½á ¬á¬ Σπ¡¬µ¿∩,
ó«ºóαáΘáεΘá∩   º¡áτÑ¡¿Ñ   π¬áºáΓѽ∩.  Åáαá¼ÑΓα,  »ÑαÑñáóáѼδ⌐  New,
∩ó½∩ÑΓß∩ Γ¿»«¼ π¬áºáΓѽ∩ ¡á «íΩѬΓ, á ¡Ñ »ÑαѼѡ¡«⌐ π¬áºáΓѽ∩.

     type
        ArcPtr = ^Arc;
     var
        PArc : ArcPtr;
        PArc := New(ArcPtr);

     çá¼ÑΓ¿¼, τΓ«   αáßΦ¿αÑ¡¿Ñ   New   ñ«   Σπ¡¬µ¿«¡á½∞¡«⌐    Σ«α¼δ
»α¿¼Ñ¡∩ÑΓß∩ ¬« óßѼ Γ¿»á¼ ñá¡¡δσ, á ¡Ñ Γ«½∞¬« ¬ Γ¿»á¼ «íΩÑ¬Γ«ó.

     type
        CharPtr = ^Char; {Char - φΓ« ¡Ñ Γ¿» «íΩѬΓá ...}
     var
        PChar : CharPtr;
        PChar := New(CharPtr);

     öπ¡¬µ¿«¡á½∞¡á∩ Σ«α¼á  New,   Γᬠ ªÑ  ¬á¬ ¿ »α«µÑñπα¡á∩ Σ«α¼á,
¼«ªÑΓ »α¿¡¿¼áΓ∞  ¬«¡ßΓαá¬Γ«α  Γ¿»á  «íΩѬΓá  ó   ¬áτÑßΓóÑ   óΓ«α«ú«
»áαá¼ÑΓαá:

     PArc := New(ArcPtr, Init(600,100,25,0,90));

     é Turbo Pascal í佫 »áαώѽ∞¡« «»αÑñѽѡ« αáßΦ¿αÑ¡¿Ñ Dispose,
¬«Γ«α«Ñ «íΩ∩ß¡∩ÑΓß∩ ó ß½ÑñπεΘ¿σ αáºñѽáσ.

     Åα¿¼Ñτá¡¿Ñ: ì«óá∩  ßΓá¡ñáαΓ¡á∩  »α«µÑñπαá  Fail  »«¼«ªÑΓ   éá¼
«í¡áαπª¿Γ∞ «Φ¿í¬π   ó  ¬«¡ßΓαá¬Γ«αáσ.  æ¼.  αáºñѽ  "é«ßßΓá¡«ó½Ñ¡¿Ñ
«Φ¿í«¬ ¬«¡ßΓαá¬Γ«αá" ó ú½áóÑ 17.


                Äßó«í«ªñÑ¡¿Ñ ñ¿¡á¼¿τÑ߬¿σ «íΩÑ¬Γ«ó.

     ÆᬠªÑ  ¬á¬ ¿ Γαáñ¿µ¿«¡¡δÑ ºá»¿ß¿ Åá߬á½∩ «íΩѬΓδ, αẼÑΘÑ¡¡δÑ
ó ¬πτÑ,  ¼«úπΓ íδΓ∞ «ßó«í«ªñÑ¡δ ß »«¼«Θ∞ε Dispose,  ¬«úñá  «¡¿  πªÑ
í«½∞ΦÑ ¡Ñ ¡πª¡δ:

     Dispose(PCircle);

     ÆѼ ¡Ñ ¼Ñ¡ÑÑ ¿ºíáó½Ñ¡¿Ñ  «Γ  ¡Ñ¡πª¡«ú«  ñ¿¡á¼¿τÑ߬«ú«  «íΩѬΓá
¼«ªÑΓ ó¬½ετáΓ∞ ¡Ñ Γ«½∞¬«  «ßó«í«ªñÑ¡¿Ñ  Ñú«  »α«ßΓαá¡ßΓóá  ó  ¬πτÑ.
ÄíΩÑ¬Γ  ¼«ªÑΓ  ß«ñÑαªáΓ∞  π¬áºáΓѽ∞  ¡á  ñ¿¡á¼¿τÑ߬¿Ñ ßΓαπ¬Γπαδ ¿½¿
«íΩѬΓδ,   ¬«Γ«αδÑ   ¡Ñ«íσ«ñ¿¼«   «ßó«í«ñ¿Γ∞   ¿½¿   "«τ¿ßΓ¿Γ∞"   ó
«»αÑñѽѡ¡«¼   »«α∩ñ¬Ñ,   «ß«íÑ¡¡«   ¬«úñá   «¡¿  ó¬½ετáεΓ  ß½«ª¡δÑ
ñ¿¡á¼¿τÑ߬¿Ñ ßΓαπ¬Γπαδ ñá¡¡δσ.  Æ«,  τΓ« ¡πª¡«  ßñѽáΓ∞  ñ½∩  Γ«ú«,
τΓ«íδ  «τ¿ßΓ¿Γ∞  ñ¿¡á¼¿τÑ߬¿⌐ «íΩÑ¬Γ ó «»αÑñѽѡ¡«¼ »«α∩ñ¬Ñ,  ¡πª¡«
«íΩÑñ¿¡¿Γ∞ ó «ñ¿¡ ¼ÑΓ«ñ Γá¬,  τΓ«íδ «íΩÑ¬Γ ¼«ª¡« í佫  ¿ß¬½ετ¿Γ∞  ß
»«¼«Θ∞ε «ñ¡«ú« ó맮óá ¼ÑΓ«ñá:

     MyComplexObject.Done;

     îÑΓ«ñ Done ñ«½ªÑ¡ «íΩÑñ¿¡∩Γ∞ óßÑ ñÑΓ὿ ¿ß¬½ετÑ¡¡«ú« «íΩѬΓá ¿
óßÑ ßΓαπ¬Γπαδ ñá¡¡δσ ¿ «íΩѬΓδ, 󽫪ѡ¡δÑ ó ñá¡¡δ⌐ «íΩѬΓ.

     Åα¿¼Ñτá¡¿Ñ: êñÑ¡Γ¿Σ¿¬áΓ«α  Done   ¿ß»«½∞ºπÑΓß∩   ñ½∩   ¼ÑΓ«ñ«ó
«τ¿ßΓ¬¿,   ¬«Γ«αδÑ  "ºá¬αδóáεΓ  ¼áúế¡"  »«ß½Ñ  Γ«ú«,  ¬á¬  «íΩѬΓ
ßΓá¡«ó¿Γß∩ ¡Ñ¡πª¡δ¼.

     ¥Γ« ºá¬«¡¡«    ¿   τáßΓ«   ¿ß»«½∞ºπÑΓß∩,    τΓ«íδ   «»αÑñѽ¿Γ∞
¼¡«ú«τ¿ß½Ñ¡¡δÑ ¼ÑΓ«ñδ «τ¿ßΓ¬¿ ñ½∩ ºáñá¡¡«ú« Γ¿»á «íΩѬΓá. 髺¼«ª¡«,
τΓ« ß½«ª¡δÑ «íΩѬΓδ ¡πª¡«  íπñÑΓ  «τ¿ΘáΓ∞  αẽ¿τ¡δ¼¿  ß»«ß«íἿ  ó
ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, ¬á¬ «¡¿ í뫨 αẼÑΘÑ¡δ ¿½¿ ¿ß»«½∞º«óá¡δ, ¿½¿ ó
ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, ó ¬á¬«¼ αѪ¿¼Ñ ¿½¿ ß«ßΓ«∩¡¿¿ íδ½ «íΩѬΓ, ¬«úñá
«¡ πñá½∩ÑΓß∩.


                           äÑßΓαá¬Γ«αδ.

     Turbo Pascal  »αÑñ«ßΓáó½∩ÑΓ ß»Ñµ¿á½∞¡δ⌐ Γ¿» ¼ÑΓ«ñá, ¡áºδóáѼδ⌐
ñÑßΓαá¬Γ«α«¼, ñ½∩  «τ¿ßΓ¬¿  ¿  πñá½Ñ¡¿∩  ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽѡ¡δσ
«íΩÑ¬Γ«ó. äÑßΓαá¬Γ«α ¬«¼í¿¡¿απÑΓ Φáú «ßó«í«ªñÑ¡¿∩ »á¼∩Γ¿ ó  ¬πτÑ  ß
¡Ñ¬«Γ«α묨  ñαπú¿¼¿  ºáñáτἿ,  ¬«Γ«αδÑ ¡Ñ«íσ«ñ¿¼δ ñ½∩ ñá¡¡«ú« Γ¿»á
«íΩѬΓá.  ǡὫú¿τ¡« ñαπú¿¼ ¼ÑΓ«ñá¼ ñ½∩ «ñ¡«ú« Γ¿»á «íΩÑ¬Γ«ó, ¼«ª¡«
«»αÑñѽ¿Γ∞ ¡Ñ߬«½∞¬« ñÑßΓαá¬Γ«α«ó.
     äÑßΓαá¬Γ«α «»αÑñѽ∩ÑΓß∩  ó¼ÑßΓÑ  ß«  óßѼ¿  ñαπú¿¼¿   ¼ÑΓ«ñἿ
«íΩѬΓá ó «»αÑñѽѡ¿¿ Γ¿»á «íΩѬΓá:

     Point = object(Location)
        Visible : Boolean;
        Next : PointPtr;
        constructor Init(InitX, InitY : Integer);
        destructor Done; virtual;
        procedure Show; virtual;
        procedure Hide; virtual;
        function IsVisible : Boolean;
        procedure MoveTo(NewX, NewY : Integer);
        procedure Drag(DragBy : Integer); virtual;
     end;

     äÑßΓαá¬Γ«αδ ¼«ª¡«   ¡áß½Ññ«óáΓ∞   ¿   «¡¿   ¼«úπΓ   íδΓ∞   ¿½¿
ßΓáΓ¿τÑ߬¿¼¿, ¿½¿  ó¿αΓπá½∞¡δ¼¿.   Æᬠ ¬á¬  ñ½∩  αẽ¿τ¡δσ   Γ¿»«ó
«íΩÑ¬Γ«ó «íδτ¡« ΓαÑíπεΓß∩ αẽ¿τ¡δÑ ºáñáτ¿ «ßó«í«ªñÑ¡¿∩ »á¼∩Γ¿,  ¼δ
αѬ«¼Ñ¡ñπѼ, τΓ«íδ ñÑßΓαá¬Γ«αδ óßÑúñá í뫨 ó¿αΓπá½∞¡δ¼¿  Γá¬, τΓ«íδ
ó  ½εí«¼  ß½πτáÑ  óδ»«½¡∩½ß∩  íδ  ß««ΓóÑΓßΓóπεΘ¿⌐  ñ½∩ ñá¡¡«ú« Γ¿»á
«íΩѬΓá ñÑßΓαá¬Γ«α.
     çừ¼¡¿ΓÑ, τΓ«  ºáαѺÑαó¿α«óá¡¡«Ñ  ß½«ó«  destructor ¡πª¡« ñ½∩
½εí«ú« ¼ÑΓ«ñá «ßó«í«ªñÑ¡¿∩ »á¼∩Γ¿ ñáªÑ,  Ñß½¿  «»αÑñѽѡ¿Ñ  ñá¡¡«ú«
Γ¿»á «íΩѬΓá  ß«ñÑαª¿Γ  ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ.  äÑßΓαá¬Γ«αδ Σá¬Γ¿τÑ߬¿
ñÑ⌐ßΓóπεΓ Γ«½∞¬« ¡á ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽѡ¡δÑ «íΩѬΓδ. Åα¿ «τ¿ßΓ¬Ñ
ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽѡ¡«ú« «íΩѬΓá ñÑßΓαá¬Γ«α óδ»«½¡∩ÑΓ ß½ÑñπεΘÑÑ:
«¡  úáαá¡Γ¿απÑΓ,  τΓ«   óßÑúñá   íπñÑΓ   «ßó«í«ªñáΓ∞ß∩   »αáó¿½∞¡«Ñ
¬«½¿τÑßΓó« íá⌐Γ«ó ó ¬πτÑ.  ÆѼ ¡Ñ ¼Ñ¡ÑÑ ¡ÑΓ óαÑñá »α¿ ¿ß»«½∞º«óá¡¿¿
ñÑßΓαá¬Γ«α«ó ß« ßΓáΓ¿τÑ߬¿ αáß»αÑñѽѡ¡δ¼¿  «íΩѬΓἿ;  Σá¬Γ¿τÑ߬¿,
Ñß½¿  Γ¿»  «íΩѬΓá  ¡Ñ  ¿¼ÑÑΓ  ñÑßΓαá¬Γ«αá,  Γ«  «íΩѬΓδ φΓ«ú« Γ¿»á
½¿ΦáεΓß∩  »αÑ¿¼πΘÑßΓóá  ñ¿¡á¼¿τÑ߬«ú«  π»αáó½Ñ¡¿∩   »á¼∩Γ∞ε   Turbo
Pascal.
     äÑ⌐ßΓó¿Ñ ñÑßΓαá¬Γ«α«ó  ¡á¿í«½ÑÑ  »α«∩ó½∩ÑΓß∩  ¬«úñá  «τ¿ΘáεΓß∩
»«½¿¼«αΣ¡δÑ «íΩѬΓδ ¿ ¬«úñá «ßó«í«ªñáÑΓß∩ »á¼∩Γ∞,  ºá¡¿¼áѼá∩ φΓ¿¼¿
«íΩѬΓἿ ó ¬πτÑ.  Å«½¿¼«αΣ¡δ⌐ «íΩÑ¬Γ -  φΓ«  «íΩѬΓ,  ¬«Γ«αδ⌐  íδ½
¡áº¡áτÑ¡   α«ñ¿Γѽ∞߬«¼π   Γ¿»π  ¡á  «ß¡«óá¡¿¿  »αáó¿½  αáßΦ¿αÑ¡¡«⌐
ß«ó¼ÑßΓ¿¼«ßΓ¿ Γ¿»«ó Turbo Pascal. é »α¿¼ÑαÑ ß úαáΣ¿τÑ߬¿¼¿ Σ¿úπαἿ
φ¬ºÑ¼»½∩α  «íΩѬΓá Γ¿»á Circle,  »α¿ßó«Ñ¡¡δ⌐ »ÑαѼѡ¡«⌐ Γ¿»á Point,
∩ó½∩ÑΓß∩ »α¿¼Ñα«¼ »«½¿¼«αΣ¡«ú« «íΩѬΓá. ¥Γ¿ »αáó¿½á »α¿¼Ñ¡∩εΓß∩ Γá¬
ªÑ  ¿ ñ½∩ π¬áºáΓѽÑ⌐.  ô¬áºáΓѽ∞ ¡á Circle ¼«ª¡« ßó«í«ñ¡« »α¿ßó«¿Γ∞
π¬áºáΓÑ½ε ¡á Γ¿» Point ¿ ß«ñÑন¼«Ñ φΓ«ú« π¬áºáΓѽ∩  Γᬠ ªÑ  íπñÑΓ
»«½¿¼«αΣ¡δ¼ «íΩÑ¬Γ«¼.
     ÆÑନ¡ "»«½¿¼«αΣ¡δ⌐" ∩ó½∩ÑΓß∩  »«ñσ«ñ∩Θ¿¼  ñ½∩  φΓ«ú«  ß½πτá∩,
»«Γ«¼π τΓ« ¬«ñ,  ¿ß»«½∞ºπεΘ¿⌐ Γᬫ⌐ «íΩѬΓ, ¡Ñ º¡áÑΓ Γ«τ¡« ó« óαѼ∩
¬«¼»¿½∩µ¿¿ ¬á¬«⌐ Γ¿» «íΩѬΓá ¡áσ«ñ¿Γß∩ ó  ¬«¡µÑ  ßΓ᫬¿,   á  º¡áÑΓ
Γ«½∞¬« Γ«,   τΓ«  φëà «íΩÑ¬Γ íπñÑΓ «ñ¡¿¼ ¿º «íΩÑ¬Γ«ó,  »«α«ªñÑ¡¡δσ
ºáñá¡¡δ¼ Γ¿»«¼.
     ÄτÑó¿ñ¡«, τΓ«  αẼÑαδ  Γ¿»«ó  «íΩÑ¬Γ«ó  αẽ¿τáεΓß∩.  Å«φΓ«¼π
¬«úñá »α¿σ«ñ¿Γ óαѼ∩ «τ¿ΘáΓ∞  »«½¿¼«αΣ¡δ⌐  «íΩѬΓ,   αẼÑΘÑ¡¡δ⌐  ó
¬πτÑ, Γ«  󫺡¿¬áÑΓ  ó«»α«ß,  ¬á¬  Dispose  πº¡áÑΓ ß¬«½∞¬« íá⌐Γ«ó ó
¬πτÑ ¡πª¡« «ßó«í«ñ¿Γ∞?  é« óαѼ∩ ¬«¼»¿½∩µ¿¿ ¿º »«½¿¼«αΣ¡«ú« «íΩѬΓá
¡Ñ½∞º∩  »«½πτ¿Γ∞  ¡¿¬á¬«⌐ ¿¡Σ«α¼áµ¿¿ « αẼÑαÑ «íΩѬΓá.
     äÑßΓαá¬Γ«α αÑΦáÑΓ »α«í½Ñ¼π »«ßαÑñßΓó«¼ «íαáΘÑ¡¿∩ ¬  ¼ÑßΓπ, úñÑ
φΓá  ¿¡Σ«α¼áµ¿∩ σαá¡¿Γß∩:  ó »ÑαѼѡ¡δσ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó
ñá¡¡«ú« φ¬ºÑ¼»½∩αá.  é  ¬áªñ«⌐  Γáí½¿µÑ  ó¿αΓπá½∞¡δσ  ¼ÑΓ«ñ«ó  ÑßΓ∞
αẼÑα  ó  íá⌐Γáσ  Γ¿»á «íΩѬΓá,  ¬ ¬«Γ«α«¼π «Γ¡«ß¿Γß∩ φΓá Γáí½¿µá.
Æáí½¿µá ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ñ½∩ ½εí«ú« «íΩѬΓá ñ«ßΓπ»¡á  ß  »«¼«Θ∞ε
¡Ñ∩ó¡«ú« »áαá¼ÑΓαá Self, »ÑαÑñáóáѼ«ú« ¼ÑΓ«ñπ »α¿ ½εí«¼ Ñú« ó맮óÑ.
äÑßΓαá¬Γ«α - φΓ« »α«ßΓ« «ß«íδ⌐ Γ¿» ¼ÑΓ«ñá ¿ »α¿ ó맮óÑ  «¡ »«½πτáÑΓ
¬«»¿ε  Self  ó  ßΓѬÑ.  Å«φΓ«¼π  ó Γ« óαѼ∩,  ¬á¬ «íΩÑ¬Γ ¼«ªÑΓ íδΓ∞
»«½¿¼«αΣ¡δ¼  ó«  óαѼ∩  ¬«¼»¿½∩µ¿¿,  «¡  ¡¿¬«úñá  ¡Ñ   ¼«ªÑΓ   íδΓ∞
»«½¿¼«αΣ¡δ¼ ó« óαѼ∩ óδ»«½¡Ñ¡¿∩ í½áú«ñáα∩ »«ºñ¡Ñ¼π ßó∩ºδóá¡¿ε.
     ùΓ«íδ óδ»«½¡¿Γ∞ «ßó«í«ªñÑ¡¿Ñ »á¼∩Γ¿  »α¿  »«ºñ¡Ñ¼  ßó∩ºδóá¡¿¿,
ñÑßΓαá¬Γ«α ¡πª¡«  óδºóáΓ∞  ¬á¬  τáßΓ∞  αáßΦ¿αÑ¡¡«ú«  ß¿¡Γá¬ß¿ßá ñ½∩
»α«µÑñπαδ Dispose:

     Dispose(PPoint, Done);

     (é맮ó ñÑßΓαá¬Γ«αá ºá »αÑñѽἿ ó맮óá  Dispose  ¡Ñ  óδ»«½¡∩ÑΓ
áóΓ«¼áΓ¿τÑ߬«Ñ «ßó«í«ªñÑ¡¿Ñ).   é  »α¿óÑñÑ¡¡«¼  »α¿¼ÑαÑ  ñÑßΓαá¬Γ«α
«íΩѬΓá, «»αÑñѽѡ¡«ú« π¬áºáΓѽѼ PPoint,  óδ»«½¡∩ÑΓß∩ ¬á¬  «íδτ¡δ⌐
ó맮ó ¼ÑΓ«ñá.   ÆѼ  ¡Ñ ¼Ñ¡ÑÑ »α¿ óδ»«½¡Ñ¡¿¿ ñÑßΓαá¬Γ«α ¿ΘÑΓ αẼÑα
Γ¿»á φ¬ºÑ¼»½∩αá ó Γáí½¿µÑ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó  φΓ«ú«  φ¬ºÑ¼»½∩αá  ¿
»ÑαÑñáÑΓ φëà   αẼÑα   Dispose.    Dispose  ºáóÑαΦáÑΓ  óδ»«½¡Ñ¡¿Ñ
»«ßαÑñßΓó«¼ «ßó«í«ªñÑ¡¿∩  »αáó¿½∞¡«ú«  ¬«½¿τÑßΓóá  íá⌐Γ«ó  ó  ¬πτÑ,
»α¿¡áñ½ÑªáΘ¿σ αá¡ÑÑ PPoint^.  Äßó«í«ªñáѼ«Ñ ¬«½¿τÑßΓó« íá⌐Γ«ó íπñÑΓ
»αáó¿½∞¡δ¼,  Ñß½¿ PPoint π¬áºδóáÑΓ  ¡á  φ¬ºÑ¼»½∩α  Γ¿»á  Point  ¿½¿
φ¬ºÑ¼»½∩α  ½εí«ú« Γ¿»á,  »«α«ªñÑ¡¡«ú« Point,  ¡á»α¿¼Ñα,  Circle ¿½¿
Arc.
     çá¼ÑΓ¿¼, τΓ«  ¼ÑΓ«ñ  ñÑßΓαá¬Γ«αá  ßá¼  ¼«ªÑΓ íδΓ∞ »πßΓδ¼ ¿ óßÑ
αáó¡« óδ»«½¡∩Γ∞ ßó«ε Σπ¡¬µ¿ε:

     destructor AnObject.Done;
     begin
     end;

     Å«½Ñº¡πε αáí«Γπ ó φΓ«¼ ñÑßΓαá¬Γ«αÑ óδ»«½¡∩ÑΓ ¡Ñ Γѽ« ¼ÑΓ«ñá, á
φ»¿½«ú«óδ⌐ ¬«ñ,     úÑ¡Ñα¿απѼδ⌐    ¬«¼»¿½∩Γ«α«¼    ó    «ΓóÑΓ   ¡á
ºáαѺÑαó¿α«óá¡¡«Ñ ß½«ó«  destructor.   é  φΓ«¼  ñÑßΓαá¬Γ«α  »«ñ«íÑ¡
¼«ñπ½ε, ¬«Γ«αδ⌐  ¡Ñ  φ¬ß»«αΓ¿απÑΓ  ¡¿τÑú«,   ¡« óδ»«½¡∩ÑΓ ¡Ñ¬«Γ«απε
"¡Ñ∩ó¡πε" Σπ¡¬µ¿ε  »«ßαÑñßΓó«¼  óδ»«½¡Ñ¡¿∩  αáºñÑ½á   ¿¡¿µ¿á½¿ºáµ¿¿
»ÑαÑñ ºá»π߬«¼ »α«úαá¼¼δ. éßÑ ñÑ⌐ßΓó¿Ñ »α«¿ßσ«ñ¿Γ ¡Ñ∩ó¡«.


            Åα¿¼Ñα αáß»αÑñѽѡ¿∩ ñ¿¡á¼¿τÑ߬«ú« «íΩѬΓá.

     Å«ß½Ññ¡¿⌐ »α¿¼Ñα  »α«úαá¼¼δ ñáÑΓ ¡Ñ¬«Γ«αδ⌐ »αá¬Γ¿τÑ߬¿⌐ «»δΓ ó
¿ß»«½∞º«óá¡¿¿ «íΩÑ¬Γ«ó,  αẼÑΘáѼδσ ó ¬πτÑ,  ó¬½ετá∩ ¿ß»«½∞º«óá¡¿Ñ
ñÑßΓαá¬Γ«α«ó ñ½∩ «ßó«í«ªñÑ¡¿∩ «íΩÑ¬Γ«ó.  Åα«úαá¼¼á »«¬áºδóáÑΓ ¬á¬ ó
¬πτÑ ¼«ªÑΓ  íδΓ∞ ß«ºñá¡ ßó∩ºá¡¡δ⌐ ß»¿ß«¬ úαáΣ¿τÑ߬¿σ «íΩÑ¬Γ«ó ¿ ¬á¬
¼«ª¡«  «ßó«í«ªñáΓ∞   »á¼∩Γ∞   »«ßαÑñßΓó«¼   ¿ß»«½∞º«óá¡¿∩   ó맮ó«ó
ñÑßΓαá¬Γ«αá, ¬«úñá «íΩÑ¬Γ πªÑ ¡Ñ ¡πªÑ¡.
     Å«ßΓα«Ñ¡¿Ñ ßó∩ºá¡¡«ú«  ß»¿ß¬á  «íΩÑ¬Γ«ó ΓαÑíπÑΓ,  τΓ«íδ ¬áªñδ⌐
«íΩÑ¬Γ ß«ñÑαªá½ π¬áºáΓѽ∞ ¡á ß½ÑñπεΘ¿⌐ «íΩÑ¬Γ ó ß»¿ß¬Ñ.  Æ¿»  Point
¡Ñ ß«ñÑαª¿Γ   Γᬫú« π¬áºáΓѽ∩.  ìá¿í«½ÑÑ ½Ñú¬¿⌐ óδσ«ñ ¿º »«½«ªÑ¡¿∩
ß«ßΓ«¿Γ ó ñ«íáó½Ñ¡¿¿ π¬áºáΓѽ∩ ¬ Point,  φΓ« «íÑß»Ñτ¿óáÑΓ Γ«,   τΓ«
óßÑ Γ¿»δ, »«α«ªñÑ¡¡δÑ Point ΓᬠªÑ ¡áß½ÑñπεΓ φëà π¬áºáΓѽ∞. ÆѼ ¡Ñ
¼Ñ¡ÑÑ, ñ«íáó½Ñ¡¿Ñ π¬áºáΓѽ∩ ¬ Point ΓαÑíπÑΓ, τΓ«íδ íδ½ ¿ßσ«ñ¡δ⌐ ¬«ñ
Point, á       ¬á¬   π»«¼¿¡á½«ß∞   óδΦÑ,    «ñ¡«   ¿º   »αÑ¿¼πΘÑßΓó
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú« »α«úαá¼¼¿α«óá¡¿∩  ß«ßΓ«¿Γ  ó  󫺼«ª¡«ßΓ¿
αáßΦ¿αÑ¡¿∩ ßπΘÑßΓóπεΘ¿σ   «íΩÑ¬Γ«ó íѺ ¡Ñ«íσ«ñ¿¼«ßΓ¿ »ÑαѬ«¼»¿½∩µ¿¿
¿ßσ«ñ¡«ú« ¬«ñá.
     ÉÑΦÑ¡¿Ñ, ¬«Γ«α«Ñ ¡Ñ ΓαÑíπÑΓ ¿º¼Ñ¡Ñ¡¿∩ ó Point,  ºá¬½ετáÑΓß∩  ó
ß«ºñá¡¿¿ ¡«ó«ú« Γ¿»á «íΩѬΓá, ¡Ñ »«α«ªñáѼ«ú« Point. Æ¿» List - φΓ«
«τÑ¡∞ »α«ßΓ«⌐  «íΩѬΓ,  ¡áº¡áτÑ¡¿Ñ  ¬«Γ«α«ú«  ¡áσ«ñ¿Γß∩  ó  óÑαΦ¿¡Ñ
ß»¿ß¬á  «íΩÑ¬Γ«ó  Point.  Æᬠ ¬á¬  Point  ¡Ñ ß«ñÑαª¿Γ π¬áºáΓѽ∩ ¡á
ß½ÑñπεΘ¿⌐ «íΩÑ¬Γ ó ß»¿ß¬Ñ,  »α«ßΓ«⌐ Γ¿» ºá»¿ß¿ Node  óδ»«½¡∩ÑΓ  φΓπ
Σπ¡¬µ¿ε.  Node ÑΘÑ »α«ΘÑ, τѼ List, Γᬠ¬á¬ φΓ« ¡Ñ «íΩÑ¬Γ ¿ Node ¡Ñ
¿¼ÑÑΓ ¼ÑΓ«ñ«ó ¿ ¡Ñ ß«ñÑαª¿Γ ñá¡¡δÑ, ºá ¿ß¬½ετÑ¡¿Ñ¼ π¬áºáΓѽ∩ ¡á Γ¿»
Point ¿ π¬áºáΓѽ∩ ¡á ß½ÑñπεΘ¿⌐ πºÑ½ ó ß»¿ß¬Ñ.
     List ¿¼ÑÑΓ ¼ÑΓ«ñ,  ¬«Γ«αδ⌐ »«ºó«½∩ÑΓ ñ«íáó½∩Γ∞ ¡«óδÑ Σ¿úπαδ  ó
ßó∩ºá¡¡δ⌐ ß»¿ß«¬ ºá»¿ßÑ⌐ Node »«ßαÑñßΓó«¼ óßΓáó¬¿ ¡«ó«ú« φ¬ºÑ¼»½∩αá
Node ßαáºπ »«ß½Ñ ¡Ñú« ó ó¿ñÑ ß«ñÑন¼«ú« »«½Ñ⌐ π¬áºáΓѽÑ⌐ ¡á ºá»¿ß¿
Node ñá¡¡«ú« φ¬ºÑ¼»½∩αá.  îÑΓ«ñ Add ¿ß»«½∞ºπÑΓ ó ¬áτÑßΓóÑ »áαá¼ÑΓαá
π¬áºáΓѽ∞ ¡á «íΩÑ¬Γ Point,   á  ¡Ñ  ßá¼  «íΩÑ¬Γ  Point.   ü½áú«ñáα∩
αáßΦ¿αÑ¡¡«⌐ ß«ó¼ÑßΓ¿¼«ßΓ¿ Γ¿»«ó ó Turbo Pascal π¬áºáΓѽ¿  ¡á  ½εí«⌐
Γ¿»,  »«α«ªñÑ¡¡δ⌐ Point,  ΓᬠªÑ ¼«úπΓ »ÑαÑñáóáΓ∞ß∩ ó »áαá¼ÑΓα Item
¼ÑΓ«ñá List.Add.
     Åα«úαá¼¼á ListDemo «íΩ∩ó½∩ÑΓ ßΓáΓ¿τÑ߬πε »ÑαѼѡ¡πε AList Γ¿»á
List ¿  ß«ºñáÑΓ  ßó∩ºá¡¡δ⌐  ß»¿ß«¬  ß  ΓαѼ∩  πº½á¼¿.   èáªñδ⌐ πºÑ½
π¬áºδóáÑΓ ¡á «»αÑñѽѡ¡πε úαáΣ¿τÑ߬πε Σ¿úπαπ, ¬«Γ«αá∩ ¿½¿ ¿¼ÑÑΓ Γ¿»
Point, ¿½¿  ∩ó½∩ÑΓß∩  «ñ¡¿¼ ¿º »«Γ«¼¬«ó Point.  諽¿τÑßΓó« íá⌐Γ«ó ó
ßó«í«ñ¡«¼ »α«ßΓαá¡ßΓóÑ  ¬πτ¿  ß««íΘáÑΓß∩  »ÑαÑñ  ß«ºñ᡿Ѽ   ½εí«ú«
ñ¿¡á¼¿τÑ߬«ú«  «íΩѬΓá ¿ ºáΓѼ ÑΘÑ αẠ»«ß½Ñ Γ«ú«,  ¬á¬ óßÑ «íΩѬΓδ
íπñπΓ ß«ºñá¡δ.  é ºá¬½ετÑ¡¿Ñ,  óß∩ ßΓαπ¬Γπαá, ó¬½ετáεΘá∩ Γα¿ ºá»¿ß¿
Node ¿  Γα¿  «íΩѬΓá  Point «τ¿ΘáÑΓß∩ ¿ πñá½∩ÑΓß∩ ¿º ¬πτ¿ ß »«¼«Θ∞ε
Ññ¿¡ßΓóÑ¡¡«ú« ó맮óá ñÑßΓαá¬Γ«αá  ñ½∩  AList  ßΓáΓ¿τÑ߬«ú«  «íΩѬΓá
Γ¿»á List.

     É¿ßπ¡«¬ 1.2
        æσѼá ßΓαπ¬Γπα ñá¡¡δσ »α«úαá¼¼δ ListDemo.

              │

    滿߫¬    │      ôºÑ½           ôºÑ½             ôºÑ½
  ┌───────┐      ┌────┬────┐     ┌────┬────┐      ┌────┬────┐
  │       │   │  │    │    │     │    │    │      │    │    │
  │    O──┼────÷ │  O │  O─┼───÷ │  O │  O─┼────÷ │  O │  O─┼───┐
  │       │   │  │  │ │    │     │  │ │    │      │  │ │    │   │
  └───────┘      └──┼─┴────┘     └──┼─┴────┘      └──┼─┴────┘   │
              │     │               │                │       ───┴───
                    ∙               ∙                ∙        ─────
              │ ┌─────────────┐ ┌─────────────┐ ┌─────────────┐───
                │      X      │ │       X     │ │       X     │ ─
              │ ├─────────────┤ ├─────────────┤ ├─────────────┤
                │      Y      │ │       Y     │ │       Y     │
              │ ├─────────────┤ ├─────────────┤ ├─────────────┤
                │   Visible   │ │   Visible   │ │   Visible   │
              │ ├─────────────┤ ├─────────────┤ ├─────────────┤
                │             │ │             │ │             │
  æÑú¼Ñ¡Γ     │     "èπτá"
  ñá¡¡δσ          (ñ¿¡á¼¿τÑ߬¿Ñ
(ßΓáΓ¿τÑ߬¿Ñ  │    «íΩѬΓδ)
 «íΩѬΓδ)
              │



           Äßó«í«ªñÑ¡¿Ñ ß½«ª¡«⌐ ßΓαπ¬Γπαδ ñá¡¡δσ ó ¬πτÑ.

     List.Done ºáß½πª¿óáÑΓ    í«½ÑÑ    »«ñα«í¡«ú«     αáßß¼«ΓαÑ¡¿∩.
ê߬½ετÑ¡¿Ñ «íΩѬΓá  Γ¿»á  List ó¬½ετáÑΓ «ßó«í«ªñÑ¡¿Ñ ΓαÑσ αẽ¿τ¡δσ
Γ¿»«ó ßΓαπ¬Γπα:  »«½¿¼«αΣ¡δσ «íΩÑ¬Γ«ó úαáΣ¿τÑ߬¿σ Σ¿úπα  ó  ß»¿ß¬Ñ,
ºá»¿ßÑ⌐ Node,    ¬«Γ«αδÑ  ßó∩ºδóáεΓ  ß»¿ß«¬  ó¼ÑßΓÑ  ¿   Ñß½¿  List
αáß»«½«ªÑ¡ ó ¬πτÑ,  Γ« ÑΘÑ  ¿  «íΩÑ¬Γ  List,  ¬«Γ«αδ⌐  ¡áσ«ñ¿Γß∩  ó
óÑαΦ¿¡Ñ  ß»¿ß¬á.  àñ¿¡ßΓóÑ¡¡δ⌐  ó맮ó  ñÑßΓαá¬Γ«αá  AList »«α«ªñáÑΓ
µÑ½δ⌐ »α«µÑßß:

     AList.Done;

     è«ñ ñ½∩ ñÑßΓαá¬Γ«αá ºáß½πª¿óáÑΓ αáßß¼«ΓαÑ¡¿∩:

     destructor List.Done;
     var
        N : NodePtr;
     begin
        while Nodes <> Nil do
        begin
           N := Nodes;
           Dispose(N^.Item, Done);
           Nodes := N^.Next;
           Dispose(N);
        end;
     end;

     滿߫¬ «τ¿ΘáÑΓß∩,   ¡áτ¿¡á∩  ß  óÑαΦ¿¡δ  ß  »«¼«Θ∞ε "íδßΓα«ú«"
á½ú«α¿Γ¼á, ¼ÑΓáΣ«α¿τÑ߬¿ »«ñ«í¡«ú«  óΓ∩ú¿óá¡¿ε  íÑτÑó¬¿  ó«ºñπΦ¡«ú«
º¼Ñ∩.  äóá  π¬áºáΓѽ∩:  π¬áºáΓѽ∞  Nodes  ó¡πΓα¿  AList  ¿  αáí«τ¿⌐
π¬áºáΓѽ∞ N ¿º¼Ñ¡∩εΓ ßó«Ñ ß«ñÑন¼«Ñ,  ¬«úñá »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ  ß»¿ß¬á
πñá½∩ÑΓß∩.  é맮ó  Dispose  «ßó«í«ªñáÑΓ  »á¼∩Γ∞ ñ½∩ »Ñαó«ú« «íΩѬΓá
Point ó ß»¿ß¬Ñ (Item^); Γ«úñá Nodes »ÑαѼÑΘáÑΓß∩ ¬ ß½ÑñπεΘÑ⌐ ºá»¿ß¿
Node ó ß»¿ß¬Ñ ß »«¼«Θ∞ε «»ÑαáΓ«αá

     Nodes := N^.Next;

     æá¼á ºá»¿ß∞  Node  «ßó«í«ªñáÑΓß∩  ¿ »α«µÑßß »«óΓ«α∩ÑΓß∩ ñ« ΓÑσ
»«α, »«¬á ß»¿ß«¬ ¡Ñ ºá¬«¡τ¿Γß∩.
     é ñÑßΓαá¬Γ«αÑ Done ß½ÑñπÑΓ «íαáΓ¿Γ∞ «ß«í«Ñ ó¡¿¼á¡¿Ñ ¡á ß»«ß«í,
¬á¬¿¼ πñá½∩εΓß∩ ó ß»¿ß¬Ñ «íΩѬΓδ Point:

     Dispose(N^.Item, Done);

     çñÑß∞ N^.Item - »Ñαóδ⌐ «íΩÑ¬Γ  Point  ó  ß»¿ß¬Ñ  ¿  óδºδóáѼδ⌐
¼ÑΓ«ñ Done  »αÑñßΓáó½∩ÑΓ ß«í«⌐ ñÑßΓαá¬Γ«α φΓ«ú« «íΩѬΓá. çừ¼¡¿ΓÑ,
τΓ« Σá¬Γ¿τÑ߬¿⌐ Γ¿» N^.Item ¡Ñ «í∩ºáΓѽ∞¡« Γ¿» Point, «¡ ¼«ªÑΓ íδΓ∞
½εíδ¼  Γ¿»«¼,  »«α«ªñÑ¡¡δ¼  Point.  Äßó«í«ªñáѼδ⌐  «íΩÑ¬Γ  ∩ó½∩ÑΓß∩
»«½¿¼«αΣ¡δ¼ «íΩÑ¬Γ«¼ ¿ ¡Ñ½∞º∩ ßñѽáΓ∞ ¡¿¬á¬¿σ »αÑñ»«½«ªÑ¡¿⌐  «  Ñú«
ñÑ⌐ßΓó¿Γѽ∞¡«¼ αẼÑαÑ  ¿½¿  Γ«τ¡«¼  Γ¿»Ñ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿.  Åα¿
ó맮óÑ Dispose,  ¬«úñá Done  óδ»«½¡¿Γ  óßÑ  «»ÑαáΓ«αδ,  ¬«Γ«αδÑ  «¡
ß«ñÑনΓ,    "¡Ñ∩ó¡δ⌐"   φ»¿½«ú«óδ⌐   ¬«ñ   Done   ¡áσ«ñ¿Γ   αẼÑα
«ßó«í«ªñáѼ«ú« φ¬ºÑ¼»½∩αá «íΩѬΓá  ó  Γáí½¿µÑ  ó¿αΓπá½∞¡δσ  ¼ÑΓ«ñ«ó
ñá¡¡«ú«  φ¬ºÑ¼»½∩αá.  Done  »ÑαÑñáÑΓ  φëà αẼÑα Dispose,  ¬«Γ«αá∩
ºáΓѼ «ßó«í«ªñáÑΓ ó »á¼∩Γ¿ ¬πτ¿ Γ«τ¡«Ñ ¬«½¿τÑßΓó«  íá⌐Γ«ó,  ¬«Γ«αδÑ
ñÑ⌐ßΓó¿Γѽ∞¡« ºá¡¿¼á½ ñá¡¡δ⌐ »«½¿¼«αΣ¡δ⌐ «íΩѬΓ.
     çừ¼¡¿ΓÑ, τΓ« »«½¿¼«αΣ¡δÑ «íΩѬΓδ ñ«½ª¡δ «τ¿ΘáΓ∞ß∩  Γᬿ¼  ªÑ
ß»«ß«í«¼ »«ßαÑñßΓó«¼  ó맮óá  ñÑßΓαá¬Γ«αá,   »ÑαÑñáóáѼ«ú« Dispose,
Ñß½¿ ¡Ñ«íσ«ñ¿¼« ¡áñѪ¡« «ßó«í«ñ¿Γ∞ »á¼∩Γ∞ ó  ¬πτÑ  ß««ΓóÑΓßΓóπεΘÑú«
αẼÑαá.
     é »α¿óÑñÑ¡¡«¼ »α¿¼ÑαÑ »α«úαá¼¼δ AList «íΩ∩ó½∩ÑΓß∩  ßΓáΓ¿τÑ߬«⌐
»ÑαѼѡ¡«⌐ ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ. AList ¼«ú½á íδ ½Ñú¬« αáß»«½«ª¿Γ∞ ßÑí∩
ó ¬πτÑ ¿ ßßδ½áΓ∞ß∩ ¡á ¡ÑÑ ¼«ª¡« í佫 íδ ß  »«¼«Θ∞ε  π¬áºáΓѽ∩  Γ¿»á
ListPtr.   àß½¿  óÑαΦ¿¡á  ß»¿ß¬á  íδ½á  ñ¿¡á¼¿τÑ߬¿¼  «íΩÑ¬Γ«¼,  Γ«
πñá½Ñ¡¿Ñ ßΓαπ¬Γπαδ ¡πª¡« óδ»«½¡¿Γ∞ ß  »«¼«Θ∞ε  ó맮óá  ñÑßΓαá¬Γ«αá,
óδ»«½¡∩Ѽ«ú« ó¡πΓα¿ Dispose:

     var
        PList : ListPtr;
        ...
        Dispose(PList, Done);

     çñÑß∞ Dispose   óδºδóáÑΓ   ¼ÑΓ«ñ   ñÑßΓαá¬Γ«αá   Done,   τΓ«íδ
«ßó«í«ñ¿Γ∞ ßΓαπ¬Γπαπ ó ¬πτÑ. çáΓѼ, ¬«úñá Done ºáóÑαΦáÑΓß∩, Dispose
«ßó«í«ªñáÑΓ »á¼∩Γ∞,  ºá¡¿¼áѼπε ß«ñÑন¼δ¼  PList,  πñá½∩∩  óÑαΦ¿¡π
ß»¿ß¬á ¿º ¬πτ¿.
     LISTDEMO.PAS (¡á éáΦѼ ñ¿ß¬Ñ) ¿ß»«½∞ºπÑΓ  ¼«ñπ½∞  FIGURES.PAS,
«»¿ßá¡¡δ⌐  óδΦÑ.  Ä¡á αÑ὿ºπÑΓ Γ¿» Arc ¬á¬ »«Γ«¼«¬ Point,  ß«ºñáÑΓ
«íΩÑ¬Γ List, «»αÑñѽ∩ÑΓ Ñú« ó ¬áτÑßΓóÑ óÑαΦ¿¡δ ßó∩ºá¡¡«ú« ß»¿ß¬á ¿º
ΓαÑσ »«½¿¼«αΣ¡δσ «íΩÑ¬Γ«ó, ß«ó¼ÑßΓ¿¼δσ ß Point, á ºáΓѼ «ßó«í«ªñáÑΓ
óßε ñ¿¡á¼¿τÑ߬πε ßΓαπ¬Γπαπ ñá¡¡δσ ß  »«¼«Θ∞ε  Ññ¿¡ßΓóÑ¡¡«ú«  ó맮óá
ñÑßΓαá¬Γ«αá AList.Done.


                           èπñá ΓÑ»Ñα∞?

     èᬠ¿    ñ½∩    ½εí«ú«    á߻ѬΓá   »α«úαá¼¼¿α«óá¡¿∩   «ßó«¿Γ∞
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ ½πτΦÑ ¡Ñ τ¿Γá∩ »α«  ¡Ñú«,
á ºá¡¿¼á∩ß∞  ¿¼.   ÄΓ  í«½∞Φ¿¡ßΓóá  ½εñÑ⌐ »α¿ »Ñαó«¼ ¿σ «íαáΘÑ¡¿¿ ¬
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«¼π »α«úαá¼¼¿α«óá¡¿ε ¼«ª¡« πß½δΦáΓ∞ ó«ατá¡¿Ñ:
"î¡Ñ φΓ«  ¡Ñ ¡πª¡«".  ôñ«ó½ÑΓó«αÑ¡¿Ñ »α¿σ«ñ¿Γ »«ºªÑ,  ¬«úñá τѽ«óѬ
ß«ßαÑñ«Γáτ¿óáÑΓß∩ ¿   óß∩   ¬«¡µÑ»µ¿∩   ß«í¿αáÑΓß∩  ó¼ÑßΓÑ  ó  ó¿ñÑ
«»αÑñѽѡ¡«ú« ¼«¼Ñ¡Γá,  ¬«Γ«αδ⌐ ¼δ ¡áºδóáѼ »α«ºαÑ¡¿Ñ¼. ¥Γ« »«ñ«í¡«
Γ«¼π,  ¬á¬ ½¿µ« ªÑ¡Θ¿¡δ, »«∩ó½∩εΘÑÑß∩ ¿º τÑα¡¿½∞¡«ú« »∩Γ¡á É«αΦáσá,
¬«Γ«α«Ñ ó¡áτá½Ñ í佫 ߬αδΓ«,  ºáΓѼ ßαáºπ ªÑ ßΓá¡«ó¿Γß∩ «τÑó¿ñ¡δ¼ ¿
»«ß½Ñ φΓ«ú« éá¼ ßΓá¡«ó¿Γß∩ ½Ñú¬« ¿ ß»«¬«⌐¡«.
     ì´πτΦÑÑ, τΓ«      ¼«ª¡«      ßñѽáΓ∞       ñ½∩       »Ñαó«ú«
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«   »α«Ñ¬Γá  -  óº∩Γ∞  ¼«ñπ½∞  FIGURES.PAS,
(éδ ¿¼ÑÑΓÑ Ñú« ¡á ñ¿ß¬Ñ) ¿ αáßΦ¿α¿Γ∞ Ñú«.  Æ«τ¬¿, «¬απª¡«ßΓ¿ ¿ ñπú¿
¡¿¬«¿¼   «íαẫ¼   ¡Ñ   ñ«ßΓáΓ«τ¡δ.  櫺ñá⌐ΓÑ  «íΩѬΓδ  ñ½∩  ½¿¡¿⌐,
»α∩¼«πú«½∞¡¿¬«ó ¿  ¬óáñαáΓ«ó.  è«úñá  éδ  »«τπóßΓóπÑΓÑ  ßÑí∩  í«½ÑÑ
τÑßΓ«½εí¿óδ¼,   ß«ºñá⌐ΓÑ  «íΩÑ¬Γ  "¬απú«óá∩  ñ¿áúαá¼¼á",  ¿ß»«½∞ºπ∩
ßó∩ºá¡¡δ⌐ ß»¿ß«¬ ¿¡ñ¿ó¿ñπá½∞¡δσ Σ¿úπα, »αÑñßΓáó½∩εΘ¿σ ß«í«⌐ ßÑ¬Γ«αá
¬απúá.
     ìá¿í«½ÑÑ »«ñσ«ñ∩Θ¿¼ ß»«ß«í«¼ αÑΦÑ¡¿∩  ñá¡¡«⌐  ºáñáτ¿  ∩ó½∩ÑΓß∩
αÑ὿ºáµ¿∩   «íΩÑ¬Γ«ó  ß  «Γ¡«ß¿Γѽ∞¡δ¼¿  »«º¿µ¿∩¼¿.  ÄΓ¡«ß¿Γѽ∞¡á∩
»«º¿µ¿∩ - ß¼ÑΘÑ¡¿Ñ «Γ ¡Ñ¬«Γ«α«⌐  íẫó«⌐  Γ«τ¬¿,  óδαáªÑ¡¡«Ñ  óó¿ñÑ
»«½«ª¿Γѽ∞¡«⌐ ¿½¿  «Γα¿µáΓѽ∞¡«⌐  αạ«ßΓ¿.  Æ«τ¬á ß «Γ¡«ß¿Γѽ∞¡δ¼¿
¬««αñ¿¡áΓἿ -17,42 ¡áσ«ñ¿Γß∩ ¡á 17 »¿¬ßѽ«ó ß½Ñóá «Γ íẫó«⌐ Γ«τ¬¿
¿  ¡á  42  »¿¬ßÑ½á  ¡¿ªÑ  «Γ  íẫó«⌐ Γ«τ¬¿.  ÄΓ¡«ß¿Γѽ∞¡δÑ »«º¿µ¿¿
¡Ñ«íσ«ñ¿¼δ,  τΓ«íδ φΣΣÑ¬Γ¿ó¡« ß¬«¼í¿¡¿α«óáΓ∞ Σ¿úπαδ ó «ñ¡π  í«½∞Φπε
Σ¿úπαπ,  Γᬠ ¬á¬  Σ¿úπαδ,  ß«ßΓ«∩Θ¿Ñ ¿º ¡Ñ߬«½∞¬¿σ Σ¿úπα,  ¡¿¬«úñá
¡Ñ½∞º∩  ßó∩ºáΓ∞  ó¼ÑßΓÑ  ó  ½εí«⌐  Γ«τ¬Ñ  «ΓßτÑΓá   Σ¿úπαδ.   ïπτΦÑ
ñ«»«½¡¿Γѽ∞¡«  ¬  Γ«τ¬Ñ «ΓßτÑΓá X,Y «»αÑñѽ¿Γ∞ »«½Ñ RX ¿ RY,  Γ«úñá
«¬«¡τáΓѽ∞¡á∩ »«º¿µ¿∩ «íΩѬΓá ¡á φ¬αá¡Ñ  íπñÑΓ  αáó¡á  ßπ¼¼Ñ  Γ«τѬ
«ΓßτÑΓá ¿ «Γ¡«ß¿Γѽ∞¡δσ ¬««αñ¿¡áΓ.
     Å«ß½Ñ Γ«ú«,    ¬á¬   éδ   "»α«ºαѽ¿",    ¡áτ¡¿ΓÑ    »«ßΓα«Ñ¡¿Ñ
«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δσ »«¡∩Γ¿⌐  »α¿ »α«úαá¼¼¿α«óá¡¿¿ ¬áªñδ⌐ ñÑ¡∞.
髺∞¼¿ΓÑ ¡Ñ߬«½∞¬« ßπΘÑßΓóπεΘ¿σ  πΓ¿½¿Γ,   ¬«Γ«αδÑ  éδ  ¿ß»«½∞ºπÑΓÑ
¬áªñδ⌐ ñÑ¡∞  ¿  «íñπ¼á⌐ΓÑ  ¿σ  ó ΓÑନ¡áσ «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«
»α«úαá¼¼¿α«óá¡¿∩. çáΓѼ »«ß¼«Γα¿ΓÑ ¡á éáΦ¿ íÑß»«α∩ñ«τ¡δÑ í¿í½¿«ΓѬ¿
»α«µÑñπα ¿  »«ßΓáαá⌐ΓÑß∞  πó¿ñÑΓ∞  ó ¡¿σ «íΩѬΓδ - Γ«úñá »ÑαÑ»¿Φ¿ΓÑ
»α«µÑñπαδ ó «íΩÑ¬Γ¡«⌐ Σ«α¼Ñ. éδ «í¡áαπª¿ΓÑ, τΓ« í¿í½¿«ΓѬ¿ «íΩÑ¬Γ«ó
½ÑúτÑ ¿ß»«½∞º«óáΓ∞  ó  íπñπΘ¿σ  »α«Ñ¬Γáσ.   ÄτÑ¡∞ ¡Ñ¼¡«ú« ¿º éáΦÑú«
¡áτá½∞¡«ú« ó¬½áñá ó »α«úαá¼¼¿α«óá¡¿Ñ  »α«»áñÑΓ  ºα∩.  ô  éáß  αÑñ¬«
íπñÑΓ  󫺡¿¬áΓ∞  ¡Ñ«íσ«ñ¿¼«ßΓ∞  »ÑαÑ»¿ßáΓ∞  «íΩѬΓ.  àß½¿ «¡ íπñÑΓ
ß½πª¿Γ∞,  ¬á¬ «¡ ÑßΓ∞,  Γ« ¿ß»«½∞ºπ⌐ΓÑ Ñú«.  àß½¿ π «íΩѬΓá  τΓ«-Γ«
«ΓßπΓßΓóπÑΓ,  Γ« αáßΦ¿α∞ΓÑ Ñú«.  ì« Ñß½¿ «íΩÑ¬Γ αáí«ΓáÑΓ σ«α«Φ«, Γ«
¡ÑΓ »α¿τ¿¡ óδíαáßδóáΓ∞ τΓ«-½¿í« ¿º ¡Ñú«.


                            çᬽετÑ¡¿Ñ.

     ÄíΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ - φΓ«  »α∩¼«⌐  «ΓóÑΓ
¡á ß½«ª¡«ßΓ∞  ß«óαѼѡ¡δσ  »α¿¬½áñ¡δσ  ºáñáτ,   ¿σ  ß½«ª¡«ßΓ∞ τáßΓ«
ºáßΓáó½∩ÑΓ ¼¡«ú¿σ  »α«úαá¼¼¿ßΓ«ó  ó߬¿ñδóáΓ∞   α㪨   ó   «Γτá∩¡¿¿.
ìáß½Ññ«óá¡¿Ñ ¿  ¿¡¬á»ßπ½∩µ¿∩  ∩ó½∩εΓß∩ «τÑ¡∞ φΣΣÑ¬Γ¿ó¡δ¼¿ ß»«ß«íἿ
ñ½∩ π»αáó½Ñ¡¿∩ ß½«ª¡«ßΓ∞ε.  (àßΓ∞ αạ¿µá  ¼Ñªñπ  ñÑß∩Γ∞ε  Γδß∩τἿ
¡áßѬ«¼δσ, ¬½áßß¿Σ¿µ¿α«óá¡¡δσ  ó  Γá¬ß«¡«¼¿τÑ߬«⌐  ßσÑ¼Ñ  ¿ ñÑß∩Γ∞ε
Γδß∩τἿ ¡áßѬ«¼δσ,  ªπªªáΘ¿σ «¬«½« éáΦ¿σ πΦÑ⌐). é í«½∞ΦÑ⌐ ßΓѻѡ¿,
τѼ ßΓαπ¬Γπα¡«Ñ      »α«úαá¼¼¿α«óá¡¿Ñ      «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«Ñ
»α«úαá¼¼¿α«óá¡¿Ñ «íπß½áó½¿óáÑΓ  αᵿ«¡á½∞¡πε  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  ó
»α«úαá¼¼¡δσ ßΓαπ¬Γπαáσ,     τΓ«   »«ñ«í¡«   Γá¬ß«¡«¼¿τÑ߬«⌐   ßσѼÑ
«íπß½áó½¿óáÑΓ Γá¬πε   »«ß½Ññ«óáΓѽ∞¡«ßΓ∞,    ¡Ñ   ¡á½áúá∩   ¡¿¬á¬¿σ
«úαá¡¿τÑ¡¿⌐.
     ä«íáó¿¼ ¬   φΓ«¼π   «íÑΘá¡¿Ñ   αáßΦ¿α∩Ѽ«ßΓ¿    ¿    »«óΓ«α¡«⌐
¿ß»«½∞ºπѼ«ßΓ¿ ßπΘÑßΓóπεΘÑú« ¬«ñá, Γ«úñá óßÑ φΓ« ¡áτ¿¡áÑΓ óδú½∩ñÑΓ∞
ß½¿Φ¬«¼ σ«α«Φ« ¿ 󫺡¿¬áεΓ ß«¼¡Ñ¡¿∩, »αáóñá ½¿ φΓ«? éδ ñπ¼áÑΓÑ, τΓ«
φΓ« ¡Ñ󫺼«ª¡«?
     ìÑΓ, φΓ« Turbo Pascal. ìÑΓ ¡¿τÑú« ¡Ñ󫺼«ª¡«ú«.