For Beginners & Professional Hackers/cd.iso/docum/pascal.doc/pas_2-2.doc

Text File | 1989-11-26 | 120.2 KB | 2,967 lines

                          âïÇéÇ 3

              Åα«úαá¼¼¿α«óá¡¿Ñ ¡á Æπαí«-Åá߬á½Ñ

     ƒºδ¬ »α«úαá¼¼¿α«óá¡¿∩ Åá߬á½∞ íδ½ αáºαáí«Γá¡  쿬«½áß«¼
é¿αΓ«¼  ó  ¡áτá½Ñ  70-σ ú«ñ«ó ñ½∩ «íπτÑ¡¿∩ »α«úαá¼¼¿α«óá¡¿ε.
Å«φΓ«¼π «¡ ¡á¿í«½ÑÑ πñ«íÑ¡ ¬á¬ »Ñαóδ⌐ ¿ºπτáѼδ⌐  ∩ºδ¬  »α«ú-
αá¼¼¿α«óá¡¿∩.  àß½¿ π óáß ÑßΓ∞ «»δΓ »α«úαá¼¼¿α«óá¡¿∩ ¡á ñαπ-
ú¿σ ∩ºδ¬áσ, óá¼ íπñÑΓ ¡ÑΓαπñ¡« «ßó«¿Γ∞ß∩ ¿ ß Åá߬á½Ñ¼.
     ä½∩ »Ñαó«ú« «º¡á¬«¼½Ñ¡¿∩ ß »α«úαá¼¼¿α«ó᡿Ѽ ¡á Åá߬á½Ñ
ó  ¡áßΓ«∩ΘÑ⌐  ú½áóÑ «»¿ßδóáεΓß∩ «ß¡«ó¡δÑ φ½Ñ¼Ñ¡Γδ ∩ºδ¬á ¿ ¿σ
¿ß»«½∞º«óá¡¿Ñ ó »α«úαá¼¼áσ. è«¡Ñτ¡«, φΓá ú½áóá ¡Ñ ¼«ªÑΓ  «σ-
óáΓ¿Γ∞  óßÑσ  áß»Ñ¬Γ«ó  »α«úαá¼¼¿α«óá¡¿∩ ¡á Åá߬á½Ñ. àß½¿ óδ
¡áτ¿¡áεΘ¿⌐ »α«úαá¼¼¿ßΓ ¡á Åá߬á½Ñ, óá¼ ½πτΦÑ »α¿«íαÑßΓ¿  ¬«-
»¿ε "Turbo Pascal Tutor" ("ôτÑí¡¿¬ »« Æπαí«-Åá߬á½ε"), ¬«Γ«-
αδ⌐ ∩ó½∩ÑΓß∩ »«½¡δ¼ πτÑí¡δ¼ »«ß«í¿Ñ¼ »« »α«úαá¼¼¿α«óá¡¿ε  ¡á
Åá߬á½Ñ ¿ ¿ß»«½∞º«óá¡¿ε óÑαß¿¿ 5.0 Æπαí«-Åá߬á½∩ ¿ »«ßΓáó½∩-
ÑΓß∩ ó ó¿ñÑ ¬¡¿ú¿ ¿ ñ¿ß¬á.
     ÅαѪñÑ, τѼ τ¿ΓáΓ∞ φΓπ ú½áóπ, 󫺼«ª¡«, ¿¼ÑÑΓ ß¼δß½ «í-
αáΓ¿Γ∞ß∩ ¬ â½áóÑ 7 "éßÑ «í ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñÑ" ¿ Åα¿½«ªÑ-
¡¿ε é "êß»«½∞º«óá¡¿Ñ αÑáñ¬Γ«αá", úñÑ «»¿ßδóáÑΓß∩ ¿ß»«½∞º«óá-
¡¿Ñ ¼Ñ¡ε ¿ ΓѬßΓ«ó«ú« αÑñá¬Γ«αá ó Æπαí«-Åá߬á½Ñ. éá¼ ß½ÑñπÑΓ
πßΓá¡«ó¿Γ∞ Æπαí«-Åá߬á½∞ (ßñѽáΓ∞ αáí«τπε ¬«»¿ε ñ¿ß¬á ß Æπα-
í«-Åá߬á½Ñ¼  ¿½¿  ߬«»¿α«óáΓ∞ Σá⌐½δ ¡á ªÑßΓ¬¿⌐ ñ¿ß¬) ó ß««Γ-
óÑΓßΓó¿¿ ß «»¿ß᡿Ѽ ¿º â½áóδ 1. ôñ«ßΓ«óÑα∞ΓÑß∞, τΓ« éδ ß«º-
ñ὿  Σá⌐½ TURBO.ÆÉ ¿½¿ πßΓᡫ󿽿 Σá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ .EXE ß
»«¼«Θ∞ε ÆINSÆ.àòà (ß¼. Åα¿½«ªÑ¡¿Ñ  D).  é  »α«Γ¿ó¡«¼  ß½πτáÑ
Æπαí«-Åá߬á½∞  ¡Ñ  íπñÑΓ  º¡áΓ∞, úñÑ αẼÑΘáεΓß∩ ßΓá¡ñáαΓ¡δÑ
¼«ñ㫨 TURBO.ÆÉL ¿ Σá⌐½ ¬«¡Σ¿úπαᵿ¿. (ê߬½ετÑ¡¿Ñ ß«ßΓáó½∩ÑΓ
ß½πτá⌐,  ¬«úñá  óδ  αáí«ΓáÑΓÑ ó «»Ñαᵿ«¡¡«⌐ ß¿ßΓѼ«⌐ óÑαß¿¿
3.σ  ¿  φΓ¿  Σá⌐½δ  ¡áσ«ñ∩Γß∩  ó  Γ«¼  ªÑ  ¬áΓὫúÑ,  τΓ«  ¿
TURBO.àòà).
     ÆÑ»Ñα∞, ¬«úñá φΓ« óßÑ ßñѽᡫ, ¼«ª¡« »α¿ßΓπ»¿Γ∞ ¬  ¿ºπ-
τÑ¡¿ε »α«úαá¼¼¿α«óá¡¿∩ ¡á Æπαí«-Åá߬á½Ñ.

          æѼ∞ «ß¡«ó¡δσ φ½Ñ¼Ñ¡Γ«ó »α«úαá¼¼¿α«óá¡¿∩

     ü«½∞Φ¿¡ßΓó« »α«úαá¼¼ ß«ºñáεΓß∩ ñ½∩  αÑΦÑ¡¿∩  ¬á¬«⌐-½¿í«
ºáñáτ¿.  ÉÑΦÑ¡¿Ñ  ºáñáτ¿ ñ«ßΓ¿úáÑΓß∩ í½áú«ñáα∩ «íαáí«Γ¬Ñ ¿¡-
Σ«α¼áµ¿¿ ¿½¿  ñá¡¡δσ.  Å«φΓ«¼π  ¬á¬  »α«úαá¼¼¿ßΓ  óδ  ñ«½ª¡δ
º¡áΓ∞:

     - ¬á¬ óóÑßΓ¿ ¿¡Σ«α¼áµ¿ε ó »α«úαá¼¼π (óó«ñ);
     - ¬á¬ σαá¡¿Γ∞ ¿¡Σ«α¼áµ¿ε ó »α«úαá¼¼Ñ (ñá¡¡δÑ);
     - ¬á¬ π¬áºáΓ∞ »αáó¿½∞¡δÑ ¬«¼á¡ñδ ñ½∩  «íαáí«Γ¬¿  ñá¡¡δσ
(«»Ñαᵿ¿);
     - ¬á¬ »ÑαÑñáΓ∞ «íαáΓ¡« ñá¡¡δÑ ¿º »α«úαá¼¼δ  »«½∞º«óáΓÑ-
½ε, (óδó«ñ).

     éδ ¼«ªÑΓÑ π»«α∩ñ«τ¿Γ∞ ¬«¼á¡ñδ Γᬿ¼ «íαẫ¼, τΓ«íδ:

     - ¡Ñ¬«Γ«αδÑ ¿º ¡¿σ óδ»«½¡∩½¿ß∞ Γ«½∞¬«, Ñß½¿ óδ»«½¡∩ÑΓß∩
¡Ñ¬«Γ«α«Ñ πß½«ó¿Ñ ¿½¿ α∩ñ πß½«ó¿⌐ (πß½«ó¡«Ñ óδ»«½¡Ñ¡¿Ñ);
     - ñαπú¿Ñ óδ»«½¡∩½¿ß∞ »«óΓ«α¡« ¡Ñ¬«Γ«α«Ñ τ¿ß½« αẠ(µ¿¬-
½δ);
     - ΓαÑΓ∞¿ óδñѽ∩½¿ß∞ ó «Γñѽ∞¡δÑ  τáßΓ¿,  ¬«Γ«αδÑ  ¼«úπΓ
íδΓ∞ óδ»«½¡Ñ¡δ ó αạδσ ¼ÑßΓáσ »α«úαá¼¼δ (»«ñ»α«úαá¼¼δ).

     Æᬿ¼ «íαẫ¼, »ÑαÑτ¿ß½Ñ¡δ óßÑ ßѼ∞ «ß¡«ó¡δσ  φ½Ñ¼Ñ¡Γ«ó
»α«úαá¼¼¿α«óá¡¿∩:  óó«ñ,  ñá¡¡δÑ,  «»Ñαᵿ¿, óδó«ñ, πß½«ó¡«Ñ
óδ»«½¡Ñ¡¿Ñ, µ¿¬½δ ¿ »«ñ»α«úαá¼¼δ. ¥Γ«Γ  ß»¿ß«¬  ¡Ñ  ∩ó½∩ÑΓß∩
¿ßτÑα»δóáεΘ¿¼, «ñ¡á¬« «¡ ß«ñÑαª¿Γ ΓÑ φ½Ñ¼Ñ¡Γδ, ¬«Γ«αδÑ «íδτ-
¡« »α¿ßπΘ¿ óßѼ »α«úαἼἠ(¿ ∩ºδ¬á¼ »α«úαá¼¼¿α«óá¡¿∩).
     î¡«ú¿Ñ ∩ºδ¬¿ »α«úαá¼¼¿α«óá¡¿∩, ó Γ«¼ τ¿ß½Ñ  ¿  Åá߬á½∞,
¿¼ÑεΓ  ÑΘÑ ñ«»«½¡¿Γѽ∞¡δÑ ßαÑñßΓóá. Äñ¡á¬«, ñ½∩ íδßΓα«ú« «º-
¡á¬«¼½Ñ¡¿∩ ß ∩ºδ¬«¼ ¼«ª¡« ¿ºπτ¿Γ∞, ¬á¬ αÑ὿º«óá¡δ  ó  ∩ºδ¬Ñ
φΓ¿  ßѼ∞  φ½Ñ¼Ñ¡Γ«ó, ¿ ¡á ¿σ «ß¡«óÑ ßΓα«¿Γ∞ »α«úαá¼¼δ. 쿪Ñ
ñáÑΓß∩ ¬αáΓ¬«Ñ «»¿ßá¡¿Ñ ¬áªñ«ú« φ½Ñ¼Ñ¡Γá.

     éó«ñ
     ¥Γ« «º¡áτáÑΓ ßτ¿Γδóá¡¿Ñ º¡áτÑ¡¿⌐, »«ßΓπ»áεΘ¿σ ß ¬½áó¿á-
Γπαδ, ß ñ¿ß¬á ¿½¿ ¿º »«αΓá óó«ñá/óδó«ñá.

     äá¡¡δÑ
     ¥Γ« ¬«¡ßΓá¡Γδ, »ÑαѼѡ¡δÑ ¿ ßΓαπ¬Γπαδ, ß«ñÑαªáΘ¿Ñ τ¿ß½á
(µÑ½δÑ  ¿ óÑΘÑßΓóÑ¡¡δÑ), ΓѬßΓ (ß¿¼ó«½δ ¿ ßΓ᫬¿) ¿½¿ áñαÑßá
(»ÑαѼѡ¡δσ ¿ ßΓαπ¬Γπα).

     Ä»Ñαᵿ¿
     Ä»Ñαᵿ¿ «ßπΘÑßΓó½∩εΓ »α¿ßóá¿óá¡¿Ñ º¡áτÑ¡¿⌐, ¿σ  ¬«¼í¿-
¡¿α«óá¡¿Ñ  (ß½«ªÑ¡¿Ñ, ñѽѡ¿Ñ ¿ Γᬠñá½ÑÑ) ¿ ßαáó¡Ñ¡¡¿Ñ º¡á-
τÑ¡¿⌐ (αáó¡δÑ, ¡Ñ αáó¡δÑ ¿ Γᬠñá½ÑÑ).

     éδó«ñ
     ¥Γ« «º¡áτáÑΓ ºá»¿ß∞ ¿¡Σ«α¼áµ¿¿ ¡á φ¬αá¡, ¡á ñ¿ß¬ ¿½¿  ó
»«αΓ óó«ñá/óδó«ñá.

     ôß½«ó¡«Ñ óδ»«½¡Ñ¡¿Ñ
     ôß½«ó¡«Ñ óδ»«½¡Ñ¡¿Ñ »αÑñ»«½áúáÑΓ óδ»«½¡Ñ¡¿Ñ ¡áí«αá  ¬«-
¼á¡ñ  ó ß½πτáÑ, Ñß½¿ óδ»«½¡∩ÑΓß∩ (∩ó½∩ÑΓß∩ ¿ßΓ¿¡¡δ¼) ¡Ñ¬«Γ«-
α«Ñ πß½«ó¿Ñ (Ñß½¿ φΓ« πß½«ó¿Ñ ¡Ñ óδ»«½¡∩ÑΓß∩, Γ« φΓ¿ ¬«¼á¡ñδ
»α«»π߬áεΓß∩  ¿½¿  ªÑ  óδ»«½¡∩ÑΓß∩  ñαπú«⌐ ¡áí«α ¬«¼á¡ñ) ¿½¿
Ñß½¿ ¡Ñ¬«Γ«αδ⌐ φ½Ñ¼Ñ¡Γ ñá¡¡δσ  ¿¼ÑÑΓ  ¡Ñ¬«Γ«α«Ñ  ߻ѵ¿á½∞¡«Ñ
º¡áτÑ¡¿Ñ ¿½¿ º¡áτÑ¡¿Ñ ¿º ¡Ñ¬«Γ«α«ú« ߻ѬΓαá.

     û¿¬½δ
     ü½áú«ñáα∩ µ¿¬½á¼  ¡Ñ¬«Γ«αδ⌐  ¡áí«α  ¬«¼á¡ñ  óδ»«½¡∩ÑΓß∩
»«óΓ«α¡«  ¿½¿ Σ¿¬ß¿α«óá¡¡«Ñ τ¿ß½« αáº, ¿½¿ »«¬á ∩ó½∩ÑΓß∩ ¿ß-
Γ¿¡¡δ¼ ¡Ñ¬«Γ«α«Ñ πß½«ó¿Ñ, ¿½¿ »«¬á ¡Ñ¬«Γ«α«Ñ πß½«ó¿Ñ ¡Ñ ßΓá-
½« ¿ßΓ¿¡¡δ¼.

     Å«ñ»α«úαá¼¼δ
     Å«ñ»α«úαá¼¼δ »αÑñßΓáó½∩εΓ ß«í«⌐ ¡áí«αδ ¿¡ßΓαπ¬µ¿⌐,  ¬«-
Γ«αδÑ  ¿¼ÑεΓ ßἫßΓ«∩Γѽ∞¡«Ñ ¿¼∩ ¿ ¬«Γ«αδÑ ¼«úπΓ íδΓ∞ óδ»«½-
¡Ñ¡δ ¿º ½εí«ú« ¼ÑßΓá »α«úαá¼¼δ »α¿ «íαáΘÑ¡¿¿ ¬ ¡¿¼ »« ¿¼Ñ¡¿.

     ÆÑ»Ñα∞ αáßß¼«Γα¿¼, ¬á¬ φΓ¿ φ½Ñ¼Ñ¡Γδ ¿ß»«½∞ºπεΓß∩ ó Æπα-
í«-Åá߬á½Ñ.

                        Æ¿»δ ñá¡¡δσ

     Åα¿ ¡á»¿ßá¡¿¿ »α«úαá¼¼δ éδ ¿¼ÑÑΓÑ ñѽ«  ß  ¿¡Σ«α¼áµ¿Ñ⌐,
¬«Γ«αá∩,  ¬á¬  »αá󿽫, «Γ¡«ß∩Γß∩ ¬ «ñ¡«¼π ¿º ß½ÑñπεΘ¿σ »∩Γ¿
«ß¡«ó¡δσ Γ¿»«ó: µÑ½δÑ τ¿ß½á, óÑΘÑßΓóÑ¡¡δÑ τ¿ß½á,  ß¿¼ó«½δ  ¿
ßΓ᫬¿, íπ½Ñó߬¿Ñ óδαáªÑ¡¿∩ ¿ π¬áºáΓѽ¿.
     ûѽδÑ τ¿ß½á - φΓ« τ¿ß½á, ß »«¼«Θ∞ε ¬«Γ«αδσ  óδ  πτ¿½¿ß∞
ßτ¿ΓáΓ∞ (¡á»α¿¼Ñα, 1,5,-21 ¿ 752).
     éÑΘÑßΓóÑ¡¡δÑ τ¿ß½á  ¿¼ÑεΓ  ñα«í¡πε  τáßΓ∞  (3.14159)  ¿
φ¬ß»«¡Ñ¡Γπ  (2.579σ10**24). ê¡«úñá ¿σ Γá¬ªÑ ¡áºδóáεΓ τ¿ß½á¼¿
ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐.
     è ß¿¼ó«½á¼ «Γ¡«ß∩Γß∩ óßÑ íπ¬óδ á½Σáó¿Γá, º¡á¬¿ ¿  τ¿ß½á
0-9.  Ä¡¿  ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ »« «Γñѽ∞¡«ßΓ¿ (á,Z,!,3) ¿½¿
ß«Ññ¿¡∩Γ∞ß∩ ñαπú ß ñαπú«¼ ó ßΓ᫬¿ ('¥Γ« Γ«½∞¬« »α«óÑα¬á').
     üπ½Ñóδ óδαáªÑ¡¿∩ ¼«úπΓ »α¿¡¿¼áΓ∞ «ñ¡« ¿º ñóπσ º¡áτÑ¡¿⌐:
True  ¿½¿ False (¿ßΓ¿¡á ¿½¿ ½«ª∞). Ä¡¿ ¿ß»«½∞ºπεΓß∩ ó πß½«ó-
¡δσ óδαáªÑ¡¿∩σ, « ¬«Γ«αδσ αÑτ∞ íπñÑΓ ¿ñΓ¿ ñá½∞ΦÑ.
     ô¬áºáΓѽ¿ ß«ñÑαªáΓ áñαÑß ∩τÑ⌐¬¿ ó »á¼∩Γ¿ ¬«¼»εΓÑαá, ¬«-
Γ«αá∩ ó ßó«ε «τÑαÑñ∞ ß«ñÑαª¿Γ ¡Ñ¬«Γ«απε ¿¡Σ«α¼áµ¿ε.

                 Æ¿»δ µÑ½«τ¿ß½Ñ¡¡δσ ñá¡¡δσ

     é ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ µÑ½«τ¿ß½Ñ¡¡δ⌐ Γ¿» ñá¡¡δσ  «»αÑñÑ-
½∩ÑΓß∩ ¬á¬ ß«ñÑαªáΘ¿⌐ º¡áτÑ¡¿∩ ó ¿¡ΓÑαóá½Ñ «Γ -îáσInt ñ« 0 ¿
«Γ 0 ñ« MaxInt, úñÑ MaxInt - ¡á¿í«½∞ΦÑÑ ó«º¼«ª¡«Ñ µÑ½«Ñ º¡á-
τÑ¡¿Ñ, ñ«»πßΓ¿¼«Ñ ñ½∩ ¿ß»«½∞ºπѼ«ú« ¬«¼»∞εΓÑαá. é Æπαí«-Åáß-
¬á½Ñ »«ññÑনóáÑΓß∩ µÑ½«τ¿ß½Ñ¡¡δ⌐ Γ¿»,  MaxInt  «»αÑñѽ∩ÑΓß∩
αáó¡δ¼ 32767 ¿ ñ«»π߬áÑΓß∩ º¡áτÑ¡¿Ñ -32768. ÅÑαѼѡ¡á∩ µÑ½«-
τ¿ß½Ñ¡¡«ú« Γ¿»á ºá¡¿¼áÑΓ ñóá íá⌐Γá.
     Æπαí«-Åá߬á½∞, ¬α«¼Ñ Γ«ú«, »«ññÑনóáÑΓ »∩Γ∞ ñαπú¿σ µÑ-
½«τ¿ß½Ñ¡¡δσ  Γ¿»«ó ñá¡¡δσ, ¬áªñδ⌐ ¿º ¬«Γ«αδσ ¿¼ÑÑΓ ßó«⌐ ñ¿á-
»áº«¡ º¡áτÑ¡¿⌐. é Æáí½¿µÑ 3.1 »α¿óÑñÑ¡δ óßÑ »∩Γ∞ µÑ½«τ¿ß½Ñ¡-
¡δσ Γ¿»«ó.

                                             Æáí½¿µá 3.1
                 ûѽ«τ¿ß½Ñ¡¡δÑ Γ¿»δ ñá¡¡δσ
------------------------------------------------------------
Æ¿»                         ñ¿á»áº«¡         αẼÑα ó íá⌐Γáσ
------------------------------------------------------------
µÑ½«Ñ ñ½¿¡«⌐ ó íá⌐Γ          0...255                  1
¬«α«Γ¬«Ñ µÑ½«Ñ            -128...127                  1
µÑ½«Ñ                   -32768...32767                2
µÑ½«Ñ ñ½¿¡«⌐ ó ß½«ó«         0...65535                2
ñ½¿¡¡«Ñ µÑ½«Ñ      -2147483648...2147483647           4
------------------------------------------------------------

     Åα¿¼Ñτá¡¿Ñ. Æπαí«-Åá߬á½∞ »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞  ΦÑßΓ-
¡áñµáΓÑα¿τ¡δÑ  µÑ½δÑ º¡áτÑ¡¿∩ (ß «ß¡«ó᡿Ѽ 16). Åα¿ «»αÑñÑ-
½Ñ¡¿¿ ΦÑßΓ- ¡áñµáΓÑα¿τ¡«⌐ ¬«¡ßΓá¡Γδ  »ÑαÑñ  ¡Ñ⌐  π¬áºδóáÑΓß∩
º¡á¬  ñ«½½áαá  ($);  ¡á»α¿¼Ñα, $27=39 (ó ñÑß∩Γ¿τ¡«¼ ¿ßτ¿ß½Ñ-
¡¿¿).

                  Æ¿»δ óÑΘÑßΓóÑ¡¡δσ ñá¡¡δσ

     é ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ñá¡¡δσ »αÑñßΓáó-
½Ñ¡ ó ó¿ñÑ º¡áτÑ¡¿⌐ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐, ß«ñÑαªáΘ¿σ ¼á¡Γ¿ßßπ
(ñα«í¡πε τáßΓ∞), π¼¡«ªÑ¡¡πε ¡á φ¬ß»«¡Ñ¡Γπ (ßΓѻѡ∞ 10).  è«-
½¿τÑßΓó«  µ¿Σα  (Γᬠ ¡áºδóáѼδσ º¡áτáΘ¿σ µ¿Σα) ó ¼á¡Γ¿ßßÑ ¿
ñ¿á»áº«¡ º¡áτÑ¡¿⌐ φ¬ß»«¡Ñ¡Γδ ºáó¿ß∩Γ «Γ ¬«¼»∞εΓÑαá.  é  Æπα-
í«-Åá߬á½Ñ  óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ¿¼ÑÑΓ ñ½¿¡π ó 6 íá⌐Γ, ñ«»π߬áÑΓ
11 º¡áτáΘ¿σ µ¿Σα ¿ ¿ß»«½∞ºπÑΓ ñ¿á»áº«¡ φ¬ß»«¡Ñ¡Γδ «Γ 10**-38
ñ« 10**38.
     èα«¼Ñ Γ«ú«, Ñß½¿ ó óáΦÑ⌐ ß¿ßΓÑ¼Ñ ¿¼ÑÑΓß∩ ¼áΓѼáΓ¿τÑ߬¿⌐
ß«»α«µÑßß«α  ¿ óδ π¬áºá½¿ ñ¿αÑ¬Γ¿ó𠬫¼»¿½∩Γ«αá ñ½∩ τ¿ß½«ó«⌐
»«ññÑ᪬¿ ¿½¿ »áαá¼ÑΓα ßαÑñδ »α«úαá¼¼¿α«óá¡¿∩ {$N+}, Γ« Æπα-
í«-Åá߬á½∞ íπñÑΓ »«ññÑনóáΓ∞ æΓá¡ñáαΓ Iààà 754 ñ½∩ ñó«¿τ¡«⌐
áα¿Σ¼ÑΓ¿¬¿ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐. é  φΓ«¼  ß½πτáÑ  ñ«íáó½∩εΓß∩
Γ¿»δ  ñá¡¡δσ  ß  «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε, ß
»«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿ ß½«ª¡δÑ. äá¡¡δÑ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε
¿ß»«½∞ºπεΓ  4  íá⌐Γá,  ñ«»π߬áεΓ  7 º¡áτáΘ¿σ µ¿Σα ¿ ñ¿á»áº«¡
φ¬ß»«¡Ñ¡Γδ «Γ 10**-38 ñ« 10**38; ñá¡¡δÑ ß ñó«⌐¡«⌐  Γ«τ¡«ßΓ∞ε
¿ß»«½∞ºπεΓ  8  íá⌐Γ,  ñ«»π߬áεΓ  15 º¡áτáΘ¿σ µ¿Σα ¿ ñ¿á»áº«¡
φ¬ß»«¡Ñ¡Γδ «Γ 10**-38 ñ« 10**38, á ñá¡¡δÑ ß »«óδΦÑ¡¡«⌐  Γ«τ-
¡«ßΓ∞ε ¿ß»«½∞ºπεΓ 10 íá⌐Γ, ñ«»π߬áεΓ 19 º¡áτáΘ¿σ µ¿Σα ¿ ñ¿á-
»áº«¡ φ¬ß»«¡Ñ¡Γδ «Γ 10**-4931 ñ« 10**4931.

                                                Æáí½¿µá 3.2
                  Æ¿»δ óÑΘÑßΓóÑ¡¡δσ ñá¡¡δσ
------------------------------------------------------------
Æ¿»                     ä¿á»áº«¡         ç¡áτáΘ¿Ñ   ÉẼÑα ó
                                           µ¿Σαδ     íá⌐Γáσ
------------------------------------------------------------
óÑΘÑßΓóÑ¡¡δ⌐            10**-38..10**38      11           6
ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε   10**-38..10**38       7           4
ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε     10**-38..10**38       8          15
ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε  10**-4931..10**4931  10          19
ß½«ª¡δ⌐                 2**63..2**63-1        8          ??
------------------------------------------------------------

     é«⌐ñѼ ó  αÑñá¬Γ«α  Æπαí«-Åá߬á½∩  ¿  óóÑñѼ  ß½ÑñπεΘπε
»α«úαá¼¼π:

program DoRatio;
var
  A,B    : integer;
  Ratio  : real;
begin
  Write('éóÑñ¿ΓÑ ñóá τ¿ß½á: ');
  Readln(A,B);
  Ratio := A div B;
  Writeln('ÄΓ¡«ΦÑ¡¿Ñ αáó¡« ',Ratio)
end.

     çỿΦѼ φΓπ »α«úαá¼¼π ó Σá⌐½ DORATIO.PAS, óδºóáó «ß¡«ó-
¡«Ñ  ¼Ñ¡ε ¿ óδíαáó ¬«¼á¡ñπ FILE/WRIÆà (öá⌐½/çỿßáΓ∞). çáΓѼ
¡áª¼Ñ¼ ¬½áó¿Φπ R ß ΓѼ, τΓ«íδ  «Γ¬«¼»¿½¿α«óáΓ∞  ¿  óδ»«½¡¿Γ∞
»α«úαá¼¼π. éóÑñѼ ñóá º¡áτÑ¡¿∩ (¡á»α¿¼Ñα, 10 ¿ 3) ¿ »«½πτáѼ
αѺπ½∞ΓáΓ (3.000000).
     éδ, óÑα«∩Γ¡«, «ª¿ñ὿  «ΓóÑΓá  3.3333333333,  á  ó¼ÑßΓ«
¡Ñú«  »«½πτ¿½¿  3. ¥Γ« »α«¿º«Φ½« »«Γ«¼π, τΓ« íδ½ ¿ß»«½∞º«óá¡
«»ÑαáΓ«α div, ¬«Γ«αδ⌐ óδ»«½¡∩ÑΓ ñѽѡ¿Ñ µÑ½δσ τ¿ßѽ. Å«φΓ«¼π
¡Ñ«íσ«ñ¿¼« ¿ß»αáó¿Γ∞ «»ÑαáΓ«α div ¡á ß½ÑñπεΘ¿⌐:

     Ratio := A / B;

æ«σαá¡¿ΓÑ ¬«ñ ¡á ñ¿ß¬Ñ (¡áªáó F2),  ºáΓѼ  «ΓΓαá¡ß½¿απ⌐ΓÑ  ¿
óδ»«½¡¿ΓÑ  »α«úαá¼¼π. ÆÑ»Ñα∞ αѺπ½∞ΓáΓ«¼ íπñÑΓ 3.3333333333,
¬á¬ óδ ¿ «ª¿ñ὿. êß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá ñѽѡ¿∩ (/)  «íÑß-
»Ñτ¿óáÑΓ ¡á¿í«½ÑÑ Γ«τ¡δ⌐ αѺπ½∞ΓáΓ - óÑΘÑßΓóÑ¡¡«Ñ τ¿ß½«.

             Æ¿»δ ß¿¼ó«½∞¡δσ ¿ ßΓ᫬«óδσ ñá¡¡δσ

     ÆÑ»Ñα∞ óδ º¡áÑΓÑ, ¬á¬ ºá»¿ßδóáεΓß∩ τ¿ß½á ó Æπαí«-Åá߬á-
½Ñ, á ¬á¬ «íßΓ«∩Γ ñѽá ß ß¿¼ó«½á¼¿ ¿ ßΓα«¬á¼¿? Åá߬á½∞ »αÑñ-
½áúáÑΓ óßΓα«Ñ¡¡δ⌐ Γ¿» ñá¡¡δσ char, ¿¼ÑεΘ¿⌐ ñ½¿¡π ó 1 íá⌐Γ  ¿
ß«ñÑαªáΘ¿⌐  Γ«½∞¬« «ñ¿¡ ß¿¼ó«½. 濼ó«½∞¡δÑ ¬«¡ßΓá¡Γδ óδαáªá-
εΓß∩ ß¿¼ó«½«¼, ºá¬½ετÑ¡¡δ¼ ó  «ñ¿¡«τ¡δÑ  ¬áóδτ¬¿  (¡á»α¿¼Ñα,
'Ç', 'Ñ', '?', '2'). ÄΓ¼ÑΓ¿¼, τΓ« '2' «º¡áτáÑΓ ß¿¼ó«½ 2 ó Γ«
óαѼ∩, ¬á¬ 2 «º¡áτáÑΓ µÑ½«Ñ τ¿ß½« 2 (á 2.0 «º¡áτáÑΓ  óÑΘÑßΓ-
óÑ¡¡«Ñ τ¿ß½« 2).
     ì¿ªÑ »α¿ó«ñ¿Γß∩ ¼«ñ¿Σ¿¬áµ¿∩ »α«úαá¼¼δ DORATIO, »«ºó«½∩-
εΘá∩ óδ»«½¡∩Γ∞ ÑÑ »«óΓ«α¡« ¡Ñ߬«½∞¬« αẠ(ºñÑß∞ ¿ß»«½∞ºπÑΓß∩
µ¿¬½ repeat..until, « ¬«Γ«α«¼ αÑτ∞ »«⌐ñÑΓ ¡¿ªÑ):

program DoRatio;
var
  A,B    : integer;
  Ratio  : real;
  Ans    : char;
begin
  repeat
    Write('éóÑñ¿ΓÑ ñóá τ¿ß½á: ');
    Readln(A,B);
    Ratio := A / B;
    Writeln('ÄΓ¡«ΦÑ¡¿Ñ αáó¡« ',Ratio)
    Write('Å«óΓ«α¿Γ∞╝ (Y/N)  ');
    Readln(Ans)
  until (Ans = 'n') or (Ans = 'N')
end.

     Å«ß½Ñ óδτ¿ß½Ñ¡¿∩ ¬«φΣΣ¿µ¿Ñ¡Γá, »α«úαá¼¼á óδñáÑΓ ß««íΘÑ-
¡¿Ñ:

     Å«óΓ«α¿Γ∞? (Y/N)

¿ ªñÑΓ, »«¬á óδ óóÑñÑΓÑ «ñ¿¡ ¿º π¬áºá¡¡δσ ß¿¼ó«½«ó ¿ ¡áª¼ÑΓÑ
¬½áó¿Φπ "Enter". àß½¿ óδ óóÑñÑΓÑ ßΓα«τ¡πε n ¿½¿ »α«»¿ß¡πε N,
Γ« πß½«ó¿Ñ until íπñÑΓ óδ»«½¡Ñ¡« ¿ µ¿¬½ ºáóÑαΦ¿Γß∩; ó «íαáΓ-
¡«¼  ß½πτáÑ  »α«úαá¼¼á  ó«ºóαáΓ¿Γß∩ ¡á «»ÑαáΓ«α repeat ¿ óßÑ
íπñÑΓ »«óΓ«αÑ¡« ºá¡«ó«.
     ÄΓ¼ÑΓ¿¼, τΓ« n ¡Ñ ÑßΓ∞ Γ« ªÑ ßἫÑ,  τΓ«  N,  »«ß¬«½∞¬π
«¡¿ ¿¼ÑεΓ αẽ¿τ¡δÑ º¡áτÑ¡¿∩ ó ¬«ñÑ ÇSCII. 濼ó«½δ »αÑñßΓáó-
½Ñ¡δ  ó  ¬«ñÑ  ÇSCII,  Γ«  ÑßΓ∞  ¬áªñδ⌐  ß¿¼ó«½  ¿¼ÑÑΓ  ßó«Ñ
8-í¿Γ«ó«Ñ º¡áτÑ¡¿Ñ (ºá»«¼¡¿ΓÑ, τΓ« ß¿¼ó«½δ ºá¡¿¼áεΓ 1 íá⌐Γ).
é Åα¿½«ªÑ¡¿¿ ä "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá" »α¿óÑñÑ¡ ß»¿ß«¬ ¬«-
ñ«ó ÇSCII ñ½∩ óßÑσ ß¿¼ó«½«ó.
     é Æπαí«-Åá߬á½Ñ »αÑñ½áúáÑΓß∩ ñóá ñ«»«½¡¿Γѽ∞¡δσ ß»«ß«íá
»αÑñßΓáó½Ñ¡¿∩  ß¿¼ó«½∞¡δσ  ¬«¡ßΓá¡Γ:  ß »«¼«Θ∞ε ß¿¼ó«½á ¬áαÑ
(^) ¿ ß »«¼«Θ∞ε ß¿¼ó«½á ¡«¼Ñαá (#). 濼ó«½δ ß ¬«ñἿ «Γ 0 ñ«
31  ¿ºóÑßΓ¡δ  ¬á¬ π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ (»«ß¬«½∞¬π ¿ßΓ«α¿τÑ߬¿
«¡¿ ¿ß»«½∞º«ó὿ß∞ ñ½∩ π»αáó½Ñ¡¿∩ «»Ñαᵿ∩¼¿ ΓѽÑΓá⌐»á). Ä¡¿
«í«º¡áτáεΓß∩  ß  »«¼«Θ∞ε  ßó«¿σ áííαÑó¿áΓπα (CR ñ½∩ carriage
return (ó«ºóαáΓ ¬áαÑΓ¬¿), LF - ñ½∩ linefeed  (»ÑαÑó«ñ  ßΓα«-
¬¿),  àSæ  -  ñ½∩  escape (óδσ«ñ) ¿ Γᬠñá½ÑÑ) ¿½¿ ß »«¼«Θ∞ε
ß½«óá ætrl, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ß««ΓóÑΓßΓóπεΘá∩ íπ¬óá (º¡áτÑ-
¡¿Ñ  íπ¬óδ  «íαáºπÑΓß∩  »πΓѼ  »α¿íáó½Ñ¡¿∩ 64 ¬ π»αáó½∩εΘѼπ
¬«ñπ). ìá»α¿¼Ñα, π»αáó½∩εΘ¿⌐ ß¿¼ó«½ ß ¬«ñ«¼ ÇSCII 7 ¿ºóÑßΓÑ¡
¬á¬  Bel (çó«¡«¬) ¿½¿ ætrl-G. Æπαí«-Åá߬á½∞ »«ºó«½∩ÑΓ »αÑñß-
Γáó½∩Γ∞ φΓ¿ ß¿¼ó«½δ ß »«¼«Θ∞ε º¡á¬á  ¬áαÑ  (^),  ºá  ¬«Γ«αδ¼
ßΓ«¿Γ  ß««ΓóÑΓßΓóπεΘá∩  íπ¬óá (¿½¿ ß¿¼ó«½). Æá¬, ^G ∩ó½∩ÑΓß∩
ñ«»πßΓ¿¼δ¼ »αÑñßΓáó½Ñ¡¿Ñ¼ ó »α«ú- αá¼¼Ñ ñ½∩ ætrl-G, ¿ éδ ¼«-
ªÑΓÑ ¿ß»«½∞º«óáΓ∞ Γá¬¿Ñ «»ÑαáΓ«αδ, ¬á¬ Writeln(G), τΓ« ó맮-
óÑΓ »«ñáτ𠬫α«Γ¬«ú« ºóπ¬«ó«ú« ß¿ú¡á½á. ¥Γ«Γ ¼ÑΓ«ñ,  «ñ¡á¬«,
»α¿¼Ñ¡¿¼ Γ«½∞¬« ¬ π»αáó½∩εΘ¿¼ ß¿¼ó«½á¼.
     èα«¼Ñ Γ«ú«, óδ ¼«ªÑΓÑ »αÑñßΓáó½∩Γ∞  ½εí«⌐  ß¿¼ó«½,  ¿ß-
»«½∞ºπ∩  º¡á¬  ¡«¼Ñαá  (#),  ºá  ¬«Γ«αδ¼ ß½ÑñπÑΓ ¬«ñ ß¿¼ó«½á
ÇSCII. Æá¬, #7 - φΓ« Γ« ªÑ ßἫÑ, τΓ« ¿ ^G,  #65 - Γ« ªÑ ßá-
¼«Ñ,  τΓ«  ¿  'Ç',  á  #233 »αÑñßΓáó½∩ÑΓ «ñ¿¡ ¿º ߻ѵ¿á½∞¡δσ
úαáΣ¿τÑ߬¿σ ß¿¼ó«½«ó ñ½∩ »Ñαß«¡á½∞¡«ú« ¬«¼»∞εΓÑαá IBM Éæ.

                     Ä»αÑñѽѡ¿Ñ ßΓ᫬¿

     ÄΓñѽ∞¡δÑ ß¿¼ó«½δ - φΓ« σ«α«Φ«, ¡« ¬á¬  íδΓ∞  ó  ß½πτáÑ
ßΓ᫬  ß¿¼ó«½«ó?  éÑñ∞  ó  í«½∞Φ¿¡ßΓóÑ  ß½πτáÑó ¿ß»«½∞ºπεΓß∩
¿¼Ñ¡¡« «¡¿. àß½¿ ó ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ ¡Ñ »«ññÑনóáÑΓß∩ «Γ-
ñѽ∞¡δ⌐ Γ¿» ßΓ᫬«óδσ ñá¡¡δσ, Γ« ó Æπαí«-Åá߬á½Ñ φΓá 󫺼«ª-
¡«ßΓ∞ αÑ὿º«óá¡á. Éáßß¼«Γα¿¼ ß½ÑñπεΘπε »α«úαá¼¼π:

program Hello;
var
  Name  : string[30];
begin
  Write('èᬠéáß º«óπΓ╝ ');
  Readln(Name);
  Writeln('çñαáóßΓóπ⌐ΓÑ, ',Name)
end.

é ¡Ñ⌐ »ÑαѼѡ¡á∩ Name «»¿ßδóáÑΓß∩ ß Γ¿»«¼ string ¿  ñ½∩  ¡ÑÑ
«Γó«ñ¿Γß∩  »α«ßΓαá¡ßΓó«  »«ñ  30  ß¿¼ó«½«ó. èα«¼Ñ Γ«ú«, Æπα-
í«-Åá߬á½∞ «Γó«ñ¿Γ ÑΘÑ «ñ¿¡ íá⌐Γ, ¬«Γ«αδ⌐  ß«ñÑαª¿Γ  ΓѬπΘπε
ñ½¿¡π  ßΓ᫬¿.  Å«φΓ«¼π  ¡Ñºáó¿ß¿¼«  «Γ Γ«ú«, ¬á¬«⌐ ñ½¿¡δ éδ
óó«ñ¿ΓÑ ¿¼∩ ó «ΓóÑΓ ¡á »«ñ߬Ậπ, »« «»ÑαáΓ«απ Writeln  αáß-
»ÑτáΓδóáÑΓß∩ ¿¼∩ Γ«½∞¬« π¬áºá¡¡«⌐ ñ½¿¡δ. àß½¿ óδ óóÑñÑΓÑ ¿¼∩
ñ½¿¡«⌐ í«½ÑÑ 30 ß¿¼ó«½«ó, Γ« ó φΓ«¼ ß½πτáÑ Γ«½∞¬« »ÑαóδÑ  30
ß¿¼ó«½«ó  íπñπΓ ¿ß»«½∞º«óáΓ∞ß∩, á «ßΓá½∞¡δÑ íπñπΓ »α«¿ú¡«α¿-
α«óá¡δ.
     Åα¿  «»¿ßá¡¿¿  ßΓ᫬«ó«⌐  »ÑαѼѡ¡«⌐  ¼«ª¡«  π¬áºδóáΓ∞,
߬«½∞¬«  ß¿¼ó«½«ó (ñ« 255) «¡á ¼«ªÑΓ ß«ñÑαªáΓ∞. àß½¿ óδ «»¿-
ßδóáÑΓÑ »ÑαѼѡ¡πε (¿½¿ »áαá¼ÑΓα) ß Γ¿»«¼ string ¿ ¡Ñ π¬áºδ-
óáÑΓÑ  ñ½¿¡π, Γ« ó φΓ«¼ ß½πτáÑ »αÑñ»«½áúáÑΓß∩ ñ½¿¡á »« π¼«½-
τá¡¿ε ó 255 ß¿¼ó«½«ó.
     Æπαí«-Åá߬á½∞ »αÑñ½áúáÑΓ ¡Ñ߬«½∞¬« óßΓα«Ñ¡¡δσ  »α«µÑñπα
¿  Σπ¡¬µ¿⌐  ñ½∩ αáí«Γδ ß« ßΓα«¬á¼¿. êσ «»¿ßá¡¿Ñ ñá¡« ó â½áóÑ
16 "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá".

                    Æ¿» íπ½Ñó߬¿σ ñá¡¡δσ

     éßΓα«Ñ¡¡δ⌐ Γ¿» íπ½Ñó߬¿σ ñá¡¡δσ ¼«ªÑΓ ¿¼ÑΓ∞ ñóá  º¡áτÑ-
¡¿∩ True ¿ False (¿ßΓ¿¡á ¿ ½«ª∞). éδ ¼«ªÑΓÑ «»¿ßáΓ∞ »ÑαѼѡ-
¡πε ß φΓ¿¼ Γ¿»«¼, ºáΓѼ »α¿ßó«¿Γ∞ Ñ⌐ º¡áτÑ¡¿Ñ True ¿½¿ False
¿½¿ ªÑ »α¿ßó«¿Γ∞ Ñ⌐ º¡áτÑ¡¿Ñ óδαáªÑ¡¿∩, ¬«Γ«α«Ñ »α¿ óδτ¿ß½Ñ-
¡¿¿ »α¿¡¿¼áÑΓ «ñ¡« ¿º φΓ¿σ º¡áτÑ¡¿⌐.
     üπ½Ñó߬«Ñ óδαáªÑ¡¿Ñ - φΓ« Γá¬«Ñ óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ »α¿-
¡¿¼áÑΓ º¡áτÑ¡¿Ñ True ¿½¿ False. Ä¡« ß«ßΓ«¿Γ ¿º óδαáªÑ¡¿⌐ «Γ-
¡«ΦÑ¡¿⌐, íπ½Ñó߬¿σ «»Ñαᵿ⌐, íπ½Ñóδσ »ÑαѼѡ¡δσ ¿/¿½¿ ñαπú¿σ
íπ½Ñóδσ óδαáªÑ¡¿⌐. ìá»α¿¼Ñα, ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α while ß«ñÑα-
ª¿Γ íπ½Ñó߬«ÑóδαáªÑ¡¿Ñ:

     while (Index <= Limit) and not Done do ...

ô¬áºá¡¡«Ñ íπ½Ñó« óδαáªÑ¡¿Ñ ß«ñÑαª¿Γ óßÑ,  ºá¬½ετÑ¡¡«Ñ  ¼Ñªñπ
¬½ετÑó묨 ß½«óἿ while ¿ do, ¿ »αÑñ»«½áúáÑΓ, τΓ« Done ∩ó½∩-
ÑΓß∩ »ÑαѼѡ¡«⌐ (¿½¿ Σπ¡¬µ¿Ñ⌐) ß íπ½Ñó߬¿¼ Γ¿»«¼.

                   Æ¿» ñá¡¡δσ "π¬áºáΓѽ∞"

     éßÑ αáßß¼«ΓαÑ¡¡δÑ óδΦÑ Γ¿»δ ñá¡¡δσ ß«ñÑαªáΓ Γ«½∞¬« ñá¡-
¡δÑ.  ô¬áºáΓѽ∞  (¿½¿ ßß佫τ¡δ⌐ Γ¿») ß«ñÑαª¿Γ ñαπú«⌐ ó¿ñ ¿¡-
Σ«α¼áµ¿¿ - áñαÑßá. ô¬áºáΓѽ∞ »αÑñßΓáó½∩ÑΓ ß«í«⌐  »ÑαѼѡ¡πε,
¬«Γ«αá∩  ß«ñÑαª¿Γ ¡Ñ ßἿ ñá¡¡δÑ, á áñαÑß ó »á¼∩Γ¿ (ÄÅ), úñÑ
φΓ¿ ñá¡¡δÑ σαá¡∩Γß∩. äαπú¿¼¿ ß½«óἿ, «¡ π¬áºδóáÑΓ  ¡á  ñá¡-
¡δÑ, ¬á¬, ¡á»α¿¼Ñα, áñαÑß¡á∩ ¬¡¿úá ¿½¿ ¿¡ñѬß.
     Äíδτ¡« (¡« ¡Ñ«í∩ºáΓѽ∞¡«) π¬áºáΓѽ∞ ∩ó½∩ÑΓß∩  ߻ѵ¿Σ¿τ-
¡δ¼ ñ½∩ ¡Ñ¬«Γ«α«ú« ñαπú«ú« Γ¿»á ñá¡¡δσ. Éáßß¼«Γα¿¼ ß½ÑñπεΘ¿Ñ
«»¿ßá¡¿∩:

  type
    Buffer = string[255];
    BufPtr = ^Buffer;
  var
    Buf1   : Buffer;
    Buf2   : BufPtr;

     Æ¿» ñá¡¡δσ Buffer ∩ó½∩ÑΓß∩  Γ«½∞¬«  ñαπú¿¼  ¿¼Ñ¡Ñ¼  ñ½∩
string[255],  ó Γ« óαѼ∩ ¬á¬ Γ¿» Bufptr «»αÑñѽ∩ÑΓ π¬áºáΓѽ∞
¡á Buffer. ÅÑαѼѡ¡á∩ Buf1 ¿¼ÑÑΓ Γ¿»  Buffer,  «¡á  ºá¡¿¼áÑΓ
256  íá⌐Γ  »á¼∩Γ¿. ÅÑαѼѡ¡á∩ Buf2 ¿¼ÑÑΓ Γ¿» BufPtr; «¡á ß«-
ñÑαª¿Γ 32-í¿Γ«óδ⌐ áñαÑß ¿ ºá¡¿¼áÑΓ Γ«½∞¬« 4 íá⌐Γá »á¼∩Γ¿.
     ìá τΓ« π¬áºδóáÑΓ Buf2? é  ΓѬπΘ¿⌐  ¼«¼Ñ¡Γ  ¡¿  ¡á  τΓ«.
ÅαѪñÑ  τѼ ¿ß»«½∞º«óáΓ∞ BufPtr, ¡Ñ«íσ«ñ¿¼« óδñѽ¿Γ∞ ¡Ñ¬«Γ«-
α«Ñ ¬«½¿τÑßΓó« »á¼∩Γ¿ ¿ áñαÑß φΓ«⌐ »á¼∩Γ¿ ºá»«¼¡¿Γ∞ ó  Buf2.
ä½∩ φΓ«ú« ¿ß»«½∞ºπÑΓß∩ »α«µÑñπαá New:

     New(Buf2);

ū߬«½∞¬π Buf2 π¬áºδóáÑΓ ¡á Γ¿» Buffer, φëà  «»ÑαáΓ«α  ß«º-
ñáßΓ  256-íá⌐Γ«óδ⌐  íπΣÑα  ó  »á¼∩Γ¿  ¿ Ñú« áñαÑß »«¼ÑßΓ¿Γ ó
Buf2.
     èᬠ¿ß»«½∞ºπεΓß∩ ñá¡¡δÑ, ¡á ¬«Γ«αδÑ π¬áºδóáÑΓ  Buf2╝  æ
»«¼«Θ∞ε «»Ñαᵿ¿ αáºδ¼Ñ¡«óá¡¿∩ . ìá»α¿¼Ñα, ñ«»πßΓ¿¼, τΓ« óá¼
¡πª¡« ºá»¿ßáΓ∞ ßΓ᫬π ¬á¬ ó Buf1, Γᬠ¿ ó íπΣÑα, ¡á  ¬«Γ«αδ⌐
π¬áºδóáÑΓ Buf2. é φΓ«¼ ß½πτáÑ «»ÑαáΓ«αδ íπñπΓ ¿¼ÑΓ∞ ó¿ñ:

     Buf1 := '¥Γá ßΓ᫬á σαá¡¿Γß∩ ó Buf1.'
     Buf2 := '¥Γá ßΓ᫬á Γá¼, ¬πñá π¬áºδóáÑΓ Buf2.'

     ÄΓ¼ÑΓ¿¼ αẽ¿τ¿Ñ ¼Ñªñπ Buf2  ¿  Buf2.  Buf2  «í«º¡áτáÑΓ
4-íá⌐Γ«óπε    »ÑαѼѡ¡πε    π¬áºáΓѽ∩;    Buf2    «í«º¡áτáÑΓ
256-íá⌐Γ«óπε ßΓ᫬«óπε »ÑαѼѡ¡πε, áñαÑß ¬«Γ«α«⌐ σαá¡¿Γß∩  ó
Buf2.
     èᬿ¼ «íαẫ¼ «τ¿ΘáÑΓß∩ »á¼∩Γ∞,  ¡á  ¬«Γ«απε  π¬áºδóáÑΓ
Buf2?  æ  »«¼«Θ∞ε  »α«µÑñπαδ  Dispose. Dispose ñѽáÑΓ »á¼∩Γ∞
ñ«ßΓπ»¡«⌐ ñ½∩ ñαπú«ú« ¿ß»«½∞º«óá¡¿∩. Å«ß½Ñ Γ«ú«, ¬á¬ ¬  π¬á-
ºáΓÑ½ε  »α¿¼Ñ¡Ñ¡á  »α«µÑñπαá  dispose,  «í∩ºáΓѽ∞¡«  ß½ÑñπÑΓ
»α¿ßó«¿Γ∞ φΓ«¼π π¬áºáΓѽε (óßΓα«Ñ¡¡«Ñ) º¡áτÑ¡¿Ñ nil. ¥Γ« «º-
¡áτáÑΓ, τΓ« π¬áºáΓѽ∞ ¡¿ ¡á τΓ« í«½∞ΦÑ ¡Ñ π¬áºδóáÑΓ:

     Dispose(Buf2);
     Buf2 := nil;

ÄΓ¼ÑΓ¿¼, τΓ« º¡áτÑ¡¿Ñ nil »α¿ßóá¿óáÑΓß∩ Buf2, á ¡Ñ Buf2.
     ìá φΓ«¼ ºá¬á¡τ¿óáÑΓß∩ ¡áΦÑ ¬αáΓ¬«Ñ αáßß¼«ΓαÑ¡¿Ñ  π¬áºá-
ΓѽÑ⌐;  ó  ½εí«¼  σ«α«ΦѼ  «»¿ßá¡¿¿ ∩ºδ¬á Åá߬á½∩ éδ ¡á⌐ñÑΓÑ
ßóÑñÑ¡¿∩, ¬á¬ ¿ úñÑ ¿σ ¿ß»«½∞º«óáΓ∞.

                       êñÑ¡Γ¿Σ¿¬áΓ«αδ

     ä« ß¿σ »«α ¼δ ñáó὿ ¿¼Ñ¡á »ÑαѼѡ¡δ¼,  ¡Ñ  ºáí«Γ∩ß∞  «
ΓÑσ  «úαá¡¿τÑ¡¿∩σ,  ¬«Γ«αδÑ  ¼«úπΓ íδΓ∞ ñ½∩ ¡¿σ πßΓá¡«ó½Ñ¡δ.
ÆÑ»Ñα∞ αáßß¼«Γα¿¼ φΓ¿ «úαá¡¿τÑ¡¿∩.
     ê¼Ñ¡á, ¬«Γ«αδÑ ñáεΓß∩ ¬«¡ßΓá¡Γá¼, Γ¿»á¼  ñá¡¡δσ,  »ÑαÑ-
¼Ñ¡¡δ¼  ¿ Σπ¡¬µ¿∩¼, ¡áºδóáεΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αἿ. ô»«¼¿¡áѼδÑ
ñá½∞ΦÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ¿ß»«½∞ºπεΓß∩ ñ½∩:

 integer,real,string   éßΓα«Ñ¡¡δσ Γ¿»«ó ñá¡¡δσ
 Hello,DoSum,DoRatio   Äß¡«ó¡«⌐ Σπ¡¬µ¿¿ »α«úαá¼¼δ
 Name,A,B,Sum,Ratio    ÅÑαѼѡ¡δσ, «»αÑñѽ∩Ѽδσ
 »«½∞º«óáΓѽѼ
 Write,Writeln,Readln  éßΓα«Ñ¡¡δσ »α«µÑñπα

     Æπαí«-Åá߬á½∞ ¿¼ÑÑΓ ¡Ñ߬«½∞¬« ¡«óδσ »αáó¿½  ¿ß»«½∞º«óá-
¡¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó. ì¿ªÑ ñá¡« ¬αáΓ¬«Ñ ¿σ «»¿ßá¡¿Ñ:

     - éßÑ ¿ñÑ¡Γ¿Σ¿¬á¬Γ«αδ ñ«½ª¡δ ¡áτ¿¡áΓ∞ß∩ ß íπ¬óδ  (a...z
¿½¿  A...Z).  é  «ßΓá½∞¡«⌐ τáßΓ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¼«úπΓ ß«ñÑα-
ªáΓ∞ß∩ íπ¬óδ, º¡á¬¿ »«ñτÑનóá¡¿∩ ¿/¿½¿ µ¿Σαδ (0...9); ¡¿¬á-
¬¿Ñ ñαπú¿Ñ ß¿¼ó«½δ ¡Ñ ñ«»πßΓ¿¼δ.
     - êñÑ¡Γ¿Σ¿¬áΓ«αδ ¿ß»«½∞ºπεΓß∩ íѺ πτÑΓá  αÑú¿ßΓαá,  φΓ«
«º¡áτáÑΓ, τΓ« ßΓα«τ¡δÑ íπ¬óδ (a...z) αáßßáΓα¿óáεΓß∩ Γ«ªñÑßΓ-
óÑ¡¡δ¼¿ »α«»¿ß¡δ¼ íπ¬óá¼ (A...Z).  ìá»α¿¼Ñα,  ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ
idnx, Idnx ¿ IDNX ∩ó½∩εΓß∩ Γ«ªñÑßΓóÑ¡¡δ¼¿.
     - êñÑ¡Γ¿Σ¿¬áΓ«αδ ¼«úπΓ ¿¼ÑΓ∞  ½εíπε  ñ½¿¡π,  ¡«  Γ«½∞¬«
»ÑαóδÑ 63 ß¿¼ó«½á ∩ó½∩εΓß∩ º¡áτáΘ¿¼¿.

                          Ä»Ñαᵿ¿

     Å«ß½Ñ Γ«ú«, ¬á¬ ñá¡¡δÑ »«½πτÑ¡δ »α«úαá¼¼«⌐ (¿ »α¿ßó«Ñ¡δ
»ÑαѼѡ¡δ¼),  ¿σ  ¡πª¡«  ¬á¬¿¼-Γ«  «íαẫ¼ «íαáíáΓδóáΓ∞, ñ½∩
φΓ«ú« ó óáΦѼ αáß»«α∩ªÑ¡¿¿ ¿¼ÑεΓß∩  «»Ñαᵿ¿.  ¥Γ¿  «»Ñαᵿ¿
«Γ¡«ß∩Γß∩ ¬ ó«ß∞¼¿ Γ¿»á¼: «»Ñαᵿ¿ »α¿ßóá¿óá¡¿∩, π¡áα¡δÑ/í¿-
¡áα¡δÑ «»Ñαᵿ¿, »«αáºα∩ñ¡δÑ «»Ñαᵿ¿ («»Ñαᵿ¿ ¡áñ í¿ΓἿ),
«»Ñαᵿ¿  «Γ¡«ΦÑ¡¿⌐, ½«ú¿τÑ߬¿Ñ «»Ñαᵿ¿, «»Ñαᵿ¿ ¡áñ áñαÑ-
ßἿ, «»Ñαᵿ¿ ¡áñ ¼¡«ªÑßΓóἿ ¿ «»Ñαᵿ¿ ¡áñ ßΓα«¬á¼¿.
     ü«½∞Φ¿¡ßΓó« «»Ñαᵿ⌐ ó Åá߬á½Ñ ∩ó½∩εΓß∩  í¿¡áα¡δ¼¿,  Γ«
ÑßΓ∞  ¿¼ÑεΓ  ñóá  «»Ñαá¡ñá;  «ßΓá½∞¡δÑ ∩ó½∩εΓß∩ π¡áα¡δ¼¿, Γ«
ÑßΓ∞ ¿¼ÑεΓ Γ«½∞¬«  «ñ¿¡  «»Ñαá¡ñ.  ü¿¡áα¡δÑ  «»Ñαᵿ¿  ¿¼ÑεΓ
«íδτ¡πε  á½úÑíαá¿τÑ߬πε Σ«α¼π, ¡á»α¿¼Ñα, a + b. ô¡áα¡á∩ «»Ñ-
αᵿ∩ »αÑñΦÑßΓóπÑΓ ßó«Ñ¼π «»Ñαá¡ñπ, ¡á»α¿¼Ñα, -b.
     é ß½«ª¡δσ óδαáªÑ¡¿∩σ »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ «»Ñαᵿ⌐  πßΓá-
¡áó½¿- óáÑΓß∩ »αáó¿½á¼¿ »α¿«α¿ΓÑΓá (ß¼. Æáí½¿µπ 3.3).

                                         Æáí½¿µá 3.3
                   Åα¿«α¿ΓÑΓ «»Ñαᵿ⌐
------------------------------------------------------------
Ä»Ñαᵿ¿                   Åα¿«α¿ΓÑΓ         èáΓÑú«α¿¿
------------------------------------------------------------
@,not                    ÅÑαóδ⌐(óδßΦ¿⌐)     π¡áα¡δÑ «»Ñαᵿ¿
*,/,div,mod,and,shl,shr  éΓ«α«⌐
 ¼π½∞Γ¿»½¿¬áΓ¿ó¡δÑ
                                            «»Ñαᵿ¿
+,-,or,xor               ÆαÑΓ¿⌐             áññ¿Γ¿ó¡δÑ
 «»Ñαᵿ¿
=,<>,<,>,<=,>=,in        ùÑΓóÑαΓδ⌐(¡¿ºΦ¿⌐)  «»Ñαᵿ¿
 «Γ¡«ΦÑ¡¿∩
------------------------------------------------------------

     Ä»Ñαᵿ¿ ß αáó¡δ¼ »α¿«α¿ΓÑΓÑΓ«¼, ¬á¬ »αá󿽫,  óδ»«½¡∩-
εΓß∩ ß»αáóá ¡á½Ñó«, σ«Γ∩ ¿¡«úñá ¬«¼»¿½∩Γ«α ¼«ªÑΓ »ÑαÑúαπ»»¿-
α«óáΓ∞ «»Ñαá¡ñδ ó µÑ½∩σ úÑ¡Ñαᵿ¿ «»Γ¿¼á½∞¡«ú« ¬«ñá.
     Å«ß½Ññ«óáΓѽ∞¡«ßΓ¿ «»Ñαᵿ⌐  ß  «ñ¿¡á¬«óδ¼  »α¿«α¿ΓÑΓ«¼
óδτ¿ß½∩εΓß∩  ß½Ñóá ¡á»αáó«. éδαáªÑ¡¿∩, ºá¬½ετÑ¡¡δÑ ó ߬«í¬¿,
óδτ¿ß½∩εΓß∩ »Ñαó묨 ¡Ñºáó¿ß¿¼« «Γ Γ«ú«, ¬á¬«óδ  »αÑñΦÑßΓóπε-
Θ¿Ñ ¿½¿ »«ß½ÑñπεΘ¿Ñ «»Ñαᵿ¿.

                   Ä»Ñαᵿ¿ »α¿ßóá¿óá¡¿∩

     üẫó«⌐ «»ÑαᵿÑ⌐ ∩ó½∩ÑΓß∩ «»Ñαᵿ∩  »α¿ßóá¿óá¡¿∩,  ¬á¬
¡á»α¿¼Ñα, ó Ratio := Ç/é. é Åá߬á½Ñ º¡á¬ »α¿ßóá¿óá¡¿∩ »αÑñß-
Γáó½∩ÑΓ ß«í«⌐ ¬«¼í¿¡áµ¿ε  ¿º  ñó«ÑΓ«τ¿∩  ¿  º¡á¬á  αáóÑ¡ßΓóá
(:=).  é  »α¿óÑñÑ¡¡«¼  »α¿¼ÑαÑ  º¡áτÑ¡¿Ñ Ç/é ß»αáóá «Γ º¡á¬á
»α¿ßóá¿óá¡¿∩ »α¿ßóá¿óáÑΓß∩ »ÑαѼѡ¡«⌐ Ratio,  ¬«Γ«αá∩  ßΓ«¿Γ
ß½Ñóá.

                ô¡áα¡δÑ ¿ í¿¡áα¡δÑ «»Ñαᵿ¿

     Åá߬á½∞ »«ññÑনóáÑΓ ßΓá¡ñáαΓ¡δ⌐ ¡áí«α í¿¡áα¡δσ áα¿Σ¼Ñ-
Γ¿τÑ߬¿σ  «»Ñαᵿ⌐, ¬«Γ«αδÑ óδ»«½¡∩εΓß∩ ¡áñ µÑ½δ¼¿ ¿ óÑΘÑßΓ-
óÑ¡¡δ¼¿ º¡áτÑ¡¿∩¼¿:

     - π¼¡«ªÑ¡¿Ñ (*)
     - ñѽѡ¿Ñ µÑ½δσ τ¿ßѽ (div)
     - ñѽѡ¿Ñ óÑΘÑßΓóÑ¡¡δσ τ¿ßѽ (/)
     - óº∩Γ¿Ñ »« ¼«ñπ½ε (mod)
     - ß½«ªÑ¡¿Ñ (+)
     - óδτ¿Γá¡¿Ñ (-)

     èα«¼Ñ  Γ«ú«,  Åá߬á½∞  »«ññÑনóáÑΓ  π¡áα¡δÑ  «»Ñαᵿ¿:
π¡áα¡δ⌐  ¼¿¡πß  (a+(-b)),  ¬«Γ«αδ⌐  óδ»«½¡∩ÑΓ  ñ«»«½¡Ñ¡¿Ñ ñ«
ñóπσ, ¿ π¡áα¡δ⌐ »½εß (a+(+b)), ¬«Γ«αδ⌐ ¡¿τÑú« ¡Ñ  óδ»«½¡∩ÑΓ,
¡« óóÑñÑ¡ ñ½∩ »«½¡«Γδ.

                    Å«αáºα∩ñ¡δÑ «»Ñαᵿ¿

     ä½∩ ñÑ⌐ßΓó¿⌐ ¡áñ í¿ΓἿ Åá߬á½∞ ¿¼ÑÑΓ ß½ÑñπεΘ¿Ñ  «»Ñαá-
樨:

 shl(ßñó¿ú ó½Ñó«)   æñó¿úáÑΓ í¿Γδ ó½Ñó« ¡á π¬áºá¡¡«Ñ ¬«½¿τÑßΓó«
                    αáºα∩ñ«ó, ºá»«½¡∩∩ «ßΓáεΘ¿Ñß∩ ß»αáóá αáºα∩ñδ
                    ¡π½∩¼¿.
 shr(ßñó¿ú ó»αáó«)  æñó¿úáÑΓ í¿Γδ ó»αáó« ¡á π¬áºá¡¡«Ñ ¬«½¿τÑßΓó«
                    αáºα∩ñ«ó, ºá»«½¡∩∩ «ßΓáεΘ¿Ñß∩ ß½Ñóá αáºα∩ñδ
                    ¡π½∩¼¿.
 and                éδ»«½¡∩ÑΓ ½«ú¿τÑ߬«Ñ π¼¡«ªÑ¡¿Ñ and ¡áñ ¬áªñ«⌐
                    ß««ΓóÑΓßΓóπεΘÑ⌐ »áα«⌐ í¿Γ«ó, ó«ºóαáΘá∩ 1,
                    Ñß½¿ «íá í¿Γá ß«ñÑαªáΓ 1, ¿½¿ 0 ó «íαáΓ¡«¼
                    ß½πτáÑ.
 or                 éδ»«½¡∩ÑΓ ½«ú¿τÑ߬«Ñ ß½«ªÑ¡¿Ñ or ¡áñ ¬áªñ«⌐
                    ß««ΓóÑΓßΓóπεΘÑ⌐ »áα«⌐ í¿Γ«ó, ó«ºóαáΘá∩ 0,
                    Ñß½¿ «íá í¿Γá ß«ñÑαªáΓ 0, ¿½¿ 1 ó «íαáΓ¡«¼
                    ß½πτáÑ.
 xor                éδ»«½¡∩ÑΓ ½«ú¿τÑ߬«Ñ ß½«ªÑ¡¿Ñ »« ¼«ñπ½ε 2 ¡áñ
                    ¬áªñ«⌐ ß««ΓóÑΓßΓóπεΘÑ⌐ »áα«⌐ í¿Γ«ó, ó«ºóαáΘá∩
                    1, Ñß½¿ í¿Γδ «Γ½¿τ¡δ ñαπú «Γ ñαπúá, ¿½¿ 0 ó
                    «íαáΓ¡«¼ ß½πτáÑ.
 not                éδ»«½¡∩ÑΓ «»Ñαáµ¿ε ½«ú¿τÑ߬«ú« ñ«»«½¡Ñ¡¿∩ ¡áñ
                    ¬áªñδ¼ í¿Γ«¼, ¿º¼Ñ¡∩∩ 0 ¡á 1 ¿ «íαáΓ¡«.

     ¥Γ¿ «»Ñαᵿ¿ »«ºó«½∩εΓ óδ»«½¡∩Γ∞ ñÑ⌐ßΓó¿∩ ¡á «τÑ¡∞ ¡¿º-
¬«¼ πα«ó¡Ñ ß µÑ½«τ¿ß½Ñ¡¡δ¼¿ º¡áτÑ¡¿∩¼¿.

                     Ä»Ñαᵿ¿ «Γ¡«ΦÑ¡¿⌐

     Ä»Ñαᵿ¿ «Γ¡«ΦÑ¡¿∩ »«ºó«½∩εΓ ßαáó¡¿óáΓ∞  ñóá  º¡áτÑ¡¿∩,
ó«ºóαáΘá∩  ó  αѺπ½∞ΓáΓÑ  íπ½Ñó߬«Ñ º¡áτÑ¡¿Ñ Ærue ¿½¿ False.
ì¿ªÑ »α¿ó«ñ∩Γß∩ «»Ñαᵿ¿ «Γ¡«ΦÑ¡¿∩, αÑ὿ºπѼδÑ ó Åá߬á½Ñ:

     >      í«½∞ΦÑ
     >=     í«½∞ΦÑ ¿½¿ αáó¡«
     <      ¼Ñ¡∞ΦÑ
     >=     ¼Ñ¡∞ΦÑ ¿½¿ αáó¡«
     =      αáó¡«
     <>     ¡Ñ αáó¡«
     in     ÑßΓ∞ φ½Ñ¼Ñ¡Γ

     Å«τѼπ ¡Ñ«íσ«ñ¿¼« º¡áΓ∞, ¿¼ÑÑΓ ½¿ ¼ÑßΓ«  º¡áτÑ¡¿Ñ  Ærue
¿½¿ False? éóÑñѼ ß½ÑñπεΘπε »α«úαá¼¼π:

program TestGreater;
var
  A,B    : integer;
  Test   : boolean;
begin
  Write('éóÑñ¿ΓÑ ñóá τ¿ß½á: ');
  Readln(A,B);
  Test := A > B;
  Writeln('A í«½∞ΦÑ B', Test);
end.

Åα¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ íπñÑΓ ¡á»ÑτáΓá¡« Ærue, Ñß½¿ Ç í«½∞-
ΦÑ é, ¿½¿ False, Ñß½¿ Ç ¼Ñ¡∞ΦÑ ¿½¿ αáó¡« é.

                    ï«ú¿τÑ߬¿Ñ «»Ñαᵿ¿

     ê¼ÑÑΓß∩ τÑΓδαÑ ½«ú¿τÑ߬¿Ñ «»Ñαᵿ¿ - and, xorr,  orr  ¿
not,  ¬«Γ«αδÑ σ«Γ∩ ¿ á¡á½«ú¿τ¡δ »«αáºα∩ñ¡δ¼ «»Ñαᵿ∩¼, ¡« ¡Ñ
Γ«ªñÑßΓóÑ¡¡δ ¿¼. ï«ú¿τÑ߬¿Ñ «»Ñαᵿ¿ óδ»«½¡∩εΓß∩  ¡áñ  ½«ú¿-
τÑ߬¿¼¿  º¡áτÑ¡¿∩¼¿  (Ærue  ¿ False), »«ºó«½∩∩ ¬«¼í¿¡¿α«óáΓ∞
óδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩, íπ½Ñóδ »ÑαѼѡ¡δÑ ¿  íπ½Ñó߬¿Ñ  óδαáªÑ-
¡¿∩.
     Ä¡¿ «Γ½¿τáεΓß∩ «Γ ß««ΓóÑΓßΓóπεΘ¿σ »«αáºα∩ñ¡δσ «»αÑαᵿ⌐
ß½ÑñπεΘ¿¼ «íαẫ¼:

     - ï«ú¿τÑ߬¿Ñ «»Ñαᵿ¿ óßÑúñá ó ¬áτÑßΓóÑ αѺπ½∞ΓáΓá ¿¼Ñ-
εΓ  Ærue ¿½¿ False (Γ« ÑßΓ∞ íπ½Ñó« º¡áτÑ¡¿Ñ), ó Γ« óαѼ∩ ¬á¬
»«αáºα∩ñ¡δÑ «»Ñαᵿ¿ óδ»«½¡∩εΓ »«í¿Γ¡δÑ ñÑ⌐ßΓó¿∩  ¡áñ  µÑ½«-
τ¿ß½Ñ¡¡δ¼¿ º¡áτÑ¡¿∩¼¿.
     - ¥Γ¿ «»Ñαᵿ¿ ¡Ñ »«ºó«½∩εΓ ¬«¼í¿¡¿α«óáΓ∞ íπ½Ñóδ ¿  µÑ-
½«τ¿ß½Ñ¡¡δÑ  óδαáªÑ¡¿∩;  ñαπú¿¼¿ ß½«óἿ, óδαáªÑ¡¿Ñ Flag and
Indx ¡Ññ«»πßΓ¿¼«, Ñß½¿ Flag ¿¼ÑÑΓ íπ½Ñó Γ¿», Indx - µÑ½«τ¿ß-
½Ñ¡¡δ⌐ Γ¿» (¿ ¡á«í«α«Γ).
     - Å« π¼«½τá¡¿ε ½«ú¿τÑ߬¿Ñ «»Ñαᵿ¿ and ¿ or óδ»«½¡∩εΓß∩
»«  ¬«α«Γ¬«⌐  ßσѼÑ,  á  «»Ñαᵿ¿ xor ¿ not - ¡ÑΓ. ä«»πßΓ¿¼,
¿¼ÑÑΓß∩ óδαáªÑ¡¿Ñ exp1 and exp2. àß½¿  exp1  ¿¼ÑÑΓ  º¡áτÑ¡¿Ñ
False,  Γ«  óδαáªÑ¡¿Ñ  ó  µÑ½«¼  Γá¬ªÑ  íπñÑΓ ¿¼ÑΓ∞ º¡áτÑ¡¿Ñ
False, »«φΓ«¼π exp2 ¡¿¬«úñá ¡Ñ óδτ¿ß½∩ÑΓß∩. ǡὫú¿τ¡δ¼  «í-
αẫ¼,  Ñß½¿ ñá¡« óδαáªÑ¡¿Ñ exp1 or exp2, Γ« exp2 ¡¿¬«úñá ¡Ñ
óδτ¿ß½∩ÑΓß∩, Ñß½¿ exp1 ¿¼ÑÑΓ º¡áτÑ¡¿Ñ Ærue. éδ ¼«ªÑΓÑ  πßΓá-
¡«ó¿Γ∞ óδτ¿ß½Ñ¡¿Ñ íπ½Ñóá óδαáªÑ¡¿∩ »« »«½¡«⌐ ßσÑ¼Ñ ß »«¼«Θ∞ε
ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$é+} ¿½¿ ß««ΓóÑΓßΓóπεΘÑ⌐ «»µ¿¿  ¿¡ΓÑ-
αá¬Γ¿ó¡«⌐ ßαÑñδ »α«úαá¼¼¿α«óá¡¿∩.

                   Ä»Ñαᵿ¿ ¡áñ áñαÑßἿ

     Åá߬á½∞ »«ññÑনóáÑΓ ñóÑ ß»Ñµ¿á½∞¡δÑ «»Ñαᵿ¿ ¡áñ áñαÑ-
ßἿ:  «»Ñαᵿε óδτ¿ß½Ñ¡¿∩ áñαÑßá (@) ¿ «»Ñαᵿε αáºδ¼Ñ¡«óá-
¡¿∩ (^).
     Ä»Ñαᵿ∩ @ ó«ºóαáΘáÑΓ áñαÑß ºáñá¡¡«⌐  »ÑαѼѡ¡«⌐.  àß½¿
Sum  ∩ó½∩ÑΓß∩ »ÑαѼѡ¡«⌐ µÑ½«τ¿ß½Ñ¡¡«ú« Γ¿»á, Γ« @Sum »αÑñß-
Γáó½∩ÑΓ ß«í«⌐ áñαÑß (∩τÑ⌐¬π ó »á¼∩Γ¿) φΓ«⌐ »ÑαѼѡ¡«⌐.  Ç¡á-
½«ú¿τ¡δ¼  «íαẫ¼,  Ñß½¿ æhrPtr ∩ó½∩ÑΓß∩ π¬áºáΓѽѼ ñ½∩ Γ¿»á
char, Γ« æhrPtr »αÑñßΓáó½∩ÑΓ ß«í«⌐ ß¿¼ó«½, ¡á ¬«Γ«αδ⌐ π¬áºδ-
óáÑΓ æhrPtr.

                  Ä»Ñαᵿ¿ ¡áñ ¼¡«ªÑßΓóἿ

     Ä»Ñαᵿ¿ ¡áñ ¼¡«ªÑßΓóἿ óδ»«½¡∩εΓß∩ ó  ß««ΓóÑΓßΓó¿¿  ß
»αáó¿½á¼¿  ΓÑ«α¿¿ ¼¡«ªÑßΓó. Ä»Ñαᵿ¿ ¡áñ ¼¡«ªÑßΓóἿ ó¬½ετá-
εΓ:

      +     «íΩÑñ¿¡Ñ¡¿Ñ
      (-)   αạ«ßΓ∞
      *     π¼¡«ªÑ¡¿Ñ

                   Ä»Ñαᵿ¿ ¡áñ ßΓα«¬á¼¿

     àñ¿¡ßΓóÑ¡¡«⌐ «»ÑαᵿÑ⌐ ¡áñ ßΓα«¬á¼¿  ∩ó½∩ÑΓß∩  «»Ñαᵿ∩
+, ¬«Γ«αá∩ ¿ß»«½∞ºπÑΓß∩ ñ½∩ ¬«¡¬áΓѡᵿ¿ ñóπσ ßΓ᫬.

                           éδó«ñ

     ÑΓ »«¬áºáΓ∞ß∩ ºáíáó¡δ¼, τΓ« « óδó«ñÑ αÑτ∞ ¿ñÑΓ αá¡∞-
ΦÑ,  τѼ  « óó«ñÑ, «ñ¡á¬« »α«úαá¼¼á íѺ óδó«ñá ¿¡Σ«α¼áµ¿¿ ¡Ñ
»αÑñßΓáó½∩ÑΓ ¡¿¬á¬«⌐ »«½∞ºδ. éδó«ñ «íδτ¡«  »α¿¡¿¼áÑΓ  Σ«α¼π,
ºáó¿ß∩Θπε «Γ Γ«ú«, ¬πñá óδó«ñ¿Γß∩ ¿¡Σ«α¼áµ¿∩: ¡á φ¬αá¡ (ß½«-
óá ¿ ¿º«íαáªÑ¡¿∩), ¿½¿ ¡á ºá»«¼¿¡áεΘÑÑ πßΓα«⌐ßΓó« (ú¿í¬¿Ñ  ¿
ªÑßΓ¬¿Ñ  ñ¿ß¬¿),  ¿½¿  ó »«αΓ óó«ñá/óδó«ñá (»«ß½Ññ«óáΓѽ∞¡δ⌐
»«αΓ ¿½¿ »«αΓ »ÑτáΓáεΘÑú« πßΓα«⌐ßΓóá).

                     Åα«µÑñπαá Writeln

     éδ πªÑ ¿ß»«½∞º«ó὿ ¡á¿í«½ÑÑ  αáß»α«ßΓαá¡Ñ¡¡πε  Σπ¡¬µ¿ε
óδó«ñá  ó Åá߬á½Ñ - »«ñ»α«úαá¼¼π Writeln. ìạáτÑ¡¿Ñ Writeln
- óδó«ñ¿Γ∞ ¿¡Σ«α¼áµ¿ε ¡á φ¬αá¡. àÑ Σ«α¼áΓ »α«ßΓ  ¿  ú¿í«¬  ó
¿ß»«½∞º«óá¡¿¿:

     Writeln(φ½Ñ¼Ñ¡Γ,φ½Ñ¼Ñ¡Γ,...);

úñÑ ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ - φΓ« Γ«, τΓ« ¡πª¡« ¡á»ÑτáΓáΓ∞ ¡á φ¬αá¡Ñ.
¥½Ñ¼Ñ¡Γ«¼  ¼«ªÑΓ  íδΓ∞ ½¿ΓÑαá½∞¡«Ñ º¡áτÑ¡¿Ñ, ¡á»α¿¼Ñα, µÑ½«Ñ
¿½¿ óÑΘÑßΓóÑ¡¡«Ñ  τ¿ß½«  (3,42,-1732.3),  ß¿¼ó«½  ('á','Z'),
ßΓα«¬á  ('Hello,world')  ¿½¿  íπ½Ñó«  º¡áτÑ¡¿Ñ (Ærue). èα«¼Ñ
Γ«ú«, ¿¼ ¼«ªÑΓ íδΓ∞ ¿¼Ñ¡«óá¡¡á∩ ¬«¡ßΓá¡Γá, »ÑαѼѡ¡á∩, αáºδ-
¼Ñ¡«óá¡¡δ⌐ π¬áºáΓѽ∞ ¿½¿ «íαáΘÑ¡¿Ñ ¬ Σπ¡¬µ¿¿, Ñß½¿ «¡á ó«ºó-
αáΘáÑΓ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ ¿¼ÑÑΓ µÑ½δ⌐, óÑΘÑßΓóÑ¡¡δ⌐, ß¿¼ó«½∞-
¡δ⌐,  ßΓ᫬«óδ⌐ ¿½¿ íπ½Ñó Γ¿». éßÑ φ½Ñ¼Ñ¡Γδ »ÑτáΓáεΓß∩ ó «ñ-
¡«⌐ ßΓα«¬Ñ ó ºáñá¡¡«¼ »«α∩ñ¬Ñ. Å«ß½Ñ φΓ«ú« ¬παß«α πßΓá¡áó½¿-
óáÑΓß∩  ó  ¡áτὫ  ß½ÑñπεΘÑ⌐ ßΓ᫬¿. àß½¿ óδ σ«Γ¿ΓÑ «ßΓáó¿Γ∞
¬παß«α ¡á Γ«⌐ ªÑ ßΓα«¬Ñ »«ß½Ñ »«ß½Ññ¡Ñú«  φ½Ñ¼Ñ¡Γá,  Γ«  ¿ß-
»«½∞ºπ⌐ΓÑ «»ÑαáΓ«α:

     Write(φ½Ñ¼Ñ¡Γ,φ½Ñ¼Ñ¡Γ,...);

è«úñá αáß»ÑτáΓδóáεΓß∩ φ½Ñ¼Ñ¡Γδ »« «»ÑαáΓ«απ  Writeln,  ¼Ñªñπ
¡¿¼¿  áóΓ«¼áΓ¿τÑ߬¿  ¡Ñ  óßΓáó½∩εΓß∩ »α«íѽδ; Ñß½¿ éδ σ«Γ¿ΓÑ
αáºñѽ¿Γ∞ φ½Ñ¼Ñ¡Γδ »α«íѽἿ, Γ« éδ ñ«½ª¡δ π¬áºáΓ∞ ¿σ  ßἿ,
¡á»α¿¼Ñα:

     Writeln(φ½Ñ¼Ñ¡Γ,' ',φ½Ñ¼Ñ¡Γ,' ',...);

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

  A := 1; B := 2; C := 3;
  Name := 'Frank';
  Writeln(A,B,C);                123
  Writeln(A,' ',B,' ',C);        1 2 3
  Writeln('Hi',Name);            HiFrank
  Writeln('Hi, ',Name,'.');      Hi, Frank.

     èα«¼Ñ Γ«ú«, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ߻ѵ¿Σ¿¬áΓ«αδ ñ½∩  «»αÑ-
ñѽѡ¿∩ Φ¿α¿¡δ »«½∩ ñ½∩ ñá¡¡«ú« φ½Ñ¼Ñ¡Γá. é φΓ«¼ ß½πτáÑ «»Ñ-
αáΓ«α ¿¼ÑÑΓ Σ«α¼áΓ:

     Writeln(φ½Ñ¼Ñ¡Γ:Φ¿α¿¡á,...)

úñÑ Φ¿α¿¡á - µÑ½«Ñ óδαáªÑ¡¿Ñ (½¿ΓÑαá½,  ¬«¡ßΓá¡Γá,  »ÑαѼѡ-
¡á∩,  «íαáΘÑ¡¿Ñ ¬ Σπ¡¬µ¿¿ ¿½¿ ¬«¼í¿¡áµ¿∩ ¿º ¡¿σ), «»αÑñѽ∩ε-
ΘÑÑ «íΘπε ñ½¿¡π »«½∩, ó ¬«Γ«α«¼ ñ«½ªÑ¡ íδΓ∞ ºá»¿ßá¡ φ½Ñ¼Ñ¡Γ.
ìá»α¿¼Ñα,  αáßß¼«Γα¿¼ ß½ÑñπεΘπε »α«úαá¼¼π ¿ »«½πτÑ¡¡δ⌐ ó αÑ-
ºπ½∞ΓáΓÑ óδó«ñ:

  A := 10; B := 2; C := 100;
  Writeln(A,B,C);                  102100
  Writeln(a:2,B:2,C:2);            10 2100
  Writeln(A:3,B:3,C:3);             10  2100
  Writeln(A,B:2,C:4);              10 2 100

ÄΓ¼ÑΓ¿¼, τΓ« φ½Ñ¼Ñ¡Γ ñ«»«½¡∩ÑΓß∩ ¡áτá½∞¡δ¼¿ »α«íѽἿ  ß½Ñóá
ß ΓѼ, τΓ«íδ ß««ΓóÑΓßΓó«óáΓ∞ π¬áºá¡¡«⌐ ñ½¿¡Ñ »«½∩. æἫ º¡á-
τÑ¡¿Ñ óδαáó¡¿óáÑΓß∩ ß»αáóá.
     ùΓ« Ñß½¿ Φ¿α¿¡á »«½∩ ¼Ñ¡∞ΦÑ, τѼ ¡Ñ«íσ«ñ¿¼«? é«  óΓ«α«¼
«»ÑαáΓ«αÑ  Writeln ¿º »α¿óÑñÑ¡¡«ú« óδΦÑ »α¿¼Ñαá ñ½∩ æ, ¿¼Ñε-
ΘÑú« º¡áτÑ¡¿Ñ 100, Φ¿α¿¡á »«½∩ π¬áºá¡á  2,  σ«Γ∩  ¡Ñ«íσ«ñ¿¼á
Φ¿α¿¡á 3. èᬠéδ ó¿ñÑΓÑ ó óδó«ñÑ, Åá߬á½∞ πóѽ¿τ¿½ Φ¿α¿¡π ñ«
¼¿¡¿¼á½∞¡«ú« ¡Ñ«íσ«ñ¿¼«ú« αẼÑαá.
     ¥Γ«Γ ß»«ß«í óδ»«½¡∩ÑΓß∩ ñ½∩ óßÑσ ñ«»πßΓ¿¼δσ  φ½Ñ¼Ñ¡Γ«ó:
µÑ½δσ  τ¿ßѽ,  óÑΘÑßΓóÑ¡¡δσ τ¿ßѽ, ß¿¼ó«½«ó, ßΓ᫬ ¿ íπ½Ñóδσ
óδαáªÑ¡¿⌐. Äñ¡á¬«, »α¿ π¬áºá¡¿¿  ߻ѵ¿Σ¿¬áΓ«αá  Φ¿α¿¡δ  »«½∩
óÑΘÑßΓóÑ¡¡δÑ τ¿ß½á αáß»ÑτáΓδóáεΓß∩ ó φ¬ß»«¡Ñ¡µ¿á½∞¡«⌐ Σ«α¼Ñ:

  X := 421.53;
  Writeln(X);              4.2153000000E+02
  Writeln(X:8);            4.2E+02

     Å«φΓ«¼π Åá߬á½∞ »«ºó«½∩ÑΓ ñ«íáó¿Γ∞ óΓ«α«⌐  ߻ѵ¿Σ¿¬áΓ«α
Φ¿α¿¡δ  »«½∩: φ½Ñ¼Ñ¡Γ:Φ¿α¿¡á:µ¿Σαδ. ¥Γ« óΓ«α«Ñ º¡áτÑ¡¿Ñ π¬á-
ºδóáÑΓ αáß»ÑτáΓáΓ∞ óÑΘÑßΓóÑ¡¡«Ñ τ¿ß½« ó Σ«α¼áΓÑ  ß  Σ¿¬ß¿α«-
óá¡¡«⌐ Γ«τ¬«⌐ ¿ «»αÑñѽ∩ÑΓ, ߬«½∞¬« µ¿Σα »«¼ÑßΓ¿Γ∞ »«ß½Ñ ñÑ-
ß∩Γ¿τ¡«⌐ Γ«τ¬¿:

     X := 421.53;
     Writeln(X:6:2); 421.53
     Writeln(X:8:2); 421.53
     Writeln(X:8:4); 421.5300

                            éó«ñ

     æΓá¡ñáαΓ¡δ⌐ Åá߬á½∞ ¿¼ÑÑΓ ñóÑ  «ß¡«ó¡δÑ  Σπ¡¬µ¿¿  óó«ñá
Read  ¿ Readln, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ñ½∩ τΓÑ¡¿∩ ñá¡¡δσ, óó«-
ñ¿¼δσ ß ¬½áó¿áΓπαδ. ÄíΘ¿⌐ Σ«α¼áΓ φΓ¿σ «»ÑαáΓ«α«ó ß½ÑñπεΘ¿⌐:

     Read(φ½Ñ¼Ñ¡Γ,φ½Ñ¼Ñ¡Γ,...); ¿½¿
     Readln(φ½Ñ¼Ñ¡Γ,φ½Ñ¼Ñ¡Γ,...);

úñÑ ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »ÑαѼѡ¡πε µÑ½«ú«, óÑ-
ΘÑßΓóÑ¡¡«ú«,  ß¿¼ó«½∞¡«ú«  ¿½¿ ßΓ᫬«ó«ú« Γ¿»á. ù¿ß½á ñ«½ª¡δ
«Γñѽ∩Γ∞ß∩ «Γ ñαπú¿σ º¡áτÑ¡¿⌐ »α«íѽἿ ¿½¿ ¡áªáΓ¿Ñ¼ ¬½áó¿Φ¿
"Enter".

                     Ä»ÑαáΓ«αδ πß½«ó¿∩

     ê¡«úñá íδóáÑΓ ¡Ñ«íσ«ñ¿¼«, τΓ«íδ ¡Ñ¬«Γ«αá∩  τáßΓ∞  »α«ú-
αá¼¼δ  íδ½á óδ»«½¡Ñ¡á, Ñß½¿ ¡Ñ¬«Γ«α«Ñ ºáñá¡¡«Ñ πß½«ó¿Ñ ¿¼ÑÑΓ
º¡áτÑ¡¿Ñ Ærue ¿½¿ ªÑ ¡Ñ ¿¼ÑÑΓ, ¿½¿ Ñß½¿  ¡Ñ¬«Γ«α«Ñ  ºáñá¡¡«Ñ
óδαáªÑ¡¿Ñ  »α¿¡¿¼áÑΓ  «»αÑñѽѡ¡«Ñ  º¡áτÑ¡¿Ñ. Å«ß¼«Γα¿¼, ¬á¬
φΓ« αÑ὿ºπÑΓß∩ ó Åá߬á½Ñ.

                        Ä»ÑαáΓ«α If

     Å«ß¼«Γα¿¼, ¬á¬ ¿ß»«½∞º«óá½ß∩ «»ÑαáΓ«α if  ó  »αÑñδñπΘ¿σ
»α¿¼Ñαáσ.  ÄΓ¼ÑΓ¿¼,  τΓ« «¡ ¼«ªÑΓ ¿¼ÑΓ∞ ß½ÑñπεΘ¿⌐ «í«íΘÑ¡¡δ⌐
Σ«α¼áΓ:

    if óδαáªÑ¡¿Ñ
      then «»ÑαáΓ«α1
      else «»ÑαáΓ«α2

úñÑ "óδαáªÑ¡¿Ñ" «í«º¡áτáÑΓ ½εí«Ñ  íπ½Ñó߬«Ñ  óδαáªÑ¡¿Ñ  (»α¿
óδτ¿ß½Ñ¡¿¿  ñáεΘÑÑ º¡áτÑ¡¿Ñ Ærue ¿½¿ False), á "«»ÑαáΓ«α1" ¿
"«»ÑαáΓ«α2" - ñ«»πßΓ¿¼δÑ ó Åá߬á½Ñ «»ÑαáΓ«αδ. àß½¿ óδαáªÑ¡¿Ñ
¿¼ÑÑΓ  º¡áτÑ¡¿Ñ  Ærue, Γ« óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α1. é »α«Γ¿ó¡«¼
ß½πτáÑ óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α2.
     ìÑ«íσ«ñ¿¼« αáºΩ∩ß¡¿Γ∞ ñóá ó᪡δσ ¼«¼Ñ¡Γá ó  ¿ß»«½∞º«óá-
¡¿¿  «»ÑαáΓ«α«ó if/then/else. é«-»Ñαóδσ, «»ÑαáΓ«α else ∩ó½∩-
ÑΓß∩ ¡Ñ«í∩ºáΓѽ∞¡δ¼; ñαπú¿¼¿  ß½«óἿ,  ∩ó½∩ÑΓß∩  ñ«»πßΓ¿¼δ¼
ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α if:

     if óδαáªÑ¡¿Ñ
       then «»ÑαáΓ«α1

é φΓ«¼ ß½πτáÑ «»ÑαáΓ«α1 óδ»«½¡∩ÑΓß∩ ó Γ«¼  ¿  Γ«½∞¬«  ó  Γ«¼
ß½πτáÑ,  Ñß½¿  óδαáªÑ¡¿Ñ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ Ærue. àß½¿ óδαáªÑ¡¿Ñ
¿¼ÑÑΓ º¡áτÑ¡¿Ñ False, Γ« «»ÑαáΓ«α1 »α«»π߬áÑΓß∩ ¿  »α«ñ«½ªá-
ÑΓß∩ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ.
     é«-óΓ«αδσ, ¬á¬ íδΓ∞, Ñß½¿  ¡Ñ«íσ«ñ¿¼«  óδ»«½¡¿Γ∞  í«½ÑÑ
«ñ¡«ú«  «»ÑαáΓ«αá ó ß½πτáÑ, ¬«úñá π¬áºá¡¡«Ñ óδαáªÑ¡¿Ñ »α¿¡¿-
¼áÑΓ º¡áτÑ¡¿Ñ Ærue ¿½¿ False. é φΓ«¼ ß½πτáÑ ß½ÑñπÑΓ  ¿ß»«½∞-
º«óáΓ∞  ß«ßΓáó¡«⌐  «»ÑαáΓ«α.  æ«ßΓáó¡«⌐  «»ÑαáΓ«α ß«ßΓ«¿Γ ¿º
¬½ετÑó«ú« ß½«óá begin,  ¡Ñ߬«½∞¬¿σ  «»ÑαáΓ«α«ó,  αáºñѽѡ¡δσ
Γ«τ¬«⌐ ß ºá»∩Γ«⌐, ¿ ¬½ετÑó«ú« ß½«óá end.
     é »α¿¼ÑαÑ ß óδτ¿ß½Ñ¡¿Ñ¼ «Γ¡«ΦÑ¡¿∩ ó »αÑñ½«ªÑ¡¿¿ if  ¿ß-
»«½∞ºπÑΓß∩ «ñ¿¡«τ¡δ⌐ «»ÑαáΓ«α:

  if B = 0.0
    then Writeln('äѽѡ¿Ñ ¡á ¡π½∞ ºá»αÑΘÑ¡«.')

á ó »αÑñ½«ªÑ¡¿¿ else - ß«ßΓáó¡«⌐ «»ÑαáΓ«α:

  else begin
    Ratio = A / B;
    Writeln('ÄΓ¡«ΦÑ¡¿Ñ αáó¡« ',Ratio)
  end;

     èᬠóδ ¼«ú½¿ πªÑ ºá¼ÑΓ¿Γ∞, Γѽ« ¬áªñ«⌐ ¡á»¿ßá¡¡«⌐  óἿ
»α«úαá¼¼δ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ß«ßΓáó¡«⌐ «»ÑαáΓ«α, ó ¬«¡µÑ ¬«-
Γ«α«ú« ßΓ«¿Γ Γ«τ¬á.

                       Ä»ÑαáΓ«α æásÑ

     ¥Γ«Γ «»ÑαáΓ«α »«ºó«½∩ÑΓ «ßπΘÑßΓó¿Γ∞ ó  »α«úαá¼¼Ñ  óδí«α
¼Ñªñπ á½∞ΓÑα¡áΓ¿óἿ, ¡Ñ ¿ß»«½∞ºπ∩ í«½∞Φ«ú« τ¿ß½á «»ÑαáΓ«α«ó
if.
     Ä»ÑαáΓ«α æásÑ ß«ßΓ«¿Γ ¿º óδαáªÑ¡¿∩ (ßÑ½Ñ¬Γ«αá) ¿ ß»¿ß¬á
«»ÑαáΓ«α«ó, ¬áªñ«¼π ¿º ¬«Γ«αδσ »αÑñΦÑßΓóπÑΓ ¼ÑΓ¬á case, ¿¼Ñ-
εΘá∩ ëà ªÑ Γ¿», τΓ« ¿ ßÑ½Ñ¬Γ«α. ¥Γ« «º¡áτáÑΓ, τΓ« ëà  «»Ñ-
αáΓ«α  ñ«½ªÑ¡  íδΓ∞  óδ»«½¡Ñ¡, τ∞∩ ¼ÑΓ¬á case αáó¡á ΓѬπΘѼπ
º¡áτÑ¡¿ε ßÑ½Ñ¬Γ«αá. àß½¿ ¡¿ «ñ¡á ¿º ¼ÑΓ«¬ case  ¡Ñ  ß«ñÑনΓ
º¡áτÑ¡¿∩  ßÑ½Ñ¬Γ«αá, Γ« ¿½¿ ¡Ñ óδ»«½¡∩ÑΓß∩ ¡¿ «ñ¿¡ «»ÑαáΓ«α,
¿½¿ óδ»«½¡∩εΓß∩ «»ÑαáΓ«αδ, ßΓ«∩Θ¿Ñ »«ß½Ñ ¡Ñ«í∩ºáΓѽ∞¡«ú« ºá-
αѺÑαó¿α«óá¡¡«ú«  ß½«óá else. (è½ετÑó«Ñ ß½«ó« else »αÑñßΓáó-
½∩ÑΓ ß«í«⌐ αáßΦ¿αÑ¡¿Ñ ßΓá¡ñáαΓ¡«ú« Åá߬á½∩).
     îÑΓ¬á case ß«ßΓ«¿Γ ¿º ¡Ñ߬«½∞¬¿σ ¬«¡ßΓá¡Γ ¿½¿ »«ññ¿á»á-
º«¡«ó, ºá ¬«Γ«α묨 ßΓ«¿Γ ñó«ÑΓ«τ¿Ñ ¿ ¬«Γ«αδÑ αáºñÑ½Ñ¡δ ¼Ñªñπ
ß«í«⌐ ºá»∩Γ묨, ¡á»α¿¼Ñα:

  case BirdSight of
                  'C', 'c' : Curlews := Curlews + 1;
                  'H', 'h' : Herons  := Herons + 1;
                  'E', 'e' : Egrets  := Egrets +1;
                  'Y', 't' : Terns   := Terns +1;
                end;  { case }

     Å«ññ¿á»áº«¡ ºá»¿ßδóáÑΓß∩ ó ó¿ñÑ ñóπσ  ¬«¡ßΓá¡Γ,  αáºñÑ-
½Ñ¡¡δσ «úαá¡¿τ¿ΓѽѼ »«ññ¿á»áº«¡á '..'. Æ¿» ¬«¡ßΓá¡Γδ ñ«½ªÑ¡
ß««ΓóÑΓßΓó«óáΓ∞ Γ¿»π ßÑ½Ñ¬Γ«αá. Ä»ÑαáΓ«α, ßΓ«∩Θ¿⌐ »«ß½Ñ ¼ÑΓ-
¬¿  case,  óδ»«½¡∩ÑΓß∩ ó Γ«¼ ß½πτáÑ, Ñß½¿ º¡áτÑ¡¿Ñ ßÑ½Ñ¬Γ«αá
αáó¡« º¡áτÑ¡¿ε ¬«¡ßΓá¡Γ ¿½¿ Ñß½¿ «¡« »«»áñáÑΓ ó «ñ¿¡ ¿º »«ñ-
ñ¿á»áº«¡«ó.

                           û¿¬½δ

     ÆᬠªÑ, ¬á¬ ¼«úπΓ ßπΘÑßΓó«óáΓ∞  «»ÑαáΓ«αδ  (¿½¿  úαπ»»δ
«»ÑαáΓ«α«ó), ¬«Γ«αδÑ ¡Ñ«íσ«ñ¿¼« óδ»«½¡¿Γ∞ »α¿ óδ»«½¡Ñ¡¿¿ «»-
αÑñѽѡ¡«ú« πß½«ó¿∩, Γᬠ¼«úπΓ íδΓ∞ «»ÑαáΓ«αδ, ¬«Γ«αδÑ ¡πª¡«
óδ»«½¡¿Γ∞  ¡Ñ߬«½∞¬«  αáº. Æá¬á∩ ¬«¡ßΓαπ¬µ¿∩ ¡áºδóáÑΓß∩ µ¿¬-
½«¼.
     ê¼ÑÑΓß∩ Γα¿ «ß¡«ó¡δσ  ó¿ñá  µ¿¬½«ó:  µ¿¬½  while,  µ¿¬½
repeat ¿ µ¿¬½ for. Éáßß¼«Γα¿¼ ¿σ ó φΓ«¼ ªÑ »«α∩ñ¬Ñ.

         Ä»ÑαáΓ«α µ¿¬½á ß »αÑñπß½«ó¿Ñ¼ (µ¿¬½ While)

     Ä»ÑαáΓ«α while ¿ß»«½∞ºπÑΓß∩ ñ½∩ »α«óÑન ¡Ñ¬«Γ«α«ú« πß-
½«ó¿∩ ó ¡áτá½Ñ µ¿¬½á. éóÑñѼ ß½ÑñπεΘπε »α«úαá¼¼π:

program Hello;
var
  Count : integer;
begin
  Count := 1;
  while Count <= 10 do begin
    Writeln('çñαáóßΓóπ⌐ΓÑ ¿ ñ« ßó¿ñá¡¿∩!');
    Inc(Count)
  end;
  Writeln('¥Γ« ¬«¡Ñµ!')
end.

     ÅÑαó«Ñ, τΓ« »α«¿º«⌐ñÑΓ »α¿ ºá»π᪥  φΓ«⌐  »α«úαá¼¼δ,  -
φΓ« »α¿ßóá¿óá¡¿Ñ Count º¡áτÑ¡¿∩ 1, ºáΓѼ ß½ÑñπÑΓ µ¿¬½ while.
çñÑß∞ ß¡áτá½á »α«óÑα∩ÑΓß∩, ¡Ñ  ∩ó½∩ÑΓß∩  ½¿  º¡áτÑ¡¿Ñ  Count
¼Ñ¡∞Φ¿¼  ¿½¿  αáó¡δ¼  10. àß½¿ ñá, Γ« óδ»«½¡∩ÑΓß∩ Γѽ« µ¿¬½á
(begin..end).  Åα¿  φΓ«¼  ¡á  φ¬αá¡Ñ  »ÑτáΓáÑΓß∩   ß««íΘÑ¡¿Ñ
"çñαáóßΓóπ⌐ΓÑ ¿ ñ« ßó¿ñá¡¿∩!", ºáΓѼ º¡áτÑ¡¿Ñ Count πóѽ¿τ¿-
óáÑΓß∩ ¡á 1. Count »α«óÑα∩ÑΓß∩ ºá¡«ó« ¿ Γѽ« µ¿¬½á  óδ»«½¡∩-
ÑΓß∩  ÑΘÑ  αáº.  ¥Γ«  »α«ñ«½ªáÑΓß∩ ñ« ΓÑσ »«α, »«¬á º¡áτÑ¡¿Ñ
Count »α¿ »α«óÑα¬Ñ ¼Ñ¡∞ΦÑ ¿½¿ αáó¡«  10.  èᬠ Γ«½∞¬«  Count
»α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ 11, µ¿¬½ ºáóÑαΦáÑΓß∩, ¿ ¡á φ¬αá¡Ñ »ÑτáΓá-
ÑΓß∩ ßΓ᫬á "This is the end!" ("¥Γ« ¬«¡Ñµ!").
     ö«α¼áΓ «»ÑαáΓ«αá while ¿¼ÑÑΓ ó¿ñ:

     while óδαáªÑ¡¿Ñ do «»ÑαáΓ«α

úñÑ "óδαáªÑ¡¿Ñ" - φΓ« íπ½Ñó߬«Ñ óδαáªÑ¡¿Ñ, á «»ÑαáΓ«α - «ñ¿-
¡«τ¡δ⌐ ¿½¿ ß«ßΓáó¡«⌐ «»ÑαáΓ«α.
     é µ¿¬½Ñ while óδτ¿ß½∩ÑΓß∩  óδαáªÑ¡¿Ñ.  àß½¿  «¡«  ¿¼ÑÑΓ
º¡áτÑ¡¿Ñ Ærue, Γ« «»ÑαáΓ«α óδ»«½¡∩ÑΓß∩, ¿ óδαáªÑ¡¿Ñ óδτ¿ß½∩-
ÑΓß∩ ºá¡«ó«. àß½¿ óδαáªÑ¡¿Ñ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ  False,  Γ«  µ¿¬½
while ºáóÑαΦáÑΓß∩ ¿ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ »α«ñ«½ªáÑΓß∩.

     Ä»ÑαáΓ«α µ¿¬½á ß »«ßΓπß½«ó¿Ñ¼ (µ¿¬½ Repeat..until)

     éΓ«α«⌐ ó¿ñ »αÑñßΓáó½Ñ¡  µ¿¬½«¼  repeat..until,  ¬«Γ«αδ⌐
¿ß»«½∞º«óá¡ ó »α«úαá¼¼Ñ DORATIO.PAS:

program DoRatio;
var
  A,B    : integer;
  Ratio  : real;
  Ans    : char;
begin
  repeat
    Write('éóÑñ¿ΓÑ ñóá τ¿ß½á: ');
    Readln(A,B);
    Ratio := A / B;
    Writeln('ÄΓ¡«ΦÑ¡¿Ñ αáó¡« ',Ratio)
    Write('Å«óΓ«α¿Γ∞╝ (Y/N)  ');
    Readln(Ans)
  until (Ans = 'n') or (Ans = 'N')
end.

     èᬠπ¬áºδóὫß∞ óδΦÑ, φΓá »α«úαá¼¼á »«óΓ«α¡« óδ»«½¡∩ÑΓ-
ß∩ ñ« ΓÑσ »«α, »«¬á ¡Ñ íπñÑΓ »«½πτÑ¡ «ΓóÑΓ n ¿½¿ N ¡á ó«»α«ß
"Å«óΓ«α¿Γ∞╝". äαπú¿¼¿ ß½«óἿ, ºá¬½ετÑ¡¡«Ñ  ¼Ñªñπ  repeat  ¿
until  »«óΓ«α¡« óδ»«½¡∩ÑΓß∩ ñ« ΓÑσ »«α, »«¬á óδαáªÑ¡¿Ñ »«ß½Ñ
until ¿¼ÑÑΓ º¡áτÑ¡¿Ñ Ærue.
     Äí«íΘÑ¡¡δ⌐ Σ«α¼áΓ ñ½∩ µ¿¬½á repeat..until ¿¼ÑÑΓ ó¿ñ:

     repeat
       «»ÑαáΓ«α;
       «»ÑαáΓ«α;
       ...
       «»ÑαáΓ«α
     until óδαáªÑ¡¿Ñ

     ê¼ÑÑΓß∩ Γα¿ «ß¡«ó¡δσ αẽ¿τ¿∩ ¼Ñªñπ µ¿¬½«¼ while ¿ µ¿¬-
½«¼  repeat.  é«-»Ñαóδσ, «»ÑαáΓ«αδ ó µ¿¬½Ñ repeat óßÑúñá óδ-
»«½¡∩εΓß∩ σ«Γ∩ íδ «ñ¿¡  αáº,  »«ß¬«½∞¬π  »α«óÑα¬á  óδαáªÑ¡¿∩
«ßπΘÑßΓó½∩ÑΓß∩ ¡Ñ ßαáºπ »«ß½Ñ ¬½ετÑó«ú« ß½«óá repeat. ìá«í«-
α«Γ, ó µ¿¬½ while, Ñß½¿ óδαáªÑ¡¿Ñ ¿º¡áτá½∞¡« ¿¼ÑÑΓ  º¡áτÑ¡¿Ñ
False, Γ« »α«»π߬áÑΓß∩ óßÑ Γѽ« µ¿¬½á.
     é«-óΓ«αδσ, µ¿¬½ repeat óδ»«½¡∩ÑΓß∩ ñ« ΓÑσ »«α, »«¬á óδ-
αáªÑ¡¿Ñ  ¡Ñ  »α¿¼ÑΓ  º¡áτÑ¡¿Ñ  Ærue;  ó «Γ½¿τ¿Ñ «Γ ¡Ñú« µ¿¬½
while óδ»«½¡∩ÑΓß∩, »«¬á óδαáªÑ¡¿Ñ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ  Ærue.  ¥Γ«
«º¡áτáÑΓ, τΓ« ß½ÑñπÑΓ ó¡¿¼áΓѽ∞¡« ºá¼Ñ¡∩Γ∞ «ñ¿¡ Γ¿» µ¿¬½á ¡á
ñαπú«⌐. ìá»α¿¼Ñα, αáßß¼«Γα¿¼ »α«úαá¼¼π ìàLLÄ, »ÑαÑ»¿ßá¡¡πε ß
¿ß»«½∞º«ó᡿Ѽ µ¿¬½á repeat:

program Hello;
var
  Count : integer;
begin
  Count := 1;
  repeat
    Writeln('çñαáóßΓóπ⌐ΓÑ ¿ ñ« ßó¿ñá¡¿∩!');
    Inc(Count)
  until Count > 10;
  Writeln('¥Γ« ¬«¡Ñµ!')
end.


     ÄΓ¼ÑΓ¿¼, τΓ« ΓÑ»Ñα∞ »α«óÑα∩ÑΓß∩, ¡Ñ ∩ó½∩ÑΓß∩ ½¿  º¡áτÑ-
¡¿Ñ  Count í«½∞Φ¿¼ 10, ó Γ« óαѼ∩ ¬á¬ ó µ¿¬½Ñ while »α«óÑα∩-
½«ß∞, ¡Ñ ∩ó½∩ÑΓß∩ ½¿ º¡áτÑ¡¿Ñ Count ¼Ñ¡∞Φ¿¼ ¿½¿ αáó¡δ¼ 10.
     ìᬫ¡Ñµ, µ¿¬½ repeat ¼«ªÑΓ ß«ñÑαªáΓ∞ ¡Ñ߬«½∞¬« «»ÑαáΓ«-
α«ó,  ¡Ñ «íαáºπεΘ¿σ ß«ßΓáó¡«⌐ «»ÑαáΓ«α. çá¼ÑΓ∞ΓÑ, τΓ« ó »«ß-
½Ññ¡Ñ⌐ »α«úαá¼¼Ñ ¡Ñ ¿ß»«½∞ºπÑΓß∩ begin..end, ó Γ« óαѼ∩  ¬á¬
ó óáα¿á¡ΓÑ ß µ¿¬½«¼ while φΓ« ¿¼Ñ½« ¼ÑßΓ«.
     èα«¼Ñ Γ«ú«, ß½ÑñπÑΓ ºá»«¼¡¿Γ∞, τΓ« µ¿¬½  repeat  óßÑúñá
óδ»«½¡∩ÑΓß∩  »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ «ñ¿¡ αáº. û¿¬½ while ¼«ªÑΓ ¿ ¡Ñ
íδΓ∞ óδ»«½¡Ñ¡¡δ¼ ó ºáó¿ß¿¼«ßΓ¿ «Γ óδαáªÑ¡¿∩.

           Ä»ÑαáΓ«α µ¿¬½á ß »áαá¼ÑΓα«¼ (µ¿¬½ For)

     û¿¬½ for ¼«ª¡« ¡á⌐Γ¿ ó« ¼¡«ú¿σ ∩ºδ¬áσ »α«úαá¼¼¿α«óá¡¿∩,
ó¬½ετá∩ Åá߬á½∞. Äñ¡á¬«, óáα¿á¡Γ φΓ«ú« µ¿¬½á ó Åá߬á½Ñ ∩ó½∩-
ÑΓß∩ «ñ¡«óαѼѡ¡« «úαá¡¿τÑ¡¡δ¼ ¿ φΣΣÑ¬Γ¿ó¡δ¼.
     é «íδτ¡«¼ ß½πτáÑ ¡áí«α «»ÑαáΓ«α«ó óδ»«½¡∩ÑΓß∩  Σ¿¬ß¿α«-
óá¡¡«Ñ  τ¿ß½« αáº, »«¬á ¡Ñ¬«Γ«αá∩ »ÑαѼѡ¡á∩ (Γᬠ¡áºδóáѼá∩
¿¡ñѬ¡á∩ »ÑαѼѡ¡á∩) »α¿¡¿¼áÑΓ º¡áτÑ¡¿∩ ¿º π¬áºá¡¡«ú« ñ¿á»á-
º«¡á.  ìá»α¿¼Ñα,  ¼«ñ¿Σ¿µ¿απѼ  »α¿ó«ñ¿¼πε  αá¡ÑÑ  »α«úαá¼¼π
ìàLLÄ ß½ÑñπεΘ¿¼ «íαẫ¼:

program Hello;
var
  Count : integer;
begin
  for Count := 1 to 10 do
    Writeln('çñαáóßΓóπ⌐ΓÑ ¿ ñ« ßó¿ñá¡¿∩!');
  Writeln('¥Γ« ¬«¡Ñµ!')
end.

     Åα¿ óδ»«½¡Ñ¡¿¿ φΓ«⌐ »α«úαá¼¼δ ¼«ª¡« πíÑñ¿Γ∞ß∩, τΓ« αáß-
ß¼áΓα¿óáѼδ⌐  µ¿¬½  óδ»«½¡∩ÑΓß∩  Γᬠ ªÑ,  ¬á¬ µ¿¬½δ while ¿
repeat ¿ Σá¬Γ¿τÑ߬¿ «¡ Γ«τ¡« φ¬ó¿óá½Ñ¡ΓÑ¡ µ¿¬½π while. Äí«í-
ΘÑ¡¡δ⌐ Σ«α¼áΓ ñ½∩ µ¿¬½á for ¿¼ÑÑΓ ß½ÑñπεΘ¿¿⌐ ó¿ñ:

     for ¿¡ñÑ¬ß := óδαáªÑ¡¿Ñ1 to óδαáªÑ¡¿Ñ2 do «»ÑαáΓ«α

úñÑ ¿¡ñÑ¬ß - φΓ« »ÑαѼѡ¡á∩ ߬á½∩α¡«ú«  Γ¿»á  (µÑ½«ú«  Γ¿»á,
ß¿¼ó«½∞¡«ú«,  íπ½Ñóá ¿½¿ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á), "óδαáªÑ¡¿Ñ1" ¿
"óδαáªÑ¡¿Ñ2" »αÑñßΓáó½∩εΓ ß«í«⌐ óδαáªÑ¡¿∩, ¿¼ÑεΘ¿Ñ Γ¿», ß«ó-
¼ÑßΓ¿¼δ⌐  ß  ¿¡ñѬ߫¼, á "«»ÑαáΓ«α" - φΓ« «ñ¿¡«τ¡δ⌐ ¿½¿ ß«ß-
Γáó¡«⌐ «»ÑαáΓ«α. ê¡ñÑ¬ß πóѽ¿τ¿óáÑΓß∩  ¡á  1  »«ß½Ñ  ¬áªñ«ú«
»α«σ«ªñÑ¡¿∩ µ¿¬½á.
     éδ ¼«ªÑΓÑ Γá¬ªÑ π¼Ñ¡∞ΦáΓ∞, á ¡Ñ  πóѽ¿τ¿óáΓ∞  ¿¡ñѬߡπε
»ÑαѼѡ¡πε,  ñ½∩  φΓ«ú«  ¡πª¡« ºá¼Ñ¡¿Γ∞ ¬½ετÑó«Ñ ß½«ó« to ¡á
downto.

     û¿¬½ for φ¬ó¿óá½Ñ¡ΓÑ¡ ß½ÑñπεΘÑ⌐ »α«úαá¼¼Ñ:

  index := expr1;
  while index <= expr2 do
  begin
    «»ÑαáΓ«α
    Inc(¿¡ñѬß)
  end;

     Äß¡«ó¡δ¼ ¡Ññ«ßΓáΓ¬«¼ µ¿¬½á for ∩ó½∩ÑΓß∩ Γ«, τΓ« «¡ »«º-
ó«½∩ÑΓ πóѽ¿τ¿óáΓ∞ ¿½¿ π¼Ñ¡∞ΦáΓ∞ Γ«½∞¬« ¡á 1. è Ñú« «ß¡«ó¡δ¼
»αÑ¿¼πΘÑßΓóá¼ «Γ¡«ß∩Γß∩ ¬αáΓ¬«ßΓ∞ ¿ 󫺼«ª¡«ßΓ∞  ¿ß»«½∞º«óá-
¡¿∩ ß¿¼ó«½∞¡«ú« ¿ »ÑαÑτ¿ß½¿¼«ú« Γ¿»«ó ó ñ¿á»áº«¡Ñ º¡áτÑ¡¿⌐.

                    Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿

     éδ ¿ºπτ¿½¿ πß½«ó¡«Ñ ¿ ¿ΓÑαáΓ¿ó¡«Ñ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ.
ÆÑ»Ñα∞  »«ß¼«Γα¿¼,  ¬á¬ óδ»«½¡¿Γ∞ «ñ¿¡ ¿ ëà ªÑ ¡áí«α ¬«¼á¡ñ
¡á αẽ¿τ¡δσ ¼¡«ªÑßΓóáσ ñá¡¡δσ ¿½¿ ó αẽ¿τ¡δσ ¼ÑßΓáσ  »α«ú-
αá¼¼δ. ä½∩ φΓ«ú« ¡πª¡« »«¼ÑßΓ¿Γ∞ φΓ¿ «»ÑαáΓ«αδ ó »«ñ»α«úαá¼-
¼π, ¬«Γ«απε »«Γ«¼ ¼«ª¡« óδºδóáΓ∞ »α¿ ¡Ñ«íσ«ñ¿¼«ßΓ¿.
     é Åá߬á½Ñ ¿¼ÑÑΓß∩ ñóá  Γ¿»á  »«ñ»α«úαá¼¼:  »α«µÑñπαδ  ¿
Σπ¡¬µ¿¿.  Äß¡«ó¡«Ñ  αẽ¿τ¿Ñ  ¼Ñªñπ  ¡¿¼¿ ß«ßΓ«¿Γ ó Γ«¼, τΓ«
Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ¿ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ó óδαáªÑ-
¡¿∩σ, ¡á»α¿¼Ñα:

     X := Sin(A);

ó Γ« óαѼ∩ ¬á¬ »α«µÑñπαá óδºδóáÑΓß∩ ñ½∩ óδ»«½¡Ñ¡¿∩ «ñ¡«⌐ ¿½¿
í«½ÑÑ ºáñáτ:

     Writeln('¥Γ« »α«óÑα¬á');

     Äñ¡á¬«, »αѪñÑ, τѼ º¡á¬«¼¿Γ∞ß∩ ß »α«µÑñπαἿ ¿ Σπ¡¬µ¿-
∩¼¿, ¡Ñ«íσ«ñ¿¼« αáßß¼«ΓαÑΓ∞ ßΓαπ¬Γπαπ »α«úαá¼¼δ ¡á Åá߬á½Ñ.

                    æΓαπ¬Γπαá »α«úαá¼¼δ

     é ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ »α«úαá¼¼δ ¿¼ÑεΓ ßΓα«ú¿⌐ Σ«α¼áΓ:

      program ê¼∩-»α«úαá¼¼δ
      label
        ¼ÑΓ¬¿;
      ß«nst
        «»¿ßá¡¿Ñ ¬«¡ßΓá¡Γ;
      type
        «»αÑñѽѡ¿∩ Γ¿»«ó ñá¡¡δσ;
      var
        «»¿ßá¡¿∩ »ÑαѼѡ¡δσ;
        procedures ¿ functions;

      begin
        «ß¡«ó¡«Ñ Γѽ« »α«úαá¼¼δ
      end.

     êº »∩Γ¿ ßѬµ¿⌐ «»¿ßá¡¿∩ - label,  const,  type,  var  ¿
procedures ¿ functions - ¡Ñ óßÑ ñ«½ª¡δ »α¿ßπΓßΓó«óáΓ∞ ó ¬áª-
ñ«⌐ »α«úαá¼¼Ñ. Äñ¡á¬«, ó ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ, Ñß½¿ «¡¿  »α¿-
ßπΓßΓóπεΓ,  Γ«  «¡¿  ñ«½ª¡δ  ß½Ññ«óáΓ∞ ó π¬áºá¡¡«¼ »«α∩ñ¬Ñ ¿
¬áªñá∩ ßѬµ¿∩ ñ«½ª¡á »«∩ó½∩Γ∞ß∩ Γ«½∞¬« «ñ¿¡ αáº. çá  ßѬµ¿Ñ⌐
«»¿ßá¡¿∩ ¼«úπΓ ß½Ññ«óáΓ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¿ Γ«½∞¬« ºáΓѼ
- «ß¡«ó¡«Ñ Γѽ« »α«úαá¼¼δ,  ß«ßΓ«∩ΘÑÑ  ¿º  ¡Ñ¬«Γ«α«ú«  τ¿ß½á
«»ÑαáΓ«α«ó.
     Æπαí«-Åá߬á½∞  «íÑß»Ñτ¿óáÑΓ  º¡áτ¿Γѽ∞¡«  í«½ÑÑ  ú¿í¬πε
ßΓαπ¬Γπαπ »α«úαá¼¼δ. éßÑ, τΓ« ΓαÑíπÑΓß∩, - φΓ«, τΓ«íδ «»Ñαá-
Γ«α program (Ñß½¿ Γᬫó«⌐ ¿¼ÑÑΓß∩) íδ½  »Ñαóδ¼,  á  «ß¡«ó¡«Ñ
Γѽ«  »α«úαá¼¼δ  -  »«ß½Ññ¡¿¼.  îѪñπ ¡¿¼¿ ¼«ª¡« ¿¼ÑΓ∞ ߬«½∞
πú«ñ¡« ¼¡«ú« ßѬµ¿⌐ «»¿ßá¡¿∩, ó ½εí«¼ »«α∩ñ¬Ñ ¿  ¬á¬  πú«ñ¡«
ß¼ÑΦá¡¡δ¼¿ ß »α«µÑñπαἿ ¿ Σπ¡¬µ¿∩¼¿. ì« »αѪñÑ, τѼ τΓ«-½¿-
í« ¿ß»«½∞º«óáΓ∞, φΓ« ñ«½ª¡« íδΓ∞ «»αÑñѽѡ«, ¿¡áτÑ ¡á  φΓá»Ñ
¬«¼»¿½∩µ¿¿ »«∩ó¿Γß∩ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ.

                    æΓαπ¬Γπαá »α«úαá¼¼δ

     é ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ »α«úαá¼¼δ ¿¼ÑεΓ ßΓα«ú¿⌐ Σ«α¼áΓ:

  program ê¼∩_»α«úαá¼¼δ;
  label;
      ¼ÑΓ¬¿;
  const
      «»¿ßá¡¿∩ ¬«¡ßΓá¡Γ;
  type
      «»αÑñѽѡ¿∩ Γ¿»«ó ñá¡¡δσ;
  var
      «»¿ßá¡¿Ñ »ÑαѼѡ¡δσ;
  »α«µ⌐Ññπαδ ¿ Σπ¡¬µ¿¿;
  begin
      Γѽ« «ß¡«ó¡«⌐ »α«úαá¼¼δ;
  end.

     éßÑ »∩Γ∞ αáºñѽ«ó «»¿ßá¡¿⌐ (label, const, type, var,  á
Γá¬ªÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿) ¡Ñ «í∩ºáΓѽ∞¡« ñ«½ª¡δ »α¿ßπΓßΓó«-
óáΓ∞ ó ¬áªñ«⌐ »α«úαá¼¼Ñ. Äñ¡á¬« ó ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ ó  Γ«¼
ß½πτáÑ, Ñß½¿ φΓ¿ αáºñÑ½δ ¿¼ÑεΓß∩, «¡¿ ñ«½ª¡δ ß½Ññ«óáΓ∞ ¿¼Ñ¡-
¡« ó φΓ«¼ »«α∩ñ¬Ñ ¿ ¬áªñδ⌐ αáºñѽ ñ«½ªÑ¡ óßΓαÑτáΓ∞ß∩  Γ«½∞¬«
«ñ¿¡ αáº. çá αáºñѽ«¼ «»¿ßá¡¿⌐ ¼«úπΓ ß½Ññ«óáΓ∞ óáΦ¿ »α«µÑñπ-
αδ ¿ Σπ¬¡µ¿¿, Ñß½¿ «¡¿ ¿¼ÑεΓß∩, ¿,  ¡á¬«¡Ñµ,  Γѽ«  «ß¡«ó¡«⌐
»α«úαá¼¼δ, ß«ñÑαªáΘÑÑ ¡Ñ¬«Γ«α«Ñ ¬«½¿τÑßΓó« «»ÑαáΓ«α«ó.
     Æπαí«-Åá߬á½∞ ñ«»π߬áÑΓ í«½∞Φπε  ú¿í¬«ßΓ∞  ó  ßΓαπ¬ΓπαÑ
»α«úαá¼¼δ.  éßÑ Ñú« ΓαÑí«óá¡¿∩ ºá¬½ετáεΓß∩ ó Γ«¼, τΓ«íδ «»Ñ-
αáΓ«α program (Ñß½¿ «¡ π óáß ÑßΓ∞) ß½Ññ«óá½ »Ñαóδ¼,  á  Γѽ«
«ß¡«ó¡«⌐  »α«úαá¼¼δ  - »«ß½Ññ¡¿¼. îѪñ ¡¿¼¿ ¼«ª¡« αẼÑßΓ¿Γ∞
ßΓ«½∞¬« αáºñѽ«ó «»¿ßá¡¿⌐, ߬«½∞¬« óá¼ ΓαÑíπÑΓß∩, ¿ ó  ½εí«¼
¡Ñ«íσ«ñ¿¼«¼  óá¼  »«α∩ñ¬Ñ.  Åα¿ φΓ«¼ «»¿ßá¡¿∩ ¼«úπΓ ßó«í«ñ¡«
τÑαÑñ«óáΓ∞ß∩ ß »α«µÑñπαἿ ¿ Σπ¡¬µ¿∩¼¿. Äñ¡á¬«  óßÑ  «íΩѬΓδ
ñ«½ª¡δ  «»αÑñѽ∩Γ∞ß∩  »ÑαÑñ  ¿σ  ¿ß»«½∞º«ó᡿Ѽ (ó »α«Γ¿ó¡«¼
ß½πτáÑ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿ 󫺡¿¬áÑΓ «Φ¿í¬á).

               æΓαπ¬Γπαá »α«µÑñπαδ ¿ Σπ¡¬µ¿¿

     èá¬ π»«¼¿¡á½«ß∞ αá¡ÑÑ, »α«µÑñπαδ ¿  Σπ¡¬µ¿¿,  ¿ºóÑßΓ¡δÑ
¬á¬ »«ñ»α«úαá¼¼δ, ¼«úπΓ »«∩ó¿Γ∞ß∩ ó ½εí«¼ ¼ÑßΓÑ ñ« «ß¡«ó¡«ú«
ΓÑ½á »α«úαá¼¼δ. ä½∩ »α«µÑñπα ¿ß»«½∞ºπÑΓß∩ ß½ÑñπεΘ¿⌐ Σ«α¼áΓ:

      procedure ¿¼∩-»α«µÑñπαδ(»áαá¼ÑΓαδ);
      label
        ¼ÑΓ¬¿;
      const
        «»¿ßá¡¿∩ ¬«¡ßΓá¡Γ;
      type
        «»αÑñѽѡ¿∩ Γ¿»«ó ñá¡¡δσ;
      var
        «»¿ßá¡¿∩ »ÑαѼѡ¡δσ;
        procedures ¿ functions;

      begin
        «ß¡«ó¡«Ñ Γѽ« »α«µÑñπαδ;
      end;

     öπ¡¬µ¿¿ ¿¼ÑεΓ Γᬫ⌐ ªÑ Σ«α¼áΓ, τΓ« ¿ »α«µÑñπαδ ºá  ¿ß¬-
½ετÑ¡¿Ñ¼ Γ«ú«, τΓ« «¡¿ ¡áτ¿¡áεΓß∩ ß ºáú«½«ó¬á function ¿ ºá-
¬á¡τ¿óáεΓß∩ Γ¿»«¼ ñá¡¡δσ ñ½∩ ó«ºóαáΘáѼ«ú« º¡áτÑ¡¿∩ Σπ¡¬µ¿¿:

     function ¿¼∩_Σπ¡¬µ¿¿(»áαá¼ÑΓαδ) : Γ¿» ñá¡¡δσ;

     èᬠ¼«ª¡« ó¿ñÑΓ∞, ºñÑß∞ ¿¼ÑÑΓß∩ Γ«½∞¬« ñóá αẽ¿τ¿∩  «Γ
ßΓαπ¬Γπαδ  «íδτ¡«⌐ »α«úαá¼¼δ: »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¡áτ¿¡áεΓß∩
ß ºáú«½«ó¬á procedure ¿½¿ function, á ¡Ñ ß ºú«½«ó¬á program,
¿  ºá¬á¡τ¿óáεΓß∩  ¡Ñ Γ«τ¬«⌐, á Γ«τ¬«⌐ ß ºá»∩Γ«⌐. Åα«µÑñπαδ ¿
Σπ¬¡µ¿¿ ¼«úπΓ ¿¼ÑΓ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ ¬«¡ßΓá¡Γδ, Γ¿»δ ñá¡¡δσ,
»ÑαѼѡ¡δÑ ¿ ñáªÑ ß«íΓóÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. ì« óßÑ φΓ¿
φ½Ñ¼Ñ¡Γδ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩  Γ«½∞¬«  ó  ΓÑσ  »α«µÑñπαáσ  ¿
Σπ¡¬µ¿∩σ, ó ¬«Γ«αδσ «¡¿ «»αÑñѽѡδ.

                      Åα¿¼Ñα »α«úαá¼¼δ

     ì¿ªÑ »α¿ó«ñ¿Γß∩ óáα¿á¡Γ »α«úαá¼¼δ DORATIO.PAS, ó  ¬«Γ«-
α«¼  ¿ß»«½∞ºπÑΓß∩  »α«µÑñπαá  ñ½∩  »«½πτÑ¡¿∩ ñóπσ º¡áτÑ¡¿⌐ ¿
Σπ¡¬µ¿∩ ñ½∩ óδτ¿ß½Ñ¡¿∩ ¬«φΣΣ¿µ¿Ñ¡Γá:

program DoRatio;
var
  A,B    : integer;
  Ratio  : real;

procedure GetData(var X,Y : integer);
begin
  Write('éóÑñ¿ΓÑ ñóá τ¿ß½á: ');
  Readln(X,Y)
end;

function GetRatio(I,J : integer) : real;
begin
  GetRatio := I/J
end;

begin
  GetData(A,B);
  Ratio := GetRatio(A,B);
  Writeln('ÄΓ¡«ΦÑ¡¿Ñ αáó¡« ',Ratio)
end.

     ¥Γá »α«úαá¼¼á, ¬«¡Ñτ¡«, ¡Ñ ∩ó½∩ÑΓß∩ π½πτΦÑ¡¿Ñ¼ »Ñαó«¡á-
τá½∞¡«⌐ »α«úαá¼¼δ, »«ß¬«½∞¬π «¡á ¿¼ÑÑΓ í«½∞Φ¿⌐ αẼÑα ¿ ¼Ññ-
½Ñ¡¡ÑÑ óδ»«½¡∩ÑΓß∩, «ñ¡á¬«, «¡á  ¿½½εßΓα¿απÑΓ  ¿ß»«½∞º«óá¡¿Ñ
»α«µÑñπα ¿ Σπ¡¬µ¿⌐.
     Åα¿ ¬«¼»¿½∩µ¿¿ ¿ ºá»π᪥ »α«úαá¼¼δ »Ñαóδ¼ ó ΓÑ½Ñ  »α«ú-
αá¼¼δ  óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α GetData(Ç,é). ¥Γ«Γ Γ¿» «»ÑαáΓ«αá
¡áºδóáÑΓß∩ óδº«ó«¼ »α«µÑñπαδ.  Åα¿  «íαáí«Γ¬Ñ  φΓ«ú«  ó맮óá
»α«úαá¼¼á óδ»«½¡∩ÑΓ «»ÑαáΓ«αδ ó GetData, ºá¼Ñ¡∩∩ ò ¿ Y (Σ«α-
¼á½∞¡δÑ »áαá¼ÑΓαδ) ¡á Ç ¿ é (Σá¬Γ¿τÑ߬¿Ñ »áαá¼ÑΓαδ).  è½ετÑ-
ó«Ñ  ß½«ó«  var  »ÑαÑñ  ò  ¿  Y ó «»ÑαáΓ«αÑ ó맮óá »α«µÑñπαδ
GetData π¬áºδóáÑΓ, τΓ« Σá¬Γ¿τÑ߬¿Ñ »áαá¼ÑΓαδ ñ«½ª¡δ íδΓ∞ »Ñ-
αѼѡ¡δ¼¿  ¿  τΓ«  º¡áτÑ¡¿∩ »ÑαѼѡ¡δσ ¼«úπΓ íδΓ∞ ¿º¼Ñ¡Ñ¡δ ¿
»ÑαÑñá¡δ «íαáΓ¡«  óδºδóáεΘÑ⌐  »α«úαá¼¼Ñ.  Å«φΓ«¼π  »α«µÑñπαÑ
GetData  ¡Ñ½∞º∩  »ÑαÑñáóáΓ∞ ½¿ΓÑαá½δ, ¬«¡ßΓá¡Γδ, óδαáªÑ¡¿∩ ¿
Γᬠñá½ÑÑ. Åα¿ ºáóÑαΦÑ¡¿¿ óδ»«½¡Ñ¡¿∩ GetData π»αáó½Ñ¡¿Ñ  »Ñ-
αÑñáÑΓß∩  ó «ß¡«ó¡«Ñ Γѽ« »α«úαá¼¼δ «»ÑαáΓ«απ, ß½ÑñπεΘѼπ ºá
óδº«ó«¼ GetData.
     ¥Γ¿¼  ß½ÑñπεΘ¿¼  «»ÑαáΓ«α«¼  ∩ó½∩ÑΓß∩   óδº«ó   Σπ¡¬µ¿¿
GetRatio.  ÄΓ¼ÑΓ¿¼  ºñÑß∞ ¡Ñ¬«Γ«αδÑ ó᪡δÑ αẽ¿τ¿∩. é«-»Ñα-
óδσ, GetRatio ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ ºáΓѼ ñ«½ª¡« íδΓ∞
úñÑ-¡¿íπñ∞  ¿ß»«½∞º«óá¡«; ó ñá¡¡«¼ ß½πτáÑ φΓ« º¡áτÑ¡¿Ñ »α¿ß-
óá¿óáÑΓß∩ Ratio. é«-óΓ«αδσ, ó «ß¡«ó¡«¼ ΓÑ½Ñ Σπ¡¬µ¿¿ º¡áτÑ¡¿Ñ
»α¿ßóá¿óáÑΓß∩  GetRatio.  Æᬿ¼  «íαẫ¼ Σπ¡¬µ¿∩ «»αÑñѽ∩ÑΓ,
¬á¬«Ñ º¡áτÑ¡¿Ñ ß½ÑñπÑΓ ó«ºóαáΓ¿Γ∞. é-ΓαÑΓ∞¿σ, »ÑαÑñ Σ«α¼á½∞-
¡δ¼¿ »áαá¼ÑΓαἿ I ¿ J ºñÑß∞ «ΓßπΓßΓóπÑΓ ¬½ετÑó«Ñ ß½«ó« var.
¥Γ« «º¡áτáÑΓ, τΓ« Σá¬Γ¿τÑ߬¿Ñ »áαá¼ÑΓαδ  ¼«úπΓ  íδΓ∞  ½εí묨
µÑ½«τ¿ß½Ñ¡¡δ¼¿     óδαáªÑ¡¿∩¼¿,     ¡á»α¿¼Ñα,    Ratio    :=
GetRatio(Ç+é,300), ¿ τΓ« ñáªÑ Ñß½¿ º¡áτÑ¡¿∩ Σ«α¼á½∞¡δσ »áαá-
¼ÑΓα«ó  ó ΓÑ½Ñ Σπ¡¬µ¿¿ íπñπΓ ¿º¼Ñ¡Ñ¡δ, ¡«óδÑ º¡áτÑ¡¿∩ ¡Ñ íπ-
ñπΓ »ÑαÑñá¡δ «íαáΓ¡« óδºδóáεΘÑ⌐ »α«úαá¼¼Ñ. ¥Γ«,  ¬ßΓáΓ¿,  ¡Ñ
∩ó½∩ÑΓß∩  αẽ¿τ¿Ñ¼ ¼Ñªñπ »α«µÑñπαἿ ¿ Σπ¡¬µ¿∩¼¿; éδ ¼«ªÑΓÑ
¿ß»«½∞º«óáΓ∞ «íá Γ¿»á »áαá¼ÑΓα«ó ß ½εíδ¼ ó¿ñ«¼ »«ñ»α«úαá¼.

                  諼¼Ñ¡Γáα¿¿ ó »α«úαá¼¼Ñ

     ê¡«úñá íδóáÑΓ ¡Ñ«íσ«ñ¿¼« óßΓáó¿Γ∞ ó  »α«úαá¼¼π  ºá¼Ñτá-
¡¿∩,  ¡á»«¼¿¡áεΘ¿Ñ  (¿½¿  ¿¡Σ«α¼¿απεΘ¿Ñ) « Γ«¼, τΓ« «º¡áτáεΓ
¡Ñ¬«Γ«αδÑ »ÑαѼѡ¡δÑ,  ¬á¬¿Ñ  ñÑ⌐ßΓó¿∩  óδ»«½¡∩εΓ  ¡Ñ¬«Γ«αδÑ
Σπ¡¬µ¿¿ ¿½¿ «»ÑαáΓ«αδ, ¿ Γᬠñá½ÑÑ. ¥Γ¿ ºá¼Ñτá¡¿∩ ¡áºδóáεΓß∩
¬«¼¼Ñ¡Γáα¿∩¼¿. Åá߬á½∞,  ¬á¬  ¿  í«½∞Φ¿¡ßΓó«  ñαπú¿σ  ∩ºδ¬«ó
»α«úαá¼¼¿α«óá¡¿∩, »«ºó«½∩ÑΓ óßΓáó½∩Γ∞ ó »α«úαá¼¼π ¬á¬ πú«ñ¡«
¼¡«ú« ¬«¼¼Ñ¡Γáα¿Ñó.
     諼¼Ñ¡Γáα¿⌐ ¡áτ¿¡áÑΓß∩ ½Ñó«⌐ Σ¿úπα¡«⌐ ߬«í¬«⌐ ({),  ¬«-
Γ«αá∩  π¬áºδóáÑΓ ¬«¼»¿½∩Γ«απ ¿ú¡«α¿α«óáΓ∞ óßÑ »«ß½ÑñπεΘÑÑ ñ«
ΓÑσ »«α, »«¬á ¡Ñ íπñÑΓ  «í¡áαπªÑ¡á  »αáóá∩  Σ¿úπα¡á∩  ߬«í¬á
(}).
     諼¼Ñ¡Γáα¿¿ ¼«ª¡« ñáªÑ αáß»«½áúáΓ∞ ¡á ¡Ñ߬«½∞¬¿σ  ßΓα«-
¬áσ, ¡á»α¿¼Ñα:

    {¥Γ« »α¿¼Ñα ñ½¿¡¡«ú«
     ¬«¼¼Ñ¡Γáα¿∩, ºá¡¿¼áεΘÑú«
     ¡Ñ߬«½∞¬« ßΓ᫬.}

     èα«¼Ñ Γ«ú«, Åá߬á½∞ ñ«»π߬áÑΓ á½∞ΓÑα¡áΓ¿ó¡πε Σ«α¼π ¬«¼-
¼Ñ¡Γáα¿∩,  ¡áτ¿¡áεΘÑú«ß∩ ½Ñó«⌐ ¬απú½«⌐ ߬«í¬«⌐ ß« ºóѺñ«τ¬«⌐
(* ¿ ºá¬á¡τ¿óáεΘÑú«ß∩ »αáó«⌐ ¬απú½«⌐ ߬«í¬«⌐  ß«  ºóѺñ«τ¬«⌐
*).  ¥Γ¿¼  »α¿¡¿¼áεΓß∩ ó αáßτÑΓ «úαá¡¿τÑ¡¿∩ ¡á 󽫪ѡ¿∩ ¬«¼-
¼Ñ¡Γáα¿Ñó, »«ß¬«½∞¬π ¬«¼¼Ñ¡Γαáα¿⌐, ¡áτ¿¡áεΘ¿⌐ß∩ ß (* ¿ú¡«α¿-
απÑΓ óßÑ Σ¿úπα¡δÑ ß¬«í¬¿, ¿ ¡á«í«α«Γ.
     ÆÑ»Ñα∞, »«ß½Ñ Γ«ú«, ¬á¬ óδ »α«Φ½¿  ¡áτá½∞¡δ⌐  ¬παß,  ¼δ
αѬ«¼Ñ¡ñπѼ  óá¼  «íαáΓ¿Γ∞ß∩  ¬ σ«α«ΦѼπ πτÑí¡«¼π »«ß«í¿ε »«
Æπαí«-Åá߬á½ε  (¡á»α¿¼Ñα,  ¬  πτÑí¡¿¬π  »«  Æπαí«-Åá߬á½ε  -
"Turbo  Pascal  Tutor",  á  Γá¬ªÑ ¬¡¿úá¼: è. ëÑ¡ßÑ¡, ì. é¿αΓ
"ÅÇæèÇï£: Éπ¬«ó«ñßΓó« ñ½∩ »«½∞º«óáΓѽ∩  ¿  «»¿ßá¡¿Ñ  ∩ºδ¬á",
î.: ö¿¡á¡ßδ ¿ ßΓáΓ¿ßΓ¿¬á, 1982; Å. âα«ú«¡« "Åα«úαá¼¼¿α«óá¡¿Ñ
¡á ∩ºδ¬Ñ Åá߬á½∞", î.:  î¿α,  1982;  ì.  é¿αΓ  "ǽú«α¿Γ¼δ  +
ßΓαπ¬Γπαδ  ñá¡¡δσ  =  »α«úαá¼¼δ",  î.;  î¿α, 1985; É. âαφσѼ
"Åαá¬Γ¿τÑ߬¿⌐ ¬παß ∩ºδ¬á Åá߬á½∞ ñ½∩ ¼¿¬α«¥éî", î., Éáñ¿«  ¿
ßó∩º∞,  1986;  é.â.  ÇíαἫó, ì.Å. Æα¿Σ«¡«óá, â.ì. Æα¿Σ«¡«óá
"éóÑñÑ¡¿Ñ ó Åá߬á½∞", î., ìáπ¬á, 1988 - »α¿¼. »ÑαÑó.).


                          âïÇéÇ 4


             î«ñ㫨 ¿ ßó∩ºá¡¡δÑ ß ¡¿¼¿ Γ«¡¬«ßΓ¿

     é â½áóÑ 3 í佫 »«¬áºá¡«, ¬á¬ »¿ßáΓ∞  ßΓá¡ñáαΓ¡δÑ  »α«ú-
αá¼¼δ  ¡á Åá߬á½Ñ. ì« ¬á¬ íδΓ∞ ó ß½πτáÑ ¡ÑßΓá¡ñáαΓ¡«ú« »α«ú-
αá¼¼¿α«óá¡¿∩ - τáßΓ¡«ú« ß½πτá∩  »α«úαá¼¼¿α«óá¡¿∩  ¡á  »Ñαß«-
¡á½∞¡«¼ ¬«¼»∞εΓÑαÑ IBM Éæ, ß φ¬αá¡¡δ¼ π»αáó½Ñ¡¿Ñ¼, ß «íαáΘÑ-
¡¿∩¼¿ ¬ «»Ñαᵿ«¡¡«⌐ ß¿ßΓÑ¼Ñ äÄæ ¿ úαáΣ¿¬«⌐╝ ä½∩ Γ«ú«, τΓ«íδ
ßἫßΓ«∩Γѽ∞¡«  »¿ßáΓ∞  Γá¬¿Ñ  »α«úαá¼¼δ,  ¡Ñ«íσ«ñ¿¼«  ¿¼ÑΓ∞
»αÑñßΓáó½Ñ¡¿Ñ « ¼«ñπ½∩σ ¿½¿ «í á»»áαáΓ¡δσ  ßαÑñßΓóáσ  »Ñαß«-
¡á½∞¡«ú« ¬«¼»∞εΓÑαá. é ¡áßΓ«∩ΘÑ⌐ ú½áóÑ αáºΩ∩ß¡∩ÑΓß∩, τΓ« Γá-
¬«Ñ ¼«ñπ½∞, ¬á¬ «¡  ¿ß»«½∞ºπÑΓß∩,  ¬á¬¿Ñ  óßΓα«Ñ¡¡δÑ  ¼«ñπ½¿
ñ«ßΓπ»¡δ  »«½∞º«óáΓѽε,  ¬á¬  »¿ßáΓ∞ ß«íßΓóÑ¡¡δÑ »α«úαá¼¼¡δÑ
¼«ñ㫨 ¿ ¬á¬ ¬«¼»¿½¿α«óáΓ∞ ¿σ.

                    ùΓ« ªÑ Γá¬«Ñ ¼«ñπ½∞?

     Æπαí«-Åá߬á½∞ «íÑß»Ñτ¿óáÑΓ óá¼ ñ«ßΓπ» ¬ í«½∞Φ«¼π  τ¿ß½π
óßΓα«Ñ¡¡δσ  ¬«¡ßΓá¡Γ,  Γ¿»«ó  ñá¡¡δσ, »ÑαѼѡ¡δσ, »α«µÑñπα ¿
Σπ¡¬µ¿⌐. ìѬ«Γ«αδÑ ¿º ¡¿σ ߻ѵ¿Σ¿τ¡δ ñ½∩ Æπαí«-Åá߬á½∩; ñαπ-
ú¿Ñ  ߻ѵ¿Σ¿τ¡δ  ñ½∩ »Ñαß«¡á½∞¡«ú« ¬«¼»∞εΓÑαá IBM Éæ (¿ ß«ó-
¼ÑßΓ¿¼δσ ß ¡¿¼ ¬«¼»∞εΓÑα«ó)  ¿½¿  ñ½∩  «»Ñαᵿ«¡¡«⌐  ß¿ßΓѼδ
äÄæ. êσ ¬«½¿τÑßΓó« óѽ¿¬«, «ñ¡á¬«, ó ßó«Ñ⌐ »α«úαá¼¼Ñ óδ αÑñ-
¬« ¿ß»«½∞ºπÑΓÑ ¿σ óßÑ ßαáºπ. Å«φΓ«¼π «¡¿ αáºñÑ½Ñ¡δ  ¡á  ßó∩-
ºá¡¡δÑ  úαπ»»δ, ¡áºδóáѼδÑ ¼«ñπ½∩¼¿. é φΓ«¼ ß½πτáÑ ¼«ª¡« ¿ß-
»«½∞º«óáΓ∞ Γ«½∞¬« ΓÑ ¼«ñπ½¿, ¬«Γ«αδÑ ¡Ñ«íσ«ñ¿¼δ ó »α«úαá¼¼Ñ.
     Åα«úαá¼¼¡δ⌐ ¼«ñπ½∞ »αÑñßΓáó½∩ÑΓ ß«í«⌐  ¡áí«α  ¬«¡ßΓá¡Γ,
Γ¿»«ó  ñá¡¡δσ, »ÑαѼѡ¡δσ, »α«µÑñπα ¿ Σπ¡¬µ¿⌐. èáªñδ⌐ ¼«ñπ½∞
á¡á½«ú¿τÑ¡ «Γñѽ∞¡«⌐ »α«úá¼¼Ñ ¡á Åá߬á½Ñ: «¡ ¼«ªÑΓ ¿¼ÑΓ∞ «ß-
¡«ó¡«Ñ  Γѽ«,  ¬«Γ«α«Ñ óδºδóáÑΓß∩ »ÑαÑñ ºá»π߬«¼ óáΦÑ⌐ »α«ú-
αá¼¼δ ¿ «ßπΘÑßΓó½∩ÑΓ ¡Ñ«íσ«ñ¿¼πε ¿¡¿µ¿á½¿ºáµ¿ε. è«α«τÑ ú«ó«-
α∩,  ¼«ñπ½∞  »αÑñßΓáó½∩ÑΓ ß«í«⌐ í¿í½¿«ΓÑ¬π «»¿ßá¡¿⌐, ¬«Γ«απε
¼«ª¡« óßΓáó¿Γ∞ ó ßó«ε »α«úαá¼¼π ¿ ¬«Γ«αá∩  »«ºó«½¿Γ  αáºí¿Γ∞
»α«úαá¼¼π ¡á τáßΓ¿, ¬«¼»¿½¿απѼδÑ «Γñѽ∞¡«.
     éßÑ «»¿ßá¡¿∩ ó¡πΓα¿ ¼«ñπ½∩ ßó∩ºá¡δ ñαπú ß ñαπú«¼.  ìá»-
α¿¼Ñα,  ¼«ñπ½∞  Crt  ß«ñÑαª¿Γ  óßÑ «»¿ßá¡¿∩, ¡Ñ«íσ«ñ¿¼δÑ ñ½∩
»«ñ»α«úαá¼¼ αáí«Γδ ß φ¬αá¡«¼ ¡á óáΦѼ »Ñαß«¡á½∞¡«¼ ¬«¼»∞εΓÑ-
αÑ.
     Æπαí«-Åá߬á½∞ »αÑñ«ßΓáó½∩ÑΓ »«½∞º«óáΓѽε ßѼ∞  ßΓá¡ñáα-
Γ¡δσ  ¼«ñπ½Ñ⌐.  Å∩Γ∞  ¿º  ¡¿σ  -  System,  Graph, DOS, Crt ¿
Printer - «íÑß»Ñτ¿óáεΓ »«ññÑ᪬π «íδτ¡δσ  »α«úαá¼¼  ¡á  Æπα-
í«-Åá߬á½Ñ. äóá ñαπú¿σ - Æurbo3 ¿ Graph3 - »αÑñ¡áº¡áτÑ¡δ ñ½∩
«íÑß»ÑτÑ¡¿∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß »α«úαἼἿ  ¿  Σá⌐½á¼¿  ñá¡¡δσ,
ß«ºñá¡¡δ¼¿  »«ñ  óÑαß¿Ñ⌐ 3.0 Æπαí«-Åá߬á½∩. éßÑ ßѼ∞ ¼«ñπ½Ñ⌐
σαá¡∩Γß∩ ó Σá⌐½Ñ TURBO.TPL. ìѬ«Γ«αδÑ  ¿º  ¡¿σ  í«½ÑÑ  »«½¡«
αáºΩ∩ß¡∩εΓß∩  ó ú½áóÑ 5, ºñÑß∞ ªÑ αáßß¼áΓα¿óáÑΓß∩ «íΘÑÑ ¡áº-
¡áτÑ¡¿Ñ ¬áªñ«ú« ¼«ñπ½∩.

                      æΓαπ¬Γπαá ¼«ñπ½∩

     î«ñπ½∞ «íÑß»Ñτ¿óáÑΓ ¡áí«α ßαÑñßΓó í½áú«ñáα∩  »α«µÑñπαá¼
¿  Σπ¡¬µ¿∩¼  »α¿ »«ññÑαª¬Ñ ¬«¡ßΓá¡Γ, Γ¿»«ó ñá¡¡δσ ¿ »ÑαѼѡ-
¡δσ, «ñ¡á¬« ñÑ⌐ßΓó¿Γѽ∞¡á∩ αÑ὿ºáµ¿∩ φΓ¿σ ßαÑñßΓó ߬αδΓá  ó
ß¿½π  Γ«ú«,  τΓ« ¼«ñπ½∞ αáºñѽѡ ¡á ñóÑ ßѬµ¿¿: ¿¡ΓÑαΣÑ⌐ßá ¿
αÑ὿ºáµ¿¿. àß½¿ »α«úαá¼¼á ¿ß»«½∞ºπÑΓ ¼«ñπ½∞, Γ« óßÑ  «»¿ßá-
¡¿∩ ¼«ñπ½∩ ßΓá¡«ó∩Γß∩ ñ«ßΓπ»¡δ¼¿ φΓ«⌐ »α«úαá¼¼Ñ, ¬á¬ Ñß½¿ íδ
«¡¿ í뫨 «»αÑñѽѡδ ó ¡Ñ⌐ ßἫ⌐.
     æΓαπ¬Γπαá ¼«ñπ½∩ á¡á½«ú¿τ¡á ßΓαπ¬ΓπαÑ »α«úαá¼¼δ, «ñ¡á¬«
ÑßΓ∞  ¡Ñ߬«½∞¬«  ßπΘÑßΓóÑ¡¡δσ αẽ¿τ¿⌐. ìá»α¿¼Ñα, αáßß¼«Γα¿¼
¼«ñπ½∞:

     unit <¿ñÑ¡Γ¿Σ¿¬áΓ«α>;
     interface
     uses <ß»¿ß«¬ ¼«ñπ½Ñ⌐>;      { ìÑ«í∩ºáΓѽ∞¡δ⌐ }
       { «Γ¬αδΓδÑ «»¿ßá¡¿∩ }
     implementation
       { ºá¬αδΓδÑ «»¿ßá¡¿∩ }
       { »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ }

     begin
       { ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ }
     end.

çáú«½«ó«¬ ¼«ñπ½∩ ¡áτ¿¡áÑΓß∩ ºáαѺÑαó¿α«óá¡¡δ¼  ß½«ó«¼  unit,
ºá  ¬«Γ«αδ¼ ß½ÑñπÑΓ ¿¼∩ ¼«ñπ½∩ (¿ñÑ¡Γ¿Σ¿¬áΓ«α) Γ«τ¡« ΓᬠªÑ,
¬á¬ ¿ ó ß½πτáÑ ¿¼Ñ¡¿ »α«úαá¼¼δ. æ½ÑñπεΘ¿¼ φ½Ñ¼Ñ¡Γ«¼ ó ¼«ñπ½Ñ
∩ó½∩ÑΓß∩ ¬½ετÑó«Ñ ß½«ó« interface. Ä¡« «í«º¡áτáÑΓ ¡áτὫ ¿¡-
ΓÑαΣÑ⌐ß¡«⌐ ßѬµ¿¿ ¼«ñπ½∩ - ßѬµ¿¿, ó¿ñ¿¼«⌐ óßѼ ñαπú¿¼ ¼«ñπ-
½∩¼ ¿½¿ »α«úαá¼¼á¼, ó ¬«Γ«αδσ «¡ ¿ß»«½∞ºπÑΓß∩.
     Åα«úαá¼¼¡δ⌐ ¼«ñπ½∞ ¼«ªÑΓ  ¿ß»«½∞º«óáΓ∞  ñαπú¿Ñ  ¼«ñπ½¿,
ñ½∩  φΓ«ú«  «¡¿ «»αÑñѽ∩εΓß∩ ó »αÑñ½«ªÑ¡¿¿ uses. ÅαÑñ½«ªÑ¡¿Ñ
uses, Ñß½¿ ¿¼ÑÑΓ ¼ÑßΓ«, Γ«  ß½ÑñπÑΓ  ßαáºπ  »«ß½Ñ  ¬½ετÑó«ú«
ß½«óá interface. ÄΓ¼ÑΓ¿¼, τΓ« ºñÑß∞ óδ»«½¡∩ÑΓß∩ «íΘÑÑ »αáó¿-
½« ¿ß»«½∞º«óá¡¿∩ »αÑñ½«ªÑ¡¿∩ uses: Ñß½¿ ¼«ñπ½∞, ¿¼∩ ¬«Γ«α«ú«
π¬áºá¡«  ó  »αÑñ½«ªÑ¡¿¿  uses,  ¿ß»«½∞ºπÑΓ ñαπú¿Ñ ¼«ñπ½¿, Γ«
¿¼Ñ¡á φΓ¿σ ¼«ñπ½Ñ⌐ Γá¬ªÑ ñ«½ª¡δ íδΓ∞ π¬áºá¡δ  ó  »αÑñ½«ªÑ¡¿¿
uses, »α¿τѼ ñ« Γ«ú«, ¬á¬ «¡¿ íπñπΓ ¿ß»«½∞º«óá¡δ.

                    ê¡ΓÑαΣÑ⌐ß¡á∩ ßѬµ¿∩

     ê¡ΓÑαΣÑ⌐ß¡δ⌐ αáºñѽ - "«íΘÑñ«ßΓπ»¡á∩" τáßΓ∞ ó ¼«ñπ½Ñ  -
¡áτ¿¡áÑΓß∩ ºáαѺÑαó¿α«óá¡¡δ¼ ß½«ó«¼ interface, ß½ÑñπÑΓ ßαáºπ
»«ß½Ñ ºáú«½«ó¬á ¼«ñπ½∩ ¿ ºá¬á¡τ¿óáÑΓß∩ »ÑαÑñ ºáαѺÑαó¿α«óá¡-
¡δ¼ ß½«ó«¼ implementation. ê¡ΓÑαΣÑ⌐ß «»αÑñѽ∩ÑΓ, τΓ« ∩ó½∩ÑΓ-
ß∩ "ó¿ñ¿¼δ¼" ñ½∩ ½εí«⌐ »α«úαá¼¼δ (¿½¿ ¼«ñπ½∩),  ¿ß»«½∞ºπεΘÑ⌐
ñá¡¡δ⌐  ¼«ñπ½∞.  ïεíá∩  »α«úαá¼¼á, ¿ß»«½∞ºπεΘá∩ φëà ¼«ñπ½∞,
¿¼ÑÑΓ ñ«ßΓπ» ¬ φΓ¿¼ "ó¿ñ¿¼δ¼" φ½Ñ¼Ñ¡Γá¼.
     é ¿¡ΓÑαΣÑ⌐ßÑ ¼«ñπ½∩ ¼«ª¡«  «»αÑñѽ∩Γ∞  ¬«¡ßΓá¡Γδ,  Γ¿»δ
ñá¡¡δσ,  »ÑαѼѡ¡δÑ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. èᬠ¿ ó »α«úαá¼¼Ñ,
«¡¿ ¼«úπΓ íδΓ∞ αáß»«½«ªÑ¡δ ó ½εí«¼ »«α∩ñ¬Ñ, ¿  ßѬµ¿¿  ¼«úπΓ
óßΓαÑτáΓ∞ß∩ »«óΓ«α¡« (¡á»α¿¼Ñα, type ... var ... <»α«µÑñπαδ>
... const ... type
     Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿, ó¿ñ¿¼δÑ ñ½∩ ½εí«⌐  »α«úαá¼¼δ,  ¿ß-
»«½∞ºπεΘÑ⌐  ñá¡¡δ⌐  ¼«ñπ½∞, «»¿ßδóáεΓß∩ ó ßѬµ¿¿ ¿¡ΓÑαΣÑ⌐ßá,
«ñ¡á¬« ¿σ ñÑ⌐ßΓó¿Γѽ∞¡δÑ Γѽá -  αÑ὿ºáµ¿¿  -  ¡áσ«ñ∩Γß∩  ó
ßѬµ¿¿  αÑ὿ºáµ¿¿.  àß½¿  »α«µÑñπαá  (¿½¿ Σπ¡¬µ¿∩) ∩ó½∩ÑΓß∩
ó¡ÑΦ¡Ñ⌐, Γ« ó ¿¡ΓÑαΣÑ⌐ßÑ ñ«½ª¡« íδΓ∞ π¬áºá¡« ¬½ετÑó«Ñ  ß½«ó«
external,  á ó ßѬµ¿¿ αÑ὿ºáµ¿¿ ¡Ñ ¡πª¡« »«óΓ«α¡« π¬áºδóáΓ∞
«»¿ßá¡¿Ñ »α«µÑñπαδ. àß½¿ »α«µÑñπαá  (¿½¿  Σπ¡¬µ¿∩)  ∩ó½∩ÑΓß∩
ñ¿αÑ¬Γ¿ó«⌐  inline,  Γ« ó ßѬµ¿¿ ¿¡ΓÑαΣÑ⌐ßá íπñÑΓ ¡áσ«ñ¿Γ∞ß∩
¼áΦ¿¡¡δ⌐ ¬«ñ (ß»¿ß«¬ µÑ½«τ¿ß½Ñ¡¡δσ ¬«¡ßΓá¡Γ), á ó ßѬµ¿¿ αÑ-
὿ºáµ¿¿ ¡Ñ ¡πª¡« π¬áºδóáΓ∞ ¡¿¬á¬«ú« ñαπú«ú« «»¿ßá¡¿∩ »α«µÑ-
ñπαδ. Ä»¿ßá¡¿∩ forward (»αÑñ«»¿ßá¡¿¿∩) ¡Ñ ∩ó½∩εΓß∩ ¡Ñ«íσ«ñ¿-
¼δ¼¿  ¿ ¡Ñ αáºαÑΦáεΓß∩. Æѽá óßÑσ «íδτ¡δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐
¡áσ«ñ∩Γß∩ ó ßѬµ¿¿ αÑ὿ºáµ¿¿, Ñß½¿ ºáú«½«ó¬¿ φΓ¿σ  »α«µÑñπα
¿ Σπ¡¬µ¿⌐ »ÑαÑτ¿ß½Ñ¡δ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßѬµ¿¿.

                     æѬµ¿∩ αÑ὿ºáµ¿¿

     æѬµ¿∩ αÑ὿ºáµ¿¿ - "»α¿óáΓ¡á∩" τáßΓ∞ - ¡áτ¿¡áÑΓß∩  ºá-
αѺÑαó¿α«óá¡¡δ¼  ß½«ó«¼  implementation.  éßÑ, τΓ« «»¿ßá¡« ó
ßѬµ¿¿ ¿¡ΓÑα- ΣÑ⌐ßá, ∩ó½∩ÑΓß∩ ó¿ñ¿¼δ¼ ó  ßѬµ¿¿  αÑ὿ºáµ¿¿:
¬«¡ßΓá¡Γδ,  Γ¿»δ, »ÑαѼѡ¡δÑ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. èα«¼Ñ Γ«-
ú«, ó ßѬµ¿¿ αÑ὿ºáµ¿¿ ¼«úπΓ íδΓ∞ ßó«¿ ñ«»«½¡¿Γѽ∞¡δÑ  «»¿-
ßá¡¿∩, ¬«Γ«αδÑ ¡Ñ ∩ó½∩εΓß∩ ó¿ñ¿¼δ¼¿ ñ½∩ »α«úαá¼¼, ¿ß»«½∞ºπε-
Θ¿σ φëà ¼«ñπ½∞. Åα«úαá¼¼á ¡Ñ º¡áÑΓ « ¿σ ßπΘÑßΓó«óá¡¿¿ ¿  ¡Ñ
¼«ªÑΓ  ßßδ½áΓ∞ß∩  ¡á  ¡¿σ  ¿½¿ «íαáΘáΓ∞ß∩ ¬ ¡¿¼. Äñ¡á¬«, φΓ¿
ß»α∩Γá¡¡δÑ φ½Ñ¼Ñ¡Γδ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩  (¿,  ¬á¬  »αá󿽫,
¿ß»«½∞ºπεΓß∩)  "ó¿ñ¿¼δ¼¿"  »α«µÑñπαἿ  ¿ Σπ¡¬µ¿∩¼¿, Γ« ÑßΓ∞
ΓѼ¿ »«ñ»α«úαἼἿ, τ∞¿ ºáú«½«ó¬¿ π¬áºá¡δ ó  ßѬµ¿¿  ¿¡ΓÑα-
ΣÑ⌐ßá.
     àß½¿ ¬á¬¿Ñ-Γ« »α«µÑñπαδ í뫨 «»¿ßá¡δ ¬á¬ ó¡ÑΦ¡¿Ñ, Γ«  ó
¿ßσ«ñ¡«¼ Σá⌐½Ñ ñ«½ª¡δ íδΓ∞ π¬áºá¡δ «ñ¡á ¿½¿ ¡Ñ߬«½∞¬« ñ¿αѬ-
Γ¿ó {$L ¿¼∩_Σá⌐½á}. àß½¿ ó ¿ßσ«ñ¡«¼ Σá⌐½Ñ «ΓßπΓßΓóπÑΓ ßѬµ¿∩
¿¡¿µ¿á½¿ºáµ¿¿, Γ« ñ¿αÑ¬Γ¿óá {$L ¿¼∩_Σá⌐½á} ¼«ªÑΓ íδΓ∞ π¬áºá-
¡á ó ½εí«¼ ¼ÑßΓÑ ñ« ºáóÑαΦáεΘÑú« end  ¼«ñπ½∩.  ä¿αÑ¬Γ¿óá  $L
»«ºó«½∩ÑΓ  ¬«¼»«¡«óáΓ∞  «íΩÑ¬Γ¡δÑ  ¼«ñ㫨  ∩ºδ¬á áßßѼí½Ñαá,
αáºαÑΦáεΘ¿Ñ ó¡ÑΦ¡¿Ñ »α«µÑñπαδ.
     Äíδτ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, «»¿ßá¡¡δÑ  ó  ¿¡ΓÑαΣÑ⌐ß¡«⌐
ßѬµ¿¿  (Γ«  ÑßΓ∞  ΓÑ  ¿º ¡¿σ, ¬«Γ«αδÑ ¡Ñ ¿¼ÑεΓ Γ¿» inline),
ñ«½ª¡δ íδΓ∞ »«óΓ«α¡« π¬áºá¡δ ó ßѬµ¿¿ αÑ὿ºáµ¿¿.  çáú«½«ó«¬
procedure/function  ñ«½ªÑ¡ íδΓ∞ ¿½¿ ¿ñÑ¡Γ¿τ¡δ¼ Γ«¼π, ¬«Γ«αδ⌐
π¬áºá¡ ó ßѬµ¿¿ ¿¡ΓÑαΣÑ⌐ßá, ¿½¿ ¿¼ÑΓ∞ í«½ÑÑ ¬αáΓ¬πε Σ«α¼π. é
ß½πτáÑ  ¬αáΓ¬«⌐  Σ«α¼δ ¡á»ÑτáΓá⌐ΓÑ ¬½ετÑó«Ñ ß½«ó« (procedure
¿½¿ function), á ºá ¡¿¼ π¬áª¿ΓÑ ¿¼∩ »«ñ»α«úαá¼¼δ  (¿ñÑ¡Γ¿Σ¿-
¬áΓ«α). çáΓѼ »«ñ»α«úαá¼¼á ñ«½ª¡á ß«ñÑαªáΓ∞ óßÑ ßó«¿ ½«¬á½∞-
¡δÑ «»¿ßá¡¿∩ (¼ÑΓ¬¿, ¬«¡ßΓá¡Γδ, Γ¿»δ, »ÑαѼѡ¡δÑ ¿ 󽫪ѡ¡δÑ
»α«µÑñπαδ ¿ Σπ¡¬µ¿¿), ºá ¬«Γ«α묨 ñ«½ª¡« ¡áσ«ñ¿Γ∞ß∩ «ß¡«ó¡«Ñ
Γѽ« ßἫ⌐ »«ñ»α«úαá¼¼δ. ÅπßΓ∞ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßѬµ¿¿ π¬áºá¡δ
ß½ÑñπεΘ¿Ñ «»¿ßá¡¿∩:

     procedure ISwap(var V1,V2 : integer);
     function IMax(V1,V2 : integer) : integer;

æѬµ¿∩ αÑ὿ºáµ¿¿ Γ«úñá íπñÑΓ ¿¼ÑΓ∞ ó¿ñ:

procedure ISwap; var
     Temp := integer; begin
     Temp := V1; V1 := V2; V2 := Temp end; { ¬«¡Ñµ »α«µÑñπαδ
Swap } function IMax(V1,V2 : integer) : integer; begin
     if V1 > V2
     then IMax := V1
     else IMax := V2 end; { ¬«¡Ñµ Σπ¡¬µ¿¿ Max }
     Å«ñ»α«úαá¼¼δ, ½«¬á½∞¡δÑ ñ½∩ ßѬµ¿¿ αÑ὿ºáµ¿¿ (Γ«  ÑßΓ∞
¡Ñ  «»¿ßá¡¡δÑ ó ßѬµ¿¿ αÑ὿ºáµ¿¿), ñ«½ª¡δ ¿¼ÑΓ∞ »«½¡δ⌐, ¡Ñ-
ß«¬αáΘÑ¡¡δ⌐ ºáú«½«ó«¬ procedure/function.

                    æѬµ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿

     Äíδτ¡« óß∩ ßѬµ¿∩ αÑ὿ºáµ¿¿ ¼«ñπ½∩ ºá¬½ετÑ¡á ¼Ñªñπ ºá-
αѺÑαó¿α«óá¡¡δ¼¿  ß½«óἿ implementation ¿ end. Äñ¡á¬«, Ñß½¿
»ÑαÑñ end »«¼ÑßΓ¿Γ∞ ºáαѺÑαó¿α«óá¡¡«Ñ ß½«ó« begin,  á  ¼Ñªñπ
¡¿¼¿  - «»ÑαáΓ«αδ, Γ« »«½πτ¿óΦ¿⌐ß∩ ß«ßΓáó¡«⌐ «»ÑαáΓ«α, «τÑ¡∞
»«σ«ª¿⌐ ¡á «ß¡«ó¡«Ñ Γѽ« »α«úαá¼¼δ, ßΓá¡«ó¿Γß∩ ßѬµ¿Ñ⌐  ¿¡¿-
µ¿á½¿ºáµ¿¿ ¼«ñπ½∩.
     æѬµ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¼ÑßΓ«, úñÑ ¿¡¿-
µ¿á½¿º¿απεΓß∩ ßΓαπ¬Γπαδ ñá¡¡δσ (»ÑαѼѡ¡δσ), ¬«Γ«αδÑ ¿ß»«½∞-
ºπÑΓ »α«úαá¼¼¡δ⌐ ¼«ñπ½∞ ¿½¿  ¬«Γ«αδÑ  «¡  ñѽáÑΓ  ñ«ßΓπ»¡δ¼¿
»α«úαá¼¼Ñ,  ¿ß»«½∞ºπεΘÑ⌐  ñá¡¡δ⌐ ¼«ñπ½∞. éδ ¼«ªÑΓÑ ¿ß»«½∞º«-
óáΓ∞ φΓπ ßѬµ¿ε ñ½∩ «Γ¬αδΓ¿∩ Σá⌐½«ó, ¬«Γ«αδÑ  »α«úαá¼¼á  ¿ß-
»«½∞ºπÑΓ »«ºªÑ. ìá»α¿¼Ñα, ßΓá¡ñáαΓ¡δ⌐ ¼«ñπ½∞ Printer ¿ß»«½∞-
ºπÑΓ ßѬµ¿ε ¿¡¿µ¿á½¿ºáµ¿¿ ñ½∩ óδ»«½¡Ñ¡¿∩ ºá»α«ß«ó ¡á  «Γ¬αδ-
Γ¿Ñ  (ñ½∩  óδó«ñá) ΓѬßΓ«ó«ú« Σá⌐½á Lst, ¬«Γ«αδ⌐ ºáΓѼ ¼«ª¡«
¿ß»«½∞º«óáΓ∞ ó «»ÑαáΓ«αáσ Write ¿ Writeln ó óáΦÑ⌐ »α«úαá¼¼Ñ.
     Åα¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ,  ¿ß»«½∞ºπεΘÑ⌐  ¡Ñ¬«Γ«αδ⌐  ¼«-
ñπ½∞, ßѬµ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿ φΓ«ú« ¼«ñπ½∩ óδºδóáÑΓß∩ »ÑαÑñ ºá-
»π߬«¼ «ß¡«ó¡«ú« ΓÑ½á »α«úαá¼¼δ. àß½¿  »α«úαá¼¼á  ¿ß»«½∞ºπÑΓ
í«½ÑÑ  «ñ¡«ú«  ¼«ñπ½∩,  Γ« ßѬµ¿¿ ¿¡¿µ¿á½¿ºáµ¿¿ óßÑσ ¼«ñπ½Ñ⌐
óδºδóáεΓß∩ (ó »«α∩ñ¬Ñ, π¬áºá¡¡«¼ ó «»ÑαáΓ«αÑ uses ó »α«úαá¼-
¼Ñ) »ÑαÑñ ΓѼ, ¬á¬ óδ»«½¡¿Γ∞ «ß¡«ó¡«Ñ Γѽ« »α«úαá¼¼δ.

                  èᬠ¿ß»«½∞ºπεΓß∩ ¼«ñπ½¿?

     î«ñπ½¿, ¬«Γ«αδÑ ¿ß»«½∞ºπÑΓ óáΦá »α«úαá¼¼á, πªÑ  «ΓΓαá¡-
ß½¿α«óá¡δ  ¿  σαá¡∩Γß∩,  ¬á¬ ¼áΦ¿¡¡δ⌐ ¬«ñ, á ¡Ñ ¬á¬ ¿ßσ«ñ¡δ⌐
¬«ñ ¡á Åá߬á½Ñ, »«ß¬«½∞¬π «¡¿ ¡Ñ ∩ó½∩εΓß∩ ó¬½ετáÑ¼δ¼¿ Σá⌐½á-
¼¿ (Σá⌐½á¼¿ Γ¿»á Include). äáªÑ ¿¡ΓÑαΣÑ⌐ß¡á∩ ßѬµ¿∩ σαá¡¿Γß∩
ó ߻ѵ¿á½∞¡«¼ ñó«¿τ¡«¼ Σ«α¼áΓÑ ß¿¼ó«½∞¡«⌐ Γáí½¿µδ, ¿ß»«½∞ºπ-
Ѽ«¼  ó  Æπαí«-Åá߬á½Ñ. ü«½ÑÑ Γ«ú«, «»αÑñѽѡ¡δÑ ßΓá¡ñáαΓ¡δÑ
¼«ñ㫨 σαá¡∩Γß∩ ó ߻ѵ¿á½∞¡«¼ Σá⌐½Ñ (TURBO.TPL) ¿  áóΓ«¼áΓ¿-
τÑ߬¿ ºáúαπªáεΓß∩ ó »á¼∩Γ∞ ó¼ÑßΓÑ ß Æπαí«-Åá߬á½Ñ¼.
     é αѺπ½∞ΓáΓÑ ¿ß»«½∞º«óá¡¿Ñ «ñ¡«ú« ¿½¿ ¡Ñ߬«½∞¬¿σ  ¼«ñπ-
½Ñ⌐  «τÑ¡∞  ¡Ñº¡áτ¿Γѽ∞¡« πóѽ¿τ¿óáÑΓ óαѼ∩ ¬«¼»¿½∩µ¿¿ óáΦÑ⌐
»α«úαá¼¼δ («íδτ¡« ¼Ñ¡ÑÑ, τѼ ¡á ßѬπ¡ñπ).  àß½¿  »α«úαá¼¼¡δÑ
¼«ñ㫨  ºáúαπªáεΓß∩  ¿º  «Γñѽ∞¡«ú« Σá⌐½á ¡á ñ¿ß¬Ñ, Γ« ¼«ªÑΓ
»«ΓαÑí«óáΓ∞ß∩ ¡Ñ߬«½∞¬« ñ«»«½¡¿Γѽ∞¡δσ ßѬπ¡ñ ñ½∩  τΓÑ¡¿∩  ß
ñ¿ß¬á.
     èᬠπ¬áºδóὫß∞ αá¡ÑÑ, ñ½∩  ¿ß»«½∞º«óá¡¿∩  ߻ѵ¿á½∞¡«ú«
¼«ñπ½∩  ¿½¿ ¡áí«αá ¼«ñπ½Ñ⌐ ¡Ñ«íσ«ñ¿¼« ó ¡áτá½Ñ »α«úαá¼¼δ »«-
¼ÑßΓ¿Γ∞ »αÑñ½«ªÑ¡¿Ñ uses, »«ß½Ñ ¬«Γ«α«ú« π¬áºáΓ∞ ß»¿ß«¬ ¿¼Ñ¡
ΓÑσ ¼«ñπ½Ñ⌐, ¬«Γ«αδÑ íπñπΓ ¿ß»«½∞º«óáΓ∞ß∩; ¿¼Ñ¡á ñ«½ª¡δ íδΓ∞
αáºñÑ½Ñ¡δ ºá»∩Γ묨:

     program MyProg;
     uses thisUnit,thatUnit,theOtherUnit;

è«úñá ¬«¼»¿½∩Γ«α óßΓαÑτáÑΓ φΓ« »αÑñ½«ªÑ¡¿Ñ uses, «¡  »α¿íáó-
½∩ÑΓ ¿¡Σ«α¼áµ¿ε ¿º ßѬµ¿¿ ¿¡ΓÑαΣÑ⌐ßá ¬áªñ«ú« ¼«ñπ½∩ ¬ Γáí½¿-
µÑ ß¿¼ó«½«ó ¿ »α¿ß«Ññ¿¡∩ÑΓ  ¼áΦ¿¡¡δ⌐  ¬«ñ,  »αÑñßΓáó½Ñ¡δ⌐  ó
ßѬµ¿¿ αÑ὿ºáµ¿¿, ¬ ßἫ⌐ »α«úαá¼¼Ñ.
     î«ñ㫨 »α¿ß«Ññ¿¡∩εΓß∩ ¬ Γáí½¿µÑ  ß¿¼ó«½«ó  ó  π¬áºá¡¡«¼
»«α∩ñ¬Ñ. ¥Γ«Γ »«α∩ñ«¬ ¼«ªÑΓ íδΓ∞ ßπΘÑßΓóÑ¡¡δ¼, Ñß½¿ «ñ¿¡ ¼«-
ñπ½∞ ¿ß»«½∞ºπÑΓ ñαπú«⌐. ìá»α¿¼Ñα, Ñß½¿  thisUnit  ¿ß»«½∞ºπÑΓ
thatUnit, Γ« »αÑñ½«ªÑ¡¿Ñ uses ñ«½ª¡« ¿¼ÑΓ∞ ó¿ñ:

     uses thatUnit,thisUnit,theOtherUnit;

¿½¿

     uses thatUnit,theOtherUnit,thisUnit;

è«α«τÑ ú«ó«α∩, ó ß»¿ß¬Ñ ¼«ñπ½∞ ñ«½ªÑ¡ íδΓ∞ π¬áºá¡ »«ß½Ñ óßÑσ
ΓÑσ ¼«ñπ½Ñ⌐, ¬«Γ«αδÑ «¡ ¿ß»«½∞ºπÑΓ.
     àß½¿ ó »α«úαá¼¼Ñ  ¡Ñ  π¬áºá¡«  »αÑñ½«ªÑ¡¿Ñ  uses,  Æπα-
í«-Åá߬á½∞  ó  ½εí«¼  ß½πτáÑ  »α¿ß«Ññ¿¡¿Γ ßΓá¡ñáαΓ¡δ⌐ ¼«ñπ½∞
System. ¥Γ«Γ ¼«ñπ½∞ «íÑß»Ñτ¿Γ óδ»«½¡Ñ¡¿Ñ ¡Ñ¬«Γ«αδσ  ßΓá¡ñáα-
Γ¡δσ  »á߬á½Ñó߬¿σ  »«ñ»α«úαá¼¼, á Γá¬ªÑ ¡Ñ߬«½∞¬¿σ »«ñ»α«ú-
αá¼¼áσ, ߻ѵ¿Σ¿τÑ߬¿σ ñ½∩ Æπαí«-Åá߬á½∩.

                 æß佬¿ ¡á «»¿ßá¡¿∩ ¼«ñπ½∩

     èá¬ Γ«½∞¬« óδ ó¬½ετ¿½¿ ¼«ñπ½∞  ó  ßó«ε  »α«úαá¼¼π,  óßÑ
¬«¡ßΓá¡Γδ,  Γ¿»δ  ñá¡¡δσ,  »ÑαѼѡ¡δÑ,  »α«µÑñπαδ ¿ Σπ¡¬µ¿¿,
«»¿ßá¡¡δÑ ó ßѬµ¿¿ ¿¡ΓÑαΣÑ⌐ßá φΓ«ú« ¼«ñπ½∩, ßΓá¡«ó∩Γß∩  ñ«ß-
Γπ»¡δ¼¿ ñ½∩ óáΦÑ⌐ »α«úαá¼¼δ. ìá»α¿¼Ñα, ñ«»πßΓ¿¼, τΓ« ¿¼ÑÑΓß∩
ß½ÑñπεΘ¿⌐ ¼«ñπ½∞:

unit MyStuff;
interface
  const
    MyValue = 915;
  type
    MyStars = (Deneb,Antares,Betelgeuse);
  var
    MyWord : string[20];

  procedure SetMyWord(Star : MyStars);
  function TheAnswer : integer;

Æá τáßΓ∞ ¼«ñπ½∩, ¬«Γ«αá∩ ¡áσ«ñ¿Γß∩  ó  ¿¡ΓÑαΣÑ⌐ß¡«⌐  ßѬµ¿¿,
∩ó½∩ÑΓß∩  ó¿ñ¿¼«⌐  ñ½∩  óáΦÑ⌐ »α«úαá¼¼δ (¿ ¼«ªÑΓ íδΓ∞ Ñε ¿ß-
»«½∞º«óá¡á). ü½áú«ñáα∩ φΓ«¼π ¼«ª¡« ¡á»¿ßáΓ∞ ß½ÑñπεΘπε  »α«ú-
αá¼¼π:

program TestStuff;
uses MyStuff;
var
  I     : integer;
  AStar : MyStars;
begin
  Writeln(myValue);
  AStar := Deneb;
  SetMyWord(AStar);
  Writeln(MyWord);
  I := TheAnswer;
  Writeln(I)
end.

Å«ß½Ñ Γ«ú«, ¬á¬ ó¬½ετÑ¡¿∩ ó »α«úαá¼¼π  »αÑñ½«ªÑ¡¿∩  uses  óδ
¼«ªÑΓÑ  ßßδ½áΓ∞ß∩  ¡á óßÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ, «»¿ßá¡¡δÑ ó ¿¡ΓÑα-
ΣÑ⌐ß¡«⌐ ßѬµ¿¿ ¼«ñπ½∩ îyStuff (îyWord, îyValue ¿ Γᬠñá½ÑÑ).
Äñ¡á¬«, αáßß¼«Γα¿¼ ß½ÑñπεΘπε ß¿Γπᵿε:

program TestStuff;
uses MyStuff;
const
  MyValue = 22;
var
  I     : integer;
  AStar : MyStars;

  function TheAnswer : integer;
  begin
    TheAnswer := 1
  end;

begin
  Writeln(myValue);
  AStar := Deneb;
  SetMyWord(AStar);
  Writeln(MyWord);
  I := TheAnswer;
  Writeln(I)
end.

     é φΓ«⌐ »α«úαá¼¼Ñ »ÑαÑ«»αÑñѽ∩εΓß∩ ¡Ñ¬«Γ«αδÑ ¿º  ¿ñÑ¡Γ¿-
Σ¿¬áΓ«α«ó,  «»¿ßá¡¡δσ  ó îyStuff. üπñπτ¿ «ΓΓαá¡ß½¿α«óá¡¡«⌐ ¿
óδ»«½¡Ñ¡¡«⌐, φΓá »α«úαá¼¼á  íπñÑΓ  ¿ß»«½∞º«óáΓ∞  ß«íßΓóÑ¡¡δÑ
«»αÑñѽѡ¿∩ ñ½∩ îyValue ¿ ÆheAnswer, »«ß¬«½∞¬π «¡¿ í뫨 «»¿-
ßá¡δ »«ºªÑ, τѼ «»αÑñѽѡ¿∩ ó îyStuff
     éÑα«∩Γ¡«, óá¼ ¿¡ΓÑαÑß¡« º¡áΓ∞, ¬á¬¿¼  «íαẫ¼  ó  Γᬫ⌐
ß¿Γπᵿ¿  ¼«ª¡«  ßßδ½áΓ∞ß∩  ¡á ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ó îyStuff. ä½∩
φΓ«ú« ¡Ñ«íσ«ñ¿¼« »ÑαÑñ ¬áªñδ¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼  »«¼ÑΘáΓ∞  ¿¼∩
îyStuff  ß  Γ«τ¬«⌐ (.). ìá»α¿¼Ñα, αáßß¼«Γα¿¼ ÑΘÑ «ñ¡π óÑαß¿ε
φΓ«⌐ »α«úαá¼¼δ:

program TestStuff;
uses MyStuff;
const
  MyValue = 22;
var
  I     : integer;
  AStar : MyStars;

  function TheAnswer : integer;
  begin
    TheAnswer := 1
  end;

begin
  Writeln(MyStuff.MyValue);
  AStar := Deneb;
  SetMyWord(AStar);
  Writeln(MyWord);
  I := MyStuff.TheAnswer
  Writeln(I)
end.

     ¥Γá »α«úαá¼¼á ñáßΓ Γá¬¿Ñ ªÑ «ΓóÑΓδ, τΓ« ¿ »Ñαóá∩,  ñáªÑ
ó  Γ«¼ ß½πτáÑ, Ñß½¿ óδ »ÑαÑ«»αÑñѽ¿ΓÑ MyValue ¿ ÆheAnswer. é
ñÑ⌐ßΓó¿Γѽ∞¡«ßΓ¿ óδ ¿¼Ñ½¿ »«½¡«Ñ »αáó« (σ«Γ∩ ¿ ñ«ó«½∞¡« ß«¼-
¡¿Γѽ∞¡«Ñ) ¡á»¿ßáΓ∞ »Ñαóπε »α«úαá¼¼π ß½ÑñπεΘ¿¼ «íαẫ¼:

program TestStuff;
uses MyStuff;
var
  I     : integer;
  AStar : MyStuff.MyStars;

begin
  Writeln(MyStuff.MyValue);
  AStar := My.Stuff.Deneb;
  MyStuff.SetMyWord(AStar);
  Writeln(My.Stuff.MyWord);
  I := MyStuff.TheAnswer;
  Writeln(I)
end.

ÄΓ¼ÑΓ¿¼, τΓ« ¿¼∩ ¼«ñπ½∩ ¼«ªÑΓ »αÑñΦÑßΓó«óáΓ∞ ½εí«¼π  ¿ñÑ¡Γ¿-
Σ¿¬áΓ«απ: ¬«¡ßΓá¡ΓÑ, Γ¿»π ñá¡¡δσ, »ÑαѼѡ¡«⌐ ¿½¿ »«ñ»α«úαá¼-
¼Ñ.

             ÅαÑñ½«ªÑ¡¿Ñ uses ßѬµ¿¿ αÑ὿ºáµ¿¿

     é óÑαß¿¿ 5.0 Æπαí«-Åá߬á½∞ »«ºó«½∩ÑΓ  óá¼  αẼÑΘáΓ∞  ó
ßѬµ¿¿ αÑ὿ºáµ¿¿ »αÑñ½«ªÑ¡¿Ñ ¿ß»«½∞º«óá¡¿∩ (uses). é ß½πτáÑ
Ñú« »α¿ßπΓßΓó¿∩ »αÑñ½«ªÑ¡¿Ñ  uses  ñ«½ª¡«  ß½Ññ«óáΓ∞  ¡Ñ»«ß-
αÑñßΓóÑ¡¡«  ºá  ¬½ετÑóδ¼  ß½«ó«¼  implementation (á¡á½«ú¿τ¡«
Γ«¼π, ¬á¬ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßѬµ¿¿  »αÑñ½«ªÑ¡¿Ñ  clause  ñ«½ª¡«
ß½Ññ«óáΓ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡« ºá ¬½ετÑóδ¼ ß½«ó«¼ interface).
     ÉẼÑΘÑ¡¿Ñ ßѬµ¿¿ αÑ὿ºáµ¿¿ »αÑñ½«ªÑ¡¿∩ uses »«ºó«½∩ÑΓ
"߬αδΓ∞"  ó¡πΓαÑ¡¡¿Ñ  ñÑΓ὿ ¼«ñπ½∩, »«ß¬«½∞¬π ¿ß»«½∞ºÑ¼δÑ ó
ßѬµ¿¿ αÑ὿ºáµ¿¿ ¼«ñ㫨 «¬áºδóáεΓß∩ "¡Ñó¿ñ¿¼δ¼¿" ñ½∩  Γ«ú«,
¬Γ«  φëà ¼«ñπ½∞ ¿ß»«½∞ºπÑΓ.  ü«½ÑÑ ó᪡δ¼, «ñ¡á¬«, ∩ó½∩ÑΓß∩
Γ«, τΓ« φΓ« »«ºó«½∩ÑΓ óá¼ ßΓα«¿Γ∞ óºá¿¼¡«ºáó¿ß¿¼δÑ ¼«ñπ½¿.
     ū߬«½∞¬π »α«úαá¼¼¡δÑ ¼«ñ㫨 ó Æπαí«-Åá߬á½Ñ ¡Ñ «í∩ºá¡δ
¿¼ÑΓ∞ ßΓα«ú« ¿Ñαáασ¿τÑ߬πε ßΓαπ¬Γπαπ, Γ« ñ«»π߬áÑΓß∩ ¿ß»«½∞-
º«óáΓ∞ µ¿¬½¿τÑ߬¿Ñ ßß佬¿ ¡á ¼«ñπ½¿. é ß½ÑñπεΘѼ αáºñÑ½Ñ »«-
¬áºá¡  »α¿¼Ñα,  ñѼ«¡ßΓα¿αεΘ¿⌐ »«½Ñº¡«Ñ ¿ß»«½∞º«óá¡¿Ñ µ¿¬½¿-
τÑ߬¿σ ßß佫¬.

               û¿¬½¿τÑ߬¿Ñ ßß佬¿ ¡á ¼«ñπ½¿

     é ß½ÑñπεΘÑ⌐ »α«úαá¼¼Ñ »«¬áºá¡δ ñóá ¼«ñπ½∩, ¬«Γ«αδÑ "¿ß-
»«½∞ºπεΓ" ñαπú ñαπúá. Äß¡«ó¡á∩ »α«úαá¼¼á Circular ¿ß»«½∞ºπÑΓ
¼«ñπ½∞ ß ¿¼Ñ¡Ñ¼ Display. î«ñπ½∞ Display ß«ñÑαª¿Γ ó ßó«Ñ⌐ ¿¡-
ΓÑαΣÑ⌐ß¡«⌐  ßѬµ¿¿ «ñ¡« »α«úαá¼¼π WriteXY, ¬«Γ«αá∩ ¿¼ÑÑΓ Γα¿
»áαá¼ÑΓαá: »áα𠬫«αñ¿¡áΓ (x,y) ¿ ß««íΘÑ¡¿Ñ  ñ½∩  óδó«ñá  ¡á
φ¬αá¡. WriteXY »ÑαѼÑΘáÑΓ ¬παß«α ó Γ«τ¬π (x,y) ¿ óδó«ñ¿Γ Γá¼
ß««íΘÑ¡¿Ñ. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡á óδºδáÑΓ »α«ßΓπε  »α«úαá¼¼π
«íαáí«Γ¬¿ «Φ¿í¬¿.
     Å«¬á ¼δ ¡Ñ ó¿ñ¿¼ ºñÑß∞  ¡¿τÑú«  ¿¡ΓÑαÑß¡«ú«:  »α«µÑñπαá
WriteXY  »α«ßΓ« ¿ß»«½∞ºπÑΓß∩  ó¼ÑßΓ« »α«µÑñπαδ Write. Äñ¡á¬«
ñá½ÑÑ, ¬«úñá »α«úαá¼¼á «íαáí«Γ¬¿ «Φ¿í¬¿ íπñÑΓ óδó«ñ¿Γ∞ ß««í-
ΘÑ¡¿Ñ  ¡á  φ¬αá¡,  ¡áτ¿¡áεΓß∩  µ¿¬½¿τÑ߬¿Ñ  ßß佬¿ (óÑñ∞ »α¿
φΓ«¼ «¡á ß¡«óá ¿ß»«½∞ºπÑΓ WriteXY). Æᬿ¼ «íαẫ¼, ¼δ  ¿¼ÑѼ
»α«µÑñπαπ  WriteXY, óδºδóáεΘπε  »α«µÑñπαπ  «íαáí«Γ¬¿  «Φ¿í¬¿
SwapError, ¬«Γ«αá∩ ó ßó«ε «τÑαÑñ∞ óδºδóáÑΓ WriteXY ñ½∩ óδó«-
ñá  ß««íΘÑ¡¿∩ ¡á φ¬αá¡. àß½¿ π óáß πªÑ «Γ óßÑú« φΓ«ú« ºá¬απ-
ª¿½áß∞ ú«½«óá, ¡Ñ íÑñá. äáóá⌐ΓÑ αáßß¼«Γα¿¼  ¿ßσ«ñ¡δ⌐  ¬«ñ  ó
à»α¿¼ÑαÑ ¿ πó¿ñ¿¼, τΓ« óßÑ φΓ« ¡Ñ ßΓ«½∞ πª ºá»πΓá¡«.
     Äß¡«ó¡á∩ »α«úαá¼¼á Circular «τ¿ΘáÑΓ φ¬αá¡  ¿  óδ»«½¡∩ÑΓ
Γα¿ «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ WriteXY:

  program Circular;
  { óδó«ñ¿Γ ΓѬßΓ, ¿ß»«½∞ºπ∩ WriteXY }

  uses
     Crt, Display;

  begin
    ClrScr;
    WriteXY(1, 1, 'ïÑóδ⌐ óÑασ¡¿⌐ πú«½ φ¬αá¡á');
    WriteXY(100, 100, 'çá »αÑñѽἿ φ¬αá¡á');
    WriteXY(81 - Lenght('æ¡«óá ó φ¬αá¡..'), 15, 'æ¡«óá ó
 φ¬αá¡..');
  end.

     éºú½∩¡¿ΓÑ ¡ ¬««αñ¿¡Γδ (x,y) ¿α¿ óΓ«α«¼ «íαáΘÑ¡¿¿ ¬ »α«-
µÑñπαÑ   WriteXY.   é  Γ«τ¬Ñ  ß  ¬««αñ¿¡áΓἿ  (100,100)  ¡á
80σ25-ß¿¼ó«½∞¡«¼ φ¬αá¡Ñ óδóÑßΓ¿  ΓѬßΓ  ¡Ñ󫺼«ª¡«.  äáóá⌐ΓÑ
ΓÑ»Ñα∞ »«ß¼«Γα¿¼, ¬á¬ αáí«ΓáÑΓ »α«µÑñπαá WriteXY. äá½ÑÑ »α¿-
óÑñÑ¡ ΓѬßΓ ¿ßσ«ñ¡«ú« ¬«ñá ¼«ñπ½∩ Display, ó ¬«Γ«α«¼  ß«ñÑα-
ª¿Γß∩  »α«µÑñπαá WriteXY. àß½¿ ¬««αñ¿¡áΓδ (x,y) ∩ó½∩εΓß∩ ñ«-
»πßΓ¿¼δ¼¿, «¡á óδó«ñ¿Γ ¡á φ¬αá¡ ß««íΘÑ¡¿Ñ. é »α«Γ¿ó¡«¼  ß½π-
τáÑ «¡á óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ.

 unit Display;
 { ß«ñÑαª¿Γ »α«ßΓπε »α«úαá¼¼π óδó«ñá ¿¡Σ«α¼áµ¿¿ ¡á φφ¬αá¡ }

 interface

 procedure WriteXY(X,Y : integer, Message : string);

 inplementation
 uses
    Crt, Error;
 procedure WriteXY(X,Y : integer, Message : string);
 begin
   if (X in [1..80] and Y in [1..25] then
   begin
     Goto(X,Y);
     Write(Message);
   end;
   else
     ShowError('ìÑóÑα¡δÑ ¬««αñ¿¡áΓδ ó »α«µÑñπαÑ WriteXY');
  end;

  end.

     Åα«µÑñπαá ShowError, óδºδóáѼá∩  ó  »α«µÑñπαÑ  WriteXY,
»«¬áºá¡á ó »α¿óÑñÑ¡¡«¼ ñá½ÑÑ ¿ßσ«ñ¡«¼ ¬«ñÑ ¼«ñπ½∩ Error. Ä¡á
óßÑúñá óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ¡á 25-⌐ ßΓα«¬Ñ φ¬αá¡á.

  unit Error;
  { ß«ñÑαª¿Γ »α«ßΓπε »α«úαá¼¼π ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ }

  interface

  procedure ShowError(ErrMsg : string);

  inplementation

  uses
     Display;

  procedure ShowError(ErrMsg :string);
  begin
    WriteXY(1,25, 'ÄΦ¿í¬á: '+ ErrMsg);
  end;

  end.

     ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ, τΓ« »αÑñ½«ªÑ¡¿∩ uses ó ßѬµ¿¿ αÑ὿-
ºáµ¿¿ «í«¿σ ¼«ñπ½Ñ⌐ (Display ¿ Error) ßßδ½áεΓß∩ ñαπú ¡á ñαπ-
úá. ¥Γ¿ ñóá ¼«ñπ½∩ ¼«úπΓ ßßδ½áΓ∞ß∩ ñαπú ¡á  ñαπúá  ó  ßѬµ¿¿
αÑ὿ºáµ¿¿ í½áú«ñáα∩ Γ«¼π, τΓ« Æπαí«-Åá߬á½∞ ¼«ªÑΓ ñ½∩ «íÑ¿σ
¼«ñπ½Ñ⌐ óδ»«½¡∩Γ∞  »«½¡πε  ¬«¼»¿½∩µ¿ε  ¿¡ΓÑαΣÑ⌐ß¡δσ  ßѬµ¿⌐.
äαπú¿¼¿ ß½«óἿ, ¬«¼»¿½∩Γ«α Æπαí«-Åá߬á½∩ «ß»α¿¡¿¼áÑΓ ßß佬π
¡á τáßΓ¿τ¡« ߬«¼»¿½¿α«óá¡¡δ⌐ ¼«ñπ½∞ Ç  ó  ßѬµ¿¿  αÑ὿ºáµ¿¿
¼«ñπ½∩  é,  Ñß½¿  ¿¡ΓÑαΣÑ⌐ß¡δÑ ßѬµ¿¿ ¼«ñπ½∩ Ç ¿ ¼«ñπ½∩ é ¡Ñ
ºáó¿ß∩Γ ñαπú «Γ ñαπúá (¿, ß½Ññ«óáΓѽ∞¡«, ßΓα«ú« ß«íí½εñáεΓß∩
»αáó¿½á Æπαí«-Åá߬á½∩, ¬áßáεΘ¿Ñß∩ »«α∩ñ¬á «»¿ßá¡¿∩).

             æ«ó¼ÑßΓ¡«Ñ ¿ß»«½∞º«óá¡¿Ñ «»¿ßá¡¿⌐

     ¡« ¼«ñ¿Σ¿µ¿α«óáΓ∞ »α«µÑñπαπ WriteXY  Γᬿ¼  «íαẫ¼,
τΓ«íδ  «¡á  ó«ß»α¿¡¿¼á½á  ñ«»«½¡¿Γѽ∞¡δ⌐  »áαá¼ÑΓα, ºáñáεΘ¿⌐
»α∩¼«πú«½∞¡«Ñ «¬¡« ¡á φ¬αá¡Ñ:

  procedure WriteXY(SomeWindow : WindRec;
                    X, Y :       integer;
                    Message :    string);

  procedure ShowError(Somewindow : WindRec;
                      ErrMsg : string);

     ìπª¡« πτ¿ΓδóáΓ∞, τΓ« ñóÑ »α«µÑñπαδ ¡áσ«ñ∩Γß∩  ó  αạδσ
¼«ñπ½∩σ.  äáªÑ  Ñß½¿  óδ  «»¿ßδóáÑΓÑ WindData ó ¿¡ΓÑαΣÑ⌐ß¡«⌐
ßѬµ¿¿ «ñ¡«ú« ¼«ñπ½∩, Γ« ¡ÑΓ Γᬫú« ñ«»πßΓ¿¼«ú«  ß»«ß«íá,  ß
»«¼«Θ∞ε  ¬«Γ«α«ú« φΓ« «»¿ßá¡¿Ñ ¼«ú½« íδ íáΓ∞ ñ«ßΓπ»¡« ó ñαπ-
ú«¼ ¼«ñπ½Ñ. ÉÑΦÑ¡¿Ñ ß«ßΓ«¿Γ ó Γ«¼, τΓ«íδ «»¿ßáΓ∞ ΓαÑΓ¿⌐  ¼«-
ñπ½∞,   ó   ¬«Γ«α«¼  ß«ñÑনΓß∩  Γ«½∞¬«  «»αÑñѽѡ¿Ñ  ºá»¿ß¿
WindRec:

 unit WindData;
 integface
 type
   WindRec = record
               X1, Y1, X2, Y2 : integer;
               ForeColor,
               BackColor      : byte;
               Active         : boolean;
             end;
  inplementation
  end.

     é ñ«íáó½Ñ¡¿Ñ ¬  Γ«¼π,  τΓ«  ¼«ñ¿Σ¿¬áµ¿∩  ¬«ñá  »α«µÑñπα
WriteXY ¿ ShowError »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ ¡«óδ⌐ »áαá¼ÑΓα, ó
¿¡ΓÑαΣÑ⌐ß¡«⌐ ßѬµ¿¿ ¼«ñπ½Ñ⌐ Display ¿  Error   ΓÑ»Ñα∞  ¼«ñÑΓ
¿ß»«½∞º«óáΓ∞ß∩  WindData.  ¥Γ«  ñ«»πßΓ¿¼«,  Γá¬á  ¬á¬ ¼«ñπ½∞
WindData ¡Ñ ºáó¿ß¿Γ «Γ ßó«Ñú«  »αÑñ½«ªÑ¡¿∩  uses,  á  ¼«ñπ½¿
Display  ¿ Error ßßδ½áεΓß∩ ñαπú ¡á ñαπúá Γ«½∞¬« ó ß««ΓóÑΓßΓ-
óπεΘ¿σ ßѬµ¿∩σ αÑ὿ºáµ¿¿.

                         ÆURéÄ.TPL

     öá⌐½ ÆURéÄ.TPL  ß«ñÑαª¿Γ  ßΓá¡ñáαΓ¡δÑ  ¼«ñπ½¿:  System,
Crt, DOS, Printer, Graph, Turbo3 ¿ Graph3. ¥Γ¿ ¼«ñ㫨 ºáúαπ-
ªáεΓß∩ ó »á¼∩Γ∞ ó¼ÑßΓÑ ß Æπαí«-Åá߬á½Ñ¼; «¡¿ óßÑúñá ñ«ßΓπ»¡δ
ñ½∩  »«½∞º«óáΓѽ∩.  Äíδτ¡«  Σá⌐½ ÆURéÄ.TPL σαá¡¿Γß∩ ó Γ«¼ ªÑ
¬áΓὫúÑ, τΓ« ¿ ÆURéÄ.àòà (¿½¿ ÆÉæ.àòà). Äñ¡á¬«,  éδ  ¼«ªÑΓÑ
σαá¡¿Γ∞  Ñú« ó ½εí«¼ ¼ÑßΓÑ, Ñß½¿, ¬«¡Ñτ¡«, φΓ« "½εí«Ñ ¼ÑßΓ«"
«»αÑñѽѡ« ¬á¬ ¬áΓὫú Æπαí«. ¥Γ« ¼«ª¡« «»αÑñѽ¿Γ∞ ß »«¼«Θ∞ε
»α«úαá¼¼δ  ÆINSÆ.àòà, ¬«Γ«αá∩ ¿¡ßΓá½½¿απÑΓ ¬áΓὫú Æπαí« ¡Ñ-
»«ßαÑñßΓóÑ¡¡« ó Σá⌐½ ÆURéÄ.àòà.

     System                     êß»«½∞ºπѼδÑ ¼«ñπ½¿: ¡ÑΓ

     System ß«ñÑαª¿Γ óßÑ ßΓá¡ñáαΓ¡δÑ ¿ óßΓα«Ñ¡¡δÑ  »α«µÑñπαδ
¿  Σπ¡¬µ¿¿  Æπαí«-Åá߬á½∩. ïεíá∩ »«ñ»α«úαá¼¼á Æπαí«-Åá߬á½∩,
¡Ñ ∩ó½∩εΘá∩ß∩ τáßΓ∞ε ßΓá¡ñáαΓ¡«ú« Åá߬á½∩ ¿  ¡Ñ  ¡áσ«ñ∩Θá∩ß∩
¡¿  ó  ¬á¬«¼ ñαπú«¼ ¼«ñπ½Ñ, ß«ñÑনΓß∩ ó System. ¥Γ«Γ ¼«ñπ½∞
»α¿ß«Ññ¿¡∩ÑΓß∩ ¬« óßѼ »α«úαá¼¼á¼.

     DOS                         êß»«½∞ºπѼδÑ ¼«ñπ½¿: ¡ÑΓ

     DOS «»αÑñѽ∩ÑΓ ¼¡«ú«τ¿ß½Ñ¡¡δÑ »á߬á½Ñó߬¿Ñ »α«µÑñπαδ  ¿
Σπ¡¬µ¿¿,  ¬«Γ«αδÑ  φ¬ó¿óá½Ñ¡Γ¡δ  ¡á¿í«½ÑÑ τáßΓ« ¿ß»«½∞ºπѼδ¼
ó맮óá¼ äÄæá, ¬á¬ ¡á»α¿¼Ñα, GetÆime, SetÆime, DiskSize ¿ Γá¬
ñá½ÑÑ. èα«¼Ñ Γ«ú«, «¡ «»αÑñѽ∩ÑΓ ñóÑ »α«úαá¼¼δ ¡¿º¬«ú« πα«ó-
¡∩ îsDos ¿ Intr, ¬«Γ«αδÑ »«ºó«½∩εΓ á¬Γ¿ó¿º¿α«óáΓ∞ ½εí«⌐  óδ-
º«ó îæ-äÄæá ¿½¿ ß¿ßΓѼ¡«Ñ »αÑαδóá¡¿Ñ. Registers »αÑñßΓáó½∩ÑΓ
ß«í«⌐ Γ¿» ñá¡¡δσ ñ½∩ »áαá¼ÑΓαá ó îsDos ¿ Intr.  èα«¼Ñ  Γ«ú«,
«»αÑñѽ∩εΓß∩ ¡Ñ¬«Γ«αδÑ ñαπú¿Ñ ¬«¡ßΓá¡Γδ ¿ Γ¿»δ ñá¡¡δσ.

     Crt                         êß»«½∞ºπѼδÑ ¼«ñπ½¿: ¡ÑΓ

     Crt «íÑß»Ñτ¿óáÑΓ ¡áí«α ߻ѵ¿Σ¿τ¡δσ ñ½∩ IBM Éæ  «»¿ßá¡¿⌐
¬«¡ßΓá¡Γ,  »ÑαѼѡ¡δσ  ¿ »α«úαá¼¼ ñ½∩ «»Ñαᵿ⌐ óó«ñá/óδó«ñá.
Å«ß½Ññ¡¿Ñ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ αáí«Γδ ß  φ¬αá¡«¼  (ºáñá¡¿Ñ
«¬«¡,  ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ  π»αáó½Ñ¡¿Ñ  ¬παß«α«¼, µóÑΓ ΓѬßΓá ¿
Σ«¡á). èα«¼Ñ Γ«ú«, éδ ¼«ªÑΓÑ  «ßπΘÑßΓó½∩Γ∞  "¡Ñ«íαáí«Γá¡¡δ⌐"
óó«ñ  ß  ¬½áó¿áΓπαδ  ¿  π»αáó½∩Γ∞ »½áΓ«⌐ úÑ¡Ñαᵿ¿ ºóπ¬«ó«ú«
ß¿ú¡á½á »Ñαß«¡á½∞¡«ú« ¬«¼»∞εΓÑαá. ¥Γ«Γ  ¼«ñπ½∞  «íÑß»Ñτ¿óáÑΓ
¼¡«ªÑßΓó«  »«ñ»α«úαá¼¼,  ¬«Γ«αδÑ  í뫨 ßΓá¡ñáαΓ¡δ¼¿ ó óÑαß¿¿
3.0.

     Printer                     êß»«½∞ºπѼδÑ ¼«ñπ½¿: Crt

     é ¼«ñπ½Ñ Printer ñá¡«  «»¿ßá¡¿Ñ  »ÑαѼѡ¡«⌐  ΓѬßΓ«ó«ú«
Σá⌐½á  Lst, ¬«Γ«αá∩ ßó∩ºδóáÑΓß∩ ß ñαá⌐óÑα«¼ πßΓα«⌐ßΓóá, »«º-
ó«½∩εΘ¿¼ ¡á»αáó½∩Γ∞ ßΓá¡ñáαΓ¡δ⌐ ñ½∩ Åá߬á½∩ óδó«ñ ¡á »ÑτáΓá-
εΘÑÑ πßΓα«⌐ßΓó« ß »«¼«Θ∞ε Write ¿ Writeln. ìá»α¿¼Ñα, ó¬½ετ¿ó
Printer ó ßó«ε »α«úαá¼¼π, éδ ¼«ªÑΓÑ ßñѽáΓ∞ ß½ÑñπεΘÑÑ:

  Write(Lst,'æπ¼¼á ',A:4,' ¿ ',B:4,' αáó¡á ');
  C := A + B;
  Writeln(Lst,C:8);


     Graph                       êß»«½∞ºπѼδÑ ¼«ñπ½¿: Crt

     Graph «íÑß»Ñτ¿óáÑΓ ¡áí«α íδßΓα«ñÑ⌐ßΓóπεΘ¿σ, φΣΣÑ¬Γ¿ó¡δσ
úαáΣ¿τÑ߬¿σ  »«ñ»α«úαá¼¼,  ¬«Γ«αδÑ  »«ºó«½∩εΓ ¿ß»«½∞º«óáΓ∞ ó
»«½¡«⌐ ¼ÑαÑ  úαáΣ¿τÑ߬¿Ñ  󫺼«ª¡«ßΓ¿  éáΦÑú«  »Ñαß«¡á½∞¡«ú«
¬«¼»∞εΓÑαá.  ¥Γ«Γ ¼«ñπ½∞ αÑ὿ºπÑΓ ¡Ñºáó¿ß¿¼δ⌐ «Γ πßΓα«⌐ßΓóá
úαáΣ¿τÑ߬¿⌐ ñαá⌐óÑα Σ¿α¼δ "ü«α½á¡ñ",  »«ºó«½∩εΘ¿⌐  »«ññÑন-
óáΓ∞  úαáΣ¿τÑ߬¿Ñ áñá»ΓÑαδ Γ¿»á æGÇ, àGÇ, Hercules, ÇÆÆ 400,
îæGÇ, 3270 Éæ ¿ VGÇ.

     Graph3                      êß»«½∞ºπѼδÑ ¼«ñπ½¿: Crt

     Graph3 »«ññÑনóáÑΓ »«½¡δ⌐ ¡áí«α  úαáΣ¿τÑ߬¿σ  »«ñ»α«ú-
αá¼¼  ñ½∩  óÑαß¿¿  3.0  - ñ½∩ «íδτ¡«⌐, αáßΦ¿αÑ¡¡«⌐ úαáΣ¿¬¿ ¿
úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ.  Ä¡¿  ¿ñÑ¡Γ¿τ¡δ
»« ¿¼Ñ¡¿, »áαá¼ÑΓαá¼ ¿ Σπ¡¬µ¿¿ »«ñ»α«úαἼἠóÑαß¿¿ 3.0.

     Turbo3                      êß»«½∞ºπѼδÑ ¼«ñπ½¿: Crt

     ¥Γ«Γ ¼«ñπ½∞ ß«ñÑαª¿Γ ñóÑ »ÑαѼѡ¡δÑ ¿ ¡Ñ߬«½∞¬«  »α«µÑ-
ñπα,  ¬«Γ«αδÑ  í«½∞ΦÑ  ¡Ñ »«ññÑনóáεΓß∩ Æπαí«-Åá߬á½Ñ¼. Ä¡¿
ó¬½ετáεΓ óßΓα«Ñ¡¡πε Σá⌐½«óπε »ÑαѼѡ¡πε èbd, íπ½Ñóπ »ÑαѼѡ-
¡πε  CBreak ¿ »Ñαó«¡áτá½∞¡δÑ µÑ½«τ¿ß½Ñ¡¡δÑ óÑαß¿¿ MemAvail ¿
MaxAvail (¬«Γ«αδÑ ó«ºóαáΘáεΓ αẼÑα ßó«í«ñ¡«⌐ »á¼∩Γ¿  ó  »á-
αáúαáΣáσ, á ¡Ñ ó íá⌐Γáσ, ¬á¬ φΓ« ñѽáεΓ ¡áßΓ«∩Θ¿Ñ óÑαß¿¿).

     Graph                       êß»«½∞ºπѼδÑ ¼«ñπ½¿: ¡ÑΓ

     î«ñπ½∞ Graph ¡Ñ óßΓα«Ñ¡ ó Σá⌐½ TURBO.TPL. é¼ÑßΓ«  φΓ«ú«
«¡  ß«ñÑনΓß∩  ¡á Γ«¼ ªÑ ñ¿ß¬Ñ, τΓ« ¿ óß»«¼«úáΓѽ∞¡δÑ Σá⌐½δ
.BGI ¿ .CHR. Å«¼ÑßΓ¿ΓÑ Σá⌐½ GRAPH.TPU ó ΓѬπΘѼ ¬áΓὫúÑ ¿½¿
¿ß»«½∞ºπ⌐ΓÑ  ñ½∩ ºáñá¡¿∩ ¼áαΦαπΓá Σá⌐½á GRAPH.TPU »«½¡«Ñ ¿¼∩
»πΓ¿ ñ«ßΓπ»á.
     é ¼«ñπ½Ñ Graph ß«ñÑনΓß∩ α∩ñ íδßΓαδσ ¿  ¼«Θ¡δσ  úαáΣ¿-
τÑ߬¿σ »α«µÑñπα, »«ºó«½∩εΘ¿σ óá¼ »«½¡«ßΓ∞ε ¿ß»«½∞º«óáΓ∞ úαá-
Σ¿τÑ߬¿Ñ 󫺼«ª¡«ßΓ¿ ¬«¼»∞εΓÑαá  IBM  PC  (¿  ß«ó¼ÑßΓ¿¼δσ  ß
¡¿¼).  Ä¡  αÑ὿ºπÑΓ  ¡Ñºáó¿ß¿¼δ⌐  «Γ  πßΓα«⌐ßΓó úαáΣ¿τÑ߬¿⌐
ñαá⌐óÑα Σ¿α¼δ ü«α½á¡ñ,  «ßπΘÑßΓó½∩εΘ¿⌐  »«ññÑ᪬π  áñá»ΓÑα«ó
CGA,  EGA,  Hercules,  AT&T400, MCGA, 3270 PC, VGA ¿ úαáΣ¿¬¿
8514.
     ÆÑ»Ñα∞, ¬«úñá óδ º¡áÑΓÑ ¬«Ñ-τΓ« « ¼«ñπ½∩σ, ñáóá⌐ΓÑ »«»-
α«íπѼ ßἿ τΓ«-¡¿íπñ∞ ¡á»¿ßáΓ∞.

                櫺ñá¡¿Ñ ß«íßΓóÑ¡¡δσ ¼«ñπ½Ñ⌐

     ä«»πßΓ¿¼, óδ ¡á»¿ß὿ ¼«ñπ½∞  IntLib,  ºá»¿ß὿  Ñú«  ó
Σá⌐½  INTLIé.PAS  ¿  «ΓΓαá¡ß½¿α«ó὿ ¡á ñ¿ß¬; »«½πτ¿óΦ¿⌐ß∩ ó
αѺπ½∞ΓáΓÑ ¬«ñ ¡áσ«ñ¿Γß∩ ó Σá⌐½Ñ INTLIé.ÆÉU. ä½∩ ¿ß»«½∞º«óá-
¡¿∩  φΓ«ú« ¼«ñπ½∩ ó »α«úαá¼¼Ñ ¡Ñ«íσ«ñ¿¼« ó¬½ετ¿Γ∞ ó ¡ÑÑ «»Ñ-
αáΓ«α uses, π¬áºδóáεΘ¿⌐ ¬«¼»¿½∩Γ«απ, ¬á¬«⌐ ¼«ñπ½∞  ¿ß»«½∞ºπ-
ÑΓß∩. éáΦá »α«úαá¼¼á ¼«ªÑΓ óδú½∩ñÑΓ∞ ß½ÑñπεΘ¿¼ «íαẫ¼:

     program MyProg;
     uses IntLib;

     ÄΓ¼ÑΓ¿¼, τΓ« Æπαí«-Åá߬á½∞ »αÑñ»«½áúáÑΓ,  τΓ«  Σá⌐½,  ó
¬«Γ«α«¼  ¡áσ«ñ¿Γß∩ ¼«ñπ½∞, ¿¼ÑÑΓ Γá¬«Ñ ªÑ ¿¼∩, τΓ« ¿ ßá¼ ¼«-
ñπ½∞. àß½¿ ¿¼∩ óáΦÑú« ¼«ñπ½∩ îyUtilities,  Γ«  Æπαí«-Åá߬á½∞
íπñÑΓ  ¿ß¬áΓ∞ Σá⌐½ ß ¿¼Ñ¡Ñ¼ îYUTILIÆ.PAS. éδ ¼«ªÑΓÑ «Γ¼Ñ¡¿Γ∞
φΓ« »αÑñ»«½«ªÑ¡¿Ñ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá  $U.  ¥Γ«⌐
ñ¿αÑ¬Γ¿óÑ  »ÑαÑñáÑΓß∩  ¿¼∩  Σá⌐½á ß αáßΦ¿αÑ¡¿Ñ¼ .PAS, »α¿τѼ
«¡á ñ«½ª¡á íδΓ∞  π¬áºá¡á  ¡Ñ»«ßαÑñßΓóÑ¡¡«  »ÑαÑñ  «»ÑαáΓ«α«¼
uses.  ìá»α¿¼Ñα,  Ñß½¿  ó óáΦÑ⌐ »α«úαá¼¼Ñ ¿ß»«½∞ºπεΓß∩ »α«ú-
αá¼¼¡δÑ ¼«ñ㫨 Dos, Crt ¿ îyUtilities, á »«ß½Ññ¡¿⌐  σαá¡¿Γß∩
ó Σá⌐½Ñ UTIL.PAS, Γ« óá¼ ß½ÑñπÑΓ ¡á»¿ßáΓ∞:

     uses Dos, Crt, {$U UTIL.PAS} MyUtilities;

                     諼»¿½∩µ¿∩ ¼«ñπ½∩

     î«ñπ½∞ ¬«¼»¿½¿απÑΓß∩ Γ«τ¡« Γᬠ ªÑ,  ¬á¬  ¬«¼»¿½¿απÑΓß∩
»α«úαá¼¼á: «¡ ß«ºñáÑΓß∩ ß »«¼«Θ∞ε αÑñá¬Γ«αá, á ºáΓѼ óδºδóá-
ÑΓß∩ ¬«¼á¡ñá  æ«mpile/æ«mpile  (諼»¿½¿α«óáΓ∞/諼»¿½¿α«óáΓ∞)
(¿½¿  ¡áª¿¼á-  εΓß∩  ¬½áó¿Φ¿  Çlt-æ). Äñ¡á¬«, ó¼ÑßΓ« Σá⌐½á ß
αáßΦ¿αÑ¡¿Ñ¼ .àòà Æπαí«-Åá߬á½∞ ß«ºñáÑΓ  Σá⌐½  ß  αáßΦ¿αÑ¡¿Ñ¼
.ÆÉU (Turb« Éáscal Unit - ¼«ñπ½∞ Æπαí«-Åá߬á½∩). Å«ß½Ñ φΓ«ú«
éδ ¼«ªÑΓÑ «ßΓáó¿Γ∞ φëà Σá⌐½ ¬á¬ ÑßΓ∞ ¿½¿ ªÑ óßΓáó¿Γ∞ Ñú«  ó
ÆURéÄ.TPL ß »«¼«Θ∞ε TPUMOVER.àòà (ß¼. Åα¿½«ªÑ¡¿Ñ æ).
     é ½εí«¼ ß½πτáÑ ¿¼ÑÑΓ ß¼δß½ »ÑαÑß½áΓ∞ Σá⌐½δ ß αáßΦ¿αÑ¡¿-
Ѽ  .ÆÉU (ó¼ÑßΓÑ ß ¿ßσ«ñ¡δ¼¿ Σá⌐½á¼¿) ó ¬áΓὫú ¼«ñπ½Ñ⌐, ¬«-
Γ«αδ⌐ «»αÑñѽѡ ß »«¼«Θ∞ε ¬«¼á¡ñδ Ä/D/Unit directories  (èá-
ΓὫú¿  ¼«ñπ½Ñ⌐).  Æᬿ¼ «íαẫ¼, óδ ¼«ªÑΓÑ ßßδ½áΓ∞ß∩ ¡á φΓ¿
Σá⌐½δ, ¡Ñ π¬áºδóá∩ ñ¿αÑ¬Γ¿óδ {$U} (諼á¡ñá Unit  directories
(èáΓὫú¿  ¼«ñπ½Ñ⌐) »«ºó«½∩ÑΓ ºáñáóáΓ∞ ¬«¼»¿½∩Γ«απ ¡Ñ߬«½∞¬«
¬áΓὫú«ó ñ½∩ »«¿ß¬á Σá⌐½«ó ¼«ñπ½Ñ⌐).
     é «ñ¡«¼ ¿ßσ«ñ¡«¼ Σá⌐½Ñ ¼«ªÑΓ ¡áσ«ñ¿Γ∞ß∩ Γ«½∞¬« «ñ¿¡ ¼«-
ñπ½∞,  »«ß¬«½∞¬π ¬«¼»¿½∩µ¿∩ »αѬαáΘáÑΓß∩, ¬á¬ Γ«½∞¬« «í¡áαπ-
ªÑ¡ ºáóÑαΦáεΘ¿⌐ «»ÑαáΓ«α end.

                           Åα¿¼Ñα

     ÆÑ»Ñα∞ ¡á»¿ΦѼ ¡Ñí«½∞Φ«⌐ ¼«ñπ½∞. ìẫóѼ Ñú«  IntLib  ¿
óßΓáó¿¼  ó  ¡Ñú«  ñóÑ »α«ßΓδÑ »«ñ»α«úαá¼¼δ ñ½∩ µÑ½δσ τ¿ßѽ -
»α«µÑñπαπ ¿ Σπ¡¬µ¿ε:

unit IntLib;
interface
  procedure ISwap(var I,J : integer);
  function IMax(I,J : integer) : integer;
implementation

procedure ISwap;
var
  Temp : integer;

begin
  Temp := I; I := J; J := Temp
end;  { ¬«¡Ñµ »α«µÑñπαδ ISwap }

function IMax;
begin
  if I > J
    then IMax := I
    else IMax := J
end;  { ¬«¡Ñµ Σπ¡¬µ¿¿ IMax }

end.  { ¬«¡Ñµ ¼«ñπ½∩ IntLib }

     éóÑñѼ φΓπ »«ñ»α«úαá¼¼π, ºá»¿ΦѼ ÑÑ ó Σá⌐½  INTLIé.PAS,
á  ºáΓѼ «ΓΓαá¡ß½¿απѼ ¡á ñ¿ß¬. é αѺπ½∞ΓáΓÑ »«½πτ¿¼ ¬«ñ ¼«-
ñπ½∩ ó Σá⌐½Ñ INTLIé.ÆÉU.  ÅÑαÑΦ½Ñ¼  Ñú«  ó  ¬áΓὫú  ¼«ñπ½Ñ⌐
(Ñß½¿ Γᬫó«⌐ ¿¼ÑÑΓß∩).
     æ½ÑñπεΘá∩ »α«úαá¼¼á ¿ß»«½∞ºπÑΓ ¼«ñπ½∞ IntLib:

program IntTest;
uses IntLib;
var
  A,B  : integer;
begin
  Write('éóÑñ¿ΓÑ ñóá µÑ½«τ¿ß½Ñ¡¡δσ º¡áτÑ¡¿∩: ');
  Readln(A,B);
  ISwap(A,B);
  Writeln('A = ',A,' B = ',B);
  Writeln('îá¬ß¿¼á½∞¡«Ñ º¡áτÑ¡¿Ñ αáó¡« ',IMax(A,B));
end.  { ¬«¡Ñµ »α«úαá¼¼δ IntTest }

     Å«ºñαáó½∩Ѽ! éδ Γ«½∞¬« τΓ« ß«ºñ὿ ßó«⌐ »Ñαóδ⌐ ¼«ñπ½∞!

                   î«ñ㫨 ¿ í«½∞Φ¿Ñ »α«úαá¼¼δ

     éÑα«∩Γ¡«, ñ« ß¿σ »«α óδ »αÑñßΓáó½∩½¿ »α«úαá¼¼¡δÑ ¼«ñπ½¿
Γ«½∞¬« ¬á¬ í¿í½¿«ΓѬ¿ - ¡áí«αδ »«½Ñº¡δσ »«ñ»α«úαá¼¼, ¬«Γ«αδÑ
¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ¡Ñ߬«½∞¬¿¼¿ »α«úαἼἿ. Äñ¡á¬«, π  ¼«-
ñπ½∩  ÑßΓ∞ ÑΘÑ «ñ¡á Σπ¡¬µ¿∩ - αáºí¿óáΓ∞ í«½∞Φπε »α«úαá¼¼π ¡á
ß«ßΓáó¡δÑ τáßΓ¿.
     äóá á߻ѬΓá  Æπαí«-Åá߬á½∩  ß»«ß«íßΓóπεΓ  ¿ß»«½∞º«óá¡¿ε
¼«ñπ½Ñ⌐  ó  Γᬫ⌐ Σπ¡¬µ¿¿: (1) óδß«¬á∩ ߬«α«ßΓ∞ ¬«¼»¿½∩µ¿¿ ¿
¬«¼»«¡«ó¬¿ ¿ (2) ß»«ß«í¡«ßΓ∞ αáí«ΓáΓ∞ ß ¡Ñ߬«½∞¬¿¼¿  Σá⌐½á¼¿
«ñ¡«óαѼѡ¡«, ¡á»α¿¼Ñα, ß »α«úαá¼¼«⌐ ¿ ¡Ñ߬«½∞¬¿¼¿ ¼«ñπ½∩¼¿.
     é «íδτ¡«¼ ß½πτáÑ í«½∞Φá∩ »α«úαá¼¼á αáºí¿óáÑΓß∩ ¡á ¼«ñπ-
½¿,  ¬«Γ«αδÑ  úαπ»»¿απεΓ »α«µÑñπαδ »« ¿σ Σπ¡¬µ¿∩¼. ìá»α¿¼Ñα,
»α«úαá¼¼á αÑñá¬Γ«αá ¼«ªÑΓ íδΓ∞ αáºñÑ½Ñ¡á ¡á τáßΓ¿, óδ»«½¡∩ε-
Θ¿Ñ  ¿¡¿µ¿á½¿ºáµ¿ε, αáß»ÑτáΓ¬π, τΓÑ¡¿Ñ ¿ ºá»¿ß∞ Σá⌐½«ó, Σ«α-
¼áΓ¿α«óá¡¿Ñ ¿ Γᬠñá½ÑÑ. èα«¼Ñ Γ«ú«, ¬á¬ ¿¼ÑÑΓ ¼ÑßΓ«  «ß¡«ó-
¡á∩  »α«úαá¼¼á, «»αÑñѽ∩εΘá∩ ú½«íá½∞¡δÑ ¬«¡ßΓá¡Γδ, Γ¿»δ ñá¡-
¡δσ, »ÑαѼѡ¡δÑ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿,  Γᬠ ªÑ  ¼«ªÑΓ  ¿¼ÑΓ∞
¼ÑßΓ«  ¿  "«íΘ¿⌐" ¼«ñπ½∞, ¬«Γ«αδ⌐ ¿ß»«½∞ºπÑΓß∩ óßѼ¿ ñαπú¿¼¿
¼«ñπ½∩¼¿.
     æΓαπ¬Γπαá í«½∞Φ«⌐ »α«úαá¼¼δ ¼«ªÑΓ  óδú½∩ñÑΓ∞  ß½ÑñπεΘ¿¼
«íαẫ¼:

   program Editor;
   uses
     Dos,Crt,Printer { æΓá¡ñáαΓ¡δÑ ¼«ñ㫨 ¿º TURBO.TPL }
     EditGlobals,   { î«ñπ½¿, ¡á»¿ßá¡¡δÑ »«½∞º«óáΓѽѼ }
     EdiFtInit,
     EditPrint,
     EditRead,EditWrite,
     EditFormat; { «»¿ßá¡¿∩ »α«úαá¼¼δ, »α«µÑñπαδ ¿
                   Σπ¡¬µ¿¿  }
   begin
   { «ß¡«ó¡á∩ »α«úαá¼¼á }
   end. { ¬«¡Ñµ »α«úαá¼¼δ Editor }
     ÄΓ¼ÑΓ¿¼, τΓ« ¼«ñπ½¿, π¬áºá¡¡δÑ ó φΓ«⌐ »α«úαá¼¼Ñ, ñ«½ª¡δ
íδΓ∞  ¿½¿ ó ÆURéÄ.TPL, ¿½¿ ó óáΦ¿σ ß«íßΓóÑ¡¡δσ Σá⌐½áσ ß αáß-
Φ¿αÑ¡¿Ñ¼ «º¡áτáÑΓ, τΓ« »α¿ »«óΓ«α¡«¼ ¬«¼»¿½¿α«óá¡¿¿ »α«úαá¼-
¼δ  àditor  Æπαí«-Åá߬á½∞  »α«óÑα¿Γ »«ß½Ññ¡¿Ñ «í¡«ó½Ñ¡¿∩ ñ½∩
¬áªñ«ú« Σá⌐½á ß αáßΦ¿αÑ¡¿Ñ¼ .TPL ¿ ºá¡«ó« «ΓΓαá¡ß½¿απÑΓ ¿σ ó
ß½πτáÑ ¡Ñ«íσ«ñ¿¼«ßΓ¿.
     äαπúá∩ »α¿τ¿¡á ¿ß»«½∞º«óá¡¿∩ ¼«ñπ½Ñ⌐ ó í«½∞Φ¿σ »α«úαá¼-
¼áσ «»αÑñѽ∩ÑΓß∩ «úαá¡¿τÑ¡¿∩¼¿ ¡á αẼÑα ßÑú¼Ñ¡Γá. Åα«µÑßß«-
αδ 8086 (¿ ßó∩ºá¡¡δÑ ß ¡¿¼¿) «úαá¡¿τ¿óáεΓ αẼÑα ¬πß¬á »α«ú-
αá¼¼δ  ¿½¿ ßÑú¼Ñ¡Γá ñ« 64è. ¥Γ« «º¡áτáÑΓ, τΓ« «ß¡«ó¡á∩ »α«ú-
αá¼¼á ¿ ½εí«⌐ ñá¡¡δ⌐ ßÑú¼Ñ¡Γ ¡Ñ ñ«½ª¡δ »αÑóδΦáΓ∞ »«  αẼÑαπ
64è.  Æπαí«-Åá߬á½∞ αáºαÑΦáÑΓ φΓπ ß¿Γπᵿε, »αÑóαáΘá∩ ¬áªñδ⌐
¼«ñπ½∞ ó «Γñѽ∞¡δ⌐ ßÑú¼Ñ¡Γ. éÑασ¡¿¼ »αÑñѽ«¼ ∩ó½∩ÑΓß∩  ¬«½¿-
τÑßΓó«  »á¼∩Γ¿, »«ññÑনóáѼ«Ñ á»»áαáΓ¡δ¼¿ ßαÑñßΓóἿ ¿ «»Ñ-
αᵿ«¡¡«⌐ ß¿ßΓѼ«⌐, Γ« ÑßΓ∞ 640è ¡á í«½∞Φ¿¡ßΓóÑ »Ñαß«¡á½∞¡δσ
¬«¼»∞εΓÑαáσ Éæ. üѺ ¿ß»«½∞º«óá¡¿∩ ¼«ñπ½Ñ⌐ »αÑñѽ«¼ ñ½∩ óáΦÑ⌐
»α«úαá¼¼δ ∩ó½∩ÑΓß∩ 64è («íαáΓ¿ΓÑß∞  ¬  â½áóÑ  5  "Éáºαáí«Γ¬á
»α«úαá¼¼"  ºá  í«½ÑÑ  »«½¡«⌐ ¿¡Σ«α¼áµ¿Ñ⌐ « αáí«ΓÑ ß í«½∞Φ¿¼¿
»α«úαἼἿ).

         êß»«½∞º«óá¡¿Ñ ¼«ñπ½Ñ⌐ ó ¬áτÑßΓóÑ «óÑα½ÑÑó

     ê¡«úñá ñáªÑ 󫺼«ª¡«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ ¡Ñ߬«½∞¬¿σ  ¼«ñπ-
½Ñ⌐ ¡Ñ ¼«¼«úáÑΓ αÑΦ¿Γ∞ »α«í½Ñ¼π ¡ÑσóáΓ¬¿ »á¼∩Γ¿ - óÑñ∞ π óáß
¼«ñÑΓ «¬áºáΓ∞ß∩ ¼Ñ¡∞ΦÑ 640è »á¼∩Γ¿, ¿½¿ «ñ¡«óαѼѡ¡« ¿ß»«½∞-
ºπÑΓÑ  ó  »á¼∩Γ¿ í«½∞Φ«Ñ ¬«½¿τÑßΓó« ñá¡¡δσ. äαπú¿¼¿ ß½«óἿ,
¼«ªÑΓ «¬áºáΓ∞ß∩, τΓ« óáΦá »α«úαá¼¼á ¡Ñ ¼«ªÑΓ µÑ½¿¬«¼  »«¼Ñß-
Γ¿Γ∞ß∩  ó  »á¼∩Γ∞.  Æπαí«-Åá߬á½∞  »αÑñ½áúáÑΓ  αÑΦÑ¡¿Ñ Γᬫ⌐
»α«í½Ñ¼δ - «óÑα½Ñ¿. ÄóÑα½Ñ⌐ »αÑñßΓáó½∩ÑΓ ß«í«⌐  τáßΓ∞  »α«ú-
αá¼¼δ, ¬«Γ«αá∩ ºáúαπªáÑΓß∩ ó »á¼∩Γ∞ »α¿ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ÑÑ ¿ß-
»«½∞º«óáΓ∞ ¿ óδúαπªáÑΓß∩, ¬«úñá «¡á ¡Ñ ¡πª¡á. ¥Γ«  »«ºó«½∩ÑΓ
óá¼  »«¼ÑΘáΓ∞ ó »á¼∩Γ∞ Γ«½∞¬« ΓÑ ßѬµ¿¿ »α«úαá¼¼δ, ¬«Γ«αδÑ ó
ñá¡¡δ⌐ ¼«¼Ñ¡Γ ¡Ñ«íσ«ñ¿¼δ.
     ÄóÑαѽ¿ ó Æπαí«-Åá߬á½Ñ «ß¡«óδóáεΓß∩ ¡á  ¼«ñπ½∩σ:  ¡á¿-
¼Ñ¡∞Φ¿⌐  πτáßΓ«¬  ¬«ñá  ¼«ªÑΓ ºáúαπªáΓ∞ß∩ ¿ óδúαπªáΓ∞ß∩, ¬á¬
µÑ½δ⌐ ¼«ñπ½∞. éδ ¼«ªÑΓÑ «»αÑñѽ¿Γ∞ ß½«ª¡δ⌐  ¡áí«α  «óÑα½ÑÑó,
«»αÑñѽ∩∩,  «»αÑñѽ∩∩, ¬á¬«⌐ ¼«ñπ½∞ ñ«½ªÑ¡ ¿½¿ ¡Ñ ñ«½ªÑ¡ ¡á-
σ«ñ¿Γß∩ ó »á¼∩Γ¿ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ. èα«¼Ñ Γ«ú« ó Æπαí«-Åá߬á½Ñ
¿¼ÑÑΓß∩ »αÑó«ßσ«ñ¡á∩ αáºó¿Γá∩ »«ñß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩-
¼¿, »«φΓ«¼π óá¼ ¡Ñ ¡πª¡« íÑß»«¬«¿Γ∞ß∩ « ºáúαπº¬Ñ ¿ αáºúαπº¬Ñ
¼«ñπ½Ñ⌐, »«ß¬«½∞¬π φΓ« ñѽáÑΓß∩ áóΓ«¼áΓ¿τÑ߬¿.
     ü«½ÑÑ »«ñα«í¡« « Γ«¼, ¬á¬ αáí«ΓáΓ∞ ß  «óÑα½Ñ∩¼¿,  ú«ó«-
α¿Γ∞ß∩ ó â½áóÑ 13 ("ÄóÑα½Ñ¿") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá".

             ÅαÑñ½«ªÑ¡¿Ñ uses ßѬµ¿¿ αÑ὿ºáµ¿¿

     é óÑαß¿¿ 5.0 Æπαí«-Åá߬á½∞ »«ºó«½∩ÑΓ  óá¼  αẼÑΘáΓ∞  ó
ßѬµ¿¿ αÑ὿ºáµ¿¿ »αÑñ½«ªÑ¡¿Ñ ¿ß»«½∞º«óá¡¿∩ (uses). é ß½πτáÑ
Ñú« »α¿ßπΓßΓó¿∩ »αÑñ½«ªÑ¡¿Ñ  uses  ñ«½ª¡«  ß½Ññ«óáΓ∞  ¡Ñ»«ß-
αÑñßΓóÑ¡¡«  ºá  ¬½ετÑóδ¼  ß½«ó«¼  implementation (á¡á½«ú¿τ¡«
Γ«¼π, ¬á¬ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßѬµ¿¿  »αÑñ½«ªÑ¡¿Ñ  clause  ñ«½ª¡«
ß½Ññ«óáΓ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡« ºá ¬½ετÑóδ¼ ß½«ó«¼ interface).
     ÉẼÑΘÑ¡¿Ñ ßѬµ¿¿ αÑ὿ºáµ¿¿ »αÑñ½«ªÑ¡¿∩ uses »«ºó«½∩ÑΓ
"߬αδΓ∞"  ó¡πΓαÑ¡¡¿Ñ  ñÑΓ὿ ¼«ñπ½∩, »«ß¬«½∞¬π ¿ß»«½∞ºÑ¼δÑ ó
ßѬµ¿¿ αÑ὿ºáµ¿¿ ¼«ñ㫨 «¬áºδóáεΓß∩ "¡Ñó¿ñ¿¼δ¼¿" ñ½∩  Γ«ú«,
¬Γ«  φëà ¼«ñπ½∞ ¿ß»«½∞ºπÑΓ.  ü«½ÑÑ ó᪡δ¼, «ñ¡á¬«, ∩ó½∩ÑΓß∩
Γ«, τΓ« φΓ« »«ºó«½∩ÑΓ óá¼ ßΓα«¿Γ∞ óºá¿¼¡«ºáó¿ß¿¼δÑ ¼«ñπ½¿.
     ū߬«½∞¬π »α«úαá¼¼¡δÑ ¼«ñ㫨 ó Æπαí«-Åá߬á½Ñ ¡Ñ «í∩ºá¡δ
¿¼ÑΓ∞ ßΓα«ú« ¿Ñαáασ¿τÑ߬πε ßΓαπ¬Γπαπ, Γ« ñ«»π߬áÑΓß∩ ¿ß»«½∞-
º«óáΓ∞ µ¿¬½¿τÑ߬¿Ñ ßß佬¿ ¡á ¼«ñπ½¿. é ß½ÑñπεΘѼ αáºñÑ½Ñ »«-
¬áºá¡  »α¿¼Ñα,  ñѼ«¡ßΓα¿αεΘ¿⌐ »«½Ñº¡«Ñ ¿ß»«½∞º«óá¡¿Ñ µ¿¬½¿-
τÑ߬¿σ ßß佫¬.

               û¿¬½¿τÑ߬¿Ñ ßß佬¿ ¡á ¼«ñπ½¿

     é ß½ÑñπεΘÑ⌐ »α«úαá¼¼Ñ »«¬áºá¡δ ñóá ¼«ñπ½∩, ¬«Γ«αδÑ "¿ß-
»«½∞ºπεΓ" ñαπú ñαπúá. Äß¡«ó¡á∩ »α«úαá¼¼á Circular ¿ß»«½∞ºπÑΓ
¼«ñπ½∞ ß ¿¼Ñ¡Ñ¼ Display. î«ñπ½∞ Display ß«ñÑαª¿Γ ó ßó«Ñ⌐ ¿¡-
ΓÑαΣÑ⌐ß¡«⌐  ßѬµ¿¿ «ñ¡« »α«úαá¼¼π WriteXY, ¬«Γ«αá∩ ¿¼ÑÑΓ Γα¿
»áαá¼ÑΓαá: »áα𠬫«αñ¿¡áΓ (x,y) ¿ ß««íΘÑ¡¿Ñ  ñ½∩  óδó«ñá  ¡á
φ¬αá¡. WriteXY »ÑαѼÑΘáÑΓ ¬παß«α ó Γ«τ¬π (x,y) ¿ óδó«ñ¿Γ Γá¼
ß««íΘÑ¡¿Ñ. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡á óδºδáÑΓ »α«ßΓπε  »α«úαá¼¼π
«íαáí«Γ¬¿ «Φ¿í¬¿.
     Å«¬á ¼δ ¡Ñ ó¿ñ¿¼ ºñÑß∞  ¡¿τÑú«  ¿¡ΓÑαÑß¡«ú«:  »α«µÑñπαá
WriteXY  »α«ßΓ« ¿ß»«½∞ºπÑΓß∩  ó¼ÑßΓ« »α«µÑñπαδ Write. Äñ¡á¬«
ñá½ÑÑ, ¬«úñá »α«úαá¼¼á «íαáí«Γ¬¿ «Φ¿í¬¿ íπñÑΓ óδó«ñ¿Γ∞ ß««í-
ΘÑ¡¿Ñ  ¡á  φ¬αá¡,  ¡áτ¿¡áεΓß∩  µ¿¬½¿τÑ߬¿Ñ  ßß佬¿ (óÑñ∞ »α¿
φΓ«¼ «¡á ß¡«óá ¿ß»«½∞ºπÑΓ WriteXY). Æᬿ¼ «íαẫ¼, ¼δ  ¿¼ÑѼ
»α«µÑñπαπ  WriteXY, óδºδóáεΘπε  »α«µÑñπαπ  «íαáí«Γ¬¿  «Φ¿í¬¿
SwapError, ¬«Γ«αá∩ ó ßó«ε «τÑαÑñ∞ óδºδóáÑΓ WriteXY ñ½∩ óδó«-
ñá  ß««íΘÑ¡¿∩ ¡á φ¬αá¡. àß½¿ π óáß πªÑ «Γ óßÑú« φΓ«ú« ºá¬απ-
ª¿½áß∞ ú«½«óá, ¡Ñ íÑñá. äáóá⌐ΓÑ αáßß¼«Γα¿¼  ¿ßσ«ñ¡δ⌐  ¬«ñ  ó
»α¿¼ÑαÑ ¿ πó¿ñ¿¼, τΓ« óßÑ φΓ« ¡Ñ ßΓ«½∞ πª ºá»πΓá¡«.

     Äß¡«ó¡á∩ »α«úαá¼¼á Circular «τ¿ΘáÑΓ φ¬αá¡  ¿  óδ»«½¡∩ÑΓ
Γα¿ «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ WriteXY:

  program Circular;
  { óδó«ñ¿Γ ΓѬßΓ, ¿ß»«½∞ºπ∩ WriteXY }

  uses
     Crt, Display;

  begin
    ClrScr;
    WriteXY(1, 1, 'ïÑóδ⌐ óÑασ¡¿⌐ πú«½ φ¬αá¡á');
    WriteXY(100, 100, 'çá »αÑñѽἿ φ¬αá¡á');
    WriteXY(81 - Lenght('æ¡«óá ó φ¬αá¡..'), 15, 'æ¡«óá ó
 φ¬αá¡..');
  end.

     éºú½∩¡¿ΓÑ ¡ ¬««αñ¿¡Γδ (x,y) ¿α¿ óΓ«α«¼ «íαáΘÑ¡¿¿ ¬ »α«-
µÑñπαÑ   WriteXY.   é  Γ«τ¬Ñ  ß  ¬««αñ¿¡áΓἿ  (100,100)  ¡á
80σ25-ß¿¼ó«½∞¡«¼ φ¬αá¡Ñ óδóÑßΓ¿  ΓѬßΓ  ¡Ñ󫺼«ª¡«.  äáóá⌐ΓÑ
ΓÑ»Ñα∞ »«ß¼«Γα¿¼, ¬á¬ αáí«ΓáÑΓ »α«µÑñπαá WriteXY. äá½ÑÑ »α¿-
óÑñÑ¡ ΓѬßΓ ¿ßσ«ñ¡«ú« ¬«ñá ¼«ñπ½∩ Display, ó ¬«Γ«α«¼  ß«ñÑα-
ª¿Γß∩  »α«µÑñπαá WriteXY. àß½¿ ¬««αñ¿¡áΓδ (x,y) ∩ó½∩εΓß∩ ñ«-
»πßΓ¿¼δ¼¿, «¡á óδó«ñ¿Γ ¡á φ¬αá¡ ß««íΘÑ¡¿Ñ. é »α«Γ¿ó¡«¼  ß½π-
τáÑ «¡á óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ.

 unit Display;
 { ß«ñÑαª¿Γ »α«ßΓπε »α«úαá¼¼π óδó«ñá ¿¡Σ«α¼áµ¿¿ ¡á φφ¬αá¡ }

 interface

 procedure WriteXY(X,Y : integer, Message : string);

 inplementation
 uses
    Crt, Error;
 procedure WriteXY(X,Y : integer, Message : string);
 begin
   if (X in [1..80] and Y in [1..25] then
   begin
     Goto(X,Y);
     Write(Message);
   end;
   else
     ShowError('ìÑóÑα¡δÑ ¬««αñ¿¡áΓδ ó »α«µÑñπαÑ WriteXY');
  end;

  end.

     Åα«µÑñπαá ShowError, óδºδóáѼá∩  ó  »α«µÑñπαÑ  WriteXY,
»«¬áºá¡á ó »α¿óÑñÑ¡¡«¼ ñá½ÑÑ ¿ßσ«ñ¡«¼ ¬«ñÑ ¼«ñπ½∩ Error. Ä¡á
óßÑúñá óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ¡á 25-⌐ ßΓα«¬Ñ φ¬αá¡á.

  unit Error;
  { ß«ñÑαª¿Γ »α«ßΓπε »α«úαá¼¼π ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ }

  interface

  procedure ShowError(ErrMsg : string);

  inplementation

  uses
     Display;

  procedure ShowError(ErrMsg :string);
  begin
    WriteXY(1,25, 'ÄΦ¿í¬á: '+ ErrMsg);
  end;

  end.

     ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ, τΓ« »αÑñ½«ªÑ¡¿∩ uses ó ßѬµ¿¿ αÑ὿-
ºáµ¿¿ «í«¿σ ¼«ñπ½Ñ⌐ (Display ¿ Error) ßßδ½áεΓß∩ ñαπú ¡á ñαπ-
úá. ¥Γ¿ ñóá ¼«ñπ½∩ ¼«úπΓ ßßδ½áΓ∞ß∩ ñαπú ¡á  ñαπúá  ó  ßѬµ¿¿
αÑ὿ºáµ¿¿ í½áú«ñáα∩ Γ«¼π, τΓ« Æπαí«-Åá߬á½∞ ¼«ªÑΓ ñ½∩ «íÑ¿σ
¼«ñπ½Ñ⌐ óδ»«½¡∩Γ∞  »«½¡πε  ¬«¼»¿½∩µ¿ε  ¿¡ΓÑαΣÑ⌐ß¡δσ  ßѬµ¿⌐.
äαπú¿¼¿ ß½«óἿ, ¬«¼»¿½∩Γ«α Æπαí«-Åá߬á½∩ «ß»α¿¡¿¼áÑΓ ßß佬π
¡á τáßΓ¿τ¡« ߬«¼»¿½¿α«óá¡¡δ⌐ ¼«ñπ½∞ Ç  ó  ßѬµ¿¿  αÑ὿ºáµ¿¿
¼«ñπ½∩  é,  Ñß½¿  ¿¡ΓÑαΣÑ⌐ß¡δÑ ßѬµ¿¿ ¼«ñπ½∩ Ç ¿ ¼«ñπ½∩ é ¡Ñ
ºáó¿ß∩Γ ñαπú «Γ ñαπúá (¿, ß½Ññ«óáΓѽ∞¡«, ßΓα«ú« ß«íí½εñáεΓß∩
»αáó¿½á Æπαí«-Åá߬á½∩, ¬áßáεΘ¿Ñß∩ »«α∩ñ¬á «»¿ßá¡¿∩).

             æ«ó¼ÑßΓ¡«Ñ ¿ß»«½∞º«óá¡¿Ñ «»¿ßá¡¿⌐

     ¡« ¼«ñ¿Σ¿µ¿α«óáΓ∞ »α«µÑñπαπ WriteXY  Γᬿ¼  «íαẫ¼,
τΓ«íδ  «¡á  ó«ß»α¿¡¿¼á½á  ñ«»«½¡¿Γѽ∞¡δ⌐  »áαá¼ÑΓα, ºáñáεΘ¿⌐
»α∩¼«πú«½∞¡«Ñ «¬¡« ¡á φ¬αá¡Ñ:

  procedure WriteXY(SomeWindow : WindRec;
                    X, Y :       integer;
                    Message :    string);

  procedure ShowError(Somewindow : WindRec;
                      ErrMsg : string);

     ìπª¡« πτ¿ΓδóáΓ∞, τΓ« ñóÑ »α«µÑñπαδ ¡áσ«ñ∩Γß∩  ó  αạδσ
¼«ñπ½∩σ.  äáªÑ  Ñß½¿  óδ  «»¿ßδóáÑΓÑ WindData ó ¿¡ΓÑαΣÑ⌐ß¡«⌐
ßѬµ¿¿ «ñ¡«ú« ¼«ñπ½∩, Γ« ¡ÑΓ Γᬫú« ñ«»πßΓ¿¼«ú«  ß»«ß«íá,  ß
»«¼«Θ∞ε  ¬«Γ«α«ú« φΓ« «»¿ßá¡¿Ñ ¼«ú½« íδ íáΓ∞ ñ«ßΓπ»¡« ó ñαπ-
ú«¼ ¼«ñπ½Ñ. ÉÑΦÑ¡¿Ñ ß«ßΓ«¿Γ ó Γ«¼, τΓ«íδ «»¿ßáΓ∞ ΓαÑΓ¿⌐  ¼«-
ñπ½∞,   ó   ¬«Γ«α«¼  ß«ñÑনΓß∩  Γ«½∞¬«  «»αÑñѽѡ¿Ñ  ºá»¿ß¿
WindRec:

 unit WindData;
 integface
 type
   WindRec = record
               X1, Y1, X2, Y2 : integer;
               ForeColor,
               BackColor      : byte;
               Active         : boolean;
             end;
  inplementation
  end.

     é ñ«íáó½Ñ¡¿Ñ ¬  Γ«¼π,  τΓ«  ¼«ñ¿Σ¿¬áµ¿∩  ¬«ñá  »α«µÑñπα
WriteXY ¿ ShowError »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ ¡«óδ⌐ »áαá¼ÑΓα, ó
¿¡ΓÑαΣÑ⌐ß¡«⌐ ßѬµ¿¿ ¼«ñπ½Ñ⌐ Display ¿  Error   ΓÑ»Ñα∞  ¼«ñÑΓ
¿ß»«½∞º«óáΓ∞ß∩  WindData.  ¥Γ«  ñ«»πßΓ¿¼«,  Γá¬á  ¬á¬ ¼«ñπ½∞
WindData ¡Ñ ºáó¿ß¿Γ «Γ ßó«Ñú«  »αÑñ½«ªÑ¡¿∩  uses,  á  ¼«ñπ½¿
Display  ¿ Error ßßδ½áεΓß∩ ñαπú ¡á ñαπúá Γ«½∞¬« ó ß««ΓóÑΓßΓ-
óπεΘ¿σ ßѬµ¿∩σ αÑ὿ºáµ¿¿.

                      ôΓ¿½¿Γá TPUMOVER

     Åα¿ ¿ß»«½∞º«óá¡¿¿ ßΓá¡ñáαΓ¡δσ ¼«ñπ½Ñ⌐ óαѼѡ¿  óδ»«½¡Ñ-
¡¿∩  (System,  Dos  ¿ Γᬠñá½ÑÑ) ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ π¬áºδóáΓ∞
ñ¿αÑ¬Γ¿óπ {$U <¿¼∩_Σá⌐½á>}, »«ß¬«½∞¬π óßÑ φΓ¿ ¼«ñ㫨 ºá»¿ßá-
¡δ ó Σá⌐½ ¼«ñπ½Ñ⌐ Æπαí«-Åá߬á½∩ (TURBO.TPL). é« óαѼ∩ ¬«¼»¿-
½∩µ¿¿ φΓ¿ ¼«ñ㫨 óßÑúñá ú«Γ«óδ ¬ ¿ß»«½∞º«óá¡¿ε.
     ä«»πßΓ¿¼, óδ σ«Γ¿ΓÑ ñ«íáó¿Γ∞ ¬ φΓ¿¼ ßΓá¡ñáαΓ¡δ¼ ¼«ñπ½∩¼
σ«α«Φ« ¡á»¿ßá¡¡δ⌐ ¿ »«½¡«ßΓ∞ε «Γ½áªÑ¡¡δ⌐ ¼«ñπ½∞ ß ΓѼ, τΓ«íδ
«¡ ºáúαπªá½ß∩ ó »á¼∩Γ∞ »α¿ ºá»π᪥ ¬«¼»¿½∩Γ«αá. èᬿ¼  «íαá-
º«¼  ¼«ª¡« »ÑαÑß½áΓ∞ Ñú« ó í¿í½¿«ΓÑτ¡δ⌐ Σá⌐½ ßΓá¡ñáαΓ¡δσ ¼«-
ñπ½Ñ⌐ Æπαí«-Åá߬á½∩? - æ »«¼«Θ∞ε πΓ¿½¿Γδ TPUMOVER.EXE.
     èα«¼Ñ Γ«ú«, TPUMOVER ¿ß»«½∞ºπÑΓß∩ ñ½∩ πñá½Ñ¡¿∩  ¼«ñπ½Ñ⌐
¿º  í¿í½¿«ΓÑτ¡«ú«  Σá⌐½á  ßΓá¡ñáαΓ¡δσ ¼«ñπ½Ñ⌐ Æπαí«-Åá߬á½∩,
í½áú«ñáα∩ τѼπ π¼Ñ¡∞ΦáÑΓß∩ Ñú« αẼÑα ¿  ¬«½¿τÑßΓó«  »á¼∩Γ¿,
¡Ñ«íσ«ñ¿¼«⌐ ñ½∩ Ñú« ºáúαπº¬¿. (ü«½ÑÑ »«ñα«í¡« «í ¿ß»«½∞º«óá-
¡¿¿ TPUMOVER ß¼. ó Åα¿½«ªÑ¡¿¿ æ "ôΓ¿½¿Γδ Æπαí«-Åá߬á½∩").
     èᬠóδ óÑα«∩Γ¡« »«¡∩½¿, »¿ßáΓ∞ ß«íßΓóÑ¡¡δÑ ¼«ñ㫨 áíß«-
½εΓ¡«  ¡Ñ  ß½«ª¡«.  ò«α«Φ«  ¡á»¿ßá¡¡δ⌐, σ«α«Φ« αÑ὿º«óá¡¡δ⌐
»α«úαá¼¼¡δ⌐ ¼«ñπ½∞ π»α«ΘáÑΓ αáºαáí«Γ¬π  »α«úαá¼¼δ;  »α«í½Ñ¼δ
αÑΦáεΓß∩  Γ«½∞¬«  «ñ¿¡  αáº,  á ¡Ñ »«óΓ«α¡« ñ½∩ ¬áªñ«⌐ ¡«ó«⌐
»α«úαá¼¼δ. ü«½ÑÑ Γ«ú«,  ¿ß»«½∞º«óá¡¿Ñ  ¼«ñπ½Ñ⌐  «íÑß»Ñτ¿óáÑΓ
»α«ßΓ«Ñ ßαÑñßΓó« ñ½∩ ¡á»¿ßá¡¿∩ í«½∞Φ¿σ »α«úαá¼¼.




                          âïÇéÇ 5

                    Éáºαáí«Γ¬á »α«úαá¼¼

     ÆÑ»Ñα∞ óδ º¡áÑΓÑ, ¬á¬ »¿ßáΓ∞ »α«úαá¼¼δ ¡á  Æπαí«-Åá߬á-
½Ñ,  ¬á¬  ¿ß»«½∞º«óáΓ∞  óßΓα«Ñ¡¡δÑ  »α«úαá¼¼¡δÑ ¼«ñ㫨 ¿ ¬á¬
ß«ºñóáΓ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ ¼«ñπ½¿. ìá φΓ«¼ φΓá»Ñ óδ πªÑ ¼«ªÑ-
ΓÑ  ß«ºñáóáΓ∞  »α«úαá¼¼δ í«½∞Φ¿Ñ »« αẼÑαπ ¿ αáºñѽѡ¡δÑ ¡á
¡Ñ߬«½∞¬« ¿ßσ«ñ¡δσ Σá⌐½«ó. èᬠαáí«ΓáΓ∞ ß  Γᬫ⌐  »α«úá¼¼«⌐?
ìáßΓ«∩Θá∩  ú½áóá  »αÑñ½áúáÑΓ  ßóÑñÑ¡¿∩  « Γ«¼, ¬á¬ αáºí¿óáΓ∞
»α«úαá¼¼π  ¡á  ¼«ñπ½¿,  ¬á¬  ó«ß»«½∞º«óáΓ∞ß∩  »αÑ¿¼πΘÑßΓóἿ
ßΓα«Ñ¡¡δσ  ßαÑñßΓó Make ¿ Build, ¬á¬ ¿ß»«½∞º«óáΓ∞ áóΓ«¡«¼¡πε
πΓ¿½¿Γπ Make, ¬á¬ ¿ß»«½∞º«óáΓ∞ πß½«ó¡πε ¬«¼»¿½∩µ¿ε »α¿ «íαá-
í«Γ¬Ñ  ¿ßσ«ñ¡«ú« Σá⌐½á ¿ ¬á¬ «»Γ¿¼¿º¿α«óáΓ∞ ßó«ε »α«úαá¼¼π ß
ΓѼ, τΓ«íδ ñ«ßΓ¿τ∞ í«½ÑÑ óδß«¬«⌐ ߬«α«ßΓ¿ óδ»«½¡Ñ¡¿∩.

                   Äαúá¡¿ºáµ¿∩ »α«úαá¼¼δ

     Æπαí«-Åá߬á½∞ óÑαß¿¿ 5.0 »«ºó«½∩ÑΓ αáºí¿óáΓ∞  »α«úαá¼¼π
¡á ßÑú¼Ñ¡Γδ ¬«ñá. éáΦá «ß¡«ó¡á∩ »α«úαá¼¼á »αÑñßΓáó½∩ÑΓ ß«í«⌐
«ñ¿¡«τ¡δ⌐ ßÑú¼Ñ¡Γ ¬«ñá, ¬«Γ«αδ⌐ »α¿ ¬«¼»¿½∩µ¿¿ »αÑ«íαáºπÑΓß∩
ó  ¼áΦ¿¡¡δ⌐ ¬«ñ, ¡Ñ »αÑóδΦáεΘ¿⌐ 64è. Äñ¡á¬«, φΓ« «úαá¡¿τÑ¡¿Ñ
¼«ª¡« »αÑ«ñ«½ÑΓ∞, αáºí¿ó »α«úαá¼¼π ¡á ¼«ñπ½¿. èáªñδ⌐  ¼«ñπ½∞
Γá¬ªÑ  ¼«ªÑΓ »α¿ ¬«¼»¿½∩µ¿¿ ß«ñÑαªáΓ∞ ñ« 64è ¼áΦ¿¡¡«ú« ¬«ñá.
é«»α«ß ß«ßΓ«¿Γ ó Γ«¼, ¬á¬ «αúá¡¿º«óáΓ∞ »α«úαá¼¼π ó ó¿ñÑ  ß«-
ó«¬π»¡«ßΓ¿ ¼«ñπ½Ñ⌐.
     ÅÑαóδ⌐ Φáú ß«ßΓ«¿Γ ó Γ«¼, τΓ«íδ ß«íαáΓ∞ óßÑ  ú½«íá½∞¡δÑ
«»αÑñѽѡ¿∩:  ¬«¡ßΓá¡Γ,  Γ¿»«ó  ñá¡¡δσ ¿ »ÑαѼѡ¡δσ - ó «ñ¿¡
¼«ñπ½∞; ¡áº«óѼ Ñú« îyGlobals. ¥Γ« ¡Ñ«íσ«ñ¿¼«,  Ñß½¿  ñαπú¿Ñ
¼«ñ㫨  «íαáΘáεΓß∩  ¬ φΓ¿¼ «»αÑñѽѡ¿∩¼. é «Γ½¿τ¿Ñ «Γ Σá⌐½«ó
Γ¿»á include (ó¬½ετáѼδσ Σá⌐½«á) ¼«ñ㫨  ¡Ñ  ¼«úπΓ  "ó¿ñÑΓ∞"
«»αÑñѽѡ¿∩,  π¬áºá¡¡δÑ  ó  «ß¡«ó¡«⌐  »α«úαá¼¼Ñ. ê¼ ñ«ßΓπ»¡«
Γ«½∞¬« Γ«, τΓ« ß«ñÑনΓß∩ ó ¿σ ß«íßΓóÑ¡¡«⌐ ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßѬ-
µ¿¿  ¿ ó ßѬµ¿∩σ ¿¡ΓÑαΣÑ⌐ßá ¼«ñπ½Ñ⌐, ¬«Γ«αδÑ «¡¿ ¿ß»«½∞ºπεΓ.
Äñ¡á¬«, ¼«ñ㫨 ¼«úπΓ ¿ß»«½∞º«óáΓ∞ îyGlobals ¿ Γᬿ¼  «íαẫ¼
ßßδ½áΓ∞ß∩ ¡á óßÑ ú½«íá½∞¡δÑ «»¿ßá¡¿∩.

     éΓ«αδ¼ ¼«ñπ½Ñ¼ ¼«ªÑΓ íδΓ∞ îyUtils. é φΓ«¼ ¼«ñπ½Ñ  ¼«ª¡«
ß«íαáΓ∞ óßÑ óß»«¼«úáΓÑúáΓá½∞¡δÑ »«ñ»α«úαá¼¼δ, ¿ß»«½∞ºπѼδÑ ó
ñαπú¿σ τáßΓ∩σ éáΦÑ⌐ »α«úαá¼¼δ. ¥Γ« ñ«½ª¡δ íδΓ∞ »«ñ»α«úαá¼¼δ,
¡Ñ ºáó¿ß∩Θ¿Ñ ¡¿ «Γ ¬á¬¿σ ñαπú¿σ »«ñ»α«úαá¼¼ (ºá ¿ß¬½ετÑ¡¿Ñ¼,
¼«ªÑΓ íδΓ∞, ñαπú¿σ »«ñ»α«úαá¼¼ ¿º îyUtils).
     Å«¼¿¼« φΓ«ú« ¼«ª¡« αáß»αÑñѽ¿Γ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿  »«
½«ú¿τÑ߬¿¼  úαπ»»á¼. é ¬áªñ«⌐ úαπ»»Ñ, ¬á¬ »αá󿽫, ¡áσ«ñ∩Γß∩
¡Ñ߬«½∞¬« »α«µÑñπα ¿ Σπ¡¬µ¿⌐, ¬«Γ«αδÑ óδºδóáεΓß∩  ¿º  ñαπú¿σ
τáßΓÑ⌐  »α«úαá¼¼δ,  á Γá¬ªÑ ¡Ñ߬«½∞¬« (¿½¿ ¼¡«ªÑßΓó«) »α«µÑ-
ñπα/Σπ¡¬µ¿⌐, ¬«Γ«αδÑ óδºδóáεΓß∩ »Ñαó묨. Æá¬á∩ úαπ»»á »αÑñß-
Γáó½∩ÑΓ ß«í«⌐ »αÑó«ßσ«ñ¡δ⌐ ¼«ñπ½∞. Å«¬áªÑ¼, ¬á¬ Ñú« ß«ºñáΓ∞:

     - 欫»¿απ⌐ΓÑ óßÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ó «Γñѽ∞¡δ⌐ Σá⌐½ ¿
πñ὿ΓÑ ¿σ ¿º «ß¡«ó¡«⌐ »α«úαá¼¼δ.
     - ÄΓ¬α«⌐ΓÑ φëà Σá⌐½ ñ½∩ αÑñá¬Γ¿αóá¡¿∩.
     - éóÑñ¿ΓÑ ß½ÑñπεΘ¿Ñ ßΓ᫬¿ »ÑαÑñ »α«µÑñπαἿ ¿ Σπ¡¬µ¿∩-
¼¿:

     unit ¿¼∩_¼«ñπ½∩;
       interface
       uses MyGlobals;
       implementation

úñÑ "¿¼∩_¼«ñπ½∩" »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¿¼∩ ¼«ñπ½∩  (á  Γá¬ªÑ  ¿
¿¼∩ αÑñá¬Γ¿απѼ«ú« óἿ Σá⌐½á).
     - é ßἫ¼ ¬«¡µÑ Σá⌐½á ¡á»ÑτáΓá⌐ΓÑ end.
     - é »α«ßΓαá¡ßΓó« ¼Ñªñπ interface ¿ implementation  ߬«-
»¿απ⌐ΓÑ  ºáú«½«ó¬¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐, ¬«Γ«αδÑ óδºδóáεΓß∩ ¿º
ñαπú¿σ τáßΓÑ⌐ »α«úαá¼¼δ. ¥Γ¿  ºáú«½«ó¬¿  »αÑñßΓáó½∩εΓ  ß«í«⌐
»Ñαóπε ßΓ᫬π ó ¬áªñ«⌐ »«ñ»α«úαá¼¼Ñ ¿ ¡áτ¿¡áεΓß∩ ß procedure
(¿½¿ function).
     - àß½¿ ¼«ñπ½∞ ¿ß»«½∞ºπÑΓ  ¬á¬¿Ñ-½¿í«  ñαπú¿Ñ  »α«µÑñπαδ
¿½¿  Σπ¡¬µ¿¿, Γ« ¡á»ÑτáΓá⌐ΓÑ ¿σ ¿¼Ñ¡á (αáºñѽѡ¡δÑ ºá»∩Γ묨)
ó «»ÑαáΓ«αÑ uses ¼Ñªñπ MyGlobals ¿ Γ«τ¬«⌐ ß ºá»∩Γ«⌐.
     - ÄΓΓαá¡ß½¿απ⌐ΓÑ ß«ºñá¡¡δ⌐ óἿ ¼«ñπ½∞.
     - 髺óαáΓ¿ΓÑß∞ ó «ß¡«ó¡πε »α«úαá¼¼π ¿ ñ«íáó∞ΓÑ ¿¼∩  ¼«-
ñπ½∩ ó «»ÑαáΓ«α uses ó ¡áτá½Ñ »α«úαá¼¼δ.

     é ¿ñÑá½∞¡«¼ ß½πτáÑ  ªÑ½áΓѽ∞¡«,  τΓ«íδ  »α«úαá¼¼á  íδ½á
ßΓαπ¬Γπα¿α«óá¡á Γᬿ¼ «íαẫ¼, τΓ«íδ »α¿ αáí«ΓÑ ¡áñ ¬á¬¿¼-Γ«
«»αÑñѽѡ¡δ¼ áß»Ñ¬Γ«¼ »α¿σ«ñ¿½«ß∞ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ¿  Γαá¡ß½¿-
α«óáΓ∞ ºá¡«ó« Γ«½∞¬« «ñ¿¡ ßÑú¼Ñ¡Γ (¼«ñπ½∞ ¿½¿ «ß¡«ó¡πε »α«ú-
αá¼¼π). ¥Γ« π¼Ñ¡∞ΦáÑΓ óαѼ∩ ¬«¼»¿½∩µ¿¿ ¿, τΓ«  í«½ÑÑ  ó᪡«,
»«ºó«½∩ÑΓ αáí«ΓáΓ∞ ß ¡Ñí«½∞Φ¿¼¿ »« αẼÑαπ ¿ ½Ñú¬« π»αáó½∩Ñ-
¼δ¼¿ τáßΓ∩¼¿ ¬«ñá.

                       ê¡¿µ¿á½¿ºáµ¿∩

     ÅαѪñÑ óßÑú« ºá»«¼¡¿ΓÑ, τΓ« ¬áªñδ⌐ ¼«ñπ½∞ ¼«ªÑΓ (¡Ñ«í∩-
ºáΓѽ∞¡«) ¿¼ÑΓ∞ ßó«⌐ ß«íßΓóÑ¡¡δ⌐ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿. ¥Γ«Γ ¬«ñ
áóΓ«¼áΓ¿τÑ߬¿ óδ»«½¡∩ÑΓß∩ »α¿ ºáúαπº¬Ñ »α«úαá¼¼δ. àß½¿ »α«ú-
αá¼¼á  ¿ß»«½∞ºπÑΓ ¡Ñ߬«½∞¬« ¼«ñπ½Ñ⌐, Γ« óδ»«½¡∩ÑΓß∩ ¬«ñ ¿¡¿-
µ¿á½¿ºáµ¿¿ ¬áªñ«ú« ¼«ñπ½∩.  Å«α∩ñ«¬  óδ»«½¡Ñ¡¿∩  ºáó¿ß¿Γ  «Γ
¼ÑßΓá  ¼«ñπ½∩ ó ß»¿ß¬Ñ «»ÑαáΓ«αá uses ó »α«úαá¼¼Ñ; Γᬿ¼ «í-
αẫ¼, Ñß½¿ »α«úαá¼¼á ß«ñÑαª¿Γ «»ÑαáΓ«α:

     uses MyGlobal,MyUtils,EditLib,GraphLib;

Γ«  ßѬµ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿  îyGlobals  (Ñß½¿  «¡á ¿¼ÑÑΓß∩) íπ-
ñÑΓ óδºóá¡á »Ñαóá∩,  ºá  ¡Ñ⌐  -  îyUtils,  àditLib  ¿  ºáΓѼ
GrafLib.
     ä½∩ ß«ºñá¡¿∩ ßѬµ¿¿ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ »«¼ÑßΓ¿ΓÑ ¬½ε-
τÑó«  ß½«ó« begin »ÑαÑñ ß½«ó«¼ end, ¬«Γ«αδ¼ ºáóÑαΦáÑΓß∩ ßѬ-
µ¿∩ αÑ὿ºáµ¿¿. ¥Γ« íπñÑΓ «»αÑñѽѡ¿Ñ¼ ßѬµ¿¿  ¿¡¿µ¿á½¿ºáµ¿¿
¼«ñπ½∩ Γ«τ¡« ΓᬠªÑ, ¬á¬ »áαá begin..end «»αÑñѽ∩ÑΓ «ß¡«ó¡«Ñ
Γѽ« »α«úαá¼¼δ, »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. æεñá  ¼«ª¡«  óßΓáó¿Γ∞
½εí«⌐  ¬«ñ  ¡á  Åá߬á½Ñ.  Ä¡ ¼«ªÑΓ ß«ñÑαªáΓ∞ ßß佬¿ ¡á ½εí«⌐
φ½Ñ¼Ñ¡Γ, «»¿ßá¡¡δ⌐ ó φΓ«¼ ¼«ñπ½Ñ, - ¬á¬ ó  «Γ¬αδΓ«⌐  (¿¡ΓÑα-
ΣÑ⌐ß),  Γᬠ ¿ ºá¬αδΓ«⌐ (αÑ὿ºáµ¿∩) ßѬµ¿∩σ; «¡ ¼«ªÑΓ ΓᬪÑ
ß«ñÑαªáΓ∞ ßß佬¿ ¡á ½εí«⌐ φ½Ñ¼Ñ¡Γ ¿º ßѬµ¿¿ ¿¡ΓÑαΣÑ⌐ßá ½εí«-
ú« ¼«ñπ½∩, ¬«Γ«αδ⌐ ¿ß»«½∞ºπÑΓß∩ ñá¡¡δ¼ ¼«ñπ½Ñ¼.

                   æαÑñßΓóá Make ¿ Build

     Æπαí«-Åá߬á½∞ »αÑñ½áúáÑΓ ó᪡«Ñ ßαÑñßΓó« ñ½∩ αáºαáí«Γ¬¿
»α«úαá¼¼:  óßΓα«Ñ¡¡πε πΓ¿½¿Γπ Make. ä½∩ π∩ß¡Ñ¡¿∩ ÑÑ ó᪡«ßΓ¿
«íαáΓ¿¼ß∩ ó¡«ó∞ ¬ »αÑñδñπΘѼπ »α¿¼Ñαπ.
     ä«»πßΓ¿¼, ¿¼ÑÑΓß∩ »α«úαá¼¼á îYÇÉÉ.PAS, ¬«Γ«αá∩  ¿ß»«½∞-
ºπÑΓ  τÑΓδαÑ ¼«ñπ½∩: îyGlobals, îyUtils, àditLib ¿ GraphLib.
¥Γ¿ τÑΓδαÑ ¼«ñπ½∩  ß«ñÑαªáΓß∩  ó  τÑΓδαÑσ  ΓѬßΓ«óδσ  Σá⌐½áσ
îYGLOBAL.PAS, îYUTILS.PAS, àDITLIé.PAS ¿ GRAPHLIé.PAS, ß««Γ-
óÑΓßΓóÑ¡¡«. èα«¼Ñ  Γ«ú«,  îyUtils  ¿ß»«½∞ºπÑΓ  îyGlobals,  á
àditLib ¿ GraphLib ¿ß»«½∞ºπεΓ îyGlobals ¿ îyUtils.
     Åα¿ Γαá¡ß½∩µ¿¿ îYÇÉÉ.PAS ¬«¼»¿½∩Γ«α «ßπΘÑßΓó½∩ÑΓ  »«¿ß¬
Σá⌐½«ó îGLOBAL.ÆÉU, îYUTILS.ÆÉU, àDITLIé.ÆÉU ¿ GRAPHLIé.ÆÉU,
ºáúαπªáÑΓ ¿σ ó »á¼∩Γ∞, ¬«¼»«¡πÑΓ ¿σ ß ¬«ñ«¼, »«½πτÑ¡¡δ¼  »α¿
¬«¼»¿½∩µ¿¿ îYÇÉÉ.PAS ¿ ºá»¿ßδóáÑΓ óßÑ ó îYÇÉÉ.àòà (Ñß½¿ ¬«¼-
»¿½∩µ¿∩ óδ»«½¡∩ÑΓß∩ ¡á ñ¿ß¬).
     ä«»πßΓ¿¼, óá¼ ¡Ñ«íσ«ñ¿¼« ó¡ÑßΓ¿ ¡Ñ¬«Γ«αδÑ  ¿º¼Ñ¡Ñ¡¿∩  ó
àDITLIé.PAS.   ä½∩   Γ«ú«,   τΓ«íδ  »«½πτ¿Γ∞  ¡«óδ⌐  óáα¿á¡Γ
îYÇÉÉ.PAS, ¡Ñ«íσ«ñ¿¼« «ΓΓαá¡ß½¿α«óáΓ∞ ºá¡«ó«  àDITLIé.PAS  ¿
îYÇÉÉ.PAS. ¥Γ« ¡Ñ¼¡«ú« ߬πτ¡á∩, ¡« ¡Ñ ß½«ª¡á∩ ºáñáτá.
     ÆÑ»Ñα∞ ñ«»πßΓ¿¼, τΓ« óδ ó¡Ñß½¿ ¿º¼Ñ¡Ñ¡¿∩ ó  ¿¡ΓÑαΣÑ⌐ß¡ε
ßѬµ¿ε îYGLOBAL.PAS. ä½∩ «í¡«ó½Ñ¡¿∩ îYÇÉÉ.àòà ¡Ñ«íσ«ñ¿¼« «Γ-
Γαá¡ß½¿α«óáΓ∞ ºá¡«ó« óßÑ τÑΓδαÑ ¼«ñπ½∩ ¿ ßá¼π îYÇÉÉ.PAS. ¥Γ«
«º¡áτáÑΓ,  τΓ« »α¿ ¬áªñ«¼ ¿º¼Ñ¡Ñ¡¿¿ îYGLOBAL.PAS »«ΓαÑíπÑΓß∩
óδ»«½¡¿Γ∞ »∩Γ∞ «Γñѽ∞¡δσ ¬«¼»¿½∩µ¿⌐, τΓ«  »«ß½πª¿Γ  ñ½∩  óáß
ñ«ßΓáΓ«τ¡δ¼ »«ó«ñ«¼ ¡Ñ ¿ß»«½∞º«óáΓ∞ Φ¿α«¬« »α«úαá¼¼¡δÑ ¼«ñπ-
½¿. Äñ¡á¬«, »«ñ«ªñ¿ΓÑ ñѽáΓ∞ óδó«ñδ.

                       æαÑñßΓó« Make

     èᬠóδ πªÑ  ñ«úáñ὿ß∞,  Æπαí«-Åá߬á½∞  »αÑñ½áúáÑΓ  ñ½∩
φΓ«ú«  αÑΦÑ¡¿Ñ.  æ  »«¼«Θ∞ε  ßαÑñßΓóá Make éδ ¼«ªÑΓÑ π¬áºáΓ∞
Æπαí«-Åá߬á½ε óδ»«½¡¿Γ∞ óßε φΓπ αáí«Γπ. çáñáτá  ¡Ñ  ß½«ª¡á∩:
»«ß½Ñ  ó¡ÑßÑ¡¿∩ ¬á¬¿σ-½¿í« ¿º¼Ñ¡Ñ¡¿⌐ ó ¼«ñ㫨 ¿/¿½¿ ó «ß¡«ó-
¡πε »α«úαá¼¼π, óá¼ ¡πª¡« íπñÑΓ ºá¡«ó« «ΓΓαá¡ß½¿α«óáΓ∞ Γ«½∞¬«
«ß¡«ó¡πε »α«úαá¼¼π.
     Æπαí«-Åá߬á½∞ ó φΓ«¼ ß½πτáÑ óδ»«½¡∩ÑΓ Γα¿  ó¿ñá  »α«óÑ-
᫬.

     - é«-»Ñαóδσ, ñ½∩ ¬áªñ«ú« ¼«ñπ½∩, ¿ß»«½∞ºπѼ«ú« »α«úαá¼-
¼«⌐,  Æπαí«-Åá߬á½∞  »α«óÑα∩ÑΓ  ¿  ßαáó¡¿óáÑΓ óαÑ¼Ñ¡á ¿ ñáΓδ
ß«ºñá¡¿∩ Σá⌐½á ß αáßΦ¿αÑ¡¿Ñ¼ .ÆÉU ¿ ß««ΓóÑΓßΓóπεΘÑú« Σá⌐½á ß
αáßΦ¿αÑ¡¿Ñ¼  Γ«ú«,  ¬á¬  íδ½ ß«ºñá¡ Σá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ .ÆÉU,
Æπαí«-Åá߬á½∞ ºá¡«ó« «ΓΓαá¡ß½¿απÑΓ Σá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ .PAS ¿
ß«ºñáßΓ  «í¡«ó½Ñ¡¡δ⌐ Σá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ .ÆÉU. Å«φΓ«¼π ó »Ñα-
ó«¼ »α¿¼ÑαÑ, ¬«úñá ó Σá⌐½ àDITLIé.PAS ó¡«ß∩Γß∩ ¿º¼Ñ¡Ñ¡¿∩,  á
ºáΓѼ  ºá¡«ó«  Γαá¡ß½¿απÑΓß∩  îYÇÉÉ.PAS  (ß »«¼«Θ∞ε ßαÑñßΓóá
Make),   Æπαí«-Åá߬á½∞   áóΓ«¼áΓ¿τÑ߬¿   »ÑαÑñ   ¬«¼»¿½∩µ¿Ñ⌐
îYÇÉÉ.PAS ºá¡«ó« «ΓΓαá¡ß½¿απÑΓ àDITLIé.PAS.
     - éΓ«αá∩ »α«óÑα¬á ß«ßΓ«¿Γ ó Γ«¼,  τΓ«  πßΓá¡áó½¿óáÑΓß∩,
í뫨 ½¿ ó¡ÑßÑ¡δ ¿º¼Ñ¡Ñ¡¿∩ ó ßѬµ¿ε ¿¡ΓÑαΣÑ⌐ßá ¼«ñ¿Σ¿µ¿απѼ«-
ú« ¼«ñπ½∩. àß½¿ φΓ« ¿¼Ñ½« ¼ÑßΓ«, Γ« Æπαí«-Åá߬á½∞ ºá¡«ó« «Γ-
Γαá¡ß½¿απÑΓ óßÑ ¼«ñπ½¿, ¿ß»«½∞ºπεΘ¿Ñ ñá¡¡δ⌐ ¼«ñπ½∞.
     é« óΓ«α«¼ »α¿¼ÑαÑ, ¬«úñá ¿º¼Ñ¡Ñ¡¿∩  ó¡«ß∩Γß∩  ó  ßѬµ¿ε
¿¡ΓÑαΣÑ⌐ßá  Σá⌐½á îYGLOBAL.PAS, á ºáΓѼ îYÇÉÉ.PAS Γαá¡ß½¿απ-
ÑΓß∩ ºá¡«ó«, Æπαí«-Åá߬á½∞ áóΓ«¼áΓ¿τÑ߬¿  »ÑαÑñ  ¬«¼»¿½∩µ¿Ñ⌐
îYÇÉÉ.PAS  «ΓΓαá¡ß½¿απÑΓ  ºá¡«ó«  îYGLOBAL.PAS,  îYUTIL.PAS,
àDITLIé.PAS ¿ GRAPHLIé.PAS (ó φΓ«¼  »«α∩ñ¬Ñ).  Äñ¡á¬«,  Ñß½¿
¿º¼Ñ¡Ñ¡¿∩  íπñπΓ  ó¡ÑßÑ¡δ Γ«½∞¬« ó ßѬµ¿ε αÑ὿ºáµ¿¿, Γ« ¡ÑΓ
¡Ñ«íσ«ñ¿¼«ßΓ¿ ºá¡«ó« Γαá¡ß½¿α«óáΓ∞ ñαπú¿Ñ ºáó¿ß¿¼δÑ  ¼«ñπ½¿,
»«ß¬«½∞¬π  (ó Γ«¼, τΓ« ¬áßáÑΓß∩ ¿σ) π¬áºá¡¡δ⌐ ¼«ñπ½∞ ¿º¼Ñ¡Ñ¡
¡Ñ íδ½.
     - ÆαÑΓ∞∩ »α«óÑα¬á ß«ßΓ«¿Γ ó Γ«¼,  τΓ«  πßΓá¡áó½¿óáÑΓß∩,
í뫨  ½¿  ó¡ÑßÑ¡δ  ¿º¼Ñ¡Ñ¡¿∩ ó ¬á¬¿Ñ-½¿í« Σá⌐½δ Γ¿»á Include
¿½¿ ó «íΩÑ¬Γ¡δÑ Σá⌐½δ  (.OBJ),  ß«ñÑαªáΘ¿Ñ  »«ñ»α«úαá¼¼δ  ¡á
∩ºδ¬Ñ  áßßѼí½Ñαá  ¿  ¿ß»«½∞ºπѼδÑ  ¬á¬¿¼-½¿í« ¼«ñπ½Ñ¼. àß½¿
ñá¡¡δ⌐ Σá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ Σá⌐½á, ß ¬«Γ«α묨 «¡  ¬«¼»«¡πÑΓß∩,
Γ«  ß««ΓóÑΓßΓóπεΘ¿⌐ ¼«ñπ½∞ Γαá¡ß½¿απÑΓß∩ ºá¡«ó«. Æᬿ¼ «íαá-
º«¼, Ñß½¿ óδ ó¡ÑßÑΓÑ ¿º¼Ñ¡Ñ¡¿∩ ó »«ñ»α«úαá¼¼δ ¡á  ∩ºδ¬Ñ  áß-
ßѼí½Ñαá,  ¿ß»«½∞ºπѼδÑ  óáΦ¿¼ ¼«ñπ½Ñ¼, ¿ «ΓΓαá¡ß½¿απÑΓÑ ¿σ,
Γ« »α¿ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ, ¿ß»«½∞ºπεΘÑ⌐ π¬áºá¡¡δ⌐  ¼«ñπ½∞,
»«ß½Ññ¡¿⌐ íπñÑΓ áóΓ«¼áΓ¿τÑ߬¿ «ΓΓαá¡ß½¿α«óá¡ ºá¡«ó«.

     Åα¿ αáí«ΓÑ ó ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñÑ »α«úαá¼¼¿α«óá¡¿∩ ñ½∩
¿ß»«½∞º«óá¡¿∩  ßαÑñßΓóá Make ¡Ñ«íσ«ñ¿¼« óδíαáΓ∞ ¬«¼á¡ñπ Make
(櫺- ñáΓ∞) ¿º ¼Ñ¡ε Compile (諼»¿½¿α«óáΓ∞) ¿½¿ ¡áªáΓ∞  ¬½á-
ó¿Φπ  F9.  Åα¿ αáí«ΓÑ ß ¬«¼»¿½∩Γ«α«¼, ¿ß»«½∞ºπεΘ¿¼ ¬«¼á¡ñ¡δÑ
ßΓ᫬¿, ñ½∩ ó맮óá φΓ«ú« ßαÑñßΓóá π¬áª¿ΓÑ »áαá¼ÑΓα /î. ÄΓ¼Ñ-
Γ¿¼,  τΓ«  ßαÑñßΓóá Make ¡Ñ ¿¼ÑÑΓ ß¿½δ ñ½∩ ¼«ñπ½Ñ⌐, ß«ñÑαªá-
Θ¿σß∩ ó ÆURéÄ.TPL.

                       æαÑñßΓó« Build

     æαÑñßΓó«  Build  »αÑñßΓáó½∩ÑΓ  ß«í«⌐   τáßΓ¡δ⌐   ß½πτá⌐
ßαÑñßΓóá  Make.  Åα¿  ¬«¼»¿½∩µ¿¿  »α«úαá¼¼δ ß ¿ß»«½∞º«ó᡿Ѽ
ßαÑñßΓóá Build Æπαí«-Åá߬á½∞ áóΓ«¼áΓ¿τÑ߬¿ ºá¡«ó« Γαá¡ß½¿απ-
ÑΓ óßÑ ¼«ñπ½¿, ¿ß»«½∞ºπѼδÑ ñá¡¡«⌐ »α«úαá¼¼«⌐ (ºá ¿ß¬½ετÑ¡¿-
Ѽ, ¬«¡Ñτ¡«, ¼«ñπ½Ñ⌐ ¿º ÆURéÄ.TPL). ¥Γ« »α«ßΓ«⌐  ß»«ß«í  úá-
αá¡Γ¿α«óáΓ∞, τΓ« óßÑ íπñÑΓ «í¡«ó½Ñ¡«.
     Åα¿ αáí«ΓÑ ó ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñÑ »α«úαá¼¼¿α«óá¡¿∩ ñ½∩
¿ß»«½∞º«óá¡¿∩  »áαá¼ÑΓαá  Build  ¡Ñ«íσ«ñ¿¼«  óδíαáΓ∞ ¬«¼á¡ñπ
Build (Å«ßΓα«¿Γ∞) ¿º ¼Ñ¡ε Compile (諼»¿½¿α«óáΓ∞). Åα¿ αáí«-
ΓÑ ß ¬«¼»¿½∩Γ«α«¼, ¿ß»«½∞ºπεΘ¿¼ ¬«¼á¡ñ¡δÑ ßΓ᫬¿, ñ½∩ ó맮óá
φΓ«ú« ßαÑñßΓóá π¬áª¿ΓÑ »áαá¼ÑΓα /é.

                  ÇóΓ«¡«¼¡á∩ πΓ¿½¿Γá Make

     Æπαí«-Åá߬á½∞ »αÑñ½áúáÑΓ »α«ßΓ«⌐ ñ«ßΓπ» ¬ í«½∞Φ«¼π  ¡á-
í«απ  ßαÑñßΓó ñ½∩ «íαáí«Γ¬¿ í«½∞Φ¿σ, ß½«ª¡δσ »α«úαá¼¼, »«ßΓ-
α«Ñ¡¡δσ ¿º ¼¡«ú«τ¿ß½Ñ¡¡δσ ¼«ñπ½Ñ⌐, ¿ßσ«ñ¡δσ ¿ «íΩÑ¬Γ¡δσ Σá⌐-
½«ó.  Ä¡  ¼«ªÑΓ  áóΓ«¼áΓ¿τÑ߬¿  óδ»«½¡¿Γ∞  «»Ñαᵿε Make ¿½¿
Build ¿ ºá¡«ó« «ΓΓαá¡ß½¿α«óáΓ∞ ¼«ñ㫨 ó ß½πτáÑ  ¡Ñ«íσ«ñ¿¼«ß-
Γ¿.  Äñ¡á¬«, »«¡∩Γ¡«, τΓ« Æπαí«-Åá߬á½∞ ¡Ñ ß«ñÑαª¿Γ ßαÑñßΓóá
ñ½∩ »«½πτÑ¡¿∩ «íΩÑ¬Γ¡δσ Σá⌐½«ó ñ½∩ »α«úαá¼¼ ¡á ∩ºδ¬Ñ  áßßѼ-
í½Ñαá  (Σá⌐½«ó  ß  αáßΦ¿αÑ¡¿Ñ¼ .ÇSî), ó ¬«Γ«αδÑ í뫨 ó¡ÑßÑ¡δ
¿º¼Ñ¡Ñ¡¿∩. ä½∩ φΓ«ú« ¡Ñ«íσ«ñ¿¼« ¿ß»«½∞º«óáΓ∞  «Γñѽ∞¡δ⌐  áß-
ßѼí½Ñα. Æᬿ¼ «íαẫ¼, ó«»α«ß ºá¬½ετáÑΓß∩ ó Γ«¼, ¬á¬ «í¡«ó-
½∩Γ∞ Σá⌐½δ ß αáßΘ¿αÑ¡¿Ñ¼ .ÇSî ¿ .OBJ?
     ÄΓóÑΓ »α«ßΓ«⌐: ¿ß»«½∞ºπ⌐ΓÑ πΓ¿½¿Γπ MAKE, ¡áσ«ñ∩Θπεß∩ ¡á
óáΦѼ  ñ¿ß¬Ñ. îÇèà ∩ó½∩ÑΓß∩ ¿¡Γѽ½Ñ¬Γπá½∞¡δ¼ »α«úαá¼¼¡δ¼ áñ-
¼¿¡¿ßΓαáΓ«α«¼, ¬«Γ«αδ⌐ - »α¿ ºáñá¡¿¿ «»αÑñѽѡ¡δσ  ¬«¼á¡ñ  -
óδ»«½¡¿Γ  óßÑ  ¡Ñ«íσ«ñ¿¼«Ñ  ñ½∩ «í¡«ó½Ñ¡¿∩ »α«úαá¼¼δ. é ñÑ⌐-
ßΓó¿Γѽ∞¡«ßΓ¿ 󫺼«ª¡«ßΓ¿ îÇèà º¡áτ¿Γѽ∞¡« Φ¿αÑ. ¥Γá πΓ¿½¿Γá
ß«ºñáÑΓ αѺÑαó¡δÑ ¬«»¿¿, πñá½∩ÑΓ Σá⌐½δ ¿º αẽ¿τ¡δσ »«ñ¬áΓ«-
½«ú«ó ¿ ñáªÑ áóΓ«¼áΓ¿τÑ߬¿ ºá»π߬áÑΓ óáΦ¿  »α«úαá¼¼δ,  ó¡«ß∩
¿º¼Ñ¡Ñ¡¿∩  ó  Σá⌐½δ  ñá¡¡δσ, ¬«Γ«αδÑ «¡¿ ¿ß»«½∞ºπεΓ. Å« ¼ÑαÑ
¿ß»«½∞º«óá¡¿∩ îÇèà óδ «í¡áαπª¿ΓÑ ¿ ñαπú¿Ñ ß»«ß«íδ  ¿ß»«½∞º«-
óá¡¿∩ φΓ«⌐ πΓ¿½¿Γδ ñ½∩ αáºαáí«Γ¬¿ »α«úαá¼¼.
     îÇèà »αÑñßΓáó½∩ÑΓ ß«í«⌐ áóΓ«¡«¼¡πε πΓ¿½¿Γπ. Ä¡á «Γ½¿τá-
ÑΓß∩  «Γ  ßαÑñßΓó Make ¿ Build, óσ«ñ∩Θ¿σ ó ß«ßΓáó ¿¡ΓÑúα¿α«-
óá¡¡«⌐ ßαÑñδ »α«úαá¼¼¿α«óá¡¿∩ ¿½¿ ¬«¼»¿½∩Γ«αá, ¿ß»«½∞ºπεΘÑú«
¬«¼á¡ñ¡δÑ ßΓ᫬¿. Å«½¡«Ñ «»¿ßá¡¿Ñ πΓ¿½¿Γδ îÇèà ñá¡« ó Åα¿½«-
ªÑ¡¿¿ æ, á ºñÑß∞ »α¿ó«ñ¿Γß∩ »α¿¼Ñα,  ¿½½εßΓα¿απεΘ¿⌐  ÑÑ  ¿ß-
»«½∞º«óá¡¿Ñ.

                      ìÑí«½∞Φ«⌐ »α¿¼Ñα

     ä«»πßΓ¿¼, óδ »¿Φ¿ΓÑ ¡Ñ߬«½∞¬« »α«úαá¼¼,  «ßπΘÑßΓó½∩εΘ¿σ
óδó«ñ ¡á φ¬αá¡ ñ¿ß»½Ñ∩ ¿¡Σ«α¼áµ¿¿ « ß«ßÑñ¡¿σ ºóѺñ¡δσ ß¿ßΓÑ-
¼áσ. Äñ¡á »α«úαá¼¼á,  GETSTARS.PAS,  ßτ¿ΓδóáÑΓ  ó  ΓѬßΓ«óδ⌐
Σá⌐½  ß»¿ß«¬ ºóѺñ¡δσ ß¿ßΓѼ, «ßπΘÑßΓó½∩ÑΓ ¡Ñ¬«Γ«απε Ñú« «í-
αáí«Γ¬π ¿ ß«ºñáÑΓ Σá⌐½ ñó«¿τ¡δσ ñá¡¡δσ, ß«ñÑαªáΘ¿⌐  »«½πτÑ¡-
¡πε ¿¡Σ«α¼áµ¿ε.
     GETSTARS.PAS ¿ß»«½∞ºπÑΓ Γα¿ ¼«ñπ½∩:  STARDEFS.TPU,  ß«-
ñÑαªáΘ¿⌐ ú½«íá½∞¡δÑ «»αÑñѽѡ¿∩; STARLIB.TPU, ß«ñÑαªáΘ¿⌐ ¡Ñ-
¬«Γ«αδÑ »α¿¬½áñ¡δÑ »«ñ»α«úαá¼¼δ, ¿ STARPROC.TPU, «ßπΘÑßΓó½∩-
εΘ¿⌐ «ß¡«ó¡πε «íαáí«Γ¬π. êßσ«ñ¡δ⌐ ¬«ñ φΓ¿σ ¼«ñπ½Ñ⌐ ¡áσ«ñ¿Γß∩
ó Σá⌐½áσ STARDEFS.PAS,  STARLIB.PAS  ¿  STARPROC.PAS,  ß««Γ-
óÑΓßΓóÑ¡¡«.
     ÄΓ¼ÑΓ¿¼ ß½ÑñπεΘ¿Ñ ºáó¿ß¿¼«ßΓ¿. STARDEFS.PAS ¡Ñ  ¿ß»«½∞-
ºπÑΓ  ¡¿¬á¬¿σ  ñαπú¿σ  ¼«ñπ½Ñ⌐,  STARLIB.LIB.PAS  ¿ß»«½∞ºπÑΓ
STARDEFS;  STARPROC.PAS  ¿ß»«½∞ºπÑΓ  STARDEFS   ¿   STARLIB;
GETSTARS.PAS ¿ß»«½∞ºπÑΓ STARDEFS, STARLIB ¿ STARPROC.
     Æᬿ¼ «íαẫ¼, ñ½∩ »«½πτÑ¡¿∩ GETSTARS.EXE  éá¼  ß½ÑñπÑΓ
»α«ßΓ« «ΓΓαá¡ß½¿α«óáΓ∞ GETSTARS.PAS. Æπαí«-Åá߬á½∞ (¿ ó ß½π-
τáÑ ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñδ »α«úαá¼¼¿α«óá¡¿∩, ¿ ó ß½πτáÑ  ¬«¼-
»¿½∩Γ«αá,  ¿ß»«½∞ºπεΘÑú« ¬«¼á¡ñ¡δÑ ßΓ᫬¿) «ΓΓαá¡ß½¿απÑΓ ºá-
¡«ó« óßÑ ¡Ñ«íσ«ñ¿¼δÑ ¼«ñπ½¿.
     ä«»πßΓ¿¼, τΓ« óδ »ÑαÑ»¿ß὿  ¡Ñ߬«½∞¬«  »«ñ»α«úαá¼¼  ¿º
STARLIB.PAS  ¡á  ∩ºδ¬Ñ  áßßѼí½Ñαá, ß«ºñáó Σá⌐½δ SLIB1.ASM ¿
SLIB2.ASM. Åα¿ Γαá¡ß½∩µ¿¿ φΓ¿σ Σá⌐½«ó »«½πτÑ¡δ  SLIB1.OBJ  ¿
SLIB2.OBJ.  èáªñδ⌐ αẠ»α¿ ¬«¼»¿½∩µ¿¿ STARLIB.PAS φΓ¿ «íΩѬ-
Γ¡δÑ Σá⌐½δ ¬«¼»«¡πεΓß∩ ó¼ÑßΓÑ ß ¡Ñ⌐. öá¬Γ¿τÑ߬¿,  Æπαí«-Åáß-
¬á½∞   ºá¡«ó«   «ΓΓαá¡ß½¿απÑΓ  STARLIB.PAS  ó  ß½πτáÑ,  Ñß½¿
STARLIB.TPU «¬áªÑΓß∩ ßΓáαΦÑ ½εí«ú« ¿º φΓ¿σ «íΩÑ¬Γ¡δσ Σá⌐½«ó.
     Äñ¡á¬«, ¬á¬ íδΓ∞, Ñß½¿ «íΩÑ¬Γ¡δ⌐ Σá⌐½  «¬áªÑΓß∩  ßΓáαΦÑ
Σá⌐½á  ß αáßΦ¿αÑ¡¿Ñ¼ .ASM, «Γ ¬«Γ«α«ú« «¡ ºáó¿ß¿Γ? ¥Γ« «º¡á-
τáÑΓ, τΓ« «»αÑñѽѡ¡δ⌐ Σá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ .ASM ΓαÑíπÑΓ  »«ó-
Γ«α¡«⌐ Γαá¡ß½∩µ¿¿. Æπαí«-Åá߬á½∞ ¡Ñ ß»«ß«íÑ¡ «ΓΓαá¡ß½¿α«óáΓ∞
Γá¬¿Ñ Σá⌐½δ; τΓ« ªÑ ó φΓ«¼ ß½πτáÑ ñѽáΓ∞?
     ìÑ«íσ«ñ¿¼« ß«ºñáΓ∞ Σá⌐½ Γ¿»á  make  ¿  óδºóáΓ∞  πΓ¿½¿Γπ
îÇèà. öá⌐½ Γ¿»á make ß«ßΓ«¿Γ ¿º ºáó¿ß¿¼«ßΓÑ⌐ ¿ ¬«¼á¡ñ. çáó¿-
ß¿¼«ßΓ¿ π¬áºδóáεΓ îÇèà, ¬á¬¿Ñ Σá⌐½δ ºáó¿ß∩Γ «Γ ñá¡¡«ú«  Σá⌐-
½á.  諼á¡ñδ π¬áºδóáεΓ îÇèà, ¬á¬ ß«ºñáΓ∞ ñá¡¡δ⌐ Σá⌐½ ¿º ñαπ-
ú¿σ.

                  櫺ñá¡¿Ñ Σá⌐½á Γ¿»á make

     éáΦ Σá⌐½ Γ¿»á make ó φΓ«¼ ß½πτáÑ ¼«ªÑΓ ¿¼ÑΓ∞  ß½ÑñπεΘ¿⌐
ó¿ñ:

getstars.exe: getstars.pas stardefs.pas starlib.pas \
    slib1.asm slib2.asm slib1.obj slib2.obj  tpc getstars /m

slib1.obj: slib1.asm
  A86 slib1.asm slib1.obj

slib2.obj: slib2.asm
  A86 slib2.asm slib2.obj

     ¥Γ« óδú½∩ñ¿Γ ¡Ñ߬«½∞¬« ¡Ñ»«¡∩Γ¡δ¼. äáñ¿¼ »«∩ß¡Ñ¡¿∩:

     - ÅÑαóδÑ ñóÑ ßΓ᫬¿ π¬áºδóáεΓ  îÇèà,  τΓ«  GETSTARS.àòà
ºáó¿ß¿Γ «Γ ΓαÑσ Σá⌐½«ó ¡á ∩ºδ¬Ñ Åá߬á½∩, ñóπσ Σá⌐½«ó ¡á ∩ºδ-
¬Ñ áßßѼí½Ñαá ¿ ñóπσ «íΩÑ¬Γ¡δσ Σá⌐½«ó («íαáΓ¡á∩ ¬«ßá∩  τÑαΓá
ó  ¬«¡µÑ  »Ñαó«⌐  ßΓ᫬¿  π¬áºδóáÑΓ îÇèà ¿ú¡«α¿α«óáΓ∞ αáºαδó
ßΓ᫬¿, »«ß¬«½∞¬π «»αÑñѽѡ¿Ñ ºáó¿ß¿¼«ßΓÑ⌐  »α«ñ«½ªáÑΓß∩  ¡á
ß½ÑñπεΘÑ⌐ ßΓ᫬Ñ).
     ÆαÑΓ∞∩ ßΓ᫬á π¬áºδóáÑΓ îÇèà, ¬á¬ »«ßΓα«¿Γ∞ ¡«óδ⌐  GET-
STARS.àòà. ÄΓ¼ÑΓ¿¼, τΓ« ñ½∩ «íαáí«Γ¬¿ GETSTARS.PAS óδºδóáÑΓ-
ß∩ ¬«¼»¿½∩Γ«α, ¿ß»«½∞ºπεΘ¿⌐ ¬«¼á¡ñ¡δÑ ßΓ᫬¿, ¿ ¿ß»«½∞ºπÑΓß∩
óßΓα«Ñ¡¡«Ñ ó Æπαí«-Åá߬á½∞ ßαÑñßΓó« Make (»áαá¼ÑΓα /î).
     - æ½ÑñπεΘ¿Ñ ñóÑ  ßΓ᫬¿  (»πßΓá∩  ßΓα«¬á  ¿ú¡«α¿απÑΓß∩)
π¬áºδóáεΓ  îÇèà, τΓ« SLIé1.OBJ ºáó¿ß¿Γ «Γ SLIé1.ÇSî, ¿ «»αÑ-
ñѽ∩εΓ, ¬á¬ »«ßΓα«¿Γ∞ ¡«óδ⌐ Σá⌐½ SLIé1.OBJ.
     - äóÑ »«ß½Ññ¡¿Ñ ßΓ᫬¿ «»αÑñѽ∩εΓ  ºáó¿ß¿¼«ßΓ¿  (Σá¬Γ¿-
τÑ߬¿ Γ«½∞¬« «Γ «ñ¡«ú« Σá⌐½á) ¿ ñÑ⌐ßΓó¿Ñ îÇèà ñ½∩ SLIé2.OBJ.

                     êß»«½∞º«óá¡¿Ñ îÇèà

     ä«»πßΓ¿¼, τΓ« óδ ß«ºñ὿ φëà Σá⌐½ ß »«¼«Θ∞ε  αÑñá¬Γ«αá
ßαÑñδ  »α«úαá¼¼¿α«óá¡¿∩  Æπαí«-Åá߬á½∩ (¿½¿ ß »«¼«Θ∞ε ½εí«ú«
ñαπú«ú« αÑñá¬Γ«αá, αáí«ΓáεΘÑú« ó ¬«ñáσ ASCII) ¿ ºá»¿ß὿ Ñú«
¡á ñ¿ß¬ ó ó¿ñÑ STARS.MAK. éδ ¼«ªÑΓÑ Ñú« ¿ß»«½∞º«óáΓ∞, π¬áºáó
ó ¬«¼á¡ñÑ:

     make -fstars.mak

úñÑ -f ∩ó½∩ÑΓß∩ »áαá¼ÑΓα«¼, π¬áºδóáεΘ¿¼ îÇèà, ¬á¬«⌐ Σá⌐½ ¿ß-
»«½∞º«óáΓ∞.  îÇèà  «íαáíáΓδóáÑΓ φëà Σá⌐½ ß ¡¿ª¡Ñ⌐ ßΓ᫬¿ »«
óÑασ¡εε. é¡áτá½Ñ «¡á »α«óÑα∩∩ÑΓ, ¡Ñ  ∩ó½∩ÑΓß∩  ½¿  SLIB2.OBJ
ßΓáαΦÑ  SLIB2.ASî.  àß½¿ φΓ« ¿¼ÑÑΓ ¼ÑßΓ«, Γ« îÇèà óδñáÑΓ ¬«-
¼á¡ñπ:

     A86 SLIB2.asm SLIB2.obj

»« ¬«Γ«α«⌐ «ßπΘÑßΓó½∩ÑΓß∩ Γαá¡ß½∩µ¿∩ SLIB2.ASM  ¿  ß«ºñáÑΓß∩
¡«óá∩ óÑαß¿∩ SLIB2.OBJ. çáΓѼ óδ»«½¡∩ÑΓß∩ Γá¬á∩ »α«óÑα¬á ñ½∩
SLIB1.ASM ¿ ó ß½πτáÑ ¡Ñ«íσ«ñ¿¼«ßΓ¿ óδñáÑΓß∩ Γá¬á∩ ªÑ  ¬«¼á¡-
ñá.  ìᬫ¡Ñµ, »α«óÑα∩εΓß∩ óßÑ ºáó¿ß¿¼«ßΓ¿ ñ½∩ GETSTARS.EXE ¿
ó ß½πτáÑ ¡Ñ«íσ«ñ¿¼«ßΓ¿ óδñáÑΓß∩ ¬«¼á¡ñá:

     tpc getstars /m

     Åáαá¼ÑΓα /î π¬áºδóáÑΓ Æπαí«-Åá߬á½ε ¿ß»«½∞º«óáΓ∞ ß«íßΓ-
óÑ¡¡δÑ  ó¡πΓαÑ¡¡¿Ñ  »«ñ»α«úαá¼¼δ  îÇèà, ¬«Γ«αδÑ αáºαÑΦáΓ óßÑ
ºáó¿ß¿¼«ßΓ¿   ¼«ñπ½Ñ⌐,    ó¬½ετá∩    »«óΓ«α¡πε    Γαá¡ß½∩µ¿ε
STARLIB.PAS  ó ß½πτáÑ, Ñß½¿ SLIB1.OBJ ¿½¿ SLIB2.OBJ «¬áªπΓß∩
í«½ÑÑ ¡«ó묨, τѼ STARLIB.TPU.
     ¥Γ« Γ«½∞¬« »α«ßΓ«⌐  »α¿¼Ñα  ¿ß»«½∞º«óá¡¿∩  îÇèà.  ü«½ÑÑ
»«½¡«Ñ «»¿ßá¡¿Ñ ¼«ª¡« ¡á⌐Γ¿ ó Åα¿½«ªÑ¡¿¿ æ.

                    ôß½«ó¡á∩ ¬«¼»¿½∩µ¿∩

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

     {$ñ¿αÑ¬Γ¿óá áαú}

úñÑ  "ñ¿αÑ¬Γ¿óá"  «í«º¡áτáÑΓ  ñ¿αÑ¬Γ¿óπ  (¡á»α¿¼Ñα,  DEFINE,
IFDEF ¿ ñαπú¿Ñ), á "áαú" ∩ó½∩ÑΓß∩  áαúπ¼Ñ¡Γ«¼.  ÄΓ¼ÑΓ¿¼, τΓ«
¼Ñªñπ "ñ¿αÑ¬Γ¿óá" ¿ "áαú" ñ«½ªÑ¡ íδΓ∞  αáºñѽ¿Γѽ∞  (»α«íѽ,
ß¿¼ó«½  Γáíπ½∩µ¿¿). é Æáí½¿µÑ 5.1 »ÑαÑτ¿ß½Ñ¡δ  óßÑ  πß½«ó¡δÑ
ñ¿αÑ¬Γ¿óδ ¿ ¿σ º¡áτÑ¡¿∩.
                                            Æáí½¿µá 5.1
              滿߫¬ ñ¿αÑ¬Γ¿ó ¬«¼»¿½∩Γ«αá
-----------------------------------------------------------
{$DEFINE ß¿¼ó«½}    Ä»αÑñѽ∩ÑΓ ß¿¼ó«½ ñ½∩ ñαπú¿σ ñ¿αÑ¬Γ¿ó
{$UNDEF ß¿¼ó«½}     ÄΓ¼Ñ¡∩ÑΓ «»αÑñѽѡ¿Ñ ß¿¼ó«½á
{$IFDEF ß¿¼ó«½}     àß½¿ ß¿¼ó«½ «»αÑñѽѡ, Γ« »«ß½ÑñπεΘ¿⌐
                    ¬«ñ Γαá¡ß½¿απÑΓß∩
{$IFNDEF ß¿¼ó«½}    àß½¿ ß¿¼ó«½ ¡Ñ «»αÑñѽѡ, Γ« »«ß½Ññπ-
                    εΘ¿⌐ ¬«ñ Γαá¡ß½¿απÑΓß∩
{$IFOPT σ+}         àß½¿ ñ¿αÑ¬Γ¿óá σ á¬Γ¿ó¿º¿α«óá¡á, Γ«
                    »«ß½ÑñπεΘ¿⌐ ¬«ñ Γαá¡ß½¿απÑΓß∩
{$IFOPT σ-}         àß½¿ ñ¿αÑ¬Γ¿óá σ ¡Ñ á¬Γ¿ó¿º¿α«óá¡á,
                    Γ« »«ß½ÑñπεΘ¿⌐ ¬«ñ Γαá¡ß½¿απÑΓß∩
{$ELSE}             àß½¿ »αÑñδñπΘá∩ ñ¿αÑ¬Γ¿óá IFxxx ¡Ñ
                    ñáÑΓ º¡á¡¿∩ Ærue (¿ßΓ¿¡¡«), Γ« »«ß½Ñ-
                    ñπεΘ¿⌐ ¬«ñ Γαá¡ß½¿απÑΓß∩
{$ENDIF}            Äí«º¡áτáÑΓ ¬«¡Ñµ ßѬµ¿⌐ IFxxx ¿½¿ àLSà
-----------------------------------------------------------

                  ä¿αÑ¬Γ¿óδ DEFINE ¿ UNDEF

     ä¿αÑ¬Γ¿óδ IFDEF ¿ IFNDEF »α«óÑα∩εΓ, «»αÑñѽѡ ¡Ñ¬«Γ«αδ⌐
ß¿¼ó«½  ¿½¿ ¡ÑΓ. ¥Γ¿ ß¿¼ó«½δ «»αÑñѽ∩εΓß∩ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿ó
DEFINE ¿ UNDEF. (éδ ¼«ªÑΓÑ «»αÑñѽ∩Γ∞ ß¿¼ó«½δ Γá¬ªÑ ó ¬«¼á¡-
ñ¡«⌐ ßΓα«¬Ñ ¿ ó ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñÑ »α«úαá¼¼¿α«óá¡¿∩).
     ä½∩ «»αÑñѽѡ¿∩ ß¿¼ó«½á óßΓáó∞ΓÑ ó ßó«ε  »α«úαá¼¼π  ñ¿-
αÑ¬Γ¿óπ:

     {$DEFINE ß¿¼ó«½}

âñÑ "ß¿¼ó«½"  »«ñτ¿¡∩ÑΓß∩  «íδτ¡δ¼  »αáó¿½¼  ñ½∩ ¿ñÑ¡Γ¿Σ¿¬á-
Γ«α«ó ó «Γ¡«ΦÑ¡¿¿ ñ½¿¡δ, ñ«»πßΓ¿¼δσ ß¿¼ó«½«ó ¿ ñαπú¿σ ߻ѵ¿-
Σ¿¬áµ¿⌐. ìá»α¿¼Ñα, ¼«ª¡« «»αÑñѽ¿Γ∞:

     {$DEFINE debug}

    ¥Γ« ∩ó½∩ÑΓß∩ «»αÑñѽѡ¿Ñ¼ ß¿¼ó«½á debug  ñ½∩  «ßΓáóΦÑ⌐ß∩
τáßΓ¿  »α«úαá¼¼δ  ¿½¿  ñ« Γ«ú« ¼«¼Ñ¡Γá, ¬á¬ óßΓαÑΓ¿Γß∩  «»Ñ-
αáΓ«α:

  {$UNDEF debug}

     èᬠóδ πªÑ  ñ«úáñ὿ß∞,  UNDEF  "«Γ¼Ñ¡∩ÑΓ  «»αÑñѽѡ¿Ñ"
ß¿¼ó«½á.  àß½¿  ß¿¼ó«½  ¡Ñ  «»αÑñѽѡ, Γ« UNDEF ¡¿ ¡á τΓ« ¡Ñ
ó½¿∩ÑΓ.

               Ä»αÑñѽѡ¿Ñ ó ¬«¼á¡ñ¡«⌐ ßΓ᫬Ñ

     àß½¿ óδ αáí«ΓáÑΓÑ ß ¬«¼»¿½∩Γ«α«¼ Æπαí«-Åá߬á½∩, ¿ß»«½∞-
ºπεΘ¿¼  ¬«¼á¡ñ¡δÑ  ßΓ᫬¿ (ÆÉæ.àòà), Γ« óδ ¼«ªÑΓÑ «»αÑñѽ¿Γ∞
πß½«ó¡δÑ ß¿¼ó«½δ ó ßἫ⌐ ¬«¼á¡ñ¡«⌐ ßΓ᫬Ñ. ÆÉæ  ó«ß»α¿¡¿¼áÑΓ
»áαá¼ÑΓα /D, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ß»¿ß«¬ ß¿¼ó«½«ó, αáºñѽѡ¡δσ
Γ«τ¬«⌐ ß ºá»∩Γ«⌐:

     tpc myproc /Ddebug; test; dump

é φΓ«⌐ ßΓα«¬Ñ «»αÑñѽ∩εΓß∩ ß¿¼ó«½δ debug, test  ¿  dump  ñ½∩
»α«úαá¼¼δ  MYPROG.PAS. ÄΓ¼ÑΓ¿¼, τΓ« »áαá¼ÑΓα /D ∩ó½∩ÑΓß∩ ¬π-
¼π½∩Γ¿ó¡δ¼, »«φΓ«¼π ß½ÑñπεΘá∩ ¬«¼á¡ñ¡á∩ ßΓα«¬á  φ¬ó¿óá½Ñ¡Γ¡á
»αÑñδñπΘÑ⌐:

     tpc myprog /Ddebug /Dtest /Ddump

    Ä»αÑñѽѡ¿Ñ ó ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñÑ »α«úαá¼¼¿α«óá¡¿∩

     ôß½«ó¡δÑ ß¿¼ó«½δ ¼«ª¡« «»αÑñѽ¿Γ∞ ß »«¼«Θ∞ε  ¼Ñ¡ε  "Ä»-
µ¿¿/諼»¿½∩Γ«α/ôß½«ó¡δÑ  «»αÑñѽѡ¿∩"  (Ä/æ/æ«nditional  de-
fines). éδ ¼«ªÑΓÑ «»αÑñѽ¿Γ∞ ¡Ñ߬«½∞¬« ß¿¼ó«½«ó, »«¼ÑßΓ¿ó ¿σ
ó αἬπ óó«ñá ¿ αáºñѽ¿ó Γ«τ¬á¼¿ ß ºá»∩Γ묨. æ¿¡Γá¬ß¿ß ¿¼ÑÑΓ
Γᬫ⌐ ªÑ ó¿ñ, ¬á¬ ¿ ó ß½πτáÑ ¬«¼»¿½∩Γ«αá ß ¬«¼á¡ñ¡δ¼¿  ßΓα«-
¬á¼¿.

                     éßΓα«Ñ¡¡δÑ ß¿¼ó«½δ

     Å«¼¿¼« ß¿¼ó«½«ó, «»αÑñѽ∩Ѽδσ »«½∞º«óáΓѽѼ, ¼«ª¡« «ßπ-
ΘÑ-  ßΓó½∩Γ∞  »α«óÑα¬π ¡Ñ¬«Γ«αδσ ß¿¼ó«½«ó, «»αÑñѽѡ¡δσ Æπα-
í«-Åá߬á½Ñ¼ (»αÑñ«»αÑñѽѡ¡δσ ¿½¿  óßΓα«Ñ¡¡δσ  ß¿¼ó«½«ó).  é
Æáí½¿µÑ  6.2 »ÑαÑτ¿ß½Ñ¡δ φΓ¿ ß¿¼ó«½δ. çáΓѼ »α¿ó«ñ¿Γß∩ í«½ÑÑ
»«ñα«í¡«Ñ «»¿ßá¡¿Ñ ¬áªñ«ú« ¿º ¡¿σ.
                                                Æáí½¿µá 6.2
                  éßΓα«Ñ¡¡δÑ πß½«ó¡δÑ ß¿¼ó«½δ
------------------------------------------------------------
VER50    éßÑúñá «»αÑñѽѡ (ÆÉ 5.1 íπñÑΓ «»αÑñѽ∩Γ∞ VER51 ¿
         Γ.ñ.)
MSDOS    éßÑúñá «»αÑñѽѡ
CPU86    éßÑúñá «»αÑñѽѡ
CPU87    Ä»αÑñѽѡ, Ñß½¿ ¡á φΓá»Ñ ¬«¼»¿½∩µ¿¿ Σπ¡¬µ¿«¡¿απÑΓ
         »α«µÑßß«α 8087
------------------------------------------------------------

                        æ¿¼ó«½ VER50

     æ¿¼ó«½ VER40 óßÑúñá «»αÑñѽѡ (»« ¬αá⌐¡Ñ⌐ ¼ÑαÑ  ó  Æπα-
í«-Åá߬á½Ñ  óÑαß¿¿  5.0).  èáªñá∩  »«ß½ÑñπεΘá∩  óÑαß¿∩ íπñÑΓ
¿¼ÑΓ∞ ß««ΓóÑΓßΓóπεΘ¿⌐ óßΓα«Ñ¡¡δ⌐ ß¿¼ó«½. ìá»α¿¼Ñα, ó  óÑαß¿¿
5.1  íπñÑΓ «»αÑñѽѡ VER51, á ó óÑαß¿¿ 6.0 - VER60 ¿ Γᬠñá-
½ÑÑ. ¥Γ« »«ºó«½¿Γ ß«ºñáóáΓ∞ ¿ßσ«ñ¡δÑ  ¬«ñδ,  ¬«Γ«αδÑ  ß¼«úπΓ
¿ß»«½∞º«óáΓ∞ »«ß½ÑñπεΘ¿Ñ αáßΦ¿αÑ¡¿∩ ó ß½πτáÑ, Ñß½¿ »«ß½Ññ¡¿Ñ
ß«σαá¡∩Γ ß«ó¼ÑßΓ¿¼«ßΓ∞ ß óÑαß¿Ñ⌐ 5.0.

                   濼ó«½δ MSDOS ¿ CPU86

     ¥Γ¿ ß¿¼ó«½δ óßÑúñá «»αÑñѽѡδ (»« ¬αá⌐¡Ñ⌐ ¼ÑαÑ  ó  Æπα-
í«-Åá߬á½Ñ  óÑαß¿¿ 5.0, αáí«ΓáεΘѼ »«ñ «»Ñαᵿ«¡¡«⌐ ß¿ßΓѼ«⌐
äÄæ Σ¿α¼δ α«ß«ΣΓ). æ¿¼ó«½ îSDÄS π¬áºδóáÑΓ, τΓ« ¬«¼»¿½∩µ¿∩
«ßπΘÑßΓó½∩ÑΓß∩  »«ñ  π»αáó½Ñ¡¿Ñ¼  «»Ñαᵿ«¡¡«⌐  ß¿ßΓѼδ äÄæ.
æ¿¼ó«½ æÉU86  «º¡áτáÑΓ,  τΓ«  ¬«¼»¿½∩µ¿∩  «ßπΘÑßΓó½∩ÑΓß∩  ¡á
¬«¼»∞εΓÑαÑ, ¿ß»«½∞ºπεΘѼ »α«µÑßß«α iÇÉσ86 Σ¿α¼δ ê¡Γѽ (8088,
8086, 80186, 80286, 80386).
     ū߬«½∞¬π ó »«ß½ÑñπεΘѼ  ßΓá¡πΓ  ñ«ßΓπ»¡δ  óÑαß¿¿  Æπα-
í«-Åá߬á½∩  ñ½∩  ñαπú¿σ «»Ñαᵿ«¡¡δσ ß¿ßΓѼ ¿ »α«µÑßß«α«ó, ó
¡¿σ íπñπΓ »α¿ßπΓßΓó«óáΓ∞ á¡á½«ú¿τ¡δÑ  ß¿¼ó«½δ,  π¬áºδóáεΘ¿Ñ,
¬á¬á∩ «»Ñαᵿ«¡¡á∩ ß¿ßΓÑ¼á ¿/¿½¿ ¬á¬«⌐ »α«µÑßß«α ¿ß»«½∞ºπεΓ-
ß∩. êß»«½∞ºπ∩ φΓ¿ ß¿¼ó«½δ,  ¼«ª¡«  ß«ºñáóáΓ∞  «ñ¿¡  ¿ßσ«ñ¡δ⌐
¬«ñ,  ¬«¼»¿½¿απѼδ⌐  ß »«¼«Θ∞ε Æπαí«-Åá߬á½∩ ¡á αạδσ ¼áΦ¿-
¡áσ, »α¿ πß½«ó¿¿, τΓ« ¿ Γá¼ ¬«¼»¿½∩µ¿∩ óδ»«½¡∩ÑΓß∩  »«  ß½«-
óá¼.

                        æ¿¼ó«½ CPU87

     Æπαí«-Åá߬á½∞ óÑαß¿¿ 4.0 »«ññÑনóáÑΓ «»Ñαᵿ¿ ¡áñ τ¿ß-
½á¼¿  ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ñóπ¼∩ ß»«ß«íἿ: á»»áαáΓ¡« ¿ »α«ú-
αá¼¼¡«. àß½¿ ó óáΦѼ  ¬«¼»∞εΓÑαÑ  πßΓá¡«ó½Ñ¡  ¼áΓѼáΓ¿τÑ߬¿⌐
ß«»α«µÑßß«α  80σ87,  Γ« óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ Γ¿»δ ñá¡¡δσ ß
»½áóáΘÑ⌐ ºá»∩Γ«⌐ »« ßΓá¡ñáαΓπ Iààà (ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, ß
ñó«⌐¡«⌐  Γ«τ¡«ßΓ∞ε, ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε, ß½«ª¡«Ñ), ¿ Æπα-
í«-Åá߬á½∞ íπñÑΓ «ßπΘÑßΓó½∩Γ∞ »α∩¼δÑ ó맮óδ ¬ ¼áΓѼáΓ¿τÑ߬«-
¼π  »α«µÑßß«απ.  àß½¿ Γᬫú« »α«µÑßß«αá ó ß¿ßΓÑ¼Ñ ¡ÑΓ, Γ« óδ
¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ñá¡¡δσ ß »½áóáεΘÑ⌐  ºá-
»∩Γ«⌐  (αẼÑα«¼  ó 6 íá⌐Γ), ¿ Æπαí«-Åá߬á½∞ íπñÑΓ »«ññÑন-
óáΓ∞ óßÑ «»Ñαᵿ¿ ¡áñ ¡¿¼¿ ß »«¼«Θ∞ε »α«úαá¼¼. éδ  ¼«ªÑΓÑ  ß
»«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ $N π¬áºáΓ∞, τΓ« éδ íπñπΓÑ ¿ß»«½∞º«óáΓ∞.
     Åα¿ ºáúαπº¬Ñ ¬«¼»¿½∩Γ«αá  Æπαí«-Åá߬á½∩  «ßπΘÑßΓó½∩ÑΓß∩
»α«óÑα¬á  ¡á  ¡á½¿τ¿Ñ ¼¿¬α«ßσѼδ 80σ87. àß½¿ «¡á ¿¼ÑÑΓß∩, Γ«
ß¿¼ó«½ æÉU87 «»αÑñѽ∩ÑΓß∩. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡ ¡Ñ  «»αÑñÑ-
½∩ÑΓß∩. Å«φΓ«¼π ó ¡áτá½Ñ ßó«Ñ⌐ »α«úαá¼¼δ óδ ¼«ªÑΓÑ »«¼ÑßΓ¿Γ∞
ß½ÑñπεΘ¿⌐ ¬«ñ:

  {$IFDEF CPU87}  { àß½¿ 80σ87 ¿¼ÑÑΓß∩ }
  {$N+}           { Γ« ¿ß»«½∞ºπ⌐ΓÑ ó¡πΓαÑ¡¡¿⌐ ¬«ñ 8087 }
  {$ELSE}
  {$N-}          { é «íαáΓ¡«¼ ß½πτáÑ ¿ß»«½∞ºπ⌐ΓÑ φ¼π½¿απεΘπε
                   í¿í¿½¿«ΓѬπ }
  {$ENDIF}

éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ á¡á½«ú¿τ¡πε ßσѼπ ñ½∩ «»αÑñѽѡ¿∩ »Ñ-
αѼѡ¡δσ,  ¿½¿ ªÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó φΓ¿σ µÑ½∩σ  ñ¿αÑ¬Γ¿óπ
{$IFOPT N+}.

                濼ó«½δ IFσσσ, ELSE ¿ ENDIF

     êß»«½∞º«óá¡¿Ñ πß½«ó¡δσ ñ¿αÑ¬Γ¿ó ß«ßΓ«¿Γ ó Γ«¼, τΓ«  óδ-
í¿αáÑΓß∩  ¡Ñ¬«Γ«αá∩  τáßΓ∞ ¿ßσ«ñ¡«ú« ¬«ñá, ¬«Γ«αá∩ íπñÑΓ «Γ-
Γαá¡ß½¿α«óá¡á, Ñß½¿ ¡Ñ¬«Γ«αδ⌐ ß¿¼ó«½ «»αÑñѽѡ (¿½¿ ¡Ñ «»αÑ-
ñѽѡ)  ¿½¿ Ñß½¿ ¡Ñ¬«Γ«α«Ñ ßαÑñßΓó« ó¬½ετÑ¡« (¿½¿ ¡Ñ ó¬½ετÑ-
¡«). ÄíΘ¿⌐ Σ«α¼áΓ ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ó¿ñ:

     {$IFxxx}
       ¿ßσ«ñ¡δ⌐ ¬«ñ
     {$ENDIF}

úñÑ IFxxx ÑßΓ∞ ¿½¿ IFDEF, ¿½¿ IFNDEF, ¿½¿ IFOPT, ºá  ¬«Γ«αδ¼
ß½ÑñπÑΓ ß««ΓóÑΓßΓóπεΘ¿⌐ áαúπ¼Ñ¡Γ, á ¿ßσ«ñ¡δ⌐ ¬«ñ »αÑñßΓó½∩ÑΓ
ß«í«⌐ ¡Ñ¬«Γ«αδ⌐ ¬«ñ ¡á Æπαí«-Åá߬á½Ñ. àß½¿ óδαáªÑ¡¿Ñ  ó  ñ¿-
αÑ¬Γ¿óÑ IFxxx ¿¼ÑÑΓ º¡áτÑ¡¿Ñ True (¿ßΓ¿¡¡«), Γ« ¿ßσ«ñ¡δ⌐ ¬«ñ
¬«¼»¿½¿απÑΓß∩. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡ ¿ú¡«α¿απÑΓß∩, ¬á¬  Ñß½¿
íδ «¡ íδ½ ¬«¼¼Ñ¡Γáα¿Ñ¼ ó »α«úαá¼¼Ñ.
     ä«ó«½∞¡« τáßΓ« »α¿σ«ñ¿Γß∩  ¿ß»«½∞º«óáΓ∞  á½∞ΓÑα¡áΓ¿ó¡δÑ
τáßΓ¿  ¿ßσ«ñ¡«ú«  ¬«ñá.  àß½¿  óδαáªÑ¡¿Ñ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ True
(¿ßΓ¿¡¡«), Γ« ¬«¼»¿½¿απÑΓß∩ «ñ¡á τáßΓ∞ ¬«ñá, á Ñß½¿  óδαáªÑ-
¡¿Ñ  ¿¼ÑÑΓ º¡áτÑ¡¿Ñ False (½«ª¡«), - Γ« ¬«¼»¿½¿απÑΓß∩ ñαπúá∩
τáßΓ∞. Æπαí«-Åá߬á½∞ »«ºó«½∩ÑΓ φΓ« «ßπΘÑßΓó¿Γ∞ ß »«¼«Θ∞ε ñ¿-
αÑ¬Γ¿óδ $ELSE:

     {$IFxxx}
       ¿ßσ«ñ¡δ⌐ ¬«ñ Ç
     {$ELSE}
       ¿ßσ«ñ¡δ⌐ ¬«ñ é
     {$ENDIF}

     àß½¿ óδαáªÑ¡¿Ñ ó IFxxx ¿¼ÑÑΓ º¡áτÑ¡¿Ñ  True  (¿ßΓ¿¡¡«),
Γ«  ¬«¼»¿½¿απÑΓß∩ ¬«ñ Ç, ó «íαáΓ¡«¼ ß½πτáÑ ¬«¼»¿½¿απÑΓß∩ ¬«ñ
é.
     ÄΓ¼ÑΓ¿¼, τΓ« óßÑ ñ¿αÑ¬Γ¿óδ IFxxx ñ«½ª¡δ íδΓ∞  óδ»«½¡Ñ¡δ
ó¡πΓα¿  «ñ¡«ú«  ¿ Γ«ú« ªÑ ¿ßσ«ñ¡«ú« Σá⌐½á, τΓ« «º¡áτáÑΓ, τΓ«
«¡¿ ¡Ñ ¼«úπΓ ¿¼ÑΓ∞ ¡áτὫ ó «ñ¡«¼ ¿ßσ«ñ¡«¼ Σá⌐½Ñ, á ºáóÑαΦÑ-
¡¿Ñ  - ó ñαπú«¼. Äñ¡á¬«, ¼Ñªñπ ñ¿αÑ¬Γ¿óἿ IFxxx ¼«úπΓ ¡áσ«-
ñ¿Γ∞ß∩ Σá⌐½δ Γ¿»á include:

  {$IFxxx}
  {$I file1.pas}
  {$ELSE}
  {$I file2.pas}
  {$ENDIF}

     Æᬿ¼ «íαẫ¼, ¼«ª¡« óδí¿αáΓ∞ á½∞ΓÑα¡áΓ¿ó¡δÑ Σá⌐½δ Γ¿»á
include, «ßπΘÑßΓó½∩∩ »α«óÑα¬π ¡Ñ¬«Γ«α«ú« πß½«ó¿∩.
     è«¡ßΓαπ¬µ¿¿ IFxxx..ENDIF ¼«ª¡« ó¬½áñδóáΓ∞ ñαπú ó  ñαπúá
ñ« 16 πα«ó¡Ñ⌐, ¡á»α¿¼Ñα:

{$IFxxx}   {ÅÑαóá∩ ñ¿αÑ¬Γ¿óá IF}
...
{$IFxxx}   {éΓ«αá∩ ñ¿αÑ¬Γ¿óá IF}
...
{$ENDIF}   {çáóÑαΦÑ¡¿Ñ »Ñαó«⌐ ñ¿αÑ¬Γ¿óδ IF}
...
{$ENDIF}   {çáóÑαΦÑ¡¿Ñ óΓ«α«⌐ ñ¿αÑ¬Γ¿óδ IF}

      Éáßß¼«Γα¿¼ ¬áªñπε ¿º ñ¿αÑ¬Γ¿ó IFxxx í«½ÑÑ »«ñα«í¡«.

                    ä¿αÑ¬Γ¿óδ IFDEF ¿ IFNDEF

     ÆÑ»Ñα∞ óδ º¡áÑΓÑ, ¬á¬ «»αÑñѽ¿Γ∞ ß¿¼ó«½, ¿, ¬α«¼Ñ Γ«ú«,
º¡áÑΓÑ  «  ¡á½¿τ¿¿ ¡Ñ߬«½∞¬¿σ óßΓα«Ñ¡¡δσ ß¿¼ó«½«ó. ä¿αÑ¬Γ¿óδ
IFDàF ¿ IFNDàF »«ºó«½∩εΓ  «ßπΘÑßΓó½∩Γ∞  πß½«ó¡πε  ¬«¼»¿½∩µ¿ε
¬«ñá  ó  ºáó¿ß¿¼«ßΓ¿  «Γ Γ«ú«, «»αÑñѽѡδ φΓ¿ ß¿¼ó«½δ ¿½¿ ¡Ñ
«»αÑñѽѡδ. ¥Γ«Γ »α¿¼Ñα πªÑ óßΓαÑτá½ß∩ αá¡ÑÑ:

{$IFDEF CPU87}    { àß½¿ ¿¼ÑÑΓß∩ 80σ87 }
{$N+}             { Γ« ¿ß»«½∞ºπ⌐ΓÑ ó¡πΓαÑ¡¿¿⌐ ¬«ñ 8087}
{$ELSE}
{$N-}  { é «íαáΓ¡«¼ ß½πτáÑ ¿ß»«½∞ºπ⌐ΓÑ
         φ¼π½¿απεΘπε í¿í½¿«ΓѬπ }
{$ENDIF}

     éßΓáó¬á φΓ«ú« ¬«ñá ó »α«úαá¼¼π «º¡áτáÑΓ  áóΓ«¼áΓ¿τÑ߬«Ñ
ó¬½ετÑ¡¿Ñ  «»µ¿¿ $N »α¿ ¡á½¿τ¿¿ ¼áΓѼáΓ¿τÑ߬«ú« ß«»α«µÑßß«αá
8087 ó« óαѼ∩ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ. ÄΓ¼ÑΓ¿¼  ó᪡δ⌐  á߻ѬΓ:
$N  ∩ó½∩ÑΓß∩  ßαÑñßΓó«¼  φΓá»á  ¬«¼»¿½∩µ¿¿. àß½¿ ß«»α«µÑßß«α
8087 ¿¼ÑÑΓß∩ ó ¬«¼»∞εΓÑαÑ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿, Γ«  »α«úαá¼¼á
íπñÑΓ  «ΓΓαá¡ß½¿α«óá¡á »α¿ á¬Γ¿ó¿º¿α«óá¡¡«⌐ ñ¿αÑ¬Γ¿óÑ ¬«¼»¿-
½∩Γ«αá $N+ ¿½¿ ß««ΓóÑΓßΓóπεΘÑú« ßαÑñßΓóá ßαÑñδ  »α«úαá¼¼¿α«-
óá¡¿∩, τΓ« «º¡áτáÑΓ «ßπΘÑßΓó½Ñ¡¿Ñ »α∩¼δσ ó맮ó«ó ¬ ß«»α«µÑß-
ß«απ 8087 ¿ ¿ß»«½∞º«óá¡¿Ñ Γ«½∞¬« ΓÑσ Γ¿»«ó ñá¡¡δσ ß  »½áóáε-
ΘÑ⌐  ºá»∩Γ«⌐, ¬«Γ«αδÑ ß««ΓóÑΓßΓóπεΓ ßΓá¡ñáαΓπ IEEE. é «íαáΓ-
¡«¼ ß½πτáÑ (»α¿ «ΓßπΓßΓó¿¿ 8087) ¬«¼»¿½∩µ¿∩ »α«úαá¼¼δ ß  ñ¿-
αÑ¬Γ¿ó«⌐ $N ¿½¿ ß««ΓóÑΓßΓóπεΘ¿¼ ßαÑñßΓó«¼ ßαÑñδ »α«úαá¼¼¿α«-
óá¡¿∩ íπñÑΓ «º¡áτáΓ∞, τΓ« ¿ß»«½∞ºπÑΓß∩ »á¬ÑΓ »α«úαá¼¼  «íαá-
í«Γ¬¿  ñá¡¡δσ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ¿ ñ«»π߬áÑΓß∩ Γ«½∞¬« ßΓá¡-
ñáαΓ¡δ⌐ ñ½∩ Æπαí«-Åá߬á½∩ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ñá¡¡δσ ß  »½áóáε-
ΘÑ⌐  ºá»∩Γ«⌐ ñ½¿¡«⌐ ó 6 íá⌐Γ. àß½¿ »α«úαá¼¼á «ΓΓαá¡ß½¿α«óá¡á
¡á ¬«¼»∞εΓÑαÑ, ¿¼ÑεΘѼ ß«»α«µÑßß«α 8087, Γ« »«½πτÑ¡¡δ⌐ ó αÑ-
ºπ½∞ΓáΓÑ Σá⌐½ àòà ¡Ñ ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡ ¡á ¼áΦ¿¡Ñ, ¡Ñ ¿¼Ñε-
饩 8087.
     äαπú¿¼ αáß»α«ßΓαá¡Ñ¡¡δ¼ ß»«ß«í«¼ ¿ß»«½∞º«óá¡¿∩ ñ¿αÑ¬Γ¿ó
IFDEF  ¿  IFNDEF ∩ó½∩ÑΓß∩ «Γ½áñ¬á. ìá»α¿¼Ñα, ó ¡áτá½Ñ ¬áªñ«⌐
»α«µÑñπαδ óδ ¼«ªÑΓÑ »«¼ÑßΓ¿Γ∞ ß½ÑñπεΘ¿⌐ ¬«ñ:

{$IFDEF debug}

  Writeln('ÆÑ»Ñα∞ óóÑñ¿ΓÑ proc name');
  Readln; {»áπºá ñ« ΓÑσ »«α, »«¬á »«½∞º«óáΓѽ∞
           ¡Ñ ¡áª¼ÑΓ "Enter"}
{$ENDIF}

úñÑ proc name ∩ó½∩ÑΓß∩ ¿¼Ñ¡Ñ¼ »α«µÑñπαδ. àß½¿ ó ¡áτá½Ñ »α«ú-
αá¼¼δ »«¼ÑßΓ¿Γ∞ ß½ÑñπεΘπε ñ¿αÑ¬Γ¿óπ:

  {$DEFINE debug}

¿ «ΓΓαá¡ß½¿α«óáΓ∞ ÑÑ, Γ« ¬«¼»¿½∩Γ«α«¼  íπñÑΓ  úÑ¡Ñα¿α«óáΓ∞ß∩
»«½¡á∩  «Γ½áñ«τ¡á∩  ¿¡Σ«α¼áµ¿∩ (ñ½∩ »«ß½ÑñπεΘÑ⌐ αáí«Γδ ß ¿¡-
ΓÑúα¿α«óá¡¡δ⌐ «Γ½áñτ¿¬«¼ ¿½¿ Æπαí«-«Γ½áñτ¿¬«¼).  ǡὫú¿τ¡«,
óδ  ¼«ªÑΓÑ ºáñáΓ∞ ó¬½ετÑ¡¿Ñ ó ΓѬßΓ »α«úαá¼¼δ ¿ßσ«ñ¡«ú« ¬«ñá
Γ«½∞¬« ó ß½πτáÑ «Γ½áñ¬¿. Æ«úñá ß½ÑñπÑΓ ºá»¿ßáΓ∞:

     {$IFNDEF debug}
        ¿ßσ«ñ¡δ⌐ ¬«ñ
     {$ENDIF}

úñÑ ¿ßσ«ñ¡δ⌐ ¬«ñ ¬«¼»¿½¿απÑΓß∩ Γ«½∞¬« ó Γ«¼ ß½πτáÑ,  Ñß½¿  ó
φΓ«⌐ Γ«τ¬Ñ debug «»αÑñѽѡ.

                      ä¿αÑ¬Γ¿óá IFOPT

     ê¡«úñá íδóáÑΓ ¡Ñ«íσ«ñ¿¼« óßΓáó¿Γ∞ ¿½¿ ¿ß¬½ετ¿Γ∞  ¬«ñ  ó
ºáó¿ß¿¼«ßΓ¿  «Γ  Γ«ú«,  ¬á¬¿Ñ  ßαÑñßΓóá  ¬«¼»¿½∩Γ«αá óδíαá¡δ
(»α«óÑα¬á ñ¿á»áº«¡á, »α«óÑα¬á óó«ñá/óδó«ñá, «íαáí«Γ¬á  τ¿ßѽ
¿  Γᬠñá½ÑÑ). Æπαí«-Åá߬á½∞ »«ºó«½∩ÑΓ φΓ« ßñѽáΓ∞ ß »«¼«Θ∞ε
ñ¿αÑ¬Γ¿óδ IFOPT, ¬«Γ«αá∩ ¿¼ÑÑΓ ñóÑ Σ«α¼δ:

     {$IFOPT x+} ¿
     {$IFOPT x-}

úñÑ x «í«º¡áτáÑΓ «ñ¿¡ ¿º »áαá¼ÑΓα«ó ¬«¼»¿½∩Γ«αá: A, B, D, E,
F, I, L, N, O, R, S, T, V (í«½ÑÑ »«½¡«Ñ «»¿ßá¡¿Ñ ¼«ª¡« ¡á⌐Γ¿
ó Åα¿½«ªÑ¡¿¿ æ "æ»αáó«τ¡«ú«  απ¬«ó«ñßΓóá"). é ß½πτáÑ  »Ñαó«⌐
Σ«α¼δ  »«ß½ÑñπεΘ¿⌐ ¬«ñ Γαá¡ß½¿απÑΓß∩, Ñß½¿ »áαá¼ÑΓα ¬«¼»¿½∩-
Γ«αá ó ΓѬπΘ¿⌐ ¼«¼Ñ¡Γ á¬Γ¿ó¿º¿α«óá¡. é ß½πτáÑ  óΓ«α«⌐  Σ«α¼δ
¬«ñ Γαá¡ß½¿απÑΓß∩, Ñß½¿ ó ΓѬπΘ¿⌐ ¼«¼Ñ¡Γ »áαá¼ÑΓα ¡Ñ á¬Γ¿ó¿-
º¿α«óá¡. Å«φΓ«¼π ó ¬áτÑßΓóÑ »α¿¼Ñαá ¼«ª¡«  ºá»¿ßáΓ∞  ß½Ññπε-
ΘÑÑ:

var
  {$IFOPT N+}
    Radius,Circ,Area  : double;
  {$ELSE}
    Radius,Circ,Area  : real;
  {$ENDIF}

     é φΓ«¼ »α¿¼ÑαÑ óδí¿αáÑΓß∩ Γ¿» ñá¡¡δσ ñ½∩  »ÑαÑτ¿ß½Ñ¡¡δσ
»ÑαѼѡ¡δσ ¡á «ß¡«óÑ Γ«ú«, ¡Ñ«íσ«ñ¿¼á ¿½¿ ¡ÑΓ »«ññÑ᪬á ß«»-
α«µÑßß«αá 8087. àß½¿ φëà »α¿¼Ñα ߬«¼í¿¡¿α«óáΓ∞ ß αá¡ÑÑ π¬á-
ºá¡¡δ¼  »α¿¼Ñα«¼ ({$IFDEF CPU87}), Γ« ñ½∩ ¿ßσ«ñ¡«ú« ¬«ñá íπ-
ñÑΓ áóΓ«¼áΓ¿τÑ߬¿ óδí¿αáΓ∞ß∩ ¡áñ½ÑªáΘ¿⌐ »áαá¼ÑΓα ¬«¼»¿½∩Γ«αá
¿  Γ¿»δ  ñá¡¡δσ  ó  ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, ¿¼ÑÑΓß∩ ½¿ ó« óαѼ∩
¬«¼»¿½∩µ¿¿ ó ¬«¼»∞εΓÑαÑ ß«»α«µÑßß«α 8087 ¿½¿ ¡ÑΓ.
     Éáßß¼«Γα¿¼ á½∞ΓÑα¡áΓ¿ó¡δ⌐ »α¿¼Ñα:

Assign(F,Filename);
Reset(F);
{$IFOPT I-}
IOCheck;
{$ENDIF}

úñÑ IOCheck »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¡á»¿ßá¡¡πε »«½∞º«óáΓѽѼ »α«-
µÑñπαπ, ¬«Γ«αá∩ »«½πτáÑΓ º¡áτÑ¡¿Ñ IOResult ¿ »ÑτáΓáÑΓ ó ß½π-
τáÑ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. ìÑ ¿¼ÑÑΓ  ß¼δ᫠  ¿ß-
»«½∞º«óáΓ∞  IOCheck, Ñß½¿ π¬áºá¡ »áαá¼ÑΓα $I+, »«ß¬«½∞¬π »α¿
«í¡áαπªÑ¡¿¿ «Φ¿í¬¿ óδ»«½¡Ñ¡¿Ñ  »α«úαá¼¼δ  íπñÑΓ  «ßΓá¡«ó½Ñ¡«
»αѪñÑ, τѼ íπñÑΓ óδºóá¡á IOCheck.

                   Ä»Γ¿¼¿ºáµ¿∩ »α«úαá¼¼δ

     ìÑ߬«½∞¬« ßαÑñßΓó ¬«¼»¿½∩Γ«αá «¬áºδóáεΓ ó½¿∩¡¿Ñ ¡á αáº-
¼Ñα  ¿  ߬«α«ßΓ∞ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. ¥Γ« »α«¿ßσ«ñ¿Γ ó ß¿½π
Γ«ú«, τΓ« í½áú«ñáα∩ ¿¼ ó »α«úαá¼¼Ñ  «ßπΘÑßΓó½∩ÑΓß∩  »α«óÑα¬á
«Φ¿í«¬  ¿  «íαáí«Γ¬á «Φ¿í«¬. ¥Γ¿ ßαÑñßΓóá ½πτΦÑ ¿ß»«½∞º«óáΓ∞
»α¿ αáºαáí«Γ¬Ñ  »α«úαá¼¼δ,  «ñ¡á¬«  ó  «¬«¡τáΓѽ∞¡«⌐  óÑαß¿¿
»α«úαá¼¼δ  ¿¼ÑÑΓ  ß¼δß½  ¿σ  «Γ¬½ετ¿Γ∞.  ì¿ªÑ  »α¿óÑñÑ¡δ φΓ¿
ßαÑñßΓóá ¿ ΓÑ ¿σ πßΓá¡«ó¬¿, ¬«Γ«αδÑ ¿¼ÑεΓ º¡áτÑ¡¿Ñ ñ½∩ «»Γ¿-
¼¿ºáµ¿¿:

     - {$A-} αáºαÑΦáÑΓ ñ½∩ »ÑαѼѡ¡δσ  ¿  Γ¿»¿º«óá¡¡δσ  ¬«¡-
ßΓá¡Γ óδαáó¡¿óá¡¿Ñ ¡á úαá¡¿µπ ß½«óá.  ä½∩ »α«µÑßß«α«ó  80σ86
φΓ« »α¿ó«ñ¿Γ ¬ í«½ÑÑ íδßΓα«¼π ñ«ßΓπ»π ¬ »á¼∩Γ¿. Å« π¼«½τá¡¿ε
φΓá «»µ¿∩ πßΓá¡«ó½Ñ¡á.
     - {$B-} πßΓá¡áó½¿óáÑΓ óδτ¿ß½Ñ¡¿Ñ íπ½Ñó߬¿σ óδαáªÑ¡¿⌐ »«
¬«α«Γ- ¬«⌐ ßσѼÑ. é ºáó¿ß¿¼«ßΓ¿ «Γ πßΓá¡«ó½Ñ¡¡«ú« αѪ¿¼á óδ-
τ¿ß½Ñ¡¿∩ íπ½Ñó߬¿σ óδαáªÑ¡¿⌐ ¼«ª¡« »«½πτ¿Γ∞ ¬«ñ, ¬«Γ«αδ⌐ óδ-
»«½¡∩ÑΓß∩ íδßΓαÑÑ.
     - {$E-} πßΓá¡áó½¿óáÑΓ ó ºáó¿ß¿¼«ßΓ¿ «Γ º¡áτÑ¡¿∩  ñ¿αѬ-
Γ¿óδ {$N} ¿ß»«½∞º«óá¡¿Ñ á»»áαáΓ¡δσ ßαÑñßΓó  ñ½∩  ßΓá¡ñáαΓ¡δσ
6-íá⌐Γ«óδσ ñá¡¡δσ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á. Å« π¼á½τá¡¿ε ñ¿αÑ¬Γ¿óá
¿¼ÑÑΓ º¡áτÑ¡¿Ñ {E-}.
     - {$I-} ó䬽ετáÑΓ »α«óÑα¬π «Φ¿í«¬ óó«ñá/óδó«ñá.  éδºóáó
óßΓα«Ñ¡¡πε  Σπ¡¬µ¿ε IOResult, »α«úαá¼¼á ¼«ªÑΓ ßá¼á «íαáíáΓδ-
óáΓ∞ «Φ¿í¬¿ óó«ñá/óδó«ñá.
     - {$N-} úÑ¡Ñα¿απΓ ñ½∩ «»Ñαᵿ⌐ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ¬«ñ,
¿ß»«½∞ºπεΘ¿⌐ ß«»α«µÑßß«α 8087. àß½¿ φΓá ñ¿αÑ¬Γ¿óá ó䬽ετÑ¡á,
Γ« óßÑ «»Ñαᵿ¿ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ íπñπΓ óδ»«½¡∩Γ∞ß∩ ß  ¿ß-
»«½∞º«ó᡿Ѽ  »α«úαá¼¼¡«⌐  φ¼π½¿απεΘÑ⌐  í¿í½¿«ΓѬ¿,  ¬«Γ«αá∩
ß½πª¿Γ ñ½∩ αáí«Γδ ß« óßΓα«Ñ¡¡δ¼ 6-íá⌐Γ«óδ¼ Γ¿»«¼  óÑΘÑßΓóÑ¡-
¡δσ τ¿ßѽ. àß½¿ φΓá ñ¿αÑ¬Γ¿óá πßΓá¡«ó½Ñ¡á, Γ« íπñπΓ  ¿ß»«½∞-
º«óáΓ∞ß∩ ß««ΓóÑΓßΓóπεΘ¿Ñ  á»»áαáΓ¡δÑ  ßαÑñßΓóá  (ß«»α«µÑßß«α
8087. Åα¿ ºáñá¡¿¿ ñ¿αÑ¬Γ¿óδ {$N+} ñ¿αÑ¬Γ¿óá {$E} ¿ú¡«α¿απÑΓ-
ß∩.
     - {$R-} ó䬽ετáÑΓ  »α«óÑα¬π  ñ¿á»áº«¡á.  Åα¿  úÑ¡Ñαᵿ¿
¬«ñá ¡Ñ «ßπΘÑßΓó½∩ÑΓß∩ »α«óÑα¬á «Φ¿í«¬ ó ¿¡ñѬ߿α«óá¡¿¿ ¼áß-
ß¿ó«ó ¿ ó »α¿ßó«Ñ¡¿¿ º¡áτÑ¡¿⌐.
     - {$S-} ó䬽ετáÑΓ »α«óÑα¬π ßΓѬá. Åα¿ úÑ¡Ñαᵿ¿ ¬«ñá ¡Ñ
«ßπΘÑßΓó½∩ÑΓß∩  »α«óÑα¬á ¡á½¿τ¿∩ ñ«ßΓáΓ«τ¡«ú« »α«ßΓαá¡ßΓóá ó
ßΓÑ¬Ñ ñ½∩ ¬áªñ«ú« ó맮óá »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿.
     - {$V-} «Γ¼Ñ¡∩ÑΓ »α«óÑα¬π »áαá¼ÑΓα«ó var ñ½∩ ßΓ᫬. ¥Γ«
»«ºó«½∩ÑΓ »ÑαÑñáóáΓ∞ ó ¬áτÑßΓóÑ Σá¬Γ¿τÑ߬¿σ »áαá¼ÑΓα«ó ßΓα«-
¬¿, ñ½¿¡á ¬«Γ«αδσ «Γ½¿τ¡á «Γ ñ½¿¡δ, πßΓá¡«ó½Ñ¡¡«⌐  ñ½∩  Σ«α-
¼á½∞¡«ú« »áαá¼ÑΓαá var.

     ÄΓ¬½ετÑ¡¿Ñ ¬áªñ«ú« ¿σ φΓ¿σ ßαÑñßΓó  ¿¼ÑÑΓ  ñóá  »αÑ¿¼π-
ΘÑßΓóá.  é«-»Ñαóδσ,  ¬á¬  »αá󿽫, φΓ« »α¿ó«ñ¿Γ ¬ π¼Ñ¡∞ΦÑ¡¿ε
αẼÑαá ¬«ñá ¿ ¬ í«½ÑÑ íδßΓα«¼π Ñú«  óδ»«½¡Ñ¡¿ε.  é«-óΓ«αδσ,
φΓ«  »«ºó«½∩ÑΓ  ¿ºíáó¿Γ∞ß∩ «Γ Γ«ú«, τΓ« »α¿ «íδτ¡δσ πß½«ó¿∩σ
¡Ñ½∞º∩ πßΓαá¡¿Γ∞. Äñ¡á¬« φΓ« «º¡áτáÑΓ «»αÑñѽѡ¡δ⌐ α¿ß¬, »«-
φΓ«¼π φΓ¿ 󫺼«ª¡«ßΓ¿ ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ ß «ßë᫪¡«ßΓ∞ε ¿
»α¿ ¡Ñ»«¡∩Γ¡«¼ »«óÑñÑ¡¿¿ »α«úαá¼¼δ  ß½ÑñπÑΓ  ó¡«ó∞  ó¬½ετ¿Γ∞
π¬áºá¡¡δÑ ßαÑñßΓóá.
     ÄΓ¼ÑΓ¿¼, τΓ« »«¼¿¼« óßΓáó¬¿ ßαÑñßΓó ¬«¼»¿½∩Γ«αá  ¡Ñ»«ß-
αÑñßΓóÑ¡¡« ó ¿ßσ«ñ¡δ⌐ ¬«ñ éδ ¼«ªÑΓÑ Γá¬ªÑ πßΓá¡áó½¿óáΓ∞ ¿σ ß
»«¼«Θ∞ε ¼Ñ¡ε "Ä»µ¿¿/諼»¿½∩Γ«α" (Options/Compiler) ó  ¿¡ΓÑú-
α¿α«óá¡¡«⌐  ¿¡ΓÑαá¬Γ¿ó¡«⌐  ßαÑñÑ  »α«úαá¼¼¿α«óá¡¿∩ ¿½¿ ß »«-
¼«Θ∞ε »áαá¼ÑΓαá /$X ó ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ  ¬«¼»¿½∩Γ«αá  (úñÑ  ò
»αÑñßΓó½∩ÑΓ ß«í«⌐ ß««ΓóÑΓßΓóπεΘπε íπ¬óπ ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«-
αá).