For Beginners & Professional Hackers

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

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

Wrap

Text File | 1991-02-05 | 42.9 KB | 1,104 lines

â ï Ç é Ç 2. ÅÉÄâÉÇîîêÉÄéÇìêà ìÇ TURBO PASCAL. ƒºδ¬ Åáß¬á½∞ íδ½ αáºαáí«Γá¡ é¿αΓ«¼ ó ¡áτá½Ñ 70-σ ú«ñ«ó, ¬á¬ ∩ºδ¬ «íπτÑ¡¿∩ »α«úαá¼¼¿α«óá¡¿ε. àß½¿ π éáß ÑßΓ∞ «»δΓ »α«úαá¼¼¿α«óá¡¿∩, Γ« éá¼ íπñÑΓ ¡Ñ Γαπñ¡« Ñú« «ßó«¿Γ∞. é φΓ«⌐ ú½áóÑ «»¿ßδóáεΓß∩ «ß¡«ó¡δÑ φ½Ñ¼Ñ¡Γδ ∩ºδ¬á ¿ ¿σ ¿ß»«½∞º«óá¡¿Ñ. àß½¿ éδ Γ«½∞¬« ¡áτ¿¡áÑΓÑ »α«úαá¼¼¿α«óáΓ∞ ¡á Åáß¬á½Ñ, Γ« ½πτΦÑ ¿ºπτ¿Γ∞ ¬á¬«⌐-¡¿íπñ∞ πτÑí¡¿¬ »« Åáß¬á½ε. ÅαÑªñÑ τÑ¼ τ¿ΓáΓ∞ φΓπ ú½áóπ, ¿¼ÑÑΓ ß¼δß½ «íαáΓ¿Γ∞ß∩ ¬ ú½áóÑ 7 "æ»αáó«τ¡¿¬ »« ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñÑ αáºαáí«Γ¬¿" ¿ ¬ ú½áóÑ 8 "ÉÑñá¬Γ«α «Γ A ñ« Z", ¿ºπτ¿Γ∞ αáí«Γπ αáº½¿τ¡δσ ¼Ñ¡ε ¿ ΓÑ¬ßΓ«ó«ú« αÑñá¬Γ«αá ß¿ßΓÑ¼δ Turbo Pascal. àß½¿ éδ ÑΘÑ ¡Ñ ¿¡ßΓá½½¿α«óá½¿ Turbo Pascal, ¬á¬ «»¿ßá¡« ó« óóÑñÑ¡¿¿, ßñÑ½á⌐ΓÑ φΓ« ßÑ⌐τáß. ¥½Ñ¼Ñ¡Γδ »α«úαá¼¼¿α«óá¡¿∩. ü«½∞Φ¿¡ßΓó« »α«úαá¼¼ ß«ºñáεΓß∩ ñ½∩ αÑΦÑ¡¿∩ ¬á¬«⌐-¡¿íπñ∞ ºáñáτ¿. ÉÑΦÑ¡¿Ñ ºáñáτ¿ ñ«ßΓ¿úáÑΓß∩ «íαáí«Γ¬«⌐ ¿¡Σ«α¼áµ¿¿ ¿½¿ ñá¡¡δσ. Å«φΓ«¼π, ¬á¬ »α«úαá¼¼¿ßΓπ, éá¼ ¡Ñ«íσ«ñ¿¼« º¡áΓ∞, ¬á¬: - ºáóÑßΓ¿ ¿¡Σ«α¼áµ¿¿ ó »α«úαá¼¼π - óó«ñ; - ß«σαá¡∩Γ∞ ¿¡Σ«α¼áµ¿ε - ñá¡¡δÑ; - ºáñáΓ∞ »αáó¿½∞¡δÑ ¬«¼á¡ñδ «íαáí«Γ¬¿ ñá¡¡δσ - «»Ñαáµ¿¿; - »«½πτ¿Γ∞ ñá¡¡δÑ ¿º »α«úαá¼¼δ - óδó«ñ. éδ ¼«ªÑΓÑ ¡á»¿ßáΓ∞ ¿ π»«α∩ñ«τ¿Γ∞ ßó«¿ ¬«¼á¡ñδ Γá¬, τΓ«íδ: - ¡Ñ¬«Γ«αδÑ ¿º ¡¿σ óδ»«½¡∩½¿ß∞ »α¿ óδ»«½¡Ñ¡¿¿ ¡Ñ¬«Γ«α«ú« πß½«ó¿∩ ¿½¿ α∩ñá πß½«ó¿⌐ - πß½«ó¡«Ñ óδ»«½¡Ñ¡¿Ñ; - ñαπú¿Ñ óδ»«½¡∩½¿ß∞ ¡Ñ¬«Γ«α«Ñ τ¿ß½« αáº - µ¿¬½δ; - ñαπú¿Ñ ß«í¿αá½¿ß∞ ó «ΓñÑ½∞¡δÑ τáßΓ¿, ¬«Γ«αδÑ ¼«úπΓ íδΓ∞ óδ»«½¡Ñ¡δ ó ¡Ñß¬«½∞¬¿σ ¼ÑßΓáσ »α«úαá¼¼δ - »«ñ»α«úαá¼¼δ. êΓá¬, »ÑαÑτ¿ß½Ñ¡δ ßÑ¼∞ «ß¡«ó¡δσ »«¡∩Γ¿⌐ »α«úαá¼¼¿α«óá¡¿∩: óó«ñ, ñá¡¡δÑ, «»Ñαáµ¿¿, óδó«ñ, πß½«ó¡«Ñ óδ»«½¡Ñ¡¿Ñ, µ¿¬½δ ¿ »«ñ»α«úαá¼¼δ. ¥Γ«Γ ß»¿ß«¬ ¡Ñ»«½¡δ⌐, ¡« «¡ ß«ñÑαª¿Γ «ß¡«ó¡δÑ »«¡∩Γ¿∩, »α¿ßπΘ¿Ñ óßÑ¼ »α«úαá¼¼á¼. î¡«ú¿Ñ ∩ºδ¬¿ »α«úαá¼¼¿α«óá¡¿∩, ó¬½ετá∩ Åáß¬á½∞, ¿¼ÑεΓ ßó«¿ «ß«íÑ¡¡«ßΓ¿. ì« ¬«úñá éδ σ«Γ¿ΓÑ íδßΓα« ¿ºπτ¿Γ∞ ¡«óδ⌐ ∩ºδ¬, éδ ¼«ªÑΓÑ »«ß¼«ΓαÑΓ∞ ¬á¬ «¡ αÑá½¿ºπÑΓ φΓ¿ ßÑ¼∞ φ½Ñ¼Ñ¡Γ«ó ¿ ¡áτáΓ∞ αáí«ΓáΓ∞. èαáΓ¬«Ñ «»¿ßá¡¿Ñ ¬áªñ«ú« φ½Ñ¼Ñ¡Γá: éó«ñ. ¥Γ« ¿¡Σ«α¼áµ¿∩, »«ßΓπ»áεΘá∩ ß ¬½áó¿áΓπαδ, ñ¿ß¬á ¿½¿ »«αΓá óó«ñá/óδó«ñá. äá¡¡δÑ. ¥Γ« ¬«¡ßΓá¡Γδ, »ÑαÑ¼Ñ¡¡δÑ ¿ ßΓαπ¬Γπαδ, ß«ñÑαªáΘ¿Ñ τ¿ß½á (µÑ½δÑ ¿ óÑΘÑßΓóÑ¡¡δÑ), ΓÑ¬ßΓ (ß¿¼ó«½δ ¿ ßΓα«¬¿) ¿½¿ áñαÑßá (»ÑαÑ¼Ñ¡¡δσ ¿ ßΓαπ¬Γπα). Ä»Ñαáµ¿¿. ÄßπΘÑßΓó½∩εΓ »α¿ßóá¿óá¡¿Ñ º¡áτÑ¡¿⌐, óδτ¿ß½Ñ¡¿Ñ óδαáªÑ¡¿⌐ (ß½«ªÑ¡¿Ñ, ñÑ½Ñ¡¿Ñ ¿ Γ.ñ.), ßαáó¡Ñ¡¿Ñ º¡áτÑ¡¿⌐ (αáó¡«, ¡Ñ αáó¡«, í«½∞ΦÑ ¿ Γ.ñ.). éδó«ñ. ¥Γ« «º¡áτáÑΓ óδó«ñ ¿ ºá»¿ß∞ ¿¡Σ«α¼áµ¿¿ ¡á φ¬αá¡, ¡á ñ¿ß¬ ¿½¿ ó »«αΓ óó«ñá/óδó«ñá. ôß½«ó¡«Ñ óδ»«½¡Ñ¡¿Ñ. ¥Γ« óδ»«½¡Ñ¡¿Ñ «ñ¡«⌐ ¿½¿ ¡áí«αá ¬«¼á¡ñ, Ñß½¿ óδ»«½¡∩ÑΓß∩ (¿ßΓ¿¡¡«) ¡Ñ¬«Γ«α«Ñ πß½«ó¿Ñ (¿, Ñß½¿ πß½«ó¿Ñ ¡Ñ óδ»«½¡∩ÑΓß∩, Γ« φΓ¿ ¬«¼á¡ñδ »α«»πß¬áεΓß∩ ¿½¿ óδ»«½¡∩ÑΓß∩ ñαπú«⌐ ¡áí«α ¬«¼á¡ñ) ¿½¿ Ñß½¿ φ½Ñ¼Ñ¡Γ ñá¡¡δσ ¿¼ÑÑΓ π¬áºá¡¡«Ñ º¡áτÑ¡¿Ñ ¿½¿ ñ¿á»áº«¡ º¡áτÑ¡¿⌐. û¿¬½δ. é µ¿¬½áσ ¡áí«α ¬«¼á¡ñ óδ»«½¡∩ÑΓß∩ «»αÑñÑ½Ñ¡¡«Ñ τ¿ß½« αáº, »«¬á ¿ßΓ¿¡¡« ¡Ñ¬«Γ«α«Ñ πß½«ó¿Ñ, ¿½¿ »«¬á πß½«ó¿Ñ ¡Ñ ßΓá¡ÑΓ ¿ßΓ¿¡¡δ¼. Å«ñ»α«úαá¼¼δ. ìáí«α ¿¡ßΓαπ¬µ¿⌐, «íΩÑñ¿¡Ñ¡¡δσ ¿¼Ñ¡Ñ¼, ¬«Γ«αδÑ óδ»«½¡∩εΓß∩ ó ½εí«¼ ¼ÑßΓÑ »α«úαá¼¼δ, úñÑ ÑßΓ∞ óδº«ó »« ¿¼Ñ¡¿. Éáßß¼«Γα¿¼, ¬á¬ ¿ß»«½∞º«óáΓ∞ φΓ¿ φ½Ñ¼Ñ¡Γδ ó Turbo Pascal. Æ¿»δ ñá¡δσ. é »α«µÑßßÑ »α«úαá¼¼¿α«óá¡¿∩ »α«úαá¼¼¿ßΓ ¿¼ÑÑΓ ñÑ½« ß ¿¡Σ«α¼áµ¿Ñ⌐, »αÑñßΓáó½∩εΘÑ⌐ ¿º ßÑí∩ »∩Γ∞ «ß¡«ó¡δσ Γ¿»«ó: µÑ½δÑ τ¿ß½á, óÑΘÑßΓóÑ¡¡δÑ τ¿ß½á, ß¿¼ó«½δ ¿ ßΓα«¬¿ ß¿¼ó«½«ó, íπ½Ñóß¬¿Ñ ñá¡¡δÑ ¿ π¬áºáΓÑ½¿. ûÑ½δÑ τ¿ß½á - φΓ« τ¿ß½á, ß »«¼«Θ∞ε ¬«Γ«αδσ éδ πτ¿½¿ß∞ ßτ¿ΓáΓ∞ (1, 5, -21 ¿ 752, ¡á»α¿¼Ñα). éÑΘÑßΓóÑ¡¡δÑ τ¿ß½á ¿¼ÑεΓ ñα«í¡δÑ τáßΓ¿ (3.14159) ¿ φ¬ß»«¡Ñ¡Γδ (2.579x10**24). Ä¡¿ Γá¬ªÑ ¿ºóÑßΓ¡δ ¬á¬ τ¿ß½á ß »½áóáεΘÑ⌐ Γ«τ¬«⌐. æ¿¼ó«½δ - φΓ« ½εíδÑ íπ¬óδ á½Σáó¿Γá, ß¿¼ó«½δ ¿ µ¿Σαδ 0-9. Ä¡¿ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ «ΓñÑ½∞¡« (á, z, !, 3) ¿½¿ «íΩÑñ¿¡∩Γ∞ß∩ ó ß¿¼ó«½∞¡δÑ ßΓα«¬¿ ('¥Γ« Γ«½∞¬« »α«óÑα¬á'). üπ½Ñóß¬¿Ñ óδαáªÑ¡¿∩ ¿¼ÑεΓ Γ«½∞¬« ñóá º¡áτÑ¡¿∩: TRUE ¿½¿ FALSE (¿ßΓ¿¡á ¿½¿ ½«ª∞). Ä¡¿ ¿ß»«½∞ºπεΓß∩ ó πß½«ó¡δσ óδαáªÑ¡¿∩σ. ô¬áºáΓÑ½¿ - φΓ« áñαÑßá ∩τÑÑ¬ »á¼∩Γ¿, ß«ñÑαªáΘ¿σ ¿¡Σ«α¼áµ¿ε. ûÑ½δÑ τ¿ß½á. é ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ µÑ½«τ¿ß½Ñ¡¡δ⌐ Γ¿» «»αÑñÑ½∩ÑΓß∩ ó »αÑñÑ½áσ «Γ -MaxInt ñ« MaxInt, úñÑ MaxInt - ¡áí«½∞ΦÑÑ ó«º¼«ª¡«Ñ µÑ½«Ñ º¡áτÑ¡¿Ñ, ñ«»πßΓ¿¼«Ñ ñ½∩ »α«µÑßß«αá. é Turbo Pascal »«ññÑαª¿óáÑΓß∩ µÑ½«τ¿ß½Ñ¡¡δ⌐ Γ¿» MaxInt = 32,767, ñ«»πß¬á∩ º¡áτÑ¡¿Ñ -32,768. ÅÑαÑ¼Ñ¡¡á∩ µÑ½«τ¿ß½Ñ¡¡«ú« Γ¿»á ºá¡¿¼áÑΓ 2 íá⌐Γá. é Turbo Pascal, ¬α«¼Ñ Γ«ú«, »«ññÑαª¿óáÑΓß∩ τÑΓδαÑ ñαπú¿σ µÑ½«τ¿ß½Ñ¡¡δσ Γ¿»«ó ñá¡¡δσ, ¬áªñδ⌐ ¿º ¬«Γ«αδσ ¿¼ÑÑΓ ßó«⌐ ñ¿á»áº«¡ º¡áτÑ¡¿⌐. Æáí½¿µá 2.1. ûÑ½«τ¿ß½Ñ¡¡δÑ Γ¿»δ ñá¡¡δσ. ------------------------------------------------------------------- Æ¿» ä¿á»áº«¡ Éáº¼Ñα ó íá⌐Γáσ ------------------------------------------------------------------- Byte 0..255 1 (µÑ½«Ñ ñ½¿¡«⌐ ó íá⌐Γ) Shortint -128..127 1 (¬«α«Γ¬«Ñ µÑ½«Ñ) Integer -32768..32767 2 (µÑ½«Ñ) Word 0..65535 2 (ñ½¿¡«⌐ ó ß½«ó«) Longint -2147483648..2147483647 4 (ñ½¿¡¡«Ñ µÑ½«Ñ) ------------------------------------------------------------------- çá¬½ετÑ¡¿Ñ: Turbo Pascal »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ ΦÑßΓ¡áñµáΓ¿α¿τ¡δÑ µÑ½δÑ º¡áτÑ¡¿∩ («ß¡«óá¡¿Ñ 16). Åα¿ «»¿ßá¡¿¿ ΦÑßΓ¡áñµáΓ¿α¿τ¡«⌐ ¬«¡ßΓá¡Γδ »ÑαÑñ ¡Ñ⌐ π¬áºδóáÑΓß∩ º¡á¬ ñ«½½áαá $, ¡á»α¿¼Ñα $27=39. éÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ñá¡¡δσ. é ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ Γ¿» Real »αÑñßΓáó½∩ÑΓ º¡áτÑ¡¿Ñ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐, ß«ñÑαªáΘÑÑ ¼á¡Γ¿ßßπ ¿ φ¬ß»«¡Ñ¡Γπ - ßΓÑ»Ñ¡∞ τ¿ß½á 10. è«½¿τÑßΓó« º¡áτáΘ¿σ µ¿Σα ó ¼á¡Γ¿ßßÑ ¿ ñ¿á»áº«¡ º¡áτÑ¡¿⌐ φ¬ß»«¡Ñ¡Γδ ºáó¿ß∩Γ «Γ ¬«¼»∞εΓÑαá. é Turbo Pascal ñá¡¡δÑ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ¿¼ÑεΓ αáº¼Ñα ó 6 íá⌐Γ, ß 11 º¡áτáΘ¿¼¿ µ¿Σαá¼¿ ¼á¡Γ¿ßßδ ¿ φ¬ß»«¡Ñ¡Γδ «Γ 10**-38 ñ« 10**38. èα«¼Ñ Γ«ú« Turbo Pascal »«ññÑαª¿óáÑΓ ßΓá¡ñáαΓ IEEE 754 ñ½∩ ñó«¿τ¡«⌐ áα¿Σ¼ÑΓ¿¬¿ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐. é φΓ«¼ ß½πτáÑ ñ«íáó½∩εΓß∩ Γ¿»δ ñá¡¡δσ ß Single, Double, Extended ¿ Comp: Single - αáº¼Ñα 4 íá⌐Γá, ñ«»πß¬áÑΓß∩ 7 º¡áτáΘ¿σ µ¿Σα ¿ ñ¿á»áº«¡ φ¬ß»«¡Ñ¡Γδ «Γ 10**-45 ñ« 10**38; Double - αáº¼Ñα 8 íá⌐Γ, ñ«»πß¬áÑΓß∩ 15 º¡áτáΘ¿σ µ¿Σα ¿ ñ¿á»áº«¡ φ¬ß»«¡Ñ¡Γδ «Γ 10**-324 ñ« 10**308; Extended - αáº¼Ñα 10 íá⌐Γ, ñ«»πß¬áÑΓß∩ 19 º¡áτáΘ¿σ µ¿Σα ¿ ñ¿á»áº«¡ φ¬ß»«¡Ñ¡Γδ «Γ 10**-4951 ñ« 10**4931. àß½¿ π óáß ÑßΓ∞ »α«µÑßß«α 8087, ¿ ó¬½ετÑ¡á αáí«Γá ß τ¿ß½«óδ¼ ß«»α«µÑßß«α«¼ ({$N+}), Turbo Pascal úÑ¡Ñα¿απÑΓ ¿¡ßΓαπ¬µ¿¿ 8087 ñ½∩ »«ññÑαª¬¿ φΓ¿σ Γ¿»«ó ¿ óδ»«½¡Ñ¡¿∩ óßÑσ «»Ñαáµ¿⌐ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ¡á 8087. àß½¿ π éáß ¡ÑΓ 8087, ¡« éδ σ«Γ¿ΓÑ ¿ß»«½∞º«óáΓ∞ IEEE Γ¿»δ, éδ ¼«ªÑΓÑ π¬áºáΓ∞ Turbo Pascal φ¼π½¿α«óáΓ∞ »α«µÑßß«α 8087, αáºαÑΦá∩ ¿ φ¼π½∩µ¿ε 8087 ¿ «íαáí«Γ¬π ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ (ñ¿αÑ¬Γ¿óδ {$E+,N+}). Turbo Pascal »«ñ¬½ετáÑΓ ß»Ñµ¿á½∞¡πε í¿í½¿«ΓÑ¬π, ¬«Γ«αá∩ óδ»«½¡∩ÑΓ «»Ñαáµ¿¿ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐, Γá¬ ªÑ ¬á¬ »α«µÑßß«α 8087. Æáí½¿µá 2.2 éÑΘÑßΓóÑ¡¡δÑ Γ¿»δ ñá¡¡δσ. ------------------------------------------------------------------- Æ¿» ä¿á»áº«¡ ç¡áτÑ¡¿Ñ Éáº¼Ñα ó µ¿Σαδ íá⌐Γáσ ------------------------------------------------------------------- Real 2.9σ10à-39..1.7σ10à38 11-12 6 (óÑΘÑßΓóÑ¡¡δ⌐) Single(ß «ñ¿¡áα- 1.5σ10à-45..3.4σ10à38 7-8 4 ¡«⌐ Γ«τ¡«ßΓ∞ε) Double(ß ñó«⌐¡«⌐ 5.0σ10à-324..1.7σ10à308 15-16 8 Γ«τ¡«ßΓ∞ε) Extended(»«óδΦÑ¡- 1.9σ10à-4951..1.1σ10à4932 19-20 10 ¡«⌐ Γ«τ¡«ßΓ¿) Comp(ß½«ª¡δ⌐) -2à+63+1..2à+63-1 19-20 8 *Comp - Γ«½∞¬« µÑ½δÑ º¡áτÑ¡¿∩ ------------------------------------------------------------------- éδº«óÑ¼ αÑñá¬Γ«α Turbo Pascal ¿ ºáóÑñÑ¼ »α«úαá¼¼π: program DoRatio; var A, B: Integer; Ratio: Real; begin Write('Enter two numbers: '); Readln(A, B); Ratio := A div B; Writeln('The ratio is ', Ratio) end. æ«σαá¡¿¼ ÑÑ ó Σá⌐½Ñ DORATIO.PAS ß »«¼«Θ∞ε Σπ¡¬µ¿¿ «ß¡«ó¡«ú« ¼Ñ¡ε File/Save As. ìáª¼¿ΓÑ ALT-R ñ½∩ ¬«¼»¿½∩µ¿¿ ¿ ºá»πß¬á »α«úαá¼¼δ. éóÑñÑ¼ ñóá º¡áτÑ¡¿∩, 10 ¿ 3, ¿ »«½πτ¿¼ αÑºπ½∞ΓáΓ 3.000000. Äª¿ñá∩ «ΓóÑΓá 3.3333333333, ¼δ »«½πτ¿½¿ αÑºπ½∞ΓáΓ 3. Å«½πτ¿½¿ Γá¬«⌐ αÑºπ½∞ΓáΓ, »«Γ«¼π τΓ« íδ½ ¿ß»«½∞º«óá¡ «»ÑαáΓ«α "div" ñ½∩ ñÑ½Ñ¡¿∩ µÑ½δσ τ¿ßÑ½. êß»αáó¿¼ «»ÑαáΓ«α "div" ¡á Ratio := A / B; ß«σαá¡¿¼ ¬«ñ (F2), «Γ¬«¼»¿½¿απÑ¼ ¿ óδ»«½¡¿¼. ì«óδ⌐ αÑºπ½∞ΓáΓ 3.3333333333, ¬á¬ ¿ «ª¿ñá½¿. Ä»ÑαáΓ«α ñÑ½Ñ¡¿∩ "/" «íÑß»Ñτ¿óáÑΓ í«½ÑÑ Γ«τ¡δ⌐ αÑºπ½∞ΓáΓ. æ¿¼ó«½∞¡δÑ ¿ ßΓα«¬«óδÑ Γ¿»δ ñá¡¡δσ. ìáπτ¿óΦ¿ß∞ ºá»¿ßδóáΓ∞ τ¿ß½«óδÑ ñá¡¡δÑ, óδπτ¿¼ ºá»¿ß∞ ¿ ¿ß»«½∞º«óá¡¿Ñ ß¿¼ó«½∞¡δσ ¿ ßΓα«¬«óδσ ñá¡¡δσ. Åáß¬á½∞ »«ºó«½∩ÑΓ «»αÑñÑ½∩Γ∞ Γ¿» Char, ¿¼ÑεΘ¿⌐ αáº¼Ñα ó «ñ¿¡ íá⌐Γ ¿ ß«ñÑαªáΘ¿⌐ «ñ¿¡ ß¿¼ó«½. æ¿¼ó«½∞¡δÑ ¬«¡ßΓá¡Γδ ß«ñÑαªáΓ «ñ¿¡ ß¿¼ó«½, ºá¬½ετÑ¡¡δ⌐ ó á»«ßΓα«Σδ ('A','e','ú','2'). çá¼ÑΓ¿¼, τΓ« '2' «º¡áτáÑΓ ß¿¼ó«½ 2, á 2 «º¡áτáÑΓ µÑ½«Ñ τ¿ß½« 2 (¿ 2.0 - óÑΘÑßΓóÑ¡¡«Ñ τ¿ß½«) . program DoRatio; var A, B: Integer; Ratio: Real; Ans: Char; begin repeat Write('Enter two numbers: '); Readln(A, B); Ratio := A / B; Writeln('The ratio is ', Ratio); Write('Do it again? (Y/N) '); Readln(Ans); until UpCase(Ans) = 'N'; end. Å«ß½Ñ óδτ¿ß½Ñ¡¿∩ ¬«φΣΣ¿µ¿Ñ¡Γá, óδñáÑΓß∩ ß««íΘÑ¡¿Ñ: Do it again? (Y/N). (Å«óΓ«α¿Γ∞? (äá/ìÑΓ)). Åα«úαá¼¼á ¡áσ«ñ¿Γß∩ ó ß«ßΓ«∩¡¿¿ «ª¿ñá¡¿∩ «ñ¡«ú« ¿º π¬áºá¡¡δσ ß¿¼ó«½«ó ¿ ¡áªáΓ¿∩ ¬½áó¿Φ¿ "Enter". àß½¿ éδ ¡áª¼ÑΓÑ "n" ¿½¿ ºáú½áó¡πε "N", Γ« πß½«ó¿Ñ "until" íπñÑΓ óδ»«½¡Ñ¡« ¿ µ¿¬½ ºá¬«¡τ¿Γß∩. é ß½πτáÑ, Ñß½¿ éδ «ΓóÑΓ¿ΓÑ "Y" ("y"), Γ« óδ»«½¡Ñ¡¿Ñ µ¿¬½á íπñÑΓ »α«ñ«½ªÑ¡«. "N" ¿ "n" ¡Ñ «ñ¡« ¿ Γ«ªÑ, »«Γ«¼π τΓ« «¡¿ ¿¼ÑεΓ αáº½¿τ¡δÑ º¡áτÑ¡¿∩ ó ¬«ñÑ ASCII. èáªñδ⌐ ß¿¼ó«½ ¿¼ÑÑΓ ßó«⌐ ¬«ñ ASCII, »αÑñßΓáó½Ñ¡¡δ⌐ 8-í¿Γ¡δ¼ º¡áτÑ¡¿Ñ¼ (ß¿¼ó«½ ºá¡¿¼áÑΓ 1 íá⌐Γ). Åα¿½«ªÑ¡¿Ñ B ó Éπ¬«ó«ñßΓóÑ »α«úαá¼¼¿ßΓá ß«ñÑαª¿Γ ß»¿ß«¬ ¬«ñ«ó ASCII ñ½∩ óßÑσ ß¿¼ó«½«ó. é Turbo Pascal ßπΘÑßΓóπεΓ ñóá ñ«»«½¡¿ΓÑ½∞¡δσ ß»«ß«íá «»¿ßá¡¿∩ ß¿¼ó«½∞¡δσ ¬«¡ßΓá¡Γ: ß »«¼«Θ∞ε ß¿¼ó«½á "^" ¿ ß¿¼ó«½á τ¿ß½á "#". æ¿¼ó«½δ ß ¬«ñá¼¿ «Γ 0 ñ« 31 - π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ. Ä¡¿ «í«º¡áτáεΓß∩ áííαÑó¿áΓπαá¼¿ (CR - ó«ºóαáΓ ¬áαÑΓ¬¿, LF - »ÑαÑó«ñ ßΓα«¬¿, ESC - óδσ«ñ) ¿½¿ ß »«¼«Θ∞ε ñóπσ ¬½áó¿Φ, «ñ¡á ¿º ¬«Γ«αδσ Ctrl + íπ¬óá. ç¡áτÑ¡¿Ñ íπ¬óδ »«½πτáÑΓß∩ »α¿íáó½Ñ¡¿Ñ¼ 64 ¬ π»αáó½∩εΘÑ¼π ¬«ñπ. ìá»α¿¼Ñα, π»αáó½∩εΘ¿⌐ ß¿¼ó«½ ¬«ñá ASCII 7 ¿ºóÑßΓÑ¡ ¬á¬ Bel ¿½¿ CtrlG. Turbo Pascal ñáÑΓ ó«º¼«ª¡«ßΓ∞ »αÑñßΓáó¿Γ∞ ß¿¼ó«½δ ß »«¼«Θ∞ε "^", ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ íπ¬óá (¿½¿ ß¿¼ó«½). Æá¬, "^G" Γ« ªÑ ßá¼«Ñ, τΓ« ¿ Ctrl-G. "^G" ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó «»ÑαáΓ«αáσ Turbo Pascal: Writeln (^G). ¥Γ«Γ ¼ÑΓ«ñ »α¿¼Ñ¡¿¼ Γ«½∞¬« ¬ π»αáó½∩εΘ¿¼ ß¿¼ó«½á¼. éΓ«αá∩ ó«º¼«ª¡«ßΓ∞ «í«º¡áτÑ¡¿∩ - ¿ß»«½∞º«óá¡¿Ñ ß¿¼ó«½á ¡«¼Ñαá "#", ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ¬«ñ ASCII. Æá¬, #7 Γ« ªÑ ßá¼«Ñ, τΓ« ¿ "^G", #65 - 'A', a #233 - «ñ¿¡ ¿º ß»Ñµ¿á½∞¡δσ »ßÑóñ«úαáΣ¿τÑß¬¿σ ß¿¼ó«½«ó IBM PC. é í«½∞Φ¿¡ßΓóÑ ß½πτáÑó ¿ß»«½∞ºπεΓß∩ ßΓα«¬¿ ß¿¼ó«½«ó. é ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ ¡Ñ »«ññÑαª¿óáÑΓß∩ Γ¿» ßΓα«¬ ß¿¼ó«½«ó. é Turbo Pascal αÑá½¿º«óá¡á φΓá ó«º¼«ª¡«ßΓ∞. Éáßß¼«Γα¿¼ »α«úαá¼¼π program Hello; var Name: String(30); begin Write('What is your name? '); Readln(Name); Writeln('Hello, ', Name) end. ÅÑαÑ¼Ñ¡¡á∩ Name «íΩ∩ó½Ñ¡á, ¬á¬ string (ßΓα«¬á), ¿ »«ñ ¡ÑÑ αÑºÑαó¿απÑΓß∩ 30 íá⌐Γ (ñ½∩ 30 ß¿¼ó«½«ó). èα«¼Ñ Γ«ú«, Turbo Pascal «Γó«ñ¿Γ ÑΘÑ «ñ¿¡ íá⌐Γ, ó ¬«Γ«α«¼ ß«ñÑαª¿Γß∩ ΓÑ¬πΘá∩ ñ½¿¡á ßΓα«¬¿. é φΓ«¼ ß½πτáÑ, ¡Ñºáó¿ß¿¼« «Γ Γ«ú«, ¬á¬«⌐ ñ½¿¡δ íπñÑΓ óóÑñÑ¡« ¿¼∩, «»ÑαáΓ«α Writeln αáß»ÑτáΓáÑΓ ¿¼∩ π¬áºá¡¡«⌐ ñ½¿¡δ. àß½¿ íπñÑΓ óóÑñÑ¡« ¿¼∩ í«½∞ΦÑ 30 ß¿¼ó«½«ó, Γ« íπñπΓ ¿ß»«½∞º«óáΓ∞ß∩ Γ«½∞¬« »ÑαóδÑ 30 ß¿¼ó«½«ó, á «ßΓá½∞¡δÑ íπñπΓ »α«¿ú¡«α¿α«óá¡δ. Åα¿ «»¿ßá¡¿¿ ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¼«ª¡« π¬áºδóáΓ∞ ÑÑ αáº¼Ñα, ¡« ¡Ñ í«½ÑÑ 255. Å« π¼«½τá¡¿ε ñ½¿¡á ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ - 255 ß¿¼ó«½«ó. Turbo Pascal »αÑñ½áúáÑΓ ¡Ñß¬«½∞¬« »α«µÑñπα ¿ Σπ¡¬µ¿⌐, αáí«ΓáεΘ¿σ ß« ßΓα«¬«óδ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿. êσ «»¿ßá¡¿Ñ ñá¡« ó ú½áóÑ 1 æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »« í¿í½¿«ΓÑ¬Ñ. üπ½Ñóß¬¿Ñ ñá¡¡δÑ. éßΓα«Ñ¡¡δ⌐ Γ¿» Boolean ñá¡¡δσ ó Turbo Pascal ¿¼ÑÑΓ ñóá ó«º¼«ª¡δσ º¡áτÑ¡¿∩: True ¿ FalsÑ (¿ßΓ¿¡á ¿ ½«ª∞). î«ª¡« «íΩ∩ó¿Γ∞ »ÑαÑ¼Ñ¡¡πε Γ¿»á Boolean, ¿ »α¿ßó«¿Γ∞ Ñ⌐ º¡áτÑ¡¿Ñ True ¿½¿ False, ¿½¿ ªÑ, τΓ« í«½ÑÑ óáª¡«, »α¿ßó«¿Γ∞ Ñ⌐ º¡áτÑ¡¿Ñ óδαáªÑ¡¿∩, ¬«Γ«α«Ñ »α¿ óδτ¿ß½Ñ¡¿¿ »α¿¡¿¼áÑΓ «ñ¡« ¿º φΓ¿σ º¡áτÑ¡¿⌐. üπ½Ñóß¬«Ñ óδαáªÑ¡¿Ñ - φΓ« óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ True ¿½¿ False. Ä¡« ß«ßΓ«¿Γ ¿º óδαáªÑ¡¿⌐ «Γ¡«ΦÑ¡¿⌐, íπ½Ñóß¬¿σ «»ÑαáΓ«α«ó, íπ½Ñóß¬¿σ »ÑαÑ¼Ñ¡¡δσ ¿/¿½¿ ñαπú¿σ íπ½Ñóß¬¿σ óδαáªÑ¡¿⌐. ìá»α¿¼Ñα: while (Index <= Limit) and not Done do... while ß«ñÑαª¿Γ íπ½Ñóß¬«Ñ óδαáªÑ¡¿Ñ. üπ½Ñóß¬«Ñ óδαáªÑ¡¿Ñ ó φΓ«¼ ß½πτáÑ óßÑ, τΓ« ¡áσ«ñ¿Γß∩ ¼Ñªñπ ¬½ετÑóδ¼¿ ß½«óá¼¿ while ¿ do. Done - φΓ« »ÑαÑ¼Ñ¡¡á∩ (¿½¿ Σπ¡¬µ¿∩) íπ½Ñóß¬«ú« Γ¿»á. ô¬áºáΓÑ½¿. éßÑ αáßß¼«ΓαÑ¡¡δÑ Γ¿»δ ñá¡¡δσ ß«ñÑαªáΓ ¡Ñ»«ßαÑñßΓóÑ¡¡« ñá¡¡δÑ. ô¬áºáΓÑ½∞, ß«ñÑαªáΘ¿⌐ ñαπú«⌐ Γ¿» ¿¡Σ«α¼áµ¿¿ - áñαÑß. ô¬áºáΓÑ½∞ - φΓ« »ÑαÑ¼Ñ¡¡á∩, ß«ñÑαªáΘá∩ áñαÑß »á¼∩Γ¿, úñÑ ¬á¬¿Ñ ½¿í« ñá¡¡δÑ »«¼ÑΘáεΓß∩. äαπú¿¼¿ ß½«óá¼¿, «¡ π¬áºδóáÑΓ ¡á ñá¡¡δÑ, ¬á¬ áñαÑß¡á∩ ¬¡¿úá ¿½¿ «ú½áó½Ñ¡¿Ñ. Äíδτ¡« π¬áºáΓÑ½∞ π¬áºδóáÑΓ ¡á ñá¡¡δÑ «»αÑñÑ½Ñ¡¡«ú« Γ¿»á. Éáß¼«Γα¿¼ ß½ÑñπεΘ¿⌐ »α¿¼Ñα: type Buffer = string[255]; BufPtr = ^Buffer; var Buf1: Buffer; Buf2: BufPtr; Æ¿» ñá¡¡δσ Buffer «»αÑñÑ½Ñ¡, ¬á¬ ßΓα«¬«óá∩ »ÑαÑ¼Ñ¡¡á∩ αáº¼Ñα«¼ 255 íá⌐Γ, ó Γ« ªÑ óαÑ¼∩ BufPtr - π¬áºáΓÑ½∞ ¡á Buffer. ÅÑαÑ¼Ñ¡¡á∩ Buf1 ¿¼ÑÑΓ Γ¿» Buffer ¿ ºá¡¿¼áÑΓ (255+1) íá⌐Γ »á¼∩Γ¿. ÅÑαÑ¼Ñ¡¡á∩ Buf2 ¿¼ÑÑΓ Γ¿» BufPtr, φΓ« 32-í¿Γ«óδ⌐ áñαÑß ¿ ºá¡¿¼áÑΓ 4 íá⌐Γá »á¼∩Γ¿. èπñá π¬áºδóáÑΓ Buf2? é ñá¡¡δ⌐ ¼«¼Ñ¡Γ ¡¿¬πñá. ÅαÑªñÑ τÑ¼ ¿ß»«½∞º«óáΓ∞ BufPtr, ¡Ñ«íσ«ñ¿¼« ºáαÑºÑαó¿α«óáΓ∞ (αáß»αÑñÑ½¿Γ∞) »á¼∩Γ∞ ¿ ºá»«¼¡¿Γ∞ ÑÑ áñαÑß ó Buf2. éδ ñÑ½áÑΓÑ φΓ«, ¿ß»«½∞ºπ∩ »α«µÑñπαπ New: New(Buf2); Å«ß¬«½∞¬π Buf2 π¬áºδóáÑΓ ¡á Γ¿» Buffer, Γ« φΓ«Γ «»ÑαáΓ«α óδñÑ½¿Γ ó »á¼∩Γ¿ 256-íá⌐Γ«óδ⌐ íπΣÑα ¿ Ñú« áñαÑß »«¼ÑßΓ¿Γ ó Buf2. èá¬ ¿ß»«½∞º«óáΓ∞ Buf2 ¿ ñá¡¡δÑ, ¡á ¬«Γ«αδÑ «¡ π¬áºδóáÑΓ? æ »«¼«Θ∞ε «»ÑαáΓ«αá ^. ìá»α¿¼Ñα, ¡Ñ«íσ«ñ¿¼« »«¼ÑßΓ¿Γ∞ ßΓα«¬π ¿ ó Buf1 ¿ ó íπΣÑα, ¡á ¬«Γ«αδ⌐ π¬áºδóáÑΓ Buf2: Buf1 : = '¥Γá ßΓα«¬á »«¼ÑΘáÑΓß∩ ó Buf1'; Buf2^: = '¥Γá ßΓα«¬á »«¼ÑΘáÑΓß∩ »« π¬áºáΓÑ½ε Buf2'; ÄΓ¼ÑΓ¿¼ αáº½¿τ¿Ñ ¼Ñªñπ Buf2 ¿ Buf2^: Buf2 «º¡áτáÑΓ 4-íá⌐Γ«óπε »ÑαÑ¼Ñ¡¡πε π¬áºáΓÑ½∩; Buf2^ - 256-íá⌐Γ«óπε ßΓα«¬«óπε »ÑαÑ¼Ñ¡πε, áñαÑß ¬«Γ«α«⌐ ó Buf2. ÆÑ»Ñα∞, ¬á¬ «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, ¡á ¬«Γ«απε π¬áºδóáÑΓ Buf2? êß»«½∞ºπ∩ »α«µÑñπαπ Dispose. ¥Γá »α«µÑñπαá «ßó«í«ªñáÑΓ »á¼∩Γ∞. Å«ß½Ñ Γ«ú«, ¬á¬ »α¿ »«¼«Θ¿ Dispose «ßó«í«ªñÑ¡á »á¼∩Γ∞, ß½ÑñπÑΓ »α¿ßó«¿Γ∞ π¬áºáΓÑ½ε º¡áτÑ¡¿Ñ nil, Γ.Ñ. π¬áºáΓÑ½∞ ¡¿ ¡á τΓ« ¡Ñ π¬áºδóáÑΓ: Dispose(Buf2); Buf2 := nil; çá¼ÑΓ¿¼, τΓ« º¡áτÑ¡¿Ñ nil »α¿ßóá¿óáÑΓß∩ π¬áºáΓÑ½ε Buf2, á ¡Ñ Buf2^. êñÑ¡Γ¿Σ¿¬áΓ«αδ. ä« ß¿σ »«α ó »α¿¼Ñαáσ ß«ñÑαªá½¿ß∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ »ÑαÑ¼Ñ¡¡δσ íÑº «»¿ßá¡¿∩ «úαá¡¿τÑ¡¿⌐ ¿ »αáó¿½ ¿σ «íαáº«óá¡¿∩. Éáßß¼«Γα¿¼ ¿σ í«½ÑÑ »«ñα«í¡«. ê¼Ñ¡á, ¬«Γ«αδÑ ñáεΓß∩ ¬«¡ßΓá¡Γá¼, Γ¿»á¼ ñá¡¡δσ, »ÑαÑ¼Ñ¡¡δ¼, Σπ¡¬µ¿∩¼, ¿ºóÑßΓ¡δ ¬á¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ. êñÑ¡Γ¿Σ¿¬áΓ«αδ ¿ß»«½∞º«óá½¿ß∞ ñ½∩: Integer, Real, String óßΓα«Ñ¡¡δσ Γ¿»«ó ñá¡¡δσ; Hello, DoSum, Ratio ¡áºóá¡¿∩ «ß¡«ó¡δσ »α«úαá¼¼; Name, A, B, Sum, Ratio »ÑαÑ¼Ñ¡¡δσ «»αÑñÑ½Ñ¡¡δσ; Write, Writeln, Readln ¿¼Ñ¡ óßΓα«Ñ¡¡δσ »α«µÑñπα. Turbo Pascal ¿¼ÑÑΓ ¡Ñß¬«½∞¬« »αáó¿½ «íαáº«óá¡¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó. èαáΓ¬«Ñ «»¿ßá¡¿Ñ »αáó¿½: - éßÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ¡áτ¿¡áεΓß∩ ß íπ¬óδ ¿½¿ º¡á¬á »«ñτÑα¬¿óá¡¿∩ (a..z, A..Z, _). Å«ß½ÑñπεΘ¿¼¿ ß¿¼ó«½á¼¿ ¼«úπΓ íδΓ∞ íπ¬óá, º¡á¬ »«ñτÑα¬¿óá¡¿∩, µ¿Σαá (0-9). äαπú¿Ñ ß¿¼ó«½δ ¡Ññ«»πßΓ¿¼δ. - êñÑ¡Γ¿Σ¿¬áΓ«αδ αáßß¼áΓα¿óáεΓß∩ íÑº πτÑΓá αÑú¿ßΓα«ó (»α«»¿ß¡δÑ ¿ ßΓα«τ¡δÑ íπ¬óδ ¡Ñ αáº½¿τáεΓß∩). ¥Γ« º¡áτ¿Γ, τΓ« a..z Γ«ªñÑßΓóÑ¡¡« A..Z. ìá»α¿¼Ñα index Γ«ªÑ ßá¼«Ñ τΓ« ¿ Index, ¿ INDEX. - êñÑ¡Γ¿Σ¿¬áΓ«αδ ¼«úπΓ ¿¼ÑΓ∞ αáº½¿τ¡πε ñ½¿¡π, ¡« ¿ß»«½∞ºπεΓß∩ Γ«½∞¬« »ÑαóδÑ 63 ß¿¼ó«½á. Ä»ÑαáΓ«αδ. êΓá¬, ñá¡¡δÑ »«½πτÑ¡δ »α«úαá¼¼«⌐ ¿ »α¿ßó«Ñ¡δ »ÑαÑ¼Ñ¡δ¼. Åα«úαá¼¼Ñ ¡πª¡« ¿σ «íαáí«ΓáΓ∞ ¿ »«½πτ¿Γ∞ αÑºπ½∞ΓáΓ, ¿ß»«½∞ºπ∩ «»ÑαáΓ«αδ. æπΘÑßΓóπÑΓ ó«ßÑ¼∞ Γ¿»«ó «»ÑαáΓ«α«ó: »α¿ßóá¿óá¡¿∩, áα¿Σ¼ÑΓ¿τÑß¬¿Ñ, »«í¿Γ«óδÑ, «Γ¡«ΦÑ¡¿⌐, ½«ú¿τÑß¬¿Ñ, ¡áñ ¼¡«ªÑßΓóá¼¿, áñαÑß¡δÑ ¿ ¡áñ ßΓα«¬á¼¿. ü«½∞Φ¿¡ßΓó« «»ÑαáΓ«α«ó ó Åáß¬á½Ñ í¿¡áα¡δÑ, ¿¼ÑεΓ ñóá «»Ñαá¡ñá; π¡áα¡δÑ «»ÑαáΓ«αδ ¿¼ÑεΓ «ñ¿¡ «»Ñαá¡ñ. ü¿¡áα¡δÑ «»ÑαáΓ«αδ ¿¼ÑεΓ «íδτ¡« á½úÑíαá¿τÑß¬πε Σ«α¼π, ¡á»α¿¼Ñα á+b. ô¡áα¡δ⌐ «»ÑαáΓ«α »αÑñΦÑßΓóπÑΓ ßó«Ñ¼π «»Ñαá¡ñπ, ¡á»α¿¼Ñα -b. é ß½«ª¡δσ óδαáªÑ¡¿∩σ »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ «»Ñαáµ¿⌐ «»αÑñÑ½∩ÑΓß∩ »αáó¿½á¼¿ »α¿«α¿ΓÑΓá ( ß¼. Γáí½¿µπ 2.3) Æáí½¿µá 2.3 Åα¿«α¿ΓÑΓ «»ÑαáΓ«α«ó. ─────────────────────────────────────────────────────────────────── Ä»ÑαáΓ«αδ Åα¿«α¿ΓÑΓ èáΓÑú«α¿∩ ─────────────────────────────────────────────────────────────────── @, not ÅÑαóδ⌐ (óδßΦ¿⌐) ô¡áα¡δÑ *, /, div, mod, éΓ«α«⌐ îπ½∞Γ¿»½¿¬á- and, shl, shr Γ¿ó¡δÑ +, -, or, xor ÆαÑΓ¿⌐ Çññ¿Γ¿ó¡δÑ =, <>, <, >, ùÑΓóÑαΓδ⌐ (¡¿ºΦ¿⌐) ÄΓ¡«ΦÑ¡¿∩ <=, >=, in ─────────────────────────────────────────────────────────────────── Ä»Ñαáµ¿¿ αáó¡«ú« »α¿«α¿ΓÑΓá óδ»«½¡∩εΓß∩ ß½Ñóá ¡á»αáó«, σ«Γ∩ ¬«¼»¿½∩Γ«α ¼«ªÑΓ ¿σ »ÑαÑúαπ»»¿α«óáΓ∞ ñ½∩ úÑ¡Ñαáµ¿¿ «»Γ¿¼á½∞¡«ú« ¬«ñá. Å«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ «»ÑαáΓ«α«ó ß «ñ¿¡á¬«óδ¼ »α¿«α¿ΓÑΓ«¼ óδ»«½¡∩ÑΓß∩ ß½Ñóá ¡á»αáó«. éδαáªÑ¡¿∩, ºá¬½ετÑ¡¡δÑ ó ß¬«í¬¿, óδτ¿ß½∩εΓß∩ ó »Ñαóπε «τÑαÑñ∞, ¡Ñºáó¿ß¿¼« «Γ »αÑñΦÑßΓóπεΘ¿σ ¿ »«ß½ÑñπεΘ¿σ «»ÑαáΓ«α«ó. Ä»ÑαáΓ«αδ »α¿ßóá¿óá¡¿∩. Äß¡«ó¡«⌐ «»Ñαáµ¿Ñ⌐ ∩ó½∩ÑΓß∩ «»Ñαáµ¿∩ »α¿ßóá¿óá¡¿∩: Ratio := A/ B. é Åáß¬á½Ñ «»Ñαáµ¿∩ »α¿ßóá¿óá¡¿∩ - φΓ« ¬«¼í¿¡áµ¿∩ ñó«ÑΓ«τ¿∩ ¿ º¡á¬á αáóÑ¡ßΓóá: ":=". é »α¿¼ÑαÑ º¡áτÑ¡¿Ñ óδαáªÑ¡¿∩ Ç /é, ßΓ«∩ΘÑÑ ß»αáóá «Γ ":=", »α¿ßóá¿óáÑΓß∩ »ÑαÑ¼Ñ¡¡«⌐ Ratio, ßΓ«∩ΘÑ⌐ ß½Ñóá. Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»ÑαáΓ«αδ. Åáß¬á½∞ »«ññÑαª¿óáÑΓ «íδτ¡δ⌐ ßΓá¡ñáαΓ¡δ⌐ ¡áí«α í¿¡áα¡δσ áα¿Σ¼ÑΓ¿τÑß¬¿σ «»ÑαáΓ«α«ó, ¬«Γ«αδÑ óδ»«½¡∩εΓß∩ ¡áñ µÑ½δ¼¿ ¿ óÑΘÑßΓóÑ¡δ¼¿ τ¿ß½á¼¿: - π¼¡«ªÑ¡¿Ñ (*); - ñÑ½Ñ¡¿Ñ µÑ½δσ (div); - ñÑ½Ñ¡¿Ñ óÑΘÑßΓóÑ¡¡δσ ß «ßΓáΓ¬«¼ (/); - «ßΓáΓ«¬ «Γ ñÑ½Ñ¡¿∩ (mod); - ß½«ªÑ¡¿Ñ (+); - óδτ¿Γá¡¿Ñ (-). èα«¼Ñ Γ«ú«, »«ññÑαª¿óáεΓß∩ π¡áα¡δÑ «»ÑαáΓ«αδ: - π¡áα¡δ⌐ ¼¿¡πß (á+(-b)) - ñ«»«½¡Ñ¡¿Ñ ñ« ñóπσ; - π¡áα¡δ⌐ »½εß (á+(+b)) - ¡¿τÑú« ¡Ñ óδ»«½¡∩ÑΓ, óóÑñÑ¡ ñ½∩ »«½¡«Γδ. Å«í¿Γ«óδÑ «»ÑαáΓ«αδ. ä½∩ «»Ñαáµ¿⌐ ¡áñ í¿Γá¼¿ ó Åáß¬á½Ñ ¿¼ÑεΓß∩ ß½ÑñπεΘ¿Ñ «»ÑαáΓ«αδ: - shl (shift left) æñó¿úáÑΓ í¿Γδ ó½Ñó« ¡á π¬áºá¡¡«Ñ τ¿ß½« í¿Γ, ºá»«½¡∩∩ «ßΓáóΦ¿Ñß∩ ß»αáóá αáºα∩ñδ ¡π½∩¼¿ - shr (shift right) Cñó¿úáÑΓ í¿Γδ ó»αáó« ¡á π¬áºá¡¡«Ñ τ¿ß½« í¿Γ, ºá»«½¡∩∩ «ßΓáóΦ¿Ñß∩ ß½Ñóá αáºα∩ñδ ¡π½∩¼¿ - and éδ»«½¡∩ÑΓ ½«ú¿τÑß¬«Ñ and (¿) ¡áñ »áα«⌐ í¿Γ«ó, ó«ºóαáΘáÑΓ 1 , Ñß½¿ «íá í¿Γá 1 ¿ 0 ó »α«Γ¿ó¡«¼ ß½πτáÑ - or éδ»«½¡∩ÑΓ ½«ú¿τÑß¬«Ñ or (¿½¿) ¡áñ »áα«⌐ í¿Γ«ó, ó«ºóαáΘáÑΓ 0 , Ñß½¿ «íá í¿Γá αáó¡δ 0 ¿ 1 ó »α«Γ¿ó¡«¼ ß½πτáÑ - xor éδ»«½¡∩ÑΓ ½«ú¿τÑß¬«Ñ ¿ß¬½ετáεΘÑÑ ¿½¿ ¡áñ »áα«⌐ í¿Γ«ó, ó«ºóαáΘáÑΓ 1, Ñß½¿ í¿Γδ ¿¼ÑεΓ αáº¡«Ñ º¡áτÑ¡¿Ñ ¿ 0 ó »α«Γ¿ó¡«¼ ß½πτáÑ - not Ä»Ñαáµ¿∩ ½«ú¿τÑß¬«ú« ñ«»«½¡Ñ¡¿∩ í¿Γá ºá¼Ñ¡∩ÑΓ 0 ¡á 1 ¿ «íαáΓ¡«. ¥Γ¿ «»Ñαáµ¿¿ óδ»«½¡∩εΓ ñÑ⌐ßΓó¿∩ ¡á ¡¿º¬«¼ πα«ó¡Ñ ß µÑ½«τ¿ß½Ñ¡¡δ¼¿ º¡áτÑ¡¿∩¼¿ . Ä»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿⌐. Ä»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿⌐ ßαáó¡¿óáεΓ ñóá º¡áτÑ¡¿∩, ó«ºóαáΘá∩ ó αÑºπ½∞ΓáΓÑ íπ½Ñóß¬«Ñ º¡áτÑ¡¿Ñ True ¿½¿ False. é Åáß¬á½Ñ αÑá½¿ºπεΓß∩ «»ÑαáΓ«αδ: > - í«½∞ΦÑ, τÑ¼; >= - í«½∞ΦÑ, τÑ¼ ¿½¿ αáó¡«; < - ¼Ñ¡∞ΦÑ, τÑ¼; <= - ¼Ñ¡∞ΦÑ, τÑ¼ ¿½¿ αáó¡«; = - αáó¡«; <> - ¡Ñ αáó¡«; in - ∩ó½∩ÑΓß∩ φ½Ñ¼Ñ¡Γ«¼. Å«τÑ¼π ¡Ñ«íσ«ñ¿¼« º¡áΓ∞, ¬á¬«ó αÑºπ½∞ΓáΓ: True ¿½¿ False? éóÑñÑ¼ ß½ÑñπεΘπε »α«úαá¼¼π: program TestGreater; var A, B: Integer; Test: Boolean; begin Write('éóÑñ¿ΓÑ ñóá τ¿ß½á: '); Readln(A, B); Test := A > B; Writeln('Ç í«½∞ΦÑ τÑ¼ é', Test); end. ÉÑºπ½∞ΓáΓ »α«úαá¼¼δ : True, Ñß½¿ Ç í«½∞ΦÑ é , ¿ False , Ñß½¿ Ç ¼Ñ¡∞ΦÑ ¿½¿ αáó¡« é. ï«ú¿τÑß¬¿Ñ «»ÑαáΓ«αδ. é Åáß¬á½Ñ ÑßΓ∞ τÑΓδαÑ ½«ú¿τÑß¬¿σ «»ÑαáΓ«αá - and, xor, or, not. Ä¡¿ á¡á½«ú¿τ¡δ »«í¿Γ«óδ¼ «»ÑαáΓ«αá¼, ¡« ¿¼ÑεΓ ßó«¿ «Γ½¿τ¿∩. ¥Γ¿ ½«ú¿τÑß¬¿Ñ «»ÑαáΓ«αδ αáí«ΓáεΓ ß ½«ú¿τÑß¬¿¼¿ º¡áτÑ¡¿∩¼¿ (True ¿ False), »«ºó«½∩∩ ¬«¼í¿¡¿α«óáΓ∞ óδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿⌐, íπ½Ñóß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ ¿ íπ½Ñóß¬¿Ñ óδαáªÑ¡¿∩. Éáº½¿τ¿∩ ¼Ñªñπ φΓ¿¼¿ «»ÑαáΓ«αá¼¿ ¿ »«í¿Γ«óδ¼¿ «»ÑαáΓ«αá¼¿ ß½ÑñπεΘ¿Ñ: - ï«ú¿τÑß¬¿Ñ «»ÑαáΓ«αδ ó«ºóαáΘáεΓ αÑºπ½∞ΓáΓ True ¿½¿ False (íπ½Ñóß¬«Ñ º¡áτÑ¡¿Ñ), ó Γ« óαÑ¼∩ ¬á¬ »«í¿Γ«óδÑ «»ÑαáΓ«αδ »α«¿ºó«ñ∩Γ ñÑ⌐ßΓó¿Ñ ¡áñ µÑ½δ¼¿ º¡áτÑ¡¿∩¼¿. - ¥Γ¿ «»ÑαáΓ«αδ ¡Ñ »«ºó«½∩εΓ ¬«¼í¿¡¿α«óáΓ∞ íπ½Ñóß¬¿Ñ ¿ µÑ½δÑ óδαáªÑ¡¿∩; ñαπú¿¼¿ ß½«óá¼¿, óδαáªÑ¡¿Ñ Flag and Indx ¡Ññ«»πßΓ¿¼«, Ñß½¿ Flag - íπ½Ñóß¬¿⌐ Γ¿», á Indx - µÑ½δ⌐ Γ¿» ( ¿½¿ ¡á«í«α«Γ). - ï«ú¿τÑß¬¿Ñ «»ÑαáΓ«αδ and ¿ or ¿¼ÑεΓ ¬«α«Γ¬πε Σ«α¼π óδτ¿ß½Ñ¡¿∩ »« π¼«½τá¡¿ε, á xor ¿ not - ¡ÑΓ. ä«»πßΓ¿¼, ¿¼ÑÑΓß∩ óδαáªÑ¡¿Ñ exp1 and exp2. àß½¿ exp1 - False, Γ« óßÑ óδαáªÑ¡¿Ñ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ False ¿ óδαáªÑ¡¿Ñ exp2 ¡Ñ óδτ¿ß½∩ÑΓß∩. Ç¡á½«ú¿τ¡«, ó óδαáªÑ¡¿¿ exp1 or exp2, exp2 ¡Ñ íπñÑΓ óδτ¿ß½∩Γ∞ß∩, Ñß½¿ exp1 - True. î«ª¡« πßΓá¡«ó¿Γ∞ »«½¡πε ßσÑ¼π óδτ¿ß½Ñ¡¿∩ íπ½Ñóß¬¿σ óδαáªÑ¡¿⌐, ¿ß»«½∞ºπ∩ ñ¿αÑ¬Γ¿óπ ¬«¼»¿½∩Γ«αá {$é+} ¿½¿ «»µ¿¿ Complete Boolean Eval (Options/Compiler). ÇñαÑß¡δÑ «»ÑαáΓ«αδ. é Åáß¬á½Ñ »«ññÑαª¿óáεΓß∩ ñóá ß»Ñµ¿á½∞¡δσ «»ÑαáΓ«αá ¡áñ áñαÑßá¼¿: óδτ¿ß½Ñ¡¿Ñ áñαÑßá (@) ¿ «»ÑαáΓ«α ¬«ßóÑ¡¡«⌐ ßßδ½¬¿ (^). Ä»ÑαáΓ«α @ ó«ºóαáΘáÑΓ áñαÑß ºáñá¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐; Ñß½¿ Sum »ÑαÑ¼Ñ¡¡á∩ µÑ½«ú« Γ¿»á, Γ« @Sum - áñαÑß ó »á¼∩Γ¿ φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐. Ç¡á½«ú¿τ¡«, Ñß½¿ ChrPtr - φΓ« π¬áºáΓÑ½∞ ¡á Γ¿» æhar, Γ« ChrPtr^ - φΓ« ß¿¼ó«½, ¡á ¬«Γ«αδ⌐ π¬áºδóáÑΓ ChrPtr^. Ä»ÑαáΓ«αδ ¡áñ ¼¡«ªÑßΓóá¼¿. Ä»ÑαáΓ«αδ ¡áñ ¼¡«ªÑßΓóá¼¿ óδ»«½¡∩εΓß∩ ó ß««ΓóÑΓßΓó¿¿ ß »αáó¿½á¼¿ ½«ú¿¬¿ ΓÑ«α¿¿ ¼¡«ªÑßΓó.Ä¡¿ ó¬½ετáεΓ: - + - «íΩÑñ¿¡Ñ¡¿Ñ; - - - αáº¡«ßΓ∞; - * - »ÑαÑßÑτÑ¡¿Ñ. æΓα«¬«óδÑ «»ÑαáΓ«αδ. æπΘÑßΓóπÑΓ Ññ¿¡ßΓóÑ¡¡δ⌐ «»ÑαáΓ«α - "+", ¬«Γ«αδ⌐ óδ»«½¡∩ÑΓ ¬«¡¬áΓÑ¡áµ¿ε ñóπσ ßΓα«¬. éδó«ñ. î«ªÑΓ »«¬áºáΓ∞ß∩ ßΓαá¡¡δ¼ , τΓ« αÑτ∞ « óδó«ñÑ »«⌐ñÑΓ »αÑªñÑ, τÑ¼ « óó«ñÑ, ¡« »α«úαá¼¼á, ¬«Γ«αá∩ ¡Ñ óδó«ñ¿Γ ¬á¬πε-½¿í« ¿¡Σ«α¼áµ¿ε, ¡Ñ ¿¼ÑÑΓ ß¼δß½á. éδó«ñ «íδτ¡« »α¿¡¿¼áÑΓ Σ«α¼π, ¬«Γ«αá∩ ºáó¿ß¿Γ «Γ óδσ«ñ¡«ú« πßΓα«⌐ßΓóá: ¡á φ¬αá¡ (ß½«óá ¿ ¿º«íαáªÑ¡¿∩), ¡á ºá»«¼¿¡áεΘ¿Ñ πßΓα«⌐ßΓóá (ñ¿ß¬ÑΓδ ¿ ó¿¡τÑßΓÑα), ó »«αΓδ óó«ñá/óδó«ñá. Åα«µÑñπαá Writeln. éδ πªÑ ¿ß»«½∞º«óá½¿ ¡á¿í«½ÑÑ αáß»α«ßΓαá¡Ñ¡¡πε Σπ¡¬µ¿ε Åáß¬á½∩ - »«ñ»α«úαá¼¼π Writeln. ìáº¡áτÑ¡¿Ñ ÑÑ - ºá»¿ß∞ (óδó«ñ) ¿¡Σ«α¼áµ¿¿ ¡á φ¬αá¡. àÑ Σ«α¼áΓ »α«ßΓ ¿ ú¿í«¬ »α¿ ¿ß»«½∞º«óá¡¿¿: Writeln (φ½Ñ¼Ñ¡Γ,φ½Ñ¼Ñ¡Γ,....); èáªñδ⌐ φ½Ñ¼Ñ¡Γ - φΓ« Γ«, τΓ« éδ σ«Γ¿ΓÑ óδóÑßΓ¿ ¡á φ¬αá¡ ¿ ¼«ªÑΓ íδΓ∞: º¡áτÑ¡¿Ñ¼ , Γá¬¿¼ ¬á¬ µÑ½«Ñ ¿½¿ óÑΘÑßΓóÑ¡¡«Ñ τ¿ß½« (3, 42, - 1732.3), ß¿¼ó«½«¼ ('a','Z'), ßΓα«¬«⌐ ('çñαáóßΓóπ⌐, ¼¿α'), íπ½Ñóß¬¿¼ º¡áτÑ¡¿Ñ¼ (True). èα«¼Ñ Γ«ú«, ¼«ªÑΓ íδΓ∞ ¿¼Ñ¡«óá¡¡á∩ ¬«¡ßΓá¡Γá (¿¼∩ ¬«¡ßΓá¡Γδ), »ÑαÑ¼Ñ¡¡á∩, π¬áºáΓÑ½∞, óδº«ó Σπ¡¬µ¿¿, Ñß½¿ «¡á ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ µÑ½«ú« Γ¿»á, óÑΘÑßΓóÑ¡¡«Ñ τ¿ß½«, ß¿¼ó«½, ßΓα«¬π ¿½¿ íπ½Ñóß¬¿⌐ Γ¿». éßÑ φ½Ñ¼Ñ¡Γδ »ÑτáΓáεΓß∩ ó ßΓα«¬π ó ºáñá¡¡«¼ »«α∩ñ¬Ñ. Å«ß½Ñ óδó«ñá ¬παß«α πßΓá¡áó½¿óáÑΓß∩ ¡á ¡áτá½« ß½ÑñπεΘÑ⌐ ßΓα«¬¿. àß½¿ ÑßΓ∞ ¡Ñ«íσ«ñ¿¼«ßΓ∞ «ßΓáó¿Γ∞ ¬παß«α ó φΓ«⌐ ªÑ ßΓα«¬Ñ »«ß½Ñ »«ß½Ññ¡Ñú« φ½Ñ¼Ñ¡Γá, Γ« ¿ß»«½∞ºπ⌐ΓÑ Write (φ½Ñ¼Ñ¡Γ,φ½Ñ¼Ñ¡Γ,...); Åα¿ óδó«ñÑ φ½Ñ¼Ñ¡Γ«ó Writeln ¼Ñªñπ ¡¿¼¿ áóΓ«¼áΓ¿τÑß¬¿ »α«íÑ½δ ¡Ñ óßΓáó½∩εΓß∩. Åα¿ ªÑ½á¡¿¿ ¿¼ÑΓ∞ ¿σ, ¡Ñ«íσ«ñ¿¼« ¿σ πτÑßΓ∞ ßá¼¿¼: Writeln (φ½Ñ¼Ñ¡Γ,' ',φ½Ñ¼Ñ¡Γ,' ',....); æ½ÑñπεΘ¿¼¿ «»ÑαáΓ«αá¼¿ «»¿ßδóáÑΓß∩ óδó«ñ : A:=1; B:=2; C:=3; Name := 'Frank'; Writeln(A, B, C); 123 Writeln(A, ' ', B, ' ', C); 1 2 3 Writeln('Hi', Name); HiFrank; Writeln('Hi, ',', Name, '.'); Hi, Frank. Æá¬ ªÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ »áαá¼ÑΓαδ «»αÑñÑ½Ñ¡¿∩ Φ¿α¿¡δ »«½∩ ñ½∩ ñá¡¡«ú« φ½Ñ¼Ñ¡Γá. é φΓ«¼ ß½πτáÑ «»ÑαáΓ«α ¿¼ÑÑΓ Σ«α¼áΓ: Writeln (φ½Ñ¼Ñ¡Γ: ñ½¿¡á,....); úñÑ ñ½¿¡á - µÑ½«Ñ óδαáªÑ¡¿Ñ (½¿ΓÑαá½, ¬«¡ßΓá¡Γá, »ÑαÑ¼Ñ¡¡á∩, óδº«ó Σπ¡¬µ¿¿), «»αÑñÑ½∩εΘÑÑ «íΘ¿⌐ αáº¼Ñα »«½∩ ñ½∩ óδó«ñá φ½Ñ¼Ñ¡Γá. Éáßß¼«Γα¿¼ ß½ÑñπεΘπε »α«úαá¼¼π ¿ »«½πτÑ¡¡δ⌐ ó αÑºπ½∞ΓáΓÑ óδó«ñ: A:=10; B:=2; C:=100; Writeln(A, B, C); 102100 Writeln(A:2, B:2, C:2); 10 2100 Writeln(A:3, B:3, C:3); 10 2100 Writeln(A, B:2, C:4); 10 2 100 çá¼ÑΓ¿¼, τΓ« φ½Ñ¼Ñ¡Γ ñ«»«½¡∩ÑΓß∩ ¡áτá½∞¡δ¼¿ »α«íÑ½á¼¿ ß½Ñóá ó ß««ΓóÑΓßΓó¿¿ ß π¬áºá¡¡«⌐ ñ½¿¡«⌐. æá¼« º¡áτÑ¡¿Ñ óδαáó¡¿óáÑΓß∩ ß»αáóá. ùΓ«, Ñß½¿ αáº¼Ñα »«½∩ ¼Ñ¡∞ΦÑ, τÑ¼ ¡Ñ«íσ«ñ¿¼«? é« óΓ«α«¼ «»ÑαáΓ«αÑ Writeln óδΦÑ»α¿óÑñÑ¡¡«ú« »α¿¼Ñαá ñ½∩ æ=100, ñ½¿¡á »«½∩ ¼Ñ¡∞ΦÑ, τÑ¼ ¡πª¡«, Γ.Ñ. ºáñá¡« 2, ¡πª¡« 3. Åα¿ óδó«ñÑ Åáß¬á½∞ πóÑ½¿τ¿óáÑΓ αáº¼Ñα ñ« ¼¿¡¿¼á½∞¡« ¡Ñ«íσ«ñ¿¼«ú«. ¥Γ«Γ ¼ÑΓ«ñ »α¿¼Ñ¡¿¼ ñ½∩ óßÑσ ñ«»πßΓ¿¼δσ φ½Ñ¼Ñ¡Γ«ó: µÑ½«ú« Γ¿»á, óÑΘÑßΓóÑ¡¡δσ τ¿ßÑ½, ß¿¼ó«½«ó, ßΓα«¬ ¿ íπ½Ñóß¬¿σ Γ¿»«ó. Äñ¡á¬«, »α¿ π¬áºá¡¿¿ Φ¿α¿¡δ (αáº¼Ñαá) »«½∩ ñ½∩ óÑΘÑßΓóÑ¡¡δσ τ¿ßÑ½ óδαáó¡¿óá¡¿Ñ »α«¿ßσ«ñ¿Γ ß½Ñóá ¿ αáß»ÑτáΓδóáÑΓß∩ ó φ¬ß»«¡Ñ¡µ¿á½∞¡«⌐ Σ«α¼Ñ. σ:=421.53; Writeln(x); 4.2153000000E+02 Writeln(x:8); 4.2E+02 Å«φΓ«¼π, Åáß¬á½∞ »«ºó«½∩ÑΓ ñ«íáó¿Γ∞ óΓ«α«⌐ «»Ñαá¡ñ ñ½¿¡δ: φ½Ñ¼Ñ¡Γ : ñ½¿¡á : ¬«½¿τÑßΓó« µ¿Σα. éΓ«αá∩ µ¿Σαá π¬áºδóáÑΓ, ß¬«½∞¬« µ¿Σα óδó«ñ¿Γ∞ ñ½∩ τ¿ß½á ß Σ¿¬ß¿α«óá¡¡«⌐ Γ«τ¬«⌐ »«ß½Ñ Γ«τ¬¿: σ:=421.53; Writeln(x:6:2); 421.53 Writeln(x:8:2); 421.53 Writeln(x:8:4); 421.5300 éó«ñ. é ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ ÑßΓ∞ ñóÑ «ß¡«ó¡δσ Σπ¡¬µ¿¿ óó«ñá ¿¡Σ«α¼áµ¿¿ Read ¿ Readln, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ñ½∩ τΓÑ¡¿∩ ñá¡¡δσ ß ¬½áó¿áΓπαδ. êσ Σ«α¼áΓ: Read (φ½Ñ¼Ñ¡Γ,φ½Ñ¼Ñ¡Γ,...); Readln (φ½Ñ¼Ñ¡Γ,φ½Ñ¼Ñ¡Γ,...);, úñÑ ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ - φΓ« »ÑαÑ¼Ñ¡¡á∩ µÑ½«ú«, óÑΘÑßΓóÑ¡¡«ú«, ß¿¼ó«½∞¡«ú« Γ¿»á ¿½¿ ßΓα«¬á. ù¿ß½á ñ«½ª¡δ «ΓñÑ½∩Γ∞ß∩ ñαπú «Γ ñαπúá »α«íÑ½á¼¿ ¿½¿ ¡áªáΓ¿Ñ¼ ¬½áó¿Φ¿ Enter. ôß½«ó¡δÑ «»ÑαáΓ«αδ. ê¡«úñá íδóáÑΓ ¡Ñ«íσ«ñ¿¼« óδ»«½¡¿Γ∞ τáßΓ∞ »α«úαá¼¼δ, Ñß½¿ ºáñá¡¡«Ñ πß½«ó¿Ñ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ True ¿½¿ False, ¿½¿ ¬«úñá ºáñá¡¡«Ñ óδαáªÑ¡¿Ñ »α¿¡¿¼áÑΓ «»αÑñÑ½Ñ¡¡«Ñ º¡áτÑ¡¿Ñ. Å«ß¼«Γα¿¼, ¬á¬ φΓ« αÑá½¿ºπÑΓß∩ ó Åáß¬á½Ñ. Ä»ÑαáΓ«α if. Å«ß¼«Γα¿¼, ¬á¬ «»ÑαáΓ«α if ¿ß»«½∞º«óá½ß∩ ó »αÑñδñπΘ¿σ »α«úαá¼¼áσ, «Γ¼ÑΓ¿ó, τΓ« Ñú« «íΘ¿⌐ Σ«α¼áΓ: if óδαáªÑ¡¿Ñ then «»ÑαáΓ«α 1 else «»ÑαáΓ«α 2, úñÑ óδαáªÑ¡¿Ñ - ½εí«Ñ íπ½Ñóß¬«Ñ óδαáªÑ¡¿Ñ (óδαáíáΓδóáεΘÑÑ ó αÑºπ½∞ΓáΓÑ True ¿½¿ False); «»ÑαáΓ«α 1 ¿ «»ÑαáΓ«α 2 - «»ÑαáΓ«αδ Åáß¬á½∩. àß½¿ óδαáªÑ¡¿Ñ »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ True, Γ« óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α 1; ó »α«Γ¿ó¡«¼ ß½πτáÑ - «»ÑαáΓ«α 2. äóá óáª¡δσ ¼«¼Ñ¡Γá, ¡á ¬«Γ«αδÑ ß½ÑñπÑΓ «íαáΓ¿Γ∞ ó¡¿¼á¡¿Ñ »α¿ ¿ß»«½∞º«óá¡¿¿ if/then/else. é«-»Ñαóδσ, «»ÑαáΓ«α else ¡Ñ ∩ó½∩ÑΓß∩ «í∩ºáΓÑ½∞¡δ¼, ñαπú¿¼¿ ß½«óá¼¿, ñ«»πßΓ¿¼« ¿ß»«½∞º«óáΓ∞ «»ÑαáΓ«α if ó ß½ÑñπεΘÑ¼ ó¿ñÑ: if óδαáªÑ¡¿Ñ then «»ÑαáΓ«α 1 é φΓ«¼ ß½πτáÑ «»ÑαáΓ«α 1 óδ»«½¡∩ÑΓß∩ Γ«½∞¬« Γ«úñá, ¬«úñá óδαáªÑ¡¿Ñ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ True. é »α«Γ¿ó¡«¼ ß½πτáÑ »α«»πß¬áÑΓß∩ «»ÑαáΓ«α 1 ¿ óδ»«½¡∩ÑΓß∩ ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α. é«-óΓ«αδσ, Ñß½¿ ¡Ñ«íσ«ñ¿¼« óδ»«½¡¿Γ∞ í«½ÑÑ «ñ¡«ú« «»ÑαáΓ«αá, ó ß½πτáÑ, ¬«úñá óδαáªÑ¡¿Ñ »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ, True ¿½¿ False, Γ« ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ ß«ßΓáó¡«⌐ «»ÑαáΓ«α. æ«ßΓáó¡«⌐ «»ÑαáΓ«α - φΓ« ¬½ετÑó«Ñ ß½«ó« begin, ¡Ñß¬«½∞¬« «»ÑαáΓ«α«ó αáºñÑ½Ñ¡¡δσ Γ«τ¬«⌐ ß ºá»∩Γ«⌐ ¿ ¬½ετÑó«Ñ ß½«ó« end. é »α¿¼ÑαÑ ¿ß»«½∞ºπÑΓß∩ «ñ¿¡ «»ÑαáΓ«α: if B = 0.0 then Writeln('ñÑ½Ñ¡¿Ñ ¡á ¡π½∞ ¡Ñó«º¼«ª¡«.'). êß»«½∞º«óá¡¿Ñ ß«ßΓáó¡«ú« «»ÑαáΓ«αá ó »αÑñ½«ªÑ¡¿¿ else: else begin Ratio := A / B; Writeln('ÄΓ¡«ΦÑ¡¿Ñ =' , Ratio) end; Ä»ÑαáΓ«α óδí«αá case. Ä»ÑαáΓ«α case - ¼«Θ¡«Ñ ßαÑñßΓó« óδí«αá á½∞ΓÑα¡áΓ¿ó. Å«ºó«½∩ÑΓ π¼Ñ¡∞Φ¿Γ∞ ¬«½¿τÑßΓó« «»ÑαáΓ«α«ó if. Ä»ÑαáΓ«α case ß«ßΓ«¿Γ ¿º óδαáªÑ¡¿∩ (ßÑ½Ñ¬Γ«αá) ¿ ß»¿ß¬«ó «»ÑαáΓ«α«ó, ¬áªñ«¼π ¿º ¬«Γ«αδσ »αÑñΦÑßΓóπÑΓ ¼ÑΓ¬á Γ«ú« ªÑ Γ¿»á, τΓ« ¿ ßÑ½Ñ¬Γ«α. ¥Γ« º¡áτ¿Γ, τΓ« ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ óδ»«½¡∩ÑΓß∩ Γ«Γ «»ÑαáΓ«α, π ¬«Γ«α«ú« º¡áτÑ¡¿Ñ ß«ó»áñáÑΓ ß ΓÑ¬πΘÑ¼ º¡áτÑ¡¿Ñ¼ ßÑ½Ñ¬Γ«αá. àß½¿ ß«ó»áñÑ¡¿∩ º¡áτÑ¡¿⌐ ¡Ñ »α«¿ßσ«ñ¿Γ, Γ« ¡Ñ óδ»«½¡∩ÑΓß∩ ¡¿ «ñ¿¡ ¿º «»ÑαáΓ«α«ó, óσ«ñ∩Θ¿σ ó case ¿½¿ ªÑ óδ»«½¡∩εΓß∩ «»ÑαáΓ«αδ, ßΓ«∩Θ¿Ñ »«ß½Ñ ¡Ñ«í∩ºáΓÑ½∞¡«ú« ß½«óá else (else - αáßΦ¿αÑ¡¿Ñ ßΓá¡ñáαΓ¡«ú« Åáß¬á½∩). îÑΓ¬á case ß«ßΓ«∩¿Γ ¿º ½εí«ú« ¬«½¿τÑßΓóá ¬«¡ßΓá¡Γ ¿½¿ »«ññ¿á»áº«¡«ó, αáºñÑ½Ñ¡¡δσ ºá»∩Γδ¼¿, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ñó«ÑΓ«τ¿Ñ (:), ¡á»α¿¼Ñα: case BirdSight of 'C', 'c': Curlens := Curlens + 1; 'H', 'h': Herons := Herons + 1; 'E', 'e': Egrets := Egrets + 1; 'T', 't': Terns := Terns + 1; end; {case} ä¿á»áº«¡ ºá»¿ßδóáÑΓß∩ ó ó¿ñÑ ñóπσ ¬«¡ßΓá¡Γ, αáºñÑ½Ñ¡¡δσ ñóπ¼∩ Γ«τ¬á¼¿ "..". Æ¿» ¬«¡ßΓá¡Γδ ñ«½ªÑ¡ ß««ΓóÑΓßΓó«óáΓ∞ Γ¿»π ßÑ½Ñ¬Γ«αá. Ä»ÑαáΓ«α, ßΓ«∩Θ¿⌐ »«ß½Ñ ñó«ÑΓ«τ¿∩ (:), óδ»«½¡∩ÑΓß∩ ó Γ«¼ ß½πτáÑ, Ñß½¿ º¡áτÑ¡¿Ñ ßÑ½Ñ¬Γ«αá ß«ó»áñáÑΓ ß« º¡áτÑ¡¿Ñ¼ ¬«¡ßΓá¡Γδ ¿½¿, Ñß½¿ Ñú« º¡áτÑ¡¿Ñ »«»áñáÑΓ ó ñ¿á»áº«¡ º¡áτÑ¡¿⌐. û¿¬½. é ß½πτáÑ, ¬«úñá »α¿ óδ»«½¡Ñ¡¿¿ ¬á¬«ú«-½¿í« πß½«ó¿∩ (¿½¿ ¡Ñóδ»«½¡Ñ¡¿∩), ¡Ñ«íσ«ñ¿¼« óδ»«½¡∩Γ∞ úαπ»»π «»ÑαáΓ«α«ó »«óΓ«α¡«, ¿ß»«½∞ºπεΓß∩ µ¿¬½δ. æπΘÑßΓóπÑΓ Γα¿ «ß¡«ó¡δσ ó¿ñá µ¿¬½«ó: µ¿¬½ while, µ¿¬½ repeat ¿ µ¿¬½ for. Éáßß¼«Γα¿¼ ¿σ. û¿¬½ while. û¿¬½ while ¿ß»«½∞ºπÑΓß∩ ñ½∩ »α«óÑα¬¿ ¡Ñ¬«Γ«α«ú« πß½«ó¿∩ ó ¡áτá½Ñ µ¿¬½á. éóÑñ¿ΓÑ ß½ÑñπεΘπε »α«úαá¼¼π: program Hello; var Count: Integer; begin Count := 1; while(Count <= 10) do begin Writeln('çñαáóßΓóπ⌐ ¿ »α«Θá⌐!'); Inc(Count); end; Writeln('¥Γ« ¬«¡Ñµ'); end. é«-»Ñαóδσ, ß¡áτá½á »ÑαÑ¼Ñ¡¡«⌐ Count »α¿ßó«¿Γß∩ º¡áτÑ¡¿Ñ αáó¡«Ñ 1. çáΓÑ¼, »α¿ óσ«ñÑ ó µ¿¬½ »α«óÑα∩ÑΓß∩ πß½«ó¿Ñ: º¡áτÑ¡¿Ñ Count ¼Ñ¡∞ΦÑ ¿½¿ αáó¡« 10. àß½¿ ñá, Γ« óδ»«½¡∩ÑΓß∩ ΓÑ½« µ¿¬½á («»ÑαáΓ«αδ, ¡áσ«ñ∩Θ¿Ñß∩ ¼Ñªñπ ¬½ετÑóδ¼¿ ß½«óá¼¿ begin....end.) ìá φ¬αá¡ óδó«ñ¿Γß∩ ß««íΘÑ¡¿Ñ "çñαáóßΓóπ⌐ ¿ »α«Θá⌐". ç¡áτÑ¡¿Ñ Count πóÑ½¿τ¿óáÑΓß∩ ¡á 1. é«ºóαáΓ ¡á ¡áτá½« µ¿¬½á. ç¡áτÑ¡¿Ñ Count »α«óÑα∩ÑΓß∩ ºá¡«ó« ¿ ΓÑ½« µ¿¬½á óδ»«½¡∩ÑΓß∩ ó¡«ó∞, ñ« ΓÑσ »«α »«¬á º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ Count πñ«ó½ÑΓó«α∩ÑΓ πß½«ó¿ε. èá¬ Γ«½∞¬« º¡áτÑ¡¿Ñ Count ßΓá¡«ó¿Γß∩ αáó¡δ¼ 11, µ¿¬½ ºáóÑαΦáÑΓß∩, ¿ ¡á φ¬αá¡ óδó«ñ¿Γß∩ ß««íΘÑ¡¿Ñ "¥Γ« ¬«¡Ñµ". ö«α¼áΓ «»ÑαáΓ«αá µ¿¬½á while: while óδαáªÑ¡¿Ñ do «»ÑαáΓ«α; é µ¿¬½Ñ while óδτ¿ß½∩ÑΓß∩ óδαáªÑ¡¿Ñ. àß½¿ «¡« ¿¼ÑÑΓ αÑºπ½∞ΓáΓ - True, óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α. é »α«Γ¿ó¡«¼ ß½πτáÑ óδ»«½¡Ñ¡¿Ñ µ¿¬½á ºáóÑαΦáÑΓß∩. û¿¬½ Repeat....Until. éΓ«α«⌐ µ¿¬½ repeat...until αáßß¼«Γα¿¼ ¡á »α¿¼ÑαÑ »α«úαá¼¼δ DORATIO.PAS: program DoRatio; var A, B: Integer; Ratio: Real; Ans: Char; begin repeat Write('ééÑñ¿ΓÑ ñóá τ¿ß½á'); Readln(A, B); Ratio := A / B; Writeln('ÄΓ¡«ΦÑ¡¿Ñ αáó¡«', Ratio); Writeln('Å«óΓ«α¿Γ∞? (Y/N)'); Readln(Ans); until Upcase(Ans) = 'N'; end. èá¬ «»¿ßδóá½«ß∞ αá¡ÑÑ, ó φΓ«⌐ »α«úαá¼¼Ñ »«óΓ«α∩ÑΓß∩ óδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«α«ó, »«¬á «ΓóÑΓ ¡á ó«»α«ß - n ¿½¿ N (Å«óΓ«α¿Γ∞? Y/N). äαπú¿¼¿ ß½«óá¼¿ repeat ¿ until, »«óΓ«α∩εΓß∩, ñ« ΓÑσ »«α, »«¬á º¡áτÑ¡¿Ñ óδαáªe¡¿∩ »α¿ until ¡Ñ íπñÑΓ Ærue. ö«α¼áΓ µ¿¬½á: repeat «»ÑαáΓ«α; «»ÑαáΓ«α; ........ «»ÑαáΓoα; until óδαáªÑ¡¿Ñ. æπΘÑßΓóπεΓ Γα¿ «ß¡«ó¡δσ «Γ½¿τ¿∩ «Γ µ¿¬½á while: - «»ÑαáΓ«αδ ó µ¿¬½Ñ repeat óδ»«½¡∩εΓß∩ σ«Γ∩ íδ «ñ¿¡ αáº, »«Γ«¼π τΓ« »α«óÑα¬á óδαáªÑ¡¿∩ «ßπΘÑßΓó½∩ÑΓß∩ ó ¬«¡µÑ ΓÑ½á µ¿¬½á. é µ¿¬½Ñ while, Ñß½¿ º¡áτÑ¡¿Ñ óδαáªÑ¡¿∩ False, ΓÑ½« Ñú« »α«»πß¬áÑΓß∩ ßαáºπ. - µ¿¬½ repeat óδ»«½¡∩ÑΓß∩ »«¬á óδαáªÑ¡¿Ñ ¡Ñ ßΓá¡ÑΓ True, ó Γ« óαÑ¼∩, ¬á¬ µ¿¬½ while óδ»«½¡∩ÑΓß∩ ñ« ΓÑσ »«α, »«¬á óδαáªÑ¡¿Ñ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ True. Åα¿ ºá¼Ñ¡Ñ «ñ¡«ú« Γ¿»á µ¿¬½á ¡á ñαπú«⌐ ¡Ñ«íσ«ñ¿¼« ¡á φΓ« «íαáΘáΓ∞ «ß«í«Ñ ó¡¿¼á¡¿Ñ. Éáßß¼«Γα¿¼ »α«úαá¼¼π HELLO, úñÑ µ¿¬½ while ºá¼Ñ¡Ñ¡ ¡á µ¿¬½ repeat: program Hello; var Count: Integer; begin Count := 1; repeat Writeln('çñαáóßΓóπ⌐ ¿ »α«Θá⌐!'); Inc(Count); until Count > 10; Writeln('¥Γ« ¬«¡Ñµ'); end. ÄΓ¼eΓ¿¼, τΓ« ΓÑ»Ñα∞ »ÑαÑ¼Ñ¡¡á∩ Count »α«óÑα∩ÑΓß∩ ¡á º¡áτÑ¡¿Ñ í«½∞ΦÑ 10 (á ó while íδ½« Count <= 10). é ºá¬½ετÑ¡¿Ñ, ó µ¿¬½Ñ repeat ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ »α«ßΓ« úαπ»»á «»ÑαáΓ«α«ó, á ¡Ñ ß«ßΓaó¡«⌐ «»ÑαáΓ«α. Åα¿ ¿ß»«½∞º«óá¡¿¿ φΓ«ú« µ¿¬½á ¡Ñ ¿ß»«½∞ºπεΓß∩ ß½«óá begin...end, ¬á¬ ó ß½πτáÑ ß µ¿¬½«¼ while. çá»«¼¡¿ΓÑ, τΓ« µ¿¬½ reαeat óδ»«½¡¿Γß∩ σ«Γ∩ íδ «ñ¿¡ αáº, ó Γ« óαÑ¼∩, ¬á¬ µ¿¬½ while ¼«ªÑΓ ¡¿ αáºπ ¡Ñ óδ»«½¡¿Γ∞ß∩ ó ºáó¿ß¿¼«ßΓ¿ «Γ º¡áτÑ¡¿∩ óδαáªÑ¡¿∩. û¿¬½ for. û¿¬½ for ßπΘÑßΓóπÑΓ ó« ¼¡«ú¿σ ∩ºδ¬áσ »α«úαá¼¼¿α«óá¡¿∩. é Åáß¬á½Ñ Γ«ªÑ. Äñ¡á¬«, óáα¿á¡Γ φΓ«ú« µ¿¬½á ó Åáß¬á½Ñ ¬á¬ φΣΣÑ¬Γ¿óÑ¡, Γá¬ ¿ «úαá¡¿τÑ¡. Äíδτ¡«, ¡áí«α «»ÑαáΓ«α«ó óδ»«½¡∩ÑΓß∩ Σ¿¬ß¿α«óá¡¡«Ñ τ¿ß½« αáº, »«¬á »ÑαÑ¼Ñ¡¡á∩ (¿¡ñÑ¬ß¡á∩) »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ ó π¬áºá¡¡«¼ ñ¿á»áº«¡Ñ. î«ñ¿Σ¿µ¿απÑ¼ º¡á¬«¼πε »α«úαá¼¼π Hello ß½ÑñπεΘ¿¼ «íαáº«¼. program Hello var Count: Integer; begin for Count := 1 to 10 do Writeln('çñαáóßΓóπ⌐ ¿ »α«Θá⌐!'); Writeln('¥Γ« ¬«¡Ñµ'); end. Åα¿ óδ»«½¡Ñ¡¿¿ φΓ«⌐ »α«úαá¼¼δ ó¿ñ¡«, τΓ« µ¿¬½ for óδ»«½¡∩ÑΓß∩ Γá¬ ªÑ, ¬á¬ ¿ µ¿¬½δ while ¿ repeat. öá¬Γ¿τÑß¬¿ φ¬ó¿óá½Ñ¡Γ¡« µ¿¬½π while. ö«α¼áΓ µ¿¬½á for: for ¿¡ñÑ¬ß:=óδαáªÑ¡¿Ñ1 to óδαáªÑ¡¿Ñ2 do «»ÑαáΓ«α úñÑ ¿¡ñÑ¬ß - ß¬á½∩α¡á∩ »ÑαÑ¼Ñ¡¡á∩ (µÑ½«ú« Γ¿»á, ß¿¼ó«½∞¡«ú«, íπ½Ñóc¬«ú« ¿ ½εí«ú« »ÑαÑτ¿ß½¿¼«ú« Γ¿»á); óδαáªÑ¡¿Ñ1 ¿ óδαáªÑ¡¿Ñ2 - óδαáªÑ¡¿∩ Γ¿»á, ß«ó¼ÑßΓ¿¼«ú« ß Γ¿»«¼ ¿¡ñÑ¬ßá; «»ÑαáΓ«α - «ñ¿¡«τ¡δ⌐ ¿½¿ ß«ßΓáó¡«⌐ «»ÑαáΓ«α. ê¡ñÑ¬ß πóÑ½¿τ¿óáÑΓß∩ ¡á 1 »«ß½Ñ ¬áªñ«ú« óδ»«½¡Ñ¡¿∩ µ¿¬½á. ê¡ñÑ¬ß ¼«ª¡« π¼Ñ¡∞ΦáΓ∞ ¡á 1. ä½∩ φΓ«ú« ¬½ετÑó«Ñ ß½«ó« to ºá¼Ñ¡∩ÑΓß∩ ¡á downto. û¿¬½ for φ¬ó¿óá½Ñ¡ΓÑ¡ ß½ÑñπεΘÑ⌐ »α«úαá¼¼Ñ ß µ¿¬½«¼ while: index :=exprl; while index <= expr2 do begin «»ÑαáΓ«α; Inc(index) end; â½áó¡δ⌐ ¡Ññ«ßΓáΓ«¬ µ¿¬½á for - φΓ« ó«º¼«ª¡«ßΓ∞ π¼Ñ¡∞Φ¿Γ∞ ¿½¿ πóÑ½¿τ¿Γ∞ ¿¡ñÑ¬ß Γ«½∞¬« ¡á 1. Äß¡«ó¡δÑ »αÑ¿¼πΘÑßΓóá - ¬αáΓ¬«ßΓ∞, ó«º¼«ª¡«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ ß¿¼ó«½∞¡«ú« ¿ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á ó ñ¿á»áº«¡Ñ º¡áτÑ¡¿⌐. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿. éδ ¿ºπτ¿½¿ πß½«ó¡«Ñ ¿ ¿ΓÑαáΓ¿ó¡«Ñ óδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«α«ó »α«úαá¼¼δ. ÆÑ»Ñα∞ »«ß¼«Γα¿¼, ¬á¬ ¼«ª¡« óδ»«½¡¿Γ∞ «ñ¿¡ ¿ Γ«Γ ªÑ ¡áí«α ¬«¼á¡ñ ó αáº¡δσ ¼ÑßΓáσ »α«úαá¼¼δ ¿ ß αáº¡δ¼¿ ñá¡¡δ¼¿. î«ª¡« «íΩÑñ¿¡¿Γ∞ φΓπ úαπ»»π «»ÑαáΓ«α«ó ó »«ñ»α«úαá¼¼π, ¬«Γ«απε ¼«ª¡« óδºóáΓ∞ »« ¡Ñ«íσ«ñ¿¼«ßΓ¿. é Åáß¬á½Ñ ÑßΓ∞ ñóá ó¿ñá »«ñ»α«úαá¼¼: »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. â½áó¡«Ñ αáº½¿τ¿Ñ ¼Ñªñπ ¡¿¼¿ - φΓ« Γ«, τΓ« Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ¿ ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡á ó óδαáªÑ¡¿¿: X := sin(Ç); ó Γ« óαÑ¼∩, ¬á¬ »α«µÑñπαá ¼«ªÑΓ íδΓ∞ óδºóá¡á : writeln("¥Γ« »α«óÑα¬á"); Äñ¡á¬« »ÑαÑñ º¡á¬«¼ßΓó«¼ ß »α«µÑñπαá¼¿ ¿ Σπ¡¬µ¿∩¼¿, ¡Ñ«íσ«ñ¿¼« αáßß¼«ΓαÑΓ∞ ßΓαπ¬Γπαπ »α«úαá¼¼. æΓαπ¬Γπαá »α«úαá¼¼. é ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ »α«úαá¼¼δ ¿¼ÑεΓ ªÑßΓ¬¿⌐ Σ«α¼áΓ: program ¿¼∩ »α«úαá¼¼δ label ¼ÑΓ¬¿; const «íΩ∩ó½Ñ¡¿Ñ ¬«¡ßΓá¡Γ; type «»αÑñÑ½Ñ¡¿Ñ Γ¿»«ó ñá¡¡δσ; var «íΩ∩ó½Ñ¡¿Ñ »ÑαÑ¼Ñ¡¡δσ; procedure ¿ function; begin ΓÑ½« »α«úαá¼¼δ end. ìá½¿τ¿Ñ óßÑσ »∩Γ¿ ßÑ¬µ¿⌐ «íΩ∩ó½Ñ¡¿⌐ - label, const, type, var, procedure ¿ function - ó éáΦÑ⌐ »α«úαá¼¼Ñ ¡Ñ«í∩ºáΓÑ½∞¡«. Äñ¡á¬« ñ½∩ ßΓá¡ñáαΓ¡«ú« Åáß¬á½∩, Ñß½¿ «¡¿ »α¿ßπΓßΓóπεΓ, »«α∩ñ«¬ ¿σ ß½Ññ«óá¡¿∩ ßΓα«ú« αÑú½á¼Ñ¡Γ¿α«óá¡, ¿ ó »α«úαá¼¼Ñ «¡¿ ñ«½ª¡δ »α¿ßπΓßΓó«óáΓ∞ Γ«½∞¬« «ñ¿¡ αáº. çá ßÑ¬µ¿Ñ⌐ «íΩ∩ó½Ñ¡¿⌐, ß½ÑñπεΓ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¿ Γ«½∞¬« ºáΓÑ¼ ΓÑ½« »α«úαá¼¼δ. Turbo Pascal «íÑß»Ñτ¿óáÑΓ í«½ÑÑ ú¿í¬πε ßΓαπ¬Γπαπ »α«úαá¼¼δ. â½áó¡«Ñ - φΓ« «»ÑαáΓ«α program ñ«½ªÑ¡ íδΓ∞ »Ñαóδ¼, á ΓÑ½« »α«úαá¼¼δ »«ß½Ññ¡¿¼. Å«α∩ñ«¬ «»¿ßá¡¿∩ «ßΓá½∞¡δσ ßÑ¬µ¿⌐ ªÑßΓ¬« ¡Ñ αÑú½á¼Ñ¡Γ¿α«óá¡, ¡« ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ñ«½ª¡δ íδΓ∞ «íΩ∩ó½Ñ¡δ ñ« ¿σ ¿ß»«½∞º«óá¡¿∩ ó« ¿ºíÑªá¡¿Ñ «Φ¿í«¬ ¬«¼»¿½∩µ¿¿. æΓαπ¬Γπαá »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¿ºóÑßΓ¡δÑ »«ñ «íΘ¿¼ ¿¼Ñ¡Ñ¼ ¬á¬ »«ñ»α«úαá¼¼δ ¼«úπΓ íδΓ∞ «»¿ßá¡δ ó ½εí«¼ ¼ÑßΓÑ »α«úαá¼¼δ, ¡« ñ« ΓÑ½á ú½áó¡«⌐ »α«úαá¼¼δ. ö«α¼áΓ »α«µÑñπα: procedure ¿¼∩ »α«µÑñπαδ (»áαá¼ÑΓαδ); label ¼ÑΓ¬¿; const «íΩ∩ó½Ñ¡¿Ñ ¬«¡ßΓá¡Γ; type «»αÑñÑ½Ñ¡¿∩ Γ¿»«ó ñá¡¡δσ; var «íΩ∩ó½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡δσ; procedure ¿ function; begin ΓÑ½« ú½áó¡«⌐ »α«µÑñπαδ; end; öπ¡¬µ¿¿ ¿¼ÑεΓ Γá¬«⌐ ªÑ Σ«α¼áΓ, ¬á¬ ¿ »α«µÑñπαδ, Γ«½∞¬« «¡¿ ¡áτ¿¡áεΓß∩ ß ºáú«½«ó¬á function ¿ ºá¬á¡τ¿óáεΓß∩ Γ¿»«¼ ñá¡¡δσ ó«ºóαáΘáÑ¼«ú« º¡áτÑ¡¿∩: function ¿¼∩ Σπ¡¬µ¿¿ (»áαá¼ÑΓαδ): Γ¿» ñá¡¡δσ; ê¼ÑεΓß∩ Γ«½∞¬« ñóá αáº½¿τ¿∩ ¼Ñªñπ »α«úαá¼¼á¼¿, »α«µÑñπαá¼¿ ¿ Σπ¡¬µ¿∩¼¿: - »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¿¼ÑεΓ ºáú«½«ó«¬ procedure ¿½¿ function, ß««ΓóÑΓßΓóÑ¡¡«, á ¡Ñ program; - »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ºá¬á¡τ¿óáεΓß∩ Γ«τ¬«⌐ ß ºá»∩Γ«⌐ (;), á ¡Ñ Γ«τ¬«⌐ (.). Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«úπΓ ¿¼ÑΓ∞ «»¿ßá¡¿∩ ßó«¿σ ¬«¡ßΓá¡Γ, Γ¿»«ó ñá¡¡δσ, »ÑαÑ¼Ñ¡¡δσ ¿ ßó«¿ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. ì« óßÑ φΓ¿ φ½Ñ¼Ñ¡Γδ ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ Γ«½∞¬« ó ΓÑσ »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ, úñÑ «¡¿ «íΩ∩ó½Ñ¡δ. Åα¿¼Ñα »α«úαá¼¼δ. Éáßß¼«Γα¿¼ óÑαß¿ε »α«úαá¼¼δ DORATIO, ó ¬«Γ«α«⌐ ¿ß»«½∞ºπεΓß∩ »α«µÑñπαá »«½πτÑ¡¿∩ ñóπσ º¡áτÑ¡¿⌐ ¿ Σπ¡¬µ¿∩, «»αÑñÑ½∩εΘá∩ ¿σ «Γ¡«ΦÑ¡¿Ñ: program DoRatio; var A, B: Integer; Ratio: Real; procedure GetData(var X, Y: Integer); begin Writeln('éóÑñ¿ΓÑ ñóá τ¿ß½á:'); Readln(X, Y); end; function GetRatio(I, J: Real); begin GetRatio(I / J); end; begin GetData(A, B); Ratio := GetRatio(A, B); Writeln('ÄΓ¡«ΦÑ¡¿Ñ αáó¡« ', Ratio); end. ¥Γ«, ¬«¡Ñτ¡«, ¡Ñ π½πτΦÑ¡¿Ñ »Ñαó«¡áτá½∞¡«⌐ »α«úαá¼¼δ, Γá¬ ¬á¬ «¡á ¿¼ÑÑΓ í«½∞Φ¿⌐ αáº¼Ñα ¿ ¼Ññ½Ñ¡¡ÑÑ óδ»«½¡∩ÑΓß∩. ì« «¡á »«¬áºδóáÑΓ ¬á¬ ¿ß»«½∞ºπεΓß∩ ¿ αáí«ΓáεΓ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. Å«ß½Ñ ¬«¼»¿½∩µ¿¿ ¿ ºá»πß¬á »α«úαá¼¼δ »Ñαóδ¼ óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α GetData(A,B). ¥Γ«Γ Γ¿» «»ÑαáΓ«αá ¿ºóÑßΓÑ¡ ¬á¬ óδº«ó »α«µÑñπαδ. Åα¿ «íαáí«Γ¬Ñ óδº«óá óδ»«½¡∩εΓß∩ «»ÑαáΓ«αδ ó GetData, »α¿ φΓ«¼ X ¿ Y (Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ) ºá¼Ñ¡∩εΓß∩ ¡á Ç ¿ é (Σá¬Γ¿τÑß¬¿Ñ »áαá¼ÑΓαδ). è½ετÑó«Ñ ß½«ó« var »ÑαÑñ X ¿ Y ó «»ÑαáΓ«αÑ óδº«óá GetData ú«ó«α¿Γ « Γ«¼, τΓ« Σá¬Γ¿τÑß¬¿Ñ »áαá¼ÑΓαδ ñ«½ª¡δ íδΓ∞ »ÑαÑ¼Ñ¡¡δ¼¿ ¿ τΓ« º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ ¼«úπΓ íδΓ∞ ¿º¼Ñ¡Ñ¡δ ¿ ó«ºóαáΘÑ¡δ óδºδóáεΘÑ⌐ »α«úαá¼¼Ñ. Åα¿ ºáóÑαΦÑ¡¿¿ αáí«Γδ GetData π»αáó½Ñ¡¿Ñ ó«ºóαáΘáÑΓß∩ ó ú½áó¡πε »α«úαá¼¼π ¡á «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ºá óδº«ó«¼ GetData. æ½ÑñπεΘ¿⌐ «»ÑαáΓ«α - óδº«ó Σπ¡¬µ¿¿ GetRatio. ÄΓ¼ÑΓ¿¼ ¡Ñ¬«Γ«αδÑ «Γ½¿τ¿∩. é«-»Ñαóδσ, GetRatio ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ ñ«½ª¡« íδΓ∞ ¿ß»«½∞º«óá¡«; ó φΓ«¼ ß½πτáÑ, «¡« »α¿ßóá¿óáÑΓß∩ Ratio. é«-óΓ«αδσ, º¡áτÑ¡¿Ñ »α¿ßóá¿óáÑΓß∩ GetRatio ó ú½áó¡«⌐ »α«úαá¼¼Ñ; φΓ¿¼ Σπ¡¬µ¿∩ «»αÑñÑ½∩ÑΓ, ¬á¬«Ñ º¡áτÑ¡¿Ñ ó«ºóαáΘáÑΓß∩. é-ΓαÑΓ∞¿σ, ¡ÑΓ ¬½ετÑó«ú« ß½«óá var »ÑαÑñ Σ«α¼á½∞¡δ¼¿ »áαá¼ÑΓαá¼¿ I ¿ J. ¥Γ« «º¡áτáÑΓ, τΓ« «¡¿ ¼«úπΓ íδΓ∞ ½εíδ¼¿ µÑ½«τ¿ß½Ñ¡¡δ¼¿ óδαáªÑ¡¿∩¼¿, Γá¬¿¼¿ ¬á¬ Ratio:= GetRatio(A+B,300); ¿ τΓ« Ñß½¿ ñáªÑ ¿σ º¡áτÑ¡¿∩ íπñπΓ ¿º¼Ñ¡Ñ¡δ ó Σπ¡¬µ¿¿, Γ« ¡«óδÑ º¡áτÑ¡¿∩ ¡Ñ ó«ºóαáΓ∩Γß∩ «íαáΓ¡« ó óδºδóáεΘπε »α«úαá¼¼π. èßΓáΓ¿, φΓ« ¡Ñ ∩ó½∩ÑΓß∩ «Γ½¿τ¿Ñ¼ »α«µÑñπαδ «Γ Σπ¡¬µ¿¿. î«ª¡« ¿ß»«½∞º«óáΓ∞ «íá Γ¿»á »áαá¼ÑΓα«ó ñ½∩ «í«¿σ Γ¿»«ó »α«úαá¼¼. è«¼¼Ñ¡Γáα¿¿. ê¡«úñá íδóáÑΓ ¡Ñ«íσ«ñ¿¼« óßΓáó¿Γ∞ ó »α«úαá¼¼π ºá¼Ñτá¡¿∩, ¡á»«¼¿¡áεΘ¿Ñ ¿½¿ ¿¡Σ«α¼¿απεΘ¿Ñ « Γ«¼, τΓ« «º¡áτáÑΓ »ÑαÑ¼Ñ¡¡á∩, ¬á¬¿Ñ ñÑ⌐ßΓó¿∩ óδ»«½¡∩ÑΓ Σπ¡¬µ¿∩ ¿½¿ «»ÑαáΓ«α. ¥Γ¿ ºá¼Ñτá¡¿∩ ¡áºδóáεΓ ¬«¼¼Ñ¡Γáα¿∩¼¿. Åáß¬á½∞ »«ºó«½∩ÑΓ óßΓáó½∩Γ∞ ó »α«úαá¼¼π ß¬«½∞¬« πú«ñ¡« ¬«¼¼Ñ¡Γáα¿Ñó. è«¼¼Ñ¡Γáα¿⌐ ¡áτ¿¡áÑΓß∩ ½Ñó«⌐ Σ¿úπα¡«⌐ ß¬«í¬«⌐ ({). Ä¡á π¬áºδóáÑΓ ¬«¼»¿½∩Γ«απ: ¿ú¡«α¿α«óáΓ∞ óßÑ, »«¬á ¡Ñ óßΓαÑΓ¿Γß∩ »αáóá∩ Σ¿úπα¡á∩ ß¬«í¬á(}). è«¼¼Ñ¡Γáα¿⌐ ¼«ªÑΓ ºá¡¿¼áΓ∞ ¡Ñß¬«½∞¬« ßΓα«¬: { ¥Γ« »α¿¼Ñα ñ½¿¡¡«ú« ¬«¼¼Ñ¡Γáα¿∩, ºá¡¿¼áεΘÑú« ¡Ñß¬«½∞¬« ßΓα«¬} èα«¼Ñ Γ«ú«, ßπΘÑßΓóπÑΓ á½∞ΓÑα¡áΓ¿ó¡á∩ Σ«α¼á ¬«¼¼Ñ¡Γáα¿∩. ìáτ¿¡áÑΓß∩ "(*" ¿ ºá¬á¡τ¿óáÑΓß∩ "*)". è«¼¼Ñ¡Γáα¿⌐, ¡áτ¿¡áεΘ¿⌐ß∩ ß "(*" ¿ú¡«α¿απÑΓ óßÑ Σ¿úπα¡δÑ ß¬«í¬¿, ¿ ¡á«í«α«Γ.