For Beginners & Professional Hackers

home *** CD-ROM | disk | FTP | other *** search

/ For Beginners & Professional Hackers / cd.iso / docum / tp6userg.doc / ug05 < prev next >

Wrap

Text File | 1991-02-05 | 88.9 KB | 1,788 lines

â ï Ç é Ç 5. ÄÆïÇäèÇ ÅÉÄâÉÇîî ÅÄï£çÄéÇÆàïƒ é TURBO PASCAL. Turbo Pascal »αÑñ½áúáÑΓ ßóÑασπß«óÑαΦÑ¡ßΓó«óá¡¡πε ßαÑñπ, ß áóΓ«¼áΓ¿τÑß¬¿¼ π»αáó½Ñ¡¿Ñ¼ »α«Ñ¬Γ«¼, ¼«ñπ½∞¡«⌐ «αúá¡¿ºáµ¿Ñ⌐ »α«úαá¼¼, óδß«¬«⌐ ß¬«α«ßΓ∞ε ¬«¼»¿½∩µ¿¿, ß ½Ñú¬« ¿ß»«½∞ºπÑ¼δ¼¿ «óÑα½Ñ∩¼¿. ì« ñáªÑ ¿ß»«½∞ºπ∩ óßÑ φΓ¿ »αÑñ«ßΓáó½Ñ¡¡δÑ ßαÑñßΓóá, »α«úαá¼¼δ »«½∞º«óáΓÑ½∩ ¼«úπΓ ß«ñÑαªáΓ∞ «Φ¿í¬¿, ¬«Γ«αδÑ »α¿ó«ñ∩Γ ¬ ¡Ñ»αáó¿½∞¡«⌐ αáí«ΓÑ »α«úαá¼¼δ. é »«¼«Θ∞ »«½∞º«óáΓÑ½ε Turbo Pascal »αÑñ«ßΓáó½∩ÑΓ ßαÑñßΓóá, ¡Ñ«íσ«ñ¿¼δÑ ñ½∩ «Γ½áñ¬¿ Ñú« »α«úαá¼¼δ, ß»«ß«íßΓóπεΘ¿Ñ πßΓαá¡Ñ¡¿ε óßÑσ «Φ¿í«¬ ó »α«úαá¼¼Ñ, ÑÑ ΓΘáΓÑ½∞¡«¼π ΓÑßΓ¿α«óá¡¿ε ¿ óδ»«½¡Ñ¡¿ε. Turbo Pascal »«ºó«½∩ÑΓ ½Ñú¬« «»αÑñÑ½∩Γ∞ ¼ÑßΓ«»«½«ªÑ¡¿Ñ «Φ¿í«¬ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿ ¿ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ, á Γá¬ªÑ »«ºó«½∩ÑΓ ó¬½ετáΓ∞ ¿½¿ óδ¬½ετáΓ∞ áóΓ«¼áΓ¿τÑß¬¿⌐ ¬«¡Γα«½∞ «Φ¿í«¬ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. Äß«íÑ¡¡« óáª¡« Γ«, τΓ« Turbo Pascal ¿¼ÑÑΓ ¼«Θ¡δ⌐ ¿ ú¿í¬¿⌐ «Γ½áñτ¿¬ ¿ßσ«ñ¡«ú« πα«ó¡∩, ¬«Γ«αδ⌐ »«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε óδ»«½¡∩Γ∞ »α«úαá¼¼π »«ßΓα«τ¡«, »α«ß¼áΓα¿óáΓ∞ óδαáªÑ¡¿∩ ¿ ¼«ñ¿Σ¿µ¿α«óáΓ∞ »ÑαÑ¼Ñ¡¡δÑ »« ¼ÑαÑ ¡Ñ«íσ«ñ¿¼«ßΓ¿. ÄΓ½áñτ¿¬ óßΓα«Ñ¡ ó ¿¡ΓÑúα¿α«óá¡¡πε ßαÑñπ αáºαáí«Γ¬¿ (IDE) Turbo Pascal; »«½∞º«óáΓÑ½∞ ¼«ªÑΓ αÑñá¬Γ¿α«óáΓ∞, ¬«¼»¿½¿α«óáΓ∞ ¿ «Γ½áª¿óáΓ∞ »α«úαá¼¼π ñáªÑ ¡Ñ óδσ«ñ∩ ¿º Turbo Pascal. ä½∩ í«½∞Φ¿σ ¿½¿ ß½«ª¡δσ »α«úαá¼¼, ¬«Γ«αδÑ ΓαÑíπεΓ ¿ß»«½∞º«óá¡¿∩ óßÑú« ñ¿á»áº«¡á ßαÑñßΓó «Γ½áñ¬¿ «Γ ¼áΦ¿¡¡«ú« ∩ºδ¬á ñ« óδτ¿ß½Ñ¡¿∩ óδαáªÑ¡¿⌐ Åáß¬á½∩, Turbo Pascal »«½¡«ßΓ∞ε »«ññÑαª¿óáÑΓ áóΓ«¡«¼¡δ⌐ «Γ½áñτ¿¬ Σ¿α¼δ Borland, Turbo Debugger. Æ¿»δ «Φ¿í«¬. æπΘÑßΓóπÑΓ Γα¿ «ß¡«ó¡δσ Γ¿»á »α«úαá¼¼¡δσ «Φ¿í«¬: «Φ¿í¬¿ óαÑ¼Ñ¡¿ ¬«¼»¿½∩µ¿¿, «Φ¿í¬¿ óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩ ¿ ½«ú¿τÑß¬¿Ñ «Φ¿í¬¿. ÄΦ¿í¬¿ ¬«¼»¿½∩µ¿¿. ÄΦ¿í¬¿ ¬«¼»¿½∩µ¿¿ ¿½¿ ß¿¡Γá¬ß¿τÑß¬¿Ñ «Φ¿í¬¿ óßΓαÑτáεΓß∩, ¬«úñá ºáíδóáεΓ «íΩ∩ó¿Γ∞ »ÑαÑ¼Ñ¡¡πε, »ÑαÑñáεΓ «Φ¿í«τ¡«Ñ ¬«½¿τÑßΓó« »áαá¼ÑΓα«ó »α«µÑñπαδ, »α¿ ¡áº¡áτÑ¡¿¿ ñÑ⌐ßΓó¿ΓÑ½∞¡«ú« º¡áτÑ¡¿∩ µÑ½«τ¿ß½Ñ¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐. ¥Γ« «º¡áτáÑΓ, τΓ« ºá»¿ßδóáεΓß∩ «»ÑαáΓ«αδ, ¬«Γ«αδÑ ¡Ñ ß«ú½áßπεΓß∩ ß »αáó¿½á¼¿ Åáß¬á½∩. Turbo Pascal ¡Ñ ºá¬«¡τ¿Γ »α«µÑßß ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ »«½∞º«óáΓÑ½∩ (úÑ¡Ñαáµ¿ε ¼áΦ¿¡¡«ú« ¬«ñá), »«¬á óßÑ ß¿¡Γá¬ß¿τÑß¬¿Ñ «Φ¿í¬¿ ¡Ñ íπñπΓ πñá½Ñ¡δ. àß½¿ Turbo Pascal «í¡áαπª¿Γ ß¿¡Γá¬ß¿τÑß¬πε «Φ¿í¬π ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ, «¡ «ßΓá¡áó½¿óáÑΓ ¬«¼»¿½∩µ¿ε, óσ«ñ¿Γ ó ¿ßσ«ñ¡δ⌐ ΓÑ¬ßΓ, π¬áºδóáÑΓ ¼ÑßΓ«»«½«ªÑ¡¿Ñ «Φ¿í¬¿ »«º¿µ¿«¡¿α«óá¡¿Ñ¼ ¬παß«αá ¿ óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ó «¬¡« Edit. èá¬ Γ«½∞¬« »«½∞º«óáΓÑ½∞ ¿ß»αáó¿Γ «Φ¿í¬π, «¡ ß¼«ªÑΓ ¡áτáΓ∞ »α«µÑßß ¬«¼»¿½∩µ¿¿ ß¡«óá. àß½¿ ¿ß»«½∞ºπÑΓß∩ óÑαß¿∩ ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ (TPC.EXE), Turbo Pascal íπñÑΓ óδó«ñ¿Γ∞ «Φ¿í«τ¡δ⌐ «»ÑαáΓ«α, ¡«¼Ñα ßΓα«¬¿ ¿ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. çáΓÑ¼ »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ó«⌐Γ¿ ó ½εí«⌐ ¿ß»«½∞ºπÑ¼δ⌐ ¿¼ αÑñá¬Γ«α, ¡á⌐Γ¿ ºáñá¡¡πε ßΓα«¬π, ¿ß»αáó¿Γ∞ «Φ¿í¬π ¿ »ÑαÑ¬«¼»¿½¿α«óáΓ∞ »α«úαá¼¼π. ä½∩ ñ«»«½¡¿ΓÑ½∞¡«⌐ ¿¡Σ«α¼áµ¿¿ « ß««íΘÑ¡¿∩σ «í «Φ¿í¬áσ ß¼. Åα¿½«ªÑ¡¿Ñ Ç ó Éπ¬«ó«ñßΓóÑ »α«úαá¼¼¿ßΓá. ÄΦ¿í¬¿ óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩. äαπú«⌐ Γ¿» «Φ¿í«¬ - «Φ¿í¬¿ óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ ¿½¿ ßÑ¼á¡Γ¿τÑß¬¿Ñ «Φ¿í¬¿. Ä¡¿ óßΓαÑτáεΓß∩, ¬«úñá »«½∞º«óáΓÑ½∞ ¬«¼»¿½¿απÑΓ ß¿¡Γá¬ß¿τÑß¬¿ ¬«ααÑ¬Γ¡πε »α«úαá¼¼π, ¬«Γ«αá∩ »δΓáÑΓß∩ ßñÑ½áΓ∞ τΓ«-¡¿íπñ∞ ºá»αÑΘÑ¡¡«Ñ ó« óαÑ¼∩ ÑÑ óδ»«½¡Ñ¡¿∩, ¡á»α¿¼Ñα, «Γ¬αδóáÑΓ ¡ÑßπΘÑßΓóπεΘ¿⌐ Σá⌐½ ñ½∩ óó«ñá ¿½¿ »α«¿ºó«ñ¿Γ ñÑ½Ñ¡¿Ñ ¡á 0. é φΓ«¼ ß½πτáÑ Turbo Pascal óδó«ñ¿Γ ¡á φ¬αá¡ ß½ÑñπεΘÑÑ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ: Runtime error ## at seg:ofs (ÄΦ¿í¬á óδ»«½¡Ñ¡¿∩ # ó ßÑú¼Ñ¡ΓÑ:ß¼ÑΘÑ¡¿Ñ) ¿ «ßΓá¡áó½¿óáÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ »«½∞º«óáΓÑ½∩. Åα¿ ¿ß»«½∞º«óá¡¿¿ ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñδ Turbo Pascal «»αÑñÑ½∩ÑΓ ¼ÑßΓ«»«½«ªÑ¡¿Ñ «Φ¿í¬¿ óδ»«½¡Ñ¡¿∩ áóΓ«¼áΓ¿τÑß¬¿, «ßπΘÑßΓó½∩∩ »ÑαÑσ«ñ ó «¬¡« αÑñá¬Γ¿α«óá¡¿∩ ñ½∩ ß««ΓóÑΓßΓóπεΘÑú« ¿ßσ«ñ¡δ⌐ Σá⌐½. àß½¿ »«½∞º«óáΓÑ½∞ óδ»«½¡∩ÑΓ »α«úαá¼¼π ó ßαÑñÑ MS-DOS, «¡ íπñÑΓ ó«ºóαáΘáΓ∞ß∩ ó MS-DOS. Å«½∞º«óáΓÑ½∞ ¼«ªÑΓ ºáúαπº¿Γ∞ ¼«ñπ½∞ TURBO.EXE ¿ ¿ß»«½∞º«óáΓ∞ «»µ¿¿ Search/Find error ñ½∩ ½«¬á½¿ºáµ¿¿ »«º¿µ¿¿ «Φ¿í¬¿ ó ¿ßσ«ñ¡«⌐ »α«úαá¼¼Ñ (πíÑñ¿ΓÑß∞, τΓ« «»µ¿∩ Destination πßΓá¡«ó½Ñ¡á ó Disk). ä½∩ «í¡áαπªÑ¡¿∩ «Φ¿í¬¿ »«½∞º«óáΓÑ½∞ ¼«ªÑΓ Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ ¿ «»µ¿ε /F ñ½∩ ¬«¼»¿½∩Γ«αá ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ (TPC.EXE). (ü«½ÑÑ »«½¡«Ñ «íΩ∩ß¡Ñ¡¿Ñ «»µ¿⌐ ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ TPC.EXE »α¿óÑñÑ¡« ó ú½áóÑ 9 "è«¼»¿½∩Γ«α ¬«¼á¡ñ¡«⌐ ßΓα«¬¿".) ï«ú¿τÑß¬¿Ñ «Φ¿í¬¿. Åα«úαá¼¼á »«½∞º«óáΓÑ½∩ ¼«ªÑΓ ß«ñÑαªáΓ∞ ¿ ½«ú¿τÑß¬¿Ñ «Φ¿í¬¿. ¥Γ« «º¡áτáÑΓ, τΓ« »α«úαá¼¼á ñÑ½áÑΓ Γ«, τΓ« Ñ⌐ π¬áºá½¿ ó¼ÑßΓ« Γ«ú«, τΓ« σ«ΓÑ½«ß∞ íδ. î«ªÑΓ «ΓßπΓßΓó«óáΓ∞ ¿¡¿µ¿á½¿ºáµ¿∩ »ÑαÑ¼Ñ¡¡«⌐; ¼«úπΓ «¬áºáΓ∞ß∩ «Φ¿í«τ¡δ¼¿ óδτ¿ß½Ñ¡¿∩; α¿ßπ¡¬¿, ¿º«íαáªÑ¡¡δÑ ¡á φ¬αá¡Ñ, óδú½∩ñ∩Γ ¡Ñ»αáó¿½∞¡«; »α«úαá¼¼á ¼«ªÑΓ »α«ßΓ« αáí«ΓáΓ∞ ¡Ñ Γá¬, ¬á¬ íδ½« ºáñπ¼á¡«. Æá¬¿Ñ «Φ¿í¬¿ ¡áσ«ñ∩Γß∩ ß í«½∞Φ¿¼ Γαπñ«¼, ¿ ¿¡ΓÑúα¿α«óá¡¡δ⌐ «Γ½áñτ¿¬ »«¼«ªÑΓ óá¼ ó φΓ«¼ ß½πτáÑ ¡á¿½πτΦ¿¼ «íαáº«¼. ê¡ΓÑúα¿α«óá¡¡δ⌐ «Γ½áñτ¿¬ Turbo Pascal. ìÑ¬«Γ«αδÑ «Φ¿í¬¿ óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩ (½«ú¿τÑß¬¿Ñ «Φ¿í¬¿) ¡Ñºá¼ÑΓ¡δ ¿ Γαπñ¡δ ñ½∩ »α«ß½Ñª¿óá¡¿∩. äαπú¿Ñ «Φ¿í¬¿ ¼«úπΓ ß¬αδóáΓ∞ß∩ ºá ¡Ñπ½«ó¿¼δ¼ óºá¿¼«ñÑ⌐ßΓó¿Ñ¼ αáºñÑ½«ó í«½∞Φ«⌐ »α«úαá¼¼δ. é φΓ¿σ ß½πτá∩σ ¡Ñ«íσ«ñ¿¼« ¿¡ΓÑαá¬Γ¿ó¡«Ñ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ, ó« óαÑ¼∩ ¬«Γ«α«ú« »α«¿ºó«ñ¿Γß∩ ¡áí½εñÑ¡¿Ñ ºá º¡áτÑ¡¿∩¼¿ «»αÑñÑ½Ñ¡¡δσ »ÑαÑ¼Ñ¡¡δσ ¿½¿ óδαáªÑ¡¿⌐. éá¼ σ«ΓÑ½«ß∞ íδ, τΓ«íδ éáΦá »α«úαá¼¼á «ßΓá¡áó½¿óá½áß∞ »α¿ ñ«ßΓ¿ªÑ¡¿¿ «»αÑñÑ½Ñ¡¡«ú« ¼ÑßΓá Γá¬, τΓ«íδ »α«ß¼«ΓαÑΓ∞, ¬á¬ «¡á »α«αáí«Γá½á φΓ«Γ ¬πß«¬. éá¼ σ«ΓÑ½«ß∞ íδ «ßΓá¡«ó¿Γ∞ß∩ ¿ ¿º¼Ñ¡¿Γ∞ º¡áτÑ¡¿∩ ¡Ñ¬«Γ«αδσ »ÑαÑ¼Ñ¡¡δσ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ, ¿º¼Ñ¡¿Γ∞ «»αÑñÑ½Ñ¡¡δ⌐ αÑª¿¼ ¿½¿ »α«ß½Ññ¿Γ∞ ºá αÑá¬µ¿Ñ⌐ »α«úαá¼¼δ. ê óá¼ σ«ΓÑ½«ß∞ íδ ßñÑ½áΓ∞ φΓ« ó αÑª¿¼Ñ, ¬«úñá ó«º¼«ª¡« íδßΓα«Ñ αÑñá¬Γ¿α«óá¡¿Ñ, »ÑαÑ¬«¼»¿½¿α«óá¡¿Ñ ¿ »«óΓ«α¡«Ñ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ. ê¡ΓÑúα¿α«óá¡¡δ⌐ «Γ½áñτ¿¬ Turbo Pascal ¿¼ÑÑΓ óßÑ «»¿ßá¡¡δÑ óδΦÑ ó«º¼«ª¡«ßΓ¿ ¿ ñáªÑ í«½ÑÑ Γ«ú«. Ä¡ »αÑñßΓáó½∩ÑΓ ß«í«⌐ óßΓα«Ñ¡¡πε τáßΓ∞ ¿¡ΓÑúα¿α«óá¡¡«⌐ πß«óÑαΦÑ¡ßΓó«óá¡¡«⌐ ßαÑñδ Turbo Pascal (IDE): ñ½∩ ¿ß»«½∞º«óá¡¿∩ »αÑñ½áúáεΓß∩ ñóÑ «ß¡«ó¡δÑ Σπ¡¬µ¿¿ ¼Ñ¡ε (Run, Debug), á Γá¬ªÑ ¡Ñ¬«Γ«αδÑ ¬½áó¿Φ¿ ñ½∩ ¬«¼á¡ñ «Γ½áñτ¿¬á. ä½∩ ñ«»«½¡¿ΓÑ½∞¡«⌐ ¿¡Σ«α¼áµ¿¿ «í IDE ú«α∩τ¿σ ¬½áó¿Φáσ ß¼. ú½áóπ 7 "æ»αáó«τ¡¿¬ »« IDE" ¿½¿ ß»αáó«τ¡πε ¿¡Σ«α¼áµ¿ε « Turbo Pascal. ùΓ« ¼«ªÑΓ ñÑ½áΓ∞ «Γ½áñτ¿¬. ê¡ΓÑúα¿α«óá¡¡δ⌐ «Γ½áñτ¿¬ αáí«ΓáÑΓ «τÑ¡∞ »α«ßΓ«. à¼π ¡Ñ ΓαÑíπεΓß∩ ß»Ñµ¿á½∞¡δÑ ¿¡ßΓαπ¬µ¿¿ ó éáΦÑ¼ ¬«ñÑ, «¡ ¡Ñ πóÑ½¿τ¿óáÑΓ αáº¼Ñα éáΦÑú« .EXE Σá⌐½á ¿ ¡Ñ ΓαÑíπÑΓ »ÑαÑ¬«¼»¿½∩µ¿¿ ñ½∩ ß«ºñá¡¿∩ «ΓñÑ½∞¡«ú« .EXE Σá⌐½á »«ß½Ñ «¬«¡τá¡¿∩ «Γ½áñ¬¿. àß½¿ éáΦá »α«úαá¼¼á αáºñÑ½Ñ¡á ¡á α∩ñ ¼«ñπ½Ñ⌐, ¿ßσ«ñ¡δ⌐ ¬«ñ ¬áªñ«ú« ¿º ¡¿σ áóΓ«¼áΓ¿τÑß¬¿ ºáúαπªáÑΓß∩ ó αÑñá¬Γ«α »α¿ Γαáßß¿α«ó¬Ñ. àß½¿ éδ ¿ß»«½∞ºπÑΓÑ «óÑα½Ñ¿, «Γ½áñτ¿¬ áóΓ«¼áΓ¿τÑß¬¿ «íαáíáΓδóáÑΓ ¿σ ó¡πΓα¿ IDE, ¬«Γ«αá∩ óδ»«½¡∩ÑΓ »ÑαÑ¬½ετÑ¡¿∩ ¼Ñªñπ ¬«¼»¿½∩Γ«α«¼, αÑñá¬Γ«α«¼ ¿ «Γ½áñτ¿¬«¼. Äíº«α ó«º¼«ª¡«ßΓÑ⌐ «Γ½áñτ¿¬á: Æαáßß¿α«ó¬á. F7 Run/Trace Into éδ ¼«ªÑΓÑ óδ»«½¡¿Γ∞ «ñ¡π ßΓα«¬π óáΦÑ⌐ »α«úαá¼¼δ, ºáΓÑ¼ »αÑαóáΓ∞ß∩ ¿ »«ß¼«ΓαÑΓ∞ ¡á αÑºπ½∞ΓáΓδ. Åα¿ óδº«óÑ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ó¡πΓα¿ óáΦÑ⌐ »α«úαá¼¼δ, éδ ¼«ªÑΓÑ ºáñáΓ∞ αÑª¿¼ óδ»«½¡Ñ¡¿∩ óδº«óá ¬á¬ «ñ¡«ú« Φáúá ¿½¿ αÑª¿¼ Γαáßß¿α«ó¬¿ φΓ«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ßΓα«¬á ºá ßΓα«¬«⌐. éδ ¼«ªÑΓÑ Γá¬ ªÑ Γαáßß¿α«óáΓ∞ óδó«ñ éáΦÑ⌐ »α«úαá¼¼δ ßΓα«¬á ºá ßΓα«¬«⌐. éδ ¼«ªÑΓÑ Γá¬ ªÑ πßΓá¡«ó¿Γ∞, τΓ«íδ φ¬αá¡ »ÑαÑ¬½ετá½ß∩ »« ¡Ñ«íσ«ñ¿¼«ßΓ¿ ¿½¿ ¿ß»«½∞º«óáΓ∞ ñóá ¼«¡¿Γ«αá. éδ ¼«ªÑΓÑ Γá¬ ªÑ πßΓá¡«ó¿Γ∞ φ¬αá¡ óδó«ñá ó «ΓñÑ½∞¡«¼ «¬¡Ñ. ÅÑαÑσ«ñ ¡á ¬παß«α. F4 Run/Go to æursor éδ ¼«ªÑΓÑ »ÑαÑñó¿¡πΓ∞ ¬παß«α ¡á «»αÑñÑ½Ñ¡¡πε ßΓα«¬π ó éáΦÑ⌐ »α«úαá¼¼Ñ, á ºáΓÑ¼ π¬áºáΓ∞ «Γ½áñτ¿¬π óδ»«½¡¿Γ∞ »α«úαá¼¼π ñ« ñ«ßΓ¿ªÑ¡¿∩ φΓ«⌐ ßΓα«¬¿. ¥Γ« »«ºó«½∩ÑΓ «íσ«ñ¿Γ∞ µ¿¬½δ ¿½¿ ñαπú¿Ñ πΓ«¼¿ΓÑ½∞¡δÑ πτáßΓ¬¿ »α«úαá¼¼δ, φΓ« Γá¬ªÑ »«ºó«½∩ÑΓ »ÑαÑí¿αáΓ∞ß∩ ó Γ« ¼ÑßΓ« »α«úαá¼¼δ, «Γ¬πñá éδ σ«Γ¿ΓÑ ¡áτáΓ∞ «Γ½áñ¬π. ÅαÑαδóá¡¿Ñ. æ »«¼«Θ∞ε ¬«¼á¡ñδ Debug/Breakpoints éδ ¼«ªÑΓÑ »«¼ÑΓ¿Γ∞ ßΓα«¬¿ ó éáΦÑ⌐ »α«úαá¼¼Ñ ¬á¬ Γ«τ¬¿ »αÑαδóá¡¿∩. è«úñá ó »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ éáΦÑ⌐ »α«úαá¼¼δ ñ«ßΓ¿úáÑΓß∩ Γ«τ¬á »αÑαδóá¡¿∩, óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ »α¿«ßΓá¡áó½¿óáÑΓß∩ ¿ «Γ«íαáªáÑΓß∩ ¿ßσ«ñ¡δ⌐ ΓÑ¬ßΓ ¿ ¬παß«α «ßΓá¡áó½¿óáÑΓß∩ ¡á ßΓα«¬Ñ ß Γ«τ¬«⌐ »αÑαδóá¡¿∩. çáΓÑ¼ éδ ¼«ªÑΓÑ »α«óÑα¿Γ∞ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ, ¡áτáΓ∞ Γαáßß¿α«ó¬π ¿½¿ óδ»«½¡¿Γ∞ »α«úαá¼¼π ñ« ñαπú«⌐ Γ«τ¬¿ »αÑαδóá¡¿∩. éδ ¼«ªÑΓÑ »«ñ¬½ετ¿Γ∞ πß½«ó¿Ñ ¬ Γ«τ¬Ñ »αÑαδóá¡¿∩. éδ ¼«ªÑΓÑ Γá¬ªÑ »αÑαóáΓ∞ß∩ ó ½εí«⌐ Γ«τ¬Ñ éáΦÑ⌐ »α«úαá¼¼δ, ¡áªáó ¬½áó¿Φπ Ctrl-Break. Åα«¿º«⌐ñÑΓ «ßΓá¡«ó¬á ¡á ß½ÑñπεΘÑ⌐ ßΓα«¬Ñ ¿ßσ«ñ¡«⌐ »α«úαá¼¼δ, ¬á¬ Ñß½¿ íδ ó φΓ«⌐ ßΓα«¬Ñ íδ½á πßΓá¡«ó½Ñ¡á Γ«τ¬á »αÑαδóá¡¿∩. ìáí½εñÑ¡¿Ñ. Debug/Watches Å«½∞º«óáΓÑ½∞ ¿¼ÑÑΓ ó«º¼«ª¡«ßΓ∞ ºáñáóáΓ∞ ñ½∩ »α«ß¼«Γαá ó «¬¡Ñ Watch ¡Ñ¬«Γ«αδÑ «íΩÑ¬Γδ (»ÑαÑ¼Ñ¡¡δÑ, ßΓαπ¬Γπαδ ñá¡¡δσ, óδαáªÑ¡¿∩). Åα«ß¼áΓα¿óáÑ¼δÑ ñá¡¡δÑ ¼Ñ¡∩εΓß∩, «Γαáªá∩ ΓÑ¬πΘ¿Ñ ¿º¼Ñ¡Ñ¡¿∩ ó »α«úαá¼¼Ñ »α¿ »«Φáú«ó«¼ óδ»«½¡Ñ¡¿¿. éδτ¿ß½Ñ¡¿Ñ/¼«ñ¿Σ¿¬áµ¿∩. Ctrl-F4 Debug/Evaluate/Modify Å«½∞º«óáΓÑ½∞ ¼«ªÑΓ óδºóáΓ∞ «¬¡« Evaluate, τΓ« »α«óÑα¿Γ∞ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ, ßΓαπ¬Γπαπ ñá¡¡δσ ¿ óδαáªÑ¡¿∩ ó ¿¡ΓÑαá¬Γ¿ó¡«¼ αÑª¿¼Ñ. êß»«½∞ºπ∩ «¬¡« Evaluate, éδ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ º¡áτÑ¡¿Ñ ½εí«⌐ »ÑαÑ¼Ñ¡¡«⌐, ó¬½ετá∩ ßΓα«¬¿, π¬áºáΓÑ½¿, φ½Ñ¼Ñ¡Γδ ¼áßß¿óá ¿ »«½∩ ºá»¿ßÑ⌐. ¥Γ« «íÑß»Ñτ¿óáÑΓ »α«ßΓ«⌐ ¼Ñσá¡¿º¼ ñ½∩ »α«óÑα¬¿, ¬á¬ éáΦ ¬«ñ αÑáú¿απÑΓ ¡á «»αÑñÑ½Ñ¡¡πε πßΓá¡«ó¬π º¡áτÑ¡¿⌐ ¿½¿ πß½«ó¿⌐. Å«¿ß¬. Å«½∞º«óáΓÑ½∞ ¼«ªÑΓ íδßΓα« ¡áσ«ñ¿Γ∞ «íΩ∩ó½Ñ¡¿∩ »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐, ñáªÑ Ñß½¿ »α«úαá¼¼á αáºí¿Γá ¡á ¡Ñß¬«½∞¬« ¼«ñπ½Ñ⌐ (Search/Find Érocedure). é« óαÑ¼∩ Γαáßß¿α«ó¬¿ éδ ¼«ªÑΓÑ íδßΓα« óÑα¡πΓ∞ß∩ «íαáΓ¡« ¿º óδº«ó«ó »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐ ¿ »α«óÑα¿Γ∞ »áαá¼ÑΓαδ ¬áªñ«ú« óδº«óá (Window/Call Stack). Å«ñú«Γ«ó¬á ¬ ¿ß»«½∞º«óá¡¿ε «Γ½áñτ¿¬á. ä« ¡áτá½á «Γ½áñ¬¿ éδ ñ«½ª¡δ »«¡¿¼áΓ∞, τΓ« «ß¡«ó¡δ¼ φ½Ñ¼Ñ¡Γ«¼ óδ»«½¡Ñ¡¿∩ ó «Γ½áñτ¿¬Ñ ∩ó½∩ÑΓß∩ ßΓα«¬á, á ¡Ñ «»ÑαáΓ«α. ü«½ÑÑ Γ«τ¡« ¡á¿¼Ñ¡∞Φ¿¼ φ½Ñ¼Ñ¡Γ«¼ óδ»«½¡Ñ¡¿∩ ∩ó½∩ÑΓß∩ ßΓα«¬á. àß½¿ ¡á «ñ¡«⌐ ßΓα«¬Ñ ¡áσ«ñ¿Γß∩ ¡Ñß¬«½∞¬« «»ÑαáΓ«α«ó, «¡¿ íπñπΓ óδ»«½¡∩Γ∞ß∩ ó¼ÑßΓÑ »α¿ ¡áªáΓ¿¿ F7. æ ñαπú«⌐ ßΓ«α«¡δ, Ñß½¿ «ñ¿¡ «»ÑαáΓ«α αáº¼ÑΘÑ¡ ¡á ¡Ñß¬«½∞¬¿σ ßΓα«¬áσ, Γ« »α¿ ¡áªáΓ¿¿ F7 íπñÑΓ óδ»«½¡∩Γ∞ß∩ óÑß∞ «»ÑαáΓ«α. éßÑ ¬«¼á¡ñδ óδ»«½¡Ñ¡¿∩ «ß¡«óδóáεΓß∩ ¡á ßΓα«¬áσ, ó¬½ετá∩ »«Φáú«óπε «Γ½áñ¬π ¿ Γ«τ¬¿ »αÑαδóá¡¿∩; ßΓα«¬á, ¡á ¬«Γ«α«⌐ ¡áσ«ñ¿Γß∩ óδ»«½¡Ñ¡¿Ñ, óßÑúñá «Γ¼ÑτÑ¡á ¬παß«α«¼ óδ»«½¡Ñ¡¿∩. ÅαÑªñÑ, τÑ¼ ¡áτáΓ∞ «Γ½áñ¬π »α«úαá¼¼δ, éδ ñ«½ª¡δ ºáñáΓ∞ ñ½∩ ¬«¼»¿½∩Γ«αá Turbo Pascal ¿¡ßΓαπ¬µ¿ε »« úÑ¡Ñαáµ¿¿ Γáí½¿µδ ß¿¼ó«½«ó ¿ Γáí½¿µδ ¡«¼Ñα«ó ßΓα«¬ φΓ«⌐ »α«úαá¼¼δ. Æáí½¿µá ß¿¼ó«½«ó »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¡Ñí«½∞Φπε íáºπ ñá¡¡δσ ß« óßÑ¼¿ ¿ß»«½∞ºπÑ¼δ¼¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá¼¿ - ¬«¡ßΓá¡Γá¼¿, Γ¿»á¼¿, »ÑαÑ¼Ñ¡¡δ¼¿, »α«µÑñπαá¼¿ ¿ ¿¡Σ«α¼áµ¿Ñ⌐ « ¡«¼Ñαáσ ßΓα«¬. ä¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $D+ ¿ $L+ ñÑ½áεΓ φΓ« »« π¼«½τá¡¿ε; «¡¿ ß««ΓóÑΓßΓóπεΓ φ½Ñ¼Ñ¡Γá¼ ¼Ñ¡ε Options/Compiler/Debug Information ¿ Options/Compiler/Local Symbols. Æá¬ ªÑ »« π¼«½τá¡¿ε πßΓá¡«ó½Ñ¡á «»µ¿∩ Options/Debugger/Integrated, ¬«Γ«αá∩ úÑ¡Ñα¿απÑΓ «Γ½áñ«τ¡πε ¿¡Σ«α¼áµ¿ε ó óδ»«½¡¿¼«¼ Σá⌐½Ñ. ä¿αÑ¬Γ¿óá {$D+} úÑ¡Ñα¿απÑΓ Γáí½¿µπ ¡«¼Ñα«ó ßΓα«¬, ¬«Γ«αá∩ πßΓá¡áó½¿óáÑΓ ß««ΓóÑΓßΓó¿Ñ ¼Ñªñπ «íΩÑ¬Γ¡δ¼ ¬«ñ«¼ ¿ ¿ßσ«ñ¡δ¼ ¼«ñπ½Ñ¼. ä¿αÑ¬Γ¿óá {$L+} úÑ¡Ñα¿απÑΓ ½«¬á½∞¡πε «Γ½áñ«τ¡πε ¿¡Σ«α¼áµ¿ε, á ¿¼Ñ¡¡«, ßΓα«¿Γ ß»¿ß«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó, ½«¬á½∞¡δσ ñ½∩ ¬áªñ«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ñ½∩ Γ«ú«, τΓ«íδ «Γ½áñτ¿¬ ¼«ú σαá¡¿Γ∞ ¿¡Σ«α¼áµ¿ε « ¡¿σ ó »α«µÑßßÑ «Γ½áñ¬¿. è«úñá éδ ¿ß»«½∞ºπÑΓÑ ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá, αáºñÑ½∩⌐ΓÑ ¿σ ºá»∩Γδ¼¿ ¿ íÑº »α«íÑ½«ó, ¿ ßΓáó∩ $ Γ«½∞¬« »ÑαÑñ »Ñαó«⌐ ñ¿αÑ¬Γ¿ó«⌐; ¡á»α¿¼Ñα {$D+,L+}. Åα¿¼Ñτá¡¿Ñ: éδ ¼«ªÑΓÑ «Γ¬½ετ¿Γ∞ φΓ¿ »ÑαÑ¬½ετáΓÑ½¿ ñ½∩ ß«σαá¡Ñ¡¿∩ »á¼∩Γ¿ ¿½¿ ñ¿ß¬«ó«ú« »α«ßΓαá¡ßΓóá ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿. è«úñá éδ óδ»«½¡∩ÑΓÑ »«Φáú«óπε «Γ½áñ¬π, Turbo Pascal íπñÑΓ ¿¡«úñá »ÑαÑ¬½ετáΓ∞ß∩ ¡á φ¬αá¡ »«½∞º«óáΓÑ½∩, óδ»«½¡∩Γ∞ éáΦ ¬«ñ, á ºáΓÑ¼ ó«ºóαáΘáΓ∞ß∩ ó ¿¡ΓÑúα¿α«óá¡¡πε ßαÑñπ, «ª¿ñá∩ ß½ÑñπεΘÑ⌐ ¬«¼á¡ñδ. éδ ¼«ªÑΓÑ π»αáó½∩Γ∞ »ÑαÑ¬½ετÑ¡¿Ñ¼ φ¬αá¡á ß »«¼«Θ∞ε πßΓá¡«ó«¬ Options/Debugger/Display Swapping, ¬«Γ«αδÑ ¼«úπΓ »α¿¡¿¼áΓ∞ 3 º¡áτÑ¡¿∩: - Smart: ¥Γ« αÑª¿¼ »« π¼«½τá¡¿ε. æαÑñá IDE »ÑαÑ¬½ετáÑΓß∩ ¡á φ¬αá¡ »«½∞º«óáΓÑ½∩, ¬«úñá »α«úαá¼¼á «íαáΘáÑΓß∩ ¬ ó¿ñÑ«»á¼∩Γ¿ ¿½¿ »α¿ óδº«óÑ »α«úαá¼¼δ. - Always: ÅÑαÑ¬½ετÑ¡¿Ñ ¡á φ¬αá¡ »«½∞º«óáΓÑ½∩ »α«¿ßσ«ñ¿Γ ¡á ¬áªñ«¼ ΦáúÑ. - None: ÅÑαÑ¬½ετÑ¡¿Ñ φ¬αá¡«ó ¡Ñ »α«¿ßσ«ñ¿Γ. ê¡ΓÑúα¿α«óá¡¡á∩ ßαÑñá «ßΓáÑΓß∩ ó¿ñ¿¼«⌐ óßÑ óαÑ¼∩. àß½¿ ó »α«úαá¼¼Ñ »αÑñπß¼áΓα¿óáÑΓß∩ óδó«ñ ¡á φ¬αá¡ ¿½¿ ΓαÑíπÑΓß∩ óó«ñ ¿¡Σ«α¼áµ¿¿, ΓÑ¬ßΓ íπñÑΓ »¿ßáΓ∞ß∩ ¡á φ¬αá¡Ñ ßαÑñδ. éδ ¼«ªÑΓÑ ó«ßßΓá¡«ó¿Γ∞ «¬¡á ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñδ, óδí¿αá∩ ≡/Refresh Display. ìáτá½« ßÑá¡ßá «Γ½áñ¬¿. ìá¿í«½ÑÑ íδßΓαδ⌐ ß»«ß«í ¡áτáΓ∞ «Γ½áñ¬π ß«ßΓ«¿Γ ó ºáúαπº¬Ñ »α«úαá¼¼δ ¿ óδí«αÑ ¬«¼á¡ñδ Run/Trace Into (F7). Åα«úαá¼¼á íπñÑΓ ¬«¼»¿½¿α«óáΓ∞ß∩. è«úñá ¬«¼»¿½∩µ¿∩ ºáóÑαΦ¿Γß∩, αÑñá¬Γ«α «Γ«íαáº¿Γ ¡á ñ¿ß»½Ñ⌐ ΓÑ½« «ß¡«ó¡«⌐ »α«úαá¼¼δ ß ¿¡ñ¿¬áµ¿Ñ⌐ ßΓα«¬¿ óδ»«½¡Ñ¡¿∩ ¡á »Ñαó«¼ «»ÑαáΓ«αÑ begin. Å«½∞º«óáΓÑ½∞ ¼«ªÑΓ ¡áτáΓ∞ Γαáßß¿α«ó¬π »α«úαá¼¼δ ß φΓ«ú« ¼ÑßΓá (¡áªáΓ∞ ¬½áó¿Φ¿ F7 ¿½¿ F8) ¿½¿ ¿ß»«½∞º«óáΓ∞ ñαπú¿Ñ ¼ÑΓ«ñδ ¬«Γ«αδÑ »α¿óÑñÑ¡δ ¡¿ªÑ. àß½¿ »«½∞º«óáΓÑ½ε ¡Ñ«íσ«ñ¿¼« ¡áτáΓ∞ «Γ½áñ¬π ß «»αÑñÑ½Ñ¡¡«ú« ¼ÑßΓá »α«úαá¼¼δ, «¡ ¼«ªÑΓ óδ»«½¡¿Γ∞ »α«úαá¼¼π ñ« φΓ«ú« ¼ÑßΓá, á ºáΓÑ¼ «ßΓá¡«ó¿Γ∞ß∩. ä½∩ φΓ«ú«, ºáúαπº¿ΓÑ ¡πª¡δ⌐ αáºñÑ½ ¿ßσ«ñ¡«ú« ¼«ñπ½∩ ó αÑñá¬Γ«α ¿ »ÑαÑñó¿¡∞ΓÑ ¬παß«α ¡á ßΓα«¬π, úñÑ éδ ªÑ½áÑΓÑ «ßΓá¡«ó¿Γ∞ß∩. çáΓÑ¼ ¼«ª¡« »«ßΓπ»¿Γ∞ ñóπ¼∩ ß»«ß«íá¼¿: - éδíαáΓ∞ ¬«¼á¡ñπ Run/Goto Cursor (¿½¿ ¡áªáΓ∞ ¬½áó¿Φπ F4), ¬«Γ«αá∩ íπñÑΓ óδ»«½¡∩Γ∞ »α«úαá¼¼π »«½∞º«óáΓÑ½∩ ñ« ñ«ßΓ¿ªÑ¡¿∩ ßΓα«¬¿, »«¼ÑτÑ¡¡«⌐ ¬παß«α«¼, á ºáΓÑ¼ «ßΓá¡áó¿Γ∞ αáí«Γπ »α«úαá¼¼δ. - çáñáΓ∞ ¡á π¬áºá¡¡«⌐ ßΓα«¬Ñ Γ«τ¬π »αÑαδóá¡¿∩ (óδíαáΓ∞ ¬«¼á¡ñπ Debug/Toggle Breakpoint ¿½¿ ¡áªáΓ∞ ¡á Ctrl-F8), ºáΓÑ¼ óδ»«½¡¿Γ∞ »α«úαá¼¼π (óδ»«½¡¿Γ∞ ¬«¼á¡ñπ Run/Run ¿½¿ ¡áªáΓ∞ Ctrl-F9); «ßΓá¡«ó¬á íπñÑΓ »α«¿ßσ«ñ¿Γ∞ ¬áªñδ⌐ αáº »α¿ ñ«ßΓ¿ªÑ¡¿¿ ºáñá¡¡«⌐ ßΓα«¬¿. éδ ¼«ªÑΓÑ ºáñáΓ∞ ¡Ñß¬«½∞¬« Γ«τÑ¬ »αÑαδóá¡¿∩, ó φΓ«¼ ß½πτáÑ »α«úαá¼¼á íπñÑΓ ñÑ½áΓ∞ «ßΓá¡«ó¬π óß∩¬¿⌐ αáº »α¿ ñ«ßΓ¿ªÑ¡¿¿ ¬á¬«⌐-½¿í« ¿º φΓ¿σ Γ«τÑ¬. ÉÑßΓáαΓ ßÑá¡ßá «Γ½áñ¬¿. àß½¿ ó »α«µÑßßÑ «Γ½áñ¬¿ »α«úαá¼¼δ ó«º¡¿¬áÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¡áτáΓ∞ óßÑ ß¡áτá½á, Γ« ¡πª¡« óδ»«½¡¿Γ∞ ¬«¼á¡ñπ Program Reset ¿º ¼Ñ¡ε Run. æ¿ßΓÑ¼á «Γ½áñ¬¿ »«óΓ«α¡« ¿¡¿µ¿á½¿º¿απÑΓß∩, ¿ ¬«¼á¡ñá ß½ÑñπεΘÑú« Φáúá óÑα¡ÑΓ óáß ¬ »Ñαó«⌐ ßΓα«¬Ñ ú½áó¡«⌐ »α«úαá¼¼δ. Åα¿ φΓ«¼ »α«¿ºó«ñ¿Γß∩ ºá¬αδΓ¿Ñ óßÑσ Σá⌐½«ó, ¬«Γ«αδÑ íδ½¿ «Γ¬αδΓδ »α«úαá¼¼«⌐, «τ¿ßΓ¬á ßΓÑ¬á óßÑσ ó½«ªÑ¡¡δσ »α«úαá¼¼, ¬«Γ«αδÑ óδºδóá½¿ß∞ »α«úαá¼¼«⌐, ¿ «ßó«í«ªñÑ¡¿Ñ óßÑú« ¿ß»«½∞º«óá¡¡«ú« »α«ßΓαá¡ßΓóá ¬πτ¿. ÅÑαÑ¼Ñ¡¡δÑ »α«úαá¼¼δ, «ñ¡á¬«, ¡Ñ íπñπΓ »«óΓ«α¡« ¿¡¿µ¿á½¿º¿α«óá¡δ ¿½¿ »«ñóÑαªÑ¡δ ¼«ñ¿Σ¿¬áµ¿¿ ¬á¬«ú«-¡¿íπñ∞ ñαπú«ú« ó¿ñá. (Turbo Pascal ¡¿¬«úñá ¡Ñ ¿¡¿µ¿á½¿º¿απÑΓ »ÑαÑ¼Ñ¡¡δÑ áóΓ«¼áΓ¿τÑß¬¿). Äñ¡á¬«, ¡áτá½∞¡δÑ º¡áτÑ¡¿∩ Γ¿»¿α«óá¡¡δσ ¬«¡ßΓá¡Γ »α«úαá¼¼δ íπñπΓ ó«ßßΓá¡«ó½Ñ¡δ. Turbo Pascal Γá¬ªÑ »αÑñ½áúáÑΓ αÑßΓáαΓ, Ñß½¿ éδ »α«¿ºó«ñ¿ΓÑ ¬á¬¿Ñ-½¿í« ¿º¼Ñ¡Ñ¡¿∩ ó »α«úαá¼¼Ñ ó« óαÑ¼∩ «Γ½áñ¬¿. ìá»α¿¼Ñα, Ñß½¿ éδ ¿º¼Ñ¡∩ÑΓÑ τáßΓ∞ »α«úαá¼¼δ, á ºáΓÑ¼ óδí¿αáÑΓÑ ½εíπε ¬«¼á¡ñπ óδ»«½¡Ñ¡¿∩ (¡áª¿¼áÑΓÑ ¬½áó¿Φ¿ F7, F8, F4, Ctrl-F9 ¿ Γ.ñ.), éδ »«½πτ¿ΓÑ ß««íΘÑ¡¿Ñ : Source modified, rebuild? (Y/N) (¿ßσ«ñ¡δ⌐ ¼«ñπ½∞ ¼«ñ¿Σ¿µ¿α«óá¡, ¡πª¡« »«óΓ«α¿Γ∞ ßí«α¬π? ñá/¡ÑΓ ). àß½¿ éδ «ΓóÑτáÑΓÑ Y, Turbo Pascal íπñÑΓ »ÑαÑ¬«¼»¿½¿α«óáΓ∞ »α«úαá¼¼π ¿ ó«º«í¡«ó¿Γ «Γ½áñ¬π »α«úαá¼¼δ ß ¡áτá½á. àß½¿ éδ «ΓóÑΓ¿ΓÑ N, Turbo Pascal »αÑñ»«½áúáÑΓ, τΓ« éδ πóÑαÑ¡δ ó ßó«¿σ ñÑ⌐ßΓó¿∩σ, ¿ »α«ñ«½ªáÑΓ ßÑá¡ß «Γ½áñ¬¿ ñá½∞ΦÑ. (ïεíδÑ ¿º¼Ñ¡Ñ¡¿∩ ó »α«úαá¼¼Ñ, ¬«Γ«αδÑ éδ »α«¿ºóÑ½¿, ¡Ñ íπñπΓ ó½¿∩Γ∞ ¡á ÑÑ óδ»«½¡Ñ¡¿Ñ ñ« ΓÑσ »«α, »«¬á éδ ¡Ñ »ÑαÑ¬«¼»¿½¿απÑΓÑ »α«úαá¼¼π). àß½¿ éδ ñ«íáó¿½¿ ¿½¿ πñá½¿½¿ ßΓα«¬¿ »α«úαá¼¼δ, ¬παß«α óδ»«½¡Ñ¡¿∩ ¡Ñ αÑáú¿απÑΓ ¡á φΓ¿ ¿º¼Ñ¡Ñ¡¿∩, ¿ ¼«ªÑΓ «¬áºáΓ∞ß∩, τΓ« íπñÑΓ óδñÑ½∩Γ∞ß∩ «Φ¿í«τ¡á∩ ßΓα«¬á. Ä¬«¡τá¡¿Ñ ßÑá¡ßá «Γ½áñ¬¿. é »α«µÑßßÑ «Γ½áñ¬¿ »α«úαá¼¼δ Turbo Pascal σαá¡¿Γ Γαáßßπ Γ«ú«, τΓ« éδ ñÑ½áÑΓÑ ¿ úñÑ ¡áσ«ñ¿ΓÑß∞ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ. Æá¬ ¬á¬ »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ó »α«µÑßßÑ «Γ½áñ¬¿ ºáúαπªáΓ∞ ¿ ñáªÑ αÑñá¬Γ¿α«óáΓ∞ αáº½¿τ¡δÑ Σá⌐½δ, Turbo Pascal ¡Ñ ¿¡ΓÑα»αÑΓ¿απÑΓ ºáúαπº¬π ñαπú«ú« Σá⌐½á ó αÑñá¬Γ«α, ¬á¬ ¬«¡Ñµ ßÑá¡ßá «Γ½áñ¬¿. Å«φΓ«¼π, Ñß½¿ óδ ªÑ½áÑΓÑ óδ»«½¡¿Γ∞ ¿½¿ «Γ½áñ¿Γ∞ ñαπúπε »α«úαá¼¼π, ¡πª¡« óδ»«½¡¿Γ∞ ¬«¼á¡ñπ Run/Program Reset (¬½áó¿Φá Ctrl -F2). Æαáßß¿α«ó¬á éáΦÑ⌐ »α«úαá¼¼δ. Åα«ßΓÑ⌐Φá∩ ΓÑσ¡¿¬á «Γ½áñ¬¿ - φΓ« »«Φáú«óá∩ «Γ½áñ¬á, ¬«Γ«αá∩ Γαáßß¿απÑΓ ó¡πΓα¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. çáúαπº¿ΓÑ »α«úαá¼¼π RANGE.PAS ó Turbo Pascal. {$D+,L+} {ä½∩ Γ«ú«, τΓ«íδ «íÑß»Ñτ¿Γ∞ »«½¡πε úÑ¡Ñαáµ¿ε «Γ½áñ«τ¡«⌐ ¿¡Σ«α¼áµ¿¿} {$R-} {ä½∩ Γ«ú«, τΓ«íδ «Γ¬½ετ¿Γ∞ »α«óÑα¬π ñ¿á»áº«¡á} program RangeTest; var List:array [1..10] of integer; Indx:integer; begin for Indx:=1 to 10 do List[Indx]:=Indx; Indx:=0; while (Indx<11) do begin Indx:=Indx+1; if List[Indx]>0 then List[Indx]:=-List[Indx] end; for Indx:=1 to 10 do writeln(List[Indx]); end. ìáτ¡¿ΓÑ «Γ½áñ¬π, ¡áªáó ¬½áó¿Φπ F7. ¥Γ« »«Φáú«óá∩ ¬«¼á¡ñá. Turbo Pascal »α«¿ºóÑñÑΓ ¬«¼»¿½∩µ¿ε áóΓ«¼áΓ¿τÑß¬¿, á ºáΓÑ¼ »«ñú«Γ«ó¿Γß∩ ¬ »«Φáú«ó«⌐ «íαáí«Γ¬Ñ φΓ«⌐ »α«úαá¼¼δ. çá¼ÑΓ¿¼, τΓ« ¬παß«α óδ»«½¡Ñ¡¿∩ αáß»«½«ªÑ¡ ¡á «»ÑαáΓ«αÑ begin (ßΓα«¬á 7). Å«¼¡¿ΓÑ, τΓ« ¬παß«α óδ»«½¡Ñ¡¿∩ »«¼ÑτáÑΓ ß½ÑñπεΘπε ßΓα«¬π »α«úαá¼¼δ, ¬«Γ«αá∩ ñ«½ª¡á íδΓ∞ óδ»«½¡Ñ¡á. ìáª¼¿ΓÑ ¬½áó¿Φπ F7 ¡Ñß¬«½∞¬« αáº. èπαß«α óδ»«½¡Ñ¡¿∩ »ÑαÑ¼ÑßΓ¿Γß∩ ¡á «»ÑαáΓ«α List[Indx]:=Indx ¿ «ßΓá¡«ó¿Γß∩. ¥Γ« º¡áτ¿Γ, τΓ« ßΓα«¬á óδ»«½¡∩ÑΓß∩ ó µ¿¬½Ñ. éδíÑα¿ΓÑ ¬«¼á¡ñπ Debug/Watches/Add Watch (Ctrl-F7) ñ½∩ »α«ß¼«Γαá ó «¬¡Ñ Add Watch. éδ ¼«ªÑΓÑ »α«ß¼áΓα¿óáΓ∞ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ, ßΓαπ¬Γπα ñá¡¡δσ ¿½¿ óδαáªÑ¡¿⌐ ó «¬¡Ñ Watch. Æ«, τΓ« »«∩ó¿Γß∩ ó «¬¡Ñ Add Watch ºáó¿ß¿Γ «Γ Γ«ú«, úñÑ αáß»«½áúáÑΓß∩ ¬παß«α, ¬«úñá éδ ¡áª¿¼áÑΓÑ ¡á ¬½áó¿Φπ Ctrl-F7. àß½¿ ¬παß«α αáß»«½«ªÑ¡ ¡á »Ñαó«⌐ íπ¬óÑ ½εí«⌐ á½Σáó¿Γ¡«-µ¿Σα«ó«⌐ ßΓα«¬¿, ó¡πΓα¿ ßΓα«¬¿ ¿½¿ ßαáºπ ºá ¡Ñ⌐, ßΓα«¬á íπñÑΓ ¬«»¿α«óáΓ∞ß∩ ó «¬¡« Add Watch ¿ »«ñßóÑτ¿óáΓ∞ß∩. Æá¬, Ñß½¿ ¬παß«α íδ½ ß»«º¿µ¿«¡¿α«óá¡ ¡á ß½«óÑ Indx, Γ« Indx »«∩ó¿Γß∩ ó «¬¡Ñ. àß½¿ ó «¬¡Ñ ¡Ñ«íσ«ñ¿¼« τΓ«-½¿í« ¿º¼Ñ¡¿Γ∞, ¡áτ¡¿ΓÑ ¡áí«α ¡á ¬½áó¿áΓπαÑ ¿ »Ñαó«¡áτá½∞¡«Ñ óδαáªÑ¡¿Ñ ¿ »«ñßóÑΓ¬á ¿ßτÑº¡πΓ. èá¬ Γ«½∞¬« »«∩ó¿Γß∩ «¬¡« Add Watch, ¡Ñºáó¿ß¿¼« «Γ Ñú« ß«ñÑαª¿¼«ú«, ¼«ª¡« ñ«íáó¿Γ∞ ó ¡Ñú« ΓÑ¬ßΓ, Ñß½¿ ¡áªáΓ∞ ¬½áó¿Φπ ÷ (¬«Γ«αá∩ ¬«»¿απÑΓ ñ«»«½¡¿ΓÑ½∞¡δ⌐ ΓÑ¬ßΓ ¿º αÑñá¬Γ«αá). Å«¼ÑßΓ¿ΓÑ List ó «¬¡«, ¿ß»«½∞ºπ∩ ÷, ¿ ¡áª¼¿ΓÑ Enter. Æ«úñá ó «¬¡Ñ Watch ó ¡¿ª¡Ñ⌐ τáßΓ¿ φ¬αá¡á »«∩ó¿Γß∩ ßΓα«¬á: List : (1,2,0,0,0,0,0,0,0,0) C¡«óá ¡áª¼¿ΓÑ ¬½áó¿Φπ Ctrl-F7, ¡áíÑα¿ΓÑ ß½«ó« Indx ¿ ¡áª¼¿ΓÑ Enter. Indx íπñÑΓ »Ñαóδ¼ ó ß»¿ß¬Ñ ó «¬¡Ñ Watch: Indx : 3 List : (1,2,0,0,0,0,0,0,0,0) ìáª¼¿ΓÑ ¬½áó¿Φπ F7 ß¡«óá ¿ éδ πó¿ñ¿ΓÑ, τΓ« º¡áτÑ¡¿∩ Indx ¿ List ó «¬¡Ñ Watch ¿º¼Ñ¡∩Γß∩, «Γαáªá∩ αáí«Γπ éáΦÑ⌐ »α«úαá¼¼δ. èá¬ Γ«½∞¬« éδ ó«⌐ñÑΓÑ ó µ¿¬½ while, éδ ß¡«óá πó¿ñ¿ΓÑ, τΓ« º¡áτÑ¡¿∩ Indx ¿ List ¿º¼Ñ¡∩εΓß∩ Φáú ºá Φáú«¼. çá¼ÑΓ¿¼, τΓ« φΓ¿ ¿º¼Ñ¡Ñ¡¿∩ ó «¬¡Ñ Window «ΓαáªáεΓ ñÑ⌐ßΓó¿∩ ¬áªñ«⌐ ßΓα«¬¿ µ¿¬½á »«ß½Ñ ¡áªáΓ¿∩ ¬½áó¿Φ¿ F7. Åα«ñ«½ªá⌐ΓÑ ¡áª¿¼áΓ∞ ¡á ¬½áó¿Φπ F7, »«¬á ¡Ñ ñ«ßΓ¿ú¡ÑΓÑ ¡áτá½á µ¿¬½á while, c Indx αáó¡δ¼ 10. é« óαÑ¼∩ »α«σ«ªñÑ¡¿∩ τÑαÑº µ¿¬½, éδ ¼«ªÑΓÑ ¡áí½εñáΓ∞ ¬á¬ ¿º¼Ñ¡∩εΓß∩ º¡áτÑ¡¿∩ ó «¬¡Ñ Watch. è«úñá óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α List [ Indx ] := - List [ Indx ]; º¡áτÑ¡¿Ñ Indx ¿º¼Ñ¡¿Γß∩ ¡á -11. àß½¿ éδ »α«ñ«½ªáÑΓÑ ¡áª¿¼áΓ∞ ¡á F7, Γ« «í¡áαπª¿Γß∩, τΓ« óδ ó«Φ½¿ ó íÑß¬«¡Ñτ¡δ⌐ µ¿¬½. Æá¬¿¼ «íαáº«¼, Ñß½¿ éδ ¡áíÑαÑΓÑ Γá¬πε »α«úαá¼¼π, «¡á íπñÑΓ ¬«¼»¿½¿α«óáΓ∞ß∩ ¿ óδ»«½¡∩Γ∞ß∩. Å«½πτáÑΓß∩ íÑß¬«¡Ñτ¡δ⌐ µ¿¬½, Γá¬ ¬á¬ µ¿¬½ while óδ»«½¡∩ÑΓß∩ 11 αáº, á ¡Ñ 10, ¿ »«ß½Ññ¡ÑÑ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ Indx αáó¡« 11. Æá¬ ¬á¬ ¼áßß¿ó List ß«ñÑαª¿Γ Γ«½∞¬« 10 φ½Ñ¼Ñ¡Γ«ó, º¡áτÑ¡¿Ñ List(11) íπñÑΓ π¬áºδóáΓ∞ ¡á ¡Ñ¬«Γ«απε »«º¿µ¿ε »á¼∩Γ¿ ó¡Ñ ¼áßß¿óá List. êº-ºá ß»«ß«íá αáß»αÑñÑ½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡δσ πªÑ «¬áªÑΓß∩, τΓ« º¡áτÑ¡¿Ñ List(11) ºá⌐¼ÑΓ ó »á¼∩Γ¿ Γ«ªÑ ¼ÑßΓ«, τΓ« ¿ »ÑαÑ¼Ñ¡¡á∩ Indx. ¥Γ« º¡áτ¿Γ, τΓ« »α¿ Indx=11, ºá»¿ß∞: List [Indx] := - List [Indx] ¿ñÑ¡Γ¿τ¡á ºá»¿ß¿ Indx := -Indx. Æá¬ ¬á¬ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ Indx αáó¡« 11, φΓ«Γ «»ÑαáΓ«α ¿º¼Ñ¡¿Γ ÑÑ º¡áτÑ¡¿Ñ ¡á -11. é αÑºπ½∞ΓáΓÑ ó »α«úαá¼¼Ñ ¡áτ¡ÑΓß∩ »«óΓ«α¡«Ñ óδ»«½¡Ñ¡¿Ñ µ¿¬½á. ¥Γ«Γ µ¿¬½ ΓÑ»Ñα∞ ¿º¼Ñ¡∩ÑΓ ñ«»«½¡¿ΓÑ½∞¡δÑ íá⌐Γδ ó ¼ÑßΓÑ, ß««ΓóÑΓßΓóπεΘÑ¼ List[-11..0]. ê Γ.¬. º¡áτÑ¡¿Ñ Indx ¡¿¬«úñá ¡Ñ íπñÑΓ ºá¬á¡τ¿óáΓ∞ µ¿¬½ ß« º¡áτÑ¡¿Ñ¼ í«½∞Φ¿¼ ¿½¿ αáó¡δ¼ 11, Γ« µ¿¬½ ¡¿¬«úñá ¡Ñ ºá¬«¡τ¿Γß∩. éáª¡« «Γ¼ÑΓ¿Γ∞ Γ«, τΓ« ¿ß»«½∞ºπ∩ ½¿Φ∞ ñóÑ ¬½áó¿Φ¿ (F7 ¿ Ctrl - F7), τÑαÑº ¡Ñß¬«½∞¬« ¼¿¡πΓ, éδ íδßΓα« ¿ ½Ñú¬« »α«ß½Ñª¿óáÑΓÑ »α«¼ÑªπΓ«τ¡δÑ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ ¿ ¡áσ«ñ¿ΓÑ «Φ¿í¬π. Å«Φáú«ó«Ñ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ. Éáº½¿τ¿Ñ ¼Ñªñπ ¬«¼á¡ñá¼¿ Trace Into (F7) ¿ Step Over (F8) ó Γ«¼, τΓ« »α¿ ¿ß»«½∞º«óá¡¿¿ F7 «ßπΘÑßΓó½∩ÑΓß∩ Γαáßß¿α«ó¬á ó¡πΓα¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐, ó Γ« óαÑ¼∩ ¬á¬ ¿ß»«½∞º«óá¡¿Ñ F8 »α¿óÑñÑΓ ¬ «íσ«ñπ óδº«ó«ó »«ñ»α«úαá¼¼. ¥Γ¿ ¬«¼á¡ñδ ¿¼ÑεΓ «ß«í«Ñ º¡áτÑ¡¿Ñ »α¿ óδ»«½¡Ñ¡¿¿ «»ÑαáΓ«αá begin «ß¡«ó¡«⌐ »α«úαá¼¼δ, Ñß½¿ »α«úαá¼¼á ¿ß»«½∞ºπÑΓ ¼«ñπ½¿, ¿¼ÑεΘ¿Ñ αáºñÑ½ ¿¡¿µ¿á½¿ºáµ¿¿. é φΓ«¼ ß½πτáÑ, ¿ß»«½∞º«óá¡¿Ñ F7 »α¿óÑñÑΓ ¬ Γαáßß¿α«ó¬Ñ αáºñÑ½á ¿¡¿µ¿á½¿ºáµ¿¿ ¬áªñ«ú« ¼«ñπ½∩, τΓ« »«ºó«½∩ÑΓ πó¿ñÑΓ∞, τΓ« ¿¡¿µ¿á½¿º¿απÑΓß∩ ó ¬áªñ«¼ ¼«ñπ½Ñ. Åα¿ ¿ß»«½∞º«óá¡¿¿ F8 φΓ¿ αáºñÑ½δ ¡Ñ íπñπΓ Γαáßß¿α«óáΓ∞ß∩, ¿ ¬παß«α óδ»«½¡Ñ¡¿∩ »ÑαÑσ«ñ¿Γ ¡á ß½ÑñπεΘπε ßΓα«¬π »«ß½Ñ begin. Éáßß¼«Γα¿¼ ß½ÑñπεΘ¿⌐ (¡Ñ»«½¡δ⌐) »α¿¼Ñα »α«úαá¼¼δ: ($D+,L+) program TestSort; const NLMax=100; type NumList=array[1..NLMax] of integer; var List : NumList; I,Const : word; procedure Sort ( var L:NumList; Cnt:Integer); begin (sort the list) (ß«αΓ¿α«ó¬á ß»¿ß¬á) end; (of proc sort) (»α«µÑñπαδ Sort) begin randomize; Count:=NLMax; for I:=1 to Count do List[I] := Random(1000); sort(List,Count); for I:=1 to Count do Write(List[I] :8); Readln end. {»α«úαá¼¼δ TestSort} ÅαÑñ»«½«ª¿¼, τΓ« éδ «Γ½áª¿óáÑΓÑ »α«µÑñπαπ Sort. éδ σ«Γ¿ΓÑ «ßπΘÑßΓó¿Γ∞ Γαáßß¿α«ó¬π »α«µÑñπαδ Sort, ó¬½ετá∩ »α«óÑα¬π º¡áτÑ¡¿∩ ó¡πΓα¿ List ñ« óδº«óá Sort. Äñ¡á¬«, óδ»«½¡∩Γ∞ 100 αáº ¿¡¿µ¿á½¿ºáµ¿ε ó¡πΓα¿ List «τÑ¡∞ πΓ«¼¿ΓÑ½∞¡«. àßΓ∞ ½¿ ß»«ß«í óδ»«½¡∩Γ∞ µ¿¬½, ¡Ñ «ßΓá¡áó½¿óá∩ß∞ ¡á ¬áªñ«⌐ óδ»«½¡∩Ñ¼«⌐ ßΓα«¬Ñ. äá, Σá¬Γ¿τÑß¬¿, ßπΘÑßΓóπÑΓ ¡Ñß¬«½∞¬« ß»«ß«í«ó. é«-»Ñαóδσ, éδ ¼«ú½¿ íδ óδñÑ½¿Γ∞ φΓ«Γ µ¿¬½ ó «ΓñÑ½∞¡πε »α«µÑñπαπ ¿ ¡áªáΓ∞ ¬½áó¿Φπ F8 ñ½∩ Γ«ú«, τΓ«íδ «í«⌐Γ¿ ÑÑ Γαáßß¿α«ó¬π, ¡« φΓ« ß½¿Φ¬«¼ ¡Ñαáµ¿«¡á½∞¡«. é«-óΓ«αδσ, éδ ¼«ú½¿ íδ πßΓá¡«ó¿Γ∞ ó¡πΓα¿ »α«úαá¼¼δ Γ«τ¬π »αÑαδóá¡¿∩. îδ «íΩ∩ß¡¿¼, τΓ« φΓ« ºá Γ«τ¬¿ »αÑαδóá¡¿∩, ¿ ¬á¬ «¡¿ ¿ß»«½∞ºπεΓß∩ ¡Ñ¼¡«ú« »«ºªÑ. é ¬«¡µÑ ¬«¡µ«ó, éδ ¼«ú½¿ íδ ¿ß»«½∞º«óáΓ∞ ¬«¼á¡ñπ Run/Go to Cursor (F4). ÅÑαÑ¼ÑßΓ¿ΓÑ ¬παß«α ¡á ßΓα«¬π ß óδº«ó«¼ Sort, á ºáΓÑ¼ ¡áª¼¿ΓÑ ¡á ¬½áó¿Φπ (F4). éáΦá »α«úαá¼¼á íπñÑΓ óδ»«½¡∩Γ∞ß∩ ñ« ñ«ßΓ¿ªÑ¡¿∩ ßΓα«¬¿, »«¼ÑτÑ¡¡«⌐ ¬παß«α«¼. èπαß«α óδ»«½¡Ñ¡¿∩ »ÑαÑ¼ÑßΓ¿Γß∩ ¡á φΓπ ßΓα«¬π; ºáΓÑ¼ éδ ¼«ªÑΓÑ ¡áτáΓ∞ Γαáßß¿α«ó¬π ß φΓ«ú« ¼ÑßΓá, ¡áª¿¼á∩ ¡á ¬½áó¿Φπ F7, ñ½∩ Γ«ú«, τΓ«íδ ¼«ª¡« íδ½« ßñÑ½áΓ∞ Γαáßß¿α«ó¬π ó¡πΓα¿ Sort. è«¼á¡ñá Run/Goto Cursor (F4) ñÑ⌐ßΓóπÑΓ ¡á ó½«ªÑ¡¡δσ πα«ó¡∩σ óδº«ó«ó »«ñ»α«úαá¼¼, ñáªÑ Ñß½¿ ¿σ ¿ßσ«ñ¡δ⌐ ¬«ñ ¡áσ«ñ¿Γß∩ ó ñαπú«¼ Σá⌐½Ñ. ìá»α¿¼Ñα, éδ ¼«ú½¿ íδ αáº¼ÑßΓ¿Γ∞ ¬παß«α úñÑ-½¿í« ó¡πΓα¿ »α«µÑñπαδ Sort ¿ ¡áªáΓ∞ ¡á ¬½áó¿Φπ F4; »α«úαá¼¼á óδ»«½¡∩½áß∞ íδ ñ« φΓ«⌐ ßΓα«¬¿. Å« ßπΘÑßΓóπ, Sort ¼«ú½á íδ íδΓ∞ óδñÑ½Ñ¡á ó «ΓñÑ½∞¡δ⌐ ¼«ñπ½∞, «Γ½áñτ¿¬ íδ πªÑ º¡á½, ¬«úñá ¡πª¡« «ßΓá¡«ó¿Γ∞ß∩ ¿ τΓ« «Γ«íαáº¿Γ∞. æπΘÑßΓóπεΓ Γα¿ ß½πτá∩, ¬«úñá ¬«¼á¡ñá Go to Cursor (F4) ¡Ñ íπñÑΓ óδ»«½¡∩Γ∞ »α«úαá¼¼π ñ« «Γ¼ÑτÑ¡¡«⌐ ¬παß«α«¼ ßΓα«¬¿. ÅÑαóδ⌐, ¬«úñá éδ αáß»«½«ª¿½¿ ¬παß«α ¼Ñªñπ ñóπ¼∩ óδ»«½¡∩Ñ¼δ¼¿ ßΓα«¬á¼¿; ¡á»α¿¼Ñα, ¡á »πßΓ«⌐ ßΓα«¬Ñ ¿½¿ ßΓα«¬Ñ ß ¬«¼¼Ñ¡Γáα¿∩¼¿. é φΓ«¼ ß½πτáÑ »α«úαá¼¼á íπñÑΓ óδ»«½¡∩Γ∞ß∩ ñ« ß½ÑñπεΘÑ⌐ ßΓα«¬¿, ß«ñÑαªáΘÑ⌐ «»ÑαáΓ«α, ¬«Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡. éΓ«α«⌐ ß½πτá⌐, ¬«úñá ¬παß«α αáß»«½«ªÑ¡ ó¡Ñ »α«µÑñπα¡«ú« í½«¬á, ¡á»α¿¼Ñα, ¡á «»ÑαáΓ«αÑ «íΩ∩ó½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ ¿½¿ «»ÑαáΓ«αÑ program. ÄΓ½áñτ¿¬ íπñÑΓ óδó«ñ¿Γ∞ ß««íΘÑ¡¿Ñ "no code generated for this line" (ñ½∩ φΓ«⌐ ßΓα«¬¿ ¬«ñ ¡Ñ úÑ¡Ñα¿απÑΓß∩). ÆαÑΓ¿⌐ ß½πτá⌐, ¬«úñá éδ αáß»«½áúáÑΓÑ ¬παß«α ¡á ßΓα«¬Ñ, ¬«Γ«αá∩ ¡¿¬«úñá ¡Ñ óδ»«½¡∩ÑΓß∩. ìá»α¿¼Ñα, ßΓα«¬á αáß»«½áúáÑΓß∩ óδΦÑ ¬παß«αá óδ»«½¡Ñ¡¿∩ (»αÑñ»«½áúáÑΓß∩, τΓ« óδ ¡áσ«ñ¿ΓÑß∞ ¡Ñ ó µ¿¬½Ñ) ¿½¿ ßΓα«¬á ∩ó½∩ÑΓß∩ τáßΓ∞ε else - πß½«ó¡«ú« «»ÑαáΓ«αá, ¬«úñá óδαáªÑ¡¿Ñ if ¿¼ÑÑΓ º¡áτÑ¡¿Ñ true. é φΓ«¼ ß½πτáÑ «Γ½áñτ¿¬ íπñÑΓ ñÑ⌐ßΓó«óáΓ∞ Γá¬, ¬á¬ Ñß½¿ íδ óδ»«½¡∩½áß∞ ¬«¼á¡ñá Run/Run (Ctrl-F9); »α«úαá¼¼á íπñÑΓ óδ»«½¡∩Γ∞ß∩ ñ« ¬«¡µá ¿½¿ ñ« Γ«τ¬¿ »αÑαδóá¡¿∩. ÅαÑñ»«½«ª¿¼, τΓ« éδ Γαáßß¿απÑΓÑ »α«µÑñπαπ Sort,ºáΓÑ¼ σ«Γ¿ΓÑ ºáóÑαΦ¿Γ∞ αáí«Γπ »α«úαá¼¼δ ¿ »«ß¼«ΓαÑΓ∞ óδσ«ñ¡δÑ αÑºπ½∞ΓáΓδ. èá¬¿¼ ß»«ß«í«¼ ßñÑ½áΓ∞ φΓ«? æ¡áτá½á ¡πª¡« »ÑαÑ¼ÑßΓ¿Γ∞ ¬παß«α ¬ »«ß½Ññ¡Ñ¼π «»ÑαáΓ«απ end «ß¡«ó¡«⌐ τáßΓ¿ »α«úαá¼¼δ, á ºáΓÑ¼ óδ»«½¡¿Γ∞ ¬«¼á¡ñπ Run/Go to Cursor (F4). ê½¿ »α«ΘÑ, ¡πª¡« óδ»«½¡¿Γ∞ ¬«¼á¡ñπ Run/Run (Ctrl-F9). Ä¡á »«ºó«½∩ÑΓ «Γ½áñτ¿¬π »α«ñ«½ª¿Γ∞ ¡«α¼á½∞¡«Ñ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ »«½∞º«óáΓÑ½∩. Åα«úαá¼¼á íπñÑΓ óδ»«½¡∩Γ∞ß∩ ñ« ¬«¡µá, ¿½¿ ñ« ΓÑσ »«α, »«¬á éδ ¡Ñ ñ«ßΓ¿ú¡ÑΓÑ Γ«τ¬¿ »αÑαδóá¡¿∩ ¿½¿ ¡Ñ íπñÑΓ ¡áªáΓ Ctrl-Break. êß»«½∞º«óá¡¿Ñ Γ«τÑ¬ »αÑαδóá¡¿∩. Æ«τ¬¿ »αÑαδóá¡¿∩ ∩ó½∩εΓß∩ óáª¡δ¼ ¿¡ßΓαπ¼Ñ¡Γ«¼ «Γ½áñ¬¿. Æ«τ¬á »αÑαδóá¡¿∩ »«ñ«í¡á º¡á¬π «ßΓá¡«ó¬¿, óóÑñÑ¡¡«¼π ó »α«úαá¼¼π »«½∞º«óáΓÑ½∩. è«úñá »α«úαá¼¼á óßΓαÑτáÑΓ Γá¬πε Γ«τ¬π, «¡á «ßΓá¡áó½¿óáÑΓ ßó«Ñ óδ»«½¡Ñ¡¿Ñ ¿ «ª¿ñáÑΓ ñá½∞¡Ñ⌐Φ¿σ «Γ½áñ«τ¡δσ ¿¡ßΓαπ¬µ¿⌐. Åα¿¼Ñτá¡¿Ñ: éδ ¼«ªÑΓÑ ¿¼ÑΓ∞ ñ« 16 á¬Γ¿ó¡δσ Γ«τÑ¬ »αÑαδóá¡¿∩. çá¼ÑΓ¿¼, τΓ« Γ«τ¬¿ »αÑαδóá¡¿∩ ßπΘÑßΓóπεΓ Γ«½∞¬« ó« óαÑ¼∩ ßÑá¡ßá «Γ½áñ¬¿; «¡¿ ¡Ñ ß«σαá¡∩εΓß∩ ó Σá⌐½Ñ .EXE, Ñß½¿ »α«úαá¼¼á ¬«¼»¿½¿απÑΓß∩ ¡á ñ¿ß¬. ùΓ«íδ ºáñáΓ∞ Γ«τ¬π »αÑαδóá¡¿∩, ¿ß»«½∞ºπ⌐ΓÑ «íδτ¡δÑ ¬«¼á¡ñδ αÑñá¬Γ¿α«óá¡¿∩ ñ½∩ »ÑαÑ¼ÑΘÑ¡¿∩ ¬παß«αá ¡á ¬áªñπε ßΓα«¬π »α«úαá¼¼δ, úñÑ éδ σ«Γ¿ΓÑ ßñÑ½áΓ∞ »áπºπ. èáªñδ⌐ αáº óδ»«½¡∩⌐ΓÑ ¬«¼á¡ñπ Debug/Toggle Breakpoint (Ctrl-F8). è«úñá ßΓα«¬á «Γ¼ÑτáÑΓß∩ ¬á¬ Γ«τ¬á »αÑαδóá¡¿∩, «¡á óδßóÑτ¿óáÑΓß∩. ¥Γ« ¡Ñ ñ«½ª¡á íδΓ∞ »πßΓá∩ ßΓα«¬á, ¬«¼¼Ñ¡Γáα¿¿, ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩µ¿¿; «íΩ∩ó½Ñ¡¿∩ ¬«¡ßΓá¡Γ, Γ¿»«ó, ¼ÑΓ«¬, »ÑαÑ¼Ñ¡¡δσ; ºáú«½«ó¬«¼ »α«úαá¼¼δ, ¼«ñπ½∩, »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. èá¬ Γ«½∞¬« éδ ºáñá½¿ Γ«τ¬¿ »αÑαδóá¡¿∩, óδ»«½¡∩⌐ΓÑ »α«úαá¼¼π ß »«¼«Θ∞ε ¬«¼á¡ñδ Run/Run (¬½áó¿Φá Ctrl-F9). æ¡áτá½á »α«úαá¼¼á íπñÑΓ óδ»«½¡∩Γ∞ß∩ ¡«α¼á½∞¡«. è«úñá óßΓαÑΓ¿Γß∩ Γ«τ¬á »αÑαδóá¡¿∩, »α«úαá¼¼á «ßΓá¡«ó¿Γß∩. æ««ΓóÑΓßΓóπεΘ¿⌐ ¿ßσ«ñ¡δ⌐ Σá⌐½ («ß¡«ó¡á∩ »α«úαá¼¼á, ¼«ñπ½∞ ¿½¿ ó¬½ετÑ¡¡δ⌐ Σá⌐½) ºáúαπªáÑΓß∩ ó «¬¡« Edit, ¬«Γ«α«Ñ ó¿ºπá½¿º¿απÑΓß∩ ¡á φ¬αá¡Ñ ¿ ¬παß«α óδ»«½¡Ñ¡¿∩ »«¼ÑΘáÑΓß∩ ¡á ßΓα«¬π ß Γ«τ¬«⌐ »αÑαδóá¡¿∩. çá¼ÑΓ¿¼, τΓ« Γ«τ¬á »αÑαδóá¡¿∩ ¡Ñ óδßóÑτ¿óáÑΓß∩, ¬«úñá ¡á ¡Ñ⌐ ¡áσ«ñ¿Γß∩ ¬παß«α óδ»«½¡Ñ¡¿∩. àß½¿ ¬á¬¿Ñ-½¿í« »ÑαÑ¼Ñ¡¡δÑ ¿½¿ óδαáªÑ¡¿∩ íδ½¿ ñ«íáó½Ñ¡δ ó «¬¡« Watch, Γ« «¡¿ Γá¬ªÑ óδó«ñ∩Γß∩ ¡á ñ¿ß»½Ñ⌐ ß« ßó«¿¼¿ ΓÑ¬πΘ¿¼¿ º¡áτÑ¡¿∩¼¿. çáΓÑ¼, »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ ½εí«⌐ αÑª¿¼ «Γ½áñ¬¿. - éδ ¼«ªÑΓÑ «ßπΘÑßΓó½∩Γ∞ »«Φáú«ó«Ñ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ, ¿ß»«½∞ºπ∩ ¬«¼á¡ñπ Run / Trace Into, Step Over ¿½¿ Go to Cursor (F7, F8 ¿½¿ F4). éδ ¼«ªÑΓÑ »α«óÑα¿Γ∞ ¿½¿ ¿º¼Ñ¡¿Γ∞ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ. - éδ ¼«ªÑΓÑ ñ«íáó¿Γ∞ ¿½¿ πñá½¿Γ∞ óδαáªÑ¡¿∩ ¿º «¬¡á Watch. - î«ª¡« ¡áº¡áτ¿Γ∞ ¿½¿ πñá½¿Γ∞ Γ«τ¬¿ »αÑαδóá¡¿∩. - î«ª¡« »α«ß¼«ΓαÑΓ∞ óδσ«ñ¡δÑ αÑºπ½∞ΓáΓδ »α«úαá¼¼δ, ¿ß»«½∞ºπ∩ ¬«¼á¡ñπ Windows/User Screen (Alt-F5). - éδ ¼«ªÑΓÑ »ÑαÑºá»πßΓ¿Γ∞ »α«úαá¼¼π ß¡áτá½á ( Run/Program Reset ¿, ºáΓÑ¼, ¬«¼á¡ñπ »«Φáú«ó«ú« óδ»«½¡Ñ¡¿∩). - î«ª¡« »α«ñ«½ª¿Γ∞ óδ»«½¡Ñ¡¿Ñ ñ« ß½ÑñπεΘÑ⌐ Γ«τ¬¿ »αÑαδóá¡¿∩ (¿½¿ ñ« ¬«¡µá »α«úαá¼¼δ), óδ»«½¡¿ó ¬«¼á¡ñπ Run/Run (Ctrl-F9). ä½∩ πñá½Ñ¡¿∩ Γ«τ¬¿ »αÑαδóá¡¿∩ ¿º ßΓα«¬¿ »ÑαÑ¼ÑßΓ¿ΓÑ ¬παß«α ¡á ñá¡¡πε ßΓα«¬π ¿, óδ»«½¡¿ó ¬«¼á¡ñπ Debug/Toggle Breakpoint (¿½¿ ¡áª¼¿ΓÑ Ctrl-F8) ÑΘÑ αáº. ¥Γá ¬«¼á¡ñá ó¬½ετáÑΓ ¿½¿ «Γ¬½ετáÑΓ Γ«τ¬π »αÑαδóá¡¿∩ ó ßΓα«¬Ñ; Ñß½¿ «¡á ¿ß»«½∞ºπÑΓß∩ ñ½∩ ßΓα«¬¿ ß Γ«τ¬«⌐ »αÑαδóá¡¿∩, Γ« ßΓα«¬á ßΓá¡«ó¿Γß∩ ¡«α¼á½∞¡«⌐. äáóá⌐ΓÑ óÑα¡Ñ¼ß∩ ¬ »α¿¼Ñαπ, ¬«Γ«αδ⌐ íδ½ αáßß¼«ΓαÑ¡ αá¡ÑÑ. begin {«ß¡«ó¡á∩ τáßΓ∞ »α«úαá¼¼δ Test.Sort} Randomize; Count := NLMax; for I := 1 to Count do List [I] := Random (1000); Sort ( List,Count ); for I := 1 to Count do Write ( List [I] : 8 ); Readln end. {»α«úαá¼¼á Test.Sort} èá¬ πªÑ ú«ó«α¿½«ß∞, ¿ñÑ∩ íδ½á ó Γ«¼, τΓ«íδ «í«⌐Γ¿ »Ñαó«¡áτá½∞¡δ⌐ µ¿¬½ ¿ ¡áτáΓ∞ Γαáßß¿α«ó¬π ß óδº«óá »α«µÑñπαδ Sort. ì«óδ⌐ óáα¿á¡Γ. ÅÑαÑñó¿¡∞ΓÑ ¬παß«α ¡á ßΓα«¬π ß óδº«ó«¼ »α«µÑñπαδ ¿ óδ»«½¡¿ΓÑ ¬«¼á¡ñπ Debug/Toggle Breakpoint ( Ctrl-F8), ¬«Γ«αá∩ «Γ¼ÑΓ¿Γ ßΓα«¬π, ¬á¬ Γ«τ¬π »αÑαδóá¡¿∩. ÆÑ»Ñα∞ óδ»«½¡¿ΓÑ »α«úαá¼¼π ñ« φΓ«⌐ Γ«τ¬¿, ¿ß»«½∞ºπ∩ ¬«¼á¡ñπ Run/Run (Ctrl-F9 ). è«úñá »α«úαá¼¼á ñ«ßΓ¿ú¡ÑΓ φΓ«⌐ ßΓα«¬¿, «¡á «ßΓá¡«ó¿Γß∩ ¿ »«ºó«½¿Γ éá¼ ¡áτáΓ∞ «Γ½áñ¬π. êß»«½∞º«óá¡¿Ñ Ctrl-Break. èα«¼Ñ ¡áº¡áτÑ¡¿∩ Γ«τÑ¬ »αÑαδóá¡¿∩, »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ßñÑ½áΓ∞ ¡Ñ¼Ññ½Ñ¡¡πε «ßΓá¡«ó¬π ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ, ¿ß»«½∞ºπ∩ ¬½áó¿Φπ Ctrl-Break. ¥Γ« «º¡áτáÑΓ, τΓ« ¼«ª¡« »αÑαóáΓ∞ αáí«Γπ »α«úαá¼¼δ ó ½εí«Ñ óαÑ¼∩. è«úñá éδ ¡áª¿¼áÑΓÑ ¡á ¬½áó¿Φπ Ctrl-Break, óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ »αÑ¬αáΘáÑΓß∩. éδ ó«ºóαáΘáÑΓÑß∞ ó αÑñá¬Γ«α, ¬παß«α óδ»«½¡Ñ¡¿∩ αáß»«½«ªÑ¡ ¡á ß½ÑñπεΘÑ⌐ ßΓα«¬Ñ »α«úαá¼¼δ, ¿ »α«úαá¼¼á ú«Γ«óá ¬ ñá½∞¡Ñ⌐ΦÑ¼π »«Φáú«ó«¼π óδ»«½¡Ñ¡¿ε. öá¬Γ¿τÑß¬¿, «Γ½áñτ¿¬ áóΓ«¼áΓ¿τÑß¬¿ »«ñ¬½ετáÑΓ DOS, BIOS ¿ ñαπú¿Ñ ßÑαó¿ß¡δÑ Σπ¡¬µ¿¿. Ä¡ º¡áÑΓ, ∩ó½∩ÑΓß∩ ½¿ ΓÑ¬πΘ¿⌐ óδ»«½¡∩εΘ¿⌐ß∩ ¬«ñ »α«úαá¼¼«⌐ DOS, »α«úαá¼¼«⌐ BIOS ¿½¿ »α«úαá¼¼«⌐ »«½∞º«óáΓÑ½∩. è«úñá éδ ¡áª¿¼áÑΓÑ ¡á ¬½áó¿Φπ Ctrl-Break, «Γ½áñτ¿¬ ªñÑΓ, »«¬á »α«úαá¼¼á óδ»«½¡∩ÑΓß∩ ßá¼á. çáΓÑ¼ «¡ ñÑ½áÑΓ »«Φáú«ó«Ñ óδ»«½¡Ñ¡¿Ñ ¿¡ßΓαπ¬µ¿⌐ ¼áΦ¿¡¡«ú« πα«ó¡∩, »«¬á ß½ÑñπεΘá∩ ¿¡ßΓαπ¬µ¿∩ ¡Ñ íπñÑΓ ó ¡áτá½Ñ ßΓα«¬¿ ¿ßσ«ñ¡«ú« ¬«ñá ¡á Åáß¬á½Ñ. æ φΓ«ú« ¼«¼Ñ¡Γá «Γ½áñτ¿¬ »αÑ¬αáΘáÑΓ αáí«Γπ, »ÑαÑ¼ÑΘáÑΓ ¬παß«α óδ»«½¡Ñ¡¿∩ ¡á φΓπ ßΓα«¬π ¿ »αÑñ½áúáÑΓ éá¼ ¡áªáΓ∞ ¡á ¬½áó¿Φπ ESC. Åα¿¼Ñτá¡¿Ñ: àß½¿ »«½∞º«óáΓÑ½∞ ¡áª¿¼áÑΓ ¡á ¬½áó¿Φπ Ctrl-Break óΓ«α«⌐ αáº ÑΘÑ ñ« Γ«ú«, ¬á¬ «Γ½áñτ¿¬ ¡áσ«ñ¿Γ ¿ «Γ«íαáªáÑΓ ß½ÑñπεΘπε ßΓα«¬π ¿ßσ«ñ¡«ú« ¬«ñá ñ½∩ óδ»«½¡Ñ¡¿∩, Γ« «Γ½áñτ¿¬ ºáóÑαΦáÑΓ αáí«Γπ ¿ ¡Ñ »δΓáÑΓß∩ ¡á⌐Γ¿ ßΓα«¬π ¿ßσ«ñ¡«ú« ¬«ñá. é φΓ«¼ ß½πτáÑ, »α«µÑñπαδ óδσ«ñá ¡Ñ óδ»«½¡∩εΓß∩, τΓ« «º¡áτáÑΓ, τΓ« Σá⌐½δ, ó¿ñÑ«αÑª¿¼ ¿ αáß»αÑñÑ½Ñ¡¿Ñ »á¼∩Γ¿ DOS ¼«úπΓ íδΓ∞ ¡Ñ »«½¡«ßΓ∞ε «τ¿ΘÑ¡δ. Åα«ß¼«Γα º¡áτÑ¡¿⌐. éδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ »αÑñ«ßΓáó½∩ÑΓ ¼¡«ú« ¿¡Σ«α¼áµ¿¿, ¡« ¡Ñ ó Γ«¼ «íΩÑ¼Ñ, ¬á¬ σ«ΓÑ½«ß∞ íδ. î«ªÑΓ ó«º¡¿¬¡πΓ∞ ¡Ñ«íσ«ñ¿¼«ßΓ∞ »α«ß¼«ΓαÑΓ∞ ºá ΓÑ¼, ¬á¬ ¿º¼Ñ¡∩εΓß∩ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. Éáßß¼«Γα¿¼ »α«µÑñπαπ Sort ¿º »αÑñδñπΘÑ⌐ »α«úαá¼¼δ: procedure Sort ( var L : NumList; C : word ); var Top,Min,k : word; Temp : integer; begin for Top := 1 to C-1 do begin Min := Top; for k := Top+1 to C do if L[k]<L[Min] then L[Min] := L[k]; if Min <> Top then begin Temp := L[Top]; Top := L[Min]; L[Min] := Temp; end; end; end; {»α«µÑñπαδ Sort} Åα¿¼Ñτá¡¿Ñ: êº¼Ñ¡¿ΓÑ NLMax ó ΓÑ½Ñ »α«úαá¼¼δ ¡á 10 Γá¬, τΓ«íδ éδ ¼«ú½¿ αáí«ΓáΓ∞ ß ¼Ñ¡∞Φ¿¼ ¼áßß¿ó«¼. é φΓ«⌐ »α«µÑñπαÑ ÑßΓ∞ «Φ¿í¬¿, íπñÑ¼ »α«ß¼áΓα¿óáΓ∞ ÑÑ (¿ß»«½∞ºπ∩ ¬«¼á¡ñπ Run/Trace Into ¿½¿ ¬½áó¿Φπ F7) ¿ ¡áí½εñáΓ∞ ºá º¡áτÑ¡¿∩¼¿ »ÑαÑ¼Ñ¡¡δσ L, Top, Min ¿ k. ÄΓ½áñτ¿¬ ñáÑΓ ó«º¼«ª¡«ßΓ∞ »«½∞º«óáΓÑ½ε ºáñáΓ∞ «íΩÑ¬Γδ ñ½∩ »α«ß¼«Γαá ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ éáΦÑ⌐ »α«úαá¼¼δ. èá¬ éδ ¿ »αÑñ»«½áúáÑΓÑ, «íΩÑ¬Γá¼¿ »α«ß¼«Γαá ∩ó½∩εΓß∩ »ÑαÑ¼Ñ¡¡δÑ, ßΓαπ¬Γπαδ ñá¡¡δσ ¿ óδαáªÑ¡¿∩, αáß»«½«ªÑ¡¡δÑ ó «¬¡Ñ Watch, úñÑ «Γ«íαáªáεΓß∩ ¿σ ΓÑ¬πΘ¿Ñ º¡áτÑ¡¿∩, «í¡«ó½∩Ñ¼δÑ »« ¼ÑαÑ óδ»«½¡Ñ¡¿∩ ¬áªñ«⌐ ßΓα«¬¿ »α«úαá¼¼δ. äáóá⌐ΓÑ óÑα¡Ñ¼ß∩ ¬ »αÑñδñπΘÑ¼π »α¿¼Ñαπ. ôßΓá¡«ó¿Γ∞ «íΩÑ¬Γδ ¡áí½εñÑ¡¿∩ »α«ßΓ«. ÅÑαÑñó¿úá⌐ΓÑ ¬παß«α ¬ ¬áªñ«¼π ¿ñÑ¡Γ¿Σ¿¬áΓ«απ ¿ óδ»«½¡∩⌐ΓÑ ¬«¼á¡ñπ Debug/Watch/Add Watch (Ctrl -F7) ñ½∩ ñ«íáó½Ñ¡¿∩ ¬áªñ«ú« óδαáªÑ¡¿∩ ó «¬¡« Watch. ÉÑºπ½∞ΓáΓ ¼«ªÑΓ óδú½∩ñÑΓ∞ Γá¬: k : 21341 Min : 51 Top :21383 L : (163,143,454,622,476,161,850,402,375,34) ÅαÑñ»«½áúáÑΓß∩, τΓ« éδ Γ«½∞¬« τΓ« ó«Φ½¿ ó »α«µÑñπαπ Sort, ¬παß«α óδ»«½¡Ñ¡¿∩ αáß»«½«ªÑ¡ ¡á ¡áτá½∞¡«¼ «»ÑαáΓ«αÑ begin. (àß½¿ éδ ÑΘÑ ¡Ñ ó«Φ½¿ ó »α«µÑñπαπ Sort, Γ« ñ½∩ ¬áªñ«ú« óδαáªÑ¡¿∩ ó «¬¡Ñ Watch íπñÑΓ »«∩ó½∩Γ∞ß∩ ß««íΘÑ¡¿Ñ "unknown identifier" (¡Ñ¿ºóÑßΓ¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α), »«¬á éδ ¡Ñ ó«⌐ñÑΓÑ ó »α«µÑñπαπ). çá¼ÑΓ¿¼, τΓ« »ÑαÑ¼Ñ¡¡δÑ K, Min ¿ Top ¿¼ÑεΓ »α«¿ºó«½∞¡δÑ º¡áτÑ¡¿∩, Γ.¬. «¡¿ ÑΘÑ ¡Ñ íδ½¿ ¿¡¿µ¿á½¿º¿α«óá¡δ. ç¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ L, »αÑñ»«½«ª¿ΓÑ½∞¡«, Γ«ªÑ ñ«½ª¡« íδΓ∞ »α«¿ºó«½∞¡δ¼; «¡¿ ¡Ñ íπñπΓ Γá¬«óδ¼¿ »α¿ óδ»«½¡Ñ¡¿¿ óßÑ⌐ »α«úαá¼¼δ; óßÑ «¡¿ ñ«½ª¡δ íδΓ∞ ¡Ñ«Γα¿µáΓÑ½∞¡δ¼¿ ¿ ½ÑªáΓ∞ ó ¿¡ΓÑαóá½Ñ «Γ 0 ñ« 999. àß½¿ ¡áªáΓ∞ ¡á ¬½áó¿Φπ F7 τÑΓδαÑ αáºá, Γ« ¼δ »α«ñó¿¡Ñ¼ß∩ ¬ ßΓα«¬Ñ if L[k]<L[Min] then, ¿ éδ ºá¼ÑΓ¿ΓÑ, τΓ« »ÑαÑ¼Ñ¡¡δÑ k, Min ¿ Top ΓÑ»Ñα∞ ¿¼ÑεΓ º¡áτÑ¡¿∩ 2, 1 ¿ 1 ß««ΓóÑΓßΓóÑ¡¡«. Åα«ñ«½ª¿¼ ¡áª¿¼áΓ∞ ¡á F7 »«¬á ¡Ñ óδ⌐ñÑ¼ ¿º ó¡πΓαÑ¡¡Ñú« µ¿¬½á for τÑαÑº πß½«ó¡δ⌐ «»ÑαáΓ«α if Min<>Top then, ¡áºáñ ¬ óÑαΦ¿¡Ñ ó¡ÑΦ¡Ñú« µ¿¬½á, ¿ ß¡«óá ó¡¿º ¬ ßΓα«¬Ñ if L[k] < L[Min] then. é φΓ«Γ ¼«¼Ñ¡Γ «¬¡« Watch íπñÑΓ óδú½∩ñÑΓ∞ ß½ÑñπεΘ¿¼ «íαáº«¼ (ñ½∩ L ñá¡δ »αÑñδñπΘ¿Ñ º¡áτÑ¡¿∩): k : 3 Min : 2 Top : 2 L : ( 34,143,454,622,476,161,850,402,375,34 ) ÆÑ»Ñα∞ éδ ¼«ªÑΓÑ ºá¼ÑΓ¿Γ∞ ñóÑ óÑΘ¿. ÅÑαó«Ñ, »«ß½Ññ¡ÑÑ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ L(34), ¬«Γ«α«Ñ ∩ó½∩ÑΓß∩ Γá¬ªÑ ¿ ¡á¿¼Ñ¡∞Φ¿¼ º¡áτÑ¡¿Ñ¼, ß¬«»¿α«óá½«ß∞ ó »Ñαó«Ñ º¡áτÑ¡¿Ñ L, ¿ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ πªÑ íδ½« Γá¼ αá¡∞ΦÑ (163), ¿ßτÑº½«. éΓ«α«Ñ, »ÑαÑ¼Ñ¡¡δÑ Min ¿ Top ¿¼Ñ½¿ «ñ¿¡á¬«óδÑ º¡áτÑ¡¿∩ ó« óαÑ¼∩ Γαáßß¿α«ó¬¿ »α«µÑñπαδ. öá¬Γ¿τÑß¬¿, éδ ¼«ªÑΓÑ ºá¼ÑΓ¿Γ∞, τΓ« »ÑαÑ¼Ñ¡¡á∩ Min »«½πτáÑΓ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ Top, ¡« «¡á ¡¿¬«úñá ¡Ñ ¿º¼Ñ¡∩ÑΓß∩ úñÑ-½¿í« ÑΘÑ. Äñ¡á¬«, ¡¿ªÑ µ¿¬½á αáß»«½áúáÑΓß∩ »α«óÑα¬á: if Min<>Top then. ê½¿ φΓá »α«óÑα¬á «Φ¿í«τ¡á, ¿½¿ ßπΘÑßΓóπÑΓ ¬á¬«Ñ-Γ« ¡Ñß««ΓóÑΓßΓó¿Ñ ¼Ñªñπ φΓ¿¼¿ ñóπ¼∩ τáßΓ∩¼¿ »α«µÑñπαδ. Ä¬áºδóáÑΓß∩, «Φ¿í«τ¡á »∩Γá∩ ßΓα«¬á »α«úαá¼¼δ. Ä¡á ñ«½ª¡á óδú½∩ñÑΓ∞ Γá¬: Min := k, ó¼ÑßΓ« L[Min] := L[k]. êß»αáó∞ΓÑ ßΓα«¬π, »ÑαÑ¼ÑßΓ¿ΓÑ ¬παß«α ¬ »Ñαó«¡áτá½∞¡«¼π «»ÑαáΓ«απ begin ó »α«µÑñπαÑ Sort ¿ óδ»«½¡¿ΓÑ ¬«¼á¡ñπ Run/Go to Cursor (F4). Æá¬ ¬á¬ éδ ¿º¼Ñ¡¿½¿ »α«úαá¼¼π, ¡á φ¬αá¡Ñ »«∩ó¿Γß∩ «¬¡« ß ó«»α«ß«¼ Source modified, rebild? (Y/N) (¿ßσ«ñ¡δ⌐ ¼«ñπ½∞ ¼«ñ¿Σ¿µ¿α«óá¡, ¡πª¡á ½¿ ßí«α¬á? äá/ìÑΓ). ÄΓóÑΓ∞ΓÑ Y. Åα«úαá¼¼á íπñÑΓ »ÑαÑ¬«¼»¿½¿α«óáΓ∞ß∩, ¡áτ¡ÑΓß∩ ÑÑ óδ»«½¡Ñ¡¿Ñ, ºáΓÑ¼ »α«¿º«⌐ñÑΓ «ßΓá¡«ó¬á ¡á ¡áτá½∞¡«¼ «»ÑαáΓ«αÑ begin »α«µÑñπαδ Sort. ÆÑ»Ñα∞ »α«úαá¼¼á αáí«ΓáÑΓ óÑα¡«. ç¡áτÑ¡¿Ñ »Ñαó«ú« φ½Ñ¼Ñ¡Γá ΓÑ»Ñα∞ ¡Ñ ¼Ñ¡∩ÑΓß∩ ¡á ¡á¿¼Ñ¡∞ΦÑÑ ¿º º¡áτÑ¡¿⌐ φ½Ñ¼Ñ¡Γ«ó ¼áßß¿óá L, »α«¿ßσ«ñ¿Γ «í¼Ñ¡-»ÑαÑ¼ÑΘÑ¡¿Ñ º¡áτÑ¡¿∩ »Ñαó«ú« φ½Ñ¼Ñ¡Γá ¼áßß¿óá ¡á ¼ÑßΓ«, úñÑ ñ« φΓ«ú« αáß»«½áúá½ß∩ φ½Ñ¼Ñ¡Γ ß ¡á¿¼Ñ¡∞Φ¿¼ º¡áτÑ¡¿Ñ¼. çáΓÑ¼ »α«µÑßß »«óΓ«α∩ÑΓß∩ ß« óΓ«α«⌐ »«º¿µ¿Ñ⌐, ΓαÑΓ∞Ñ⌐ ¿ Γ.ñ., »«¬á ß»¿ß«¬ φ½Ñ¼Ñ¡Γ«ó ¡Ñ íπñÑΓ «Γß«αΓ¿α«óá¡ »«½¡«ßΓ∞ε. Æ¿»δ óδαáªÑ¡¿⌐ »α«ß¼«Γαá. éδ ¼«ªÑΓÑ »«¼ÑΘáΓ∞ Γπñá ½εí«⌐ Γ¿» ¬«¡ßΓá¡Γδ, »ÑαÑ¼Ñ¡¡«⌐ ¿½¿ ßΓαπ¬Γπαπ ñá¡¡δσ; éδ ¼«ªÑΓÑ Γá¬ªÑ óßΓáó½∩Γ∞ ¿ óδαáªÑ¡¿∩ Åáß¬á½∩. ì¿ªÑ »α¿óÑñÑ¡« «»¿ßá¡¿Ñ ñá¡¡δσ, ¬«Γ«αδÑ éδ ¼«ªÑΓÑ »«¼ÑΘáΓ∞ ó «¬¡« Watch ¿ Γ« ¬á¬ «¡¿ íπñπΓ Γá¼ «Γ«íαáªáΓ∞ß∩. ─────────────────────────────────────────────────────────────────── éδαáªÑ¡¿∩ éδó«ñ ─────────────────────────────────────────────────────────────────── ûÑ½δÑ äÑß∩Γ¿τ¡δÑ ¿½¿ ΦÑßΓ¡áñµáΓ¿α¿τ¡δÑ. ìá»α¿¼Ñα: -23 $10 éÑΘÑßΓóÑ¡¡δÑ üÑº φ¬ß»«¡Ñ¡Γδ, Ñß½¿ ó«º¼«ª¡«. Åα¿¼Ñαδ: 38328.27 6.283à23 æ¿¼ó«½δ ÅÑτáΓáÑ¼δÑ: ó «ñ¿¡«τ¡δσ ¬áóδτ¬áσ (ó¬½ετá∩ »ßÑóñ«úαáΣ¿¬π) Γá¬, ¬á¬ «¡¿ ÑßΓ∞. ô»αáó½∩εΘ¿Ñ: ASCII ¬«ñδ. Åα¿¼Ñαδ: 'b' '0' #4 üπ½Ñóß¬¿Ñ True ¿½¿ False. ÅÑαÑτ¿ß½¿¼δÑ äÑ⌐ßΓó¿ΓÑ½∞¡δÑ ¿¼Ñ¡á º¡áτÑ¡¿⌐ (»α«»¿ß¡δÑ) º¡áτÑ¡¿∩ Åα¿¼Ñα: RED JAN WEDNESDAY ô¬áºáΓÑ½¿ æÑú¼Ñ¡Γ:ß¼ÑΘÑ¡¿Ñ ó ΦÑßΓ¡áñµáΓ¿α¿τ¡«¼ Σ«α¼áΓÑ. Åα¿¼Ñα: PTR($3632,$106) PTR(DSEG,$AB) PTR(CSEG,$220) æΓα«¬¿ é «ñ¿¡«τ¡δσ ¬áóδτ¬áσ. Åα¿¼Ñα: 'Droid' îáßß¿óδ é ¬απú½δσ ß¬«í¬áσ, αáºñÑ½Ñ¡¡δÑ ºá»∩Γδ¼¿. î¡«ú«¼Ñα¡δÑ ¼áßß¿óδ ó ó¿ñÑ ó½«ªÑ¡¡δσ ß»¿ß¬«ó. Åα¿¼Ñαδ: (-42,23,2292,0,684) çá»¿ß¿ é ¬απú½δσ ß¬«í¬áσ, »«½∩ αáºñÑ½∩εΓß∩ ºá»∩Γδ¼¿. é½«ªÑ¡¡δÑ ºá»¿ß¿ ¬á¬ ó½«ªÑ¡¡δÑ ß»¿ß¬¿. Åα¿¼Ñαδ: (5,10,'Borland',RED,TRUE) ÄíΩÑ¬Γδ Æá¬ ªÑ, ¬á¬ ºá»¿ß¿. éδαáªÑ¡¿∩, ñ«»πßΓ¿¼δÑ ñ½∩ ºá»¿ßÑ⌐ Γá¬ ªÑ ñ«»πßΓ¿¼δ ñ½∩ «íΩÑ¬Γ«ó. î¡«ªÑßΓóá é ¬óáñαáΓ¡δσ ß¬«í¬áσ ¿ αáºñÑ½∩εΓß∩ ºá»∩Γδ¼¿. êß»«½∞ºπεΓß∩ »«ññ¿á»áº«¡δ, ¬«úñá φΓ« ó«º¼«ª¡«. Åα¿¼Ñα: [MON,WED,FRI] ['0'..'9','A'..'F'] öá⌐½δ é Σ«α¼áΓÑ (status,fname), úñÑ status - CLOSED, OPEN,INPUT ¿½¿ OUTPUT, á fname - ¿¼∩ ñ¿ß¬«ó«ú« Σá⌐½á, ¡áº¡áτÑ¡¡«Ñ Σá⌐½«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐. Åα¿¼Ñα: (OPEN,'BUDGET.DTA') ─────────────────────────────────────────────────────────────────── æ»Ñµ¿Σ¿¬áΓ«αδ Σ«α¼áΓá. ä½∩ Γ«τ¡«ú« π»αáó½Ñ¡¿∩ ΓÑ¼, ¬á¬ íπñÑΓ «Γ«íαáªáΓ∞ß∩ ¿¡Σ«α¼áµ¿∩ ó «¬¡Ñ Watch, Turbo Pascal »«ºó«½∩ÑΓ ñ«íáó½∩Γ∞ ¬ éáΦ¿¼ Watch óδαáªÑ¡¿∩¼ ß»Ñµ¿Σ¿¬áΓ«αδ Σ«α¼áΓá. Åα¿ ¡á½¿τ¿¿ Γá¬«ú« ß»Ñµ¿Σ¿¬áΓ«αá, «¡ ß½ÑñπÑΓ ºá óδαáªÑ¡¿Ñ¼ Watch, «ΓñÑ½Ñ¡¡δ⌐ «Γ ¡Ñú« ºá»∩Γ«⌐. (ä½∩ «Γ½áñ¬¿ éá¼ ¡Ñ ΓαÑíπÑΓß∩ ß»Ñµ¿Σ¿¬áΓ«α Σ«α¼áΓá; φΓ« í«½ÑÑ ß½«ª¡á∩ ó«º¼«ª¡«ßΓ∞.) æ»Ñµ¿Σ¿¬áΓ«α Σ«α¼áΓá ß«ßΓ«¿Γ ¿º ¡Ñ«í∩ºáΓÑ½∞¡«ú« ßτÑΓτ¿¬á »«óΓ«αÑ¡¿⌐ Γ¿»á Integer, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ¡«½∞ ¿½¿ ¡Ñß¬«½∞¬« ß¿¼ó«½«ó Σ«α¼áΓá, á ¼Ñªñπ ß¿¼ó«½«¼ Σ«α¼áΓá ¿ τ¿ß½«¼ »«óΓ«αÑ¡¿⌐ ¡Ñ ΓαÑíπÑΓß∩ »α«íÑ½«ó. æ»Ñµ¿Σ¿¬áΓ«αδ Σ«α¼áΓá »α¿óÑñÑ¡δ ó αáºñÑ½Ñ ¼Ñ¡ε Debug ú½áóδ 7. æτÑΓτ¿¬ »«óΓ«αÑ¡¿∩ ¿ß»«½∞ºπÑΓß∩ ñ½∩ Γ«ú«, τΓ«íδ «Γ«íαáº¿Γ∞ »«ß½Ññ«óáΓÑ½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ, Γá¬¿Ñ ¬á¬ φ½Ñ¼Ñ¡Γδ ¼áßß¿óá. ìá»α¿¼Ñα, »αÑñ»«½«ª¿¼, τΓ« List - ¼áßß¿ó ¿º 10 µÑ½δσ τ¿ßÑ½, Γ«úñá Watch óδαáªÑ¡¿Ñ ñ½∩ List «Γαáªá½« íδ ß½ÑñπεΘÑÑ: List: (10,20,30,40,50,60,70,80,90,100) àß½¿ éδ ªÑ½áÑΓÑ »α«ß¼«ΓαÑΓ∞ φ½Ñ¼Ñ¡Γδ ¼áßß¿óá ó «»αÑñÑ½Ñ¡¡«¼ ñ¿á»áº«¡Ñ, Γ« éδ ¼«ªÑΓÑ «»αÑñÑ½¿Γ∞ ¿¡ñÑ¬ß »Ñαó«ú« φ½Ñ¼Ñ¡Γá ¿ ñ«íáó¿Γ∞ ßτÑΓτ¿¬ »«óΓ«αÑ¡¿⌐: List [6],3:60,70,80 ¥Γ« »«½Ñº¡« ó ΓÑσ ß½πτá∩σ, ¬«úñá ¿¼ÑεΓß∩ ß½¿Φ¬«¼ í«½∞Φ¿Ñ ¼áßß¿óδ ¿ ¿σ «Γ«íαáªÑ¡¿Ñ ¡á «ñ¡«⌐ ßΓα«¬Ñ ¡Ñó«º¼«ª¡«. Åα¿¼Ñ¡Ñ¡¿Ñ ßτÑΓτ¿¬«ó »«óΓ«αá ¡Ñ «úαá¡¿τ¿óáÑΓß∩ «ñ¡¿¼¿ ¼áßß¿óá¼¿, ºá ½εí«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¼«ªÑΓ ß½Ññ«óáΓ∞ ßτÑΓτ¿¬ »«óΓ«αá. ÄíΘ¿⌐ ß¿¡Γá¬ß¿ß var,x ºáñáÑΓ «Γ«íαáªÑ¡¿Ñ σ »«ß½Ññ«óáΓÑ½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ß Γá¬¿¼ ªÑ Γ¿»«¼, ¬á¬ π »ÑαÑ¼Ñ¡¡«⌐ var, ¡áτ¿¡á∩ ß áñαÑßá »ÑαÑ¼Ñ¡¡«⌐ var. çá¼ÑΓ¿¼, «ñ¡á¬«, τΓ« ßτÑΓτ¿¬ »«óΓ«αá ¿ú¡«α¿απÑΓß∩, Ñß½¿ Watch óδαáªÑ¡¿Ñ ¡Ñ «í«º¡áτáÑΓ »ÑαÑ¼Ñ¡¡πε. æπΘÑßΓóπÑΓ σ«α«ΦÑÑ »αáó¿½«, ¬«Γ«α«Ñ ß«ßΓ«¿Γ ó Γ«¼, τΓ« ñá¡¡á∩ ¬«¡ßΓαπ¬µ¿∩ ∩ó½∩ÑΓß∩ »ÑαÑ¼Ñ¡¡«⌐, Ñß½¿ «¡á ¼«ªÑΓ »«∩ó½∩Γ∞ß∩ ó ½Ñó«⌐ τáßΓ¿ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩ ¿½¿ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ var »áαá¼ÑΓαá ó »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿. Åα«ñÑ¼«¡ßΓα¿απÑ¼ ¿ß»«½∞º«óá¡¿Ñ ß»Ñµ¿Σ¿¬áΓ«α«ó Σ«α¼áΓá. ÅαÑñ»«½«ª¿¼, τΓ« íδ½¿ «íΩ∩ó½Ñ¡δ ß½ÑñπεΘ¿Ñ Γ¿»δ ñá¡¡δσ ¿ »ÑαÑ¼Ñ¡¡δÑ: type NamePtr = ^NameRec; NameRec = record Next:NamePtr; Count:Integer; Name:string[31]; end; var List:array[1..10] of integer; P:NamePtr; Åα¿ ¡á½¿τ¿¿ »α¿óÑñÑ¡¡δσ óδΦÑ «íΩ∩ó½Ñ¡¿⌐ ¼«úπΓ íδΓ∞ ß¬«¡ßΓαπ¿α«óá¡δ ß½ÑñπεΘ¿Ñ Watch óδαáªÑ¡¿∩: List:(10,20,30,40,50,60,70,80,90,100) List[6], 3H:$30,$46,$50 P:PTR($çàÇÄ,sc) P,P: çàÇÄ;000C P^:(PTR(S3EF2,S2),412,"John") P^,RS:(NEXT:PTR($3EF2,S2);count:$19c;NAME:"John") P^.NEXT^,R:(NEXT:NIL;count:377;NAME:"Joe") Mem[$40:0],10M:F8 03 F1 02 00 00 00 00 BC 03 Mem[$40:0],10MD:248 3 248 2 0 0 0 0 188 3 Åα¿óÑñÑ¡¿Ñ Γ¿»«ó. Åα¿óÑñÑ¡¿Ñ Γ¿»«ó ∩ó½∩ÑΓß∩ ÑΘÑ «ñ¡¿¼ ¼«Θ¡δ¼ ßαÑñßΓó«¼, ¬«Γ«α«Ñ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ ¼«ñ¿Σ¿¬áµ¿¿ «Γ«íαáªÑ¡¿∩ óδαáªÑ¡¿⌐ ó «¬¡Ñ Watch, τΓ« »«ºó«½∩ÑΓ ¿¡ΓÑα»αÑΓ¿α«óáΓ∞ «ñ¡¿ ¿ ΓÑ ªÑ ñá¡¡δÑ ó ¬áτÑßΓóÑ ñá¡¡δσ αáº¡δσ Γ¿»«ó, «Γ½¿τ¡δσ «Γ ¿σ ¿ßσ«ñ¡«ú« »αÑñßΓáó½Ñ¡¿∩. ¥Γ« «ß«íÑ¡¡« »«½Ñº¡« »α¿ αáí«ΓÑ ß áñαÑßá¼¿ ¿ π¬áºáΓÑ½∩¼¿, ñ½∩ Γ«ú« τΓ«íδ αáßß¼áΓα¿óáΓ∞ ¿σ ¬á¬ π¬áºáΓÑ½¿ ¡á «»αÑñÑ½Ñ¡¡δ⌐ Γ¿» ñá¡¡δσ. ÅαÑñ»«½«ª¿¼, τΓ« éáΦá »α«úαá¼¼á ß«ñÑαª¿Γ »ÑαÑ¼Ñ¡¡πε DFile, ¬«Γ«αá∩ ¿¼ÑÑΓ Γ¿» file of MyRec ¿ éδ óδ»«½¡∩ÑΓÑ ß½ÑñπεΘπε »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ «»ÑαáΓ«α«ó: Assign(DFile,"INPUT.REC"); Reset(DFile); àß½¿ éδ ñ«íáó½∩ÑΓÑ »ÑαÑ¼Ñ¡¡πε DFile ó «¬¡« Watch, Γ« ß««ΓóÑΓßΓóπεΘá∩ ßΓα«¬á ó «¬¡Ñ Watch íπñÑΓ óδú½∩ñÑΓ∞ ß½ÑñπεΘ¿¼ «íαáº«¼: DFile:(OPEN,"INPUT.REC") é«º¼«ª¡«, τΓ« »«½∞º«óáΓÑ½∞ »«ªÑ½áÑΓ »«½πτ¿Γ∞ í«½ÑÑ »«½¡πε ¿¡Σ«α¼áµ¿ε « ºá»¿ß¿ Σá⌐½á. àß½¿ ¿º¼Ñ¡¿Γ∞ »α«úαá¼¼π Γá¬, τΓ«íδ «¡á ¼«ú½á ¿ß»«½∞º«óáΓ∞ ¼«ñπ½∞ Dos, Γ« éδ ß¼«ªÑΓÑ ¼«ñ¿Σ¿µ¿α«óáΓ∞ óδαáªÑ¡¿Ñ ñ½∩ DFile ó óδαáªÑ¡¿¿ FileRec(DFile),rh. ¥Γ« «º¡áτáÑΓ: "ÄΓ«íαáº¿Γ∞ »ÑαÑ¼Ñ¡¡πε DFile Γá¬¿¼ «íαáº«¼, ¬á¬ Ñß½¿ íδ «¡á íδ½á ºá»¿ß∞ε Γ¿»á FileRec («íΩ∩ó½Ñ¡¡«ú« ó ¼«ñπ½Ñ Dos), »α¿ φΓ«¼ óßÑ »«½∩ ºá»¿ß¿ »«¼ÑτáεΓß∩ ¿ óßÑ µÑ½δÑ º¡áτÑ¡¿∩ «Γ«íαáªáεΓß∩ ó ΦÑßΓ¡áñµáΓ¿α¿τ¡«¼ ¬«ñÑ". Æ«úñá αÑºπ½∞ΓáΓ ó «¬¡Ñ Watch ¼«ªÑΓ ¿¼ÑΓ∞ ß½ÑñπεΘ¿⌐ ó¿ñ: FileRec(DFile),rh:(HANDLE:$6;MODE:$D7B3;RECSIZE:$14;PRIVATE:($0, $0,...)) äá¡¡á∩ ºá»¿ß∞ ∩ó½∩ÑΓß∩ ß½¿Φ¬«¼ ñ½¿¡¡«⌐ ñ½∩ »«½¡«⌐ ÑÑ ó¿ºπá½¿ºáµ¿¿. é«º¼«ª¡«, «ñ¡á¬«, ¿ß»«½∞º«óáΓ∞ ¬½áó¿Φ¿, »ÑαÑñó¿úáεΘ¿Ñ ¬παß«α, ñ½∩ »α«ß¼«Γαá ¡Ñó¿ñ¿¼δσ ¡á φ¬αá¡Ñ ñá¡¡δσ (ß¼. αáºñÑ½ "ÉÑñá¬Γ¿α«óá¡¿Ñ ¿ πñá½Ñ¡¿Ñ ó «¬¡Ñ Watch"). ü½áú«ñáα∩ »α¿óÑñÑ¡¿ε Γ¿»á, »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ΓÑ»Ñα∞ »α«ß¼«ΓαÑΓ∞ «»αÑñÑ½Ñ¡¡δÑ »«½∩ DFile. ìá»α¿¼Ñα, éδ ¼«ú½¿ íδ »α«ß¼«ΓαÑΓ∞ »«½Ñ UserData, ñ«íáó½∩∩ óδαáªÑ¡¿Ñ ñ½∩ FileRec(DFile).UserData ó «¬¡« Watch. FileRec(DFile).UserData:(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) Å«½∞º«óáΓÑ½∞ ¼«ªÑΓ »α¿¼Ñ¡∩Γ∞ Γ«Γ ªÑ »α¿Ñ¼ ¬ ßΓαπ¬Γπαá¼ ñá¡¡δσ ¿ Γ¿»á¼, αáºαáí«Γá¡¡δ¼ ¿¼ ßá¼¿¼. àß½¿ «¡¿ íδ½¿ «íΩ∩ó½Ñ¡δ ó »α«úαá¼¼Ñ ¿½¿ ¼«ñπ½Ñ, Γ« »«½∞º«óáΓÑ½∞ ¼«ªÑΓ «ßπΘÑßΓó¿Γ∞ »α¿óÑñÑ¡¿Ñ ¿σ Γ¿»«ó ó «¬¡Ñ Watch. Åαáó¿½á »α¿óÑñÑ¡¿∩ Γ¿»«ó »α¿óÑñÑ¡δ ó ú½áóÑ 6 " éδαáªÑ¡¿∩ " Éπ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá. éδαáªÑ¡¿∩. èá¬ πªÑ αá¡ÑÑ π»«¼¿¡á½«ß∞, »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ óδαáªÑ¡¿∩ ¬á¬ Watch óδαáªÑ¡¿∩. ¥Γ« ¼«úπΓ íδΓ∞ óδτ¿ß½Ñ¡¿∩, ßαáó¡Ñ¡¿∩, áñαÑßá ß« ß¼ÑΘÑ¡¿Ñ¼ ¿ ñαπú¿Ñ »«ñ«í¡δÑ óδαáªÑ¡¿∩. é Γáí½¿µÑ 5.1 »α¿óÑñÑ¡ ß»¿ß«¬ Γ¿»«ó αáºαÑΦÑ¡¡δσ ¬«¼»«¡Ñ¡Γ Watch óδαáªÑ¡¿⌐, á Γá¬ªÑ ¿σ ñ«»πßΓ¿¼δÑ º¡áτÑ¡¿∩ Æáí½¿µá 5.1. ç¡áτÑ¡¿∩ Watch óδαáªÑ¡¿⌐. ─────────────────────────────────────────────────────────────────── ÉáºαÑΦÑ¡¡δÑ ¬«¼»«¡Ñ¡Γδ ä«»πßΓ¿¼δÑ º¡áτÑ¡¿∩ ─────────────────────────────────────────────────────────────────── ï¿ΓÑαá½δ ¿ è«¡ßΓá¡Γδ éßÑ ßΓá¡ñáαΓ¡δÑ Γ¿»δ ñá¡¡δσ: Boolean, Byte, Char, »ÑαÑτ¿ß- ½¿¼δ⌐, Integer, LongInt, Real, ShortInt, String, Word. ÅÑαÑ¼Ñ¡¡δÑ éßÑ Γ¿»δ, ó¬½ετá∩ Γ¿»δ, «»αÑ- ñÑ½Ñ¡¡δÑ »«½∞º«óáΓÑ½Ñ¼, ¿ φ½Ñ¼Ñ¡Γδ ßΓαπ¬Γπα ñá¡¡δσ. µÑ½«τ¿ß½Ñ¡¡δ⌐ Γ¿» ïεí«Ñ µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ- ¡¿Ñ ó »αÑñÑ½áσ ñ¿á»áº«¡á º¡á- τÑ¡¿⌐ »ÑαÑ¼Ñ¡¡«⌐. ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ïεí«Ñ óδαáªÑ¡¿Ñ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ (¿½¿ µÑ½«τ¿ß½Ñ¡¡«Ñ) ó »αÑñÑ½áσ ñ¿á»áº«¡á φ¬ß»«¡Ñ¡Γδ; ½¿Φ¡¿Ñ º¡áτáΘ¿Ñ µ¿Σαδ »«ñáó½∩εΓß∩; ß¿¼ó«½∞¡δ⌐ Γ¿» ½εí«Ñ ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ, ó¬½ετá∩ ½εí«⌐ »ÑτáΓáÑ¼δ⌐ ß¿¼ó«½ ó «ñ¿¡«τ¡δσ ¬áóδτ¬áσ; µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ »αÑ«íαáºπÑΓß∩ ó ß¿¼ó«½∞¡«Ñ ß »«¼«Θ∞ε Σπ¡¬µ¿¿ Chr ¿½¿ Char; ¬«¡ßΓá¡Γδ ASCII (º¡á¬ # ß »«ß½ÑñπεΘ¿¼ º¡áτÑ¡¿Ñ¼ «Γ 0 ñ« 255). ½«ú¿τÑß¬¿⌐ Γ¿» True ¿ False; ½εí«Ñ ½«ú¿τÑß- ¬«Ñ óδαáªÑ¡¿Ñ. »ÑαÑτ¿ß½¿¼δ⌐ Γ¿» ïεíá∩ ß«ó¼ÑßΓ¿¼á∩ »ÑαÑτ¿ß½¿- ¼á∩ ¬«¡ßΓá¡Γá, µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ íÑº ñ«»πßΓ¿¼«ú« ñ¿- á»áº«¡á »α¿ó«ñ¿Γß∩ ¬ ß«ó- ¼ÑßΓ¿¼«¼π »ÑαÑτ¿ß½¿¼«¼π Γ¿»π ñá¡¡δσ. π¬áºáΓÑ½∞ ïεí«⌐ ß«ó¼ÑßΓ¿¼δ⌐ π¬áºáΓÑ½∞, ½εí«Ñ óδαáªÑ¡¿Ñ ß«ó¼ÑßΓ¿¼«ú« Γ¿»á, Σπ¡¬µ¿∩ Ptr (c c«ΓóÑΓß- ΓóπεΘ¿¼¿ »áαá¼ÑΓαá¼¿); ßΓα«¬á ïεíá∩ ßΓα«¬«óá∩ ¬«¡ßΓá¡Γá (ΓÑ¬ßΓ,ºá¬½ετÑ¡¡δ⌐ ó «ñ¿¡«τ- ¡δÑ ¬áóδτ¬¿); ßΓα«¬«óδÑ »ÑαÑ- ¼Ñ¡¡δÑ, ßΓα«¬«óδÑ óδαáªÑ¡¿∩, ß«ßΓ«∩Θ¿Ñ ¿º ßΓα«¬«óδσ ¬«¡ß- Γá¡Γ ¿ »ÑαÑ¼Ñ¡¡δσ, ßµÑ»½Ñ¡¡δσ ß »«¼«Θ∞ε «»ÑαáΓ«αá +. ¼¡«ªÑßΓó« ïεíá∩ ¬«¡ßΓá¡Γá ¼¡«ªÑßΓóá (ß«ó¼ÑßΓ¿¼δÑ φ½Ñ¼Ñ¡Γδ ó ¬óáñ- αáΓ¡δσ ß¬«í¬áσ), ½εí«Ñ ß«ó- ¼ÑßΓ¿¼«Ñ óδαáªÑ¡¿Ñ ¼¡«ªÑßΓóá, ó¬½ετá∩ ¿ß»«½∞º«óá¡¿Ñ «»Ñαá- Γ«α«ó +, -, *. Åα¿óÑñÑ¡¿Ñ Γ¿»á æ½ÑñπεΓ ßΓá¡ñáαΓ¡δ¼ »αáó¿½á¼ Åáß¬á½∩. Ä»ÑαáΓ«αδ éßÑ ßΓá¡ñáαΓ¡δÑ «»ÑαáΓ«αδ Åáß¬á½∩, »½εß óδαáªÑ¡¿∩ Turbo Pascal, Γá¬¿Ñ ¬á¬ xor, @ ¿ Γ.ñ. éßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿ Abs, Addr, Chr, Cseg, Dseg, Hi, IOResult, Length, Lo, MaxAvail, MemAvail, Odd, Meml, MemW, Ofs, Ord, Pred, Ptr, Round, Seg, SizeOf, SPtr, SSeg, Succ, Swap, Trunc. îáßß¿óδ Mem, MemL, MemW ─────────────────────────────────────────────────────────────────── äαπú¿¼¿ ß½«óá¼¿, óδαáªÑ¡¿Ñ ñ«½ª¡« íδΓ∞ ¡«α¼á½∞¡δ¼ αáºαÑΦÑ¡¡δ¼ óδαáªÑ¡¿Ñ¼. Ä¡« ¼«ªÑΓ ó¬½ετáΓ∞ óßÑ »ÑαÑτ¿ß½Ñ¡¡δÑ ó Γáí½¿µÑ 5.1 ¬«¼»«¡Ñ¡Γδ. ä«»«½¡¿ΓÑ½∞¡á∩ ¿¡Σ«α¼áµ¿∩ »« ¼«ñ¿Σ¿¬áµ¿¿ Watch óδαáªÑ¡¿⌐ »α¿óÑñÑ¡á ó αáºñÑ½Ñ "é«»α«ßδ ¼«ñ¿Σ¿¬áµ¿¿". ÉÑñá¬Γ¿α«óá¡¿Ñ ¿ πñá½Ñ¡¿Ñ ó «¬¡Ñ Watch. ÄτÑ¡∞ »α«ßΓ« αÑñá¬Γ¿α«óáΓ∞, ñ«íáó½∩Γ∞ ¿ πñá½∩Γ∞ óδαáªÑ¡¿∩ ñ½∩ »α«ß¼«Γαá. è«úñá «¬¡« Watch á¬Γ¿ó¡«, ΓÑ¬πΘÑÑ á¬Γ¿ó¡«Ñ óδαáªÑ¡¿Ñ »«ñßóÑτ¿óáÑΓß∩. ùΓ«íδ óδíαáΓ∞ ñαπú«Ñ óδαáªÑ¡¿Ñ, ¿ß»«½∞ºπ⌐ΓÑ ¬½áó¿Φ¿ Home, End, °, ∙. ùΓ«íδ αÑñá¬Γ¿α«óáΓ∞ (¿º¼Ñ¡∩Γ∞) ΓÑ¬πΘ¿Ñ óδαáªÑ¡¿∩, éδ ¼«ªÑΓÑ óδíαáΓ∞ Debug/Watches/Edit Watch. î«ª¡« ßñÑ½áΓ∞ ÑΘÑ »α«ΘÑ - »α«ßΓ« ¡áªáΓ∞ Enter. ÄΓ½áñτ¿¬ «Γ¬αδóáÑΓ «¬¡« ß óδíαá¡¡δ¼ óδαáªÑ¡¿Ñ¼ ¿ éδ ¼«ªÑΓÑ αÑñá¬Γ¿α«óáΓ∞ Ñú«. éδ πªÑ º¡áÑΓÑ ¬á¬ ñ«íáó½∩Γ∞ óδαáªÑ¡¿Ñ ñ½∩ »α«ß¼«Γαá, ¡« ¬«úñá «¬¡« Watch á¬Γ¿ó¡«, ÑßΓ∞ í«½ÑÑ »α«ßΓ«⌐ ß»«ß«í: ¡áª¼¿ΓÑ Ins. Å«∩ó¿Γß∩ «¬¡«. éδ ¼«ªÑΓÑ ¡áíαáΓ∞ óδαáªÑ¡¿Ñ, ñ«íáó¿Γ∞ ¬ ¡Ñ¼π ß »«¼«Θ∞ε ¬½áó¿Φ¿ ≈, ¿½¿ »α¿¡∩Γ∞ Γ«, τΓ« ß¬«»¿α«óá½«ß∞ ¿º »«º¿µ¿¿ ¬παß«αá »« π¼«½τá¡¿ε. Åα¿¼Ñτá¡¿Ñ: éδ ¡Ñ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ º¡áτÑ¡¿Ñ óδαáªÑ¡¿∩, á Γ«½∞¬« ßá¼« óδαáªÑ¡¿Ñ. ùΓ«íδ ¿º¼Ñ¡¿Γ∞ º¡áτÑ¡¿Ñ, ¿ß»«½∞ºπ⌐ΓÑ Debug/Evaluate /Modify. ùΓ«íδ πñá½¿Γ∞ ΓÑ¬πΘÑÑ óδαáªÑ¡¿Ñ óδíÑα¿ΓÑ Debug/Watches/Delete Watch ¿½¿ »α«ßΓ« ¡áª¼¿ΓÑ Del. ùΓ«íδ πñá½¿Γ∞ óßÑ óδαáªÑ¡¿∩, óδíÑα¿ΓÑ Debug/Watches/Remove All Watches. éδτ¿ß½Ñ¡¿Ñ ¿ ¼«ñ¿Σ¿¬áµ¿∩. êß»«½∞º«óá¡¿Ñ «¬¡á Watch «τÑ¡∞ πñ«í¡« ñ½∩ Γαáßß¿α«ó¬¿ º¡áτÑ¡¿⌐ »« ¼ÑαÑ »α«ñó¿ªÑ¡¿∩ »« »α«úαá¼¼Ñ. Äñ¡á¬«, ¿¡«úñá éδ ¡Ñ ¿ß»δΓδóáÑΓÑ ó φΓ«¼ ¡Ñ«íσ«ñ¿¼«ßΓ∞. ùáßΓ« óßΓαÑτáεΓß∩ »ÑαÑ¼Ñ¡¡δÑ ¿ óδαáªÑ¡¿∩, ¬«Γ«αδÑ ¡Ñ«íσ«ñ¿¼« »α«óÑα¿Γ∞ Γ«½∞¬« ó «»αÑñÑ½Ñ¡¡«⌐ Γ«τ¬Ñ ¿½¿ Γ«τ¬áσ »α«úαá¼¼δ. éá¼ ñÑ⌐ßΓó¿ΓÑ½∞¡« ¡Ñ σ«ΓÑ½«ß∞ íδ, τΓ«íδ φΓ¿ »ÑαÑ¼Ñ¡¡δÑ ¡áσ«ñ¿½¿ß∞ ó «¬¡Ñ Watch »«ßΓ«∩¡¡«. Åα¿ φΓ«¼ ñ«ó«½∞¡« πΓ«¼¿ΓÑ½∞¡« ñ«íáó½∩Γ∞ Γá¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ ó «¬¡« Watch , á ºáΓÑ¼ ßαáºπ ªÑ ¿σ πñá½∩Γ∞, «ß«íÑ¡¡« Ñß½¿ ¿σ ¡Ñß¬«½∞¬«. ìá¬«¡Ñµ, ¼«ªÑΓ Γá¬ªÑ ó«º¡¿¬¡πΓ∞ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¡Ñ »α«ßΓ« »α«ß¼«ΓαÑΓ∞ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐, ¡« ¿ ¿º¼Ñ¡¿Γ∞ φΓ¿ º¡áτÑ¡¿∩. ä½∩ «íÑß»ÑτÑ¡¿∩ Γá¬¿σ ó«º¼«ª¡«ßΓÑ⌐ «Γ½áñτ¿¬ »αÑñ½áúáÑΓ «¬¡« Evaluate/Modify. ùΓ«íδ óδºóáΓ∞ Ñú«, óδ»«½¡¿ΓÑ ¬«¼á¡ñπ Debug/Evaluate/Modify (¿½¿ ¡áª¼¿ΓÑ ¬½áó¿Φπ Ctrl-F4). Ä¬¡« ¿¼ÑÑΓ Γα¿ »«½∩, »«¼ÑτÑ¡¡δÑ ß½«óá¼¿ Evaluate, Result ¿ New Value. Æá¬ªÑ ¬á¬ ¿ «¬¡« Add Watch, «¬¡« Evaluate/Modify πªÑ ß«ñÑαª¿Γ ß½«ó«, ¡á⌐ñÑ¡¡«Ñ »«ñ ¬παß«α«¼, «¡« ¡áσ«ñ¿Γß∩ ó αÑª¿¼Ñ óδñÑ½Ñ¡¿∩. àú« ¼«ª¡« αÑñá¬Γ¿α«óáΓ∞ »«ñ«í¡« αÑñá¬Γ¿α«óá¡¿ε ó Add Watch, á ¬«úñá ¡πª¡« óδτ¿ß½¿Γ∞ óδαáªÑ¡¿Ñ, ¡áª¼¿ΓÑ ¡á ¬½áó¿Φπ Enter. Æ«úñá ó »«½Ñ Result »«∩ó¿Γß∩ ΓÑ¬πΘÑÑ º¡áτÑ¡¿Ñ ¬«¡ßΓá¡Γδ, »ÑαÑ¼Ñ¡¡«⌐ ¿½¿ óδαáªÑ¡¿∩. Å«½Ñ Evaluate ñ«»πß¬áÑΓ Γ«τ¡« Γá¬«⌐ ªÑ ¡áí«α ¬«¡ßΓá¡Γ, »ÑαÑ¼Ñ¡¡δσ ¿ óδαáªÑ¡¿⌐, τΓ« ¿ «¬¡« Watch. éδ ¿¼ÑÑΓÑ ΓÑ ªÑ ó«º¼«ª¡«ßΓ¿ ¿ «úαá¡¿τÑ¡¿∩, « ¬«Γ«αδσ ¼δ πªÑ π»«¼¿¡á½¿. î«ª¡« ¿ß»«½∞º«óáΓ∞ Γá¬ªÑ ¿ ß»Ñµ¿Σ¿¬áΓ«αδ Σ«α¼áΓá, ¬«Γ«αδÑ «»αÑñÑ½Ñ¡δ ñ½∩ Watch óδαáªÑ¡¿∩. è«úñá éδ ¡áª¿¼áÑΓÑ ¡á ¬½áó¿Φπ Enter, ó »«½Ñ Evaluate óδñÑ½∩ÑΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¿½¿ óδαáªÑ¡¿Ñ. àß½¿ éδ ¡áτ¡ÑΓÑ ¡áí¿αáΓ∞ ¡«ó«Ñ ¿¼∩ (¡Ñ ¡áª¿¼á∩ ¡á ¬½áó¿Φπ Ins ¿½¿ ¬½áó¿Φ¿ ß« ßΓαÑ½¬á¼¿), Γ« «¡« íπñÑΓ αáº¼ÑΘáΓ∞ß∩ ¡á ¼ÑßΓÑ ßΓáα«ú« ¿¼Ñ¡¿. ¥Γ« »«ºó«½∩ÑΓ íδßΓα« ¡áí¿αáΓ∞ ßÑα¿ε »ÑαÑ¼Ñ¡¡δσ ¿ óδαáªÑ¡¿⌐. Å«½Ñ New Value »«ºó«½∩ÑΓ ¼«ñ¿Σ¿µ¿α«óaΓ∞ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ, τ∞¿ ¿¼Ñ¡á αáß»«½«ªÑ¡δ ó »«½Ñ Evaluate. î«ª¡« óó«ñ¿Γ∞ ¬«¡ßΓá¡Γπ, ¿¼∩ ñαπú«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¿½¿ ñáªÑ óδαáªÑ¡¿Ñ. ÉÑºπ½∞Γ¿απεΘÑÑ º¡áτÑ¡¿Ñ ñ«½ª¡« ¿¼ÑΓ∞ Γ¿», ß«ó¼ÑßΓ¿¼δ⌐ ß »ÑαÑ¼Ñ¡¡«⌐ ¿º »«½∩ Evaluate. Äñ¡á¬«, Ñß½¿ óδαáªÑ¡¿Ñ ó »«½Ñ Evaluate ¡Ñ ∩ó½∩ÑΓß∩ »«½«ªÑ¡¿Ñ¼ »á¼∩Γ¿, Γ« óó«ñ ó »«½Ñ New Value »α¿óÑñÑΓ ¬ »«∩ó½Ñ¡¿ε ß««íΘÑ¡¿∩: Cannot be modified (¼«ñ¿Σ¿¬áµ¿∩ ¡Ñó«º¼«ª¡á). Å«½Ñ Result «Γ«íαáªáÑΓ ΓÑ¬πΘÑÑ º¡áτÑ¡¿Ñ óδαáªÑ¡¿⌐ »«½∩ Evaluate ó Γ«¼ ªÑ Σ«α¼áΓÑ, τΓ« ¿ «¬¡« Watch. Åα¿ φΓ«¼ ¿¡«úñá ñá¡¡δÑ ¼«úπΓ íδΓ∞ ß½¿Φ¬«¼ óÑ½¿¬¿ ñ½∩ ó¿ºπá½¿ºáµ¿¿ ¿σ ó »«½Ñ Result, »«ñ«í¡« «¬¡π Watch. é φΓ¿σ ß½πτá∩σ éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ¬½áó¿Φ¿ Tab, Backtab, ÷, ≈, Home ¿ End, τΓ«íδ »ÑαÑ¼ÑΘáΓ∞ß∩ »« »«½ε. é« óßÑσ ß½πτá∩σ óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ¬½áó¿Φπ ° ¿ ∙ (¿½¿ ßΓá¡ñáαΓ¡δÑ ¬½áó¿Φ¿ αÑñá¬Γ¿α«óá¡¿∩), ñ½∩ »ÑαÑ¼ÑΘÑ¡¿∩ »« φΓ¿¼ ΓαÑ¼ »«½∩¼. èá¬ Γ«½∞¬« éδ ºá¬á¡τ¿ΓÑ ¼«ñ¿Σ¿¬áµ¿ε »«½∩, ¡áª¼¿ΓÑ ¡á ¬½áó¿Φπ Enter ñ½∩ óδτ¿ß½Ñ¡¿∩ óó«ñá. î«ñ¿Σ¿¬áµ¿∩ óδαáªÑ¡¿⌐. é«º¼«ª¡«ßΓ∞ ¼«ñ¿Σ¿¬áµ¿¿ »ÑαÑ¼Ñ¡¡«⌐ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ »α¿¡«ß¿Γ «úα«¼¡πε »«¼«Θ∞ ó »α«µÑßßÑ «Γ½áñ¬¿. ì« «¡á ¿ Γá¿Γ ó ßÑíÑ «»áß¡«ßΓ∞. Æá¬ τΓ« éá¼ ¡πª¡« Γ«τ¡« º¡áΓ∞, τΓ« ¡πª¡« ñÑ½áΓ∞ »α¿ ¼«ñ¿Σ¿¬áµ¿¿, á τΓ« ñÑ½áΓ∞ ¡Ñ αÑ¬«¼Ñ¡ñπÑΓß∩. ìá¿í«½ÑÑ »α«ßΓδ¼ ß»«ß«í«¼ ¼«ñ¿Σ¿¬áµ¿¿, ¬«¡Ñτ¡«, ∩ó½∩ÑΓß∩ óó«ñ ¿¼Ñ¡¿ »ÑαÑ¼Ñ¡¡«⌐ ó »«½Ñ Evaluate ¿ óó«ñ ß««ΓóÑΓßΓóπεΘÑú« º¡áτÑ¡¿∩ ó »«½Ñ New Value. è«úñá óδ ¡áª¿¼áÑΓÑ ¡á ¬½áó¿Φπ Enter »«ß½Ñ Γ«ú« ¬á¬ ¡áíαá½¿ ¡«ó«Ñ º¡áτÑ¡¿Ñ, º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ ¿º¼Ñ¡∩ÑΓß∩, ß««ΓóÑΓßΓóÑ¡¡« «í¡«ó½∩ÑΓß∩ ¿ »«½Ñ Result. î«ª¡« óó«ñ¿Γ∞ ¡Ñ Γ«½∞¬« ¬«¡ßΓá¡Γδ. é »«½Ñ New Value ¼«ª¡« óó«ñ¿Γ∞ ½εíπε »ÑαÑ¼Ñ¡¡πε ¿½¿ óδαáªÑ¡¿Ñ, ¬«Γ«αδÑ ¼«ª¡« óó«ñ¿Γ∞ ¿ ó »«½Ñ Evaluate, ß «ñ¡¿¼ óáª¡δ¼ «úαá¡¿τÑ¡¿Ñ¼: ñ«½ª¡á íδΓ∞ ß«ó¼ÑßΓ¿¼«ßΓ∞ »α¿ßóá¿óá¡¿∩ ß »ÑαÑ¼Ñ¡¡«⌐ ¿½¿ óδαáªÑ¡¿Ñ¼ ó »«½Ñ Evaluate. äαπú¿¼¿ ß½«óá¼¿, Ñß½¿ expr1 ∩ó½∩ÑΓß∩ ΓÑ¬πΘ¿¼ ó »«½Ñ Evaluate, Γ« ¡Ñ½∞º∩ óó«ñ¿Γ∞ óδαáªÑ¡¿Ñ expr2 ó »«½Ñ New Value, Ñß½¿ «»ÑαáΓ«α expr1:= expr2 íπñÑΓ »α¿ó«ñ¿Γ∞ ¬ «Φ¿í¬Ñ ¬«¼»¿½∩µ¿¿ ¿½¿ óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩. çá¼ÑΓ¿¼, τΓ« «íαáΓ¡«Ñ πΓóÑαªñÑ¡¿Ñ ¡Ñ óßÑúñá óÑα¡«. üδóáεΓ ß½πτá¿, ¬«úñá «»ÑαáΓ«α expr1:=expr2 ∩ó½∩ÑΓß∩ óÑα¡δ¼, ¡« éδ óßÑ αáó¡« ¡Ñ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ óδαáªÑ¡¿Ñ expr2 ó »«½Ñ New Value. àß½¿ óóÑñÑ¡¡«Ñ óá¼¿ óδαáªÑ¡¿Ñ ¿¼ÑÑΓ ¡Ñß«ó¼ÑßΓ¿¼δ⌐ Γ¿» (¡á»α¿¼Ñα, Ñß½¿ óóÑßΓ¿ º¡áτÑ¡¿∩ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ Γ¿»á integer, ó »«½Ñ Result »«∩ó¿Γß∩ ß««íΘÑ¡¿Ñ: Type mismatch (¡Ñß««ΓóÑΓßΓó¿Ñ Γ¿»«ó). ä½∩ Γ«ú«, τΓ«íδ »α«¿ºóÑßΓ¿ »«óΓ«α¡«Ñ «Γ«íαáªÑ¡¿Ñ ΓÑ¬πΘÑú« º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ ó »«½Ñ Result, óÑα¡¿ΓÑß∞ «íαáΓ¡« ó »«½Ñ Evaluate ¿ ¡áª¼¿ΓÑ ¡á ¬½áó¿Φπ Enter. àß½¿ óóÑñÑ¡¡«Ñ óδαáªÑ¡¿Ñ ñáÑΓ º¡áτÑ¡¿Ñ, óδσ«ñ∩ΘÑÑ ºá ñ«»πßΓ¿¼δ⌐ ñ¿»áº«¡, (¡á»α¿¼Ñα, Ñß½¿ óóÑßΓ¿ º¡áτÑ¡¿Ñ 50,000 ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ Γ¿»á Integer), Γ« ó »«½Ñ Result íπñÑΓ «Γ«íαáªáΓ∞ß∩ ß««íΘÑ¡¿Ñ: Constant out of range (¬«¡ßΓá¡Γá óδσ«ñ¿Γ ºá ñ«»πßΓ¿¼δ⌐ ñ¿á»áº«¡). Æ« ªÑ ßá¼«Ñ íπñÑΓ »α«¿ßσ«ñ¿Γ∞, Ñß½¿ éδ ºáñáÑΓÑ φ½Ñ¼Ñ¡Γ ¼áßß¿óá, ¿¡ñÑ¬ß ¬«Γ«α«ú« ¡áσ«ñ¿Γß∩ ó¡Ñ «í½áßΓ¿ º¡áτÑ¡¿⌐ ¿¡ñÑ¬ß«ó. àß½¿ óóÑñÑ¡¡«Ñ ó »«½Ñ New Value óδαáªÑ¡¿Ñ ∩ó½∩ÑΓß∩ óδαáªÑ¡¿Ñ¼, ¬«Γ«α«Ñ ¡Ñ ¼«ªÑΓ íδΓ∞ »α¿ßó«Ñ¡«, Γ« ó »«½Ñ Result »«∩ó¿Γß∩ ß««íΘÑ¡¿Ñ: Cannot evaluate this exspression (¡Ñó«º¼«ª¡« óδτ¿ß½¿Γ∞ óδαáªÑ¡¿Ñ). Æá¬¿Ñ óδαáªÑ¡¿∩ ó¬½ετáεΓ ¼áßß¿óδ, ºá»¿ß¿, ¼¡«ªÑßΓóá ¿ Σá⌐½δ. Ç¡á½«ú¿τ¡«, Ñß½¿ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ óδαáªÑ¡¿Ñ ¿º »«½∩ Evaluate ¡Ñ ¼«ªÑΓ íδΓ∞ ¼«ñ¿Σ¿µ¿α«óá¡« (óÑß∞ ¼áßß¿ó, ºá»¿ß∞, ¼¡«ªÑßΓó« ¿½¿ Σá⌐½), Γ« »«»δΓ¬á »α¿ßó«¿Γ∞ Ñ¼π º¡áτÑ¡¿Ñ íπñÑΓ óδºδóáΓ∞ ß««íΘÑ¡¿Ñ: Cannot be modified (¼«ñ¿Σ¿¬áµ¿∩ ¡Ñó«º¼«ª¡á). ùΓ« ¼«ª¡« ¼«ñ¿Σ¿µ¿α«óáΓ∞? ÄíαáΓ¿ΓÑß∞ ¬ Γáí½¿µÑ 5.1, úñÑ »α¿ó«ñ¿Γß∩ ß»¿ß«¬ óßÑσ ¬«¼»«¡Ñ¡Γ ¿ ¿σ ñ«»πßΓ¿¼δσ º¡áτÑ¡¿⌐, ¬«Γ«αδÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó Watch óδαáªÑ¡¿∩σ. Å«¼¡¿ΓÑ, τΓ« óδαáªÑ¡¿∩ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ Γ«½∞¬« óßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿, »ÑαÑτ¿ß½Ñ¡¡δÑ ¬á¬ ñ«ßΓπ»¡δÑ ñ½∩ Watch óδαáªÑ¡¿⌐ ó Γáí½¿µÑ 5.1. Æá¬ªÑ ¡Ñ«íσ«ñ¿¼« »«¼¡¿Γ∞ ß½ÑñπεΘÑÑ: - ìÑ½∞º∩ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ¼áßß¿óδ, ºá»¿ß¿ ¿½¿ Σá⌐½δ »«½¡«ßΓ∞ε. Äñ¡á¬«, éδ ¼«ªÑΓÑ ¼«ñ¿Σ¿µ¿α«óáΓ∞ «ΓñÑ½∞¡δÑ φ½Ñ¼Ñ¡Γδ ¿½¿ ºá»¿ß¿, ¬«Γ«αδÑ αáºαÑΦáεΓß∩ ó «ñ¿¡ ¿º Γ¿»«ó, »ÑαÑτ¿ß½Ñ¡¡δσ ó Γáí½¿µÑ 5.1, »α¿ πß½«ó¿¿, τΓ« «¡¿ ßá¼¿ ¡Ñ ∩ó½∩εΓß∩ ¼áßß¿óá¼¿ ¿½¿ ºá»¿ß∩¼¿. - ìÑ½∞º∩ «ßπΘÑßΓó¿Γ∞ »α∩¼πε ¼«ñ¿Σ¿¬áµ¿ε ¡ÑΓ¿»¿α«óá¡¡δσ »áαá¼ÑΓα«ó, »ÑαÑñáóáÑ¼δσ ó »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε. Äñ¡á¬«, éδ ¼«ªÑΓÑ «ßπΘÑßΓó¿Γ∞ ñ½∩ ¡¿σ »α¿óÑñÑ¡¿Ñ Γ¿»á ¬ ñá¡¡«¼π Γ¿»π, á ºáΓÑ¼ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ¿σ, ß«ú½áß¡« «úαá¡¿τÑ¡¿∩¼, ¬«Γ«αδÑ πªÑ »α¿ó«ñ¿½¿ß∞. - ìÑ ºáíδóá⌐ΓÑ, τΓ« »α¿ ¼«ñ¿Σ¿¬áµ¿¿ »ÑαÑ¼Ñ¡¡δσ ßπΘÑßΓóπÑΓ «»αÑñÑ½Ñ¡¡á∩ «»áß¡«ßΓ∞. ìá»α¿¼Ñα, Ñß½¿ éδ ¿º¼Ñ¡∩ÑΓÑ π¬áºáΓÑ½∞, Γ« φΓ« ¼«ªÑΓ »α¿óÑßΓ¿ ¬ Γá¬¿¼ ¿º¼Ñ¡Ñ¡¿∩¼ ó »á¼∩Γ¿, ¬«Γ«αδÑ ¡Ñ »«ñαáºπ¼Ñóá½¿ß∞, ó«º¼«ª¡«, ñáªÑ »α«¿º«⌐ñÑΓ ¿º¼Ñ¡Ñ¡¿Ñ ñαπú¿σ »ÑαÑ¼Ñ¡¡δσ ¿ ßΓαπ¬Γπα ñá¡¡δσ. Å«¿ß¬. è«úñá »α«¿ºó«ñ¿Γß∩ «Γ½áñ¬á í«½∞Φ«⌐ »α«úαá¼¼δ, «ß«íÑ¡¡« ß«ßΓ«∩ΘÑ⌐ ¿º ¡Ñß¬«½∞¬¿σ ¼«ñπ½Ñ⌐, éδ ¼«ªÑΓÑ »ÑαÑßΓáΓ∞ »«¡¿¼áΓ∞ ¿½¿, »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ, Γá¬ πú½πí¿Γ∞ß∩, τΓ« ¡Ñ íπñÑΓÑ »«¡¿¼áΓ∞, ¬á¬ ½πτΦÑ ñ«ßΓ¿ú¡πΓ∞ ΓαÑíπÑ¼«ú« ¼ÑßΓá »α«úαá¼¼δ. ùΓ«íδ »«¼«τ∞ éáΦÑ¼π »α«ñó¿ªÑ¡¿ε »« »α«úαá¼¼Ñ, «Γ½áñτ¿¬ »αÑñ½áúáÑΓ ñóÑ ¬«¼á¡ñδ: Window/Call Stack ¿ Search/Find Procedure. æΓÑ¬ óδº«ó«ó. èáªñδ⌐ αáº »α¿ óδº«óÑ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ Turbo Pascal ºá»«¼¿¡áÑΓ óδº«ó ¿ »áαá¼ÑΓαδ, »ÑαÑñá¡¡δÑ φΓ«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿. è«úñá éδ óδσ«ñ¿ΓÑ ¿º »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, Γ« óδº«ó óδΓá½¬¿óáÑΓß∩ ¿º ßΓÑ¬á ¿ »α«¿ßσ«ñ¿Γ ó«ºóαáΓ ó óδºδóáεΘπε »α«úαá¼¼π. àß½¿ óδ»«½¡Ñ¡¿Ñ éáΦÑ⌐ »α«úαá¼¼δ »αÑαδóáÑΓß∩ ¿º-ºá Γ«τ¬¿ »αÑαδóá¡¿∩ ¿½¿ »« ¬«¼á¡ñÑ »«Φáú«ó«ú« óδ»«½¡Ñ¡¿∩, éδ ¼«ªÑΓÑ ºá»α«ß¿Γ∞ »α«ß¼«Γα ΓÑ¬πΘÑú« ßΓÑ¬á óδº«óá, ¿ß»«½∞ºπ∩ ¬«¼á¡ñπ Window/ Call Stack (Ctrl-F3). Åα¿ φΓ«¼ ¡Ñ¼Ññ½Ñ¡¡« ó«º¡¿¬áÑΓ «¬¡«, ó ¬«Γ«α«¼ «Γ«íαáªáÑΓß∩ ß»¿ß«¬ óδº«ó«ó »α«µÑñπα/Σπ¡¬µ¿⌐, ∩ó½∩εΘ¿σß∩ á¬Γ¿ó¡δ¼¿ ó ßΓÑ¬Ñ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ. æΓÑ¬ óδº«óá óδ»«½¡∩ÑΓ ÑΘÑ ¿ ñαπúπε óáª¡πε Σπ¡¬µ¿ε: «¡ »«ºó«½∩ÑΓ »α«ß½Ñª¿óáΓ∞ ó «íαáΓ¡«¼ »«α∩ñ¬Ñ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ óδº«ó«ó. è«úñá éδ óδºδóáÑΓÑ ßΓÑ¬ »Ñαóδ⌐ αáº, Γ« »«ñßóÑτ¿óáÑΓß∩ ßá¼δ⌐ óÑασ¡¿⌐ óδº«ó. ä½∩ »ÑαÑ¼ÑΘÑ¡¿∩ »« ßΓÑ¬π óóÑασ ¿½¿ ó¡¿º ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¬½áó¿Φ¿ ß« ßΓαÑ½¬á¼¿. ìáªáó »α«íÑ½, éδ íπñÑΓÑ ó«ºóαáΘáΓ∞ß∩ ó »«ß½Ññ¡εε á¬Γ¿ó¡πε Γ«τ¬π ó¡πΓα¿ ñá¡¡«⌐ »α«úαá¼¼δ ¿½¿ »«ñ»α«úαá¼¼δ. é ¬áτÑßΓóÑ »α¿¼Ñαá αáßß¼«Γα¿¼ »α«úαá¼¼π TESTPOWER.PAS: program TestPower; function Power(Base,Exp:word):longint; begin if Exp<=0 then Power:=1 else Power:=Base*Power(Base,Exp-1) end;(of func Power) begin(main body of TestPower) Writeln('2^14=',Power(2,14)) end.{of program TestPower} è«¼»¿½¿απ⌐ΓÑ TESTPOWER.PAS, πßΓá¡«ó¿ΓÑ Γ«τ¬π »αÑαδóá¡¿∩ ¡á óΓ«α«⌐ ßΓα«¬Ñ Σπ¡¬µ¿¿ Power (ßΓα«¬á Power:=1). ÆÑ»Ñα∞ óδ»«½¡¿ΓÑ »α«úαá¼¼π. è«úñá «¡á ßñÑ½áÑΓ «ßΓá¡«ó¬π, óδ»«½¡¿ΓÑ ¬«¼á¡ñπ Window/Call Stack. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ßΓαÑ½¬¿ ° ¿ ∙ ñ½∩ »ÑαÑñó¿ªÑ¡¿∩ τÑαÑº óδº«óδ. æΓÑ¬ óδº«ó«ó σαá¡¿Γ ñ« 128 ó½«ªÑ¡¡δσ óδº«ó«ó. Åα¿¼Ñτá¡¿Ñ: ìá CGA «Γ«íαáªáÑΓß∩ 9 óδº«ó«ó, ¡á Hercules, EGA, VGA «Γ«íαáªáεΓß∩ 12 óδº«ó«ó. Å«¿ß¬ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. ê¡«úñá, ó »α«µÑßßÑ «Γ½áñ¬¿, ΓαÑíπÑΓß∩ ¡á⌐Γ¿ «»αÑñÑ½Ñ¡¡πε »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ñ½∩ Γ«ú«, τΓ«íδ πßΓá¡«ó¿Γ∞ Γ«τ¬π »αÑαδóá¡¿∩, óδ»«½¡¿Γ∞ »α«úαá¼¼π ñ« φΓ«⌐ Γ«τ¬¿, »α«óÑα¿Γ∞ ß»¿ß«¬ »áαá¼ÑΓα«ó, »α«ß¼«ΓαÑΓ∞ »ÑαÑ¼Ñ¡¡δÑ ¿½¿ »« α∩ñπ ñαπú¿σ »α¿τ¿¡. àß½¿ ¿ßσ«ñ¡δ⌐ ¬«ñ αáºñÑ½Ñ¡ ¡á ¡Ñß¬«½∞¬« Σá⌐½«ó, Γ« ΓαÑíπÑΓß∩ ¬«¼á¡ñá Search/Find Procedure. è«úñá éδ óδ»«½¡∩ÑΓÑ φΓπ ¬«¼á¡ñπ, »«∩ó½∩ÑΓß∩ ¡Ñí«½∞Φ«Ñ «¬¡«, »αÑñ½áúáεΘÑÑ óóÑßΓ¿ ¿¼∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Å«ß½Ñ Γ«ú«, ¬á¬ éδ ¡áíÑαÑΓÑ Ñú« ¿ ¡áª¼ÑΓÑ ¡á ¬½áó¿Φπ Enter, Turbo Pascal »α«óÑα∩ÑΓ ßó«¿ ó¡πΓαÑ¡¡¿Ñ Γáí½¿µδ ¿ ¡áσ«ñ¿Γ ¼ÑßΓ«, úñÑ αáß»«½áúáÑΓß∩ ºáñá¡¡á∩ »«ñ»α«úαá¼¼á, ºáúαπªáÑΓ ß««ΓóÑΓßΓóπεΘ¿⌐ ¿ßσ«ñ¡δ⌐ Σá⌐½ (Ñß½¿ ¡Ñ«íσ«ñ¿¼«) ¿ »ÑαÑó«ñ¿Γ éáß ó «¬¡« Edit, »α¿ φΓ«¼ ¬παß«α »«º¿µ¿«¡¿απÑΓß∩ ¡á ¡áτá½Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Åα¿ ¿ß»«½∞º«óá¡¿¿ ¬«¼á¡ñδ Search/Find Procedure ¡Ñ«íσ«ñ¿¼« »«¼¡¿Γ∞ « ß½ÑñπεΘÑ¼: - è«¼á¡ñá Find Procedure ¡Ñ ó½¿∩ÑΓ ¡á ΓÑ¬πΘÑÑ ß«ßΓ«∩¡¿Ñ «Γ½áñ¬¿. äαπú¿¼¿ ß½«óá¼¿, Ñß½¿ éδ αá¡ÑÑ «ßΓá¡áó½¿óá½¿ß∞ ó ¡Ñ¬«Γ«α«⌐ Γ«τ¬Ñ »α«úαá¼¼δ, éδ íπñÑΓÑ »α«ñ«½ªáΓ∞ ¡áσ«ñ¿Γ∞ß∩ ó φΓ«⌐ Γ«τ¬Ñ, ¿ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ Run/Trace Into (F7) íπñÑΓ »α¿ó«ñ¿Γ∞ ¬ óδ»«½¡Ñ¡¿ε φΓ«⌐ ΓÑ¬πΘÑ⌐ ßΓα«¬¿ »α«úαá¼¼δ, á ¡Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, τ∞Ñ ¼ÑßΓ«»«½«ªÑ¡¿Ñ éδ Γ«½∞¬« τΓ« «»αÑñÑ½¿½¿. - è«¼á¡ñá Find Procedure αáº¼ÑΘáÑΓ ¬παß«α ¡á »Ñαó«⌐ óδ»«½¡¿¼«⌐ ßΓα«¬Ñ φΓ«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, á ¡Ñ ¡á ¿σ ºáú«½«ó¬áσ. ¥Γ« «º¡áτáÑΓ, τΓ« éδ ¼«ªÑΓÑ óδ»«½¡¿Γ∞ ¬«¼á¡ñπ Run/Go to Cursor (F4), τΓ«íδ »α«úαá¼¼á óδ»«½¡∩½áß∞ «Γ ΓÑ¬πΘÑ⌐ ßΓα«¬¿ ñ« ¡áτá½á ¡á⌐ñÑ¡¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. - éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ φΓπ ¬«¼á¡ñπ Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ »α«úαá¼¼á íδ½á «Γ¬«¼»¿½¿α«óá¡á, ¿ Ñß½¿ ¿¡Σ«α¼áµ¿∩ «Γ½áñ¬¿ ñ«ßΓπ»¡á ñ½∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Åα¿ óδ»«½¡Ñ¡¿¿ ¬«¼á¡ñδ Find Procedure ¼«ªÑΓ ó«º¡¿¬¡πΓ∞ ¡Ñ«»αÑñÑ½Ñ¡¡«ßΓ∞ »α¿ ºáñá¡¿¿ ¿¼Ñ¡¿, Γá¬ ¬á¬ ó«º¼«ª¡« ¡á½¿τ¿Ñ »«ñ»α«úαá¼¼ ß «ñ¡¿¼ ¿ ΓÑ¼ ªÑ ¿¼Ñ¡Ñ¼ ó αáº½¿τ¡δσ ¼ÑßΓáσ éáΦÑ⌐ »α«úαá¼¼δ (ó ¼«ñπ½∩σ, ó¡πΓα¿ ñαπú¿σ »α«úαá¼¼ ¿ Γ.ñ.). éδ ¼«ªÑΓÑ πΓ«τ¡∩Γ∞ ¿¼∩ »«ñ»α«úαá¼¼δ, »αÑñó«α∩∩ Ñú« ¿¼Ñ¡Ñ¼ ¼«ñπ½∩ ¿½¿ »«ñ»α«úαá¼¼δ, ß«ñÑαªáΘÑ⌐ Ñú«, á Γá¬ªÑ ¿¼Ñ¡Ñ¼ ½εí«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ó¬½ετáεΘÑ⌐ φΓπ »α«úαá¼¼π. ìá»α¿¼Ñα, module.proc.<ets.>.proc. àß½¿ éδ ¼«ñ¿Σ¿µ¿απÑΓÑ ¿ßσ«ñ¡δ⌐ ¬«ñ ¿ ¼ÑßΓ«»«½«ªÑ¡¿Ñ Σá⌐½á (¿½¿ ñáªÑ ¿¼∩), »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¿º¼Ñ¡¿½¿ß∞, ¬«¼á¡ñá Search/Find Procedure ¡Ñ ó«ß»α¿¡¿¼áÑΓ φΓ¿ ¿º¼Ñ¡Ñ¡¿∩ ñ« »ÑαÑ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ. àß½¿ éδ ß¡áτá½á ¬«¼»¿½¿απÑΓÑ »α«úαá¼¼π TestPower (ß¼. αáºñÑ½ "æΓÑ¬ óδº«ó«ó"), ºáΓÑ¼ πñá½∩ÑΓÑ »πßΓπε ßΓα«¬π, ¬«Γ«αá∩ αáß»«½áúáÑΓß∩ ¡áñ «íΩ∩ó½Ñ¡¿Ñ¼ Σπ¡¬µ¿¿ Power, ¬«¼á¡ñá Search/Find Procedure αáß»«½«ª¿Γ ¬παß«α ¡á «»ÑαáΓ«αÑ if...then ó¼ÑßΓ« «»ÑαáΓ«αá begin. ÄíΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡á∩ «Γ½áñ¬á. Åα¿¼Ñτá¡¿Ñ: éá¼ ¡Ñ ¡πª¡« ñÑ½áΓ∞ ¡¿¬á¬«⌐ ß»Ñµ¿á½∞¡«⌐ »«ñú«Γ«ó¬¿ ñ½∩ «Γ½áñ¬¿ «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡δσ »α«úαá¼¼. Éáí«Γá ß «íΩÑ¬Γá¼¿ ó IDE ó¬½ετáÑΓ ñóÑ Σπ¡¬µ¿«¡á½∞¡δσ ó«º¼«ª¡«ßΓ¿: »«Φáú«óá∩ «Γ½áñ¬á ¿ Γαáßß¿α«ó¬á óδº«ó«ó ¼ÑΓ«ñ«ó, ¿ »α«óÑα¬á »«½Ñ⌐ «íΩÑ¬Γ«ó. ê¡ΓÑúα¿α«óá¡¡á∩ «Γ½áñ¬á »«¡¿¼áÑΓ «íΩÑ¬Γδ ¿ π»αáó½∩ÑΓ ¿¼¿ áóΓ«¼áΓ¿τÑß¬¿ ó Γá¬«¼ ªÑ ßΓ¿½Ñ, ¬á¬ π»αáó½∩ÑΓ «Γ½áñ¬«⌐ »α«µÑñπα ¿ ºá»¿ßÑ⌐. Å«Φáú«óá∩ «Γ½áñ¬á ¿ Γαáßß¿α«ó¬á ¼ÑΓ«ñ«ó. éδº«ó ¼ÑΓ«ñá «íαáíáΓδóáÑΓß∩ IDE, ¬á¬ óδº«ó «íδτ¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. ìáªáΓ¿Ñ F8 (Step Over) «íαáíáΓδóáÑΓ óδº«ó ¼ÑΓ«ñá ¬á¬ ¡Ñó¿ñ¿¼δ⌐ í½«¬ ¿ óδ»«½¡∩ÑΓ Ñú« íÑº «Γ«íαáªÑ¡¿∩ ó¡πΓαÑ¡¡Ñú« ¬«ñá ¼ÑΓ«ñá; ó Γ« óαÑ¼∩, ¬á¬ ¡áªáΓ¿Ñ F7 (Trace Into) ºáúαπªáÑΓ ¬«ñ ¼ÑΓ«ñá, Ñß½¿ «¡ ñ«ßΓπ»Ñ¡ ¿ Γαáßß¿απÑΓ «»ÑαáΓ«αδ ¼ÑΓ«ñá. ìÑΓ «Γ½¿τ¿⌐ ¼Ñªñπ Γαáßß¿α«ó¬«⌐ óδº«ó«ó ßΓáΓ¿τÑß¬¿σ ¼ÑΓ«ñ«ó ¿ Γαáßß¿α«ó¬«⌐ óδº«ó«ó ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó. éδº«ó ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá αáºαÑΦáÑΓß∩ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ, ¿, Γá¬ ¬á¬ «Γ½áñ¬á »α«¿ßσ«ñ¿Γ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩, ºñÑß∞ ¡ÑΓ ¡Ñ∩ß¡«ßΓ¿ ¿ óßΓα«Ñ¡¡δ⌐ «Γ½áñτ¿¬ óßÑúñá º¡áÑΓ ¬á¬«⌐ ¿¼Ñ¡¡« ¼ÑΓ«ñ íπñÑΓ óδºδóáΓ∞ß∩ ßÑ⌐τáß. Ä¬¡« Call Stack «Γ«íαáªáÑΓ ¿¼Ñ¡á ¼ÑΓ«ñ«ó ß »αÑñΦÑßΓóπεΘ¿¼¿ Γ¿»á¼¿ «íΩÑ¬Γ«ó, ¬«Γ«αδÑ «»αÑñÑ½∩½¿ φΓ¿ ¼ÑΓ«ñδ (¡á»α¿¼Ñα: Circle.Init, á ¡Ñ »α«ßΓ« Init). ÄíΩÑ¬Γδ ó «¬¡Ñ Evaluate. ÄíΩÑ¬Γδ «Γ«íαáªáεΓß∩ ó «¬¡Ñ Evaluate/Modify ó ßΓ¿½Ñ, »«ñ«í¡«¼ «Γ«íαáªÑ¡¿ε ºá»¿ßÑ⌐. ÉáºαÑΦáεΓß∩ óßÑ ΓÑ ªÑ ß»Ñµ¿Σ¿¬áΓ«αδ Σ«α¼áΓá. ê óßÑ óδαáªÑ¡¿∩, ñ«»πßΓ¿¼δÑ ñ½∩ ºá»¿ßÑ⌐, ñ«»πßΓ¿¼δ ¿ ñ½∩ «íΩÑ¬Γ«ó. è«úñá ¿¼∩ «íΩÑ¬Γá ¡áσ«ñ¿Γß∩ ó «¬¡Ñ Evaluate, íπñπΓ «Γ«íαáªáΓ∞ß∩ Γ«½∞¬« »«½∩ ñá¡¡δσ. Äñ¡á¬«, ¬«úñá óδτ¿ß½∩ÑΓß∩ ¿¼∩ π¬áºá¡¡«ú« ¼ÑΓ«ñá, ¡á»α¿¼Ñα ACircle.MoveTo º¡áτÑ¡¿Ñ «Γ«íαáªÑ¡¡«ú« π¬áºáΓÑ½∩ ∩ó½∩ÑΓß∩ áñαÑß«¼ ¬«ñá ¼ÑΓ«ñá. ¥Γ« ß»αáóÑñ½¿ó« ¿ ñ½∩ ßΓáΓ¿τÑß¬¿σ, ¿ ñ½∩ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó. ê¡ΓÑúα¿α«óá¡¡δ⌐ «Γ½áñτ¿¬ π»αáó½∩ÑΓ ó¿αΓπá½∞¡δ¼ ¼ÑΓ«ñ«¼ »«ßαÑñßΓó«¼ »α«ß¼«Γαá Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó (VMT), ¿ áñαÑß ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá ñ½∩ ñá¡¡«ú« φ¬ºÑ¼»½∩αá «íΩÑ¬Γá ñáÑΓ áñαÑß ¬«ñá ¼ÑΓ«ñá ñ½∩ φΓ«ú« φ¬ºÑ¼»½∩αá. è«úñá ¿ñÑΓ Γαáßß¿α«ó¬á ó¡πΓα¿ ¼ÑΓ«ñá, IDE º¡áÑΓ ßΣÑαπ ñÑ⌐ßΓó¿∩ »áαá¼ÑΓαá Self. éδ ¼«ªÑΓÑ óδτ¿ß½¿Γ∞ ¿½¿ »α«ß¼«ΓαÑΓ∞ Self, á Γá¬ ªÑ π¬áºáΓ∞ Self ß« ß»Ñµ¿Σ¿¬áΓ«αá¼¿ Σ«α¼áΓá ¿ ß ¬óá½¿Σ¿¬áΓ«αá¼¿ »«½Ñ⌐ ¿½¿ ¼ÑΓ«ñ«ó. éδαáªÑ¡¿∩ ó ¬«¼á¡ñÑ Find Procedure. Turbo Pascal αáºαÑΦáÑΓ óδαáªÑ¡¿Ñ ó ¬«¼á¡ñÑ Find Procedure (¼Ñ¡ε Search). ä½∩ Γ«ú«, τΓ«íδ íδΓ∞ »αáó¿½∞¡δ¼, óδαáªÑ¡¿Ñ ñ«½ª¡« óδτ¿ß½∩Γ∞ß∩ ó áñαÑß ó ßÑú¼Ñ¡ΓÑ ¬«ñá. çá¼ÑΓ¿¼, τΓ« φΓ« »α¿¼Ñ¡¿¼« ¬ »áαá¼ÑΓαá¼ ¿ »ÑαÑ¼Ñ¡¡δ¼ Γ¿»á »α«µÑñπαδ, á ¡Ñ Γ«½∞¬« ¬ ¼ÑΓ«ñá¼ «íΩÑ¬Γá. ÄíΘ¿Ñ ó«»α«ßδ. éδ ¿ºπτ¿½¿ ¬á¬ ¿ß»«½∞º«óáΓ∞ «Γ½áñτ¿¬, ñáóá⌐ΓÑ αáßß¼«Γα¿¼ ¡Ñ¬«Γ«αδÑ ó«»α«ßδ, ¬«Γ«αδÑ ¼«úπΓ ó«º¡¿¬¡πΓ∞ ó »α«µÑßßÑ «Γ½áñ¬¿. èá¬ »¿ßáΓ∞ »α«úαá¼¼δ ñ½∩ «Γ½áñ¬¿. æπΘÑßΓóπÑΓ α∩ñ »α«ßΓδσ óÑΘÑ⌐, ¬«Γ«αδÑ ¼«úπΓ «í½Ñúτ¿Γ∞ «Γ½áñ¬π éáΦÑ⌐ »α«úαá¼¼δ. ä½∩ í«½∞Φ¿¡ßΓóá ß½πτáÑó ß»αáóÑñ½¿ó« Γ«, τΓ« ¡Ñ ß½ÑñπÑΓ αáß»«½áúáΓ∞ ¡á «ñ¡«⌐ ßΓα«¬Ñ »α«úαá¼¼δ í«½ÑÑ «ñ¡«ú« «»ÑαáΓ«αá. Æá¬ ¬á¬ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ó »α«µÑßßÑ «Γ½áñ¬¿ »α«¿ßσ«ñ¿Γ ßΓα«¬á ºá ßΓα«¬«⌐, φΓ« ΓαÑí«óá¡¿Ñ íπñÑΓ «íÑß»Ñτ¿óáΓ∞ óδ»«½¡Ñ¡¿Ñ ¡Ñ í«½ÑÑ «ñ¡«ú« «»ÑαáΓ«αá ¬áªñδ⌐ αáº, ¬«úñá éδ ¡áª¿¼áÑΓÑ ¬½áó¿Φπ F7. é Γ« ªÑ óαÑ¼∩ ñ«»πß¬áεΓß∩ ¿ ß½πτá¿, ¬«úñá ¼«ª¡« αáº¼ÑßΓ¿Γ∞ ¡á ßΓα«¬Ñ ¡Ñß¬«½∞¬« «»ÑαáΓ«α«ó. àß½¿ ÑßΓ∞ ß»¿ß«¬ «»ÑαáΓ«α«ó, ¬«Γ«αδÑ ¡πª¡« óδ»«½¡¿Γ∞, ¡« ¬«Γ«αδÑ Σá¬Γ¿τÑß¬¿ ¡Ñ ¿¼ÑεΓ «Γ¡«ΦÑ¡¿∩ ¬ «Γ½áñ¬Ñ, Γ« éδ ¼«ªÑΓÑ »α«¿ºó«½∞¡« αáß»«½áúáΓ∞ ¿σ ¡á «ñ¡«⌐ ¿½¿ ñóπσ ßΓα«¬áσ Γá¬, τΓ«íδ ¿σ ¼«ª¡« íδ½« íδßΓαÑÑ »α«⌐Γ¿ »α¿ »«Φáú«ó«¼ óδ»«½¡Ñ¡¿¿. é«Γ »«τÑ¼π ó «ñ¡«¼ ¿º αá¡ÑÑ »α¿óÑñÑ¡¡δσ »α¿¼Ñα«ó ¼δ ¡á»¿ßá½¿: W:=10;X:=20;Y:=30;Z:=40; ó¼ÑßΓ« W:=10; X:=20; Y:=30; Z:=40; éá¼ Γá¬ªÑ ¼«ªÑΓÑ αáß»«½áúáΓ∞ «íΩ∩ó½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡δσ Γá¬, τΓ«íδ «»ÑαáΓ«αδ «íΩ∩ó½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡δσ, ¬«Γ«αδÑ, óÑα«∩Γ¡«, íπñπΓ αáº¼ÑΘáΓ∞ß∩ ó «¬¡Ñ Watch, íδ½¿ íδ í½¿ªá⌐Φ¿¼¿ ¬ »Ñαó«¡áτá½∞¡«¼π «»ÑαáΓ«απ begin »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. è«úñá éδ Γαáßß¿απÑΓÑ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε, éδ ¼«ªÑΓÑ íδßΓα« »ÑαÑ¼ÑΘáΓ∞ ¬παß«α »« ß»¿ß¬π, ¿ß»«½∞ºπ∩ ¬«¼á¡ñπ Add Watch (Ctrl-F7) ñ½∩ ñ«íáó½Ñ¡¿∩ ¬áªñ«⌐ »ÑαÑ¼Ñ¡¡«⌐ ó «¬¡« Watch. Å«ñ«í¡δ¼ «íαáº«¼, »α¿ ¡á½¿τ¿¿ óδαáªÑ¡¿⌐, º¡áτÑ¡¿∩ ¬«Γ«αδσ ó «»αÑñÑ½Ñ¡¡δσ Γ«τ¬áσ »α«úαá¼¼δ éδ σ«Γ¿ΓÑ αáº¼ÑßΓ¿Γ∞ ó «¬¡Ñ Watch ¿½¿ óδτ¿ß½¿Γ∞, óßΓáó½∩⌐ΓÑ ¿σ ¬á¬ ¬«¼¼Ñ¡Γáα¿¿. è«úñá éδ ñ«ßΓ¿ú¡ÑΓÑ Γá¬«⌐ Γ«τ¬¿, éδ ¼«ªÑΓÑ »ÑαÑñó¿¡πΓ∞ ¬παß«α ó ¡áτá½« óδαáªÑ¡¿∩ ¿ ß¬«»¿α«óáΓ∞ Ñú« ó «¬¡« Add Watch ¿½¿ Evaluate/Modify. ¥Γ« «ß«íÑ¡¡« »«½Ñº¡« ó ß½πτáÑ ß½«ª¡«ú« óδαáªÑ¡¿∩, ó¬½ετáεΘÑú« »α¿óÑñÑ¡¿Ñ Γ¿»«ó, ß¿¼ó«½á Σ«α¼áΓá, φ½Ñ¼Ñ¡Γá ¼áßß¿óá ¿½¿ »«½∩ ºá»¿ß¿. é ¬«¡µÑ ¬«¡µ«ó ½πτΦÑ⌐ «Γ½áñ¬«⌐ ∩ó½∩ÑΓß∩ »α«Σ¿½á¬Γ¿τÑß¬á∩ «Γ½áñ¬á. ò«α«Φ« αáºαáí«Γá¡¡á∩, ∩ß¡« ¡á»¿ßá¡¡á∩ »α«úαá¼¼á ¼«ªÑΓ ¿¼ÑΓ∞ ¡Ñ Γ«½∞¬« ¡Ñ¼¡«ú« «Φ¿í«¬, ¡« ¿ íπñÑΓ «í½ÑúτáΓ∞ ñ½∩ éáß Γαáßß¿α«ó¬π ¿ Σ¿¬ßáµ¿ε ¼ÑßΓ«»«½«ªÑ¡¿∩ φΓ¿σ «Φ¿í«¬. æπΘÑßΓóπÑΓ ¡Ñß¬«½∞¬« «ß¡«ó¡δσ »«½«ªÑ¡¿⌐, « ¬«Γ«αδσ ß½ÑñπÑΓ »«¼¡¿Γ∞ »α¿ ß«ßΓáó½Ñ¡¿¿ »α«úαá¼¼δ: - »α«úαá¼¼¿απ⌐ΓÑ ß »«ßΓÑ»Ñ¡¡δ¼ ¡áαáΘ¿óá¡¿Ñ¼. Åα¿ ó«º¼«ª¡«ßΓ¿ ¬«ñ¿απ⌐ΓÑ ¿ «Γ½áª¿óá⌐ΓÑ »α«úαá¼¼π ¡Ñí«½∞Φ¿¼¿ ßÑ¬µ¿∩¼¿. Åα«αáíáΓδóá⌐ΓÑ ¬áªñπε ßÑ¬µ¿ε ñ« ¬«¡µá »αÑªñÑ τÑ¼ »ÑαÑσ«ñ¿Γ∞ ¬ ß½ÑñπεΘÑ⌐; - αáºí¿óá⌐ΓÑ »α«úαá¼¼π ¡á τáßΓ¿: ¼«ñπ½¿, »α«µÑñπαδ, Σπ¡¬µ¿¿. êºíÑúá⌐ΓÑ »«ßΓα«Ñ¡¿∩ »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐, αáº¼Ñα ¬«Γ«αδσ í«½∞ΦÑ 25 ßΓα«¬, ó »α«Γ¿ó¡«¼ ß½πτáÑ αáºí¿óá⌐ΓÑ ¿σ ¡á ¡Ñß¬«½∞¬« í«½ÑÑ ¼Ñ¡∞Φ¿σ »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐; - ßΓáαá⌐ΓÑß∞ »ÑαÑñáóáΓ∞ ¿¡Σ«α¼áµ¿ε Γ«½∞¬« τÑαÑº »áαá¼ÑΓαδ, ó¼ÑßΓ« ¿ß»«½∞º«óá¡¿∩ ú½«íá½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ó¡πΓα¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. ¥Γ« »«¼«ªÑΓ éá¼ ¿ºíÑªáΓ∞ »«í«τ¡δσ ∩ó½Ñ¡¿⌐ ¿ «í½Ñúτ¿Γ «Γ½áñ¬π »α«úαá¼¼δ, Γá¬ ¬á¬ éδ ß¼«ªÑΓÑ ½Ñú¬« »α«ß½Ñª¿óáΓ∞ óßε ¿¡Σ«α¼áµ¿ε, óσ«ñ∩Θπε ¿ óδσ«ñ∩Θπε ¿º ºáñá¡¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿; - ¡Ñ Γ«α«»¿ΓÑß∞. æ«ßαÑñ«Γ«τ∞ΓÑ ñÑ⌐ßΓó¿∩ ¡á Γ«¼, τΓ«íδ »α«úαá¼¼á αáí«Γá½á »αáó¿½∞¡«, »αÑªñÑ τÑ¼ »αÑñ»α¿¡¿¼áΓ∞ Φáú¿ »« πß¬«αÑ¡¿ε ÑÑ αáí«Γδ. é«»α«ßδ, ßó∩ºá¡¡δÑ ß »á¼∩Γ∞ε. Åα¿ «Γ½áñ¬Ñ í«½∞Φ¿σ »α«úαá¼¼ ¼«ªÑΓ ó«º¡¿¬¡πΓ∞ ¡ÑσóáΓ¬á »á¼∩Γ¿. Turbo Pascal «ñ¡«óαÑ¼Ñ¡¡« σαá¡¿Γ ó »á¼∩Γ¿ αÑñá¬Γ«α, ¬«¼»¿½∩Γ«α, «Γ½áñτ¿¬, ΓÑ¬πΘ¿⌐ Σá⌐½ ¿ßσ«ñ¡«ú« ¬«ñá, óδ»«½¡∩Ñ¼δ⌐ ¬«ñ ¿ Γáí½¿µδ ß¿¼ó«½«ó, á Γá¬ªÑ ñαπúπε «Γ½áñ«τ¡πε ¿¡Σ«α¼áµ¿ε. éδ ¼«ªÑΓÑ π»αáó½∩Γ∞ «íΩÑ¼«¼ ßó«í«ñ¡«⌐ »á¼∩Γ¿, ¿ß»«½∞ºπ∩ ¬«¼á¡ñπ File/Get Info. ê ó ßαÑñÑ ¿ ó ßá¼«¼ ¬«¼»¿½∩Γ«αÑ «τÑ¡∞ ¼¡«ú« ó«º¼«ª¡«ßΓÑ⌐ ñ½∩ ¬«¡Σ¿úπαáµ¿¿ ¿ éδ ¼«ªÑΓÑ »«½πτ¿Γ∞ í«½∞ΦÑ ßó«í«ñ¡«⌐ »á¼∩Γ¿ ñ½∩ ¬«¼»¿½∩µ¿¿ ¿ «Γ½áñ¬¿ éáΦÑ⌐ »α«úαá¼¼δ. Äñ¡¿ αÑΦÑ¡¿∩ «τÑ¡∞ »α«ßΓδ, ñαπú¿Ñ ß½«ª¡ÑÑ ¿ óδºδóáεΓ úÑ¡Ñαáµ¿ε ñαπú«ú« ¬«ñá ¿½¿ óδí«α«τ¡«Ñ «Γ¬½ετÑ¡¿Ñ «Γ½áñ«τ¡«⌐ ¿¡Σ«α¼áµ¿¿. éßÑúñá ¡áτ¿¡á⌐ΓÑ ß ßá¼δσ íÑºí«½Ñº¡Ñ¡¡δσ ¿ ¡áñÑª¡δσ ¿ ºáΓÑ¼, Ñß½¿ ¡Ñ«íσ«ñ¿¼«, »αÑñ»α¿¡¿¼á⌐ΓÑ í«½ÑÑ αáñ¿¬á½∞¡δÑ Φáú¿. ùΓ«íδ ¡á⌐Γ¿ ¬«¡Σ¿úπαáµ¿ε ß¿ßΓÑ¼δ, ¬«Γ«αá∩ éáß ó»«½¡Ñ πñ«ó½ÑΓó«α¿Γ, éá¼ ¼«ªÑΓ »«¡áñ«í¿Γ∞ß∩ ¿º¼Ñ¡Ñ¡¿Ñ éáΦ¿σ AUTOEXEC.BAT, CONFIG.SYS, TURBO.TP ¿ TURBO.EXE Σá⌐½«ó. Åα¿¼Ñτá¡¿Ñ: êº¼Ñ¡Ñ¡¿∩, ßñÑ½á¡¡δÑ éá¼¿ ó ñ¿á½«ú«ó«¼ «¬¡Ñ Startup Options (Options/Environment) ß«σαá¡∩εΓß∩ »α∩¼« ó TURBO.EXE. êº¼Ñ¡Ñ¡¿∩, ßñÑ½á¡¡δÑ ß »«¼«Θ∞ε ñαπú¿σ ñ¿á½«ú«óδσ πßΓá¡«ó«¬, ¼«úπΓ íδΓ∞ ß«σαá¡Ñ¡δ ó Σá⌐½Ñ ¬«¡Σ¿úπαáµ¿¿ TURBO.TP. æ¼. ú½áóπ 7. é¡ÑΦ¡¿Ñ »α«úαá¼¼δ. - ôñá½¿ΓÑ αÑº¿ñÑ¡Γ¡δÑ »α«úαá¼¼δ. àß½¿ π éáß ºáúαπªÑ¡δ Sidekick ¿½¿ SuperKey, óδ⌐ñÑΓÑ ¿º ßαÑñδ, πñá½¿ΓÑ ¿σ ¿ ß¡«óá ºáúαπº¿ΓÑ TURBO. EXE. - êº¼Ñ¡¿ΓÑ CONFIG.SYS ñ½∩ πñá½Ñ¡¿∩ ¡Ñ¡πª¡δσ ñαá⌐óÑα«ó (ANSI.SYS, SMART.DRV ¿ Γ.».). éδ ¼«ªÑΓÑ Γá¬ªÑ ß«¬αáΓ¿Γ∞ τ¿ß½« Σá⌐½«ó ¿ íπΣÑα«ó, ¿º¼Ñ¡¿ó FILES= ¿ BUFFERS=. ôíÑñ¿ΓÑß∞, τΓ« φΓ¿ ¿º¼Ñ¡Ñ¡¿∩ ¡áñÑª¡δ ñ½∩ óßÑσ »α«úαá¼¼, ¬«Γ«αδÑ éδ ¿ß»«½∞ºπÑΓÑ. ÉÑ¬«¡Σ¿úπαáµ¿∩ Turbo Pascal. 1. ôßΓá¡«ó¿ΓÑ Compile/Destination ó Disk. 2. é ñ¿á½«ú«ó«¼ «¬¡Ñ Options/Linker πßΓá¡«ó¿ΓÑ Link Buffer ó Disk. Åα¿¼Ñτá¡¿Ñ: æπΘÑßΓóπεΓ «»µ¿¿ ¬«¼á¡ñ¡«⌐ ßΓα«¬¿, ¬«Γ«αδÑ ¼«ª¡« »ÑαÑñáΓ∞ ó TURBO.EXE ¿ ¬«Γ«αδÑ ß½««ΓóÑΓßΓóπεΓ óßÑ¼ πßΓá¡«ó¬á¼ ñ¿á½«ú«ó«ú« «¬¡á Options/Environment/StartUp. 3. êß»«½∞ºπ∩ ñ¿á½«ú«ó«Ñ «¬¡« Options/Environment/StartUp Options, »«»δΓá⌐ΓÑß∞ ßñÑ½áΓ∞: á) àß½¿ éδ ¿ß»«½∞ºπÑΓÑ αáßΦ¿αÑ¡¡πε (EMS) »á¼∩Γ∞, ¡á éáΦÑ¼ ¬«¼»∞εΓÑαÑ, πíÑñ¿ΓÑß∞, τΓ« «»µ¿∩ Use Expanded Memory ó¬½ετÑ¡á ¿ Turbo Pascal ñ«ßΓπ»¡« ñ«ßΓáΓ«τ¡«Ñ ¬«½¿τÑßΓó« EMS (ß«¬αáΓ¿ó αáº¼Ñα EMS ¿ß»«½∞ºπÑ¼«⌐ αÑº¿ñÑ¡Γ¡δ¼¿ »α«úαá¼¼á¼¿ ¿½¿ ñαá⌐óÑαá¼¿, Γá¬¿¼¿ ¬á¬ ¬φΦ ñ¿ß¬¿, SideKick ¿ Γ.ñ.). IDE ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ 400è EMS ñ½∩ «óÑα½ÑÑó, ñ«»«½¡¿ΓÑ½∞¡δσ íπΣÑα«ó ¿ ñαπú¿σ ß¿ßΓÑ¼¡δσ αÑßπαß«ó. éßÑ φΓ« πóÑ½¿τ¿óáÑΓ αáí«τπε »á¼∩Γ∞ »«ñ éáΦπ »α«úαá¼¼π. (éδñÑ½Ñ¡¿Ñ í«½ÑÑ 400è EMS íπñÑΓ πóÑ½¿τ¿óáΓ∞ »α«¿ºó«ñ¿ΓÑ½∞¡«ßΓ∞ IDE, σ«Γ∩ φΓ« ¡Ñ »αÑñ«ßΓáó½∩ÑΓ í«½∞ΦÑ »á¼∩Γ¿ ñ½∩ ¬«¼»¿½∩µ¿¿ ¿ «Γ½áñ¬¿ éáΦÑ⌐ »α«úαá¼¼δ.) b) àß½¿ éδ ¡Ñ «Γ½áª¿óáÑΓÑ úαáΣ¿τÑß¬πε »α«úαá¼¼π, πíÑñ¿ΓÑß∞, τΓ« «»µ¿∩ Graphics Screen Save óδ¬½ετÑ¡á. èá¬ ¿ óßÑ «»µ¿¿ ¡áτá½∞¡«⌐ ºáúαπº¬¿, éδ ¼«ªÑΓÑ π¬áºáΓ∞ φΓπ «»µ¿ε ó ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ »α¿ «Γ½áñ¬Ñ úαáΣ¿τÑß¬«⌐ »α«úαá¼¼δ. (àß½¿ π éáß ÑßΓ∞ ñ«ßΓπ»¡á∩ EMS, «Γ¬½ετÑ¡¿Ñ φΓ«⌐ «»µ¿¿ ¡Ñ íπñÑΓ ó«ºñÑ⌐ßΓó«óáΓ∞ ¡á «íΩÑ¼ »á¼∩Γ¿ ó IDE.) ß) æ«¬αáΓ¿ΓÑ º¡áτÑ¡¿∩ ó «»µ¿∩σ Overlay ¿ Window Heap Size. àß½¿ π éáß ÑßΓ∞ ñ«ßΓπ»¡á∩ EMS, ß«¬αáΘÑ¡¿Ñ φΓ¿σ αáº¼Ñα«ó ¡Ñ íπñÑΓ «Γα¿µáΓÑ½∞¡« ó½¿∩Γ∞ ¡á »α«¿ºó«ñ¿ΓÑ½∞¡«ßΓ∞ IDE. d) ÄΓ¬½ετ¿ΓÑ «»µ¿ε Load TURBO.TPL. TURBO.TPL ß«ñÑαª¿Γ ßΓá¡ñáαΓ¡δÑ ¼«ñπ½¿ ¿ ºáúαπªáÑΓß∩ ó »á¼∩Γ∞ »α¿ ºáúαπº¬Ñ TURBO.EXE ñ½∩ «»Γ¿¼¿ºáµ¿¿ »α«¿ºó«ñ¿ΓÑ½∞¡«ßΓ¿ αÑñá¬Γ«αá ßó∩ºÑ⌐. ÄΓ¬½ετá∩ φΓπ «»µ¿ε, éδ ß¼«ªÑΓÑ ¬«¼»¿½¿α«óáΓ∞ ¿ «Γ½áª¿óáΓ∞ »α«úαá¼¼δ, ¡« éá¼ ¡Ñ«íσ«ñ¿¼« ¿ºó½Ñτ∞ óßÑ ¼«ñπ½¿ ¿º TURBO.TPL (¿ß»«½∞ºπ∩ πΓ¿½¿Γπ TPUMOVER). Åα¿¼Ñτá¡¿Ñ: àß½¿ TURBO.TPL ¡Ñ ºáúαπªÑ¡, éδ ¡Ñ ß¼«ªÑΓÑ óδτ¿ß½∩Γ∞ óδαáªÑ¡¿∩, ¿ß»«½∞ºπ∩ ñ¿á½«ú«ó«Ñ «¬¡« Evaluate/Modify ñ« ΓÑσ »«α, »«¬á ¡Ñ ¡áτ¡ÑΓß∩ ßÑá¡ß «Γ½áñ¬¿. èá¬ á½∞ΓÑα¡áΓ¿óá, éδ ¼«ªÑΓÑ «ßΓáó¿Γ∞ «»µ¿ε Load TURBO.TPL ó¬½ετÑ¡¡«⌐ ¿ ß«¬αáΓ¿Γ∞ αáº¼Ñα TURBO.TPL ¡á 15è. ôñá½¿ΓÑ ¿º TURBO.TPL óßÑ ¼«ñπ½¿ ºá ¿ß¬½ετÑ¡¿Ñ¼ SYSTEM.TPU. Åα¿¼Ñτá¡¿Ñ: ÄßΓáó∞ΓÑ ¿ºó½ÑτÑ¡¡δÑ ¼«ñπ½¿ ¡á ñ¿ß¬Ñ ¿ πßΓá¡«ó¿ΓÑ Options/Directories/Unit Directories Γá¬, τΓ«íδ éáΦá »α«úαá¼¼á ¼«ú½á ¿ß»«½∞º«óáΓ∞ ¼«ñπ½¿ Dos, Crt, Overlay, Printer. Ñ) éδ¬½ετ¿ΓÑ «Γ½áñ«τ¡πε ¿¡Σ«α¼áµ¿ε ó ΓÑσ ¼«ñπ½∩σ, ¬«Γ«αδÑ πªÑ «Γ½áªÑ¡δ. äÑ½á⌐ΓÑ φΓ« ¼«ñπ½∞ ºá ¼«ñπ½Ñ¼. Å«ß½Ñ Γ«ú«, ¬á¬ ¬«ñ αÑá½¿º«óá¡, «ΓΓÑßΓ¿α«óá¡ ¿ «Γ½áªÑ¡, óδ¬½ετ¿ΓÑ ß¿¼ó«½∞¡πε ¿¡Σ«α¼áµ¿ε ó φΓ«¼ ¼«ñπ½Ñ, «Γ¬½ετ¿ó Debug Information ó ñ¿á½«ú«ó«¼ «¬¡Ñ Options /Compiler ¿ »ÑαÑ¬«¼»¿½¿απ⌐ΓÑ. éδ ¼«ªÑΓÑ Γá¬ ªÑ ó¬½ετ¿Γ∞ {$D-} ó ¼«ñπ½∞. àß½¿ éδ ßñÑ½áÑΓÑ Γá¬, σ«α«Φ« ¿ß»«½∞º«óáΓ∞ πß½«ó¡δÑ ñ¿αÑ¬Γ¿óδ ¿ «»αÑñÑ½∩Γ∞ ó¬½ετÑ¡¿Ñ ¿ óδ¬½ετÑ¡¿Ñ «Γ½áñ«τ¡«⌐ ¿¡Σ«α¼áµ¿¿ ó αáº½¿τ¡δσ ¼«ñπ½∩σ (ß¼. ú½áóπ 21 ó Éπ¬«ó«ñßΓóÑ »α«úαá¼¼¿ßΓá.) àß½¿ éδ óδ»«½¡¿½¿ óßÑ, τΓ« ¡á»¿ßá¡« ºñÑß∞ ¿ «Γ¬½ετ¿½¿ «Γ½áñ«τ¡πε ¿¡Σ«α¼áµ¿ε úñÑ Γ«½∞¬« ¼«ª¡« ó éáΦÑ⌐ »α«úαá¼¼Ñ, ¿ éá¼ óßÑ ÑΘÑ ¡Ñ σóáΓáÑΓ »á¼∩Γ¿, »«»α«íπ⌐ΓÑ ¼«ñ¿Σ¿µ¿α«óáΓ∞ éáΦ ¬«ñ ¬á¬ «»¿ßá¡« ¡¿ªÑ. Åα¿¼Ñτá¡¿Ñ: è«¡Ñτ¡«, Ñß½¿ éδ ¡Ñ «Γ½áª¿óáÑΓÑß∞, éδ ¼«ªÑΓÑ º¡áτ¿ΓÑ½∞¡« πóÑ½¿τ¿Γ∞ «íΩÑ¼ ñ«ßΓπ»¡«⌐ »á¼∩Γ¿ ó IDE, «Γ¬½ετ¿ó Integrated (Options/Debugger). î«ñ¿Σ¿¬áµ¿∩ ¿ßσ«ñ¡«ú« ¬«ñá. ìÑ¬«Γ«αδÑ ¿º ß½ÑñπεΘ¿σ »α«µÑñπα «τÑ¡∞ »α«ßΓ« óδ»«½¡∩εΓß∩ ¿ º¡áτ¿ΓÑ½∞¡« πóÑ½¿τ¿óáεΓ «íΩÑ¼ ñ«ßΓπ»¡«⌐ »á¼∩Γ¿. äαπú¿Ñ í«½ÑÑ αáñ¿¬á½∞¡δ ¿ éá¼ ¼«ªÑΓ »«ΓαÑí«óáΓ∞ß∩ ¿ß»«½∞º«óá¡¿Ñ πß½«ó¡δσ ñ¿αÑ¬Γ¿ó (ß¼. ú½áóπ 21 ó Éπ¬«ó«ñßΓóÑ »α«úαá¼¼¿ßΓá) ñ½∩ ó¬½ετÑ¡¿∩ ¿ óδ¬½ετÑ¡¿∩ ¿σ. - æñÑ½á⌐ΓÑ ¼«ñπ½¿ éáΦÑ⌐ »α«úαá¼¼δ «óÑα½Ñ⌐¡δ¼¿. ¥Γ« «τÑ¡∞ ¡áñÑª¡«, ú¿í¬« ¿ º¡áτ¿ΓÑ½∞¡« πóÑ½¿τ¿óáÑΓ αáí«τÑÑ »α«ßΓαá¡ßΓó« IDE. æ¼. ú½áóπ 13 Éπ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá. - êß»«½∞ºπ∩ ñ¿á½«ú«ó«Ñ «¬¡« Options/Memory Sizes, ß«¬αáΓ¿ΓÑ Stack Size ¿ Low Heap Limit. ôíÑñ¿ΓÑß∞, τΓ« ñ½∩ αáí«Γδ éáΦÑ⌐ »α«úαá¼¼δ ñ«ßΓáΓ«τ¡« ßΓÑ¬á, «ß«íÑ¡¡«, Ñß½¿ éδ óδ¬½ετ¿½¿ »α«óÑα¬π ßΓÑ¬á, ¬á¬ »αÑñ½áúáÑΓß∩ ¡¿ªÑ. - êß»«½∞ºπ∩ πßΓá¡«ó¬¿ ó ñ¿á½«ú«ó«¼ «¬¡Ñ Compiler Options, »«»δΓá⌐ΓÑß∞ ßñÑ½áΓ∞: * éδ¬½ετ¿ΓÑ Range Checking ¿ Stack Checking. Å« π¼«½τá¡¿ε Stack Checking ó¬½ετÑ¡á. éδ¬½ετá⌐ΓÑ ÑÑ Γ«½∞¬« Ñß½¿ éáΦá »α«úαá¼¼á ßΓáí¿½∞¡á ¿ éδ «»αÑñÑ½¿½¿ ÑÑ ΓαÑí«óá¡¿∩ ¬ ßΓÑ¬π. * éδ¬½ετ¿ΓÑ Emulation ó« óαÑ¼∩ «Γ½áñ¬¿. è«¡Ñτ¡«, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ Γ«½∞¬« Emulation ¿ 8087/80287, Ñß½¿ éδ ¿ß»«½∞ºπÑΓÑ »½áóáεΘπε Γ«τ¬π ¿ Iààà. àß½¿ éδ ¿ß»«½∞ºπÑΓÑ ¡á «Γ½áñ«τ¡«⌐ ¼áΦ¿¡Ñ ß«»α«µÑßß«α, «Γ¬½ετ¿ΓÑ Emulation, ¬«úñá éδ «Γ½áª¿óáÑΓÑ ¬«ñ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐. - æ«¬αáΓ¿ΓÑ τ¿ß½« ß¿¼ó«½«ó ó ¿¡ΓÑαΣÑ⌐ß¡δσ τáßΓ∩σ ¼«ñπ½Ñ⌐. ìÑ «íΩ∩ó½∩⌐ΓÑ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ τáßΓ¿ ¼«ñπ½∩ Γ«, τΓ« ¡Ñ ¿ß»«½∞ºπÑΓß∩ ó¡Ñ ¼«ñπ½∩. ¥Γ« »αá¬Γ¿¬á ¡áñÑª¡«ú« »α«úαá¼¼¿α«óá¡¿∩, ¬«Γ«αá∩ ¬ Γ«¼π ªÑ ß«σαá¡∩ÑΓ »á¼∩Γ∞ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿ í«½∞Φ¿σ »α«úαá¼¼. IDE ¿ Turbo Debugger. æá¼ Turbo Pascal ¿ IDE »αÑñ«ßΓáó½∩εΓ ¼¡«ªÑßΓó« ß»«ß«í«ó »«½πτ¿Γ∞ í«½∞ΦÑ »á¼∩Γ¿, ¿º¼Ñ¡∩∩ πßΓá¡«ó¬¿ »« π¼«½τá¡¿ε. àß½¿ éδ óδΦ½¿ ºá »αÑñÑ½δ »á¼∩Γ¿ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿ ¿½¿ «Γ½áñ¬¿ éáΦÑ⌐ »α«úαá¼¼δ ¿ ¿ß»δΓá½¿ í«½∞Φ¿¡ßΓó« ¿º »αÑñ½«ªÑ¡¡δσ ºñÑß∞ αÑΦÑ¡¿⌐, αáßß¼«Γα¿ΓÑ ó«»α«ß ¿ß»«½∞º«óá¡¿∩ IDE ñ½∩ αÑñá¬Γ¿α«óá¡¿∩ ¿ ¬«¼»¿½∩µ¿¿ éáΦÑ⌐ »α«úαá¼¼δ ¿ ºáΓÑ¼ ¿ß»«½∞º«óá¡¿∩ Turbo Debugger ñ½∩ ÑÑ «Γ½áñ¬¿. àß½¿ π éáß ÑßΓ∞ Turbo Debugger ¿ éδ σ«Γ¿ΓÑ ¿ß»«½∞º«óáΓ∞ Ñú« ñ½∩ «Γ½áñ¬¿ »α«úαá¼¼, αáºαáí«Γá¡¡δσ ó IDE, ß¬«¡Σ¿úπα¿απ⌐ΓÑ IDE ß½ÑñπεΘ¿¼ «íαáº«¼: 1. ôßΓá¡«ó¿ΓÑ Compile/Destination ó Disk. 2. é ñ¿á½«ú«ó«¼ «¬¡Ñ Options/Debugger «Γ¬½ετ¿ΓÑ Integrated ¿ ó¬½ετ¿ΓÑ Standalone. éδ ¼«ªÑΓÑ Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ ¬«¼»¿½∩Γ«α ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ TPC.EXE ¿½¿ ¬«¼»¿½∩Γ«α ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ ñ½∩ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ∞ε TPCX. EXE ñ½∩ »«ßΓα«Ñ¡¿∩ í«½∞Φ¿σ »α«úαá¼¼ (ó ¡Ñß¬«½∞¬« ¼Ñúáíá⌐Γ). çáΓÑ¼ éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ TD, TD286 ¿½¿ TD386 ñ½∩ ¿σ «Γ½áñ¬¿. ÉÑ¬παß¿ó¡δÑ »«ñ»α«úαá¼¼δ. ÉÑ¬παß¿∩ ∩ó½∩ÑΓß∩ ßαÑñßΓó«¼ »α«úαá¼¼¿α«óá¡¿∩, »α¿ ¬«Γ«α«¼ »α«µÑñπαá óδºδóáÑΓ ßá¼á ßÑí∩ (»α∩¼« ¿½¿ ¬«ßóÑ¡¡«). ìá»α¿¼Ñα, Σπ¡¬µ¿∩ Power ó αáßß¼«ΓαÑ¡¡«¼ αá¡ÑÑ »α¿¼ÑαÑ ∩ó½∩ÑΓß∩ αÑ¬παß¿ó¡«⌐, »«Γ«¼π τΓ« «¡á óδºδóáÑΓ ßÑí∩ ñ½∩ óδτ¿ß½Ñ¡¿∩ º¡áτÑ¡¿∩, ¬«Γ«α«Ñ Ñ⌐ ΓαÑíπÑΓß∩ ñ½∩ ó«ºóαáΓá. æπΘÑßΓóπÑΓ α∩ñ »«½«ªÑ¡¿⌐, « ¬«Γ«αδσ ¡πª¡« »«¼¡¿Γ∞ ó »α«µÑßßÑ «Γ½áñ¬¿ αÑ¬παß¿ó¡«⌐ »«ñ»α«úαá¼¼δ. é«-»Ñαóδσ, ú½πí«¬¿Ñ πα«ó¡¿ αÑ¬παß¿¿ ¼«úπΓ »«ú½«ΘáΓ∞ πτáßΓ¬¿ ß¿ßΓÑ¼¡«ú« ßΓÑ¬«ó«ú« »α«ßΓαá¡ßΓóá, τΓ« »«ó½ÑτÑΓ ºá ß«í«⌐ »«í«τ¡δÑ ñÑ⌐ßΓó¿∩ (¡á»α¿¼Ñα, «ßΓá¡«ó¬π ¿½¿ áóáα¿⌐¡«Ñ ºáóÑαΦÑ¡¿Ñ éáΦÑ⌐ »α«úαá¼¼δ ¿º-ºá »ÑαÑ»«½¡Ñ¡¿∩ ßΓÑ¬á). àßΓ∞ «ß¡«ó¡á∩ «»áß¡«ßΓ∞ »α¿ ¿ß»«½∞º«óá¡¿¿ αÑ¬παß¿¿ »α¿ ½εíδσ «íßΓ«∩ΓÑ½∞ßΓóáσ. üπñ∞ΓÑ ú«Γ«óδ Γá¬ªÑ ¬ Γ«¼π, τΓ« Ñß½¿ ó »α«µÑßßÑ «Γ½áñ¬¿ éáΦá »α«úαá¼¼á áóáα¿⌐¡« ºáóÑαΦáÑΓß∩, Γ« »α¿τ¿¡«⌐ φΓ«ú« ß¬«αÑÑ óßÑú« íπñÑΓ ∩ó½∩Γ∞ß∩ »ÑαÑ»«½¡Ñ¡¿Ñ ßΓÑ¬á, á ¡Ñ τΓ«-¡¿íπñ∞, τΓ« ñÑ½áÑΓß∩ ß «Γ½áñτ¿¬«¼. è Γ«¼π ªÑ, Ñß½¿ ¿¼ÑεΓß∩ ú½πí«¬¿Ñ πα«ó¡¿ αÑ¬παß¿¿, éδ, óÑα«∩Γ¡«, ¡Ñ ß¼«ªÑΓÑ «ßπΘÑßΓó¿Γ∞ ¡Ñ¼Ññ½Ñ¡¡δ⌐ óδσ«ñ, ¿ß»«½∞ºπ∩ ßΓÑ¬ óδº«óá, »«Γ«¼π τΓ« ßΓÑ¬ óδº«óá «úαá¡¿τÑ¡ »«ß½Ññ¡¿¼¿ 128 óδº«óá¼¿ Σπ¡¬µ¿⌐/»α«µÑñπα. éδ ¼«ªÑΓÑ, «ñ¡á¬«, «»πßΓ¿Γ∞ß∩ ¡á ñ¡« ßΓÑ¬á, ¿ß»«½∞ºπ∩ Ñú« ñ½∩ ¡áσ«ªñÑ¡¿∩ ßá¼«ú« »Ñαó«ú« óδº«óá, óδ⌐Γ¿ ¡á φΓ«Γ πα«óÑ¡∞ ¿ ¿ß»«½∞º«óáΓ∞ ßΓÑ¬ óδº«óá ß¡«óá. èáªñδ⌐ αáº »α¿ óδº«óÑ αÑ¬παß¿ó¡«⌐ Σπ¡¬µ¿¿, ß«ºñáÑΓß∩ ¡«óδ⌐ ¡áí«α ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ¿ «ßπΘÑßΓó½∩ÑΓß∩ »ÑαÑñáτá »áαá¼ÑΓα«ó (¬α«¼Ñ Γ¿»á var) »« º¡áτÑ¡¿ε. àß½¿ éδ ñ«íáó¿½¿ φΓ¿ º¡áτÑ¡¿∩ ó «¬¡Ñ Watch, Γ« ¡πª¡« πτ¿ΓδóáΓ∞, τΓ« «¡¿ íπñπΓ "»½áóáΓ∞", «Γαáªá∩ á¬Γ¿ó¡δÑ ¡á ñá¡¡δ⌐ ¼«¼Ñ¡Γ ½«¬á½∞¡δÑ ñá¡¡δÑ. æ½πτá¿, ¬«úñá «Γ½áñ¬á ¡Ñó«º¼«ª¡á. æπΘÑßΓóπÑΓ α∩ñ ß½πτáÑó, ¬«úñá ¡Ñó«º¼«ª¡« «ßπΘÑßΓó¿Γ∞ Γαáßß¿α«ó¬π ºáñá¡¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Äíδτ¡« (¡« ¡Ñ óßÑúñá) φΓ« »α«¿ßσ«ñ¿Γ »« »α¿τ¿¡Ñ ¡Ññ«ßΓπ»¡«ßΓ¿ ¿ßσ«ñ¡«ú« ΓÑ¬ßΓá. Æ¿»¿τ¡δ ß½ÑñπεΘ¿Ñ ß¿Γπáµ¿¿: - ½εíá∩ óßΓα«Ñ¡¡á∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩, Γ.Ñ. ½εíá∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ Γ¿»á inline. ¥Γ« »α«¿ßσ«ñ¿Γ ¿º-ºá Γ«ú«, τΓ« ¡ÑΓ óδº«óá »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ó««íΘÑ, ¡á ¼ÑßΓ« óδº«óá »«¼ÑΘáÑΓß∩ ß««ΓóÑΓßΓóπεΘ¿⌐ ¼áΦ¿¡¡δ⌐ ¬«ñ. Æá¬«⌐ óδº«ó Γαá¬ΓπÑΓß∩ ¬á¬ «ñ¿¡ «»ÑαáΓ«α. çá¼ÑΓ¿¼, τΓ« éδ ¼«ªÑΓÑ Γαáßß¿α«óáΓ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓ «»ÑαáΓ«αδ inline, «ñ¡á¬«, ó φΓ«¼ ß½πτáÑ ¬áªñδ⌐ «»ÑαáΓ«α inline «íαáíáΓδóáÑΓß∩ ¬á¬ «ñ¡á ßΓα«¬á, íÑº πτÑΓá Γ«ú«, ß¬«½∞¬« ßΓα«¬ «¡ ºá¡¿¼áÑΓ. Æ« ÑßΓ∞ ñÑ⌐ßΓóπÑΓ »αáó¿½«, Γá¬«Ñ ªÑ ¬á¬ ñ½∩ ñαπú¿σ «»ÑαáΓ«α«ó: Ñß½¿ «ñ¿¡ «»ÑαáΓ«α αáß»«½«ªÑ¡ ¡á ¡Ñß¬«½∞¬¿σ ßΓα«¬áσ, Γ« «¡ «íαáíáΓδóáÑΓß∩ ¬á¬ «ñ¡á ßΓα«¬á ¬«¼á¡ñá¼¿ Run/Trace Into ¿ Step Over (F7 ¿ F8). - ½εíá∩ »«ñ»α«úαá¼¼á Turbo Pascal ¿º «ñ¡«ú« ¿º ßΓá¡ñáαΓ¡δσ ¼«ñπ½Ñ⌐ (Crt, Dos, Graph, Graph3, Overlay, Printer, System, Turbo3). - ½εíá∩ ó¡ÑΦ¡∩∩ (external) »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩. - ½εíá∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ »αÑαδóá¡¿∩ (interrupt). - ½εíá∩ »α«µÑñπαá, Σπ¡¬µ¿∩ ¿½¿ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿, ß«ñÑαªáΘ¿Ñß∩ ó ¼«ñπ½∩σ, ¬«Γ«αδÑ ¡Ñ íδ½¿ «Γ¬«¼»¿½¿α«óá¡δ ß ¿ß»«½∞º«óá¡¿Ñ¼ ñ¿αÑ¬Γ¿óδ {$D+} (¿½¿ »α¿ ó¬½ετÑ¡¡«¼ Options/ Compiler/ Debug Information ó ßαÑñÑ IDE). - ½εíδÑ »α«µÑñπαá, Σπ¡¬µ¿∩ ¿½¿ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿, ß«ñÑαªáΘ¿Ñß∩ ó ¼«ñπ½Ñ, τÑ⌐ ¿ßσ«ñ¡δ⌐ ¬«ñ ¡Ñ½∞º∩ ¡á⌐Γ¿. àß½¿ φΓ« ¡Ñ ΓÑ¬πΘ¿⌐ ß»αáó«τ¡¿¬ ¿ ¡Ñ ß»αáó«τ¡¿¬ ¼«ñπ½Ñ⌐, ¿½¿ ¿ßσ«ñ¡δ⌐ ¬«ñ »αÑñßΓáó½∩ÑΓ ß«í«⌐ Σá⌐½, ¿¼∩ ¬«Γ«α«ú« «Γ½¿τ¡« «Γ unitname.PAS (úñÑ unitname - ¿¼∩ ¼«ñπ½∩, ºáñá¡¡«Ñ ó »αÑñ½«ªÑ¡¿¿ USES, IDE íπñÑΓ ºá»αáΦ¿óáΓ∞ éáß ¬«ααÑ¬Γ¡«Ñ ¿¼∩ Σá⌐½á. àß½¿ éδ óóÑñÑΓÑ ¡π½Ñó«Ñ ¿¼∩ Σá⌐½á ¿½¿ ¡áª¼ÑΓÑ ¡á ¬½áó¿Φπ ESC, «Γ½áñτ¿¬ íπñÑΓ αáí«ΓáΓ∞ Γá¬, ¬á¬ Ñß½¿ íδ «Γ½áñ«τ¡á∩ ¿¡Σ«α¼áµ¿∩ íδ½á ¡Ññ«ßΓπ»¡á. - ½εíá∩ »α«µÑñπαá, ¡áº¡áτÑ¡¡á∩ ¬á¬ »α«µÑñπαá óδσ«ñá. àß½¿ éδ Γαáßß¿απÑΓÑ »α«úαá¼¼π ß »«¼«Θ∞ε ¬«¼á¡ñδ Run/Trace Into (F7), éδ ¡¿¬«úñá ¡Ñ ó«⌐ñÑΓÑ ó »α«µÑñπαπ óδσ«ñá. Äñ¡á¬« ºá¼ÑΓ¿¼, τΓ« ¼«ª¡« πßΓá¡«ó¿Γ∞ Γ«τ¬π »αÑαδóá¡¿∩ ó »α«µÑñπαÑ óδσ«ñá. è«úñá ¬παß«α óδ»«½¡Ñ¡¿∩ ñ«ßΓ¿ú¡ÑΓ φΓ«⌐ Γ«τ¬¿ »αÑαδóá¡¿∩, «Γ½áñτ¿¬, ß««ΓóÑΓßΓóÑ¡¡« íπñÑΓ ñÑ½áΓ∞ »αÑαδóá¡¿Ñ. Æ¿»¿τ¡δÑ »α«í½Ñ¼δ. æπΘÑßΓóπÑΓ α∩ñ »α«í½Ñ¼, ¬«Γ«αδÑ τáßΓ« ó«º¡¿¬áεΓ ó »α«µÑßßÑ «Γ½áñ¬¿. ä½∩ «íº«αá »α¿óÑñÑ¼ ¿σ »ÑαÑτÑ¡∞: - «ΓßπΓßΓóπÑΓ úÑ¡Ñαáµ¿∩ ¡Ñ«íσ«ñ¿¼«⌐ ú½«íá½∞¡«⌐ ¿ ½«¬á½∞¡«⌐ «Γ½áñ«τ¡«⌐ ¿¡Σ«α¼áµ¿¿. Å« π¼«½τá¡¿ε, «íá Γá¬¿σ »ÑαÑ¬½ετáΓÑ½∩ ¿¼ÑεΓ º¡áτÑ¡¿∩ On. àß½¿ π éáß ÑßΓ∞ »α«í½Ñ¼δ, ßó∩ºá¡¡δÑ ß Γαáßß¿α«ó¬«⌐ »α«úαá¼¼δ ¿½¿ ¼«ñπ½∩, Γ« αáß»«½«ª¿ΓÑ ñ¿αÑ¬Γ¿óδ {$D+,L+} ó ¡áτá½Ñ ¬áªñ«⌐ »α«úαá¼¼δ ¿½¿ ¼«ñπ½∩, ¬«Γ«αδÑ éδ ªÑ½áÑΓÑ «Γ½áñ¿Γ∞. - ¡áτ¿¡áÑΓß∩ «Γ½áñ¬á ñαπú«⌐ »α«úαá¼¼δ, á Γ«τ¬¿ »αÑαδóá¡¿∩ ¿ Watch óδαáªÑ¡¿∩ »αÑñδñπΘÑ⌐ »α«úαá¼¼δ ¡Ñ πñá½Ñ¡δ. ÅαÑªñÑ τÑ¼ ºáúαπº¿Γ∞ ñ½∩ «Γ½áñ¬¿ ¡«óπε »α«úαá¼¼π, éδ ñ«½ª¡δ óδ»«½¡¿Γ∞ ß½ÑñπεΘ¿Ñ ¬«¼á¡ñδ: Run/Program Reset (Ctrl-F2), Debug/ Watches/ Remove All Watches. - »«»δΓ¬á «Γ¬«¼»¿½¿α«óáΓ∞ ¿ óδ»«½¡¿Γ∞ »α«úαá¼¼π, ¬«úñá »αÑñδñπΘá∩ »α«úαá¼¼á ÑΘÑ ∩ó½∩ÑΓß∩ ú½áó¡δ¼ Σá⌐½«¼. êß»«½∞ºπ⌐ΓÑ ¬«¼á¡ñπ Compile/Main File ñ½∩ πñá½Ñ¡¿∩ »αÑñδñπΘÑú« ¿¼Ñ¡¿ ¿½¿ πßΓá¡«ó¬¿ ¡«ó«ú«. - ¡áª¼¿ΓÑ ¬½áó¿Φπ N »α¿ »«½πτÑ¡¿¿ ß««íΘÑ¡¿∩ Source modified, rebuild(Y/N). ¥Γ« «º¡áτáÑΓ, τΓ« ó« óαÑ¼∩ «Γ½áñ¬¿ íδ½ ¼«ñ¿Σ¿µ¿α«óá¡ ¿ßσ«ñ¡δ⌐ Σá⌐½ ¿ Γáí½¿µδ «Γ½áñτ¿¬á ß ¡«¼Ñαá¼¿ ßΓα«¬ ßΓá½¿ ¡Ñß««ΓóÑΓßΓó«óáΓ∞ ¿ßσ«ñ¡«¼π ¬«ñπ. î«úπΓ íδΓ∞ ¡áαπΦÑ¡δ Σπ¡¬µ¿¿ «Γ½áñτ¿¬á Γá¬¿Ñ ¬á¬, «íαáí«Γ¬á Γ«τÑ¬ »αÑαδóá¡¿∩, Γαáßß¿α«ó¬á ¿ Γ.ñ. àß½¿ éδ ß½πτá⌐¡« ¡áíαá½¿ ß¿¼ó«½ ¿ ºáΓÑ¼ πñá½¿½¿ Ñú«, óÑα«∩Γ¡«, ¡πª¡« ¡áªáΓ∞ ¬½áó¿Φπ N. àß½¿ íδ½¿ óßΓáó½Ñ¡δ ¿½¿ πñá½∩½¿ß∞ ßΓα«¬¿, Γ« ½πτΦÑ íπñÑΓ ¡áªáΓ∞ ¬½áó¿Φπ Y, Γá¬ ¬á¬ ¿¡áτÑ «Γ½áª¿óáÑ¼δ⌐ éá¼¿ ¼áΦ¿¡¡δ⌐ ¬«ñ ¡Ñ íπñÑΓ ß««ΓóÑΓßΓó«áΓ∞ ¿ßσ«ñ¡«¼π ¬«ñπ, ¬«Γ«αδ⌐ éδ »α«ß¼áΓα¿óáÑΓÑ. Äíαáí«Γ¬á «Φ¿í«¬. é ñ«»«½¡Ñ¡¿Ñ ¬ ¿¡ΓÑúα¿α«óá¡¡«¼π «Γ½áñτ¿¬π Turbo Pascal »αÑñ½áúáÑΓ ¡Ñß¬«½∞¬« ñ¿αÑ¬Γ¿ó ¬«¼»¿½∩µ¿¿ ¿ ßó«⌐ßΓó ∩ºδ¬á, τΓ«íδ »«¼«τ∞ »«½∞º«óáΓÑ½ε ¡áσ«ñ¿Γ∞ »α«úαá¼¼¡δÑ «Φ¿í¬¿. é φΓ«¼ αáºñÑ½Ñ «»¿ßδóáεΓß∩ ¡Ñ¬«Γ«αδÑ ¿º φΓ¿σ ó«º¼«ª¡«ßΓÑ⌐. éδ ¼«ªÑΓÑ ßá¼¿ óßΓáó½∩Γ∞ »α«óÑα¬π «Φ¿í«¬ óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩, ºá»αÑΘá∩ áóΓ«¼áΓ¿τÑß¬πε »α«óÑα¬π «Φ¿í«¬ ¿ ¡á»¿ßáó ß«íßΓóÑ¡¡δ⌐ ¬«ñ «íαáí«Γ¬¿ «Φ¿í«¬. Éáßß¼«Γα¿¼ »α¿¼Ñαδ. è«¡Γα«½∞ «Φ¿í«¬ óó«ñá/óδó«ñá. ÅαÑñ»«½«ª¿¼, τΓ« éδ óδ»«½¡∩ÑΓÑ φΓπ »α«úαá¼¼π ¿ óóÑ½¿ »« ºá»α«ßπ º¡áτÑ¡¿∩ 45 ¿ 8σ, á ºáΓÑ¼ ¡áªá½¿ ¡á ¬½áó¿Φπ Enter. ùΓ« »α«¿º«⌐ñÑΓ? program DoSum; var A,B,Sum:integer; begin Write('Enter two numbers:'); (óóÑßΓ¿ ñóá τ¿ß½á) Readln(A,B); Sum:=A+B; Writeln('The Sum is',Sum); (ßπ¼¼á αáó¡á) Readln end end. éδ »«½πτ¿ΓÑ «Φ¿í¬π óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩ (106) ¿ ¬παß«α íπñÑΓ »«º¿µ¿«¡¿α«óá¡ ¡á «»ÑαáΓ«αÑ Readln(A,B); ùΓ« »α«¿º«Φ½«? Åα«úαá¼¼á «ª¿ñá½á µÑ½«τ¿ß½Ñ¡¡«Ñ º¡áτÑ¡¿Ñ, á éδ óóÑ½¿ ¡Ñτ¿ß½«ó«Ñ º¡áτÑ¡¿Ñ (8σ), τΓ« ¿ »α¿óÑ½« ¬ «Φ¿í¬Ñ óδ»«½¡Ñ¡¿∩. é ¬«α«Γ¬«⌐ »α«úαá¼¼Ñ, »«ñ«í¡« φΓ«⌐, Γá¬á∩ «Φ¿í¬á ¡Ñ ñ«ßΓáó¿Γ ¼¡«ú« σ½«»«Γ. ì« τΓ« Ñß½¿ »α¿ óó«ñÑ ñ½¿¡¡«ú« ß»¿ß¬á τ¿ßÑ½, óóÑñ∩ πªÑ í«½∞Φπε ¿σ τáßΓ∞, éδ ßñÑ½á½¿ íδ Γá¬πε «Φ¿í¬π? éá¼ »α¿Φ½«ß∞ ¡áτáΓ∞ íδ óßÑ ß¡áτá½á. àΘÑ σπªÑ, Ñß½¿ íδ éδ »¿ßá½¿ »α«úαá¼¼π ñ½∩ Γ«ú«, τΓ«íδ ÑÑ ¿ß»«½∞º«óá½¿ »«½∞º«óáΓÑ½¿ ¿ óδ∩ó¿½¿ß∞ φΓ¿ «Φ¿í¬¿. Turbo Pascal »αÑñ«ßΓáó½∩ÑΓ éá¼ ó«º¼«ª¡«ßΓ∞ πßΓαá¡∩Γ∞ áóΓ«¼áΓ¿τÑß¬¿⌐ ¬«¡Γα«½∞ «Φ¿í«¬ óó«ñá/óδó«ñá ¿ ßá¼¿¼ ΓÑßΓ¿α«óáΓ∞ Γá¬¿Ñ «Φ¿í¬¿ ó¡πΓα¿ »α«úαá¼¼δ. ùΓ«íδ óδ¬½ετ¿Γ∞ ¬«¡Γα«½∞ «Φ¿í«¬ óó«ñá/óδó«ñá, ¡πª¡« ó¬½ετ¿Γ∞ ñ¿αÑ¬Γ¿óπ ¬«¼»¿½∩Γ«αá {$I-} ó »α«úαá¼¼π (¿½¿ αÑª¿¼ Option/Compiler/I/O Checking). Æá¬á∩ ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá ºá»αÑΘáÑΓ »«ßΓα«Ñ¡¿Ñ ¬«ñá ñ½∩ ¬«¡Γα«½∩ «Φ¿í«¬ óó«ñá/óδó«ñá. è«¡Γα«½∞ ¡á »α¿¡áñ½Ñª¡«ßΓ∞ ñ«»πßΓ¿¼«¼π ñ¿á»áº«¡π. äαπú«⌐ Γ¿»¿τ¡δ⌐ ¬½áßß «Φ¿í«¬ óδ»«½¡Ñ¡¿∩ ó¬½ετáÑΓ óδσ«ñ ºá ñ«»πßΓ¿¼δ⌐ ñ¿á»áº«¡ ¿½¿ óδσ«ñ ºá úαá¡¿τ¡δÑ º¡áτÑ¡¿∩. Æá¬«Ñ ¼«ªÑΓ »α«¿º«⌐Γ¿, ¡á»α¿¼Ñα, »α¿ »α¿ßóá¿óá¡¿¿ ß½¿Φ¬«¼ í«½∞Φ«ú« º¡áτÑ¡¿∩ µÑ½«τ¿ß½Ñ¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¿½¿ »«»δΓ¬¿ ¿¡ñÑ¬ß¿α«óá¡¿∩ ¼áßß¿óá ó¡Ñ Ñú« úαá¡¿µ. Å« éáΦÑ¼π ªÑ½á¡¿ε Turbo Pascal íπñÑΓ úÑ¡Ñα¿α«óáΓ∞ ¬«ñ ñ½∩ ¬«¡Γα«½∩ «Φ¿í«¬ óδσ«ñá ºá ñ«»πßΓ¿¼δ⌐ ñ¿á»áº«¡. ¥Γ« »α¿óÑñÑΓ ¬ π¬απ»¡Ñ¡¿ε »α«úαá¼¼δ ¿ ºá¼Ññ½Ñ¡¿ε ÑÑ óδ»«½¡Ñ¡¿∩, ¡« ¼«ªÑΓ íδΓ∞ ¡Ñ«µÑ¡¿¼δ¼ »α¿ Γαáßß¿α«ó¬Ñ ½εíδσ «Φ¿í«¬ óδσ«ñá ºá úαá¡¿µπ ó éáΦÑ⌐ »α«úαá¼¼Ñ. äáóá⌐ΓÑ ÑΘÑ αáº αáßß¼«Γα¿¼ «ñ¿¡ ¿º »αÑñδñπΘ¿σ »α¿¼Ñα«ó: program RangeTest; var List:array[1.10] of integer; Indx:integer; begin for Indx:=1 to 10 do List[Indx]:=Indx; Indx:=0; While(Indx<11) do begin Indx:=Indx+1; if List[Indx]>0 then List[Indx]:=-List[Indx] end; for Indx:=1 to 10 do Writeln(List[Indx]) end. àß½¿ óóÑßΓ¿ φΓπ »α«úαá¼¼π, ºáΓÑ¼ «Γ¬«¼»¿½¿α«óáΓ∞ ¿ óδ»«½¡¿Γ∞ ÑÑ, Γ« «¡á íπñÑΓ ó íÑß¬«¡Ñτ¡«¼ µ¿¬½Ñ. ùΓ«íδ »«¡∩Γ∞ »α¿τ¿¡π φΓ«ú«, »α«á¡á½¿º¿απÑ¼ ñá¡¡δ⌐ ¬«ñ: µ¿¬½ óδ»«½¡∩ÑΓß∩ 11 αáº, á ¡Ñ 10, ¿ »ÑαÑ¼Ñ¡¡á∩ Indx ¿¼ÑÑΓ º¡áτÑ¡¿Ñ 11 »α¿ »«ß½Ññ¡Ñ¼ óδ»«½¡Ñ¡¿¿ µ¿¬½á. èá¬¿¼ «íαáº«¼ »α«óÑα∩Γ∞ »«ñ«í¡δÑ ß½πτá¿? éδ ¼«ªÑΓÑ óßΓáó¿Γ∞ ñ¿αÑ¬Γ¿óπ {$R+} ó ¡áτá½Ñ »α«úαá¼¼δ, τΓ«íδ ó¬½ετ¿Γ∞ »α«óÑα¬π ñ¿á»áº«¡á. ÆÑ»Ñα∞ »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼á íπñÑΓ «ßΓá¡áó½¿óáΓ∞ß∩ ß «Φ¿í¬«⌐ óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩ (¬«ñ 201 - «Φ¿í¬á óδσ«ñá ºá ñ«»πßΓ¿¼δ⌐ ñ¿á»áº«¡, Γá¬ ¬á¬ ¿¡ñÑ¬ß ¼áßß¿óá óδσ«ñ¿Γ ºá ñ«»πßΓ¿¼δÑ úαá¡¿µδ) ¬á¬ Γ«½∞¬« éδ »«»áñÑΓÑ ¡á «»ÑαáΓ«α if List[Indx]>0 »α¿ º¡áτÑ¡¿¿ Indx=11. àß½¿ éδ ¡áσ«ñ¿½¿ß∞ ó ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñÑ, Γ« áóΓ«¼áΓ¿τÑß¬¿ óδñáÑΓß∩ φΓ«Γ «»ÑαáΓ«α, ¿ óδó«ñ¿Γß∩ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. Åα¿¼Ñτá¡¿Ñ: Ä»µ¿∩ Range Checking ó ñ¿á½«ú«ó«¼ «¬¡Ñ Options/Compiler »« π¼«½τá¡¿ε óδ¬½ετÑ¡á; ó¬½ετÑ¡¿Ñ φΓ«⌐ «»µ¿¿ ñÑ½áÑΓ éáΦπ »α«úαá¼¼δ º¡áτ¿ΓÑ½∞¡« í«½ÑÑ «íΘÑ⌐ ¿ í«½ÑÑ ¼Ññ½Ñ¡¡«⌐, ¡« ¼δ ¡áßΓ«∩ΓÑ½∞¡« αÑ¬«¼Ñ¡ñπÑ¼ ¿ß»«½∞º«óáΓ∞ ÑÑ ñ« »«½¡«⌐ «Γ½áñ¬¿ éáΦÑ⌐ »α«úαá¼¼δ. æπΘÑßΓóπεΓ Γá¬¿Ñ ß¿Γπáµ¿¿, ¬«úñá éá¼, óÑα«∩Γ¡«, »«ΓαÑíπÑΓß∩ ¡áαπΦ¿Γ∞ úαá¡¿µδ, ¡á»α¿¼Ñα, »α¿ αáí«ΓÑ ß ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½Ñ¡¡δ¼¿ ¼áßß¿óá¼¿, ¿½¿ ¬«úñá ¿ß»«½∞ºπεΓß∩ Σπ¡¬µ¿¿ Succ ¿ Pred ñ½∩ »ÑαÑτ¿ß½¿¼δσ Γ¿»«ó ñá¡¡δσ. î«ª¡« πßΓá¡«ó¿Γ∞ ¬«¡Γα«½∞ »α¿¡áñ½Ñª¡«ßΓ¿ ñ«»πßΓ¿¼«¼π ñ¿á»áº«¡π óδí«α«τ¡«, αáº¼ÑΘá∩ ó ¡áτá½Ñ »α«úαá¼¼δ {$R-} ñ¿αÑ¬Γ¿óπ. ä½∩ ¬áªñ«⌐ τáßΓ¿ »α«úαá¼¼δ, ¬«Γ«αá∩ ΓαÑíπÑΓ ¬«¡Γα«½∩, αáº¼ÑΘá⌐ΓÑ ñ¿αÑ¬Γ¿óπ ($R +) ó ¡áτá½Ñ φΓ«⌐ τáßΓ¿ ¿ ñ¿αÑ¬Γ¿óπ {$R-} ó ¬«¡µÑ. ìá»α¿¼Ñα, ¼«ª¡« íδ½« íδ ¡á»¿ßáΓ∞ »αÑñΦÑßΓóπεΘ¿⌐ µ¿¬½ ß½ÑñπεΘ¿¼ «íαáº«¼: while Indx < 11 do begin Indx := Indx+1 ($R+) (αáºαÑΦÑ¡¿Ñ ¬«¡Γα«½∩ »α¿¡áñ½Ñª¡«ßΓ¿ ñ«»πßΓ¿¼«¼π ñ¿á»áº«¡π) if List [Indx] > 0 then List [Indx] := - List[Indx] ($R-) (óδ¬½ετÑ¡¿Ñ ¬«¡Γα«½∩ »α¿¡áñ½Ñª¡«ßΓ¿ ñ«»πßΓ¿¼«¼π ñ¿á»áº«¡π) end; è«¡Γα«½∞ »α¿¡áñ½Ñª¡«ßΓ¿ ñ«»πßΓ¿¼«¼π ñ¿á»áº«¡π íπñÑΓ «ßπΘÑßΓó½∩Γ∞ß∩ Γ«½∞¬« ó «»ÑαáΓ«αÑ if...then, ¿ ¡¿úñÑ í«½∞ΦÑ, ¬«¡Ñτ¡«, Ñß½¿ ñαπú¿Ñ ñ¿αÑ¬Γ¿óδ {$R+} «ΓßπΓßΓóπεΓ ó »α«úαá¼¼Ñ. äαπú¿Ñ ó«º¼«ª¡«ßΓ¿ «íαáí«Γ¬¿ «Φ¿í«¬. Turbo Pascal »αÑñ«ßΓáó½∩ÑΓ »«½∞º«óáΓÑ½ε ó«º¼«ª¡«ßΓ∞ »α¿¼Ñ¡∩Γ∞ ¿¡δÑ »α¿Ñ¼δ «íαáí«Γ¬¿ «Φ¿í«¬. ü«½ÑÑ »«ñα«í¡« «¡¿ «»¿ßδóáεΓß∩ ó ñαπú¿σ αáºñÑ½áσ ñá¡¡«ú« απ¬«ó«ñßΓóá. çñÑß∞ ªÑ ¼δ Γ«½∞¬« ¬αáΓ¬« ¬«ß¡Ñ¼ß∩ ¿σ. è«úñá éáΦá »α«úαá¼¼á ºá¬á¡τ¿óáÑΓß∩ ¡«α¼á½∞¡δ¼ «íαáº«¼ ¿½¿ ß «Φ¿í¬«⌐ óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩, óδºδóáÑΓß∩ ßΓá¡ñáαΓ¡á∩ »α«µÑñπαá óδσ«ñá, ¬«Γ«αá∩ ßó∩ºδóáÑΓß∩ ß éáΦÑ⌐ »α«úαá¼¼«⌐. Turbo Pascal »«ºó«½∩ÑΓ »α¿¼Ñ¡∩Γ∞ éáΦ¿ ß«íßΓóÑ¡¡δÑ »α«µÑñπαδ óδσ«ñá, ¬«Γ«αδÑ óδºδóáεΓß∩ »ÑαÑñ ßΓá¡ñáαΓ¡«⌐. öá¬Γ¿τÑß¬¿, ¬áªñδ⌐ ¼«ñπ½∞ ¼«ªÑΓ ¿¼ÑΓ∞ ß«íßΓóÑ¡¡πε »α«µÑñπαπ óδσ«ñá Γá¬, τΓ« éδ ¼«ªÑΓÑ ¿¼ÑΓ∞ áóΓ«¼áΓ¿τÑß¬¿⌐ ¬«ñ «τ¿ßΓ¬¿, Γá¬ªÑ ¬á¬ ¿ «íδτ¡δ⌐ áóΓ«¼áΓ¿τÑß¬¿⌐ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿. Åα«µÑñπαδ óδσ«ñá í«½ÑÑ ñÑΓá½∞¡« «»¿ßδóáεΓß∩ ó ú½áóÑ 18 "é«»α«ßδ ¬«¡Γα«½∩" Éπ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá. àß½¿ éδ »δΓáÑΓÑß∞ αáß»αÑñÑ½¿Γ∞ »á¼∩Γ∞ (ß »«¼«Θ∞ε New ¿½¿ GetMem), ¿ ¡ÑΓ ñ«ßΓáΓ«τ¡«ú« ¬«½¿τÑßΓóá »á¼∩Γ¿ ó ¬πτÑ, Γ« áóΓ«¼áΓ¿τÑß¬¿ óδºδóáÑΓß∩ »α«µÑñπαá «íαáí«Γ¬¿ «Φ¿í«¬ ¬πτ¿, ¬«Γ«αá∩ »α«ßΓ« ºáßΓáó½∩ÑΓ ºá¬«¡τ¿Γ∞ß∩ éáΦπ »α«úαá¼¼π ß «Φ¿í¬«⌐ óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩. î«ª¡«, «ñ¡á¬« ¿¡ßΓá½½¿α«óáΓ∞ ßó«ε ß«íßΓóÑ¡¡πε »α«µÑñπαπ «íαáí«Γ¬¿ «Φ¿í«¬ ¬πτ¿, ¬«Γ«αá∩ íπñÑΓ π»αáó½∩Γ∞ ñá¡¡«⌐ ß¿Γπáµ¿Ñ⌐ Γá¬, ¬á¬ éá¼ σ«τÑΓß∩. ìá»α¿¼Ñα, πñá½¿Γ∞ ñ¿¡á¼¿τÑß¬¿Ñ ßΓαπ¬Γπαδ, ¬«Γ«αδÑ í«½∞ΦÑ ¡Ñ ¡πª¡δ, ¿½¿ »α«ßΓ« ßñÑ½áΓ∞ Γá¬, τΓ«íδ New ¿ GetMem ó«ºóαáΘá½¿ nil π¬áºáΓÑ½∞. Åα«µÑñπαδ «íαáí«Γ¬¿ «Φ¿í«¬ ¬πτ¿ í«½ÑÑ »«ñα«í¡« «»¿ßδóáεΓß∩ ó ú½áóÑ 16 "Åá¼∩Γ∞" Éπ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá. Åα¿ ¿ß»«½∞º«óá¡¿¿ ¼«ñπ½∩ Graph éδ ¼«ªÑΓÑ óδ»«½¡¿Γ∞ ¬«¡Γα«½∞ «Φ¿í«¬ á¡á½«ú¿τ¡« ¬«¡Γα«½ε «Φ¿í«¬ óó«ñá/óδó«ñá. öπ¡¬µ¿∩ GraphError ó φΓ«¼ ¼«ñπ½Ñ ó«ºóαáΘáÑΓ ¿¡Σ«α¼áµ¿ε «í «Φ¿í¬Ñ ñ½∩ ¼¡«ú¿σ úαáΣ¿τÑß¬¿σ »«ñ»α«úαá¼¼. â½áóá 12 "î«ñπ½∞ Graph ¿ BGI" Éπ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá »«ñα«í¡« «»¿ßδóáÑΓ, ¬á¬ ¿ß»«½∞º«óáΓ∞ φΓπ »α«µÑñπαπ ¿ ¬«ñδ «Φ¿í«¬ ¼«ñπ½∩ Graph. î«ñπ½∞ Overlay ß«ñÑαª¿Γ µÑ½«τ¿ß½Ñ¡¡πε »ÑαÑ¼Ñ¡¡πε OvrResult, ¬«Γ«αá∩ σαá¡¿Γ ¬«ñ αÑºπ½∞ΓáΓá »«ß½Ññ¡Ñ⌐ «»Ñαáµ¿¿, óδ»«½¡Ñ¡¡«⌐ ¼«¡¿Γ«α«¼ «óÑα½ÑÑó. Å«ñ«í¡δ¼ «íαáº«¼ ¼«ñπ½∞ Dos σαá¡¿Γ ¬«ñδ αÑºπ½∞ΓáΓá ó »ÑαÑ¼Ñ¡¡«⌐ DosError.