For Beginners & Professional Hackers

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

/ For Beginners & Professional Hackers / cd.iso / docum / pascal.doc / pas_1-2.doc < prev next >

Wrap

Text File | 1989-11-26 | 122.6 KB | 3,182 lines

âïÇéÇ 4 ÅÑαÑ¼Ñ¡¡δÑ Ä»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡δσ Ä»¿ßá¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ß»¿ß«¬ ¿ñÑ¡Γ¿Σ¿- ¬áΓ«α«ó, ¬«Γ«αδÑ «í«º¡áτáεΓ ¡«óδÑ »ÑαÑ¼Ñ¡¡δÑ ¿ ¿σ Γ¿»δ. ----------- - ----- - «»¿ßá¡¿Ñ--->!ß»¿ß«¬ !-->(:)-->!Γ¿»!------------------->(;)--> »ÑαÑ¼Ñ¡¡«⌐ !¿ñÑ¡Γ¿Σ¿-! - ----- ! ^ - !¬áΓ«α«ó ! ! ------------- ! ----------- -->!áíß«½εΓ¡«Ñ !-- !»αÑñ½«ªÑ¡¿Ñ! ------------- Æ¿», ºáñáóáÑ¼δ⌐ ñ½∩ »ÑαÑ¼Ñ¡¡δσ, ¼«ªÑΓ íδΓ∞ ¿ñÑ¡Γ¿Σ¿¬á- Γ«α«¼ Γ¿»á, ¬«Γ«αδ⌐ íδ½ αá¡ÑÑ «»¿ßá¡ ó αáºñÑ½Ñ «»¿ßá¡¿∩ Γ¿- »«ó Γ«ú« ªÑ ßá¼«ú« í½«¬á, ¿½¿ í½«¬á, ó ¬«Γ«αδ⌐ óσ«ñ¿Γ ñá¡¡δ⌐ í½«¬, ¿½¿ ¼«ñπ½∩, ¿½¿ ªÑ φΓ«Γ Γ¿» ¼«ªÑΓ íδΓ∞ ¡«óδ¼ «»αÑñÑ½Ñ- ¡¿Ñ¼ Γ¿»á. Åα¿ π¬áºá¡¿¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ó ß»¿ß¬Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó «»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ φΓ«Γ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¿¼ÑÑΓ ß¿½π ¿ñÑ¡Γ¿Σ¿- ¬áΓ«αá »ÑαÑ¼Ñ¡¡«⌐ ó Γ«¼ í½«¬Ñ, úñÑ φΓ« «»¿ßá¡¿Ñ íδ½« π¬áºá- ¡«. è φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¼«ª¡« «íαáΘáΓ∞ß∩ ¿º ½εí«ú« ¼ÑßΓá φΓ«ú« í½«¬á, Ñß½¿ ÑÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¡Ñ »ÑαÑ«»αÑñÑ½Ñ¡ ó í½«¬Ñ, óσ«- ñ∩ΘÑ¼ ó »Ñαóδ⌐. ÅÑαÑ«»αÑñÑ½Ñ¡¿Ñ «º¡áτáÑΓ, τΓ« ñ½∩ ¡«ó«⌐ »Ñ- αÑ¼Ñ¡¡«⌐ ¿ß»«½∞ºπÑΓß∩ Γ«Γ ªÑ ßá¼δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¡« φΓ« ¿ß- »«½∞º«óá¡¿Ñ ¡Ñ «¬áºδóáÑΓ ó½¿∩¡¿∩ ¡á º¡áτÑ¡¿Ñ »Ñαó«¡áτá½∞¡«⌐ »ÑαÑ¼Ñ¡¡«⌐. Åα¿óÑñÑ¼ »α¿¼Ñα αáºñÑ½á «»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡«⌐: var X,Y,Z: real; I,J,K: integer; Digit: 0..9; C: Color; Done,Error: boolean; Operator: (plus, minus, times); Hue1,Hue2: set of Color; Today: Date; Results: MeasureList; P1,P2: Person; Matrix: aaray[1..10,1..10] of real; ÅÑαÑ¼Ñ¡¡δÑ, «»¿ßá¡¡δÑ ó¡Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¡áºδóá- εΓß∩ ú½«íá½∞¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿ ¿ αáß»«½áúáεΓß∩ ó ßÑú¼Ñ¡ΓÑ ñá¡- ¡δσ. ÅÑαÑ¼Ñ¡¡δÑ, «»¿ßá¡¡δÑ ó ßá¼«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿, ¡áºδóáεΓß∩ ½«¬á½∞¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿ ¿ αáß»«½áúáεΓß∩ ó ßÑú¼Ñ¡ΓÑ ßΓÑ¬á. æÑú¼Ñ¡Γ ñá¡¡δσ îá¬ß¿¼á½∞¡δ⌐ αáº¼Ñα ßÑú¼Ñ¡Γá ñá¡¡δσ αáóÑ¡ 65520 íá⌐Γ. Åα¿ ¬«¼»«¡«ó¬Ñ »α«úαá¼¼δ (τΓ« áóΓ«¼áΓ¿τÑß¬¿ «ßπΘÑßΓó½∩ÑΓß∩ ó ¬«¡µÑ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ) ú½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ óßÑσ ¼«ñπ- ½Ñ⌐, ¿ß»«½∞ºπÑ¼δσ »α«úαá¼¼«⌐, á Γá¬ªÑ ß«íßΓóÑ¡¡δÑ ú½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ »α«úαá¼¼δ, αáº¼ÑΘáεΓß∩ ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ. àß½¿ ñ½∩ ú½«íá½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ΓαÑíπÑΓß∩ í«½ÑÑ 65520 íá⌐Γ, Γ« ß½ÑñπÑΓ αáß»αÑñÑ½¿Γ∞ í«½∞Φ¿Ñ ßΓαπ¬Γπαδ ó ó¿ñÑ ñ¿¡á- ¼¿τÑß¬¿σ »ÑαÑ¼Ñ¡¡δσ. äá½∞¡Ñ⌐ΦÑÑ «»¿ßá¡¿Ñ φΓ«⌐ ΓÑ¼δ ¼«ª¡« ¡á⌐Γ¿ ó αáºñÑ½Ñ "ô¬áºáΓÑ½¿ ¿ ñ¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ" ¡áßΓ«- ∩ΘÑ⌐ ú½áóδ. æÑú¼Ñ¡Γ ßΓÑ¬á Éáº¼Ñα ßÑú¼Ñ¡Γá ßΓÑ¬á πßΓá¡áó½¿óáÑΓß∩ ß »«¼«Θ∞ε ñ¿αÑ¬- Γ¿óδ ¬«¼»¿½∩Γ«αá $M ¿ ½Ñª¿Γ ó »αÑñÑ½áσ «Γ 1024 ñ« 65520 íá⌐Γ. Å« π¼«½τá¡¿ε αáº¼Ñα ßΓÑ¬á αáóÑ¡ 16384 íá⌐Γ. Åα¿ ¬áªñ«⌐ á¬Γ¿ó¿ºáµ¿¿ (óδº«óÑ) »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ó ßΓÑ¬ »«¼ÑΘáÑΓß∩ ¼¡«ªÑßΓó« ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ. Åα¿ ºáóÑαΦÑ- ¡¿¿ αáí«Γδ »á¼∩Γ∞, ºá¡¿¼áÑ¼á∩ ½«¬á½∞¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿, «ßó«- í«ªñáÑΓß∩. é ½εí«⌐ ¼«¼Ñ¡Γ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ «íΘ¿⌐ αáº¼Ñα ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ó á¬Γ¿ó¡δσ »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ ¡Ñ ñ«½ªÑ¡ »αÑóδΦáΓ∞ αáº¼Ñαá ßÑú¼Ñ¡Γá ßΓÑ¬á. ä¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $S ¿ß»«½∞ºπÑΓß∩ ñ½∩ »α«óÑñÑ¡¿∩ »α«óÑα«¬ »ÑαÑ»«½¡Ñ¡¿∩ ßΓÑ¬á ó »α«úαá¼¼Ñ. é ß«ßΓ«∩¡¿¿ {$S+}, »α¿¡∩Γ«¼ »« π¼«½τá¡¿ε, úÑ¡Ñα¿απÑΓß∩ ¬«ñ, «ßπΘÑßΓó½∩εΘ¿⌐ »α«- óÑα¬π »ÑαÑ»«½¡Ñ¡¿∩ ßΓÑ¬á ó ¡áτá½Ñ ¬áªñ«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬- µ¿¿. é ß«ßΓ«∩¡¿¿ {$S-} Γá¬¿Ñ »α«óÑα¬¿ ¡Ñ »α«ó«ñ∩Γß∩. ÅÑαÑ- »«½¡Ñ¡¿Ñ ßΓÑ¬á ¼«ªÑΓ óδºóáΓ∞ áóáα¿⌐¡«Ñ ºáóÑαΦÑ¡¿Ñ αáí«Γδ ß¿ßΓÑ¼δ, »«φΓ«¼π ¡Ñ ß½ÑñπÑΓ «Γ¼Ñ¡∩Γ∞ »α«óÑα¬¿ ßΓÑ¬á, Ñß½¿ ¡ÑΓ áíß«½εΓ¡«⌐ πóÑαÑ¡¡«ßΓ¿ ó Γ«¼, τΓ« »ÑαÑ»«½¡Ñ¡¿∩ ¡Ñ »α«¿- º«⌐ñÑΓ. Çíß«½εΓ¡δÑ »ÑαÑ¼Ñ¡¡δÑ ÅÑαÑ¼Ñ¡¡δÑ ¼«ª¡« «»¿ßáΓ∞ Γá¬, τΓ« «¡¿ íπñπΓ αáß»«½á- úáΓ∞ß∩ »« «»αÑñÑ½Ñ¡¡«¼π áñαÑßπ ó »á¼∩Γ¿, ¿ ó φΓ«¼ ß½πτáÑ «¡¿ ¡áºδóáεΓß∩ áíß«½εΓ¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿. Ä»¿ßá¡¿Ñ Γá¬¿σ »ÑαÑ¼Ñ¡- ¡δσ ñ«½ª¡« ß«ñÑαªáΓ∞ »«ß½Ñ Γ¿»á áíß«½εΓ¡«Ñ »αÑñ½«ªÑ¡¿Ñ: -------- ----------- - ----------- áíß«½εΓ¡«Ñ-->(absolute)-->!µÑ½«Ñ íÑº!-->(:)--!µÑ½«Ñ íÑº!----> »αÑñ½«ªÑ¡¿Ñ -------- ! !º¡á¬á ! - !º¡á¬á ! ^ ! ----------- ----------- ! ! -------------------------- ! ---->!¿ñÑ¡Γ¿Σ¿¬áΓ«α »ÑαÑ¼Ñ¡¡«⌐!---- -------------------------- ÄΓ¼ÑΓ¿¼, τΓ« ß»¿ß«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó ó «»¿ßá¡¿¿ »ÑαÑ¼Ñ¡- ¡«⌐ »α¿ π¬áºá¡¿¿ »αÑñ½«ªÑ¡¿∩ absolute ¼«ªÑΓ ß«ñÑαªáΓ∞ Γ«½∞¬« «ñ¿¡ ¿ñÑ¡Γ¿Σ¿¬áΓ«α. ÅÑαóá∩ τáßΓ∞ »αÑñ½«ªÑ¡¿∩ absolute ß«ñÑαª¿Γ ßÑú¼Ñ¡Γ ¿ ß¼ÑΘÑ¡¿Ñ, Γ« ÑßΓ∞ áñαÑß, »« ¬«Γ«α«¼π »ÑαÑ¼Ñ¡¡á∩ ñ«½ª¡á íδΓ∞ αáº¼ÑΘÑ¡á. CrtMode : byte absolute $0040:$0049; monochrome Buffer : array[1..25,1..80] of record character, attribute : char end absolute $B000:$0000; ÅÑαóá∩ ¬«¡ßΓá¡Γá «í«º¡áτáÑΓ íáºπ ßÑú¼Ñ¡Γá, á óΓ«αá∩ «»- αÑñÑ½∩ÑΓ ß¼ÑΘÑ¡¿Ñ ó¡πΓα¿ φΓ«ú« ßÑú¼Ñ¡Γá. ÄíÑ ¬«¡ßΓá¡Γδ ¡Ñ ñ«½ª¡δ óδσ«ñ¿Γ∞ ºá »αÑñÑ½δ ñ¿á»áº«¡á «Γ $0000 ñ« $FFFF («Γ 0 ñ« 65535). éΓ«αá∩ τáßΓ∞ »αÑñ½«ªÑ¡¿∩ absolute ¿ß»«½∞ºπÑΓß∩ ñ½∩ «»¿- ßá¡¿∩ »ÑαÑ¼Ñ¡¡«⌐, ¬«Γ«αá∩ »«¼ÑΘáÑΓß∩ "»«óÑασ" ñαπú«⌐ »ÑαÑ- ¼Ñ¡¡«⌐, Γ« ÑßΓ∞ »« Γ«¼π ªÑ ßá¼«¼π áñαÑßπ, τΓ« ¿ ñαπúá∩ »ÑαÑ- ¼Ñ¡¡á∩. var Str: string[32]; StrLen: byte absolute Str; ¥Γ« «»¿ßá¡¿Ñ π¬áºδóáÑΓ, τΓ« »ÑαÑ¼Ñ¡¡á∩ StrLen ñ«½ª¡á αáº¼ÑΘáΓ∞ß∩ ß Γ«ú« ªÑ áñαÑßá, τΓ« ¿ »ÑαÑ¼Ñ¡¡á∩ Str, á »«ß- ¬«½∞¬π »Ñαóδ⌐ íá⌐Γ ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ ß«ñÑαª¿Γ ñ¿¡á¼¿τÑß- ¬πε ñ½¿¡π ßΓα«¬¿, Γ« StrLen íπñÑΓ ß«ñÑαªáΓ∞ ñ½¿¡π Str. æßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡δÑ æßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε ¼«ªÑΓ «í«º¡áτáΓ∞ ß½ÑñπεΘÑÑ: - »ÑαÑ¼Ñ¡¡πε; - ¬«¼»«¡Ñ¡Γ ó »ÑαÑ¼Ñ¡¡«⌐ ßΓαπ¬Γπα¡«ú« ¿½¿ ßΓα«¬«ó«ú« Γ¿»á; - ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε, ¡á ¬«Γ«απε π¬áºδóáÑΓ »ÑαÑ- ¼Ñ¡¡á∩ Γ¿»a π¬áºáΓÑ½∞. æ¿¡Γá¬ß¿ß ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε ¿¼ÑÑΓ ó¿ñ: --------------- ßßδ½¬á ¡á------->!¿ñÑ¡Γ¿Σ¿¬áΓ«α!-----------------------------> »ÑαÑ¼Ñ¡¡πε ! !»ÑαÑ¼Ñ¡¡«⌐ ! ^ ^ ! ! --------------- ! ! -------------- ! ! ----------------- ! --!¬óá½¿Σ¿¬áΓ«α!<-- !-->!»α¿óÑñÑ¡¡δ⌐ Γ¿»!-----! -------------- ! !»ÑαÑ¼Ñ¡¡«⌐ ! ! ! ----------------- ! ! --------------- - ! --->!óδº«ó Σπ¡¬µ¿¿!-->(^)-- --------------- - ÄΓ¼ÑΓ¿¼, τΓ« ß¿¡Γá¬ß¿ß ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε ñ«»πß¬áÑΓ ¿ß»«½∞º«óáΓ∞ óδº«ó Σπ¡¬µ¿¿ ó ¬áτÑßΓóÑ π¬áºáΓÑ½∩-Σπ¡¬µ¿¿. Å«- ½πτÑ¡¡δ⌐ ó αÑºπ½∞ΓáΓÑ π¬áºáΓÑ½∞ ºáΓÑ¼ αáºδ¼Ñ¡«óδóáÑΓß∩ ß ΓÑ¼, τΓ«íδ «í«º¡áτáΓ∞ ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε. èóá½¿Σ¿¬áΓ«αδ ÄíαáΘÑ¡¿Ñ ¬ Σπ¡¬µ¿¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »ÑαÑ¼Ñ¡¡«⌐ ß ¡Ñß¬«½∞¬¿¼¿ ¬óá½¿Σ¿¬áΓ«αá¼¿ ¿½¿ íÑº ¡¿σ, ¬«Γ«- αδÑ ¿º¼Ñ¡∩εΓ º¡áτÑ¡¿Ñ «íαáΘÑ¡¿∩ ¬ Σπ¡¬µ¿¿. -------- ¬óá½¿Σ¿¬áΓ«α----->!¿¡ñÑ¬ß!---------------------> ! -------- ^ ! ----------------- ! !-->!ñÑß¿ú¡áΓ«α »«½∩!---! ! ----------------- ! ! - ! ----------->(^)---------- - êñÑ¡Γ¿Σ¿¬áΓ«α ¼áßß¿óá íÑº ¬óá½¿Σ¿¬áΓ«αá ∩ó½∩ÑΓß∩ ßßδ½- ¬«⌐ ¡á óÑß∞ ¼áßß¿ó, ¡á»α¿¼Ñα: Results êñÑ¡Γ¿Σ¿¬áΓ«α ¼áßß¿óá ß π¬áºá¡¡δ¼ ¿¡ñÑ¬ß«¼ «í«º¡áτáÑΓ ¬«¡¬αÑΓ¡δ⌐ φ½Ñ¼Ñ¡Γ ¼áßß¿óá, ó ñá¡¡«¼ ß½πτáÑ ßΓαπ¬Γπα¡πε »Ñ- αÑ¼Ñ¡¡πε: Results[Current+1] é ß½πτáÑ, Ñß½¿ φ½Ñ¼Ñ¡Γ«¼ ∩ó½∩ÑΓß∩ ºá»¿ß∞, ºá ¿¡ñÑ¬ß«¼ ¼«ª¡« π¬áºáΓ∞ «í«º¡áτÑ¡¿Ñ »«½∩. é φΓ«¼ ß½πτáÑ ßßδ½¬á ¡á »Ñ- αÑ¼Ñ¡¡πε «º¡áτáÑΓ ¬«¡¬αÑΓ¡«Ñ »«½Ñ ¬«¡¬αÑΓ¡«ú« φ½Ñ¼Ñ¡Γá ¼áß- ß¿óá: Results[Current+1].data Äí«º¡áτÑ¡¿Ñ »«½∩ ó π¬áºáΓÑ½Ñ-»«½Ñ ¼«ªÑΓ ß«»α«ó«ªñáΓ∞ß∩ ß¿¼ó«½«¼ π¬áºáΓÑ½∩ (^) ß ΓÑ¼, τΓ«íδ π¬áºáΓ∞ αáº½¿τ¿Ñ ¼Ñªñπ π¬áºáΓÑ½Ñ¼-»«½Ñ¼ ¿ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¡á ¬«Γ«απε «¡ π¬áºδóáÑΓ. Results[Current+1].data^ àß½¿ »ÑαÑ¼Ñ¡¡á∩, ¡á ¬«Γ«απε π¬áºδóáÑΓß∩, ∩ó½∩ÑΓß∩ ¼áß- ß¿ó«¼, Γ« ¼«ª¡« ñ«íáó¿Γ∞ ¿¡ñÑ¬ßδ ñ½∩ «í«º¡áτÑ¡¿∩ ¬«¼»«¡Ñ¡Γ«ó φΓ«ú« ¼áßß¿óá. Results[Current+1].data^[J] îáßß¿óδ, ßΓα«¬¿ ¿ ¿¡ñÑ¬ßδ è«¡¬αÑΓ¡δ⌐ φ½Ñ¼Ñ¡Γ ¼áßß¿óá «í«º¡áτáÑΓß∩ ß »«¼«Θ∞ε ßßδ½- ¬¿ ¡á »ÑαÑ¼Ñ¡¡πε ¼áßß¿óá, ºá ¬«Γ«α«⌐ π¬áºδóáÑΓß∩ ¿¡ñÑ¬ß, «»- αÑñÑ½∩εΘ¿⌐ ñá¡¡δ⌐ φ½Ñ¼Ñ¡Γ. è«¡¬αÑΓ¡δ⌐ ß¿¼ó«½ ó ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ «í«º¡áτáÑΓß∩ ß »«¼«Θ∞ε ßßδ½¬¿ ¡á ßΓα«¬«óπε »ÑαÑ¼Ñ¡¡πε, ºá ¬«Γ«α«⌐ π¬áºδóá- ÑΓß∩ ¿¡ñÑ¬ß, «»αÑñÑ½∩εΘ¿⌐ »«º¿µ¿ε ß¿¼ó«½á. - ----------- - ¿¡ñÑ¬ß--->([)----->!óδαáªÑ¡¿Ñ!------->(])----> - ^ ----------- ! - ! - ! ------(,)<-------- - ê¡ñÑ¬ß¡δÑ óδαáªÑ¡¿∩ «í«º¡áτáεΓ ¬«¼»«¡Ñ¡Γδ ó ß««ΓóÑΓßΓ- óπεΘÑ⌐ αáº¼Ñα¡«ßΓ¿ ¼áßß¿óá. ù¿ß½« óδαáªÑ¡¿⌐ ¡Ñ ñ«½ª¡« »αÑóδ- ΦáΓ∞ τ¿ß½á ¿¡ñÑ¬ß¡δσ Γ¿»«ó ó «»¿ßá¡¿¿ ¼áßß¿óá. ü«½ÑÑ Γ«ú«, Γ¿» ¬áªñ«ú« óδαáªÑ¡¿∩ ñ«½ªÑ¡ íδΓ∞ ß«ó¼ÑßΓ¿¼δ¼ »« »α¿ßóá¿óá- ¡¿ε ß ß««ΓóÑΓßΓóπεΘ¿¼ ¿¡ñÑ¬ß¡δ¼ Γ¿»«¼. é ß½πτáÑ ¼¡«ú«¼Ñα¡«ú« ¼áßß¿óá «ñ¿¡á¬«ó« ¼«ª¡« ¿ß»«½∞º«- óáΓ∞ ¡Ñß¬«½∞¬« ¿¡ñÑ¬ß«ó ¿½¿ ¡Ñß¬«½∞¬« óδαáªÑ¡¿⌐ ó ¿¡ñÑ¬ßÑ. ìá»α¿¼Ñα: Matrix[I][J] Γ«ªñÑßΓóÑ¡¡« Matrix[I,J] æΓα«¬«óπε »ÑαÑ¼Ñ¡¡πε ¼«ª¡« »α«¿¡ñÑ¬ß¿α«óáΓ∞ ß »«¼«Θ∞ε «ñ¿¡«τ¡«ú« ¿¡ñÑ¬ß¡«ú« óδαáªÑ¡¿∩, º¡áτÑ¡¿Ñ ¬«Γ«α«ú« ñ«½ª¡« íδΓ∞ ó ñ¿á»áº«¡Ñ 0...n, úñÑ n - π¬áºá¡¡δ⌐ ó «»¿ßá¡¿¿ αáº¼Ñα ßΓα«¬¿. ¥Γ« ñáÑΓ ñ«ßΓπ» ¬ ¬áªñ«¼π ß¿¼ó«½π ó ßΓα«¬«ó«¼ º¡áτÑ- ¡¿¿, Ñß½¿ º¡áτÑ¡¿Ñ ß¿¼ó«½á ¿¼ÑÑΓ Γ¿» char. ÅÑαóδ⌐ ß¿¼ó«½ ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ (¿¡ñÑ¬ß 0) ß«ñÑαª¿Γ ñ¿¡á¼¿τÑß¬πε ñ½¿¡π ßΓα«¬¿; Γ« ÑßΓ∞ Length(S) Γ«ªñÑßΓóÑ¡¡« Ord(S[0]). àß½¿ áΓα¿íπΓπ ñ½¿¡δ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ, Γ« ¬«¼»¿½∩Γ«α ¡Ñ »α«óÑα∩ÑΓ, ∩ó½∩ÑΓß∩ ½¿ φΓ« º¡áτÑ¡¿Ñ ¼Ñ¡∞ΦÑ «»¿ßá¡¡«ú« αáº¼Ñαá ßΓα«¬¿. éδ ¼«ªÑΓÑ π¬áºáΓ∞ ¿¡ñÑ¬ß ßΓα«¬¿ ¿ ó¡Ñ ÑÑ ΓÑ¬πΘÑ⌐ ñ¿¡á¼¿τÑß¬«⌐ ñ½¿¡δ. é φΓ«¼ ß½πτáÑ ßτ¿ΓδóáÑ¼δÑ ß¿¼ó«½δ íπñπΓ ß½πτá⌐¡δ¼¿, á »α¿ßóá¿óá¡¿∩ ó¡Ñ ΓÑ¬πΘÑ⌐ ñ½¿¡δ ¡Ñ »«ó½¿∩εΓ ¡á ñÑ⌐ßΓó¿ΓÑ½∞¡«Ñ º¡áτÑ¡¿Ñ ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐. çá»¿ß¿ ¿ ñÑß¿ú¡áΓ«αδ »«½Ñ⌐ è«¡¬αÑΓ¡«Ñ »«½Ñ »ÑαÑ¼Ñ¡¡«⌐-ºá»¿ß¿ «í«º¡áτáÑΓß∩ ß »«- ¼«Θ∞ε ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε-ºá»¿ß∞, »«ß½Ñ ¬«Γ«α«⌐ π¬áºδóáÑΓß∩ «í«º¡áτÑ¡¿Ñ »«½∩, ß»Ñµ¿Σ¿µ¿απεΘÑÑ φΓ« »«½Ñ. - -------------------- ñÑß¿ú¡áΓ«αδ »«½Ñ⌐---->(.)--->!¿ñÑ¡Γ¿Σ¿¬áΓ«α »«½∩!-----> - -------------------- Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ñÑß¿ú¡áΓ«α«ó »«½Ñ⌐: Today.year Results[1].count Result[1].when.month é «»ÑαáΓ«αÑ, óσ«ñ∩ΘÑ¼ ó «»ÑαáΓ«α with, «í«º¡áτÑ¡¿ε »«½∩ ¡Ñ ñ«½ª¡á »αÑñΦÑßΓó«óáΓ∞ ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε, ß«ñÑαªáΘπε ºá»¿ß∞. ÅÑαÑ¼Ñ¡¡δÑ-π¬áºáΓÑ½¿ ¿ ñ¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ ç¡áτÑ¡¿Ñ¼ »ÑαÑ¼Ñ¡¡«⌐-π¬áºáΓÑ½∩ ∩ó½∩ÑΓß∩ ¿½¿ nil (Γ« ÑßΓ∞ »πßΓ«Ñ º¡áτÑ¡¿Ñ), ¿½¿ áñαÑß º¡áτÑ¡¿∩, π¬áºδóáεΘ¿⌐ ¡á ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε. æßδ½¬á ¡á ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε, ¡á ¬«Γ«απε π¬áºδóáÑΓ »ÑαÑ¼Ñ¡¡á∩-π¬áºáΓÑ½∞, ºá»¿ßδóáÑΓß∩ ó ó¿ñÑ »ÑαÑ¼Ñ¡¡«⌐-π¬áºá- ΓÑ½∩, »«ß½Ñ ¬«Γ«α«⌐ ßΓáó¿Γß∩ ß¿¼ó«½ π¬áºáΓÑ½∩ (^). ä¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ ¿ º¡áτÑ¡¿∩ ¿σ π¬áºáΓÑ½Ñ⌐ ß«ºñá- εΓß∩ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡δσ »α«µÑñπα New ¿ GetMem. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ «»Ñαáµ¿ε @ ¿ ßΓá¡ñáαΓ¡πε Σπ¡¬µ¿ε Ptr ñ½∩ ß«ºñá- ¡¿∩ º¡áτÑ¡¿⌐ π¬áºáΓÑ½∩, ¬«Γ«αδÑ αáßß¼áΓα¿óáεΓß∩ ¬á¬ π¬áºá- ΓÑ½¿ ñ¿¡á¼¿τÑß¬¿σ »ÑαÑ¼Ñ¡¡δσ. ç¡áτÑ¡¿Ñ nil ¡Ñ π¬áºδóáÑΓ ¡¿ ¡á ¬á¬πε »ÑαÑ¼Ñ¡¡πε. ÉÑ- ºπ½∞ΓáΓ íπñÑΓ ¡Ñ«»αÑñÑ½Ñ¡¡δ¼, Ñß½¿ óδ »«»δΓáÑΓÑß∞ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐ »α¿ ¡Ñ«»αÑñÑ½Ñ¡¡«¼ º¡áτÑ¡¿¿ π¬áºáΓÑ½∩ ¿½¿ π¬áºáΓÑ½Ñ, αáó¡«¼ nil. Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ßßδ½«¬ (π¬áºáΓÑ½Ñ⌐) ¡á ñ¿- ¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ: P1 P1.sibling Results[1].data Åα¿óÑñÑ¡¿Ñ Γ¿»«ó »ÑαÑ¼Ñ¡¡δσ æßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε «ñ¡«ú« Γ¿»á ¼«ªÑΓ íδΓ∞ »αÑ«íαáº«- óá¡á ó ßßδ½¬π ¡á »ÑαÑ¼Ñ¡¡πε ñαπú«ú« Γ¿»á ß »«¼«Θ∞ε »α¿óÑñÑ- ¡¿∩ Γ¿»«ó »ÑαÑ¼Ñ¡¡δσ. --------------- - ------------ - »α¿óÑñÑ¡¿Ñ Γ¿»á-->!¿ñÑ¡Γ¿Σ¿¬áΓ«α!-->(()-->!ßßδ½¬á ¡á !-->())--> »ÑαÑ¼Ñ¡¡«⌐ !Γ¿»á ! - !»ÑαÑ¼Ñ¡¡πε! - --------------- ------------ è«úñá »α¿óÑñÑ¡¿Ñ Γ¿»«ó »α¿¼Ñ¡∩ÑΓß∩ ¬ ßßδ½¬Ñ ¡á »ÑαÑ¼Ñ¡- ¡πε, ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε αáßß¼áΓα¿óáÑΓß∩ ¬á¬ φ¬ºÑ¼»½∩α Γ¿- »á, »αÑñßΓáó½Ñ¡¡«ú« ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ Γ¿»á. Éáº¼Ñα »ÑαÑ¼Ñ¡¡«⌐ (τ¿ß½« íá⌐Γ«ó, ºá¡¿¼áÑ¼δσ »ÑαÑ¼Ñ¡¡«⌐) ñ«½ªÑ¡ íδΓ∞ αáóÑ¡ αáº- ¼Ñαπ Γ¿»á, »αÑñßΓáó½Ñ¡¡«ú« ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ Γ¿»á. Å«ß½Ñ »α¿- óÑñÑ¡¿∩ Γ¿»á »ÑαÑ¼Ñ¡¡«⌐ ¼«ª¡« π¬áºáΓ∞ «ñ¿¡ ¿½¿ ¡Ñß¬«½∞¬« ¬óá½¿Σ¿¬áΓ«α«ó, Ñß½¿ φΓ« ñ«»πß¬áÑΓß∩ π¬áºá¡¡δ¼ Γ¿»«¼. Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó »α¿óÑñÑ¡¿∩ Γ¿»«ó »ÑαÑ¼Ñ¡- ¡δσ: type ByteRec = record lo, hi: byte; end; WordRec = record low, high: word; end; PtrRec = record ofs, seg: word; end; BytePtr = ^Byte; var B: byte; W: word; L: longint; P: pointer; begin W := $1234; B := ByteRec(W).lo; ByteRec(W).hi := 0; L := $1234567; W := WordRec(L).lo; B := BytePtr(L)^; P := Ptr($40,$49); W := PtrRec(P).seg; Inc(PtrRec(P).seg; end. ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á ¿ß»«½∞º«óá¡¿Ñ ñ½∩ ñ«ßΓπ»á ¬ ¼½áñ- Φ¿¼ ¿ ßΓáαΦ¿¼ íá⌐Γá¼ ß½«óá Γ¿»á ByteRec: φΓ« ß««ΓóÑΓßΓóπÑΓ óßΓα«Ñ¡¡δ¼ Σπ¡¬µ¿∩¼ Lo ¿ Hi, Γ«½∞¬« ¡áñ ½Ñó«⌐ τáßΓ∞ε ó «»Ñ- αáµ¿¿ »α¿ßóá¿óá¡¿Ñ ¼«ªÑΓ óδ»«½¡∩Γ∞ß∩ »α¿óÑñÑ¡¿Ñ Γ¿»á. ÄΓ¼Ñ- Γ¿¼ Γá¬ªÑ, τΓ« ñ½∩ ñ«ßΓπ»á ¬ ¼½áñΦ¿¼ ¿ ßΓáαΦ¿¼ ß½«óá¼ ñ½¿¡- ¡«ú« µÑ½«ú«, á Γá¬ªÑ ¬ ß¼ÑΘÑ¡¿ε ¿ áñαÑßπ ßÑú¼Ñ¡Γá π¬áºáΓÑ½∩ ¿ß»«½∞ºπεΓß∩ Γ¿»δ WordRec ¿ PtrRec. âïÇéÇ 5 Æ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ Æ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ ¼«ª¡« ßαáó¡¿Γ∞ ß ¿¡¿µ¿á½¿º¿α«- óá¡¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿ - »ÑαÑ¼Ñ¡¡δ¼¿, º¡áτÑ¡¿∩ ¬«Γ«αδσ «»αÑñÑ- ½∩εΓß∩ ¡á óσ«ñÑ ó ¿σ í½«¬. é «Γ½¿τ¿Ñ «Γ ¡ÑΓ¿»¿º«óá¡¡δσ ¬«¡ß- Γá¡Γ (ß¼. αáºñÑ½ "Ä»¿ßá¡¿∩ ¬«¡ßΓá¡Γ" ó â½áóÑ 1) ó «»¿ßá¡¿¿ Γ¿»¿º«óá¡¡«⌐ ¬«¡ßΓá¡Γδ π¬áºδóáÑΓß∩ ¬á¬ Γ¿», Γá¬ ¿ º¡áτÑ¡¿Ñ ¬«¡ßΓá¡Γδ. «»¿ßá¡¿Ñ --------- - ----- - -------------- Γ¿»¿º«óá¡¡«⌐-->!¿ñÑ¡Γ¿-!-->(:)-->!Γ¿»!-->(=)-->!Γ¿»¿º«óá¡¡á∩!-> ¬«¡ßΓá¡Γδ !Σ¿¬áΓ«α! - ----- - !¬«¡ßΓá¡Γá ! --------- -------------- ----------- Γ¿»¿º«óá¡¡á∩----->!¬«¡ßΓá¡Γá!------------------------> ¬«¡ßΓá¡Γá ! ----------- ^ ! ------------------- ! !-->!¬«¡ßΓá¡Γá-¼áßß¿ó !---------! ! ------------------- ! ! ------------------ ! !-->!¬«¡ßΓá¡Γá-ºá»¿ß∞!----------! ! ------------------ ! ! --------------------- ! !-->!¬«¡ßΓá¡Γá-¼¡«ªÑßΓó«!-------! ! --------------------- ! ! --- ! ---------(nil)------------------- --- Æ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ Γ«τ¡« Γá¬ ªÑ, ¬á¬ »ÑαÑ¼Ñ¡¡δÑ Γ«ú« ªÑ ßá¼«ú« Γ¿»á, ¿ «¡¿ π¬áºδóáεΓß∩ ó ½Ñ- ó«⌐ τáßΓ¿ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩. ÄΓ¼ÑΓ¿¼, τΓ« Γ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ ¿¡¿µ¿á½¿º¿απεΓß∩ Γ«½∞¬« «ñ¿¡ αáº - ó ¡áτá½Ñ óδ»«½- ¡Ñ¡¿∩ »α«úαá¼¼δ. Æá¬¿¼ «íαáº«¼, »α¿ ¬áªñ«¼ ¡«ó«¼ óσ«ñÑ ó »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ½«¬á½∞¡« «»¿ßá¡¡δÑ Γ¿»¿º«óá¡¡δÑ ¬«¡ß- Γá¡Γδ ºá¡«ó« ¡Ñ ¿¡¿µ¿á½¿º¿απεΓß∩. è«¡ßΓá¡Γδ »α«ßΓ«ú« Γ¿»á Ä»¿ßá¡¿Ñ Γ¿»¿º«óá¡¡«⌐ ¬«¡ßΓá¡Γδ ß »α«ßΓδ¼ Γ¿»«¼ «º¡áτá- ÑΓ π¬áºá¡¿Ñ º¡áτÑ¡¿∩ ¬«¡ßΓá¡Γδ: const Maximum : integer = 9999; Factor : real = -0.1; Breakchar : char = #3; Å«ß¬«½∞¬π Γ¿»¿º«óá¡¡á∩ ¬«¡ßΓá¡Γá Σá¬Γ¿τÑß¬¿ »αÑñßΓáó½∩- ÑΓ ß«í«⌐ »ÑαÑ¼Ñ¡¡πε ß« º¡áτÑ¡¿Ñ¼ ¬«¡ßΓá¡Γδ, «¡á ¡Ñ ∩ó½∩ÑΓß∩ óºá¿¼«ºá¼Ñ¡¿¼«⌐ ñ½∩ «íδτ¡δσ ¬«¡ßΓá¡Γ. ìá»α¿¼Ñα, «¡á ¡Ñ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ó «»¿ßá¡¿¿ ñαπú¿σ ¬«¡ßΓá¡Γ ¿½¿ Γ¿»«ó. Const Min : integer = 0; Max : integer = 99; type Vector = array[Min..Max] of integer; Ä»¿ßá¡¿Ñ Vector ∩ó½∩ÑΓß∩ ¡Ññ«»πßΓ¿¼δ¼, »«ß¬«½∞¬π Min ¿ Max ∩ó½∩εΓß∩ Γ¿»¿º«óá¡¡δ¼¿ ¬«¡ßΓá¡Γá¼¿. è«¡ßΓá¡Γδ ßΓα«¬«ó«ú« Γ¿»á Ä»¿ßá¡¿Ñ Γ¿»¿º«óá¡¡«⌐ ¬«¡ßΓá¡Γδ ßΓα«¬«ó«ú« Γ¿»á ß«ñÑα- ª¿Γ ¼á¬ß¿¼á½∞¡πε ñ½¿¡π ßΓα«¬¿ ¿ ÑÑ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ: const Heading : string[7] = 'Section'; NewLine : string[2] = #13#10; TrueStr : string[5] = 'Yes'; FalseStr : string[5] = 'No'; è«¡ßΓá¡Γδ ßΓαπ¬Γπα¡«ú« Γ¿»á Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ ßΓαπ¬Γπα¡«ú« Γ¿»á ß«ñÑαª¿Γ º¡áτÑ¡¿Ñ ¬áªñ«ú« ¬«¼»«¡Ñ¡Γá ßΓαπ¬Γπαδ. Æπαí«-Åáß¬á½∞ »«ññÑαª¿óáÑΓ «»¿ßá¡¿∩ ¬«¡ßΓá¡Γ Γ¿»á ¼áßß¿ó, ºá»¿ß∞, ¼¡«ªÑßΓó« ¿ π¬áºá- ΓÑ½∞. è«¡ßΓá¡Γδ Σá⌐½«ó«ú« Γ¿»á ¿ ¬«¡ßΓá¡Γδ Γ¿»á ¼áßß¿ó ¿½¿ ºá»¿ß∞, ß«ñÑαªáΘ¿Ñ ¬«¼»«¡Ñ¡Γδ Σá⌐½«ó«ú« Γ¿»á, ¡Ñ ñ«»πß¬áεΓ- ß∩. è«¡ßΓá¡Γδ Γ¿»á ¼áßß¿ó Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ Γ¿»á ¼áßß¿ó ß«ñÑαª¿Γ º¡áτÑ¡¿∩ φ½Ñ- ¼Ñ¡Γ«ó, ºá¬½ετÑ¡¡δÑ ó ß¬«í¬¿ ¿ αáºñÑ½Ñ¡¡δÑ ºá»∩Γδ¼¿. - ------------------------ - ¬«¡ßΓá¡Γá-¼áßß¿ó-->(()---->!Γ¿»¿º«óá¡¡á∩ ¬«¡ßΓá¡Γá!---->())--> - ^ ------------------------ ! - ! - ! -------------(,)-------------- - Åα¿óÑñÑ¼ »α¿¼Ñα ¬«¡ßΓá¡Γδ Γ¿»á ¼áßß¿ó: type Status = (Active,Passive,Waiting); StatusMap = array[Status] of string[7]; const StatStr: StatusMap = ('Active','Passive','Waiting'); é φΓ«¼ »α¿¼ÑαÑ «»αÑñÑ½∩ÑΓß∩ ¬«¡ßΓá¡Γá-¼áßß¿ó StarStr, ¬«Γ«αá∩ ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡á ñ½∩ »αÑ«íαáº«óá¡¿∩ º¡áτÑ¡¿⌐ Γ¿»á Status ó ß««ΓóÑΓßΓóπεΘ¿Ñ ¿¼ ßΓα«¬«óδÑ »αÑñßΓáó½Ñ¡¿∩. ¥½Ñ¼Ñ¡Γá¼¿ ¼áßß¿óá StarStr ∩ó½∩εΓß∩: StatStr[Active] = 'Active' StatStr[Passive] = 'Passive' StatStr[Waiting] = 'Waiting' Æ¿» φ½Ñ¼Ñ¡Γá ¬«¡ßΓá¡Γδ-¼áßß¿óá ¼«ªÑΓ íδΓ∞ ½εíδ¼, ¬α«¼Ñ Σá⌐½«ó«ú« Γ¿»á. ô»á¬«óá¡¡δÑ ¬«¡ßΓá¡Γδ ßΓα«¬«ó«ú« Γ¿»á (ß¿¼- ó«½∞¡δÑ ¼áßß¿óδ) ¼«úπΓ íδΓ∞ «»αÑñÑ½Ñ¡δ ¿ ¬á¬ «ñ¿¡«τ¡δÑ ß¿¼- ó«½δ, ¿ ¬á¬ ßΓα«¬¿. Ä»αÑñÑ½Ñ¡¿Ñ: const Digits:array[0..9] of char=('0','1',12','3','4','5','6','7','8','9'); ¼«ª¡« »αÑñßΓáó¿Γ∞ ó í«½ÑÑ πñ«í¡«¼ ó¿ñÑ: const Digits: array[0..9] of char = '0123456789'; Åα¿ «»¿ßá¡¿¿ ¬«¡ßΓá¡Γδ Γ¿»á "¼¡«ú«¼Ñα¡δ⌐ ¼áßß¿ó" ¬«¡ß- Γá¡Γδ ¬áªñ«⌐ αáº¼Ñα¡«ßΓ¿ ºá¬½ετáεΓß∩ ó «ΓñÑ½∞¡δÑ ß¬«í¬¿ ¿ αáºñÑ½∩εΓß∩ ºá»∩Γδ¼¿. Éáß»«½«ªÑ¡¡δÑ ó ßÑαÑñ¿¡Ñ ¬«¡ßΓá¡Γδ ß«- «ΓóÑΓßΓóπεΓ ßá¼δ¼ »αáóδ¼ αáº¼Ñα¡«ßΓ∩¼. Ä»¿ßá¡¿Ñ: type Cube = array[0..1,0..1,0..1] of integer; const Maze: Cube = (((0,1),(2,3)),((4,5),(6,7))); ºáñáÑΓ ß½ÑñπεΘ¿Ñ ¡áτá½∞¡δÑ º¡áτÑ¡¿∩ ¼áßß¿óá Maze: Maze[0,0,0] = 0 Maze[0,0,1] = 1 Maze[0,1,0] = 2 Maze[0,1,1] = 3 Maze[1,0,0] = 4 Maze[1,0,1] = 5 Maze[1,1,0] = 6 Maze[1,1,1] = 7 è«¡ßΓá¡Γδ Γ¿»á ºá»¿ß∞ Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ Γ¿»á ºá»¿ß∞ ß«ñÑαª¿Γ ¿ñÑ¡Γ¿Σ¿- ¬áΓ«α ¿ º¡áτÑ¡¿Ñ ¬áªñ«ú« »«½∩, ºá¬½ετÑ¡¡δÑ ó ß¬«í¬¿ ¿ αáºñÑ- ½Ñ¡¡δÑ Γ«τ¬á¼¿ ß ºá»∩Γ«⌐. - --------- - ------------ - ¬«¡ßΓá¡Γá-ºá»¿ß∞-->(()-->!¿ñÑ¡Γ¿-!-->(:)-->!Γ¿»¿º«óá¡-!-->())-> - ^ !Σ¿¬áΓ«α! - !¡á∩ ¬«¡- ! ! - ! !»«½∩ ! !ßΓá¡Γá ! ! ! --------- - ------------ ! --------------(;)<---------------- - Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ¬«¡ßΓá¡Γ-ºá»¿ßÑ⌐: type Point = record x,y: real; end; Vector = array[0..1] of Point; Month = (Jan,Feb,Mar,Apr,May,Jun,Jly,Aug,Sep,Oct,Nov,Dec); Date = record d: 1..31; m: Month; y: 1900..1999; end; const Origon : Point = (x: 0.0; y: 0.0); Line : Vector = ((x: -3.1; y: 1.5),(x: 5.8; y: 3.0)); SomeDay : Date = (d: 2; m: Dec; y: 1960); Å«½∩ ñ«½ª¡δ π¬áºδóáΓ∞ß∩ ó Γ«¼ ªÑ »«α∩ñ¬Ñ, ¬á¬ «¡¿ ß½Ñ- ñπεΓ ó «»¿ßá¡¿¿ Γ¿»á ºá»¿ß∞. àß½¿ ºá»¿ß∞ ß«ñÑαª¿Γ »«½∩ Σá⌐- ½«ó«ú« Γ¿»á, Γ« ñ½∩ φΓ«ú« Γ¿»á ºá»¿ß∞ ¡Ñ½∞º∩ «»¿ßáΓ∞ ¬«¡ß- Γá¡Γπ. àß½¿ ºá»¿ß∞ ß«ñÑαª¿Γ óáα¿á¡Γ, Γ« ¼«ª¡« π¬áºδóáΓ∞ Γ«½∞¬« »«½∩ óδíαá¡¡«ú« óáα¿á¡Γá. àß½¿ óáα¿á¡Γ ß«ñÑαª¿Γ »«½Ñ »α¿º¡á¬á, Γ« Ñú« º¡áτÑ¡¿Ñ ñ«½ª¡« íδΓ∞ «»αÑñÑ½Ñ¡«. è«¡ßΓá¡Γδ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á ¼«ªÑΓ ß«ñÑαªáΓ∞ ¡Ñß¬«½∞¬« φ½Ñ¼Ñ¡Γ«ó, ºá¬½ετÑ¡¡δσ ó ¬óáñαáΓ¡δÑ ß¬«í¬¿ ¿ αáº- ñÑ½Ñ¡¡δσ ºá»∩Γδ¼¿. èáªñδ⌐ φ½Ñ¼Ñ¡Γ Γá¬«⌐ ¬«¡ßΓá¡Γδ »αÑñßΓáó- ½∩ÑΓ ß«í«⌐ ¬«¡ßΓá¡Γπ ¿½¿ «ΓαÑº«¬ Γ¿»á, ß«ßΓ«∩Θ¿⌐ ¿º ñóπσ ¬«¡ßΓá¡Γ, αáºñÑ½Ñ¡¡δσ ñóπ¼∩ Γ«τ¬á¼¿. - - ¬«¡ßΓá¡Γá-¼¡«ªÑßΓó«-->([)---------------------------->(])--> - ! ^ - ! ---------------- ! ---->! ¬«¡ßΓá¡Γá- !----- ^ ! φ½Ñ¼Ñ¡Γ ! ! ! ---------------- ! ! - ! ----------(,)<---------- - ¬«¡ßΓá¡Γá- ----------- φ½Ñ¼Ñ¡Γ-------!¬«¡ßΓá¡Γá!-----------------------------> ----------- ! ^ ! -- ----------- ! -->(..)-->!¬«¡ßΓá¡Γá!--- -- ----------- Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ¬«¡ßΓá¡Γ-¼¡«ªÑßΓó: type Digits = set of 0..9; Letters = set of 'A'..'Z'; const EvenDigits: Digits = [0,2,4,6,8]; Vowels : Letters = ['A','E','I','O','U','Y']; HexDigits : set of '0'..'z' = ['0'..'9','A'..'F','a'..'f']; è«¡ßΓá¡Γδ Γ¿»á π¬áºáΓÑ½∞ Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ ß Γ¿»«¼ π¬áºáΓÑ½∞ (¬«Γ«απε ¡áºδóáεΓ ¿¡«úñá ¬«¡ßΓá¡Γ«⌐ ßßδ½«τ¡«ú« Γ¿»á) ¼«ªÑΓ ß«ñÑαªáΓ∞ Γ«½∞¬« º¡áτÑ¡¿Ñ nil (»πßΓ«). Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó: type NamePtr = ^NameRec; NameRec = record Next: NamePtr; Name: string[31]; end; const NameList: NamePtr = nil; NoName: NameRec = (Next: nil; Name: ''); âïÇéÇ 6 éδαáªÑ¡¿∩ éδαáªÑ¡¿∩ ß«ßΓ«∩Γ ¿º «»Ñαáµ¿⌐ ¿ «»Ñαá¡ñ«ó. ü«½∞Φ¿¡ßΓó« «»Ñαáµ¿⌐ ó ∩ºδ¬Ñ Åáß¬á½∞ ∩ó½∩εΓß∩ í¿¡áα¡δ¼¿, Γ« ÑßΓ∞ ß«ñÑα- ªáΓ ñóá «»Ñαá¡ñá. ÄßΓá½∞¡δÑ «»Ñαáµ¿¿ ∩ó½∩εΓß∩ π¡áα¡δ¼¿ ¿ ß«- ñÑαªáΓ Γ«½∞¬« «ñ¿¡ «»Ñαá¡ñ. é í¿¡áα¡δσ «»Ñαáµ¿∩σ ¿ß»«½∞ºπÑΓ- ß∩ «íδτ¡«Ñ á½úÑíαá¿τÑß¬«Ñ »αÑñßΓáó½Ñ¡¿Ñ, ¡á»α¿¼Ñα: a+b. é π¡áα¡δσ «»Ñαáµ¿∩σ «»Ñαáµ¿∩ óßÑúñá »αÑñΦÑßΓóπÑΓ «»Ñαá¡ñπ, ¡á»α¿¼Ñα: -b. é í«½ÑÑ ß½«ª¡δσ óδαáªÑ¡¿∩σ »«α∩ñ«¬, ó ¬«Γ«α«¼ óδ»«½¡∩- εΓß∩ «»Ñαáµ¿¿, ß««ΓóÑΓßΓóπÑΓ »α¿«α¿ΓÑΓπ «»Ñαáµ¿⌐ (ß¼. Æáí½¿- µπ 6.1). Å«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ «»Ñαáµ¿⌐ Æáí½¿µá 6.1 ------------------------------------------------------------ Ä»Ñαáµ¿∩ Åα¿«α¿ΓÑΓ é¿ñ «»Ñαáµ¿¿ ------------------------------------------------------------ @, not »Ñαóδ⌐ (óδßΦ¿⌐) π¡áα¡á∩ «»Ñαáµ¿∩ *, /, div, mod, óΓ«α«⌐ «»Ñαáµ¿∩ π¼¡«ªÑ¡¿∩ and, shl, shr +, -, or, xor ΓαÑΓ¿⌐ «»Ñαáµ¿∩ ß½«ªÑ¡¿∩ =, <>, <, >, τÑΓóÑαΓδ⌐ (¡¿ºΦ¿⌐) «»Ñαáµ¿∩ «Γ¡«ΦÑ¡¿∩ <=, >=, in ------------------------------------------------------------ ä½∩ «»αÑñÑ½Ñ¡¿¿ ßΓáαΦ¿¡ßΓóá «»Ñαáµ¿⌐ ¿¼ÑÑΓß∩ Γα¿ «ß¡«ó- ¡δσ »αáó¿½á: 1. é«-»Ñαóδσ, «»Ñαá¡ñ, ¡áσ«ñ∩Θ¿⌐ß∩ ¼Ñªñπ ñóπ¼∩ «»Ñαá- µ¿∩¼¿ ß αáº½¿τ¡δ¼¿ »α¿«α¿ΓÑΓá¼¿, ßó∩ºδóáÑΓß∩ ß «»Ñ- αáµ¿Ñ⌐, ¿¼ÑεΘÑ⌐ í«½ÑÑ óδß«¬¿⌐ »α¿«α¿ΓÑΓ. 2. é«-óΓ«αδσ, «»Ñαáµ¿∩, ¡áσ«ñ∩Θá∩ß∩ ¼Ñªñπ ñóπ¼∩ «»Ñαá- µ¿∩¼¿ ß αáó¡δ¼¿ »α¿«α¿ΓÑΓá¼¿, ßó∩ºδóáÑΓß∩ ß Γ«⌐ «»Ñαáµ¿Ñ⌐, ¬«Γ«αá∩ ¡áσ«ñ¿Γß∩ ß½Ñóá «Γ ¡Ñú«. 3. é-ΓαÑΓ∞¿σ, óδαáªÑ¡¿Ñ, ºá¬½ετÑ¡¡«Ñ ó ß¬«í¬¿, »ÑαÑñ óδ»«½¡Ñ¡¿Ñ¼ óδτ¿ß½∩ÑΓß∩, ¬á¬ «ΓñÑ½∞¡δ⌐ «»Ñαá¡ñ. Ä»Ñαáµ¿¿ ß αáó¡δ¼ »α¿«α¿ΓÑΓ«¼ «íδτ¡« óδ»«½¡∩εΓß∩ ß½Ñóá ¡á»αáó«, σ«Γ∩ ¿¡«úñá ¬«¼»¿½∩Γ«α »α¿ úÑ¡Ñαáµ¿¿ «»Γ¿¼á½∞¡«ú« ¬«ñá ¼«ªÑΓ »ÑαÑπ»«α∩ñ«τ¿Γ∞ «»Ñαá¡ñδ. æ¿¡Γá¬ß¿ß óδαáªÑ¡¿⌐ Åαáó¿½á, «»αÑñÑ½∩εΘ¿Ñ »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ «»Ñαáµ¿⌐, óδ- ΓÑ¬áεΓ ¿º ß¿¡Γá¬ß¿ßá óδαáªÑ¡¿⌐, ¬«Γ«αδÑ ßΓα«∩Γß∩ ¿º ¼¡«ª¿ΓÑ- ½Ñ⌐, ΓÑα¼«ó ¿ »α«ßΓδσ óδαáªÑ¡¿⌐. î¡«ª¿ΓÑ½∞ ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: ------------------------ ¼¡«ª¿ΓÑ½∞-------------------! ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε !-------> ! ! ^ ------------------------ ^ ^ ! ! --- ! --------------------------- ! ! ! ->( @ )-->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«µÑñπαδ !-! ! ! --- ! --------------------------- ! ! ! ! ------------------------- ! ! ! ->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿ !---- ! ! ------------------------- ! ! ----------------------- ! !->! ¬«¡ßΓá¡Γá íÑº º¡á¬á !--------------------->! ! ----------------------- ! ! --- ----------------- --- ! !->( ( )---->! óδαáªÑ¡¿Ñ !--->( ) )-------->! ! --- ----------------- --- ! ! ----- ------------- ! !->( not )--->! ¼¡«ª¿ΓÑ½∞ !-------------------->! ! ----- ------------- ! ! ----------------- ! !->! óδº«ó Σπ¡¬µ¿¿ !--------------------------->! ! ----------------- ! ! ----------------------- ! !->! «»¿ßáΓÑ½∞ ¼¡«ªÑßΓóá !--------------------->! ! ----------------------- ! ! ---------------------------- ! !->! »α¿óÑñÑ¡¿Ñ Γ¿»á º¡áτÑ¡¿∩ !------------------ ---------------------------- éδº«ó Σπ¡¬µ¿¿ á¬Γ¿ó¿º¿απÑΓ Σπ¡¬µ¿ε ¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ º¡áτÑ¡¿∩, ó«ºóαáΘáÑ¼δÑ Σπ¡¬µ¿Ñ⌐ (ß¼. ñá½ÑÑ ó φΓ«⌐ ú½áóÑ αáº- ñÑ½ "éδº«óδ Σπ¡¬µ¿⌐"). Ä»¿ßáΓÑ½∞ ¼¡«ªÑßΓóá »αÑñßΓáó½∩ÑΓ ß«- í«⌐ º¡áτÑ¡¿Ñ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á (ß¼. αáºñÑ½, «ºáú½áó½Ñ¡¡δ⌐, ¬á¬ "Ä»¿ßá¡¿Ñ ¼¡«ªÑßΓó"). Åα¿óÑñÑ¡¿Ñ Γ¿»á ¿º¼Ñ¡∩ÑΓ Γ¿» º¡á- τÑ¡¿∩ (ß¼. "Åα¿óÑñÑ¡¿Ñ Γ¿»á"). è«¡ßΓá¡Γá íÑº º¡á¬á ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: ------------------- è«¡ßΓá¡Γá íÑº º¡á¬á ----->! τ¿ß½« íÑº º¡á¬á !------------> ! ------------------- ^ ! --------------------- ! !-->! ß¿¼ó«½∞¡á∩ ßΓα«¬á !--------! ! --------------------- ! ! --------------------------- ! !-->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¬«¡ßΓá¡Γδ !--! ! --------------------------- ! ! ------ ! !-->( nil )---------------------! ------ ìÑ¬«Γ«αδÑ »α¿¼Ñαδ ¼¡«ª¿ΓÑ½Ñ⌐ ¼«úπΓ ó¬½ετáΓ∞ ó ßÑí∩: ò (ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε) @ò (π¬áºáΓÑ½∞ ¡á »ÑαÑ¼Ñ¡¡πε) 15 (¬«¡ßΓá¡Γá íÑº º¡á¬á) (ò+Y+Z) (»«ñóδαáªÑ¡¿Ñ) SIN(ò/2) (óδº«ó Σπ¡¬µ¿¿) ['0..''9','Ç'..'Z'] («»¿ßáΓÑ½∞ ¼¡«ªÑßΓóá) not Done («Γα¿µá¡¿Ñ íπ½Ñóß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐) ßhar(Digit+48) (¡áº¡áτÑ¡¿Ñ Γ¿»á) ÆÑα¼δ ¿ß»«½∞ºπεΓß∩ ó «»Ñαáµ¿∩σ π¼¡«ªÑ¡¿∩ ¡á ¼¡«ª¿ΓÑ½∞: ------------- ΓÑα¼ ----------------->! ¼¡«ª¿ΓÑ½∞ !--------------> ^ ------------- ! ! --- ! !--------------( * )<----------! ! --- ! ! --- ! !--------------( / )<----------! ! --- ! ! ----- ! !-------------( div )<---------! ! ----- ! ! ----- ! !-------------( mod )<---------! ! ----- ! ! ----- ! !-------------( and )<---------! ! ----- ! ! ----- ! !-------------( shl )<---------! ! ----- ! ! ----- ! --------------( shr )<---------- ----- Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ΓÑα¼«ó: ò*Y Z/(1-Z) Done or Error (ò <= Y) and (Y < Z) é »α«ßΓδσ óδαáªÑ¡¿∩σ ¬ ΓÑα¼á¼ »α¿¼Ñ¡∩εΓß∩ «»Ñαáµ¿¿ ß½«- ªÑ¡¿∩ ¿ »α¿ßóá¿óá¡¿∩ º¡á¬á: -------- »α«ßΓ«Ñ óδαáªÑ¡¿Ñ------------------------>! ΓÑα¼ !-------> ^ -------- ! ! ! ! ---- ! !----( + )<---! ! ---- ! ! ---- ! !----( . )<---! ! ---- ! ! ---- ! !----( «r )<---! ! ---- ! ! ----- ! -----( σ«r )<--- ----- Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó »α«ßΓδσ óδαáªÑ¡¿⌐: ò+Y -ò Hue1 + Hue2 I*J + 1 é óδαáªÑ¡¿∩σ ¬ »α«ßΓδ¼ óδαáªÑ¡¿∩¼ »α¿¼Ñ¡∩εΓß∩ «»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ óδαáªÑ¡¿⌐: ò = 1.5 Done <> Error (I < J) = (J < è) C in Huel --------------------- óδαáªÑ¡¿Ñ-! »α«ßΓ«Ñ óδαáªÑ¡¿Ñ !----------------------------> --------------------- ! ^ ! --- ------------- ! !->( < )-->! »α«ßΓ«Ñ !-- ! --- ^ ! óδαáªÑ¡¿Ñ ! ! --- ! ------------- !->(<= )-! ! --- ! ! --- ! !->( > )-! ! --- ! ! --- ! !->( = )-! ! --- ! ! --- ! !->(>= )-! ! --- ! ! --- ! !->(<> )-! ! --- ! ! --- ! -->(in )-- --- Ä»Ñαáµ¿¿ Ä»Ñαáµ¿¿ »«ñαáºñÑ½∩εΓß∩ ¡á áαΣ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿, ½«- ú¿τÑß¬¿Ñ «»Ñαáµ¿¿, ßΓα«¬«óδÑ «»Ñαáµ¿¿, «»Ñαáµ¿¿ ¡áñ ¼¡«ªÑßΓ- óá¼¿, «»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ ¿ «»Ñαáµ¿ε @ («»Ñαáµ¿∩ »«½πτÑ¡¿∩ áñαÑßá). Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ é ß½ÑñπεΘÑ⌐ Γáí½¿µÑ »α¿óÑñÑ¡δ Γ¿»δ «»Ñαá¡ñ«ó ¿ αÑºπ½∞- ΓáΓδ ñ½∩ í¿¡áα¡δσ ¿ π¡áα¡δσ áα¿Σ¼ÑΓ¿τÑß¬¿σ «»Ñαáµ¿⌐: ü¿¡áα¡δÑ áα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ Æáí½¿µá 6.2 ----------------------------------------------------------- Ä»Ñαáµ¿∩ äÑ⌐ßΓó¿Ñ Æ¿»δ «»Ñαá¡ñ«ó Æ¿» αÑºπ½∞ΓáΓá ----------------------------------------------------------- + æ½«ªÑ¡¿Ñ ûÑ½δ⌐ ûÑ½δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ - éδτ¿Γá¡¿Ñ ûÑ½δ⌐ ûÑ½δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ * ô¼¡«ªÑ¡¿Ñ ûÑ½δ⌐ ûÑ½δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ div äÑ½Ñ¡¿Ñ ûÑ½δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ mod ûÑ½«τ¿ß½Ñ¡¡«Ñ ñÑ½Ñ¡¿Ñ ûÑ½δ⌐ ûÑ½δ⌐ ÄßΓáΓ«¬ ûÑ½δ⌐ ûÑ½δ⌐ ---------------------------------------------------------- Åα¿¼Ñτá¡¿Ñ: Ä»Ñαáµ¿∩ + ¿ß»«½∞ºπÑΓß∩ Γá¬ªÑ, ¬á¬ «»Ñαá- µ¿∩ ñ½∩ αáí«Γδ ß« ßΓα«¬á¼¿ ¿ ¼¡«ªÑßΓóá¼¿. Ä»Ñαáµ¿¿ +, - ¿ * ¿ß»«½∞ºπεΓß∩ Γá¬ªÑ ñ½∩ «»Ñαáµ¿⌐ ¡áñ ¼¡«ªÑßΓóá¼¿. ô¡áα¡δÑ áα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ Æáí½¿µá 6.3 ---------------------------------------------------------- Ä»Ñαáµ¿∩ äÑ⌐ßΓó¿Ñ Æ¿» «»Ñαá¡ñá Æ¿» αÑºπ½∞ΓáΓá ---------------------------------------------------------- + æ«σαá¡Ñ¡¿Ñ º¡á¬á ûÑ½δ⌐ ûÑ½δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ - ÄΓα¿µá¡¿Ñ º¡á¬á ûÑ½δ⌐ ûÑ½δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ éÑΘÑßΓóÑ¡¡δ⌐ ---------------------------------------------------------- ïεíá∩ «»Ñαáµ¿∩, ó¬½ετáεΘá∩ «»Ñαá¡ñ, Γ¿» ¬«Γ«α«ú« ∩ó½∩- ÑΓß∩ »«ñ¼¡«ªÑßΓó«¼ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á, «íαáíáΓδóáÑΓß∩ Γá¬ªÑ, ¬á¬ Ñß½¿ íδ «¡ íδ½ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á. àß½¿ «íá «»Ñαá¡ñá ó «»Ñαáµ¿∩σ +, -, *, div ¿½¿ ¼«d ∩ó- ½∩εΓß∩ «»Ñαá¡ñá¼¿ µÑ½«ú« Γ¿»á, Γ« Γ¿» αÑºπ½∞ΓáΓá íπñÑΓ Γá¬¿¼ ªÑ, ¬á¬ «íΘ¿⌐ Γ¿» «í«¿σ «»Ñαá¡ñ«ó. (Ä»αÑñÑ½Ñ¡¿Ñ «íΘÑú« Γ¿»á ß¼. ó αáºñÑ½Ñ "ûÑ½δ⌐ Γ¿»" ó â½áóÑ 3). àß½¿ «ñ¿¡ ¿½¿ í«½ÑÑ «»Ñαá¡ñ«ó ó «»Ñαáµ¿∩σ +, -, ¿½¿ * ¿¼ÑεΓ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿», Γ« Γ¿» αÑºπ½∞ΓáΓá íπñÑΓ óÑΘÑßΓóÑ¡- ¡δ¼, Ñß½¿ ¿ß»«½∞º«óá¡á ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $N-, ¿½¿ Γ¿»«¼ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε »α¿ ¿ß»«½∞º«óá¡¿¿ ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩- Γ«αá $N+. àß½¿ »α¿ ¿ß»«½∞º«óá¡¿¿ «»Ñαáµ¿¿ ß«σαá¡Ñ¡¿∩ º¡á¬á ¿½¿ «»Ñαáµ¿¿ «Γα¿µá¡¿∩ º¡á¬á «»Ñαá¡ñ ¿¼ÑÑΓ µÑ½δ⌐ Γ¿», Γ« αÑºπ½∞- ΓáΓ íπñÑΓ Γ«ªÑ µÑ½«ú« Γ¿»á. àß½¿ «»Ñαá¡ñ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á, Γ« Γ¿» αÑºπ½∞ΓáΓá íπñÑΓ óÑΘÑßΓóÑ¡¡δ¼ ¿½¿ Γ¿»«¼ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε. ç¡áτÑ¡¿Ñ óδαáªÑ¡¿∩ σ/π óßÑúñá íπñÑΓ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ¿½¿ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε, ¡Ñºáó¿ß¿¼« «Γ Γ¿»«ó «»Ñαá¡ñ«ó. àß½¿ π αáó¡« 0, Γ« αÑºπ½∞ΓáΓ íπñÑΓ «Φ¿í«τ¡δ¼. ç¡áτÑ¡¿Ñ óδαáªÑ¡¿Ñ i div j »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¼áΓÑ¼áΓ¿- τÑß¬«Ñ τáßΓ¡«Ñ «Γ i/j, «¬απú½Ñ¡¡«Ñ ó ¼Ñ¡∞Φπε ßΓ«α«¡π ñ« º¡á- τÑ¡¿∩ µÑ½«ú« Γ¿»á. àß½¿ j αáó¡« 0, αÑºπ½∞ΓáΓ íπñÑΓ «Φ¿í«τ- ¡δ¼. Ä»Ñαáµ¿∩ mod ó«ºóαáΘáÑΓ «ßΓáΓ«¬, »«½πτÑ¡¡δ⌐ »πΓÑ¼ ñÑ½Ñ- ¡¿∩ ñóπσ ÑÑ «»Ñαá¡ñ«ó, Γ« ÑßΓ∞: i mod j = i - (i div j) * j ç¡á¬ αÑºπ½∞ΓáΓá «»Ñαáµ¿¿ mod íπñÑΓ ΓÑ¼ ªÑ, τΓ« ¿ º¡á¬ i. àß½¿ j αáó¡« ¡π½ε, Γ« αÑºπ½∞ΓáΓ«¼ íπñÑΓ «Φ¿í¬á. ï«ú¿τÑß¬¿Ñ «»Ñαáµ¿¿ Æ¿»δ ½«ú¿τÑß¬¿σ «»Ñαáµ¿⌐ »«¬áºá¡δ ó Æáí½¿µÑ 6.4. àß½¿ «»Ñαá¡ñ«¼ «»Ñαáµ¿¿ not ∩ó½∩ÑΓß∩ «»Ñαá¡ñ µÑ½«ú« Γ¿»á, Γ« αÑºπ½∞ΓáΓ íπñÑΓ Γá¬ªÑ µÑ½«ú« Γ¿»á. àß½¿ «íá «»Ñαá¡ñá ó «»Ñαáµ¿∩σ or, and ¿½¿ xor µÑ½«ú« Γ¿»á, Γ« Γ¿» αÑºπ½∞ΓáΓá íπñÑΓ Γá¬¿¼ ªÑ, ¬á¬ Γ¿» «í«¿σ «»Ñ- αá¡ñ«ó. ï«ú¿τÑß¬¿Ñ «»Ñαáµ¿¿ Æáí½¿µá 6.4 ---------------------------------------------------------- Ä»Ñαáµ¿∩ äÑ⌐ßΓó¿Ñ Æ¿»á «»Ñαá¡ñ«ó Æ¿» αÑºπ½∞ΓáΓá ---------------------------------------------------------- not ÄΓα¿µá¡¿Ñ (í¿Γ«ó«Ñ) ûÑ½δ⌐ ûÑ½δ⌐ and ê (í¿Γ«ó«Ñ) ûÑ½δ⌐ ûÑ½δ⌐ or êïê (í¿Γ«ó«Ñ) ûÑ½δ⌐ ûÑ½δ⌐ xor êß¬½ετáεΘÑÑ êïê ûÑ½δ⌐ ûÑ½δ⌐ (í¿Γ«ó«Ñ) shl æñó¿ú ó½Ñó« ûÑ½δ⌐ ûÑ½δ⌐ shr æñó¿ú ó»αáó« ûÑ½δ⌐ ûÑ½δ⌐ ---------------------------------------------------------- Åα¿¼Ñτá¡¿Ñ: Ä»Ñαáµ¿∩ not ∩ó½∩ÑΓß∩ π¡áα¡«⌐ «»Ñαáµ¿Ñ⌐. Ä»Ñαáµ¿¿ i shl j ¿ i shr j ßñó¿úáεΓ º¡áτÑ¡¿Ñ i ó½Ñó« ¿½¿ ó»αáó« ¡á j í¿Γ«ó. Æ¿» αÑºπ½∞ΓáΓá íπñÑΓ Γá¬¿¼ ªÑ, ¬á¬ Γ¿» i. üπ½Ñóß¬¿Ñ «»Ñαáµ¿¿ Æ¿»δ «»Ñαá¡ñ«ó ¿ αÑºπ½∞ΓáΓ ñ½∩ íπ½Ñóß¬¿σ «»Ñαáµ¿⌐ »«¬á- ºá¡δ ó Æáí½¿µÑ 6.5. üπ½Ñóß¬¿Ñ «»Ñαáµ¿¿ Æáí½¿µá 6.5 ----------------------------------------------------------- Ä»Ñαáµ¿∩ äÑ⌐ßΓó¿Ñ Æ¿»δ «»Ñαá¡ñ«ó Æ¿» αÑºπ½∞ΓáΓá ----------------------------------------------------------- not ÄΓα¿µá¡¿Ñ üπ½Ñóß¬¿⌐ üπ½Ñóß¬¿⌐ and ï«ú¿τÑß¬«Ñ ê üπ½Ñóß¬¿⌐ üπ½Ñóß¬¿⌐ or ï«ú¿τÑß¬«Ñ êïê üπ½Ñóß¬¿⌐ üπ½Ñóß¬¿⌐ xor ï«ú¿τÑß¬«Ñ ¿ß¬½ετáεΘÑÑ êïê üπ½Ñóß¬¿⌐ üπ½Ñóß¬¿⌐ ----------------------------------------------------------- Åα¿¼Ñτá¡¿Ñ: Ä»Ñαáµ¿∩ not ∩ó½∩ÑΓß∩ π¡áα¡«⌐ «»Ñαáµ¿Ñ⌐. ÉÑºπ½∞ΓáΓδ φΓ¿σ «»Ñαáµ¿⌐ ß««ΓóÑΓßΓóπεΓ «íδτ¡«⌐ íπ½Ñó«⌐ ½«ú¿¬Ñ. ìá»α¿¼Ñα, óδαáªÑ¡¿Ñ a and b ∩ó½∩ÑΓß∩ ¿ßΓ¿¡¡δ¼ (»α¿- ¡¿¼áÑΓ º¡áτÑ¡¿Ñ ÆruÑ) Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ «íá «»Ñαá¡ñá a ¿ b ¿¼ÑεΓ ¿ßΓ¿¡¡«Ñ º¡áτÑ¡¿Ñ (ÆruÑ). é Æπαí«-Åáß¬á½Ñ »«ññÑαª¿óáεΓß∩ ñóÑ αáº½¿τ¡δÑ ¼«ñÑ½¿ úÑ- ¡Ñαáµ¿¿ ¬«ñá ñ½∩ «»Ñαáµ¿⌐ or ¿ and - »«½¡«Ñ óδτ¿ß½Ñ¡¿Ñ ¿ óδ- τ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ (τáßΓ¿τ¡«Ñ óδτ¿ß½Ñ¡¿Ñ). Åα¿ »«½¡«¼ óδτ¿ß½Ñ¡¿¿ »«ñαáºπ¼ÑóáÑΓß∩, τΓ« ¬áªñδ⌐ «»Ñ- αá¡ñ íπ½Ñóß¬«ú« óδαáªÑ¡¿∩, »«ßΓα«Ñ¡¡δ⌐ ß »«¼«Θ∞ε «»Ñαáµ¿⌐ or ¿ and, óßÑúñá íπñÑΓ óδτ¿ß½∩Γ∞ß∩, ñáªÑ Ñß½¿ αÑºπ½∞ΓáΓ óßÑú« óδαáªÑ¡¿∩ πªÑ ¿ºóÑßΓÑ¡. ¥Γá ¼«ñÑ½∞ »«½Ñº¡á ó Γ«¼ ß½πτáÑ, ¬«úñá «ñ¿¡ ¿½¿ í«½ÑÑ «»Ñαá¡ñ«ó ó óδαáªÑ¡¿¿ »αÑñßΓáó½∩εΓ ß«- í«⌐ Σπ¡¬µ¿¿ ß »«í«τ¡δ¼¿ φΣΣÑ¬Γá¼¿, ¬«Γ«αδÑ ¿º¼Ñ¡∩εΓ ß¼δß½ »α«úαá¼¼δ. éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ «íÑß»Ñτ¿óáÑΓ ßΓα«ú«Ñ óδ- τ¿ß½Ñ¡¿Ñ ß½Ñóá ¡á»αáó«. ¥Γ« óδτ¿ß½Ñ¡¿Ñ »αÑ¬αáΘáÑΓß∩, ¬á¬ Γ«½∞¬« αÑºπ½∞ΓáΓ óßÑú« óδαáªÑ¡¿∩ ßΓá¡«ó¿Γß∩ «τÑó¿ñÑ¡. é« ¼¡«ú¿σ ß½πτá∩σ φΓá ¼«ñÑ½∞ πñ«í¡á, »«ß¬«½∞¬π «¡á «íÑß»Ñτ¿óáÑΓ ¼¿¡¿¼á½∞¡«Ñ óαÑ¼∩ óδ»«½¡Ñ¡¿∩ ¿, ¬á¬ »αáó¿½«, ¼¿¡¿¼á½∞¡δ⌐ «íΩÑ¼ ¬«ñá. éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ ñÑ½áÑΓ Γá¬ªÑ ó«º- ¼«ª¡δ¼¿ Γá¬¿Ñ ¬«¡ßΓαπ¬µ¿¿, ¬«Γ«αδÑ ó »α«Γ¿ó¡«¼ ß½πτáÑ íδ½¿ íá ¡Ññ«»πßΓ¿¼δ, ¡á»α¿¼Ñα: while (I<=Lenght(S)) and (S[I]<>' ') do Inc(I); while (P<>nil) and (P^.Value<>5) do P:=P^.Next; é «í«¿σ ß½πτá∩σ, Ñß½¿ αÑºπ½∞ΓáΓ«¼ »Ñαó«ú« óδτ¿ß½Ñ¡¿∩ íπñÑΓ º¡áτÑ¡¿Ñ false, óδτ¿ß½Ñ¡¿Ñ óΓ«α«ú« óδαáªÑ¡¿∩ ¡Ñ óδ»«½- ¡∩ÑΓß∩. æσÑ¼π óδτ¿ß½Ñ¡¿∩ ¼«ª¡« ºáñáóáΓ∞ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $é. ç¡áτÑ¡¿Ñ¼ »« π¼«½τá¡¿ε ∩ó½∩ÑΓß∩ ß«ßΓ«∩¡¿Ñ {$é-} (»«¬á «¡« ¡Ñ íπñÑΓ ¿º¼Ñ¡Ñ¡« ß »«¼«Θ∞ε "¼Ñ¡ε" ó«º¼«ª- ¡«ßΓÑ⌐ ¬«¼»¿½∩Γ«αá). é φΓ«¼ ß½πτáÑ úÑ¡Ñα¿απÑΓß∩ ¬«ñ ß óδτ¿ß- ½Ñ¡¿Ñ¼ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ. é ß½πτáÑ ñ¿αÑ¬Γ¿óδ {$é+} úÑ¡Ñα¿απ- ÑΓß∩ ¬«ñ ß »«½¡δ¼ óδτ¿ß½Ñ¡¿Ñ¼. Å«ß¬«½∞¬π ó ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ ¡Ñ «»αÑñÑ½∩ÑΓß∩, ¬á¬πε ßσÑ¼π ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ ñ½∩ óδτ¿ß½Ñ¡¿∩ íπ½Ñóß¬¿σ óδαáªÑ- ¡¿⌐, Γ« »α«úαá¼¼δ, ºáó¿ß∩Θ¿Ñ «Γ ñÑ⌐ßΓó¿∩ ¬á¬«⌐-½¿í« ¬«¡¬αÑΓ- ¡«⌐ ßσÑ¼δ, ó ñÑ⌐ßΓó¿ΓÑ½∞¡«ßΓ¿ ¡Ñ ∩ó½∩εΓß∩ »ÑαÑ¡«ß¿¼δ¼¿. Äñ- ¡á¬«, Ñß½¿ »«ªÑαΓó«óáΓ∞ »ÑαÑ¡«ß¿¼«ßΓ∞ε, Γ« «τÑ¡∞ τáßΓ« ¼«ª¡« »«½πτ¿Γ∞ º¡áτ¿ΓÑ½∞¡δ⌐ óδ¿úαδΦ ó« óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩ ¿ »α«ß- Γ«ΓÑ, ¬«Γ«απε »«ºó«½∩ÑΓ »«½πτ¿Γ∞ óδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ- ¼Ñ. Ä»Ñαáµ¿∩ ß« ßΓα«¬á¼¿ Æ¿»δ «»Ñαá¡ñ«ó ¿ αÑºπ½∞ΓáΓδ ñ½∩ «»Ñαáµ¿¿ ß« ßΓα«¬á¼¿ »«¬áºá¡δ ó Æáí½¿µÑ 6.6. Ä»Ñαáµ¿¿ ß« ßΓα«¬á¼¿ Æáí½¿µá 6.6 --------------------------------------------------------- Ä»Ñαáµ¿∩ äÑ⌐ßΓó¿Ñ Æ¿»δ «»Ñαá¡ñ«ó Æ¿» αÑºπ½∞ΓáΓá --------------------------------------------------------- + è«¡¬áΓÑ¡áµ¿∩ æΓα«¬«óδ⌐, æΓα«¬«óδ⌐ ß¿¼ó«½∞¡δ⌐ ¿½¿ π»á¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ --------------------------------------------------------- Æπαí«-Åáß¬á½∞ »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ «»Ñαáµ¿ε + ñ½∩ «íΩÑñ¿¡Ñ¡¿∩ ñóπσ ßΓα«¬«óδσ «»Ñαá¡ñ«ó. ÉÑºπ½∞ΓáΓ«¼ «»Ñαáµ¿¿ s + t, úñÑ s ¿ t ¿¼ÑεΓ ßΓα«¬«óδ⌐ Γ¿», ß¿¼ó«½∞¡δ⌐ Γ¿» ¿½¿ π»á- ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ Γ¿», íπñÑΓ ¬«¡¬áΓÑ¡áµ¿∩ s ¿ t. ÉÑºπ½∞ΓáΓ íπñÑΓ ß«ó¼ÑßΓ¿¼ ß ½εíδ¼ ßΓα«¬«óδ¼ Γ¿»«¼ (¡« ¡Ñ ß ß¿¼ó«½∞¡δ¼ ¿ ¡Ñ ß π»á¬«óá¡¡δ¼ ßΓα«¬«óδ¼ Γ¿»«¼). àß½¿ ñ½¿¡á αÑºπ½∞Γ¿απε- ΘÑ⌐ ßΓα«¬¿ »αÑóδΦáÑΓ 255 ß¿¼ó«½«ó, Γ« «¡á πßÑ¬áÑΓß∩ ñ« 255 ß¿¼ó«½«ó. Ä»Ñαáµ¿¿ ¡áñ ¼¡«ªÑßΓóá¼¿ Æ¿»δ «»Ñαá¡ñ«ó ñ½∩ «»Ñαáµ¿⌐ ¡áñ ¼¡«ªÑßΓóá¼¿ »«¬áºá¡δ ó Æáí½¿µÑ 6.7. Ä»Ñαáµ¿¿ ¡áñ ¼¡«ªÑßΓóá¼¿ Æáí½¿µá 6.7 ----------------------------------------------------------- Ä»Ñαáµ¿∩ äÑ⌐ßΓó¿Ñ Æ¿»δ «»Ñαá¡ñ«ó ----------------------------------------------------------- + ÄíΩÑñ¿¡Ñ¡¿Ñ î¡«ªÑßΓóá ß ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿ - Éáº¡«ßΓ∞ î¡«ªÑßΓóá ß ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿ * ÅÑαÑßÑτÑ¡¿Ñ î¡«ªÑßΓóá ß ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿ ----------------------------------------------------------- ÉÑºπ½∞ΓáΓδ «»Ñαáµ¿⌐ ß««ΓóÑßΓóπεΓ »αáó¿½á¼ ½«ú¿¬¿ αáí«Γδ ß ¼¡«ªÑßΓóá¼¿: 1. ÅÑαÑτ¿ß½¿¼«Ñ º¡áτÑ¡¿Ñ c ß«ñÑαª¿Γß∩ ó a+b Γ«½∞¬« Γ«úñá, ¬«úñá «¡« ß«ñÑαª¿Γß∩ ó a ¿½¿ ó b. 2. ÅÑαÑτ¿ß½¿¼«Ñ º¡áτÑ¡¿Ñ c ß«ñÑαª¿Γß∩ ó a-b Γ«½∞¬« Γ«úñá, ¬«úñá «¡« ß«ñÑαª¿Γß∩ ó a ¿ ¡Ñ ß«ñÑαª¿Γß∩ ó b. 3. ÅÑαÑτ¿ß½¿¼«Ñ º¡áτÑ¡¿Ñ c ß«ñÑαª¿Γß∩ ó a*b Γ«½∞¬« Γ«úñá, ¬«úñá «¡ ß«ñÑαª¿Γß∩ ó «í«¿σ ¼¡«ªÑßΓóáσ a ¿ b. àß½¿ ¡á¿¼Ñ¡∞Φ¿¼ »ÑαÑτ¿ß½¿¼δ¼ º¡áτÑ¡¿Ñ¼, ¬«Γ«α«Ñ ∩ó½∩ÑΓ- ß∩ τ½Ñ¡«¼ αÑºπ½∞ΓáΓá «»Ñαáµ¿⌐ ¡áñ ¼¡«ªÑßΓóá¼¿, ∩ó½∩ÑΓß∩ a, á ¡á¿í«½∞Φ¿¿¼ - b, Γ« Γ¿»«¼ αÑºπ½∞ΓáΓá íπñÑΓ ¼¡«ªÑßΓó« a..b. Ä»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ Æ¿»δ «»Ñαá¡ñ«ó ¿ αÑºπ½∞ΓáΓδ «»Ñαáµ¿⌐ «Γ¡«ΦÑ¡¿∩ »α¿óÑñÑ- ¡δ ó Æáí½¿µÑ 6.8. Ä»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ Æáí½¿µá 6.8 ----------------------------------------------------------- Ä»Ñαáµ¿∩ äÑ⌐ßΓó¿Ñ Æ¿»δ «»Ñαá¡ñ«ó Æ¿» αÑºπ½∞ΓáΓá ----------------------------------------------------------- = Éáó¡« æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, üπ½Ñóß¬¿⌐ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- ¡δ⌐ ßΓα«¬«óδ⌐ ¿½¿ π»á- ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ <> ìÑ αáó¡« æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, üπ½Ñóß¬¿⌐ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- ¡δ⌐, ßΓα«¬«óδ⌐ ¿½¿ π»á- ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ < îÑ¡∞ΦÑ τÑ¼ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, üπ½Ñóß¬¿⌐ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- ¡δ⌐, ßΓα«¬«óδ⌐ ¿½¿ π»á- ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ > ü«½∞ΦÑ τÑ¼ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, üπ½Ñóß¬¿⌐ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- ¡δ⌐ ßΓα«¬«óδ⌐ ¿½¿ π»á- ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ <= îÑ¡∞ΦÑ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, üπ½Ñóß¬¿⌐ ¿½¿ αáó¡« π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- ¡δ⌐ ßΓα«¬«óδ⌐ ¿½¿ π»á- ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ >= ü«½∞ΦÑ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, üπ½Ñóß¬¿⌐ ¿½¿ αáó¡« π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- ¡δ⌐ ßΓα«¬«óδ⌐ ¿½¿ π»á- ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ <= Å«ñ¼¡«ªÑßΓó« î¡«ªÑßΓóá ß«ó¼ÑßΓ¿¼δσ üπ½Ñóß¬¿⌐ Γ¿»«ó >= ìáñ¼¡«ªÑßΓó« î¡«ªÑßΓóá ß«ó¼ÑßΓ¿¼δσ üπ½Ñóß¬¿⌐ Γ¿»«ó in ¥½Ñ¼Ñ¡Γ ïÑóδ⌐ «»Ñαá¡ñ: ½εí«⌐ üπ½Ñóß¬¿⌐ ¼¡«ªÑßΓóá »ÑαÑτ¿ß½¿¼δ⌐ Γ¿» t; »αáóδ⌐: ¼¡«ªÑßΓó«, ß«ó¼ÑßΓ¿¼«Ñ ß t. ------------------------------------------------------------ æαáó¡Ñ¡¿Ñ »α«ßΓδσ Γ¿»«ó è«úñá «»Ñαáµ¿¿ =, <>, <, >, >= ¿½¿ <= »α¿¼Ñ¡∩εΓß∩ ñ½∩ «»Ñαá¡ñ«ó »α«ßΓδσ Γ¿»«ó, Γ« φΓ« ñ«½ª¡δ íδΓ∞ ß«ó¼ÑßΓ¿¼δÑ Γ¿- »δ. Äñ¡á¬«, Ñß½¿ «ñ¿¡ «»Ñαá¡ñ ¿¼ÑÑΓ ñÑ⌐ßΓó¿ΓÑ½∞¡δ⌐ Γ¿», Γ« ñαπú«⌐ ¼«ªÑΓ íδΓ∞ µÑ½«ú« Γ¿»á. æαáó¡Ñ¡¿Ñ ßΓα«¬ Ä»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ =, <>, <, >, >= ¿½¿ <= ¼«úπΓ »α¿¼Ñ- ¡∩Γß∩ ñ½∩ ßαáó¡Ñ¡¿∩ ßΓα«¬ ß«ú½áß¡« »«α∩ñ¬π αáßΦ¿αÑ¡¡«ú« ¡á- í«αá ß¿¼ó«½«ó ¬«ñá ÇSæII. ïεíδÑ ñóá º¡áτÑ¡¿∩ ßΓα«¬«óδσ ñá¡- ¡δσ ¼«ª¡« ßαáó¡¿Γ∞, »«ß¬«½∞¬π óßÑ º¡áτÑ¡¿∩ ßΓα«¬«óδσ ñá¡¡δσ ß«ó¼ÑßΓ¿¼δ. ç¡áτÑ¡¿∩ ß¿¼ó«½∞¡«ú« Γ¿»á ß«ó¼ÑßΓ¿¼δ ß« º¡áτÑ¡¿∩¼¿ ßΓα«¬«ó«ú« Γ¿»á, ¿ »α¿ ¿σ ßαáó¡Ñ¡¿¿ ß¿¼ó«½∞¡«Ñ º¡áτÑ¡¿Ñ «í- αáíáΓδóáÑΓß∩ ¬á¬ ßΓα«¬«ó«Ñ º¡áτÑ¡¿Ñ ß ñ½¿¡«⌐ 1. è«úñá ß« º¡áτÑ¡¿Ñ¼ ßΓα«¬«ó«ú« Γ¿»á ßαáó¡¿óáÑΓß∩ π»á¬«óá¡¡«Ñ ßΓα«¬«ó«Ñ º¡áτÑ¡¿Ñ ¿º n φ½Ñ¼Ñ¡Γ«ó, Γ« «¡« «íαáíáΓδóáÑΓß∩, ¬á¬ º¡áτÑ¡¿Ñ ßΓα«¬«ó«ú« Γ¿»á ñ½¿¡«⌐ n. æαáó¡Ñ¡¿Ñ π»á¬«óá¡¡δσ ßΓα«¬ Ä»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ =, <>, <, >, >= ¿½¿ <= ¼«úπΓ »α¿¼Ñ- ¡∩Γß∩ Γá¬ªÑ ñ½∩ ñóπσ π»á¬«óá¡¡δσ º¡áτÑ¡¿⌐ ßΓα«¬«ó«ú« Γ¿»á, Ñß½¿ «¡¿ ß«ñÑαªáΓ «ñ¿¡á¬«ó«Ñ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó. àß½¿ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó αáó¡« n, Γ« «»Ñαáµ¿∩ ß««ΓóÑßΓóπÑΓ ßαáó¡Ñ¡¿ε ñóπσ ßΓα«¬, ¬áªñá∩ ¿º ¬«Γ«αδσ ¿¼ÑÑΓ ñ½¿¡π n. æαáó¡Ñ¡¿Ñ π¬áºáΓÑ½Ñ⌐ Ä»Ñαáµ¿¿ = ¿ <> ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ ßαáó¡Ñ¡¿∩ «»Ñ- αá¡ñ«ó Γ¿»á π¬áºáΓÑ½∞. äóá π¬áºáΓÑ½∩ αáó¡δ Γ«½∞¬« ó Γ«¼ ß½π- τáÑ, Ñß½¿ «¡¿ ßßδ½áεΓß∩ ¡á «ñ¿¡ ¿ Γ«Γ ªÑ «íΩÑ¬Γ. Åα¿¼Ñτá¡¿Ñ: Åα¿ ßαáó¡Ñ¡¿¿ π¬áºáΓÑ½Ñ⌐ ó Æπαí«-Åáß¬á½Ñ »α«ßΓ« ßαáó¡¿óáεΓß∩ ßÑú¼Ñ¡Γδ ¿ ß¼ÑΘÑ¡¿∩. é ß««ΓóÑΓßΓ- ó¿¿ ß« ßσÑ¼«⌐ αáº¼ÑΘÑ¡¿∩ ßÑú¼Ñ¡Γ«ó »α«µÑßß«α«ó 80σ86 ñóá ½«ú¿τÑß¬¿ αáº½¿τ¡δσ π¬áºáΓÑ½∩ ¼«úπΓ Σá¬Γ¿τÑß¬¿ π¬áºδóáΓ∞ ¡á «ñ¡π ¿ Γπ ªÑ Σ¿º¿τÑß¬πε ∩τÑ⌐¬π »á¼∩Γ¿. ìá»α¿¼Ñα $0040:$0049 ¿ $0000:$0449 ∩ó½∩εΓß∩ π¬áºáΓÑ½∩- ¼¿ ß «ñ¿¡á¬«óδ¼¿ Σ¿º¿τÑß¬¿¼¿ áñαÑßá¼¿. ô¬áºáΓÑ½¿, ó«ºóαáΘáÑ¼δÑ ßΓá¡ñáαΓ¡δ¼¿ »α«µÑñπαá¼¿ New ¿ GetMem óßÑúñá ¡«α¼á½¿º«óá¡δ (ß¼ÑΘÑ¡¿Ñ ¡áσ«ñ¿Γß∩ ó ñ¿á»áº«¡Ñ «Γ $0000 ñ« $000F) ¿, Γá¬¿¼ «íαáº«¼, óßÑúñá íπñπΓ ßαáó¡¿óáΓ∞ß∩ ¬«ααÑ¬Γ¡«. Åα¿ ß«ºñá¡¿¿ π¬áºáΓÑ½Ñ⌐ ß »«- ¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ Σπ¡¬µ¿¿ Étr, ¿ »«ß½ÑñπεΘÑ¼ ßαáó¡Ñ¡¿¿ Γá¬¿σ π¬áºáΓÑ½Ñ⌐ ¡πª¡« »α¿¡¿¼áΓ∞ ó« ó¡¿¼á¡¿Ñ π¬áºá¡¡δ⌐ «ß«íδ⌐ ß½πτá⌐. æαáó¡Ñ¡¿Ñ ¼¡«ªÑßΓó àß½¿ «»Ñαá¡ñá¼¿ ∩ó½∩εΓß∩ ¼¡«ªÑßΓóá a ¿ b, Γ« »α¿ ¿σ ßαáó¡Ñ¡¿¿ »«½πτáεΓß∩ ß½ÑñπεΘ¿Ñ αÑºπ½∞ΓáΓδ: 1. éδαáªÑ¡¿Ñ a=b ¿ßΓ¿¡¡« Γ«½∞¬« ¬«úñá a ¿ b ß«ñÑαªáΓ «ñ¡¿ ¿ ΓÑ ªÑ φ½Ñ¼Ñ¡Γδ, ó »α«Γ¿ó¡«¼ ß½πτáÑ a<>b. 2. éδαáªÑ¡¿Ñ a = b ¿ßΓ¿¡¡«, ¬«úñá ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ ¼¡«- ªÑßΓóá á ∩ó½∩ÑΓß∩ Γá¬ªÑ φ½Ñ¼Ñ¡Γ«¼ ¼¡«ªÑßΓóá b. 3. éδαáªÑ¡¿Ñ a = b ¿ßΓ¿¡¡«, ¬«úñá ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ ¼¡«- ªÑßΓóá ó ∩ó½∩ÑΓß∩ Γá¬ªÑ φ½Ñ¼Ñ¡Γ«¼ ¼¡«ªÑßΓóá a. Åα«óÑα¬á ¡á »α¿¡áñ½Ñª¡«ßΓ∞ ¬ ¼¡«ªÑßΓóπ Ä»Ñαáµ¿∩ in ó«ºóαáΘáÑΓ ¿ßΓ¿¡¡«Ñ º¡áτÑ¡¿Ñ (Ærue), ¬«úñá º¡áτÑ¡¿Ñ φ½Ñ¼Ñ¡Γá »ÑαÑτ¿ß½¿¼«ú« Γ¿»á ∩ó½∩ÑΓß∩ φ½Ñ¼Ñ¡Γ«¼ «»Ñ- αá¡ñá ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á, ó »α«Γ¿ó¡«¼ ß½πτáÑ «¡ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ False. Ä»Ñαáµ¿∩ @ æ »«¼«Θ∞ε «»Ñαáµ¿¿ @ ¼«ª¡« ß«ºñáΓ∞ π¬áºáΓÑ½∞ ¡á »ÑαÑ- ¼Ñ¡¡πε. é Æáí½¿µÑ 6.9 »«¬áºá¡ «»Ñαá¡ñ ¿ Γ¿»δ αÑºπ½∞ΓáΓá. Ä»Ñαáµ¿∩ ß«ºñá¡¿∩ π¬áºáΓÑ½∩ Æáí½¿µá 6.9 ------------------------------------------------------------ Ä»Ñαáµ¿∩ äÑ⌐ßΓó¿Ñ Æ¿»δ «»Ñαá¡ñ«ó Æ¿» αÑºπ½∞ΓáΓá ------------------------------------------------------------ @ Å«½πτÑ¡¿Ñ æßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε, ô¬áºáΓÑ½∞ π¬áºáΓÑ½∩ »α«µÑñπαπ ¿½¿ ¿ñÑ¡Γ¿- (ß«ó¼ÑßΓ¿- Σ¿¬áΓ«α Σπ¡¬µ¿¿ ¼δ⌐ ß nil) ------------------------------------------------------------ Ä»Ñαáµ¿∩ @ ∩ó½∩ÑΓß∩ π¡áα¡«⌐ «»Ñαáµ¿Ñ⌐, ó ¬áτÑßΓóÑ «»Ñ- αá¡ñá ¬«Γ«α«⌐ ¿ß»«½∞ºπÑΓß∩ ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε, »α«µÑñπαá ¿½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿ ¿ «»Ñαá¡ñπ ó«ºóαáΘáÑΓß∩ π¬áºáΓÑ½∞. Æ¿» φΓ«ú« º¡áτÑ¡¿∩ ∩ó½∩ÑΓß∩ Γá¬¿¼ ªÑ, ¬á¬ Γ¿» π¬áºáΓÑ½∩ nil, ¿, Γá¬¿¼ «íαáº«¼, Ñú« ¼«ª¡« »α¿ßó«¿Γ∞ ½εí«¼π π¬áºáΓÑ½ε »ÑαÑ- ¼Ñ¡¡«⌐. êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ «íδτ¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ (¡Ñ »á- αá¼ÑΓαá) ¡Ñ óδºδóáÑΓ ¡¿¬á¬¿σ ß½«ª¡«ßΓÑ⌐. éóÑñÑ¼ «»¿ßá¡¿∩: type TwoChar = array[0..1] of char; var Int: integer; TwoCharPtr: ^TwoChar; Γ«úñá «»ÑαáΓ«α TwoCharPtr := @Int; »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« TwoCharPtr ñ½∩ »«½πτÑ¡¿∩ ßßδ½¬¿ ¡á TwoCharPtr^ ßΓá¡«ó¿Γß∩ »«óΓ«α¡«⌐ ¿¡ΓÑα»αÑΓáµ¿Ñ⌐ º¡áτÑ¡¿∩ Int, ¬á¬ Ñß½¿ íδ «¡« íδ½« ß¿¼ó«½∞¡δ¼ ¼áßß¿ó«¼ array[0..1]. êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ »áαá¼ÑΓαá-º¡áτÑ¡¿∩ êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá-º¡á- τÑ¡¿∩ »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« íπñÑΓ »«ßΓα«Ñ¡ π¬áºáΓÑ½∞, π¬áºδ- óáεΘ¿⌐ ¡á ∩τÑ⌐¬π ßΓÑ¬á, ó ¬«Γ«α«⌐ ß«ñÑαª¿Γß∩ Σá¬Γ¿τÑß¬«Ñ º¡áτÑ¡¿Ñ »áαá¼ÑΓαá. ÅαÑñ»«½«ª¿¼, τΓ« F«« ∩ó½∩ÑΓß∩ Σ«α¼á½∞¡δ¼ »áαá¼ÑΓα«¼-º¡áτÑ¡¿Ñ¼ »α«µÑñπαδ, á F««Étr^ ∩ó½∩ÑΓß∩ π¬áºáΓÑ- ½Ñ¼-»ÑαÑ¼Ñ¡¡«⌐. àß½¿ ó »α«µÑñπαÑ óδ»«½¡∩ÑΓß∩ «»Ñαáµ¿∩: FooPtr := @Foo; Γ« F««Étr^ íπñÑΓ ßßδ½¬«⌐ ¡á º¡áτÑ¡¿Ñ F««. Äñ¡á¬«, F««Étr^ ¡Ñ π¬áºδóáÑΓ ¡á ßá¼ »áαá¼ÑΓα F««, »«ß¬«½∞¬π «¡ π¬áºδóáÑΓ ¡á º¡áτÑ¡¿Ñ F««, ¬«Γ«α«Ñ íδ½« óº∩Γ« ¿º F«« ¿ ß«σαá¡Ñ¡« ó ßΓÑ¬Ñ. êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ »áαá¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐ Åα¿¼Ñ¡Ñ¡¿Ñ «»Ñαáµ¿¿ @ ¬ »áαá¼ÑΓαπ-»ÑαÑ¼Ñ¡¡«⌐ »α¿óÑñÑΓ ¬ Γ«¼π, τΓ« íπñÑΓ ßΣ«α¼¿α«óá¡ π¬áºáΓÑ½∞ ¡á Σá¬Γ¿τÑß¬¿⌐ »áαá- ¼ÑΓα (π¬áºáΓÑ½∞ íÑαÑΓß∩ ¿º ßΓÑ¬á). ÅαÑñ»«½«ª¿¼, τΓ« ÄnÑ - »áαá¼ÑΓα-»ÑαÑ¼Ñ¡¡á∩ »α«µÑñπαδ, Æw« - »ÑαÑ¼Ñ¡¡á∩, »ÑαÑñáóáÑ- ¼á∩ ó »α«µÑñπαπ ó ¬áτÑßΓóÑ Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐ ÄnÑ, á ÄnÑÉtr ∩ó½∩ÑΓß∩ π¬áºáΓÑ½Ñ¼ ¡á »ÑαÑ¼Ñ¡¡πε. àß½¿ ó »α«- µÑñπαÑ óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α: OnePtr := @One; Γ« ÄnÑÉtr ∩ó½∩ÑΓß∩ π¬áºáΓÑ½Ñ¼ ¡á »ÑαÑ¼Ñ¡¡πε Æw«, á ÄnÑÉtr^ - ßßδ½¬á ¡á ßá¼π »ÑαÑ¼Ñ¡¡πε Æw«. êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ éδ ¼«ªÑΓÑ »α¿¼Ñ¡∩Γ∞ «»Ñαáµ¿ε @ ¬ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿. Åα¿ φΓ«¼ óδ »«½πτ¿ΓÑ π¬áºáΓÑ½∞ ¡á ÑÑ Γ«τ¬π óσ«ñá. é Æπα- í«-Åáß¬á½Ñ ¡Ñ »αÑñπß¼«ΓαÑ¡ ¼Ñσá¡¿º¼ ñ½∩ ¿ß»«½∞º«óá¡¿∩ Γá¬«ú« π¬áºáΓÑ½∩. àñ¿¡ßΓóÑ¡¡δ¼ »α¿¼Ñ¡Ñ¡¿Ñ¼ π¬áºáΓÑ½∩ »α«µÑñπαδ ¼«- ªÑΓ íδΓ∞ »ÑαÑñáτá Ñú« »α«úαá¼¼Ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ñ½∩ ¿ß- »«½∞º«óá¡¿∩ ó «»ÑαáΓ«αÑ. éδº«óδ Σπ¡¬µ¿¿ éδº«óδ Σπ¡¬µ¿¿ »α¿ó«ñ∩Γ ¬ á¬Γ¿ó¿ºáµ¿¿ Σπ¡¬µ¿¿, ºáñá¡¡«⌐ ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Σπ¡¬µ¿¿. êñÑ¡Γ¿Σ¿¬áΓ«α«¼ Σπ¡¬µ¿¿ ∩ó½∩ÑΓß∩ ½εí«⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¿ß»«½∞º«óá¡¡δ⌐ ñ½∩ «í«º¡áτÑ¡¿∩ Σπ¡¬µ¿¿. àß½¿ ó ß««ΓóÑΓßΓóπεΘÑ¼ «»¿ßá¡¿¿ Σπ¡¬µ¿¿ ß«ñÑαª¿Γß∩ ß»¿- ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó Γ« ó óδº«óÑ Σπ¡¬µ¿¿ ñ«½ªÑ¡ ß«ñÑα- ªáΓ∞ß∩ ß»¿ß«¬ Σá¬Γ¿τÑß¬¿σ »áαá¼ÑΓα«ó. èáªñδ⌐ »áαá¼ÑΓα »«ñß- Γáó½∩ÑΓß∩ ó¼ÑßΓ« ß««ΓóÑΓßΓóπεΘÑú« Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá ó ß««ΓóÑΓßΓó¿¿ ß ¡áí«α«¼ »αáó¿½, ¬«Γ«αδ⌐ óó«ñ¿Γß∩ ó â½áóÑ 22. ------------------------- éδº«ó Σπ¡¬µ¿¿ -->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿ !-----------------> ------------------------- ! ^ ------- ! ! ---------------- ! ! ! ß»¿ß«¬ ! ! ->! Σá¬Γ¿τÑß¬¿σ !--- ! »áαá¼ÑΓα«ó ! ---------------- --- ------------------------ --- æ»¿ß«¬ Σá¬Γ¿- -->( ( )-->! Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα !-->( ) )--> τÑß¬¿σ »áαá- --- ^ ------------------------ ! --- ¼ÑΓα«ó ! --- ! ----------( , )<------------ --- ------------- öá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα --->! óδαáªÑ¡¿Ñ !--------------> ! ------------- ^ ! ------------------------ ! ---! ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε !-- ------------------------ Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ óδº«ó«ó Σπ¡¬µ¿⌐: Sum(A,63) Maximum(147,J) Sin(X+Y)∞ çαº(ê) ÿα¡µ«ª(öúÑ¬µΣ,èª¬¿⌐σ) Ä»¿ßáΓÑ½¿ ¼¡«ªÑßΓóá Ä»¿ßáΓÑ½∞ ¼¡«ªÑßΓóá «»αÑñÑ½∩ÑΓ º¡áτÑ¡¿∩ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á ¿ »«½πτáÑΓß∩ »πΓÑ¼ ºá»¿ß¿ óδαáªÑ¡¿⌐, ºá¬½ετÑ¡¡δσ ó ¬óáñαáΓ¡δÑ ß¬«í¬¿ ([]). èáªñ«Ñ óδαáªÑ¡¿Ñ «»αÑñÑ½∩ÑΓ º¡áτÑ¡¿Ñ ¼¡«ªÑßΓóá. --- --- Ä»¿ßáΓÑ½∞ ¼¡«ªÑßΓóá->( [ )----------------------------( ] )-> --- ! ^ --- ! -------------------- ! -->! úαπ»»á φ½Ñ¼Ñ¡Γ«ó !--- ^ -------------------- ! ! --- ! --------( , )<---------- --- ------------- âαπ»»á φ½Ñ¼Ñ¡Γ«ó ->! óδαáªÑ¡¿Ñ !---------------------------> ------------- ! ^ ! ---- ----------- ! ->( .. )->!óδαáªÑ¡¿Ñ!--- ---- ----------- Äí«º¡áτÑ¡¿Ñ [ ] «º¡áτáÑΓ »πßΓ«Ñ ¼¡«ªÑßΓó«, Γ¿» ¬«Γ«α«ú« ß«ó¼ÑßΓ¿¼ »« »α¿ßóá¿óá¡¿ε ß Γ¿»«¼ ½εí«ú« ¼¡«ªÑßΓóá. ïεíá∩ úαπ»»á φ½Ñ¼Ñ¡Γ«ó, «»¿ßá¡¡á∩, ¬á¬ σ..π, «íΩ∩ó½∩ÑΓ φ½Ñ¼Ñ¡Γá¼¿ ¼¡«ªÑßΓóá óßÑ º¡áτÑ¡¿∩ ó ñ¿á»áº«¡Ñ σ..π. àß½¿ σ í«½∞ΦÑ, τÑ¼ π, Γ« σ..π ¡Ñ «»¿ßδóáÑΓ ¡¿¬á¬¿σ φ½Ñ¼Ñ¡Γ«ó ¿ «í«º¡áτáÑΓ »πß- Γ«Ñ ¼¡«ªÑßΓó«. é ¬«¡¬αÑΓ¡«¼ «»¿ßáΓÑ½Ñ ¼¡«ªÑßΓóá óßÑ º¡áτÑ¡¿∩ óδαáªÑ¡¿∩ ó úαπ»»áσ φ½Ñ¼Ñ¡Γ«ó ñ«½ª¡δ íδΓ∞ «ñ¡«ú« »ÑαÑτ¿ß½¿¼«ú« Γ¿»á. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»¿ßáΓÑ½Ñ⌐ ¼¡«ªÑßΓó: [red, C, green] [1,5,10..K mod 12, 13, 23] ['A'..'Z', 'a'..'z', Chr(Digit+48)] Åα¿óÑñÑ¡¿Ñ Γ¿»á º¡áτÑ¡¿⌐ Æ¿» óδαáªÑ¡¿∩ ¼«ª¡« ¿º¼Ñ¡¿Γ∞ ¡á ñαπú«⌐ Γ¿» ß »«¼«Θ∞ε »α¿óÑñÑ¡¿∩ Γ¿»á º¡áτÑ¡¿⌐. ------------- --- ----------- --- Åα¿óÑñÑ¡¿Ñ ---->!¿ñÑ¡Γ. Γ¿»á!->( ( )->!óδαáªÑ¡¿Ñ!->( ) )--> Γ¿»á º¡áτÑ¡¿⌐ ------------- --- ---------- --- Æ¿» óδαáªÑ¡¿∩ ¿ ºáñáóáÑ¼δ⌐ Γ¿» ñ«½ª¡δ «íá ¿¼ÑΓ∞ »ÑαÑ- τ¿ß½¿¼δ⌐ Γ¿» ¿½¿ Γ¿» π¬áºáΓÑ½Ñ⌐. ä½∩ »ÑαÑτ¿ß½¿¼δσ Γ¿»«ó αÑ- ºπ½∞Γ¿απεΘÑÑ º¡áτÑ¡¿Ñ »«½πτáÑΓß∩ »πΓÑ¼ »αÑ«íαáº«óá¡¿∩ óδαá- ªÑ¡¿∩ (¿ ó«º¼«ª¡«⌐ »α«óÑα¬¿ ¡á ¡áσ«ªñÑ¡¿Ñ ó ñ«»πßΓ¿¼δσ úαá- ¡¿µáσ). ÅαÑ«íαáº«óá¡¿Ñ ¼«ªÑΓ »α¿óÑßΓ¿ ¬ πßÑτÑ¡¿ε ¿½¿ πóÑ½¿- τÑ¡¿ε αáº¼Ñαá ¿ßσ«ñ¡«ú« º¡áτÑ¡¿∩ ó Γ«¼ ß½πτáÑ, Ñß½¿ ó¡«ó∞ «»αÑñÑ½∩Ñ¼δ⌐ Γ¿» «Γ½¿τáÑΓß∩ «Γ Γ¿»á óδαáªÑ¡¿∩. é Γ«¼ ß½πτáÑ, ¬«úñá º¡áτÑ¡¿Ñ αáßΦ¿α∩ÑΓß∩, Ñú« º¡á¬ óßÑúñá ß«σαá¡∩ÑΓß∩. Æá- ¬¿¼ «íαáº«¼, º¡áτÑ¡¿Ñ ∩ó½∩ÑΓß∩ αáßΦ¿α∩Ñ¼δ¼ »« º¡á¬π. æ¿¡Γá¬ß¿ß »α¿óÑñÑ¡¿∩ Γ¿»á º¡áτÑ¡¿⌐ »«τΓ¿ ß«ó»áñáÑΓ ß ß¿¡Γá¬ß¿ß«¼ »α¿óÑñÑ¡¿∩ Γ¿»á »ÑαÑ¼Ñ¡¡δσ (ß¼. αáºñÑ½ "Åα¿óÑñÑ- ¡¿Ñ Γ¿»á »ÑαÑ¼Ñ¡¡δσ" ó â½áóÑ 4). Äñ¡á¬« »α¿ »α¿óÑñÑ¡¿¿ Γ¿»á º¡áτÑ¡¿⌐ «»Ñαáµ¿¿ »α«¿ºó«ñ∩Γß∩ ß« º¡áτÑ¡¿∩¼¿, á ¡Ñ ß »ÑαÑ- ¼Ñ¡¡δ¼¿ ¿, Γá¬¿¼ «íαáº«¼, ¼«úπΓ ¡Ñ πτáßΓó«óáΓ∞ ó ßßδ½¬áσ ¡á »ÑαÑ¼Ñ¡¡δÑ. Æ« ÑßΓ∞ ºá »α¿óÑñÑ¡¿Ñ¼ Γ¿»á º¡áτÑ¡¿∩ ¡Ñ «í∩ºá- ΓÑ½∞¡« ß½ÑñπεΓ ¬óá½¿Σ¿¬áΓ«αδ. é τáßΓ¡«ßΓ¿, »α¿óÑñÑ¡¿Ñ Γ¿»á º¡áτÑ¡¿⌐ ¡Ñ ñ«½ª¡« óßΓαÑτáΓ∞ß∩ ó ½Ñó«⌐ τáßΓ¿ «»ÑαáΓ«αá »α¿ß- óá¿óá¡¿∩. ìÑ¬«Γ«αδÑ »α¿¼Ñαδ »α¿óÑñÑ¡¿∩ Γ¿»á º¡áτÑ¡¿⌐ ó¬½ετáεΓ ó ßÑí∩: Intereg('A') char(48) boolean(0) Color(2) IntPtr(@Buffer) BytePtr(Ptr($40,$49) âïÇéÇ 7 Ä»ÑαáΓ«αδ Ä»ÑαáΓ«αδ «»¿ßδóáεΓ ΓÑ á½ú«α¿Γ¼¿τÑß¬¿Ñ ñÑ⌐ßΓó¿∩, ¬«Γ«- αδÑ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩. Ä»ÑαáΓ«αá¼ ¼«úπΓ »αÑñΦÑßΓó«óáΓ∞ ¼ÑΓ- ¬¿, ¬«Γ«αδÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ ßßδ½«¬ ó «»ÑαáΓ«αáσ »ÑαÑ- σ«ñá. Ä»ÑαáΓ«α --------------------------------------------------> ! ------- --- ^ ! -------------------- ^ ->!¼ÑΓ¬á!->( : )-! !--->! »α«ßΓ«⌐ «»ÑαáΓ«α !---! ------- --- ! -------------------- ! ! --------------------- ! ---->! ßΓαπ¬Γπα¡δ⌐ !--- ! «»ÑαáΓ«α ! --------------------- Åα«ßΓδÑ «»ÑαáΓ«αδ Åα«ßΓδ¼ «»ÑαáΓ«α«¼ ∩ó½∩ÑΓß∩ Γá¬«⌐ «»ÑαáΓ«α, ¬«Γ«αδ⌐ ¡Ñ ß«ñÑαª¿Γ ó ßÑíÑ ñαπú¿σ «»ÑαáΓ«α«ó. ------------------------- Åα«ßΓ«⌐ «»ÑαáΓ«α ---------->! «»ÑαáΓ«α »α¿ßóá¿óá¡¿∩ !-----> ! ------------------------- ^ ! ------------------------- ! !----->! «»ÑαáΓ«α »α«µÑñπαδ !----! ! ------------------------- ! ! ------------------------- ! ------>! «»ÑαáΓ«α »ÑαÑσ«ñá !----- ------------------------- Ä»ÑαáΓ«α »α¿ßóá¿óá¡¿∩ Ä»ÑαáΓ«α »α¿ßóá¿óá¡¿∩ ºá¼Ñ¡∩ÑΓ ΓÑ¬πΘÑÑ º¡áτÑ¡¿Ñ »ÑαÑ- ¼Ñ¡¡«⌐ ¡«óδ¼ º¡áτÑ¡¿Ñ¼, ¬«Γ«α«Ñ «»αÑñÑ½∩ÑΓß∩ óδαáªÑ¡¿Ñ¼, ¿½¿ «»αÑñÑ½∩ÑΓ óδαáªÑ¡¿Ñ, º¡áτÑ¡¿Ñ ¬«Γ«α«ú« ñ«½ª¡« ó«ºóαáΘáΓ∞ß∩ Σπ¡¬µ¿Ñ⌐. ------------------------ ---- Ä»ÑαáΓ«α --->! ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε !------>( := )-- »α¿ßóá¿óá¡¿∩ ! ------------------------ ^ ---- ! ! ------------------------- ! ! ->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿ !----- ! ------------------------- ------------ ! ------------- -->! óδαáªÑ¡¿Ñ !-> ------------- éδαáªÑ¡¿Ñ ñ«½ª¡« íδΓ∞ ß«ó¼ÑßΓ¿¼« »« »α¿ßóá¿óá¡¿ε ß Γ¿- »«¼ »ÑαÑ¼Ñ¡¡«⌐ ¿½¿ Γ¿»«¼ º¡áτÑ¡¿∩, ó«ºóαáΘáÑ¼«ú« Σπ¡¬µ¿Ñ⌐ ó ¬áτÑßΓóÑ αÑºπ½∞ΓáΓá (ß¼. αáºñÑ½ "æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó" ó â½á- óÑ 3 "Æ¿»δ"). Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«α«ó »α¿ßóá¿óá¡¿∩: X := Y + Z Done := (I>=1) and (I<100); Huel := [blue,Succ(C)]; I := Sqr(J) - I*K; Ä»ÑαáΓ«αδ »α«µÑñπαδ Ä»ÑαáΓ«α »α«µÑñπαδ «»αÑñÑ½∩ÑΓ á¬Γ¿ó¿ºáµ¿ε »α«µÑñπαδ, «í«º¡áτÑ¡¡πε ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »α«µÑñπαδ. àß½¿ ß««Γ- óÑΓßΓóπεΘÑÑ «»¿ßá¡¿Ñ »α«µÑñπαδ ß«ñÑαª¿Γ ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó, Γ« «»ÑαáΓ«α »α«µÑñπαδ ñ«½ªÑ¡ ß«ñÑαªáΓ∞ ó ßÑíÑ ß««ΓóÑΓßΓóπεΘ¿⌐ Ñ¼π ß»¿ß«¬ Σá¬Γ¿τÑß¬¿σ »áαá¼ÑΓα«ó (»áαá¼ÑΓ- αδ, ß»¿ß«¬ ¬«Γ«αδσ »α¿ó«ñ¿Γß∩ ó «»αÑñÑ½Ñ¡¿¿, ∩ó½∩εΓß∩ Σ«α- ¼á½∞¡δ¼¿ »áαá¼ÑΓαá¼¿, á ó «»ÑαáΓ«αÑ óδº«óá »α«µÑñπαδ «¡¿ ∩ó- ½∩εΓß∩ Σá¬Γ¿τÑß¬¿¼¿ »áαá¼ÑΓαá¼¿). Åα¿ óδº«óÑ »α«¿ßσ«ñ¿Γ »Ñ- αÑñáτá Σá¬Γ¿τÑß¬¿σ »áαá¼ÑΓα«ó Σ«α¼á½∞¡δ¼ »áαá¼ÑΓαá¼. --------------------------- Ä»ÑαáΓ«α --->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«µÑñπαδ !------------------> »α«µÑñπαδ --------------------------- ! ^ ! ---------- ! ! ! ß»¿ß«¬ ! ! ! ! Σá¬Γ¿- ! ! ->! τÑß¬¿σ !-- ! »áαá- ! ! ¼ÑΓα«ó ! ---------- Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«α«ó »α«µÑñπα: PrintHeaing; Transpose(A,N,M); Fin(Name,Address); Ä»ÑαáΓ«αδ »ÑαÑσ«ñá Ä»ÑαáΓ«α »ÑαÑσ«ñá óδºδóáÑΓ »ÑαÑñáτπ π»αáó½Ñ¡¿∩ «»ÑαáΓ«- απ, ¬«Γ«α«¼π »αÑñΦÑßΓóπÑΓ ¼ÑΓ¬á, π¬áºá¡¡á∩ ó ñá¡¡«¼ «»ÑαáΓ«- αÑ »ÑαÑσ«ñá. æ¿¡Γá¬ß¿τÑß¬á∩ ßσÑ¼á «»ÑαáΓ«αá »ÑαÑσ«ñá ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ó¿ñ: ------- --------- Ä»ÑαáΓ«α »ÑαÑσ«ñá ----->( g«t« )------>! ¼ÑΓ¬á !------> ------- --------- Åα¿ ¿ß»«½∞º«óá¡¿¿ «»ÑαáΓ«αá »ÑαÑσ«ñá ñ«½ª¡δ ß«í½εñáΓ∞ß∩ ß½ÑñπεΘ¿Ñ »αáó¿½á: 1. îÑΓ¬á, ¬«Γ«αá∩ π¬áºδóáÑΓß∩ ó «»ÑαáΓ«αÑ »ÑαÑσ«ñá, ñ«½ª¡á ¡áσ«ñ¿Γ∞ß∩ ó Γ«¼ ªÑ í½«¬Ñ ¿½¿ ¼«ñπ½Ñ, τΓ« ¿ ßá¼ «»ÑαáΓ«α »ÑαÑσ«ñá. äαπú¿¼¿ ß½«óá¼¿, ¡Ñ ñ«»πß¬á- εΓß∩ »ÑαÑσ«ñδ ¿º »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¿½¿ ó¡πΓα∞ ¡ÑÑ. 2. ÅÑαÑσ«ñ ¿ºó¡Ñ ó¡πΓα∞ ßΓαπ¬Γπα¡«ú« «»ÑαáΓ«αá (Γ« ÑßΓ∞ »ÑαÑσ«ñ ¡á í«½ÑÑ ú½πí«¬¿⌐ πα«óÑ¡∞ ó½«ªÑ¡¡«ßΓ¿) ¼«ªÑΓ óδºóáΓ∞ ¡Ñ»αÑñß¬áºπÑ¼δÑ φΣΣÑ¬Γδ, σ«Γ∩ ¬«¼»¿- ½∩Γ«α ¡Ñ óδñáÑΓ ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ. æΓαπ¬Γπα¡δÑ «»ÑαáΓ«αδ æΓαπ¬Γπα¡δÑ «»ÑαáΓ«αδ ßΓα«∩Γß∩ ¿º ñαπú¿σ «»ÑαáΓ«α«ó, »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ ¬«Γ«αδσ ñ«½ªÑ¡ íδΓ∞ »«ß½Ññ«óáΓÑ½∞¡δ¼ (ß«ßΓáó¡δÑ «»ÑαáΓ«αδ ¿ «»ÑαáΓ«αδ ¡áñ ºá»¿ß∩¼¿), «»αÑñÑ½∩Ñ¼δ¼ πß½«ó¡«⌐ »ÑαÑñáτÑ⌐ π»αáó½Ñ¡¿∩ (πß½«ó¡δÑ «»ÑαáΓ«αδ) ¿½¿ »«ó- Γ«α∩εΘ¿¼ß∩ («»ÑαáΓ«αδ µ¿¬½á). ---------------------- æΓαπ¬Γπα¡δ⌐ «»ÑαáΓ«α ------>! ß«ßΓáó¡«⌐ «»ÑαáΓ«α !--------> ! ---------------------- ^ ! ---------------------- ! !--->! πß½«ó¡δ⌐ «»ÑαáΓ«α !----->! ! ---------------------- ! ! ------------------------ ! !-->! «»ÑαáΓ«α µ¿¬½á !---->! ! ------------------------ ! ! ------------------------- ! --->! «»ÑαáΓ«α ¡áñ ºá»¿ß∩¼¿ !----- ------------------------- æ«ßΓáó¡δÑ «»ÑαáΓ«αδ æ«ßΓáó¡δÑ «»ÑαáΓ«αδ ºáñáεΓ »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«- α«ó, ∩ó½∩εΘ¿σß∩ ¿σ φ½Ñ¼Ñ¡Γá¼¿. Ä¡¿ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩ ó Γ«¼ »«α∩ñ¬Ñ, ó ¬«Γ«α«¼ «¡¿ ºá»¿ßá¡δ. æ«ßΓáó¡δÑ «»ÑαáΓ«αδ «íαáíá- ΓδóáεΓß∩, ¬á¬ «ñ¿¡ «»ÑαáΓ«α, τΓ« ¿¼ÑÑΓ αÑΦáεΘÑÑ º¡áτÑ¡¿Ñ Γá¼, úñÑ ß¿¡Γá¬ß¿ß Åáß¬á½∩ ñ«»πß¬áÑΓ ¿ß»«½∞º«óá¡¿Ñ Γ«½∞¬« «ñ¡«ú« «»ÑαáΓ«αá. Ä»ÑαáΓ«αδ ºá¬½ετáεΓß∩ ó «úαá¡¿τ¿ΓÑ½¿ begin ¿ end, ¿ «ΓñÑ½∩εΓß∩ ñαπú «Γ ñαπúá Γ«τ¬«⌐ ß ºá»∩Γ«⌐. ------- ------------ ----- æ«ßΓáó¡«⌐ «»ÑαáΓ«α -->( begin )-->! «»ÑαáΓ«α !-->( end )--> ^ ------- ------------ ! ----- ! --- ! -----------------( ; )<----- --- Åα¿óÑñÑ¼ »α¿¼Ñα ß«ßΓáó¡«ú« «»ÑαáΓ«αá: begin Z := X; X := Y; Y := Z; end; ôß½«ó¡δÑ «»ÑαáΓ«αδ ôß½«ó¡δÑ «»ÑαáΓ«αδ »«ºó«½∩εΓ óδíαáΓ∞ ñ½∩ óδ»«½¡Ñ¡¿∩ «ñ¿¡ ¿º ß«ßΓáó¡δσ «»ÑαáΓ«α«ó (¿½¿ ¡Ñ óδíαáΓ∞ ¡¿ «ñ¡«ú«). ----------------- ôß½«ó¡δ⌐ «»ÑαáΓ«α -------------->! «»ÑαáΓ«α if !--------> ! ----------------- ^ ! ---------------------- ! --->! «»ÑαáΓ«α case !--------- ---------------------- Ä»ÑαáΓ«α if æ¿¡Γá¬ß¿ß «»ÑαáΓ«αá if ¼«ª¡« »αÑñßΓáó¿Γ∞ ß½ÑñπεΘ¿¼ «í- αáº«¼: ---- ----------- ------ ---------- Ä»ÑαáΓ«α if->( if )->!óδαáªÑ¡¿Ñ!->( then )->!«»ÑαáΓ«α!----- ---- ----------- ------ ---------- ! ! ------------------------------------- ! ! ------ -------------- ! -->( else )--->! «»ÑαáΓ«α !-----------> ------ -------------- é óδαáªÑ¡¿¿ ñ«½ªÑ¡ »«½πτáΓ∞ß∩ αÑºπ½∞ΓáΓ, ¿¼ÑεΘ¿⌐ ßΓá¡- ñáαΓ¡δ⌐ íπ½Ñóß¬¿⌐ Γ¿». àß½¿ αÑºπ½∞ΓáΓ«¼ óδαáªÑ¡¿∩ ∩ó½∩ÑΓß∩ ¿ßΓ¿¡¡«Ñ º¡áτÑ¡¿Ñ (Ærue), Γ« óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ºá ¬½ετÑóδ¼ ß½«ó«¼ then. àß½¿ αÑºπ½∞ΓáΓ«¼ óδαáªÑ¡¿∩ ∩ó½∩ÑΓß∩ º¡áτÑ¡¿Ñ False ¿ »α¿ßπΓßΓóπÑΓ ¬½ετÑó«Ñ ß½«ó« else, Γ« óδ»«½¡∩Γß∩ «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ºá ¬½ετÑóδ¼ ß½«ó«¼ else. àß½¿ ¬½ετÑó«Ñ ß½«ó« else «ΓßπΓßΓóπÑΓ, Γ« ¡¿¬á¬«⌐ «»ÑαáΓ«α ¡Ñ óδ»«½¡∩ÑΓß∩. æ¿¡Γá¬ß¿τÑß¬á∩ ¡Ñ«ñ¡«º¡áτ¡«ßΓ∞, ó«º¡¿¬áεΘá∩ ó ¬«¡ßΓαπ¬- µ¿¿: if e1 then e2 else e3 αáºαÑΦáÑΓß∩ »πΓÑ¼ ß½ÑñπεΘÑ⌐ ¿¡ΓÑα»αÑΓáµ¿¿ φΓ«⌐ ¬«¡ßΓαπ¬µ¿¿: if e1 then begin if e2 then s1 else s2 end é «íΘÑ¼ ß½πτáÑ ¬½ετÑó«Ñ ß½«ó« else ßó∩ºδóáÑΓß∩ ß í½¿- ªá⌐Φ¿¼ ¬½ετÑóδ¼ ß½«ó«¼ if, ¬«Γ«α«Ñ ÑΘÑ ¡Ñ ßó∩ºá¡« ß ¬½ετÑóδ¼ ß½«ó«¼ else. Åα¿óÑñÑ¼ ñóá »α¿¼Ñαá «»ÑαáΓ«αá if: if X < 1.5 then Z := X+Y else Z := 1.5; if P1 <> nil then P1 := P1^.father; Ä»ÑαáΓ«α óáα¿á¡Γá (case) Ä»ÑαáΓ«α óáα¿á¡Γá (casÑ) ß«ßΓ«¿Γ ¿º óδαáªÑ¡¿∩ (»ÑαÑ¬½ε- τáΓÑ½∩) ¿ ß»¿ß¬á «»ÑαáΓ«α«ó, ¬áªñ«¼π ¿º ¬«Γ«αδσ »αÑñΦÑßΓóπÑΓ «ñ¡á ¿½¿ í«½ÑÑ ¬«¡ßΓá¡Γ («¡¿ ¡áºδóáεΓß∩ ¬«¡ßΓá¡Γá¼¿ óδí«αá) ¿½¿ ¬½ετÑó«Ñ ß½«ó« else. ÅÑαÑ¬½ετáΓÑ½∞ ñ«½ªÑ¡ ¿¼ÑΓ∞ »ÑαÑτ¿ß- ½¿¼δ⌐ Γ¿» ¿ »ÑαÑτ¿ß½¿¼δÑ º¡áτÑ¡¿∩ óÑασ¡Ñ⌐ ¿ ¡¿ª¡Ñ⌐ úαá¡¿µδ φΓ«ú« Γ¿»á ñ«½ª¡δ ½ÑªáΓ∞ ó ñ¿á»áº«¡Ñ «Γ -32768 ñ« 32767. Æá- ¬¿¼ «íαáº«¼, ßΓα«¬«óδ⌐ Γ¿» ¿ ñ½¿¡¡δ⌐ µÑ½δ⌐ Γ¿» ∩ó½∩εΓß∩ ¡Ñ- ñ«»πßΓ¿¼δ¼¿ Γ¿»á¼¿ »ÑαÑ¬½ετáΓÑ½∩. éßÑ ¬«¡ßΓá¡Γδ óδí«αá ñ«ª¡δ íδΓ∞ π¡¿¬á½∞¡δ¼¿ ¿ ¿¼ÑΓ∞ »ÑαÑτ¿ß½¿¼δ⌐ Γ¿», ß«ó¼ÑßΓ¿¼δ⌐ ß Γ¿- »«¼ »ÑαÑ¬½ετáΓÑ½∩. ------ ----------- ---- -------- Ä»ÑαáΓ«α --->( casÑ )-->!óδαáªÑ¡¿Ñ!->( «f )---! casÑ !---- óáα¿á¡Γá ------ ----------- ---- ^ -------- ! ! ! --- ! ! ---( ; )---- ! --- ! --------------------------------------------------- ! ----- ----------------------------------------->( Ñnd )--> ! -------------- ^ ! --- ^ ----- -->! óÑΓó∞ else !----! --->( ; )---! -------------- --- -----------------------> ! ! ------------- ! ---- ----------- ! --- casÑ ->! ¬«¡ßΓá¡Γá !-->( .. )->!¬«¡ßΓá¡Γá!--->( : )--- ^ ------------- ---- ----------- ! --- ! ! ---- ! -------- ------------------( , )<--------------- ! ------------ ---- ->! «»ÑαáΓ«α !-> ------------ ------ ------------ óÑΓó∞ else ------>( else )-->! «»ÑαáΓ«α !--------------> ------ ------------ Ä»ÑαáΓ«α óáα¿á¡Γá »α¿ó«ñ¿Γ ¬ óδ»«½¡Ñ¡¿ε «»ÑαáΓ«αá, ¬«- Γ«α«¼π »αÑñΦÑßΓóπÑΓ ¬«¡ßΓá¡Γá óδí«αá, αáó¡á∩ º¡áτÑ¡¿ε »ÑαÑ¬- ½ετáΓÑ½∩ ¿½¿ ñ¿á»áº«¡π óδí«αá, ó ¬«Γ«α«¼ ¡áσ«ñ¿Γß∩ º¡áτÑ¡¿Ñ »ÑαÑ¬½ετáΓÑ½∩. àß½¿ Γá¬«⌐ ¬«¡ßΓá¡Γδ óδí«αá ¿½¿ Γá¬«ú« ñ¿á»á- º«¡á óδí«αá ¡Ñ ßπΘÑßΓóπÑΓ ¿ »α¿ßπΓßΓóπÑΓ óÑΓó∞ else, Γ« óδ- »«½¡∩Γß∩ «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ºá ¬½ετÑóδ¼ ß½«ó«¼ else. àß½¿ ªÑ óÑΓó∞ else «ΓßπΓßΓóπÑΓ, Γ« ¡¿¬á¬«⌐ «»ÑαáΓ«α ¡Ñ óδ»«½¡∩ÑΓ- ß∩. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«αá óáα¿á¡Γá: case Operator of plus: X := X+Y; minus: X := X-Y; times: X := X*Y; end; Ä»ÑαáΓ«α µ¿¬½á Ä»ÑαáΓ«α µ¿¬½á ºáñáÑΓ »«óΓ«α¡«Ñ óδ»«½¡Ñ¡¿Ñ «»αÑñÑ½Ñ¡¡δσ «»ÑαáΓ«α«ó. ------------------- Ä»ÑαáΓ«α µ¿¬½á ------------>! «»ÑαáΓ«α repeat !----------> ! ------------------- ^ ! ------------------- ! !--->! «»ÑαáΓ«α while !----! ! ------------------- ! ! ------------------- ! ---->! «»ÑαáΓ«α for !----- ------------------- àß½¿ τ¿ß½« »«óΓ«αÑ¡¿⌐ ºáαá¡ÑÑ ¿ºóÑßΓ¡«, Γ« »«ñσ«ñ∩ΘÑ⌐ ¬«¡ßΓαπ¬µ¿⌐ ∩ó½∩ÑΓß∩ «»ÑαáΓ«α for. é »α«Γ¿ó¡«¼ ß½πτáÑ ß½Ññπ- ÑΓ ¿ß»«½∞º«óáΓ∞ «»ÑαáΓ«αδ while ¿½¿ repeat. Ä»ÑαáΓ«α µ¿¬½á ß »«ßΓ-πß½«ó¿Ñ¼ (repeat) é «»ÑαáΓ«αÑ µ¿¬½á ß »«ßΓ-πß½«ó¿Ñ¼ (¡áτ¿¡áεΘ¿¼ß∩ ß« ß½«- óá repeat) óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ π»αáó½∩ÑΓ »«óΓ«α¡δ¼ óδ»«½¡Ñ¡¿- Ñ¼ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ «»ÑαáΓ«α«ó ß«ñÑαª¿Γß∩ ó¡πΓα¿ «»ÑαáΓ«αá repeat. -------- ---------- ------- ---------- Ä»ÑαáΓ«α->( repeat )---!«»ÑαáΓ«α!-->( until )->!«»ÑαáΓ«α!--> µ¿¬½á ß -------- ^ ---------- ! ------- ---------- »«ßΓ-πß½«ó¿Ñ¼ ! --- ! -----( ; )<--- --- ÉÑºπ½∞ΓáΓ«¼ óδαáªÑ¡¿∩ ñ«½ªÑ¡ íδΓ∞ αÑºπ½∞ΓáΓ íπ½Ñóß¬«ú« Γ¿»á. Ä»ÑαáΓ«αδ, ºá¬½ετÑ¡¡δÑ ¼Ñªñπ ¬½ετÑóδ¼¿ ß½«óá¼¿ repeat ¿ until, óδ»«½¡∩εΓß∩ »«ß½Ññ«óáΓÑ½∞¡« ñ« ΓÑσ »«α, »«¬á αÑ- ºπ½∞ΓáΓ óδαáªÑ¡¿∩ ¡Ñ »α¿¼ÑΓ º¡áτÑ¡¿Ñ Ærue. Å«ß½Ññ«óáΓÑ½∞- ¡«ßΓ∞ «»ÑαáΓ«α«ó óδ»«½¡¿Γß∩ »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ «ñ¿¡ αáº, »«ß- ¬«½∞¬π óδτ¿ß½Ñ¡¿Ñ óδαáªÑ¡¿∩ »α«¿ºó«ñ¿Γß∩ »«ß½Ñ ¬áªñ«ú« óδ- »«½¡Ñ¡¿∩ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ «»ÑαáΓ«α«ó. Åα¿óÑñÑ¼ »α¿¼Ñαδ «»ÑαáΓ«αá µ¿¬½á ß »«ßΓ-πß½«ó¿Ñ¼: repeat K := I mod J; I := J; J := K; until J = 0; repeat Write('éóÑñ¿ΓÑ º¡áτÑ¡¿Ñ (0..9):'); Readln(I); until (I >= 0) and (I <= 9); Ä»ÑαáΓ«αδ µ¿¬½á ß »αÑñ-πß½«ó¿Ñ¼ (while) Ä»ÑαáΓ«α µ¿¬½á ß »αÑñ-πß½«ó¿Ñ¼ (¡áτ¿¡áεΘ¿⌐ß∩ ß« ß½«óá while) ß«ñÑαª¿Γ ó ßÑíÑ óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ π»αáó½∩ÑΓ »«óΓ«α- ¡δ¼ óδ»«½¡Ñ¡¿Ñ¼ «»ÑαáΓ«αá (¬«Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ ß«ßΓáó¡δ¼ «»Ñ- αáΓ«α«¼). ----- ----------- ---- ---------- Ä»ÑαáΓ«α µ¿¬½á->(while)-->!óδαáªÑ¡¿Ñ!->( d« )->!«»ÑαáΓ«α!---> ß »αÑñ-πß½«ó¿Ñ¼ ----- ----------- ---- ---------- éδαáªÑ¡¿Ñ, ß »«¼«Θ∞ε ¬«Γ«α«ú« «ßπΘÑßΓó½∩ÑΓß∩ π»αáó½Ñ¡¿Ñ »«óΓ«αÑ¡¿Ñ¼ «»ÑαáΓ«αá, ñ«½ª¡« ¿¼ÑΓ∞ íπ½Ñóß¬¿⌐ Γ¿». éδτ¿ß½Ñ- ¡¿Ñ Ñú« »α«¿ºó«ñ¿Γß∩ ñ« Γ«ú«, ¬á¬ ó¡πΓαÑ¡¡¿⌐ «»ÑαáΓ«α íπñÑΓ óδ»«½¡Ñ¡. é¡πΓαÑ¡¡¿⌐ «»ÑαáΓ«α óδ»«½¡∩Γß∩ »«óΓ«α¡« ñ« ΓÑσ »«α, »«¬á óδαáªÑ¡¿Ñ »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ ÆruÑ. àß½¿ óδαáªÑ¡¿Ñ ß ßá¼«ú« ¡áτá½á »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ False, Γ« «»ÑαáΓ«α, ß«- ñÑαªáΘ¿⌐ß∩ ó¡πΓα¿ «»ÑαáΓ«αá µ¿¬½á ß »αÑñ-πß½«ó¿Ñ¼, ¡Ñ óδ»«½- ¡∩ÑΓß∩. Åα¿¼Ñαá¼¿ «»ÑαáΓ«αá µ¿¬½á ó »αÑñ-πß½«ó¿Ñ¼ ¼«úπΓ ß½π- ª¿Γ∞: while Data[I] <> X do I := I + 1; While I > 0 do begin if Odd(I) then Z := Z * X; I := I div 2; X := Sqr(X); end; while not Eof(InFile) do begin Readln(InFile,Line); Process(Line); end; Ä»ÑαáΓ«αδ µ¿¬½á ß »áαá¼ÑΓα«¼ (for) Ä»ÑαáΓ«αδ µ¿¬½á ß »áαá¼ÑΓα«¼ (¬«Γ«αδÑ ¡áτ¿¡áεΓß∩ ß« ß½«óá for) óδºδóáÑΓ »«óΓ«α∩εΘÑÑß∩ óδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá (¬«- Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ ß«ßΓáó¡δ¼ «»ÑαáΓ«α«¼) »«¬á π»αáó½∩εΘÑ⌐ »Ñ- αÑ¼Ñ¡¡«⌐ »α¿ßóá¿óáÑΓß∩ ó«ºαáßΓáεΘá∩ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ º¡á- τÑ¡¿⌐. ----- ------------------------ ---- Ä»ÑαáΓ«α µ¿¬½á->( for )->!π»αáó½∩εΘá∩ »ÑαÑ¼Ñ¡¡á∩!->( := )-- ß »áαá¼ÑΓα«¼ ----- ------------------------ ---- ! -------------------------- ! ----------------! ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ !<-------- ! -------------------------- ! ---- !-->( t« )------ ! ---- ! ------------------- ---- ! !->!¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ!->( d« )---- ! -------- ! ------------------- ---- ! ->( downto )---- --------------------------- -------- ! ------------------- -->! «»ÑαáΓ«α !-------> ------------------- ---------------------------- ô»αáó½∩εΘá∩ »ÑαÑ¼Ñ¡¡á∩ -->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α »ÑαÑ¼Ñ¡¡«⌐ !---> ---------------------------- ------------- ìáτá½∞¡«Ñ º¡áτÑ¡¿Ñ ------>! óδαáªÑ¡¿Ñ !------------------> ------------- ------------- è«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ ------->! óδαáªÑ¡¿Ñ !------------------> ------------- é ¬áτÑßΓóÑ π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ ñ«½ªÑ¡ ¿ß»«½∞º«óáΓ∞ß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »ÑαÑ¼Ñ¡«⌐ (íÑº ¬á¬«ú«-½¿í« ¬óá½¿Σ¿¬áΓ«αá), ¬«- Γ«αδ⌐ «í«º¡áτáÑΓ »ÑαÑ¼Ñ¡¡πε, «íΩ∩ó½Ñ¡¡πε ½«¬á½∞¡«⌐ ó í½«¬Ñ, ó ¬«Γ«α«¼ ß«ñÑαª¿Γß∩ «»ÑαáΓ«α for. ô»αáó½∩εΘá∩ »ÑαÑ¼Ñ¡¡á∩ ñ«½ª¡á ¿¼ÑΓ∞ »ÑαÑτ¿ß½¿¼δ⌐ Γ¿». ìáτá½∞¡«Ñ ¿ ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿∩ ñ«½ª¡δ ¿¼ÑΓ∞ Γ¿», ß«ó¼ÑßΓ¿¼δ⌐ »« »α¿ßóá¿óá¡¿ε ß »ÑαÑτ¿ß½¿¼δ¼ Γ¿»«¼. è«úñá ¡áτ¿¡áÑΓ óδ»«½¡∩Γ∞ß∩ «»ÑαáΓ«α for, ¡áτá½∞¡«Ñ ¿ ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿∩ «»αÑñÑ½∩εΓß∩ «ñ¿¡ αáº, ¿ φΓ¿ º¡áτÑ¡¿∩ ß«σ- αá¡∩εΓß∩ ¡á »α«Γ∩ªÑ¡¿¿ óßÑú« óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«αá for. Ä»ÑαáΓ«α, ¬«Γ«αδ⌐ ß«ñÑαª¿Γß∩ ó ΓÑ½Ñ «»ÑαáΓ«αá for, óδ- »«½¡∩ÑΓß∩ «ñ¿¡ αáº ñ½∩ ¬áªñ«ú« º¡áτÑ¡¿∩ ó ñ¿á»áº«¡Ñ ¼Ñªñπ ¡áτá½∞¡δ¼ ¿ ¬«¡Ñτ¡δ¼ º¡áτÑ¡¿Ñ¼. ô»αáó½∩εΘá∩ »ÑαÑ¼Ñ¡¡á∩ óßÑú- ñá ¿¡¿µ¿á½¿º¿απÑΓß∩ ¡áτá½∞¡δ¼ º¡áτÑ¡¿Ñ¼. è«úñá αáí«ΓáÑΓ «»Ñ- αáΓ«α for, º¡áτÑ¡¿Ñ π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ πóÑ½¿τ¿óáÑΓß∩ »α¿ ¬áªñ«¼ »«óΓ«αÑ¡¿¿ ¡á Ññ¿¡¿µπ. àß½¿ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ »αÑóδ- ΦáÑΓ ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ, Γ« ß«ñÑαªáΘ¿⌐ß∩ ó ΓÑ½Ñ «»ÑαáΓ«αá for «»ÑαáΓ«α ¡Ñ óδ»«½¡∩Γß∩. è«úñá ó «»ÑαáΓ«αÑ µ¿¬½á ¿ß»«½∞ºπÑΓß∩ ¬½ετÑó«Ñ ß½«ó« downto, º¡áτÑ¡¿Ñ π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ π¼Ñ¡∞ΦáÑΓß∩ »α¿ ¬áªñ«¼ »«óΓ«αÑ¡¿¿ ¡á Ññ¿¡¿µπ. àß½¿ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ ó Γá¬«¼ «»ÑαáΓ«αÑ ¼Ñ¡∞ΦÑ, τÑ¼ ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ, Γ« ß«ñÑαªáΘ¿⌐ß∩ ó ΓÑ½Ñ «»ÑαáΓ«αá µ¿¬½á «»ÑαáΓ«α ¡Ñ óδ»«½¡∩Γß∩. àß½¿ «»ÑαáΓ«α, ß«ñÑαªáΘ¿⌐ß∩ ó ΓÑ½Ñ «»ÑαáΓ«αá for, ¿º¼Ñ- ¡∩ÑΓ º¡áτÑ¡¿Ñ π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐, Γ« φΓ« ∩ó½∩ÑΓß∩ «Φ¿í- ¬«⌐. Å«ß½Ñ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«αá for º¡áτÑ¡¿Ñ π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ ßΓá¡«ó¿Γß∩ ¡Ñ«»αÑñÑ½Ñ¡¡δ¼, Ñß½¿ Γ«½∞¬« óδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá for ¡Ñ íδ½« »αÑαóá¡« ß »«¼«Θ∞ε «»ÑαáΓ«αá »ÑαÑσ«ñá. àß½¿ »α¿¡∩Γ∞ ó« ó¡¿¼á¡¿Ñ φΓ¿ «úαá¡¿τÑ¡¿∩, Γ« «»ÑαáΓ«α for V := Expr1 to Expr2 do Body; φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«απ: begin Temp1 := Expr1; Temp2 := Expr2; if Temp1 <= Temp2 then begin V := Temp1; Body; while V <> Temp2 do begin V := Succ(V); Body; end; end; end; ¿ «»ÑαáΓ«α µ¿¬½á for V := Expr1 downto Exp2 do Body; φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«αá¼: begin Temp1 := Expr1; Temp2 := Expr2; if Temp1 >= Temp2 then begin V := Temp1; Body; while V <> Temp2 o begin V := Pred(V); Body; end; end; end; úñÑ Temp1 ¿ Temp2 - óß»«¼«úáΓÑ½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ, Γ¿» ¬«Γ«αδσ ß«ó»áñáÑΓ ß «ß¡«ó¡δ¼ Γ¿»«¼ »ÑαÑ¼Ñ¡¡«⌐ V ¿ ¬«Γ«αδÑ ¡Ñ óßΓαÑ- τáεΓß∩ ó ñαπú«¼ ¼ÑßΓÑ »α«úαá¼¼δ. Åα¿óÑñÑ¼ »α¿¼Ñαδ «»ÑαáΓ«αá µ¿¬½á ß »áαá¼ÑΓα«¼: for I := 2 to 63 do if Data[I] > Max then Max := Data[I] for I := 1 to 10 do for J := 1 to 10 do begin X := 0; for K := 1 to 10 do X := X + Mat1[I,K]*Mat2[K,J]; Mat[I,J] := X; end; for C := red to blue do Check(C); Ä»ÑαáΓ«αδ »α¿ß«Ññ¿¡Ñ¡¿∩ (with) é «»Ñαáµ¿∩σ ¡áñ ºá»¿ß∩¼¿ «»ÑαáΓ«α »α¿ß«Ññ¿¡Ñ¡¿∩ («»Ñαá- Γ«α with) πñ«í¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ ¬αáΓ¬«ú« «íαáΘÑ¡¿∩ ¬ »«½∩¼ ºá»¿ß¿. é «»ÑαáΓ«αÑ »α¿ß«Ññ¿¡Ñ¡¿∩ ¬ »«½∩¼ «ñ¡«⌐ ¿½¿ í«½ÑÑ ¬«¡¬αÑΓ¡δσ »ÑαÑ¼Ñ¡¡δσ Γ¿»á ºá»¿ß∞ ¼«ª¡« «íαáΘáΓ∞ß∩, ¿ß»«½∞- ºπ∩ Γ«½∞¬« ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ »«½Ñ⌐. Ä»ÑαáΓ«α »α¿ß«Ññ¿¡Ñ¡¿∩ ¿¼Ñ- ÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: ------ ---------------------- ---- Ä»ÑαáΓ«α --->( with )-->! ßßδ½¬á ¡á »ÑαÑ- !-->( d« )-- »α¿ß«Ññ¿¡Ñ¡¿∩ ------ ^ ! ¼Ñ¡¡πε Γ¿»á ºá»¿ß∞ ! ! ---- ! ! ---------------------- ! ! ! --- ! ! ----------( , )<---------- ! --- ! ------------------------------- ! -------------------- ---->! «»ÑαáΓ«α !---> -------------------- ------------------------ æßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε ------>! ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε !-----> Γ¿»á ºá»¿ß∞ ------------------------ Åα¿óÑñÑ¼ »α¿¼Ñα «»ÑαáΓ«αá with: with Date do if month = 12 then begin month := 1; year := year + 1 end else month := month + 1; ¥Γ« φ¬ó¿óá½Ñ¡Γ¡« ß½ÑñπεΘÑ¼π: if Date.month = 12 then begin Date.month := 1; Date.year := Date.year + 1 end else Date.month := Date.month + 1; é «»ÑαáΓ«αÑ »α¿ß«Ññ¿¡Ñ¡¿∩ ß¡áτá½á »α«¿ºó«ñ¿Γß∩ »α«óÑα¬á ¬áªñ«⌐ ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε, á ¿¼Ñ¡¡«: ¼«ª¡« ½¿ ÑÑ ¿¡ΓÑα»αÑ- Γ¿α«óáΓ∞, ¬á¬ »«½Ñ ºá»¿ß¿. àß½¿ φΓ« Γá¬, Γ« «¡á óßÑúñá ¿¡ΓÑ- α»αÑΓ¿απÑΓß∩ ¿¼Ñ¡¡« Γá¬¿¼ «íαáº«¼, ñáªÑ Ñß½¿ ¿¼ÑÑΓß∩ ñ«ßΓπ» ¬ »ÑαÑ¼Ñ¡¡«⌐ ß ΓÑ¼ ªÑ ¿¼Ñ¡Ñ¼. ä«»πßΓ¿¼ «íΩ∩ó½Ñ¡δ ß½ÑñπεΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ: type Point = record x,y: integer; end; var x: Point; y: Integer; é φΓ«¼ ß½πτáÑ ¿ ¬ x, ¿ ¬ y ¼«ª¡« «íαáΘáΓ∞ß∩, ¬á¬ ¬ »Ñ- αÑ¼Ñ¡¡«⌐ ¿½¿ ¬á¬ ¬ »«½ε ºá»¿ß¿. é «»ÑαáΓ«αÑ: with x do begin x := 10; y := 25; end; x ¼Ñªñπ ¬½ετÑóδ¼¿ ß½«óá¼¿ with ¿ d« «Γ¡«ß¿Γß∩ ¬ »ÑαÑ¼Ñ¡¡«⌐ Γ¿»á π¬áºáΓÑ½∞, á ó ß«ßΓáó¡«¼ «»ÑαáΓ«αÑ x ¿ y ßßδ½áεΓß∩ ¡á x.x ¿ y.y. Ä»ÑαáΓ«α with V1,V2,...Vn do s; φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«αá¼: with V1 do with V2 do ... with Vn do S; é «í«¿σ ß½πτá∩σ, Ñß½¿ Vn ∩ó½∩ÑΓß∩ »«½Ñ¼ ¿ v1, ¿ v2, Γ« «¡á ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¬á¬ v2.Vn, á ¡Ñ ¬á¬ v1.Vn. àß½¿ óδí«α¬á »ÑαÑ¼Ñ¡¡«⌐ Γ¿»á ºá»¿ß∞ ßó∩ºá¡á ß ¿¡ñÑ¬ß¿- α«óá¡¿Ñ¼ ¼áßß¿óá ¿½¿ óδτ¿ß½Ñ¡¿Ñ¼ π¬áºáΓÑ½∩, Γ« φΓ¿ ñÑ⌐ßΓó¿∩ »α«¿ºó«ñ∩Γß∩ ñ« Γ«ú«, ¬á¬ íπñÑΓ óδ»«½¡∩Γ∞ß∩ ß«ßΓáó¡«⌐ «»Ñαá- Γ«α. âïÇéÇ 8 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ »«ºó«½∩εΓ ó¬½ετáΓ∞ ó «ß¡«ó¡«⌐ »α«ú- αá¼¼¡δ⌐ í½«¬ ñ«»«½¡¿ΓÑ½∞¡δÑ í½«¬¿. èáªñ«Ñ «»¿ßá¡¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ß«ñÑαª¿Γ ºáú«½«ó«¬, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ »α«ú- αá¼¼¡δ⌐ í½«¬. Åα«µÑñπαá á¬Γ¿ó¿º¿απÑΓß∩ ß »«¼«Θ∞ε «»ÑαáΓ«αá »α«µÑñπαδ. öπ¡¬µ¿∩ á¬Γ¿ó¿º¿απÑΓß∩ »α¿ óδτ¿ß½Ñ¡¿¿ óδαáªÑ¡¿∩, ß«ñÑαªáΘÑú« óδº«ó Σπ¡¬µ¿¿ ¿ ó«ºóαáΘáÑ¼«Ñ Σπ¡¬µ¿Ñ⌐ º¡áτÑ¡¿Ñ »«ñßΓáó½∩ÑΓß∩ ó φΓ« óδαáªÑ¡¿Ñ. é ñá¡¡«⌐ ú½áóÑ «íßπªñáεΓß∩ αáº½¿τ¡δÑ ß»«ß«íδ «»¿ßá¡¿∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¿ ¿σ »áαá¼ÑΓαδ. Ä»¿ßá¡¿∩ »α«µÑñπα Ä»¿ßá¡¿Ñ »α«µÑñπαδ »«ºó«½∩ÑΓ ßó∩ºáΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ß »α«µÑñπα¡δ¼ í½«¬«¼. Åα«µÑñπαπ ¼«ª¡« ºáΓÑ¼ á¬Γ¿ó¿º¿α«óáΓ∞ ß »«¼«Θ∞ε «»ÑαáΓ«αá »α«µÑñπαδ. ------------- - ------------------ - Ä»¿ßá¡¿Ñ -->! ºáú«½«ó«¬ !->(;)->! ΓÑ½« »α«µÑñπαδ !->(;)--> »α«µÑñπαδ ! »α«µÑñπαδ ! - ------------------ - ------------- ----------- --------------- çáú«½«ó«¬ ->( procedure )->!¿ñÑ¡Γ¿Σ¿¬áΓ«α!-----------------> »α«µÑñπαδ ----------- --------------- ! ^ --------- ! ! ------------------ ! ! ! ß»¿ß«¬ ! ! --! Σ«α¼á½∞¡δσ !-- ! »áαá¼ÑΓα«ó ! ------------------ é ºáú«½«ó¬Ñ »α«µÑñπαδ π¬áºδóáÑΓß∩ ¿¼∩ »α«µÑñπαδ ¿ «»¿- ßδóáÑΓß∩ ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó (Ñß½¿ «¡ »α¿ßπΓßΓóπ- ÑΓ): ---------------------- Æ¿» »áαá¼ÑΓαá ------->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α Γ¿»á !---------> ^ ---------------------- ! ! -------- ! ------------( ßΓα«¬á )<---------- -------- -------- ÆÑ½« ------------------------------->! í½«¬ !----> »α«µÑñπαδ ! ------------ --- ^ ! -------- ^ !-->( interrupt )->( ; )-! ! ! ! ------------ --- ! ! ! ---------------- ! ! ! --------- ! ! !->( forward )------------->! ! ! --------- ! ! ! ---------- ! ! !->( external )------------>! ! ---------- ! ! -------------------------- ! ----->( ñ¿αÑ¬Γ¿óá inline )-------- -------------------------- æ¿¡Γá¬ß¿ß ñ½∩ ß»¿ß¬á Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó »«¬áºá¡ ñá- ½ÑÑ ó φΓ«⌐ ú½áóÑ ó αáºñÑ½Ñ "Åáαá¼ÑΓαδ". çá»πß¬ »α«µÑñπαδ «ßπΘÑßΓó½∩ÑΓß∩ ß »«¼«Θ∞ε «»ÑαáΓ«αá »α«µÑñπαδ, ó ¬«Γ«α«¼ ß«ñÑαªáΓß∩ ¿¼∩ »α«µÑñπαδ ¿ ¡Ñ«íσ«ñ¿¼δÑ »áαá¼ÑΓαδ. Ä»ÑαáΓ«αδ, ¬«Γ«αδÑ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩ »α¿ ºá»πß¬Ñ »α«µÑñπαδ, ß«ñÑαªáΓß∩ ó «»ÑαáΓ«α¡«⌐ τáßΓ¿ ¼«ñπ½∩ »α«µÑñπαδ. àß½¿ ó ß«ñÑαªáΘÑ¼ß∩ ó »α«µÑñπαÑ «»ÑαáΓ«αÑ ó¡πΓα¿ ¼«ñπ½∩ »α«- µÑñπαδ ¿ß»«½∞ºπÑΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«µÑñπαδ, Γ« »α«µÑñπαá íπñÑΓ óδ»«½¡∩Γ∞ß∩ αÑ¬παß¿ó¡« (íπñÑΓ »α¿ óδ»«½¡Ñ¡¿¿ «íαáΘáΓ∞- ß∩ ßá¼á ¬ ßÑíÑ). Åα¿óÑñÑ¼ »α¿¼Ñα «»¿ßá¡¿∩ »α«µÑñπαδ: procedure NumString(N: integer; var S: string); var V: integer; begin V := Abs(N); S := ''; repeat S := Chr(N mod 10 + Ord('0')) + S; N := N div 10; until N = 0; if N < 0 then S := '-' + S; end; é «»¿ßá¡¿¿ »α«µÑñπαδ »ÑαÑñ í½«¬«¼ «»ÑαáΓ«α«ó ¼«ªÑΓ π¬á- ºδóáΓß∩ ñ¿αÑ¬Γ¿óá »αÑαδóá¡¿∩ (interrupt). Åα«µÑñπαá ó φΓ«¼ ß½πτáÑ αáßß¼áΓα¿óáÑΓß∩, ¬á¬ »α«µÑñπαá »αÑαδóá¡¿∩. Å«½¡«Ñ «»¿ßá¡¿Ñ »α«µÑñπα »αÑαδóá¡¿∩ »α¿ó«ñ¿Γß∩ ó â½áóÑ 15 ("é¡πΓ- αÑ¡¡∩∩ «αúá¡¿ºáµ¿∩ Æπαí«-Åáß¬á½∩". é ñá¡¡δ⌐ ¼«¼Ñ¡Γ «Γ¼ÑΓ¿¼, τΓ« »α«µÑñπαδ «íαáí«Γ¬¿ »αÑαδóá¡¿∩ ¡Ñ½∞º∩ óδºδóáΓ∞ ß »«¼«Θ∞ε «»ÑαáΓ«α«ó »α«µÑñπαδ, ¿ τΓ« ó ¬áªñ«⌐ ¿º ¡¿σ ºáñáÑΓß∩ ß»¿ß«¬ »áαá¼ÑΓα«ó, ¬«Γ«αδ⌐ «í∩ºáΓÑ½∞¡« ñ«½ªÑ¡ ¿¼ÑΓ∞ ß½ÑñπεΘ¿⌐ ó¿ñ: procedure MyInt(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP): word); interrupt; é¼ÑßΓ« í½«¬á «»ÑαáΓ«α«ó ó «»¿ßá¡¿¿ »α«µÑñπαδ ¿½¿ Σπ¡¬- µ¿¿ ¼«ª¡« ºá»¿ßáΓ∞ «»ÑαÑªáεΘÑÑ «»¿ßá¡¿Ñ («»¿ßá¡¿Ñ forward), ó¡ÑΦ¡ÑÑ «»¿ßá¡¿Ñ («»¿ßá¡¿Ñ external) ¿½¿ ó¡πΓαÑ¡¡ÑÑ «»¿ßá¡¿Ñ («»¿ßá¡¿Ñ inline). Ä»ÑαÑªáεΘÑÑ «»¿ßá¡¿Ñ (forward) Ä»¿ßá¡¿Ñ »α«µÑñπαδ, ß«ñÑαªáΘÑÑ ó¼ÑßΓ« í½«¬á «»ÑαáΓ«α«ó ñ¿αÑ¬Γ¿óπ forward, ¡áºδóáÑΓß∩ «»ÑαÑªáεΘ¿¼ «»¿ßá¡¿Ñ¼. é ¬á- ¬«¼-½¿í« ¼ÑßΓÑ »«ß½Ñ φΓ«ú« «»¿ßá¡¿∩ ß »«¼«Θ∞ε «»αÑñÑ½∩εΘÑú« «»¿ßá¡¿∩ ñ«½ª¡á «»αÑñÑ½∩Γ∞ß∩ »α«µÑñπαá. Ä»αÑñÑ½∩εΘÑÑ «»¿ßá- ¡¿Ñ - φΓ« «»¿ßá¡¿Ñ, ó ¬«Γ«α«¼ ¿ß»«½∞ºπÑΓß∩ Γ«Γ ªÑ ¿ñÑ¡Γ¿Σ¿- ¬áΓ«α »α«µÑñπαδ, ¡« «»πΘÑ¡ ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ¿ ó ¬«Γ«α«Ñ ó¬½ετÑ¡ í½«¬ «»ÑαáΓ«α«ó. Ä»¿ßá¡¿Ñ forward ¿ «»αÑñÑ- ½∩εΘÑÑ «»¿ßá¡¿Ñ ñ«½ª¡δ »α¿ßπΓßΓó«óáΓ∞ ó «ñ¡«⌐ ¿ Γ«⌐ ªÑ τáßΓ¿ «»¿ßá¡¿∩ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. îÑªñπ ¡¿¼¿ ¼«úπΓ «»¿ßδóáΓ∞ß∩ ñαπú¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ ¼«úπΓ «íαáΘáΓ∞ß∩ ¬ »α«- µÑñπαÑ ß «»ÑαÑªáεΘ¿¼ «»¿ßá¡¿Ñ¼. Æá¬¿¼ «íαáº«¼ ó«º¼«ª¡á óºá- ¿¼¡á∩ αÑ¬παß¿∩. Ä»ÑαÑªáεΘÑÑ «»¿ßá¡¿Ñ ¿ «»αÑñÑ½∩εΘÑÑ «»¿ßá¡¿Ñ »αÑñßΓáó- ½∩εΓ ß«í«⌐ »«½¡«Ñ «»¿ßá¡¿Ñ »α«µÑñπαδ. Åα«µÑñπαá ßτ¿ΓáÑΓß∩ «»¿ßá¡¡«⌐ ß »«¼«Θ∞ε «»ÑαÑªáεΘÑú« «»¿ßá¡¿∩. Åα¿óÑñÑ¼ ß½ÑñπεΘ¿⌐ »α¿¼Ñα «»ÑαÑªáεΘÑú« «»¿ßá¡¿∩: procedure Walter(m,n : integer); forward; procedure Clara(x,y : real); begin . . . end; procedure Walter; begin . . Clara(8.3,2.4); . . end; Ä»αÑñÑ½∩εΘÑÑ «»¿ßá¡¿Ñ »α«µÑñπαδ ¼«ªÑΓ íδΓ∞ ó¡ÑΦ¡¿¼ «»¿- ßá¡¿Ñ¼. Äñ¡á¬«, «¡« ¡Ñ ¼«ªÑΓ íδΓ∞ ó¡πΓαÑ¡¡¿¼ «»¿ßá¡¿Ñ¼ ¿½¿ ñαπú¿¼ «»ÑαÑªáεΘ¿¼ «»¿ßá¡¿Ñ¼. Ä»αÑñÑ½∩εΘÑÑ «»¿ßá¡¿Ñ Γá¬ªÑ ¡Ñ ¼«ªÑΓ ß«ñÑαªáΓ∞ ñ¿αÑ¬Γ¿óπ interrupt. Ä»ÑαÑªáεΘ¿Ñ «»¿ßá¡¿∩ ¡Ñ ñ«»πß¬áεΓß∩ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ τáß- Γ¿ ¼«ñπ½∩. é¡ÑΦ¡¿Ñ «»¿ßá¡¿∩ (external) Ä»¿ßá¡¿∩ external »«ºó«½∩εΓ ßó∩ºδóáΓ∞ «ΓñÑ½∞¡« ß¬«¼»¿- ½¿α«óá¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¡á»¿ßá¡¡δÑ ¡á ∩ºδ¬Ñ áßßÑ¼- í½Ñαá. æ »«¼«Θ∞ε ¬«¼á¡ñδ "$L ¿¼∩_Σá⌐½á" ñ½∩ ó¡ÑΦ¡Ñ⌐ »α«úαá¼- ¼δ ñ«½ª¡δ íδΓ∞ πßΓá¡«ó½Ñ¡δ ßó∩º¿ ß »α«úαá¼¼«⌐ ¿½¿ ¼«ñπ½Ñ¼ ¡á ∩ºδ¬Ñ Åáß¬á½∞. ü«½ÑÑ ñÑΓá½∞¡«Ñ «»¿ßá¡¿∩ ¬«¼»«¡«ó¬¿ ß »α«ú- αá¼¼«⌐ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ß«ñÑαª¿Γß∩ ó â½áóÑ 15. Åα¿óÑñÑ¼ ß½ÑñπεΘ¿Ñ »α¿¼Ñαδ «»¿ßá¡¿⌐ ó¡ÑΦ¡¿σ »α«µÑñπα: procedure MoveWord(var source,dest; count: longint); external; procedure MoveLong(var source,dest; count: longint); external; procedure FillWord(var dest,data: integer; count: longint); external; procedure FillLong(var dest,data: integer; count: longint); external; {$L BLOCK.OBJ} é¡ÑΦ¡¿¼¿ »α«µÑñπαá¼¿ ß½ÑñπÑΓ »«½∞º«óáΓ∞ß∩, ¬«úñá óδ σ«- Γ¿ΓÑ «íΩÑñ¿¡¿Γ∞ í«½∞Φ«Ñ ¬«½¿τÑßΓó« «íΩÑ¬Γ¡δσ ¼«ñπ½Ñ⌐. àß½¿ óáΦ¿ »α«úαá¼¼δ ¿¼ÑεΓ ¡Ñí«½∞Φ«⌐ «íΩÑ¼, ½πτΦÑ ó¼ÑßΓ« φΓ«ú« ¿ß- »«½∞º«óáΓ∞ ó¡πΓαÑ¡¡¿Ñ »α«µÑñπαδ. Ä»¿ßá¡¿∩ inline ä¿αÑ¬Γ¿óδ inline »«ºó«½∩εΓ ºá»¿ßδóáΓ∞ ó¼ÑßΓ« í½«¬á «»Ñ- αáΓ«α«ó ¿¡ßΓαπ¬µ¿¿ ó ¼áΦ¿¡¡«¼ ¬«ñÑ. Åα¿ óδº«óÑ «íδτ¡«⌐ »α«µÑ- ñπαδ ¬«¼»¿½∩Γ«α ß«ºñáÑΓ ¬«ñ, ó ¬«Γ«α«¼ »áαá¼ÑΓαδ »α«µÑñπ- αδ »«¼ÑΘáεΓß∩ ó ßΓÑ¬, á ºáΓÑ¼ ñ½∩ óδº«óá »α«µÑñπαδ úÑ¡Ñα¿απ- ÑΓß∩ ¿¡ßΓαπ¬µ¿∩ æÇLL. è«úñá óδ óδºδóáÑΓÑ »α«µÑñπαπ inline, ¬«¼»¿½∩Γ«α úÑ¡Ñα¿απÑΓ ¬«ñ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ inline, á ¡Ñ ß »«¼«Θ∞ε ¿¡ßΓαπ¬µ¿¿ æÇLL. Æá¬¿¼ «íαáº«¼, »α«µÑñπαá inline "αáßΦ¿α∩ÑΓß∩" »α¿ ¬áªñ«¼ «íαáΘÑ¡¿¿ ¬ ¡Ñ⌐, á¡á½«ú¿τ¡« ¼á¬α«- ¿¡ßΓαπ¬µ¿¿ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá. Åα¿óÑñÑ¼ ñóá ¡Ñí«½∞Φ¿σ »α¿¼Ñ- αá »α«µÑñπα Γ¿»á inline: procedure DisableInterrupts: inline($FA); { CLI } procedure EnableInterrupts; inline($FB); { STI } Åα«µÑñπαδ Γ¿»á inline «»¿ßá¡δ »«ñα«í¡« ó â½áóÑ 15 ("é¡πΓαÑ¡¡∩∩ «αúá¡¿ºáµ¿∩ Æπαí«-Åáß¬á½∩"). Ä»¿ßá¡¿∩ Σπ¡¬µ¿⌐ Ä»¿ßá¡¿Ñ Σπ¡¬µ¿¿ «»αÑñÑ½∩ÑΓ τáßΓ∞ »α«úαá¼¼δ, ó ¬«Γ«α«⌐ óδτ¿ß½∩εΓß∩ ¿ ó«ºóαáΘáÑΓß∩ º¡áτÑ¡¿Ñ. ------------- - -------------- - Ä»¿ßá¡¿Ñ-->! ºáú«½«ó«¬ !->(;)-->!ΓÑ½« Σπ¡¬µ¿¿!-->(;)----> Σπ¡¬µ¿¿ ! Σπ¡¬µ¿¿ ! - -------------- - ------------- é ºáú«½«ó¬Ñ Σπ¡¬µ¿¿ «»αÑñÑ½∩ÑΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿, Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ (Ñß½¿ «¡¿ ¿¼ÑεΓß∩) ¿ Γ¿» αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿. ---------- ----------------- çáú«½«ó«¬ ->( function )->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α !---------------- Σπ¡¬µ¿¿ ---------- ----------------- ! ^ ! ------ ! ! ! -------------- ! ! ! ! ß»¿ß«¬ ! ! ! ->! Σ«α¼á½∞¡δσ !-- ! ! »áαá¼ÑΓα«ó ! ! -------------- ! --------------------------------------------- ! --- ---------------------- -->( : )---->! Γ¿» αÑºπ½∞ΓáΓá !----------> --- ---------------------- ---------------------- Æ¿» αÑºπ½∞ΓáΓá ----------->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α Γ¿»á !----------> ! ---------------------- ! ! -------- ! ---------->( ßΓα«¬á )-------------- -------- -------- ÆÑ½« Σπ¡¬µ¿¿ ---------->! í½«¬ !--------------------------> ! -------- ^ ! --------- ! !---->( forward )------------>! ! --------- ! ! ---------- ! !---->( external )----------->! ! ---------- ! ! -------------------- ! ----->! ñ¿αÑ¬Γ¿óá inline !----- -------------------- öπ¡¬µ¿∩ á¬Γ¿ó¿º¿απÑΓß∩ »α¿ óδº«óÑ Σπ¡¬µ¿¿. Åα¿ óδº«óÑ Σπ¡¬µ¿¿ π¬áºδóáÑΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿ ¿ ¬á¬¿Ñ-½¿í« »áαá- ¼ÑΓαδ, ¡Ñ«íσ«ñ¿¼δÑ ñ½∩ óδτ¿ß½Ñ¡¿∩ Σπ¡¬µ¿¿. éδº«ó Σπ¡¬µ¿¿ ¼«- ªÑΓ ó¬½ετáΓ∞ß∩ ó óδαáªÑ¡¿∩ ó ¬áτÑßΓóÑ «»Ñαá¡ñá. è«úñá óδαá- ªÑ¡¿Ñ óδτ¿ß½∩ÑΓß∩, Σπ¡¬µ¿∩ óδ»«½¡∩ÑΓß∩ ¿ º¡áτÑ¡¿Ñ¼ «»Ñαá¡ñá ßΓá¡«ó¿Γß∩ º¡áτÑ¡¿Ñ, ó«ºαáΘáÑ¼«Ñ Σπ¡¬µ¿Ñ⌐. é «»ÑαáΓ«α¡«⌐ τáßΓ¿ í½«¬á Σπ¡¬µ¿¿ ºáñáεΓß∩ «»ÑαáΓ«αδ, ¬«Γ«αδÑ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩ »α¿ á¬Γ¿ó¿ºáµ¿¿ Σπ¡¬µ¿¿. é ¼«ñπ½Ñ ñ«½ªÑ¡ ß«ñÑαªáΓ∞ß∩ »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ «ñ¿¡ «»ÑαáΓ«α »α¿ßóá¿óá- ¡¿∩, ó ¬«Γ«α«¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«απ Σπ¡¬µ¿¿ »α¿ßóá¿óáÑΓß∩ º¡áτÑ- ¡¿Ñ. ÉÑºπ½∞ΓáΓ«¼ Σπ¡¬µ¿¿ ∩ó½∩ÑΓß∩ »«ß½Ññ¡ÑÑ »α¿ßó«Ñ¡¡«Ñ º¡á- τÑ¡¿Ñ. àß½¿ Γá¬«⌐ «»ÑαáΓ«α »α¿ßóá¿óá¡¿∩ «ΓßπΓßΓóπÑΓ ¿½¿ «¡ ¡Ñ íδ½ óδ»«½¡Ñ¡, Γ« º¡áτÑ¡¿Ñ, ó«ºóαáΘáÑ¼«Ñ Σπ¡¬µ¿Ñ⌐, ¡Ñ«»αÑ- ñÑ½Ñ¡«. àß½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿ ¿ß»«½∞ºπÑΓß∩ »α¿ óδº«óÑ Σπ¡¬µ¿¿ ó¡πΓα¿ ¼«ñπ½∩-Σπ¡¬µ¿¿, Γ« Σπ¡¬µ¿∩ óδ»«½¡∩ÑΓß∩ αÑ¬πα- ß¿ó¡«. Åα¿óÑñÑ¼ ñá½ÑÑ »α¿¼Ñαδ «»¿ßá¡¿⌐ Σπ¡¬µ¿¿: function Max(a: Vector; n: integer): extended; var x: extended; i: integer; begin x := a(1); for i := 2 to n do if x < a[i] then x := a[i]; Max := x; end; function Power(x: extended; y: integer): extended; var z: extended; i: integer; begin z := 1.0; i := y; while i > 0 do begin if Odd(i) then z := z*x; x := Sqr(x); end; Power := z; end; Ç¡á½«ú¿τ¡« »α«µÑñπαá¼ Σπ¡¬µ¿¿ ¼«úπΓ «»¿ßδóáΓ∞ß∩, ¬á¬ «»ÑαÑªáεΘ¿Ñ, ó¡ÑΦ¡¿Ñ ¿½¿ ó¡πΓαÑ¡¡¿Ñ. Äñ¡á¬« Σπ¡¬µ¿¿ »αÑαδóá- ¡¿⌐ ¡Ñ ñ«»πß¬áεΓß∩. Åáαá¼ÑΓαδ é «»¿ßá¡¿¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ºáñáÑΓß∩ ß»¿ß«¬ Σ«α- ¼á½∞¡δσ »áαá¼ÑΓα«ó. èáªñδ⌐ »áαá¼ÑΓα, «»¿ßá¡¡δ⌐ ó ß»¿ß¬Ñ Σ«α- ¼á½∞¡δσ »áαá¼ÑΓα«ó, ∩ó½∩ÑΓß∩ ½«¬á½∞¡δ¼ »« «Γ¡«ΦÑ¡¿ε ¬ «»¿ßδ- óáÑ¼«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ ¿ ó ¼«ñπ½Ñ, ßó∩ºá¡¡δ¼ ß ñá¡¡«⌐ »α«µÑñπα«⌐ ¿½¿ Σπ¡¬µ¿Ñ⌐ ¡á ¡Ñú« ¼«ª¡« ßßδ½áΓ∞ß∩ »« Ñú« ¿ñÑ¡- Γ¿Σ¿¬áΓ«απ. --- ----------------------- --- æ»¿ß«¬ Σ«α- ---->( ( )-->! «»¿ßá¡¿Ñ »áαá¼ÑΓα«ó !-->( ) )--> ¼á½∞¡δσ »áαá- --- ^ ----------------------- ! --- ¼ÑΓα«ó ! --- ! ----------( ; )<----------- --- -------------------------- Ä»¿ßá¡¿Ñ -------------->! ß»¿ß«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó !--------> »áαá¼ÑΓα«ó ! ^ -------------------------- ! ^ ! ----- ! ----------------------- ! ->( var )-- ! --- ----------------- ! ----- ->( : )->! Γ¿» »áαá¼ÑΓαá !-- --- ----------------- ---------------------- Æ¿» »áαá¼ÑΓαá ------------! ¿ñÑ¡Γ¿Σ¿¬áΓ«α Γ¿»á !---------> ! ---------------------- ^ ! -------- ! !----------->( string )------------! ! -------- ! ! ------ ! ------------->( file )-------------- ------ æπΘÑßΓóπÑΓ Γα¿ Γ¿»á »áαá¼ÑΓα«ó: º¡áτÑ¡¿Ñ, »ÑαÑ¼Ñ¡¡á∩ ¿ ¡ÑΓ¿»¿º«óá¡¡á∩ »ÑαÑ¼Ñ¡¡á∩. Ä¡¿ σáαá¬ΓÑα¿ºπεΓß∩ ß½ÑñπεΘ¿¼: 1. âαπ»»á »áαá¼ÑΓα«ó, »ÑαÑñ ¬«Γ«αδ¼¿ «ΓßπΓßΓóπÑΓ ¬½ε- τÑó«Ñ ß½«ó« var ¿ ºá ¬«Γ«αδ¼¿ ß½ÑñπÑΓ Γ¿», ∩ó½∩ÑΓß∩ ß»¿ß¬«¼ »áαá¼ÑΓα«ó-º¡áτÑ¡¿⌐. 2. âαπ»»á »áαá¼ÑΓα«ó, »ÑαÑñ ¬«Γ«αδ¼¿ ß½ÑñπÑΓ ¬½ετÑó«Ñ ß½«ó« var ¿ ºá ¬«Γ«αδ¼¿ ß½ÑñπÑΓ Γ¿», ∩ó½∩ÑΓß∩ ß»¿ß- ¬«¼ »áαá¼ÑΓα«ó-»ÑαÑ¼Ñ¡¡δσ. 3. âαπ»»á »áαá¼ÑΓα«ó, »ÑαÑñ ¬«Γ«αδ¼¿ ßΓ«¿Γ ¬½ετÑó«Ñ ß½«ó« var ¿ ºá ¬«Γ«αδ¼¿ ¡Ñ ß½ÑñπÑΓ Γ¿», ∩ó½∩ÑΓß∩ ß»¿ß¬«¼ ¡ÑΓ¿»¿º«óá¡¡δσ »áαá¼ÑΓα«ó-»ÑαÑ¼Ñ¡¡δσ. Åáαá¼ÑΓαδ-º¡áτÑ¡¿∩ ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα-º¡áτÑ¡¿Ñ «íαáíáΓδóáÑΓß∩, ¬á¬ ½«- ¬á½∞¡á∩ »« «Γ¡«ΦÑ¡¿ε ¬ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ »ÑαÑ¼Ñ¡¡á∩, ºá ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú«, τΓ« «¡ »«½πτáÑΓ ßó«Ñ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ ¿º ß««ΓóÑΓßΓóπεΘÑú« Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá »α¿ á¬Γ¿ó¿ºáµ¿¿ »α«- µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. êº¼Ñ¡Ñ¡¿∩, ¬«Γ«αδÑ »αÑΓÑα»ÑóáÑΓ Σ«α¼á½∞- ¡δ⌐ »áαá¼ÑΓα-º¡áτÑ¡¿Ñ, ¡Ñ ó½¿∩εΓ ¡á º¡áτÑ¡¿Ñ Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá. æ««ΓóÑΓßΓóπεΘÑÑ Σá¬Γ¿τÑß¬«Ñ º¡áτÑ¡¿Ñ »áαá¼ÑΓαá-º¡áτÑ¡¿∩ ñ«½ª¡« íδΓ∞ óδαáªÑ¡¿Ñ¼ ¿ Ñú« º¡áτÑ¡¿Ñ ¡Ñ ñ«½ª¡« ¿¼ÑΓ∞ Σá⌐½«- óδ⌐ Γ¿» ¿½¿ ¬á¬«⌐-½¿í« ßΓαπ¬Γπα¡δ⌐ Γ¿», ß«ñÑαªáΘ¿⌐ ó ßÑíÑ Σá⌐½«óδ⌐ Γ¿». öá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ñ«½ªÑ¡ ¿¼ÑΓ∞ Γ¿», ß«ó¼ÑßΓ¿¼δ⌐ »« »α¿ßóá¿óá¡¿ε ß Γ¿»«¼ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá-º¡áτÑ¡¿∩. àß½¿ »áαá¼ÑΓα ¿¼ÑÑΓ ßΓα«¬«óδ⌐ Γ¿», Γ« Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα íπñÑΓ ¿¼ÑΓ∞ áΓα¿íπΓ αáº¼Ñαá, αáó¡δ⌐ 255. Åáαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ Åáαá¼ÑΓα-»ÑαÑ¼Ñ¡¡á∩ ¿ß»«½∞ºπÑΓß∩, ¬«úñá º¡áτÑ¡¿Ñ ñ«½ª¡« »ÑαÑñáóáΓ∞ß∩ ¿º »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ óδºδóáεΘÑ⌐ »α«úαá¼¼Ñ. æ««ΓóÑΓßΓóπεΘ¿⌐ Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ó «»ÑαáΓ«αÑ óδº«óá »α«- µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ñ«½ªÑ¡ íδΓ∞ ßßδ½¬«⌐ ¡á »ÑαÑ¼Ñ¡¡πε. Åα¿ á¬Γ¿ó¿ºáµ¿¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα-»ÑαÑ- ¼Ñ¡¡á∩ ºá¼ÑΘáÑΓß∩ Σá¬Γ¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, ½εíδÑ ¿º¼Ñ¡Ñ¡¿∩ ó º¡áτÑ¡¿¿ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐ «ΓαáªáεΓß∩ ¡á Σá¬- Γ¿τÑß¬«¼ »áαá¼ÑΓαÑ. é¡πΓα¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ½εíá∩ ßßδ½¬á ¡á Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα-»ÑαÑ¼Ñ¡¡πε »α¿ó«ñ¿Γ ¬ ñ«ßΓπ»π ¬ ßá¼«¼π Σá¬Γ¿τÑß¬«¼π »áαá¼ÑΓαπ. Æ¿» Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá ñ«½ªÑ¡ ß«ó»áñáΓ∞ ß Γ¿- »«¼ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐ (óδ ¼«ªÑΓÑ «í«⌐Γ¿ φΓ« «úαá¡¿τÑ¡¿Ñ ß »«¼«Θ∞ε ¡ÑΓ¿»¿º«óá¡¡«ú« »áαá¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐). àß½¿ Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα ¿¼ÑÑΓ ßΓα«¬«óδ⌐ Γ¿», Ñ¼π »α¿ßóá¿óá- ÑΓß∩ áΓα¿íπΓ ñ½¿¡δ, αáó¡δ⌐ 255, ¿ Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ñ«½- ªÑ¡ Γá¬ªÑ ¿¼ÑΓ∞ ßΓα«¬«óδ⌐ Γ¿» ¿ áΓα¿íπΓ ñ½¿¡δ, αáó¡δ⌐ 255. öá⌐½«óδ⌐ Γ¿» ¼«ªÑΓ »ÑαÑñáóáΓ∞ß∩ Γ«½∞¬«, ¬á¬ »áαá¼ÑΓα- »ÑαÑ¼Ñ¡¡á∩. Åα¿ ßßδ½¬Ñ ¡á Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα-»ÑαÑ¼Ñ¡¡πε, ßó∩ºá¡- ¡πε ß ¿¡ñÑ¬ß¿α«óá¡¿Ñ¼ ¼áßß¿óá ¿½¿ »«½πτÑ¡¿Ñ¼ π¬áºáΓÑ½∩ ¡á «íΩÑ¬Γ, φΓ¿ ñÑ⌐ßΓó¿∩ óδ»«½¡∩εΓß∩ »ÑαÑñ á¬Γ¿ó¿ºáµ¿Ñ⌐ »α«µÑñπ- αδ ¿½¿ Σπ¡¬µ¿¿. ìÑΓ¿»¿º«óá¡¡δÑ »áαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ è«úñá Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα ∩ó½∩ÑΓß∩ ¡ÑΓ¿»¿º«óá¡¡δ¼ »áαá- ¼ÑΓα«¼-»ÑαÑ¼Ñ¡¡«⌐, Γ« ß««ΓóÑΓßΓóπεΘ¿⌐ Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ¼«ªÑΓ »αÑñßΓáó½∩Γ∞ ß«í«⌐ ½εíπε ßßδ½¬π ¡á »ÑαÑ¼Ñ¡¡πε, ¡Ñºáó¿- ß¿¼« «Γ ÑÑ Γ¿»á. é »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ π ¡ÑΓ¿»¿º«óá¡¡«ú« »áαá¼ÑΓαá-»Ñ- αÑ¼Ñ¡¡«⌐ Γ¿» «ΓßπΓßΓóπÑΓ, Γ« ÑßΓ∞ «¡ ¡Ñß«ó¼ÑßΓ¿¼ ß »ÑαÑ¼Ñ¡- ¡δ¼¿ óßÑσ Γ¿»«ó, »«¬á Ñ¼π ¡Ñ íπñÑΓ »α¿ßó«Ñ¡ «»αÑñÑ½Ñ¡¡δ⌐ Γ¿» ß »«¼«Θ∞ε »α¿ßóá¿óá¡¿∩ Γ¿»á »ÑαÑ¼Ñ¡¡«⌐. Åα¿óÑñÑ¼ »α¿¼Ñα ¡ÑΓ¿»¿º«óá¡¡δσ »áαá¼ÑΓα«ó-»ÑαÑ¼Ñ¡¡δσ: function Equal(var source,dest; size: word): boolean; type Bytes = array[0..MaxInt] of byte; var N: integer; begin N := 0; while (N<size) and (Bytes(dest)[N] <> Bytes(source)[N] do Inc(N); Equal := N = size; end; ¥Γá Σπ¡¬µ¿∩ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ ßαáó¡Ñ¡¿∩ ½εíδσ ñóπσ »ÑαÑ¼Ñ¡¡δσ ½εí«ú« αáº¼Ñαá. ìá»α¿¼Ñα, ß »«¼«Θ∞ε «»¿ßá- ¡¿⌐: type Vector = array[1..10] of integer; Point = record x,y: integer; end; var Vec1, Vec2: Vector; N: integer; P: Point; ¿ óδº«ó«ó Σπ¡¬µ¿⌐: Equal(Vec1,Vec2,SizeOf(Vector)) Equal(Vec1,Vec2,SizeOf(integer)*N) Equal(Vec[1],Vec1[6],SizeOf(integer)*5) Equal(Vec1[1],P,4) ßαáó¡¿óáÑΓß∩ VÑß1 ß VÑß2, ßαáó¡¿óáεΓß∩ »ÑαóδÑ N φ½Ñ¼Ñ¡Γ«ó VÑß1 ß »Ñαóδ¼¿ N φ½Ñ¼Ñ¡Γá¼¿ VÑß2, ßαáó¡¿óáεΓß∩ »ÑαóδÑ 5 φ½Ñ- ¼Ñ¡Γ«ó VÑß1 ß »«ß½Ññ¡¿¼¿ »∩Γ∞ε φ½Ñ¼Ñ¡Γá¼¿ VÑß2 ¿ ßαáó¡¿óáεΓ- ß∩ VÑß1[1] ß É.σ ¿ VÑß2[2] ß P.y. Åα«µÑñπα¡δÑ Γ¿»δ ƒó½∩∩ß∞ αáßΦ¿αÑ¡¿Ñ¼ ßΓá¡ñáαΓ¡«ú« Åáß¬á½∩, Æπαí«-Åáß¬á½∞ »«ºó«½∩ÑΓ ¿¡ΓÑα»αÑΓ¿α«óáΓ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬á¬ «íΩÑ¬Γδ, ¬«Γ«αδÑ ¼«ª¡« »α¿ßóá¿óáΓ∞ »ÑαÑ¼Ñ¡¡δ¼ ¿ »ÑαÑñáóáΓ∞ ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó. Æá¬¿¼ «íαáº«¼, ñ«»πß¬áÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ »α«µÑ- ñπα¡δσ Γ¿»«ó. Ä»¿ßá¡¿∩ »α«µÑñπα¡«ú« Γ¿»á é «»¿ßá¡¿¿ »α«µÑñπα¡«ú« Γ¿»á «»αÑñÑ½∩εΓß∩ »áαá¼ÑΓαδ ¿, Ñß½¿ φΓ« Σπ¡¬µ¿∩, ÑÑ αÑºπ½∞ΓáΓ. ----------------------- ----->! ºáú«½«ó«¬ »α«µÑñπαδ !--- ! ----------------------- ! »α«µÑñπα¡δ⌐ Γ¿» -------! !---> ! ----------------------- ! ----->! ºáú«½«ó«¬ Σπ¡¬µ¿¿ !--- ----------------------- Å« ßπΘÑßΓóπ ß¿¡Γá¬ß¿ß ºá»¿ß¿ «»¿ßá¡¿∩ »α«µÑñπα¡«ú« Γ¿»á ß«ó»áñáÑΓ ß ºá»¿ß∞ε ºáú«½«ó¬á »α«µÑñπαδ ¿½¿ Σπ¬¡µ¿¿, ºá ¿ß¬- ½ετÑ¡¿Ñ¼ Γ«ú«, τΓ« ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ß½ÑñπεΘ¿⌐ ºá ¬½ετÑóδ¼ ß½«- ó«¼ procedure ¿½¿ function, «»πß¬áÑΓß∩. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»¿ßá¡¿⌐ »α«µÑñπα¡«ú« Γ¿»á: type Proc = procedure; SwapProc = procedure(var X,Y: integer); StrProc = procedure(S: string); MathFunc = function(X: real) : real; DeviceFunc = function(var F: text) : integer; MaxFunc = function(A,B: real; F: MathFunc); ê¼Ñ¡á »áαá¼ÑΓα«ó ß «»¿ßá¡¿¿ »α«µÑñπα¡«ú« Γ¿»á ¿úαáεΓ τ¿ßΓ« ¿½½εßΓαáΓ¿ó¡πε α«½∞ ¿ ¡á º¡áτÑ¡¿Ñ φΓ«ú« «»¿ßá¡¿∩ ¡¿¬á- ¬«ú« ó½¿∩¡¿∩ ¡Ñ «¬áºδóáεΓ. Åα¿¼Ñτá¡¿Ñ: Æπαí«-Åáß¬á½∞ ¡Ñ »«ºó«½∩ÑΓ «íΩ∩ó½∩Γ∞ Σπ¡¬µ¿¿, ó«ºóαáΘáεΘ¿Ñ º¡áτÑ¡¿Ñ »α«µÑñπα¡«ú« Γ¿»á. ÉÑ- ºπ½∞ΓáΓ Σπ¡¬µ¿¿ ñ«½ªÑ¡ íδΓ∞ ßΓα«¬«ó«ú«, óÑΘÑßΓóÑ¡¡«ú«, µÑ½«ú«, ß¿¼ó«½∞¡«ú«, íπ½Ñóß¬«ú«, ßßδ½«τ¡«ú« Γ¿»á ¿½¿ ¿¼ÑΓ∞ »ÑαÑτ¿ß½¿¼δ⌐ Γ¿», «»αÑñÑ½∩Ñ¼δ⌐ »«½∞º«óáΓÑ½Ñ¼. Åα«µÑñπα¡δÑ »ÑαÑ¼Ñ¡¡δÑ Å«ß½Ñ «»αÑñÑ½Ñ¡¿∩ »α«µÑñπα¡«ú« Γ¿»á »«∩ó½∩ÑΓß∩ ó«º¼«ª- ¡«ßΓ∞ «»¿ßδóáΓ∞ »ÑαÑ¼Ñ¡¡δÑ φΓ«ú« Γ¿»á. Æá¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ ¡δ- ºδóáεΓ »α«µÑñπα¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿. ìá»α¿¼Ñα, ß πτÑΓ«¼ «»¿ßá¡¿⌐ Γ¿»á ¿º »αÑñδñπΘÑú« »α¿¼Ñαá, ¼«ª¡« «íΩ∩ó¿Γ∞ ß½ÑñπεΘ¿Ñ »ÑαÑ- ¼Ñ¡¡δÑ: var P: SwapProc; F: MathFunc; èá¬ ¿ µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩, ¬«Γ«α«⌐ ¼«ª¡« »α¿ßó«¿Γ∞ º¡áτÑ- ¡¿Ñ µÑ½«ú« Γ¿»á, »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¼«ª¡« »α¿ßó«¿Γ∞ º¡á- τÑ¡¿Ñ »α«µÑñπα¡«ú« Γ¿»á. Æá¬¿¼ º¡áτÑ¡¿Ñ¼ ¼«ªÑΓ íδΓ∞, ¬«¡Ñτ- ¡«, ñαπúá∩ »α«µÑñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩, ¡« «¡« ¼«ªÑΓ Γá¬ªÑ »αÑñß- Γáó½∩Γ∞ ß«í«⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«µÑñπαδ ¿½¿ Σπ¬¡µ¿¿. é Γá¬«¼ ¬«¡ΓÑ¬ßΓÑ «»¿ßá¡¿∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¼«ª¡« αáßß¼áΓα¿- óáΓ∞, ¬á¬ «»¿ßá¡¿Ñ «ß«í«ú« α«ñá ¬«¡ßΓá¡Γδ, º¡áτÑ¡¿Ñ¼ ¬«Γ«α«⌐ ∩ó½∩ÑΓß∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩. ìá»α¿¼Ñα, »πßΓ∞ ¼δ ¿¼ÑÑ¼ ß½ÑñπεΘ¿Ñ «»¿ßá¡¿∩ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿: {$F+} procedure Swap(var A,B: integer); var Temp: integer; begin Temp := A; A := B; B := Temp; end. function Tan(Angle: real): real; begin Tan := Sin(Angle) / Cos(Angle); end. {$F-} Ä»¿ßá¡¡δ¼ αá¡ÑÑ »ÑαÑ¼Ñ¡¡δ¼ P ¿ F ΓÑ»Ñα∞ ¼«ª¡« »α¿ßó«¿Γ∞ º¡á- τÑ¡¿∩: P := Swap; F := Tan; Å«ß½Ñ Γá¬«ú« »α¿ßóá¿óá¡¿∩ «íαáΘÑ¡¿Ñ P(i,j) φ¬ó¿óá½Ñ¡Γ¡« Swap(i,j) ¿ F(X) φ¬ó¿óá½Ñ¡Γ¡« Tan(X). èá¬ ¿ »α¿ ½εí«¼ ñαπú«¼ »α¿ßóá¿óá¡¿¿ »ÑαÑ¼Ñ¡¡á∩ ß½Ñóá ¿ º¡áτÑ¡¿Ñ ó »αáó«⌐ τáßΓ¿ ñ«½ª¡δ íδΓ∞ ß«ó¼ÑßΓ¿¼δ »« »α¿ßóá¿óá- ¡¿ε. Åα«µÑñπα¡δÑ Γ¿»δ, τΓ«íδ «¡¿ íδ½¿ ß«ó¼ÑßΓ¿¼δ »« »α¿ßóá¿- óá¡¿ε, ñ«½ª¡δ ¿¼ÑΓ∞ «ñ¡« ¿ Γ« ªÑ τ¿ß½« »áαá¼ÑΓα«ó, á »áαá- ¼ÑΓαδ ¡á ß««ΓóÑßΓóπεΘ¿σ »«º¿µ¿∩σ ñ«½ª¡δ íδΓ∞ «ñ¿¡á¬«ó«ú« Γ¿»á. èá¬ π»«¼¿¡á½«ß∞ αá¡ÑÑ, ¿¼Ñ¡á »áαá¼ÑΓα«ó ó «»¿ßá¡¿¿ »α«µÑñπα¡«ú« Γ¿»á ¡¿¬á¬«ú« ñÑ⌐ßΓó¿∩ ¡Ñ óδºδóáεΓ. èα«¼Ñ Γ«ú«, ñ½∩ «íÑß»ÑτÑ¡¿∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ »« »α¿ßóá¿óá- ¡¿ε »α«µÑñπαá ¿ Σπ¡¬µ¿∩, Ñß½¿ ÑÑ ¡πª¡« »α¿ßó«¿Γ∞ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, ñ«½ª¡á πñ«ó½ÑΓó«α∩Γ∞ ß½ÑñπεΘ¿¼ ΓαÑí«óá¡¿∩¼: - Ä¡á ñ«½ª¡á ¬«¼»¿½¿α«óáΓ∞ß∩ ó ß«ßΓ«∩¡¿¿ {$F+}. - ¥Γ« ¡Ñ ñ«½ª¡á íδΓ∞ ßΓá¡ñáΓ¡á∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩. - Æá¬á∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ¡Ñ ¼«ªÑΓ íδΓ∞ ó½«ªÑ¡¡«⌐. - Æá¬á∩ »α«µÑñπαá ¡Ñ ñ«½ª¡á íδΓ∞ »α«µÑñπα«⌐ Γ¿»á inline. - Ä¡á ¡Ñ ñ«½ª¡á íδΓ∞ »α«µÑñπα«⌐ »αÑαδóá¡¿∩ (interrupt). Åα«ßΓÑ⌐Φ¿⌐ ß»«ß«í πñ«ó½ÑΓó«αÑ¡¿∩ »Ñαó«ú« ΓαÑí«óá¡¿∩ ß«ßΓ«¿Γ ó αáº¼ÑΘÑ¡¿¿ ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$F+} ó ¡áτá½Ñ ¿ßσ«ñ¡«ú« ΓÑ¬ßΓá (¿½¿ ó πßΓá¡«ó¬Ñ ¼Ñ¡ε "Ä»µ¿¿/è«¼»¿½∩- Γ«α/äá½∞¡¿⌐ Γ¿» óδº«óá" (O/C/Force Far Calls) ó ¿¡ΓÑúα¿α«- óá¡¡«⌐ ¿¡ΓÑαá¬Γ¿ó¡«⌐ ßαÑñÑ. æΓá¡ñáαΓ¡δ¼¿ »α«µÑñπαá¼¿ ¿ Σπ¡¬µ¿∩¼¿ ßτ¿ΓáεΓß∩ »α«µÑñπ- αδ ¿ Σπ¡¬µ¿¿, «»¿ßá¡¡δÑ ó ¼«ñπ½Ñ System, Γá¬¿Ñ, ¬á¬ Writeln, Readln, Chr, Ord. ùΓ«íδ »«½πτ¿Γ∞ ó«º¼«ª¡«ßΓ∞ ¿ß»«½∞º«óáΓ∞ ßΓá¡ñáαΓ¡πε »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ß »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, óδ ñ«½ª¡δ ¡á»¿ßáΓ∞ ñ½∩ ¡ÑÑ ß»Ñµ¿á½∞¡πε "«í«½«τ¬π". ìá»α¿¼Ñα, »πßΓ∞ ¼δ ¿¼ÑÑ¼ »α«µÑñπα¡δ⌐ Γ¿»: type IntProc = procedure(N: integer); æ½ÑñπεΘá∩ »α«µÑñπαá ñ½∩ ºá»¿ß¿ µÑ½«ú« τ¿ß½á íπñÑΓ ß«ó- ¼ÑßΓ¿¼«⌐ »« »α¿ßóá¿óá¡¿ε: begin Write(Number); end. é½«ªÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ß »α«µÑñπα¡δ¼¿ »ÑαÑ¼Ñ¡¡δ- ¼¿ ¿ß»«½∞º«óáΓ∞ ¡Ñ½∞º∩. Åα«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ßτ¿ΓáÑΓß∩ ó½«- ªÑ¡¡«⌐, ¬«úñá «¡á «»¿ßδóáÑΓß∩ ó¡πΓα¿ ñαπú«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ »α«µÑñπαá Inner ó½«ªÑ¡á ó »α«- µÑñπαπ Outer ¿ »«φΓ«¼π ÑÑ ¡Ñ½∞º∩ »α¿ßóá¿óáΓ∞ »α«µÑñπα¡«⌐ »Ñ- αÑ¼Ñ¡¡«⌐: program Nested; procedure Outer; procedure Inner; begin Writeln('Åα«µÑñπαá Inner ∩ó½∩ÑΓß∩ ó½«ªÑ¡¡«⌐'); end; begin Inner; end; begin Outer; end. êß»«½∞º«óá¡¿Ñ »α«µÑñπα¡δσ Γ¿»«ó ¡Ñ «úαá¡¿τ¿óáÑΓß∩ »α«ß- Γ« »α«µÑñπα¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿. èá¬ ¿ ½εí«⌐ ñαπú«⌐ Γ¿», »α«µÑ- ñπα¡δ⌐ Γ¿» ¼«ªÑΓ πτáßΓó«óáΓ∞ ó «»¿ßá¡¿¿ ßΓαπ¬Γπα¡«ú« Γ¿»á, τΓ« ó¿ñ¡« ¿º ß½ÑñπεΘ¿σ «»¿ßá¡¿⌐: type GotoProc = procedure(X,Y: integer); ProcList = array[1..10] of GotoProc; WindowPtr = ^WindowRec; Window = record Next: WindowPtr; Header: string[31]; Top,Left,Bottom,Right: integer; SetCursor: GotoProc; end; var P: ProcList; W: WindowPtr; æ πτÑΓ«¼ φΓ¿σ «»¿ßá¡¿⌐ ñ«»πßΓ¿¼δ ß½ÑñπεΘ¿Ñ óδº«óδ »α«- µÑñπα: P[3](1,1); W.SetCursor(10,10); è«úñá »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ »α«µÑñπαδ, Γ« ¡á Σ¿º¿τÑß¬«¼ πα«ó¡Ñ »α«¿ßσ«ñ¿Γ ß½ÑñπεΘÑÑ: áñ- αÑß »α«µÑñπαδ ß«σαá¡∩ÑΓß∩ ó »ÑαÑ¼Ñ¡¡«⌐. öá¬Γ¿τÑß¬¿, »α«µÑ- ñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩ óÑß∞¼á ¡á»«¼¿¡áÑΓ »ÑαÑ¼Ñ¡¡πε-π¬áºáΓÑ½∞, Γ«½∞¬« ó¼ÑßΓ« ßßδ½¬¿ ¡á ñá¡¡δÑ «¡á π¬áºδóáÑΓ ¡á »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε. èá¬ ¿ π¬áºáΓÑ½∞, »α«µÑñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩ ºá¡¿¼á- ÑΓ 4 íá⌐Γá (ñóá ß½«óá), ó ¬«Γ«αδσ ß«ñÑαª¿Γß∩ áñαÑß »á¼∩Γ¿. é »Ñαó«¼ ß½«óÑ σαá¡¿Γß∩ ß¼ÑΘÑ¡¿Ñ, ó« óΓ«α«¼ - ßÑú¼Ñ¡Γ. Åáαá¼ÑΓαδ »α«µÑñπα¡«ú« Γ¿»á Å«ß¬«½∞¬π »α«µÑñπα¡δÑ Γ¿»δ ñ«»πß¬áÑΓß∩ ¿ß»«½∞º«óáΓ∞ ó ½εí«¼ ¬«¡ΓÑ¬ßΓÑ, Γ« ¼«ª¡« «»¿ßδóáΓ∞ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ ó«ß»α¿¡¿¼áεΓ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ó ¬áτÑßΓóÑ »áαá¼ÑΓ- α«ó. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ »«¬áºδóáÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ »áαá¼ÑΓ- α«ó »α«µÑñπα¡«ú« Γ¿»á ñ½∩ óδó«ñá ΓαÑσ Γáí½¿µ αáº½¿τ¡δσ áα¿Σ- ¼ÑΓ¿τÑß¬¿σ Σπ¡¬µ¿⌐: program Tables; type Func = function(X,Y: integer): integer; {$F+} function Add(X,Y: integer): integer; begin Add := X + Y; end; function Multiply(X,Y: integer): integer; begin Multiply := X*Y; end; function Funny(X,Y: integer): integer; begin Funny := (X+Y) * (X-Y); end; {$F-} procedure PrintTable(W,H: integer; Operation: Func); var X,Y : integer; begin for Y := 1 to H do begin for X := 1 to W do Write(Operation(X,Y):5); Writeln; end; Writeln; end; begin PrintTable(10,10,Add); PrintTable(10,10,Multiply); PrintTable(10,10,Funny); end. Åα¿ αáí«ΓÑ »α«úαá¼¼á Table óδó«ñ¿Γ Γα¿ Γáí½¿µδ. éΓ«αá∩ ¿º ¡¿σ óδú½∩ñ¿Γ ß½ÑñπεΘ¿¼ «íαáº«¼: 1 2 3 4 5 6 7 8 9 10 2 4 6 8 10 12 14 16 18 20 3 6 9 12 15 18 21 24 27 30 4 8 12 16 20 24 28 32 36 40 5 10 15 20 25 30 35 40 45 50 6 12 18 24 30 36 42 48 54 60 7 14 21 28 35 42 49 56 63 70 8 16 24 32 40 48 56 64 72 80 9 18 27 36 45 54 63 72 81 90 10 20 30 40 50 60 70 80 90 100 Åáαá¼ÑΓαδ »α«µÑñπα¡«ú« Γ¿»á «ß«íÑ¡¡« »«½Ñº¡δ ó Γ«¼ ß½π- τáÑ, ¬«úñá ¡áñ ¼¡«ªÑßΓó«¼ »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐ ¡πª¡« óδ»«½- ¡¿Γ∞ ¬á¬¿Ñ-Γ« «íΘ¿Ñ ñÑ⌐ßΓó¿∩. é ñá¡¡«¼ ß½πτáÑ »α«µÑñπαδ PrintTable »αÑñßΓáó½∩ÑΓ ß«í«⌐ «íΘÑÑ ñÑ⌐ßΓó¿Ñ, óδ»«½¡∩Ñ¼«Ñ ¡áñ Σπ¡¬µ¿∩¼¿ Add, Multiply ¿ Funny. àß½¿ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ñ«½ª¡δ »ÑαÑñáóáΓ∞ß∩ ó ¬á- τÑßΓóÑ »áαá¼ÑΓαá, «¡¿ ñ«½ª¡δ πñ«ó½ÑΓó«α∩Γ∞ ΓÑ¼ ªÑ »αáó¿½á¼ ß«ó¼ÑßΓ¿¼«ßΓ¿ Γ¿»á, τΓ« ¿ »α¿ »α¿ßóá¿óá¡¿¿. Æ« ÑßΓ∞, Γá¬¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ñ«½ª¡δ ¬«¼»¿½¿α«óáΓ∞ß∩ ß ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá {$F+}, «¡¿ ¡Ñ ¼«úπΓ íδΓ∞ óßΓα«Ñ¡¡δ¼¿ Σπ¡¬µ¿∩¼¿, ¡Ñ ¼«úπΓ íδΓ∞ ó½«ªÑ¡¡δ¼¿ ¿ ¡Ñ ¼«úπΓ «»¿ßδóáΓ∞ß∩ ß áΓα¿íπΓá¼¿ inline ¿½¿ interrupt. Åα«µÑñπα¡δÑ Γ¿»δ ó óδαáªÑ¡¿∩σ é «íΘÑ¼ ß½πτáÑ ¿ß»«½∞º«óá¡¿Ñ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ó «»ÑαáΓ«αÑ ¿½¿ óδαáªÑ¡¿¿ «º¡áτáÑΓ óδº«ó ß«σαá¡Ñ¡¡«⌐ ó ñá¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Äñ¡á¬«, ºñÑß∞ ¿¼ÑÑΓß∩ «ñ¡« ¿ß¬½ετÑ¡¿Ñ: ¬«úñá Æπαí«-Åáß¬á½∞ «í¡áαπª¿óáÑΓ »α«µÑñπα¡πε »Ñ- αÑ¼Ñ¡¡πε ó ½Ñó«⌐ τáßΓ¿ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩, «¡ º¡áÑΓ, τΓ« »αáóá∩ τáßΓ∞ ñ«½ª¡á »αÑñßΓáó½∩Γ∞ ß«í«⌐ º¡áτÑ¡¿Ñ »α«µÑñπαδ. αáßß¼«Γα¿¼, ¡á»α¿¼Ñα, ß½ÑñπεΘπε »α«úαá¼¼π: {$F+} type IntFunc = function: integer; var F: IntFunc; N: integer; function ReadInt: integer; var I: integer; begin Read(I); ReadInt := I; end; begin F := ReadInt; { »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ »α«µÑñπαδ } N := ReadInt; { »α¿ßó«¿Γ∞ αÑºπ½∞ΓáΓ Σπ¡¬µ¿¿ } end. ÅÑαóδ⌐ «»ÑαáΓ«α ó «ß¡«ó¡«⌐ »α«úαá¼¼Ñ »α¿ßóá¿óáÑΓ º¡áτÑ- ¡¿Ñ »α«µÑñπαδ ReadInt (ÑÑ áñαÑß) »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ F, óΓ«α«⌐ «»ÑαáΓ«α óδºδóáÑΓ ReadInt ¿ »α¿ßóá¿óáÑΓ »«½πτÑ¡¡«Ñ º¡áτÑ¡¿Ñ N. Å«½πτÑ¡¿Ñ º¡áτÑ¡¿∩ »α«µÑñπαδ ¿½¿ óδº«ó Σπ¡¬µ¿¿ αáº½¿τáεΓß∩ »« Γ¿»π »α¿ßóá¿óáÑ¼«⌐ »ÑαÑ¼Ñ¡¡«⌐ (F ¿½¿ N). è ß«ªá½Ñ¡¿ε, ¿¼ÑεΓß∩ ß¿Γπáµ¿¿, ¬«úñá ¬«¼»¿½∩Γ«α ¿º ¬«¡- ΓÑ¬ßΓá ¡Ñ ¼«ªÑΓ «»αÑñÑ½¿Γ∞ ªÑ½áÑ¼«Ñ ñÑ⌐ßΓó¿Ñ. ìá»α¿¼Ñα, ó ß½ÑñπεΘÑ¼ «»ÑαáΓ«αÑ ñ∩½ ¬«¼»¿½∩Γ«αá ¡Ñ«τÑó¿ñ¡«, ñ«½ªÑ¡ «¡ ßαáó¡¿Γ∞ º¡áτÑ¡¿Ñ »α«µÑñπαδ ó F ß« º¡áτÑ¡¿Ñ¼ »α«µÑñπαδ ReadInt, ¿½¿ ¡πª¡« óδºóáΓ∞ »α«µÑñπαδ F ¿ ReadInt, á ºáΓÑ¼ ßαáó¡¿Γ∞ ¿σ º¡áτÑ¡¿∩: if F = ReadInt then Writeln('Éáó¡δ'); Äñ¡á¬«, ó ßΓá¡ñáαΓ¡«¼ ß¿¡Γá¬ß¿ßÑ Åáß¬á½∩ «»αÑñÑ½Ñ¡«, ¬á¬«Ñ óσ«ªñÑ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ «º¡áτá- ÑΓ óδº«ó Σπ¡¬µ¿¿, »«φΓ«¼π αÑºπ½∞ΓáΓ«¼ ñá¡¡«ú« «»ÑαáΓ«αá íπ- ñÑΓ óδº«ó »α«µÑñπα F ¿ ReadInt ¿ ßαáó¡Ñ¡¿Ñ »«½πτÑ¡¡δσ αÑ- ºπ½∞ΓáΓ«ó. ùΓ«íδ ßαáó¡¿Γ∞ º¡áτÑ¡¿Ñ »α«µÑñπαδ F ß« º¡áτÑ¡¿Ñ¼ »α«µÑñπαδ ReadInt, ¡πª¡« ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘπε ¬«¡ßΓαπ¬µ¿ε: if @F = @ReadInt then Writeln('Éáó¡δ'); Åα¿ »α¿¼Ñ¡Ñ¡¿¿ ¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«απ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ «»ÑαáΓ«α »«½πτÑ¡¿∩ áñαÑßá @ »αÑñ«ΓóαáΘáÑΓ óδº«ó ¬«¼»¿½∩Γ«α«¼ »α«µÑñπαδ ¿ ó Γ« ªÑ óαÑ¼∩ »αÑ«íαáºπÑΓ áαúπ¼Ñ¡Γ ó π¬áºáΓÑ½∞. Æá¬¿¼ «íαáº«¼, @F »αÑ«íαáºπÑΓ F ó ¡ÑΓ¿»¿º«óá¡¡πε »ÑαÑ¼Ñ¡- ¡πε-π¬áºáΓÑ½∞, ß«ñÑαªáΘπε áñαÑß, á @ReadInt ó«ºóαáΘáÑΓ áñαÑß ReadInt. äóá º¡áτÑ¡¿∩-π¬áºáΓÑ½∩ ¼«ª¡« ßαáó¡¿Γ∞ ¿ «»αÑñÑ½¿Γ∞, ßßδ½áÑΓß∩ ½¿ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ F ¡á ReadInt. Åα¿¼Ñτá¡¿Ñ: ùΓ«íδ »«½πτ¿Γ∞ áñαÑß »α«µÑñπα¡«⌐ »Ñ- αÑ¼Ñ¡¡«⌐, á ¡Ñ áñαÑß, ¬«Γ«αδ⌐ ó ¡Ñ⌐ ß«σαá¡Ñ¡, ¡πª¡« ¿ß»«½∞º«óáΓ∞ ñó«⌐¡«⌐ «»ÑαáΓ«α »«½πτÑ¡¿∩ áñαÑßá @@. ìá»α¿¼Ñα, @P «º¡áτáÑΓ »αÑ«íαáº«óá¡¿Ñ É ó ¡ÑΓ¿»¿º«óá¡- ¡πε »ÑαÑ¼Ñ¡¡πε-π¬áºáΓÑ½∞, á @@P «º¡áτáÑΓ ó«ºóαáΘÑ¡¿Ñ Σ¿º¿τÑß¬«ú« áñαÑßá »ÑαÑ¼Ñ¡¡«⌐ É. é Æπαí«-Åáß¬á½Ñ »«½¡«ßΓ∞ε »«ññÑαª¿óáÑΓß∩ »α¿óÑñÑ¡¿Ñ Γ¿- »«ó »ÑαÑ¼Ñ¡¡δσ, ó¬½ετá∩ »α«µÑñπα¡δÑ Γ¿»δ. ìá»α¿¼Ñα, ß πτÑΓ«¼ ß½ÑñπεΘ¿σ «»¿ßá¡¿⌐: type func = function(X: integer): integer; var F: Func; P: Pointer; N: integer; ¼«ª¡« »«ßΓα«¿Γ∞ ß½ÑñπεΘ¿Ñ »α¿ßóá¿óá¡¿∩: F := Func(P); { »α¿ßó«¿Γ∞ º¡áτÑ¡¿∩ »α«µÑñπαδ ó É F } Func(P) := F; { »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ »α«µÑñπαδ ó F P } @F := P; { »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ π¬áºáΓÑ½∩ ó P F } P := @F; { »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ π¬áºáΓÑ½∩ ó F P } N := F(N); { óδºóáΓ∞ Σπ¡¬µ¿ε τÑαÑº F } N := Func(P)(N); { óδºóáΓ∞ Σπ¡¬µ¿ε τÑαÑº P } çá¼ÑΓ¿¼, ó τáßΓ¡«ßΓ¿, τΓ« «»ÑαáΓ«α »«½πτÑ¡¿∩ áñαÑßá @, »α¿¼Ñ¡Ñ¡¡δ⌐ ¬ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó ½Ñó«⌐ τáßΓ¿ »α¿ßóá¿óá¡¿∩. ÄíαáΓ¿ΓÑ Γá¬ªÑ ó¡¿¼á¡¿Ñ ¡á »α¿óÑ- ñÑ¡¿Ñ Γ¿»«ó ¡á »«ß½Ññ¡Ñ⌐ ßΓα«¬Ñ »α¿ óδº«óÑ Σπ¬¡µ¿¿ τÑαÑº »Ñ- αÑ¼Ñ¡¡πε-π¬áºáΓÑ½∞. âïÇéÇ 9 Åα«úαá¼¼δ ¿ ¼«ñπ½¿ æ¿¡Γá¬ß¿ß »α«úαá¼¼ Åα«úαá¼¼á ó Æπαí«-Åáß¬á½Ñ ¿¼ÑÑΓ Γá¬«⌐ ªÑ ó¿ñ, ¬á¬ «»¿- ßá¡¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ºá ¿ß¬½ετÑ¡¿Ñ¼ ºáú«½«ó¬á »α«ú- αá¼¼δ ¿ ¡Ñ«í∩ºáΓÑ½∞¡δσ »αÑñ½«ªÑ¡¿⌐ ¿ß»«½∞º«óá¡¿∩ (uses). --------------------- --- ---------- Åα«úαá¼¼á -->!ºáú«½«ó«¬ »α«úαá¼¼δ!-->( ; )-------! ¼«ñπ½∞ !-> ! --------------------- --- ^ ! ^ ---------- ! ! ! ! --------------------------------- ! ! --------- --------- ! ----------- ! ! ! »αÑñ½«- ! ! ---->! ªÑ¡¿Ñ !--- ! ¿ß»«½∞- ! ! º«óá¡¿∩ ! ! (uses) ! ----------- çáú«½«ó«¬ »α«úαá¼¼δ çáú«½«ó«¬ »α«úαá¼¼δ «»αÑñÑ½∩ÑΓ ¿¼∩ »α«úαá¼¼δ ¿ ÑÑ »áαá- ¼ÑΓαδ. --------- ----------------- çáú«½«ó«¬ -->( program )->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α !-----------------> --------- ----------------- ! ^ ! ! ------------------------------ ! ! ! ! --- ----------------------- --- ! -->( ( )->! »áαá¼ÑΓαδ »α«úαá¼¼δ !->( ) )-- --- ----------------------- --- -------------------------- Åáαá¼ÑΓαδ »α«úαá¼¼δ -->! ß»¿ß«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó !--------> -------------------------- àß½¿ ºáú«½«ó«¬ »α«úαá¼¼δ »α¿ßπΓßΓóπÑΓ, «¡ ∩ó½∩ÑΓß∩ τ¿ß- Γ« ñÑ¬«αáΓ¿ó¡«⌐ ñÑΓá½∞ε ¿ ¬«¼»¿½∩Γ«α Ñú« ¿ú¡«α¿απÑΓ. ÅαÑñ½«ªÑ¡¿Ñ uses ÅαÑñ½«ªÑ¡¿Ñ uses (»αÑñ½«ªÑ¡¿Ñ ¿ß»«½∞º«óá¡¿∩) ¿ñÑ¡Γ¿Σ¿- µ¿απÑΓ óßÑ ¼«ñπ½¿, ¿ß»«½∞ºπÑ¼δÑ »α«úαá¼¼«⌐, ó¬½ετá∩ ¡Ñ»«ß- αÑñßΓóÑ¡¡« ¿ß»«½∞ºπÑ¼δÑ ¼«ñπ½¿ ¿ ¼«ñπ½¿, ¿ß»«½∞ºπÑ¼δÑ φΓ¿¼¿ ¼«ñπ½∩¼¿. ------ ----------------- --- ÅαÑñ½«ªÑ¡¿Ñ --->( uses )-->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α !----->( ; )-> ¿ß»«½∞º«óá¡¿∩ ------ ^ ----------------- ! --- ! --- ! --------( , )<--------- --- î«ñπ½∞ System óßÑúñá ¿ß»«½∞ºπÑΓß∩ áóΓ«¼áΓ¿τÑß¬¿. ä½∩ »«ññÑαª¬¿ Γá¬¿σ ßαÑñßΓó, ¬á¬ Σá⌐½«óδ⌐ óó«ñ-óδó«ñ, «íαáí«Γ¬á ßΓα«¬, «»Ñαáµ¿¿ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐, ñ¿¡á¼¿τÑß¬«Ñ αáß»αÑñÑ- ½Ñ¡¿Ñ »á¼∩Γ¿ ¿ ñαπú¿σ φΓ«Γ ¼«ñπ½∞ αÑá½¿ºπÑΓ óÑß∞ ¡¿ª¡¿⌐ πα«- óÑ¡∞, á Γá¬ªÑ «íß½πª¿óáεΘ¿Ñ Σ«¡«óδÑ »α«úαá¼¼δ. Åáß¬á½∞, ó ßó«ε «τÑαÑñ∞, «íß½πª¿óáÑΓ ¼¡«ú¿Ñ ßΓá¡ñáαΓ¡δÑ ¼«ñπ½¿, Γá¬¿Ñ, ¬á¬ Éinter, Dos ¿ ært. ¥Γ« ¡Ñ »α«¿ßσ«ñ¿Γ áó- Γ«¼áΓ¿τÑß¬¿: óδ ñ«½ª¡δ «í∩ºáΓÑ½∞¡« ó¬½ετ¿Γ∞ ¿σ ó »αÑñ½«ªÑ¡¿Ñ ¿ß»«½∞º«óá¡¿∩. ìá»α¿¼Ñα: uses Dos,Crt; { ΓÑ»Ñα∞ ¼«úπΓ íδΓ∞ ñ«ßΓπ»¡δ ßαÑñßΓóá ¼«ñπ- ½Ñ⌐ Dos ¿ Crt } æΓá¡ñáαΓ¡δÑ ¼«ñπ½¿ «»¿ßá¡δ ó â½áóÑ 12, ó αáºñÑ½Ñ "æΓá¡- ñáαΓ¡δÑ ¼«ñπ½¿". ùΓ«íδ ¡á⌐Γ¿ ¼«ñπ½¿, ºáñá¡¡δÑ ó »αÑñ½«ªÑ¡¿¿ ¿ß»«½∞º«óá- ¡¿∩, ¬«¼»¿½∩Γ«α ß¡áτá½á »α«óÑα∩ÑΓ αÑº¿ñÑ¡Γ¡δÑ ¼«ñπ½¿, Γ« ÑßΓ∞ Γá¬¿Ñ ¼«ñπ½¿, ¬«Γ«αδÑ íδ½¿ ºáúαπªÑ¡δ ó »á¼∩Γ∞ »α¿ ºá- »πß¬Ñ ¬«¼»¿½∩Γ«αá ¿º Σá⌐½á ÆURéÄ.ÆÉL. àß½¿ ¼«ñπ½∞ ¡Ñ ¡á⌐ñÑ¡ ó ß»¿ß¬Ñ αÑº¿ñÑ¡Γ¡δσ ¼«ñπ½Ñ⌐, Γ« ¬«¼»¿½∩Γ«α«¼ »«ñαáºπ¼ÑóáÑΓ- ß∩, τΓ« «¡ ñ«½ªÑ¡ ¡áσ«ñ¿Γ∞ß∩ ¡á ñ¿ß¬Ñ. Åα¿ φΓ«¼ »«ñαáºπ¼Ñóá- ÑΓß∩, τΓ« ¿¼∩ Σá⌐½á ñ«½ª¡« ß«ó»áñáΓ∞ ß ¿¼Ñ¡Ñ¼ ¼«ñπ½∩ ¿ ¿¼ÑΓ∞ αáßΦ¿αÑ¡¿Ñ .ÆÉU. æ¡áτá½á »«¿ß¬ »α«¿ºó«ñ¿Γß∩ ß ΓÑ¬πΘÑ¼ ¬áΓá- ½«úÑ Σá⌐½«ó, ºáΓÑ¼ - ó ¬áΓá½«úáσ, ºáñá¡¡δσ ó ß»¿ß¬Ñ ¬áΓá½«- ú«ó Σá⌐½«ó ó ¼Ñ¡ε "Ä»µ¿¿/è«¼»¿½∩Γ«α/î«ñπ½¿" (Ä/D/Unit) ¿½¿ ñ¿αÑ¬Γ¿ó«⌐ /U ó ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ ¬«¼»¿½∩Γ«αá ÆÉæ. ìá»α¿¼Ñα, óδαáªÑ¡¿Ñ: uses Memory; úñÑ Memory ¡Ñ ∩ó½∩ÑΓß∩ αÑº¿ñÑ¡Γ¡δ¼ ¼«ñπ½Ñ¼, »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« ¬«¼»¿½∩Γ«α íπñÑΓ ¿ß¬áΓ∞ Σá⌐½ îàîÄRY.ÆÉU ó ΓÑ¬πΘÑ¼ ¬áΓá- ½«úÑ Σá⌐½«ó, á ºáΓÑ¼ ó ¬áΓá½«úáσ ¼«ñπ½Ñ⌐. ä¿αÑ¬Γ¿óá {$U ¿¼∩-Σá⌐½á} »«ºó«½¿Γ óá¼ »ÑαÑ«»αÑñÑ½¿Γ∞ ¿¼∩ Σá⌐½á, ¬«Γ«α«Ñ óδí¿αáÑΓß∩ ¬«¼»¿½∩Γ«α«¼. àß½¿ ñá¡¡á∩ ñ¿- αÑ¬Γ¿óá ¿ß»«½∞ºπÑΓß∩ ó »αÑñ½«ªÑ¡¿¿ uses ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ ¿¼Ñ¡Ñ¼ ¼«ñπ½∩, Γ« ¬«¼»¿½∩Γ«α ó¼ÑßΓ« ¿¼Ñ¡¿ ¼«ñπ½∩ ¿ß- »«½∞ºπÑΓ ºáñá¡¡«Ñ ¿¼∩ Σá⌐½á. ìá»α¿¼Ñα, óδαáªÑ¡¿Ñ: uses {$U MEM} Memory; »α¿óÑñÑΓ ¬ Γ«¼π, τΓ« ¬«¼»¿½∩Γ«α íπñÑΓ ¿ß¬áΓ∞ ¼«ñπ½∞ Mem«ry ó Σá⌐½Ñ îàî.ÆÉU. ä¿αÑ¬Γ¿óá {$U ¿¼∩_Σá⌐½á} ºáñáÑΓ Γ«½∞¬« ß¿¼- ó«½∞¡πε ¼ÑΓ¬π ñ¿ß¬«ó«ñá ¿ ¼áαΦαπΓ ñ«ßΓπ»á ¬ ¬áΓá½«úπ Σá⌐½«ó, á »«¿ß¬ ¼«ñπ½∩ óδ»«½¡∩ÑΓß∩ ó π¬áºá¡¡«¼ ¬áΓá½«úÑ. Åα¿ ¿ß»«½∞º«óá¡¿¿ ¬«¼á¡ñ æ«¼αilÑ/îá¬Ñ ¿ æ«¼αilÑ/éuild »α¿ «»¿ßá¡¿¿ ¼«ñπ½Ñ⌐ ó »αÑñ½«ªÑ¡¿¿ uses »«¿ß¬ ¿ßσ«ñ¡δσ Σá⌐- ½«ó »α«¿ºó«ñ¿Γß∩ Γá¬ªÑ, ¬á¬ Σá⌐½«ó .ÆÉU, ¿ »«ñαáºπ¼ÑóáÑΓß∩, τΓ« ¿¼∩ ¿ßσ«ñ¡«ú« Σá⌐½á ß«ó»áñáÑΓ ß ¿¼Ñ¡Ñ¼ ¼«ñπ½∩ ¿ ¿¼ÑÑΓ αáßΦ¿αÑ¡¿Ñ .ÉÇS. àß½¿ óδ σ«Γ¿ΓÑ ¿ß»«½∞º«óáΓ∞ ñαπú¿Ñ αáßΦ¿αÑ- ¡¿∩, ¿σ ¡πª¡« ºáñáΓ∞ ó ñ¿αÑ¬Γ¿óÑ {$U ¿¼∩-Σá⌐½á}. ìá»α¿¼Ñα, óδαáªÑ¡¿Ñ: uses {$U MEMORY.LIB} Memory; »α¿ó«ñ¿Γ ¬ Γ«¼π, ¬«¼»¿½∩Γ«α íπñÑΓ ¿ß¬áΓ∞ ¿ßσ«ñ¡δ⌐ ΓÑ¬ßΓ ¼«- ñπ½∩ îÑ¼«ry ó Σá⌐½Ñ îàîÄRY.LIé. æ¿¡Γá¬ß¿ß ¼«ñπ½Ñ⌐ î«ñπ½¿ ∩ó½∩εΓß∩ ó Æπαí«-Åáß¬á½Ñ «ß¡«ó«⌐ ¼«ñπ½∞¡«ú« »α«úαá¼¼¿α«óá¡¿∩. Ä¡¿ ¿ß»«½∞ºπεΓß∩ ñ½∩ ß«ºñá¡¿∩ í¿í½¿«ΓÑ¬, ¬«Γ«αδÑ ¼«úπΓ ó¬½ετáΓ∞ß∩ ó αáº½¿τ¡δÑ »α«úαá¼¼δ (»α¿ φΓ«¼ ßΓá¡«ó¿Γß∩ ¡Ñ«í∩ºáΓÑ½∞¡δ¼ ¿¼ÑΓ∞ ó ¡á½¿τ¿¿ ¿ßσ«ñ¡δ⌐ ¬«ñ), á í«½∞Φ¿Ñ »α«úαá¼¼δ ¼«úπΓ »«ñαáºñÑ½∩Γ∞ß∩ ¡á ½«ú¿τÑß¬¿ ßó∩ºá¡- ¡δÑ ¼«ñπ½¿. -------------------- î«ñπ½∞ --->! ºáú«½«ó«¬ ¼«ñπ½∩ !------------ -------------------- ! ---------------------------------------- ! ! --- ----------- ---------- ---------- --->( ; )->! ¿¡ΓÑα- ! ! ßÑ¬µ¿∩ ! ! ßÑ¬µ¿∩ ! --- --- ! ΣÑ⌐ß¡á∩ !->! αÑá½¿- !->! ¿¡¿µ¿- !->( . )--> ! ßÑ¬µ¿∩ ! ! ºáµ¿¿ ! ! á½¿ºá- ! --- ----------- ---------- ! µ¿¿ ! ---------- çáú«½«ó«¬ ¼«ñπ½∩ é ºáú«½«ó¬Ñ ¼«ñπ½∩ «»αÑñÑ½∩ÑΓß∩ ¿¼∩ ¼«ñπ½∩. ------ ------------------------ çáú«½«ó«¬ --->( unit )-->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼«ñπ½∩ !-----> ¼«ñπ½∩ ------ ------------------------ ê¼∩ ¼«ñπ½∩ ¿ß»«½∞ºπÑΓß∩ »α¿ ßßδ½¬Ñ ¡á ¼«ñπ½∞ ó »αÑñ½«- ªÑ¡¿¿ ¿ß»«½∞º«óá¡¿∩. ¥Γ« ¿¼∩ ñ«½ª¡« íδΓ∞ π¡¿¬á½∞¡δ¼, Γá¬ ¬á¬ ñóá ¼«ñπ½∩ ß «ñ¡¿¼ ¿¼Ñ¡Ñ¼ ¡Ñ ¼«úπΓ «ñ¡«óαÑ¼Ñ¡¡« ¿ß»«½∞º«- óáΓ∞ß∩. ê¡ΓÑαΣÑ⌐ß¡á∩ ßÑ¬µ¿∩ é ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ «»¿ßδóáεΓß∩ ΓÑ ¬«¡ßΓá¡Γδ, Γ¿»δ, »ÑαÑ¼Ñ¡¡δÑ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ ∩ó½∩εΓß∩ ú½«íá½∞¡δ- ¼¿, Γ« ÑßΓ∞ ñ«ßΓπ»¡δ¼¿ «ß¡«ó¡«⌐ »α«úαá¼¼Ñ (»α«úαá¼¼Ñ ¿½¿ ¼«- ñπ½ε, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓ ñá¡¡δ⌐ ¼«ñπ½∞). Äß¡«ó¡á∩ »α«úαá¼¼á ¿¼ÑÑΓ ñ«ßΓπ» ¬ φΓ¿¼ φ½Ñ¼Ñ¡Γá¼, ¬á¬ Ñß½¿ íδ «¡¿ íδ½¿ «»¿ßá¡δ ó ¼«ñπ½Ñ, ∩ó½∩εΘ¿¼ß∩ ó½«ªÑ¡¡δ¼ »« «Γ¡«ΦÑ¡¿ε ¬ ñá¡¡«⌐ »α«ú- αá¼¼Ñ. ¿¡ΓÑαΣÑ⌐ß¡á∩ ßÑ¬µ¿∩ ----------- ( interface )-----------------------------------------------> ----------- ! ^ ^ ! ^ ! ! ! ! ! -------------------------------- ! ! ! ! ! !-->! ßÑ¬µ¿∩ «»¿ßá¡¿∩ ¬«¡ßΓá¡Γ !-! ! ! ! ! ! -------------------------------- ! ! ! ! ! ! -------------------------------- ! ! -------------- ! ! !-->! ßÑ¬µ¿∩ «»¿ßá¡¿∩ Γ¿»«ó !-! ! ! ! ! ! -------------------------------- ! ! ! ! ! ! -------------------------------- ! ! ! ! ! !-->! ßÑ¬µ¿∩ «»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡δσ !-! ! ! ! ! ! -------------------------------- ! ! ! ----------- ! ! ! -------------------------------- ! ! ! ! »αÑñ½«- ! ! ! --->! ßÑ¬µ¿∩ ºáú«½«ó¬«ó »α«µÑñπα !-- ! ! ! ªÑ¡¿Ñ ! ! ! ! ¿ Σπ¡¬µ¿⌐ ! ! ->! ¿ß»«½∞- !--- ! -------------------------------- ! ! º«óá¡¿∩ ! ! ! ----------- ------------------------------------------ ------------- æÑ¬µ¿∩ ºáú«½«ó¬«ó --->! ºáú«½«ó«¬ ! --- »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ! ! »α«µÑñπαδ !-->( ; )---------------> ------------- ------------- ^ --- ! ^ ! ! ! ! ! ----------------------- ! ! ! --->! ºáú«½«ó«¬ Σπ¡¬µ¿¿ !--- ! ! ----------------------- ! ! ------------------------------- ! ! ------------------- --- ! ---->! ñ¿αÑ¬Γ¿óá !-->( ; )--- ! inline ! --- ------------------- é Γ«¼ ß½πτáÑ, Ñß½¿ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ∩ó½∩ÑΓß∩ »α«- µÑñπα«⌐ ¿½¿ Σπ¡¬µ¿Ñ⌐ Γ¿»á inline, ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ ß«- ñÑαª¿Γß∩ Γ«½∞¬« ß»¿ß«¬ ºáú«½«ó¬«ó »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐. î«- ñπ½∞ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ß½ÑñπÑΓ ñá½∞ΦÑ ó ßÑ¬µ¿¿ αÑá½¿ºá- µ¿¿. çá¼ÑΓ¿¼, τΓ« ºáú«½«ó«¬ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¼«ªÑΓ ñπí- ½¿α«óáΓ∞ß∩ ¿ íδΓ∞ ºñÑß∞ Γá¬¿¼ ªÑ, ¬á¬ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿. éá¼ ¡Ñ ¡πª¡« ºáñáóáΓ∞ ºñÑß∞ ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó, ¡« Ñß½¿ óδ φΓ« ßñÑ½á½¿ ¿ Ñß½¿ «»¿ßá¡¿Ñ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ ¿ ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ ¡Ñ ß«ó»áñáεΓ, Γ« ¬«¼»¿½∩Γ«α ó« óαÑ¼∩ ¬«¼- »¿½∩µ¿¿ óδñáßΓ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. æÑ¬µ¿∩ αÑá½¿ºáµ¿¿ é ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ «»αÑñÑ½∩εΓß∩ ¼«ñπ½¿ óßÑσ ú½«íá½∞¡δσ »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐. é ¡Ñ⌐ Γá¬ªÑ «»¿ßδóáεΓß∩ ¬«¡ßΓá¡Γδ, »Ñ- αÑ¼Ñ¡¡δÑ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ∩ó½∩εΘ¿Ñß∩ ½«¬á½∞¡δ¼¿, Γ« ÑßΓ∞ ¡Ññ«ßΓπ»¡δ¼¿ «ß¡«ó¡«⌐ »α«úαá¼¼Ñ. æÑ¬µ¿∩ αÑá½¿ºáµ¿¿ ---------------- ( implementation )----------------------------------------> ---------------- ! ^ ! ! ------------------------- ^ ! ! ! ! !->! αáºñÑ½ «»¿ßá¡¿∩ ¼ÑΓ«¬ !->! ! ----------------- ! ! ! ------------------------- ! ! ! ! ! ! ------------------------- ! ! ! ! ! !->! αáºñÑ½ «»¿ßá¡¿∩ ! ! ! ! ! ! ! ! ¬«¡ßΓá¡Γ !->! ! ! --------------- ! ! ! ------------------------- ! ! ! ! »αÑñ½«ªÑ¡¿Ñ ! ! ! ! ------------------------- ! ! ->! uses !-- ! !->! αáºñÑ½ «»¿ßá¡¿∩ Γ¿»«ó !->! ! --------------- ! ! ------------------------- ! ! ! ! ------------------------- ! ! ! !->! αáºñÑ½ «»¿ßá¡¿∩ ! ! ! ! ! ! »ÑαÑ¼Ñ¡¡δσ !->! ! ! ! ------------------------- ! ! ! ! ------------------------- ! ! ! -->! αáºñÑ½ «»¿ßá¡¿∩ ! ! ! ! ! »α«µÑñπα ¿ Σπ¡¬µ¿⌐ !--- ! ! ! ! ! ! ------------------------- ! ! ! ----------------------------------- ---------------------- ÉáºñÑ½ «»¿ßá¡¿∩ -------->! «»¿ßá¡¿Ñ »α«µÑñπαδ !--------> »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ! ---------------------- ^ ! ---------------------- ! ----->! «»¿ßá¡¿Ñ Σπ¡¬µ¿¿ !------ ---------------------- Å« ¼Ñσá¡¿º¼π ñÑ⌐ßΓó¿∩ «»¿ßá¡¿∩ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ó ¿¡- ΓÑαΣÑ⌐ß¡á∩ ßÑ¬µ¿∩ á¡á½«ú¿τ¡á «»ÑαÑªáεΘÑ¼π «»¿ßá¡¿ε, σ«Γ∩ ñ¿- αÑ¬Γ¿óá forward ¡Ñ π¬áºδóáÑΓß∩. Æá¬¿¼ «íαáº«¼, φΓ¿ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«úπΓ íδΓ∞ «»αÑñÑ½Ñ¡δ (¿ ¬ ¡¿¼ ¼«ª¡« «íαáΘáΓ∞ß∩ ó ½εí«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿) ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿. æÑ¬µ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿ æÑ¬µ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿ ∩ó½∩ÑΓß∩ »«ß½Ññ¡Ñ⌐ ßÑ¬µ¿Ñ⌐ ¼«ñπ½∩. Ä¡á ¼«ªÑΓ ß«ßΓ«∩Γ∞ ½¿í« ¿º ºáαÑºÑαó¿α«óá¡¡«ú« ß½«óá end (ó φΓ«¼ ß½πτáÑ ¼«ñπ½∞ ¡Ñ ß«ñÑαª¿Γ ¬«ñá ¿¡¿µ¿á½¿ºáµ¿¿), ¿½¿ ¿º «»ÑαáΓ«α¡«⌐ τáßΓ¿, ¬«Γ«αá∩ ñ«½ª¡á óδ»«½¡∩Γ∞ß∩ ñ½∩ ¿¡¿µ¿á½¿- ºáµ¿¿ ¼«ñπ½∩. ----- æÑ¬µ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿ --------------->( Ñnd )-------------> ! ----- ^ ! ---------------------------- ! -->! «»ÑαáΓ«α¡á∩ τáßΓ∞ !-- ---------------------------- æÑ¬µ¿¿ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½Ñ⌐, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ »α«úαá¼¼«⌐, óδ»«½¡∩εΓß∩ ó Γ«¼ ªÑ »«α∩ñ¬Ñ, ó ¬á¬«¼ ¼«ñπ½¿ π¬áºá¡δ ó »αÑñ½«ªÑ¡¿¿ ¿ß»«½∞º«óá¡¿∩. è«ßóÑ¡¡«Ñ ¿ß»«½∞º«óá¡¿Ñ ¼«ñπ½Ñ⌐ é »αÑñ½«ªÑ¡¿¿ ¿ß»«½∞º«óá¡¿∩ ó «ß¡«ó¡«⌐ »α«úαá¼¼Ñ ñ«½ª¡δ ß«ñÑαªáΓ∞ß∩ ¿¼Ñ¡á óßÑσ ¼«ñπ½Ñ⌐, ¡Ñ»«ßαÑñßΓóÑ¡¡« ¿½¿ ¬«ßóÑ¡¡« ¿ß»«½∞ºπÑ¼δσ «ß¡«ó¡«⌐ »α«úαá¼¼«⌐. Éáßß¼«Γα¿¼ ß½ÑñπεΘ¿⌐ »α¿- ¼Ñα: Program Host; unit Unit; unit Unit2; uses Unit1, Unit2 interface interface const a = b; const c = 1; uses Unit1; begin implementation const b = c; end. const d = 2; implementation; end. end; Unit2 ¿ß»«½∞ºπÑΓ Unit1, »«φΓ«¼π, τΓ«íδ «ß¡«ó¡á∩ »α«ú- αá¼¼á ¼«ú½á ¿ß»«½∞º«óáΓ∞ Unit2, ó ÑÑ »αÑñ½«ªÑ¡¿¿ ¿ß»«½∞º«óá- ¡¿∩ ñ«½ª¡« ß¡áτá½á ß«ñÑαªáΓß∩ ¿¼∩ Unit1. ò«Γ∩ ó «ß¡«ó¡«⌐ »α«úαá¼¼Ñ ¡ÑΓ »α∩¼δσ ßßδ½«¬ ¡á ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ¼«ñπ½∩ Unit1, ó ¡Ñ⌐, ΓÑ¼ ¡Ñ ¼Ñ¡ÑÑ, ñ«½ª¡« «»αÑñÑ½∩Γ∞ß∩ ¿¼∩ Unit1. è«úñá ó ¿¡ΓÑαΣÑ⌐ß¡πε τáßΓ∞ ¼«ñπ½∩ ó¡«ß∩Γß∩ ¿º¼Ñ¡Ñ¡¿∩, ñαπú¿Ñ ¼«ñπ½¿, ¿ß»«½∞ºπεΘ¿Ñ φΓ«Γ ¼«ñπ½∞, ñ«½ª¡δ íδΓ∞ ºá¡«ó« ß¬«¼»¿½¿α«óá¡δ. Äñ¡á¬«, Ñß½¿ ¿º¼Ñ¡Ñ¡¿∩ ¬«ß¡π½¿ß∞ Γ«½∞¬« ßÑ¬- µ¿¿ αÑá½¿ºáµ¿¿ ¿½¿ ßÑ¬µ¿¿ ¿¡¿µ¿á½¿ºáµ¿¿, Γ« ñαπú¿Ñ ¼«ñπ½¿, ó ¬«Γ«αδσ ¿ß»«½∞ºπÑΓß∩ φΓ«Γ ¼«ñπ½∞, »ÑαÑ¬«¼»¿½¿α«óáΓ∞ ¡Ñ ¡πª- ¡«. é »αÑñδñπΘÑ¼ »α¿¼ÑαÑ, Ñß½¿ ¿¡ΓÑαΣÑ⌐ß¡á∩ τáßΓ∞ ¼«ñπ½∩ Unit1 ¿º¼Ñ¡¿½áß∞ (¡á»α¿¼Ñα, ß = 2), Γ« ¼«ñπ½∞ Unit2 ¡πª¡« »ÑαÑ¬«¼»¿½¿α«óáΓ∞. êº¼Ñ¡Ñ¡¿Ñ ªÑ ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ (¡á»α¿¼Ñα, d = 1) ¡Ñ ΓαÑíπÑΓ »ÑαÑ¬«¼»¿½∩µ¿¿ Unit2. Åα¿ ¬«¼»¿½∩µ¿¿ ¼«ñπ½∩ ó Æπαí«-Åáß¬á½Ñ ¡á «ß¡«óÑ ¬«¡Γα«½∞¡«⌐ ßπ¼¼δ ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ óδτ¿ß½∩ÑΓß∩ ¡«¼Ñα óÑα- ß¿¿ ¼«ñπ½∩. é »αÑñδñπΘÑ¼ »α¿¼ÑαÑ »α¿ ¬«¼»¿½∩µ¿¿ ¼«ñπ½∩ Unit2 ó ß¬«¼»¿½¿α«óá¡¡«⌐ óÑαß¿¿ ¼«ñπ½∩ Unit2 ß«σαá¡∩ÑΓß∩ ¡«¼Ñα óÑαß¿¿ ¼«ñπ½∩ Unit1. Åα¿ ¬«¼»¿½∩µ¿¿ «ß¡«ó¡«⌐ »α«úαá¼¼δ ¡«¼Ñα óÑαß¿¿ ¼«ñπ½∩ Unit1 ßαáó¡¿óáÑΓß∩ ß ¡«¼Ñα«¼ óÑαß¿¿, ß«σαá¡Ñ¡- ¡δ¼ ó ¼«ñπ½Ñ Unit2. àß½¿ ¡«¼Ñαá óÑαß¿⌐ ¡Ñ ß«ó»áñáεΓ, τΓ« ßó¿ñÑΓÑ½∞ßΓóπÑΓ «í ¿º¼Ñ¡Ñ¡¿¿ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ τáßΓ¿ ¼«ñπ½∩ Unit1 ß« óαÑ¼Ñ¡¿ »«ß½Ññ¡Ñ⌐ ¬«¼»¿½∩µ¿¿ ¼«ñπ½∩ Unit2, ¬«¼»¿½∩- Γ«α, ó ºáó¿ß¿¼«ßΓ¿ «Γ αÑª¿¼á ¬«¼»¿½∩µ¿¿, óδñáÑΓ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ¿½¿ »ÑαÑ¬«¼»¿½¿απÑΓ ¼«ñπ½∞ Unit2. ÅÑαÑ¬αÑßΓ¡δÑ ßßδ½¬¿ ¡á ¼«ñπ½¿ Éáº¼ÑΘÑ¡¿Ñ ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ »αÑñ½«ªÑ¡¿∩ 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; interface 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 ßßδ½áεΓß∩ ñαπú ¡á ñαπúá Γ«½∞¬« ó ß««ΓóÑΓßΓ- óπεΘ¿σ ßÑ¬µ¿∩σ αÑá½¿ºáµ¿¿.