For Beginners & Professional Hackers

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

/ For Beginners & Professional Hackers / cd.iso / docum / fortr.doc / fortran7.doc < prev

Wrap

Text File | 1990-07-20 | 79.8 KB | 1,610 lines

ÅPOâPAMMêPOBAHêE HA OCHOBE MOäôïEë, HAÅêCAHH¢X HA PAçH¢X ƒç¢KAX. Äü ¥ÆÄë ùÇæÆê. é φΓ«⌐ τáßΓ¿ «»¿ßá¡« óºá¿¼«ñÑ⌐ßΓó¿Ñ »α«úαá¼¼, ¡á»¿ßá¡¡δσ ¡á îæ-ö«αΓαá¡Ñ ß »α«µÑñπαá¼¿ ¡á»¿ßá¡¡δ¼¿ ¡á îæ-Åáß¬á½Ñ ¿ îæ-æ¿. ê¡- Σ«α¼áµ¿∩ φΓ«⌐ τáßΓ¿ ¡Ñ ¡πª¡á ñ½∩ í«½∞Φ¿¡ßΓóá »α«úαá¼¼. æ«ñÑαªá¡¿Ñ. 1.BBEäEHêE. . . . . . . . . . . . . . . . . . . . . . . . . 7-1 2.MOäEïê ÅAMƒTê. . . . . . . . . . . . . . . . . . . . . . . 7-1 3.B¢üOP COâïAÿEHêƒ O ÅEPEäAùE ÅAPAMETPOB. . . . . . . . . . 7-1 3.1.Åepeñaτa »apa¼eΓpoó ccδ½¬o⌐ ¿ º¡aτe¡¿e¼. . . . . . . . . 7-2 3.2.êc»o½∞ºoóa¡¿e »epe¼e¡¡oúo τ¿c½a »apa¼eΓpoó. . . . . . . 7-5 4.COâïAÿEHêƒ Oü êäEHTêöêKATOPAX. . . . . . . . . . . . . . . 7-5 5.COçäAHêE êHTEPöEëCOB HA öOPTPAHE äïƒ ÅACKAïƒ ê Cê . . . . 7-6 6.OüPAÖEHêE K ÅPOûEäôPAM HA ÅACKAïE ê Cê êç öOPTPAHA. . . . 7-7 7.TêÅ¢ äAHH¢X . . . . . . . . . . . . . . . . . . . . . . . 7-8 7.1.êc»o½∞ºoóa¡¿e Γaí½¿µ φ¬ó¿óa½e¡Γ¡δx Γ¿»oó ña¡¡δx. . . . . 7-8 7.2.äa¡¡δe µe½oúo Γ¿»a. . . . . . . . . . . . . . . . . . . 7-9 7.3.üπ½eóc¬¿⌐ ¿ c¿¼óo½∞¡δ⌐ Γ¿»δ ña¡¡δx. . . . . . . . . . . 7-12 7.4.äe⌐cΓó¿Γe½∞¡δe τ¿c½a. . . . . . . . . . . . . . . . . . 7-13 7.5.Åepeñaτa cΓpo¬. . . . . . . . . . . . . . . . . . . . . 7-14 7.6.ô¬aºaΓe½¿. . . . . . . . . . . . . . . . . . . . . . . . 7-16 7.7.Macc¿óδ, SUPER ¼acc¿óδ ¿ HUGE ¼acc¿óδ. . . . . . . . . . 7-18 7.8.ça»¿c¿ ¿ cΓpπ¬Γπpδ. . . . . . . . . . . . . . . . . . . 7-20 7.9.êß»«½∞º«óá¡¿Ñ ¿¼Ñ¡ »α«µÑñπα ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó. . . . 7-21 8.COBMECTHOE ÅOï£çOBAHêE äAHH¢Mê. . . . . . . . . . . . . . 7-22 9.BBOä ê B¢BOä. . . . . . . . . . . . . . . . . . . . . . . 7-22 10.COOüÖEHêƒ Oü OÿêüKAX. . . . . . . . . . . . . . . . . . . 7-22 11.BOçMOåHOCTê öOPTPAHA, ÅOääEPåêBA₧ÖêE CMEÿAHHOE ÅPOâPAMMêPOBAHêE. . . . . . . . . . . . . . . . . . . . . . 7-23 11.1.O»epaΓop INTERFACE. . . . . . . . . . . . . . . . . . . 7-23 11.2.AΓp¿íπΓδ. . . . . . . . . . . . . . . . . . . . . . . . 7-23 11.3.öπ¡¬µ¿¿ añpecoó. . . . . . . . . . . . . . . . . . . . 7-26 11.4.CΓpo¬¿ Cê. . . . . . . . . . . . . . . . . . . . . . . 7-27 1.BBEäEHêE. êc»o½∞ºoóa¡¿e Ba¼¿ »p¿ »poúpa¼¼¿poóa¡¿¿, ¼oñπ½e⌐ ¡a»¿ca¡¡δx ¡a ñpπú¿x ∩ºδ¬ax »oºóo½∩eΓ: 1. êc»o½∞ºoóaΓ∞ í¿í½¿oΓe¬¿ »poµeñπp ¡a ñpπú¿x ∩ºδ¬ax. Ha»p¿¼ep, Bδ ¼oªeΓe óδºóaΓ∞ MC-C¿ í¿í½¿oΓe¬π ¿º »poúpa¼¼δ, ¡a»¿ca¡¡o⌐ ¡a ö«αΓαá¡Ñ ¿½¿ Åáß¬á½Ñ. Ta¬ªe ¼oª¡o ¿c»o½∞ºoóaΓ∞ ΣopΓpa¡¡δe í¿í½¿oΓe¬¿ ñ½∩ »poúpa¼¼, ¡a»¿ca¡¡δx ¡a MC-Åáß¬á½∞ ¿ MC-C¿. ùΓoíδ »o½∞ºoóaΓ∞c∩ í¿í½¿oΓe¬o⌐ ¡a o»peñe½e¡¡o¼ ∩ºδ¬e, Bδ ño½ª¡δ ºa¬aºaΓ∞ »oññepª¬π í¿í½¿oΓe¬¿ ¬o¼»¿½∩Γopo¼ φΓoúo ∩ºδ¬a. Ha»p¿¼ep, τΓoíδ »o½∞ºoóaΓ∞c∩ ¡e¬oΓopo⌐ ΣopΓpa¡¡o⌐ í¿í½¿oΓe¬o⌐ »p¿ paíoΓe c »poúpa¼¼o⌐, ¡a»¿ca¡¡o⌐ ¡a C¿, Bδ ño½ª¡δ ºa¬aºaΓ∞ »oññepª¬π í¿í½¿oΓe¬¿ c ¬o¼»¿½∩Γopo¼ îæ-ö«αΓαá¡, Γa¬ªe ¬a¬ ¿ ca¼π ¡πª¡πε Ba¼ í¿í½¿oΓe¬π. ¥Γo ¡eoíxoñ¿¼o, Γa¬ ¬a¬ »poúpa¼¼δ, ¡a»¿ca¡¡δe MC-Åáß¬á½Ñ, MC-C¿ ¿ MC-ö«αΓαá¡Ñ, coñepªaΓ oípaΘe¡¿∩ ¬ cóo¿¼ cooΓóeΓcΓóπ- εΘ¿¼ paíoτ¿¼ í¿í½¿oΓe¬a¼. 2. Bδ ¼oªeΓe ¿c»o½∞ºoóaΓ∞ óoº¼oª¡ocΓ¿, ¡e pea½¿ºoóa¡¡δe ó BaΦe¼ ∩ºδ¬e. Ha»p¿¼ep, c½oª¡o ¡a»¿caΓ∞ »poµeñπpπ ¼a¡¿»π½¿pπεΘπε í¿Γa¼¿ ¡a ö«αΓαá¡Ñ, ¡a»poΓ¿ó φΓo ½eú¬o ¡a C¿ ¿½¿ Åáß¬á½Ñ. Ta¬ªe, ¡e¬oΓopδe có∩º¿ ¼eªñπ oí∞e¬Γa¼¿ Γa¬¿e ¬a¬ ó cΓpπ¬Γπpax ¡a C¿ ¿½¿ ¡a Åáß¬á½Ñ, ¡e pea½¿ºoóa¡δ ó ö«αΓαá¡Ñ. 3. Ec½¿ Bδ coºñaeΓe cóo¿ coícΓóe¡¡δe í¿í½¿oΓe¬¿ »poµeñπp, Bδ ¼oªeΓe cΣop¼¿poóaΓ∞ í¿í½¿oΓe¬π »poµeñπp, coó¼ecΓ¿¼πε co óce¼¿ Γpe¼∩ ∩ºδ¬a¼¿. Bδ ño½ª¡δ ó¡¿¼aΓe½∞¡o »poτ¿ΓaΓ∞ ¼aΓep¿a½ φΓo⌐ ú½aóδ, τΓoíδ πc- »eΦ¡o có∩ºδóaΓ∞, »p¿ »poúpa¼¼¿poóa¡¿¿, ¼oñπ½¿ ¡a paº¡δx ∩ºδ¬ax. 2.MOäEïê ÅAMƒTê. Ec½¿ Bδ »o½∞ºπeΓec∞ C¿-»poµeñπpa¼¿: Bδ ño½ª¡δ ¬o¼»¿½¿poóaΓ∞ BaΦ C¿-¬oñ ¿c»o½∞ºπ∩ ¼oñe½∞ »a¼∩Γ¿ LARGE. Coópe¼e¡¡δe óepc¿¿ Åáß¬á½∩ ¿ ö«αΓαá¡á ¡e »peñ½aúaεΓ óδíopa ñpπ- ú¿x ¼oñπ½e⌐ »a¼∩Γ¿; o¡¿ Γo½∞¬o coó¼ecΓ¿¼δ c ¼oñe½∞ε C¿ LARGE. Bδ ño½ª¡δ ¿c»o½∞ºoóaΓ∞ ¼oñe½∞ C¿-í¿í½¿oΓe¬¿ LARGE. He¬oΓopδe ¬o¼»o¡e¡Γδ C¿-í¿í½¿oΓe¬¿ ccδ½aεΓc∩ ¡a í¿í½¿oΓe¬¿ ñpπ- ú¿x ∩ºδ¬oó. Ec½¿ Bδ ¿c»o½∞ºπeΓe í¿í½¿oΓe¬π c ñpπúo⌐ ¼oñe½∞ε »a¼∩Γ¿, φΓ¿ có∩º¿ o¬aªπΓc∩ ¡e¬oppe¬Γ¡δ¼¿. 3.B¢üOP COâïAÿEHêƒ O ÅEPEäAùE ÅAPAMETPOB. ö«αΓαá¡, Åáß¬á½∞ ¿ C¿ , ¬aªñδ⌐ , ¿¼eeΓ cóoe coícΓóe¡¡oe co- ú½aΦe¡¿e o »epeñaτ¿ »apa¼eΓpoó. Bo-»epóδx, ∩ºδ¬¿ oΓ½¿τaεΓc∩ »op∩ñ¬o¼ , ó ¬oΓopo¼ »apa¼eΓpδ ºa¡oc∩Γc∩ ó cΓe¬. MC-Åáß¬á½∞ ¿ MC-ö«αΓαá¡ ºa¡oc∩Γ »apa¼eΓpδ ó cΓe¬ ó Γo¼ ªe »op∩ñ¬e, ¬a¬ o¡¿ o»¿ca¡δ ó ºaúo½oó¬e »poµeñπpδ. MC-C¿ ºa¡oc¿Γ »apa¼eΓpδ ó oípaΓ¡o¼ »op∩ñ¬e. ƒºδ¬¿ oΓ½¿τaεΓc∩ eΘe ó Γo¼, ¡axoñ¿Γc∩ ½¿ ¬oñ, o»peñe½∩εΘ¿⌐ ¬a¬ óδ¡¿¼aΓ∞ »apa¼eΓpδ ¿º cΓe¬a »oc½e óoºópaΓa ¿º »poµeñπpδ, ó óδºδóa- εΘe⌐ »poµeñπpe ¿½¿ ó óδºδóae¼o⌐ »poµeñπpe. B coú½aΦe¡¿¿ ö«αΓαá- ¡á/Åáß¬á½∩, ¬oñ ¡axoñ¿Γc∩ ó óδºδóae¼o⌐ »poµeñπpe; ó C¿ φΓoΓ ¬oñ c½eñπeΓ ºa oípaΘe¡¿e¼ ¬ »poµeñπpe. B ö«αΓαá¡Ñ/Åáß¬á½Ñ »epeñaτa »apa¼eΓpoó coú½ac¡o coú½aΦe¡¿∩¼ »p¿¡∩Γδ¼ ó φΓ¿x ∩ºδ¬ax, ocπΘecΓó½∩eΓc∩ ¡ec¬o½∞¬o íδcΓpee ¿ ΓpeíπeΓ ¼e¡∞Φe ¬oña. Coú½aΦe¡¿e Cê »oºóo½∩eΓ Ba¼ ¿c»o½∞ºoóaΓ∞ »epe¼e¡¡oe τ¿c½o »apa¼eΓpoó (Γa¬ ¬a¬ »epóδ⌐ »apa¼eΓp óceúña »oc½eñ¡¿¼ ºa¡o- c¿Γc∩ ó cΓe¬, o¡ óceúña ¡axoñ¿Γc∩ ó ¡aτa½e cΓe¬a ¿ π¬aºδóaeΓ ¡aτa½∞¡δ⌐ añpec ¡aíopa »apa¼eΓpoó). ¥Γ¿ coú½aΦe¡¿∩ ¡ecoó¼ecΓ¿¼δ. Ha¬o¡eµ, ∩ºδ¬¿ oΓ½¿τaεΓc∩ c»ocoío¼ »epeñaτ¿ »apa¼eΓpoó: ccδ½¬o⌐ ¿½¿ º¡aτe¡¿e¼. C¼oΓp¿Γe paºñe½ "Åepeñaτa »apa¼eΓpoó c »o¼oΘ∞ε ccδ½¬¿ ¿½¿ »o º¡aτe¡¿ε". Ec½¿ Bδ º¡aeΓe, ¬a¬ óδºδóaεΘ¿⌐, Γa¬ ¿ óδºδóae¼δ⌐ ¬oñ, Bδ ¼oªeΓe óδípaΓ∞ ¬a¬oe coú½aΦe¡¿e ¿c»o½∞ºoóaΓ∞. Ec½¿ Ba¼ ¡πª¡o »e- peñaóaΓ∞ »epe¼e¡¡oe τ¿c½o »apa¼eΓpoó, ¿c»o½∞ºπ⌐Γe coú½aΦe¡¿e C¿ (c¼oΓp¿Γe paºñe½ "êc»o½∞ºoóa¡¿e »epe¼e¡¡oúo τ¿c½a »apa¼eΓpoó"). MoªeΓ íδΓ∞ Bδ ºaxoΓ¿Γe »o½∞ºoóaΓ∞c∩ coú½aΦe¡¿e¼ o »epeñaτ¿ »apa- ¼eΓpoó »o π¼o½τa¡¿ε. ä½∩ Γoúo τΓoíδ oípaΘaΓ∞c∩ ¬ oñ¡o¼π ∩ºδ¬π ¿º ñpπúoúo, Bδ ño½ª¡δ π¬aºaΓ∞ ¬o¼»¿½∩Γopπ, ¬a¬oe coú½aΦe¡¿e ¿c»o½∞ºπeΓc∩. B MC-C¿, MC- Åáß¬á½Ñ ¿ MC-ö«αΓαá¡Ñ cπΘecΓóπεΓ c»eµ¿Σ¿¬aµ¿¿, π¬aºδóaεΘ¿e ¬a¬¿e coú½aΦe¡¿∩ Bδ ¿c»o½∞ºπeΓe, ¬a¬ ñ½∩ óδºoóa ó¡eΦ¡e⌐ »poµeñπpδ, Γa¬ ¿ ñ½∩ óδºoóa ó¡πΓpe¡¡e⌐ »poµeñπpδ. Taí½¿µa 7-1 coñepª¿Γ c»eµ¿Σ¿- ¬aµ¿¿ coú½aΦe¡¿⌐ »epeñaτ¿ »apa¼eΓpoó ñ½∩ ¬aªñoúo ∩ºδ¬a. ┌────────────────────────────────┬───────────────────────────┐ │ƒºδ¬ ¿º ¬oΓopoúo oípaΘaεΓc∩ │ AΓp¿íπΓδ/¬½ετeóδe c½oóa │ │ ¬ »poµeñπpe │ │ ├────────────────────────────────┼───────────────────────────┤ │ êc»o½∞ºoóa¡¿e coú½aΦe¡¿∩ C¿ │ │ │ Åáß¬á½∞ │ aΓp¿íπΓ æ ó ºaúo½oó¬e │ │ │ »α«µeñπpδ │ │ ö«αΓαá¡ │ aΓp¿íπΓ C ó «»ÑαáΓ«αÑ │ │ │ INTERFACE │ │ C¿ │ »o π¼o½τa¡¿ε │ │ êc»o½∞ºoóa¡¿e coú½aΦe¡¿∩ │ │ │ ö«αΓαá¡á │ │ │ Åáß¬á½∞ │ aΓp¿íπΓ FORTRAN │ │ │ ó ºáú«½«ó¬e »poµeñπpδ │ │ ö«αΓαá¡ │ »o π¼o½τa¡¿ε │ │ C¿ │ ¬½ετeóoe c½oóo ö«αΓαá¡á │ │ │ ó ºaúo½oó¬e »poµeñπpδ │ │ êc»o½∞ºoóa¡¿e coú½aΦe¡¿∩ │ │ │ Åáß¬á½∩ │ │ │ Åáß¬á½∞ │ »o π¼o½τa¡¿ε │ │ ö«αΓαá¡ │ aΓp¿íπΓ PASCAL │ │ │ ó «»ÑαáΓ«αe INTERFACE │ │ C¿ │ ¬½ετeóoe c½oóo ÅACKAïƒ │ │ │ ó ºaúo½oó¬e »poµeñπpδ │ └────────────────────────────────┴───────────────────────────┘ Taí½¿µa 7-1 C»eµ¿Σ¿¬aµ¿¿ coú½aΦe¡¿⌐ »epeñaτ¿ »apa¼eΓpoó. 3.1.Åepeñaτa »apa¼eΓpoó ccδ½¬o⌐ ¿ º¡aτe¡¿e¼. Koúña »apa¼eΓp »epeñaeΓc∩ ccδ½¬o⌐, »epeñaeΓc∩ añpec »apa¼eΓpa. Åpoµeñπpδ »o½πτaεΓ º¡aτe¡¿∩ »apa¼eΓpoó τepeº añpeca, ½εíδe ¿º¼e- ¡e¡¿∩ »apa¼eΓpa ó óδºδóae¼o⌐ »poµeñπpe ¿º¼e¡∩εΓ óe½¿τ¿¡π Σa¬Γ¿τec- ¬oúo »apa¼eΓpa. Koúña »apa¼eΓp »epeñaeΓc∩ º¡aτe¡¿e¼, ¬o»¿∩ »apa- ¼eΓpa ºa¡oc¿Γc∩ ó cΓe¬ »p¿ óδºoóe »poµeñπpδ. Åpoµeñπpa ¼oªeΓ ¼e¡∩Γ∞ º¡aτe¡¿e »apa¼eΓpa, ¡o eúo cooΓóeΓcΓóπεΘ¿⌐ Σa¬Γ¿τec¬¿⌐ »apa¼eΓp »oc½e óδxoña ¿º »poµeñπpδ ocΓa¡eΓc∩, Γa¬¿¼ ªe, ¬a¬ ¿ ño oípaΘe¡¿∩ ¬ ¡e⌐. ä½∩ ¬aªñoúo »apa¼eΓpa Bδ óδí¿paeΓe c»ocoí »epeñaτ¿, ¿½¿ º¡aτe¡¿e¼, ¿½¿ ccδ½¬o⌐. Ec½¿ Bδ »epeñaeΓe ccδ½¬o⌐, cπΘecΓóπeΓ ñóe óoº¼oª¡ocΓ¿: »epeñaóaΓ∞ ñ½¿¡¡δ⌐ añpec (ceú¼e¡Γ ¿ c¼eΘe¡¿e) ¿½¿ »epeñaóaΓ∞ ¬opoΓ¬¿⌐ añpec (Γo½∞¬o c¼eΘe¡¿e). Ec½¿ óδºδóae¼a∩ »poµeñπpa óoºópaΘaeΓ ¿º¼e¡e¡¡oe º¡aτe¡¿e Σa¬- Γ¿τec¬oúo »apa¼eΓpa, ¬a¬ peºπ½∞ΓaΓ, Bδ ¿c»o½∞ºπeΓe »epeñaτπ ccδ½- ¬o⌐. Åepeñaτa º¡aτe¡¿e¼, ºaΘ¿ΘaeΓ »poΓ¿ó oΦ¿íoτ¡oúo ¿º¼e¡e¡¿∩ ña¡- ¡δx, ¿ ñ½∩ »epe¼e¡¡δx, paº¼epo¼ ¼e¡∞Φe 4 ía⌐Γa, o¬aºδóaeΓc∩ ío½ee φΣΣe¬Γ¿ó¡o⌐. ô¼o½τa¡¿∩ ñ½∩ ¬aªñoúo ∩ºδ¬a: ∙ ö«αΓαá¡ óce »apa¼eΓpδ »epeñaeΓ ccδ½¬o⌐ (ó¬½ετa∩ ¬o¡cΓa¡Γδ ¿ óδ- paªe¡¿∩), ¡o ¼oª¡o ºañaΓ∞ »epeñaτπ º¡aτe¡¿e¼. Ec½¿ ó »poµeñπpe ºaña¡ aΓp¿íπΓ PASCAL ¿½¿ C, coú½aΦe¡¿e »o π¼o½τa¡¿ε ¿º¼e¡∩- eΓc∩: óce »apa¼eΓpδ ó φΓo⌐ »poµeñπpe íπñπΓ »epeñaóaΓ∞c∩ º¡a- τe¡¿e¼ ño c½eñπεΘe⌐ c»eµ¿Σ¿¬aµ¿¿, ¿º¼e¡∩εΘe⌐ coú½aΦe¡¿e. ∙ C¿ óceúña »epeñaeΓ ¼acc¿óδ ccδ½¬o⌐, a óce ñpπú¿e »apa¼eΓpδ º¡a- τe¡¿e¼. B C¿ Bδ ¼oªeΓe »epeñaóaΓ∞ π¬aºaΓe½¿, ¬a¬ »apa¼eΓpδ: »poµeñπpa íπñeΓ ó φΓo¼ c½πτae ¿c»o½∞ºoóaΓ∞ π¬aºaΓe½¿ »p¿ ¿º¼e¡e¡¿¿ ºaúpπªe¡¡o⌐ óe½¿τ¿¡δ, Γe¼ ca¼δ¼ »o½πτe¡¡δ⌐ peºπ½∞ΓaΓ íπñeΓ Γa¬¿¼ ªe ¬a¬ »p¿ »epeñaτe ccδ½¬o⌐. ∙ Åáß¬á½∞ »epeñaeΓ »apa¼eΓpδ º¡aτe¡¿e¼, ¡o ¼oªeΓ íδΓ∞ ºaña¡a »e- peñaτa ccδ½¬o⌐. Ec½¿ Bδ oΓ¬aºa½¿c∞ oΓ paíoΓδ »o π¼o½τa¡¿ε, Bδ ño½ª¡δ ºañaΓ∞ o»peñe½e¡¡δe ¬½ετeóδe c½oóa, aΓp¿íπΓδ ¿½¿ Γ¿»δ π¬aºaΓe½e⌐. O¡¿ ño½ª¡δ cooΓóeΓcΓóoóaΓ∞ coú½aΦe¡¿ε, ¬oΓopoe Bδ ¿c»o½∞ºπeΓe. C¼oΓp¿Γe Γaí½¿µδ 7-2, 7-3 ¿ 7-4. Ec½¿ Bδ »epeñaeΓe »apa¼eΓpδ »p¿ coú½aΦe¡¿¿ C¿, ¿c»o½∞ºπ⌐Γe ¬o¡- cΓpπ¬µ¿¿ o»¿ca¡¡δe ó Γaí½¿µe 7-2, »p¿ o»¿ca¡¿¿ »apa¼eΓpoó. ┌─────────────┬────────────────┬───────────────┬────────────┐ │ ÅAPAMETP │ Cê │ ÅACKAï£ │ öOPTPAH │ ├─────────────┼────────────────┼───────────────┼────────────┤ │ ä½¿¡¡δ⌐ │π¬aºaΓe½∞ ¡a Γ¿»│ Vars ¬½ετeóoe │ Referense │ │ añpec │ │ c½oóo │ aΓp¿íπΓ │ │ KopoΓ¬¿⌐ │ near π¬aºaΓe½∞│ Var ¬½ετeóoe │ Referense, │ │ añpec │ ¡a Γ¿» │ c½oóo │ near │ │ │ │ │ aΓp¿íπΓδ │ │ ç¡aτe¡¿e │ Åo π¼o½τa¡¿ε │ Åo π¼o½τa¡¿ε │Åo π¼o½τa¡¿ε│ │ │ │ │ │ └─────────────┴────────────────┴───────────────┴────────────┘ Taí½¿µa 7-2. Åapa¼eΓpδ »p¿ coú½aΦe¡¿¿ Cê. Ha»p¿¼ep, »peñ»o½oª¿¼, τΓo Bδ ¿c»o½∞ºπeΓe coú½aΦe¡¿e C¿. Taí- ½¿µa 7-1 »o¬aºδóaeΓ, ¬a¬¿e aΓp¿íπΓδ ¿ ¬½ετeóδe c½oóa ¡πª¡o ¿c»o½∞- ºoóaΓ∞. Koúña oípaΘaeΓec∞ ¿º Åáß¬á½∩, π¬aª¿Γe C aΓp¿íπΓ ó o»¿ca¡¿¿ »poµeñπpδ. Koúña oípaΘaeΓec∞ ¿º ö«αΓαá¡á π¬aª¿Γe C aΓp¿íπΓ ó πΓóep- ªñe¡¿¿ INTERFACE. Koúña oípaΘaeΓec∞ ¿º C¿, C¿ coú½aΦe¡¿e ¡aº¡aτa- eΓc∩ »o π¼o½τa¡¿ε. Te»ep∞, »peñ»o½oª¿¼ ,τΓo Bδ xoΓ¿Γe »epeñaΓ∞ µe½δ⌐ »apa¼eΓp x, ¿c»o½∞ºπ∩ ñ½¿¡¡δ⌐ añpec. Coó¼ecΓ¿¼ocΓ∞ Γ¿»oó ña¡¡δx íπñeΓ o»¿- ca¡a ¡¿ªe ó φΓo⌐ ú½aóe, Γe»ep∞ »o½oª¿¼, τΓo int Γ¿» C¿, integer Γ¿» Åáß¬á½∩, ¿ INTEGER ö«αΓαá¡á φ¬ó¿óa½e¡Γ¡δ. Taí½¿µa 7-2 »o¬aºδóaeΓ, τΓo ¬oúña ó BaΦe⌐ »poµeñπpe ¡a C¿ o»¿ca¡ »apa¼eΓp x, Bδ ño½ª¡δ ¿c»o½∞ºoóaΓ∞ π¬aºaΓe½∞ ( »o π¼o½τa¡¿ε far) cooΓóeΓcΓóπεΘeúo Γ¿»a (ó ña¡¡o¼ c½πτae, int). O»¿ca¡¿e »apa¼eΓpa x ¡a C¿: int *x; Koúña o»¿cδóaeΓe »apa¼eΓp x ó BaΦe⌐ »poµeñπpe ¡a Åáß¬á½Ñ, ¿c»o½∞- ºπ⌐Γe ¬½ετeóoe c½oóo VARS VARS X:INTEGER ä½∩ »poµeñπpδ ¡a ö«αΓαá¡Ñ ¿c»o½∞ºπ⌐Γe aΓp¿íπΓ REFERENSE: INTEGER X[REFERENCE] Ec½¿ Bδ xoΓ¿Γe »epeñaΓ∞ »apa¼eΓp, ¿c»o½∞ºπ∩ ¬opoΓ¬¿⌐ añpec, cooΓóeΓcΓóπεΘ¿e o»¿ca¡¿∩ »apa¼eΓpa x, íπñπΓ: int near *x ; VAR x:INTEGER ; INTEGER [REFERENSE,NEAR] êc»o½∞ºπ⌐Γe Γe ªe »p¿¡µ¿»δ, ec½¿ Bδ ºaxoΓ¿Γe óoc»o½∞ºoóaΓ∞c∩ ñpπú¿¼¿ coú½aΦe¡¿∩¼¿ o »epeñaτe ña¡¡δx: ec½¿ Bδ »epeñaeΓe »apa¼eΓpδ ¿c»o½∞ºπ∩ coú½aΦe¡¿e Åáß¬á½∩ ¿½¿ ö«αΓαá¡á, ¿c»o½∞ºπ⌐Γe ¬o¡cΓpπ¬µ¿¿, »p¿óeñe¡¡δe Γaí½¿µax 7-3 ¿ 7-4 »p¿ o»¿ca¡¿¿ »apa¼eΓpoó. ┌──────────────┬──────────────┬─────────────────┬──────────────┐ │ ÅAPAMETP │ C¿ │ Åáß¬á½∞ │ ö«αΓαá¡ │ ├──────────────┼──────────────┼─────────────────┼──────────────┤ │ ñ½¿¡¡δ⌐ añpec│π¬aºaΓe½∞ ¡a │ ¬½ετeóoe c½oóo │ aΓp¿íπΓ │ │ │ Γ¿» │ VARS │ REFERENCE │ │ ¬opoΓ¬¿⌐ │near π¬aºaΓe½∞│ ¬½ετeóoe c½oóo │ REFERENCE ¿ │ │ añpec │ ¡a Γ¿» │ VAR │ NEAR │ │ │ │ │ aΓp¿íπΓδ │ │ º¡aτe¡¿e │ »o π¼o½τa¡¿ε │ »o π¼o½τa¡¿ε │ »o π¼o½τa¡¿ε │ └──────────────┴──────────────┴─────────────────┴──────────────┘ Taí½¿µa 7-3 Åapa¼eΓpδ »p¿ coú½aΦe¡¿¿ Åáß¬á½∩. ┌──────────────┬──────────────┬─────────────────┬──────────────┐ │ ÅAPAMETP │ C¿ │ Åáß¬á½∞ │ ö«αΓαá¡ │ ├──────────────┼──────────────┼─────────────────┼──────────────┤ │ ñ½¿¡¡δ⌐ │π¬aºaΓe½∞ ¡a │ ¬½ετeóoe c½oóo │ »o π¼o½τa¡¿ε │ │ añpec │ Γ¿» │ VARS │ │ │ ¬opoΓ¬¿⌐ │near π¬aºaΓe½∞│ VARS ¬½ετeóoe │ aΓp¿íπΓ │ │ añpec │ ¡a Γ¿» │ c½oóo │ NEAR │ │ º¡aτe¡¿e │ »o π¼o½τa¡¿ε │ »o π¼o½τa¡¿ε │ aΓp¿íπΓ │ │ │ │ │ VALUE │ └──────────────┴──────────────┴─────────────────┴──────────────┘ Taí½¿µa 7-4 Åapa¼eΓpδ »p¿ coú½aΦe¡¿¿ ö«αΓαá¡á. Ec½¿ Bδ ¡e »¿Φ¿Γe ca¼¿ oíe »poµeñπpδ: óδºδóaεΘπε ¿ óδºδóae¼πε, Bδ ño½ª¡δ »epeñaóaΓ∞ »apa¼eΓp, ¬a¬ o¡ o»¿ca¡ ó cπΘecΓóπεΘe¼ o»peñe- ½e¡¿¿ »poµeñπpδ. Ec½¿ Bδ ¡e ¿¼eeΓe o»δΓa paíoΓδ c ∩ºδ¬o¼, ¬ ¬oΓo- po¼π Bδ oípaΘaeΓec∞, π Bac ¼oúπΓ óoº¡¿¬¡πΓ∞ ºaΓpπñ¡e¡¿∩ ó o»peñe- ½e¡¿¿ c»ocoía »epeñaτ¿ »apa¼eΓpa - º¡aτe¡¿e¼ ¿½¿ ccδ½¬o⌐. C»¿co¬, »p¿óeñe¡¿⌐ ¡¿ªe, »o¼oªeΓ Ba¼ ó φΓo¼ paºoípaΓ∞c∩. C½eñπεΘ¿e ó¿ñδ »apa¼eΓpoó »epeñaεΓc∩ º¡aτe¡¿e¼: ∙B Åáß¬á½Ñ, ½εío⌐ ñe¬½ap¿poóa¡¡δ⌐ »apa¼eΓp, ¬po¼e VAR, CONST, VARS ¿ CONSTS »apa¼eΓpoó. ∙B C¿, ½εío⌐ ñe¬½ap¿poóa¡¡δ⌐ »apa¼eΓp, ºa ¿c¬½ετe¡¿e¼ ¼acc¿óoó. ∙B ö«αΓαá¡Ñ, »apa¼eΓp, ñe¬½ap¿poóa¡¡δ⌐ c aΓp¿íπΓo¼ VALUE. ∙B ö«αΓαá¡Ñ, »apa¼eΓp ó »α«µÑñπαÑ, óδºóá¡¡«⌐ ß áΓα¿íπΓ«¼ æ ¿½¿ PASCAL (»«¬á ¡Ñ «»αÑñÑ½Ñ¡ áΓα¿íπΓ REFERENCE). C½eñπεΘ¿e ó¿ñδ »apa¼eΓpoó »epeñaεΓc∩ ccδ½¬o⌐ c ¬opoΓ¬¿¼ (2-ía⌐- Γoóδ¼, Γo½∞¬o c¼eΘe¡¿e) añpeco¼. ∙B Åáß¬á½Ñ »apa¼eΓp Σop¼aΓa o»¿ca¡¡δ⌐ ¬a¬ VAR ¿½¿ CONST. ∙B Åáß¬á½Ñ, »epe¼e¡¡a∩ »epeñaóae¼a∩ π¬aºaΓe½e¼ ¡a φΓπ »epe¼e¡¡πε. ô¬aºaΓe½∞ ca¼ »epeñaeΓc∩ º¡aτe¡¿e¼. (He pe¬o¼e¡ñπeΓc∩ ¿c»o½∞- ºoóaΓ∞ π¬aºaΓe½¿ Γa¬¿¼ oípaºo¼, Γa¬ ¬a¬ cπΘecΓóπeΓ ªecΓ¬a∩ có∩º∞ ¼eªñπ π¬aºaΓe½∩¼¿ ¿ ¼aΦ¿¡¡δ¼¿ añpeca¼¿) ∙B Åáß¬á½Ñ, »epe¼e¡¡a∩ »epeñaóae¼a∩ »epeñaτe⌐ »epe¼e¡¡o⌐ ADR. Añpec ca¼ »o ceíe (¬a¬ óce π¬aºaΓe½¿) »epeñaeΓc∩ º¡aτe¡¿e¼. ∙B C¿, »apa¼eΓp »epeñaεΘ¿⌐c∩ π¬aºaΓe½e¼ near ¡a »apa¼eΓp (π¬aºaΓe½∞ »epeñaeΓc∩ º¡aτe¡¿e¼). ∙B C¿, ¼acc¿ó o»¿ca¡¡δ⌐ c ¬½ετeóδ¼ c½oóo¼ near. ∙B ö«αΓαá¡Ñ, ó »poµeñπpax íeº aΓp¿íπΓoó C ¿ PASCAL, »apa¼eΓp íeº aΓp¿íπΓa NEAR. ∙B ö«αΓαá¡Ñ, ó »poµeñπpax íeº aΓp¿íπΓoó C ¿½¿ PASCAL, »apa¼eΓp c aΓp¿íπΓa¼¿ NEAR ¿ REFERENSE. ∙B ö«αΓαá¡Ñ, »epe¼e¡¡a∩ »epeñaóae¼a∩ ¬opoΓ¬¿¼ añpeco¼ ó ¬aτecΓóe »apa¼eΓpa Σπ¡¬µ¿¿ LOCNEAR; º¡aτe¡¿e¼ φΓo⌐ Σπ¡¬µ¿¿ ∩ó½∩eΓc∩ INTEGER*2. C½eñπεΘ¿e ó¿ñδ »apa¼eΓpoó »epeñaεΓc∩ ccδ½¬o⌐ c ñ½¿¡¡δ¼ (4-ía⌐Γoóδ¼, ceú¼e¡Γ ¿ c¼eΘe¡¿e) añpeco¼. ∙B Åáß¬á½Ñ, ADS »epe¼e¡¡a∩ (añpec »epeñaeΓc∩ º¡aτe¡¿e¼) ∙B Åáß¬á½Ñ, »apa¼eΓpδ o»¿ca¡¡δe ¬½ετeóδ¼¿ c½oóa¼¿ VARS ¿½¿ CONSTS. ∙B C¿, »apa¼eΓp, »epeñaóae¼δ⌐ »epeñaτe⌐ π¬aºaΓe½¿ far ¡a »apa¼eΓp (ccδ½¬a »epeñaeΓc∩ º¡aτe¡¿e¼). ça¼eΓ¿¼, τΓo ó LARGE ¼oñe½¿ Cê, far π¬aºaΓe½¿-φΓo Γ¿» π¬aºaΓe½e⌐ »o π¼o½τa¡¿ε. ∙B C¿ ¼acc¿óδ, ¡e o»¿ca¡¡δe ¬½ετeóδ¼ c½oóo¼ near. ∙B ö«αΓαá¡Ñ, ½εío⌐ »apa¼eΓp ö«αΓαá¡-»poúpa¼¼δ, ºa ¿c¬½ετe¡¿e¼ »a- pa¼eΓpoó o»¿ca¡¡δx aΓp¿íπΓa¼¿ NEAR ¿½¿ VALUE. ∙B ö«αΓαá¡Ñ, »epe¼e¡¡a∩ »epeñaóae¼a∩ ñ½¿¡δ¼ añpeco¼ ó ¬aτecΓóe »apa¼eΓpa Σπ¡¬µ¿¿ LOC ¿½¿ LOCFAR; º¡aτe¡¿e¼ φΓ¿x Σπ¡¬µ¿⌐ ∩ó- ½∩eΓc∩ INTEGER*4. 3.2.êc»o½∞ºoóa¡¿e »epe¼e¡¡oúo τ¿c½a »apa¼eΓpoó. Ec½¿ Bδ coí¿paeΓec∞ ¿c»o½∞ºoóaΓ∞ »epe¼e¡¡oe τ¿c½o »apa¼eΓpoó: ∙ ù¿c½o Σa¬Γ¿τec¬¿x »apa¼eΓpoó ño½ª¡o íδΓ∞ ¼e¡∞Φe ¿½¿ paó¡o τ¿c½π Σop¼a½∞¡δx »apa¼eΓpoó (ec½¿ óδºδóae¼a∩ »poµeñπpa ¡a»¿ca¡a ¡a ö«αΓαá¡Ñ ¿½¿ Åáß¬á½Ñ). Ha ö«αΓαá¡Ñ ¿ Åáß¬á½Ñ óoº¡¿¬aεΓ c½oª¡ocΓ¿ »p¿ paíoΓe c »apa- ¼eΓpa¼¿, ¬oΓopδe íδ½¿ Σop¼a½∞¡o ¡e o»peñe½e¡δ. Oñ¡a¬o, Bδ ¼oªeΓe ¿c»o½∞ºoóaΓ∞ aΓp¿íπΓ VARYING ñ½∩ »epeñaτ¿ Γex φ½e¼e¡Γoó, ¬oΓopδe o»¿ca¡δ. ∙ Bδ ño½ª¡δ ¿c»o½∞ºoóaΓ∞ C ¿ VARYING aΓp¿íπΓδ ó BaΦe¼ πΓóepªñe¡¿¿ INTERFACE ¡a ö«αΓαá¡Ñ, ¿½¿ ó o»¿ca¡¿¿ »poµeñπpe ¡a Åáß¬á½Ñ. AΓp¿íπΓ VARYING π¬aºδóaεΓ ¬o¼»¿½∩Γopπ ö«αΓαá¡á ¿½¿ Åáß¬á½∩ ¡e »poóep∩Γ∞ ío½∞Φe ¿½¿ ¼e¡∞Φe Σa¬Γ¿τec¬¿x »apa¼eΓpoó, τe¼ Σop¼a½∞¡δx »apa¼eΓpoó. Oñ¡a¬o, Σa¬Γ¿τec¬¿e »apa¼eΓpδ cooΓóeΓcΓóπεΘ¿e Σop¼a½∞- ¡δ¼ »apa¼eΓpa¼ íπñπΓ »poóep∩Γ∞c∩ ¡a coó¼ecΓ¿¼ocΓ∞ Γ¿»oó coú½ac¡o oíδτ¡δ¼ »paó¿½a¼ »poóep¬¿ oípaΘe¡¿⌐ ¬ »poµeñπpe. 4.COâïAÿEHêƒ Oü êäEHTêöêKATOPAX. Ec½¿ Bδ íπñeΓe c½eñoóaΓ∞ ñóπ¼ »paó¿½a¼ »p¿óeñe¡¡δ¼ ¡¿ªe, ¬o¼- »¿½∩Γopδ MC-Åáß¬á½∩, MC-C¿, MC-ö«αΓαá¡á íπñπΓ ¬oppe¬Γ¡o coú½aco- óδóaΓ∞ ¿¼e¡a. ∙ Ec½¿ Bδ ¿c»o½∞ºπeΓe »poµeñπpδ ¡a ö«αΓαá¡Ñ, ñ½¿¡a ócex ¿¡ñe¡Γ¿Σ¿- ¬aΓopoó (¿¼e¡) ño½ª¡a ¡e »peóδΦaΓ∞ 6 ½¿Γep. ∙ êºíeúa⌐Γe »o½∞ºoóaΓ∞c∩ ºaú½aó¡δ¼¿ ½¿Γepa¼¿ ó ¿ñe¡Γ¿Σ¿¬aΓopax C¿. Ec½¿ Bδ ño½ª¡δ oí∩ºaΓe½∞¡o ¿c»o½∞ºoóaΓ∞ ºaú½aó¡δe ½¿Γepδ, π¬aª¿Γe IGNORECASE ¿ ¡e ¿c»o½∞ºπ⌐Γe ñpπú¿e ¿ñe¡Γ¿Σ¿¬aΓopδ, ¿¼eεΘ¿e Γo ªe ¡a»¿ca¡¿e, ¬a¬ ºaú½aó¡δ⌐ ¿½¿ c¼eΦa¡¡δ⌐ C¿ ¿ñe¡- Γ¿Σ¿¬aΓop (Ha»p¿¼ep, ec½¿ ¿ñe¡Γ¿Σ¿¬aΓop C¿ AnEXAMPLE, ¡e ¿c- »o½∞ºπ⌐Γe anexample, ANEXAMPLE ¿½¿ AnExAmPLE ¬a¬ ¿ñe¡Γ¿Σ¿¬a- Γopδ). Ec½¿ Bδ óce-Γa¬¿ ¡e ¼oªeΓe c½eñoóaΓ∞ φΓ¿¼ »paó¿½a¼, Bδ ¼oªeΓe ó ¡e¬oΓopδx c½πτa∩x coú½acoóδóaΓ∞ ¿¼e¡a ca¼¿. OcΓaóΦa∩ τacΓ∞ ña¡- ¡oúo paºñe½a »ocó∩Θe¡a coú½aΦe¡¿∩¼ oí ¿ñe¡Γ¿Σ¿¬aΓopa¼ »o π¼o½τa¡¿ε ó ¬aªño¼ ∩ºδ¬e, ¿ ó½¿∩¡¿ε cooΓóeΓcΓóπεΘ¿x aΓp¿íπΓoó ¿ ¬½ετeóδx c½oó ¡a coú½aΦe¡¿∩ »o π¼o½τa¡¿ε. Bo ócex Γpex ∩ºδ¬ax, ¿¼e¡a ºa»¿cδóaεΓc∩ paº½¿τ¡o ó paíoτe¼ Σa⌐½e ¿ ó ¿cxoñ¡o¼ Σa⌐½e. CπΘecΓóπeΓ oΓ½¿τ¿e ó Γpex φ½e¼e¡Γax co- ú½aΦe¡¿∩ oí ¿ñe¡Γ¿Σ¿¬aΓopax. PAçMEP B ö«αΓαá¡Ñ ¿ Åáß¬á½Ñ, óce »po»¿c¡δe ½¿Γepδ, »peoípa- ºπεΓc∩ ó ºaú½aó¡δe »epeñ coºña¡¿e¼ paíoτeúo Σa⌐½a. Åo π¼o½τa¡¿ε φΓoúo ¡e »po¿cxoñ¿Γ c ¿ñe¡Γ¿Σ¿¬aΓopa¼¿ C¿, ¡o ¼oª¡o ºañaΓ∞, τΓoíδ óo ópe¼∩ peña¬Γ¿poóa¡¿∩ có∩ºe⌐ »po- ¿cxoñ¿½o ¿ú¡op¿poóa¡¿e paº¼epa ½¿Γep. äïêHA B ö«αΓαá¡Ñ, »o π¼o½τa¡¿ε, ¿¼e¡a ¼oúπΓ íδΓ∞ ¡e ío½∞Φe ΦecΓ¿ ½¿Γep. ÅOäùEPKêBAHêE B C¿, »epeñ «íΘ¿¼¿ ¿¼e¡a¼¿ óceúña cΓaó¿Γc∩ »oñτep¬ »epeñ ¿σ ó¬½ετÑ¡¿Ñ¼ ó «íΩÑ¬Γ¡δ⌐ Σa⌐½. ¥Γo paº½¿τ¿e ó coú½aΦe¡¿∩x oí ¿ñe¡Γ¿Σ¿¬aΓopax »p¿óoñ¿Γ ¬ Γo¼π, τΓo ¡a»¿ca¡¿e «íΘ¿σ c½oó ¡a ö«αΓαá¡Ñ ¿ Åáß¬á½Ñ »o π¼o½τa¡¿ε ¡e cooΓóeΓcΓóπeΓ ¡a»¿ca¡¿ε «íΘ¿σ ¿¼e¡ C¿ »o π¼o½τa¡¿ε. CπΘecΓóπεΓ aΓp¿íπΓδ ¿ ¬½ετeóδe c½oóa, »p¿ »o¼oΘ¿ ¬oΓopδx ¼oª¡o coú½acoóaΓ∞ ¿¼e¡a. Ec½¿ Bδ ºaña½¿ aΓp¿íπΓ C ñ½∩ ¿¼e¡¿ oíΘe⌐ ¿½¿ ó¡eΦ¡e⌐ »poµe- ñπpδ ¿½¿ oíΩe¬Γa ña¡¡δx ó Åáß¬á½Ñ ¿½¿ ¿¼e¡¿ »poµeñπpδ, ¿¡ΓepΣe⌐ca, ¿½¿ ¿¼e¡¡oóa¡¡oúo COMMON-í½o¬a ó ö«αΓαá¡Ñ, Γo φΓo ¿¼∩ »peoípaºπeΓc∩ ó »po»¿c¡oe c »p¿íaó½e¡¿e¼ »oñτep¬a ¬ ¡aτa½π ¿¼e¡¿. êñe¡Γ¿Σ¿¬aΓopδ ö«αΓαá¡á íπñπΓ »o »peª¡e¼π oúpa¡¿τe¡δ 6 ½¿Γepa¼¿. ùΓoíδ ºañaΓ∞ ío½ee ñ½¿¡oe ¿¼∩, ¿½¿ τΓoíδ ºañaΓ∞ ó¡eΦ¡¿e C¿ »poµeñπpδ, ¿¼eεΘ¿e ºaú½aó¡δe ½¿Γepδ ó cóo¿x ¿ñe¡Γ¿Σ¿¬aΓopax, Bδ ¼oªeΓe ¿c»o½∞ºoóaΓ∞ ALIAS ó öOPTPAHE. Boφ¼oª¡ocΓ¿ ALIAS, ¡eΓ ó ÅACKAïE; ccδ½aΓ∞c∩ ¡a oíΩe¬Γ ó Cê c ºaú½aó¡δ¼¿ ½¿Γepa¼¿ ó ¿ñe¡Γ¿Σ¿¬aΓope, ¼oª¡o ºañaó aΓp¿íπΓ IGNORECASE, »p¿ φΓo¼ óce BaΦe ¿ñe¡Γ¿Σ¿¬aΓopδ ¡a Cê ño½ª¡δ ¿¼eΓ∞ paº½¿τ¡oe ¡a»¿ca¡¿e. àß½¿ ó æ¿ éδ ¿ß»«½∞ºπÑΓÑ ¬½ετÑóδÑ ß½«óá ö«αΓαá¡á ¿½¿ Åáß¬á½∩, Γ« ¿¼∩ íπñÑΓ ß«ñÑαªáΓ∞ Γ«½∞¬« í«½∞Φ¿Ñ íπ¬óδ ¿ »«ñτÑα¬ íπñÑΓ ¿ºΩ∩Γ. éßÑ Γá¬¿Ñ ¿¼Ñ¡á ñ«½ª¡δ ¿¼ÑΓ∞ «ñ¿¡á¬«óδ⌐ ó¿ñ. ça¼eΓ¿¼, τΓo ó ö«αΓαá¡Ñ, ec½¿ INTERFACE ¿ »oñ»poúpa¼¼a ¡a ¬oΓopπε ccδ½aeΓc∩ INTERFACE ¡axoñ∩Γc∩ ó oñ¡o¼ ¼oñπ½e ¬o¼»¿½∩µ¿¿, oñ¡¿ ¿ Γe ªe ¿ñe¡Γ¿Σ¿¬aΓopδ ñ½∩ »apa¼eΓpoó ño½ª¡δ íδΓ∞ ¿c»o½∞ºoóa¡δ Γa¼ ¿ Γa¼. Åp¿ ¡apπΦe¡¿¿ φΓoúo »paó¿½a íπñeΓ óδña¡a oΦ¿í¬a 87. 5.COçäAHêE êHTEPöEëCOB HA öOPTPAHE äïƒ ÅACKAïƒ ê Cê ä½∩ o»¿ca¡¿∩ ó¡eΦ¡¿x »poµeñπp ¡a C¿ ¿½¿ Åáß¬á½Ñ ó MC-ö«αΓαá¡Ñ óóeñe¡o πΓóepªñe¡¿e INTERFACE. Ha»p¿¼ep, »peñ»o½oª¿¼, τΓo Bδ xoΓ¿Γe oípaΓ¿Γ∞c∩ ¬ »poµeñπpe time ¿º í¿í½¿oΓe¬¿ C¿. Tp¿ φΓa»a coºña¡¿∩ ¿¡ΓepΣe⌐ca: 1. Ha⌐Γ¿ o»¿ca¡¿e »poµeñπpδ ¡a C¿ 2. CoºñaΓ∞ ¼oñπ½∞ INTERFACE. O»peñe½¿Γ∞ aΓp¿íπΓδ ¿ Γ¿» ñ½∩ »poµeñπpδ O»peñe½¿Γ∞ aΓp¿íπΓδ ¿ Γ¿» ñ½∩ »apa¼eΓpoó 3. äoíaó¿Γ∞ ¼oñπ½∞ INTERFACE ¬ »poúpa¼¼e. Åoc½eñ¡¿⌐ Φaú, oípaΘe¡¿e ¬ »poµeñπpe ¡a C¿, o»¿cδóaeΓc∩ ó c½eñπεΘe¼ paºñe½e. ä½∩ »p¿¼epa, pacc¼oΓp¿¼ o»¿ca¡¿e C¿-»poµeñπpδ time: long time (tloc); long *tloc Åepóδ⌐ Φaú ó coºña¡¿¿ INTERFACE φΓo o»peñe½¿Γ, ¬a¬¿e aΓp¿íπΓδ ¿ Γ¿»δ ¿c»o½∞ºoóaΓ∞ ñ½∩ φΓo⌐ »poµeñπpδ. C¡aτa½a o»peñe½¿¼, ¬a¬o⌐ Γ¿» ö«αΓαá¡á ∩ó½∩eΓc∩ φ¬ó¿óa½e¡Γo¼ Γ¿»π »poµeñπpδ time. Åepóoe c½oóo ó o»¿ca¡¿¿ C¿-»poµeñπpδ, long time. Oº¡a¬o¼¿óΦ¿c∞ c paºñe½o¼ "ûe½δe: 4-í¿Γa, co º¡a¬o¼" ó Γaí½¿µe 7-5, Bδ ¡a⌐ñeΓe, τΓo φ¬ó¿óa- ½e¡Γo¼ Γ¿»π long ó C¿ ∩ó½∩eΓc∩ ó ö«αΓαá¡Ñ INTEGER*4. ç¡a∩ φΓo, ¼oª¡o ¡a»¿caΓ∞: INTERFACE TO INTEGER*4 FUNCTION TIME Bo-óΓopδx, peΦ¿¼ ¬a¬oe coú½aΦe¡¿e o »epeñaτe ña¡¡δx ¿c»o½∞- ºoóaΓ∞. Ta¬ ¬a¬ Bδ ¡e ¼oªeΓe ¿º¼e¡¿Γ∞ C¿-»poµeñπpπ, Bδ ño½ª¡δ ¿c- »o½∞ºoóaΓ∞ »p¿¡∩Γoe ó ¡e⌐ coú½aΦe¡¿e. ä½∩ ºaña¡¿∩ coú½aΦe¡¿∩ C¿, ¿c»o½∞ºπ⌐Γe C aΓp¿íπΓ: INTERFACE TO INTEGER*4 FUNCTION TIME[C] Te»ep∞, o»peñe½¿¼ aΓp¿íπΓδ ¿ Γ¿»δ ña¡¡δx ñ½∩ »apa¼eΓpoó. B ña¡¡o¼ c½πτae óceúo oñ¿¡ »apa¼eΓp, tloc.Bδ ¼oªeΓe ¡a»¿caΓ∞: INTERFACE TO INTEGER*4 FUNCTION TIME[C] (TLOC) Oñ¡a¬o, ºa¼eΓ¿¼, τΓo óo óΓopo⌐ cΓpo¬e o»¿ca¡¿∩ »poµeñπpδ C¿, »epeñ tloc cΓo¿Γ ºóeºñoτ¬a "*", π¬aºδóa∩ τΓo »epeñaeΓc∩ π¬aºaΓe½∞. Bδ ¼oªeΓe »epeñaóaΓ∞ π¬aºaΓe½∞ ¿º ö«αΓαá¡á ¿c»o½∞ºπ∩ ócΓpoe¡¡δe Σπ¡¬- µ¿¿ LOCFAR ¿½¿ LOC, ¿½¿ Bδ ¼oªeΓe »epeñaóaΓ∞ ca¼ apúπ¼e¡Γ ccδ½¬o⌐. Åpeñ»o½oª¿¼, Ba¼ ºaxoτ¿Γc∩ »epeñaΓ∞ »apa¼eΓp ccδ½¬o⌐. B ö«αΓαá¡Ñ »o π¼o½τa¡¿ε »apa¼eΓpδ »epeñaεΓc∩ ccδ½¬o⌐, ¡o »poµeñπpa ó πΓóepª- ñe¡¿¿ INTERFACE o»peñe½e¡a c aΓp¿íπΓo¼ C, »oφΓo¼π TLOC íπñeΓ »o π¼o½τa¡¿ε »epeñaóaΓ∞c∩ º¡aτe¡¿∩¼. ùΓoíδ ¡aº¡aτ¿Γ∞ »epeñaτπ ccδ½¬o⌐ ¡año ñoíaó¿Γ∞ REFERENCE aΓp¿íπΓ: INTERFACE TO INTEGER*4 FUNCTION TIME[C] (TLOC[REFERENCE]) T¿» »apa¼eΓpa π¬aºa¡ »epóδ¼ c½oóo¼ óo óΓopo⌐ cΓpo¬e o»¿ca¡¿∩ »po- µeñπpδ C¿, long *tloc. Ta¬, ¬a¬ ¼δ πªe óδ∩c¡¿½¿, τΓo Γ¿» ö«αΓαá¡á INTEGER*4 φ¬ó¿óa½e¡Γ long Γ¿»π C¿, ¼oª¡o ¡a»¿caΓ∞: INTERFACE TO INTEGER*4 FUNCTION TIME[C] *(TLOC[REFERENCE]) INTEGER*4 TLOC END Åpeñ»o½oª¿¼, Bδ ºaxoΓe½¿ »epeñaΓ∞ π¬aºaΓe½∞ ¡a »apa¼eΓp, ó¼ecΓo »epeñaτ¿ »apa¼eΓpa ccδ½¬o⌐. ô¬aºaΓe½∞ »epeñaeΓc∩ º¡aτe¡¿e¼, »oφΓo¼π ¡e ¡año ¡aº¡aτaΓ∞ REFERENCE aΓp¿íπΓ. Ta¬ ¬a¬ π¬aºaΓe½¿ ¿¼eεΓ 4- ía⌐Γoóδe añpeca peºπ½∞ΓaΓo¼ LOC íπñeΓ 4-ía⌐Γoóoe µe½oe, ¿ Bδ ¼oªeΓe o»¿caΓ∞ »apa¼eΓp TLOC, ¬a¬ 4-ía⌐Γoóoe µe½oe: INTERFACE TO INTEGER*4 FUNCTION TIME[C] (TLOC) INTEGER*4 TLOC END TpeΓ¿⌐ Φaú, ñoíaó½e¡¿e ¼oñπ½∩ INTERFACE ¬ oc¡oó¡o⌐ »poúpa¼¼e, oñ¿¡a¬oó ñ½∩ oío¿x c½πτaeó. Åo½oªe¡¿e ¼oñπ½∩ INTERFACE »epeñ ½εíδ¼¿ oípaΘe¡¿∩¼¿ ¬ o»¿ca¡¡o⌐ ó ¡e¼ »poµeñπpe ∩ó½∩eΓc∩ eñ¿¡cΓóe¡¡δ¼ oúpa- ¡¿τe¡¿e¼. Oíδτ¡o óce ¼oñπ½¿ INTERFACE cΓaó∩Γc∩ ó ¡aτa½e í½o¬a ¬o¼- »¿½∩µ¿¿. Åoc½eñ¡¿⌐ φΓa», oípaΘe¡¿e ¬ »poµeñπpe, oΓ½¿τe¡ ñ½∩ c½πτaeó REFERENCE ¿ π¬aºaΓe½∩. ¥Γo pacc¼aΓp¿óaeΓc∩ ó c½eñπεΘe¼ paºñe½e. 6.OüPAÖEHêE K ÅPOûEäôPAM HA ÅACKAïE ê Cê êç öOPTPAHA. Koúña Bδ o»¿ca½¿ »poµeñπpπ, Bδ ¼oªeΓe óδºδóaΓ∞ ee ¿º BaΦe⌐ »poúpa¼¼δ, Γa¬ ªe ¬a¬ ¿ »poµeñπpδ ¡a»¿ca¡¡δe ¡a ∩ºδ¬e oc¡oó¡o⌐ »poúpa¼¼δ. ça¼eΓ∞Γe, τΓo »p¿ oípaΘe¡¿¿ ¿º ö«αΓαá¡á, Bδ ño½ª¡δ óceú- ña o»¿cδóaΓ∞ »poµeñπpδ ó »poúpa¼¡δx ¼oñπ½∩x, úñe ¿¼¿ »o½∞ºπeΓec∞. ä½∩ »p¿¼epa o»¿ca¡¡oúo ó »peñδñπΘe¼ paºñe½e, ¡aτa½o óδºδóaεΘe⌐ »poµeñπpδ ¼oªeΓ óδú½∩ñeΓ∞ Γa¬: SUBROUTINE CLOCK INTEGER*4 TIME INTEGER*4 TLOC He ºaíδóa⌐Γe o»¿cδóaΓ∞ »poµeñπpπ, ¬a¬ ó cΓpo¬e INTEGER*4 TIME. Ec½¿ Bδ »epeñaeΓe TLOC ccδ½¬o⌐, Bδ ¼oªeΓe ºa¬o¡τ¿Γ∞ óδºδóaεΘ¿⌐ ¼oñπ½∞ Γa¬: SUBROUTINE CLOCK INTEGER*4 TIME INTEGER*4 TLOC WRITE(*,*) TIME(TLOC) END Ec½¿ Bδ »epeñaeΓe π¬aºaΓe½∞, BaΦa »poµeñπpa íπñeΓ Γa¬o⌐: SUBROUTINE CLOCK INTEGER*4 TIME INTEGER*4 TLOC WRITE(*,*) TIME(LOC(TLOC)) END Bδ ¼oªeΓe ºa¼e¡¿Γ∞ LOC Σπ¡¬µ¿ε ¡a Σπ¡¬µ¿ε LOCFAR; ñ½∩ ña¡¡oúo c½πτa∩, ¿x ñe⌐cΓó¿∩ ¿ñe¡Γ¿τ¡δ. ça¼eΓ¿¼, τΓo ec½¿ íδ time ∩ó½∩½ac∞ »oñ»poúpa¼¼o⌐ ó¼ecΓo Σπ¡¬- µ¿¿, Bδ ño½ª¡δ íδ½¿ ¬ ¡e⌐ oípaΓ¿Γ∞c∩ c »o¼oΘ∞ε o»epaΓopa ö«αΓαá¡á CALL. 7.TêÅ¢ äAHH¢X Kaªñδ⌐ ∩ºδ¬, ö«αΓαá¡, Åáß¬á½∞ ¿ C¿ ¿¼eεΓ ¡ec¬o½∞¬o Γ¿»oó ña¡- ¡δx. He¬oΓopδe ¿º ¡¿x »o½¡ocΓ∞ε coó¼ecΓ¿¼δ; ñpπú¿e ΓpeíπεΓ »peoí- paºoóa¡¿∩ »p¿ »epexoñe oΓ oñ¡oúo ∩ºδ¬a ¬ ñpπúo¼π. B c½eñπεΘ¿x paº- ñe½ax o»¿cδóaεΓc∩ Γ¿»δ ña¡¡δx ¿ ¿x oΓ½¿τ¿e ó paº¡δx ∩ºδ¬ax. B Γaí- ½¿µax 7-5 - 7-14 o»¿ca¡a φ¬ó¿óa½e¡Γ¡ocΓ∞ Γ¿»oó ña¡¡δx. 7.1.êc»o½∞ºoóa¡¿e Γaí½¿µ φ¬ó¿óa½e¡Γ¡δx Γ¿»oó ña¡¡δx. Åp¿ »epeñaτe »apa¼eΓpoó Bδ ño½ª¡δ »o½∞ºoóaΓ∞c∩ Γaí½¿µa¼¿ 7-5 - 7-14 coó¼ecΓ¡o c Γaí½¿µa¼¿ 7-2 - 7-4. Ha»p¿¼ep, Bδ xoΓ¿Γe »epeñaΓ∞ »epe¼e¡¡πε Γ¿»a INTEGER*2 ¿º ö«αΓαá¡á ó C¿. Bo-»epóδx Bδ ño½ª¡δ óδípaΓ∞ coú½aΦe¡¿e o »epeñaτe »apa¼eΓpoó (C¼oΓp¿Γe paºñe½ "Bδíop coú½aΦe¡¿∩ o »epeñaτe »apa¼eΓpoó"). Åpeñ- »o½oª¿¼, τΓo Bδ óδípa½¿ coú½aΦe¡¿e C¿. B φΓo¼ c½πτae ¿c»o½∞ºπ⌐Γe Γaí½¿µπ 7-2 "Åepeñaτa »apa¼eΓpoó »p¿ coú½aΦe¡¿¿ C¿." Bo-óΓopδx, peΦ¿¼ »epeñaóaΓ∞ »apa¼eΓpδ ¿½¿ ccδ½¬o⌐ ¿½¿ º¡aτe- ¡¿e¼, ¿c»o½∞ºπ∩ ¬opoΓ¬¿⌐ añpec. Taí½¿µa 7-2 oíΩ∩c¡∩eΓ, ¬a¬ ¿c»o½∞- ºoóaΓ∞ aΓp¿íπΓδ REFERENCE ¿ NEAR ó ö«αΓαá¡Ñ, ¿ π¬aºaΓe½∞ near cooΓóeΓcΓóπεΘeúo Γ¿»a ó C¿. B-ΓpeΓ∞¿x, Bδ ño½ª¡δ o»peñe½¿Γ∞, ¬a¬o⌐ Γ¿» ña¡¡δx ó C¿ φ¬ó¿- óa½e¡Γe¡ Γ¿»π INTEGER*2 ó ö«αΓαá¡Ñ. Ha⌐ñ¿Γe ó Γaí½¿µe, o»¿cδóaεΘe⌐ µe½δe τ¿c½a ( Taí½¿µa 7-5) paºñe½ INTEGER*2. çaΓe¼ ¡a⌐ñ¿Γe cooΓ- óeΓcΓóπεΘ¿⌐ paºñe½ ñ½∩ C¿. Bδ ¼oªeΓe óδípaΓ∞ Γ¿»δ ¿½¿ short ¿½¿ int (¡o ó ¬o½o¡¬e "Åp¿¼eτa¡¿e" π¬aºa¡o, τΓo Γ¿» int ºaó¿c¿Γ oΓ ¼oñe½¿ ¥BM). ä½∩ ¼a¬c¿¼a½∞¡o⌐ coó¼ecΓ¿¼ocΓ¿, óδí¿pae¼ short Γ¿» C¿. Ha¬o¡eµ, »p¿coeñ¿¡¿¼ aΓp¿íπΓδ ¿ ¬½ετeóδe c½oóa ¬ Γ¿»π ña¡¡δx ó o»epaΓope INTERFACE ö«αΓαá¡á o»¿ca¡¡o¼π c aΓp¿íπΓo¼ C. INTEGER*2 X [REFERENCE, NEAR] ¥Γo φ¬ó¿óa½e¡Γ¡o o»¿ca¡¿ε »apa¼eΓpa C¿: short near *x ça¼eΓ¿¼, τΓo ¿c»o½∞ºoóa¡¿e »apa¼eΓpa c REFERENCE ó ö«αΓαá¡Ñ có∩ºa¡o c ¿c»o½∞ºoóa¡¿e¼ Γ¿»a ccδ½¬a ó C¿. 7.2.äa¡¡δe µe½oúo Γ¿»a. B C¿, ½εíδe µe½δe »apa¼eΓpδ ¬opoτe τe¼ int (¡a»p¿¼ep, ¬a¬ char) »peoípaºπεΓc∩ ¬ Γ¿»π int »epeñ »epeñaτe⌐ º¡aτe¡¿e¼. ûe½δe íeº º¡a¬a ¼e¡∞Φe τe¼ unsigned int (¡a»p¿¼ep ¬a¬ unsigned char) »peoípaºπεΓc∩ ¬ Γ¿»π unsigned int. CπΘecΓóπεΓ ñóa c»ocoía úapa¡Γ¿poóaΓ∞ »paó¿½∞¡ocΓ∞ paíoΓδ c »apa¼eΓpa¼¿ µe½oúo Γ¿»a »p¿ oípaΘe¡¿¿ ¿º ö«αΓαá¡á ¿½¿ Åáß¬á½∩ ¬ C¿: 1. Bδ ¼oªeΓe πτ¿ΓδóaΓ∞ C¿-»peoípaºoóa¡¿∩, »p¿ o»¿ca¡¿¿ »apa¼eΓpoó ó »poµeñπpe ö«αΓαá¡á ¿½¿ Åáß¬á½∩. Ha»p¿¼ep, ¼oª¡o »p¿ o»¿ca¡¿¿ ócex µe½δx »apa¼eΓpoó ºañaΓ∞ π ¡¿x ñ½¿¡π cooΓóeΓcΓóπεΘπε ó C¿ Γ¿»a¼ int ¿½¿ long int. 2. Bδ ¼oªeΓe »epeñaóaΓ∞ π¬aºaΓe½¿ ¡a »apa¼eΓpδ ó¼ecΓo ¿x º¡aτe¡¿⌐ (»epeñaεΘ¿xc∩ ccδ½¬o⌐). B »poúpa¼¼ax ¡a ö«αΓαá¡Ñ ¿½¿ Åáß¬á½Ñ, o»¿cδóa⌐Γe »epeñaεΘ¿ec∩ »apa¼eΓpδ ¬a¬ π¬aºaΓe½∞ cooΓóeΓcΓ- óπεΘeúo Γ¿»a, ºaΓe¼ ¿c»o½∞ºπ⌐Γe ee ñ½∩ ¬ocóe¡¡o⌐ »epeñaτ¿ º¡aτe¡¿∩. ça¼eΓ¿¼, τΓo ó C¿ Γ¿» int ºaó¿c¿Γ oΓ Γ¿»a ¼aΦ¿¡δ. ä½∩ ce¼e⌐- cΓóa 8086 ¼¿¬po»poµecopoó, Γ¿» int ∩ó½∩eΓc∩ φ¬ó¿óa½e¡Γo¼ c½eñπεΘ¿x Γ¿»oó: ∙ INTEGER2 ó Åáß¬á½Ñ ∙ INTEGER*2 ó ö«αΓαá¡Ñ ∙ INTEGERC ó Åáß¬á½Ñ ∙ INTEGER[C] ó ö«αΓαá¡Ñ ä½∩ ½εíoúo »poµeccopa ¿ o»epaµ¿o¡¡o⌐ c¿cΓe¼δ, »epe¼e¡¡δe c »oc½eñ¡¿¼¿ ñóπ¼∩ Γ¿»a¼¿ φ¬ó¿óa½e¡Γ¡δ »epe¼e¡¡δ¼ C¿ Γ¿»a int πcΓa- ¡oó½e¡¡oúo ñ½∩ ña¡¡o⌐ c¿cΓe¼δ (Åoc½eñ¡¿e ñóa Γ¿»a ío½ee »epe¡oc¿¼δ, τe¼ »epóδe ñóa). Taí½¿µa 7-5 o»¿cδóaeΓ ña¡¡δe µe½oúo Γ¿»a ¿ φ¬ó¿- óa½e¡Γ¡δe ¿¼ Γ¿»δ ó Åáß¬á½Ñ, C¿ ¿ ö«αΓαá¡Ñ. ┌─────────────────────────────────────────────────────────────┐ │ ûEï¢E: 2 üAëTA, üEç çHAKA │ ├─────────────────┬─────────────────────┬─────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├─────────────────┼─────────────────────┼─────────────────────┤ │ │ x:word │ │ │ ├─────────────────────┼─────────────────────┤ │ Åáß¬á½∞ │ x:wrd(a)..wrd(b) │ ñ½∩ ó > 255 │ │ ├─────────────────────┼─────────────────────┤ │ │ x:(a,b,...n) │ ñ½∩ ord(n) > 255 │ ├─────────────────┼─────────────────────┼─────────────────────┤ │ │ unsigned short x │ │ │ C¿ ├─────────────────────┼─────────────────────┤ │ │ unsigned int x │ ºaó¿c¿Γ oΓ Γ¿»a │ │ │ │ ¼aΦ¿¡δ │ ├─────────────────┼─────────────────────┼─────────────────────┤ │ │ │ öopΓpa¡ ¡e ¿¼eeΓ Γ¿ │ │ │ │ »oó "íeº º¡a¬a", óδ │ │ │ │ ño½ª¡δ ¿c»o½∞ºoóaΓ∞ │ │ │ │ Γ¿» INTEGER*2.He │ │ │ │ »epeñaóa⌐Γe oΓp¿µa │ │ ö«αΓαá¡ │ INTEGER*2 X │ Γe½∞¡δe º¡aτe¡¿∩ ¿½¿│ │ │ │ º¡aτe¡¿∩ ío½∞Φe τe¼ │ │ │ │ 32767.ça¼eΓ∞Γe, τΓo │ │ │ │ co º¡aτe¡¿∩¼¿ Γ¿»a │ │ │ │ INTEGER*2, ¼oª¡o │ │ │ │ »po¿ºóoñ¿Γ∞ ¼¡oúo │ │ │ │ o»epaµ¿⌐, ¡e ¼e¡∩∩ │ │ │ │ º¡a¬a. │ └─────────────────┴─────────────────────┴─────────────────────┘ ┌─────────────────────────────────────────────────────────────┐ │ ûEï¢E : 1 üAëT, CO çHAKOM │ ├─────────────────┬─────────────────────┬─────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├─────────────────┼─────────────────────┼─────────────────────┤ │ │ x:sint │ │ │ Åáß¬á½∞ ├─────────────────────┼─────────────────────┤ │ │ :a...b │ ñ½∩ a >= -127 │ │ │ │ │ │ │ │ ñ½∩ b <= 127 │ ├─────────────────┼─────────────────────┼─────────────────────┤ │ │ charx │ »p¿ »epeñaτe │ │ │ │ ccδ½¬o⌐ │ │ C¿ ├─────────────────────┼─────────────────────┤ │ │ struct { │ »p¿ »epeñaτe │ │ │ char x ;} x │ º¡aτe¡¿e¼ │ ├─────────────────┼─────────────────────┼─────────────────────┤ │ ö«αΓαá¡ │ ¡eΓ │ │ └─────────────────┴─────────────────────┴─────────────────────┘ ┌─────────────────────────────────────────────────────────────┐ │ ûEï¢E ; 1 üAëT, üEç çHAKA │ ├─────────────────┬─────────────────────┬─────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├─────────────────┼─────────────────────┼─────────────────────┤ │ │ x: byte │ │ │ ├─────────────────────┼─────────────────────┤ │ │ x: wrd(a)...(b) │ ñ½∩ 0 < a < b │ │ Åáß¬á½∞ │ │ ñ½∩ b < 255 │ │ ├─────────────────────┼─────────────────────┤ │ │ x: (0, b...n) │ ñ½∩ │ │ │ │ ord (n)< 256 │ ├─────────────────┼─────────────────────┼─────────────────────┤ │ │ unsigned charx │ »p¿ »epeñaτe ccδ½¬o⌐│ │ C¿ ├─────────────────────┼─────────────────────┤ │ │ struct { │ »p¿ »epeñaτe │ │ │ unsigned charx ;} │ º¡aτe¡¿e¼ │ ├─────────────────┼─────────────────────┼─────────────────────┤ │ │ │ B ö«αΓαá¡Ñ ¡eΓ Γ¿»a │ │ │ │ "íeº º¡a¬a", óδ ¼o │ │ │ │ ª¿Γe ¿c»o½∞ºoóaΓ∞ │ │ │ │ CHARACTER *1, ¿c»o½∞│ │ ö«αΓαá¡ │ CHARACTER*1 X │ ºπ∩ Σπ¡¬µ¿¿ ICHAR ¿ │ │ │ │ CHAR ñ½∩ »peoípaºoóa│ │ │ │ ¡¿∩ º¡aτe¡¿⌐.He »epe│ │ │ │ ñaóa⌐Γe oΓp¿µaΓe½∞ │ │ │ │ ¡δe º¡aτe¡¿∩. │ │ │ │ │ └─────────────────┴─────────────────────┴─────────────────────┘ ┌─────────────────────────────────────────────────────────────┐ │ ûEï¢E : 2 üAëTA CO çHAKOM │ ├──────────────────┬─────────────────────┬────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├──────────────────┼─────────────────────┼────────────────────┤ │ │ x:integer2 │ │ │ ├─────────────────────┼────────────────────┤ │ │ x:inegerc │ │ │ Åáß¬á½∞ ├─────────────────────┼────────────────────┤ │ │ │ ec½¿ │ │ │ x: integer │ $integer:2 │ │ │ │ (»o π¼o½τa¡¿ε) │ ├──────────────────┼─────────────────────┼────────────────────┤ │ C¿ │ short x │ ºaó¿c¿Γ oΓ Γ¿»a │ │ │ int x │ ¼aΦ¿¡δ │ ├──────────────────┼─────────────────────┼────────────────────┤ │ │ INTEGER*2 X │ │ │ ├─────────────────────┼────────────────────┤ │ ö«αΓαá¡ │ INTEGER[C] X │ │ │ ├─────────────────────┼────────────────────┤ │ │ INTEGER X │ ec½¿ $STORAGE:2 │ └──────────────────┴─────────────────────┴────────────────────┘ ┌─────────────────────────────────────────────────────────────┐ │ ûEï¢E : 4 üAëTA, CO çHAKOM │ ├───────────────────┬────────────────────┬────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├───────────────────┼────────────────────┼────────────────────┤ │ │ x:integer4 │ │ │ Åáß¬á½∞ ├────────────────────┼────────────────────┤ │ │ x:integer │ ec½¿ $integer:4 │ ├───────────────────┼────────────────────┼────────────────────┤ │ C¿ │ long x │ │ ├───────────────────┼────────────────────┼────────────────────┤ │ │ INTEGER*4 X │ │ │ ├────────────────────┼────────────────────┤ │ ö«αΓαá¡ │ │ ec½¿ │ │ │ INTEGER X │ $STORAGE:4 │ │ │ │ (»o π¼o½τa¡¿ε) │ └───────────────────┴────────────────────┴────────────────────┘ TAüïêûA 7-5 : ¥¬ó¿óa½e¡Γ¡δe Γ¿»δ ña¡¡δx. B C¿ Γa¬ªe cπΘecΓóπeΓ Γ¿» µe½δe: 4-ía⌐Γa, íeº º¡a¬a, ó ö«αΓ- αá¡Ñ ¿ Åáß¬á½Ñ Γa¬oúo Γ¿»a ¡eΓ. Oñ¡a¬o, ¼¡oúo ap¿Σ¼eΓ¿τec¬¿x o»epaµ¿⌐, ¡e πτ¿ΓδóaεΘ¿x º¡a¬, ¼oúπΓ íδΓ∞ »po¿ºóeñe¡δ ¡añ »epe¼e¡- ¡δ¼¿ co º¡a¬o¼ c »o½πτe¡¿e¼ »paó¿½∞¡oúo peºπ½∞ΓaΓa. ¥Γoúo ¼oªeΓ íδΓ∞ ñocΓaΓoτ¡o ñ½∩ »epeñaτ¿ »apa¼eΓpoó ó ¡e¬oΓopδx c½πτa∩x. 7.3.üπ½eóc¬¿⌐ ¿ c¿¼óo½∞¡δ⌐ Γ¿»δ ña¡¡δx. ä½∩ Åáß¬á½∩, º¡aτe¡¿e üπ½eóc¬o⌐ »epe¼e¡¡o⌐ "1" oº¡aτaeΓ ¿c- Γ¿¡¡o, "0" oº¡aτaeΓ ½oª∞. B Γaí½¿µe 7-6 o»¿ca¡o, φ¬ó¿óa½e¡Γ¡δe íπ½eóc¬¿e ¿ c¿¼óo½∞¡δe Γ¿»δ ó Åáß¬á½Ñ, C¿ ¿ ö«αΓαá¡Ñ. ┌──────────────────────────────────────────────────────────────┐ │ üôïEBCKêë TêÅ. │ ├────────────────┬───────────────────────┬─────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├────────────────┼───────────────────────┼─────────────────────┤ │ Åáß¬á½∞ │ x: boolean │ │ ├────────────────┼───────────────────────┼─────────────────────┤ │ C¿ │ unsigned char x │ │ ├────────────────┼───────────────────────┼─────────────────────┤ │ │ │ êc»o½∞ºπεΓc∩, ¬a¬ │ │ │ │ µe½δe: oñ¿¡ ía⌐Γ, │ │ │ │ íeº º¡a¬a; 1- ½oª∞, │ │ ö«αΓαá¡ │ CHARACTER*1 X │ 0- ¿cΓ¿¡¡o │ │ │ │ │ │ │ │ T¿» ö«αΓαá¡á │ │ │ │ LOGIGAL ¡e ¿¼eeΓ │ │ │ │ φ¬ó¿óa½e¡Γoó. │ │ │ │ c¼oΓp¿Γe Γaí½¿µπ │ │ │ │ 7-14. │ └────────────────┴───────────────────────┴─────────────────────┘ ┌──────────────────────────────────────────────────────────────┐ │ CêMBOï£H¢ë TêÅ │ ├────────────────┬───────────────────────┬─────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├────────────────┼───────────────────────┼─────────────────────┤ │ Åáß¬á½∞ │ x:char │ │ ├────────────────┼───────────────────────┼─────────────────────┤ │ C¿ │ unsigned char x │ │ ├────────────────┼───────────────────────┼─────────────────────┤ │ ö«αΓαá¡ │ CHARACTER X │ │ └────────────────┴───────────────────────┴─────────────────────┘ Taí½¿µa 7-6. ¥¬ó¿óa½e¡Γ¡δe Γ¿»δ ña¡¡δx üπ½eóc¬¿e ¿ C¿¼óo½∞¡δe. 7.4.äe⌐cΓó¿Γe½∞¡δe τ¿c½a. C¿ »epeñaeΓ óce ñe⌐cΓó¿Γe½∞¡δe »apa¼eΓpδ º¡aτe¡¿e¼ óe½¿τ¿¡δ ñóo⌐¡o⌐ Γoτ¡ocΓ¿. ùΓoíδ »epeñaτa »apa¼eΓpoó c ö«αΓαá¡á ¿ Åáß¬á½∩ ó C¿ íδ½a ¬oppe¬Γ¡a, ¿¼eεΓc∩ Γp¿ óoº¼oª¡ocΓ¿: 1. Bδ ¼oªeΓe »peñπc¼oΓpeΓ∞ C¿ - »peoípaºoóa¡¿∩ »p¿ o»¿ca¡¿¿ »apa- ¼eΓpoó ó »poµeñπpax ¡a ö«αΓαá¡Ñ ¿½¿ Åáß¬á½Ñ. Bδ ño½ª¡δ o»¿caΓ∞ óce »apa¼eΓpδ c »½aóaεΘe⌐ Γoτ¬o⌐, ¬a¬ »apa¼eΓpδ c ñóo⌐¡o⌐ Γoτ¡ocΓ∞ε (REAL*8 ó ö«αΓαá¡Ñ, real8 ó Åáß¬á½Ñ) ¿ π¬aºaΓ∞ c»e- µ¿Σ¿¬aµ¿ε aΓp¿íπΓ VALUE ó ö«αΓαá¡Ñ. 2. Bδ ¼oªeΓe »epeñaóaΓ∞ π¬aºaΓe½¿ ¡a »apa¼eΓpδ ó¼ecΓo ca¼¿x º¡aτe¡¿⌐. B »poúpa¼¼e ¡a ö«αΓαá¡Ñ ¿½¿ Åáß¬á½Ñ, o»¿Φ¿Γe »epe- ñaóae¼δe »apa¼eΓpδ, ¬a¬ π¬aºaΓe½¿ ¡a cooΓóeΓcΓóπεΘ¿⌐ Γ¿», ºaΓe¼ ó óδºδóae¼o⌐ »poµeñπpe »o π¬aºaΓe½ε ¡axoñ¿Γe º¡eτe¡¿e »apa¼eΓpa. 3. Ec½¿ Bδ »poΓ¿ó »o¼eΘe¡¿∩ óe½¿τ¿¡δ c »½aóaεΘe⌐ Γoτ¬o⌐ ó ñóo⌐¡πε, Bδ ¼oªeΓe »epeñaóaΓ∞ óe½¿τ¿¡π ¬a¬ cΓpπ¬Γπpπ. ¥½e¼e¡Γδ cΓpπ¬Γπpδ ¡e »oñóepúaεΓc∩ ¿º¼e¡e¡¿ε Γ¿»a, »p¿ »epeñaτ¿ cΓpπ¬- Γπpδ ¬a¬ »apa¼eΓpa. Ha»p¿¼ep, o»¿ca¡¿e: struct fptupe [float a;] arg; «»peñe½∩eΓ cΓpπ¬Γπp¡πε »epe¼e¡¡πε arg, c oñ¡¿¼ φ½e¼e¡Γo¼ Γ¿»a »½aóaεΘe⌐ Γoτ¬¿. CΓpπ¬Γπp¡a∩ »epe¼e¡¡a∩ arg ¼oªeΓ ºaΓe¼ íδΓ∞ »epeña¡a ¬a¬ »apa¼eΓp. Åepeñaτa Γa¬o⌐ struct, ¬a¬ »apa¼eΓpa ó C¿ φ¬ó¿óa½e¡Γ¡a »epeñaτe REAL*4 ó ö«αΓαá¡Ñ (oΓ½¿τ¿e ó Γo¼, τΓo ó ö«αΓαá¡Ñ »po¿cxoñ¿Γ »epeñaτa ccδ½¬o⌐), ¿ óe½¿τ¿¡δe Γ¿»δ real4 ó Åáß¬á½Ñ. Be½¿τ¿¡δ c »½aóaεΘe⌐ Γoτ¬o⌐ »epeñaεΓc∩ ¿º Åáß¬á½∩ ¿ ö«αΓαá¡á ó C¿ ¬a¬ cΓpπ¬Γπp¿poóa¡¡δe óe½¿τ¿¡δ. Taí½¿µa 7-7 o»¿cδóaeΓ φ¬ó¿óa½e¡Γ¡δe ñe⌐cΓó¿Γe½∞¡δe Γ¿»δ ó Åáß¬á½Ñ, C¿ ¿ ö«αΓαá¡Ñ. ┌───────────────────────────────────────────────────────────────┐ │ äEëCTBêTEï£H¢E ùêCïA Oü¢ùHOë TOùHOCTê │ ├────────────────┬──────────────────────┬───────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├────────────────┼──────────────────────┼───────────────────────┤ │ │ │ ec½¿ $real:4 │ │ │ x:real4 │ (»o π¼o½τa¡¿ε) │ │ Åáß¬á½∞ │ │ │ │ ├──────────────────────┼───────────────────────┤ │ │ x:real │ │ ├────────────────┼──────────────────────┼───────────────────────┤ │ │ float x │ │ │ C¿ ├──────────────────────┼───────────────────────┤ │ │ struct { │ »p¿ »epeñaτe │ │ │ float x ; } x │ º¡aτe¡¿e¼ │ ├────────────────┴──────────────────────┴───────────────────────┤ │ äEëCTBêTEï£H¢E ùêCïA äBOëHOë TOùHOCTê │ ├────────────────┬──────────────────────┬───────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├────────────────┼──────────────────────┼───────────────────────┤ │ │ x : real8 │ │ │ Åáß¬á½∞ ├──────────────────────┼───────────────────────┤ │ │ x : real │ ec½¿ $real:8 │ ├────────────────┼──────────────────────┼───────────────────────┤ │ C¿ │ double x │ │ ├────────────────┼──────────────────────┼───────────────────────┤ │ ö«αΓαá¡ │ REAL*8 X ¿½¿ │ │ │ │ DOUBLE PRECISION X │ │ └────────────────┴──────────────────────┴───────────────────────┘ Taí½¿µa 7-7 : ¥¬ó¿óa½e¡Γ¡δe Γ¿»δ ña¡¡δx. 7.5.Åepeñaτa cΓpo¬. Åáß¬á½∞, ö«αΓαá¡ ¿ C¿ »o paº¡o¼π ºa¡oc∩Γ cΓpo¬¿ ½¿Γep ó »a- ¼∩Γ∞. Åp¿ »epeñaτe cΓpo¬ ¿º oñ¡oúo ∩ºδ¬a ó ñpπúo⌐, ¡πª¡o π¬aºaΓ∞ ¬a¬ »po¿cxoñ¿Γ ee oípaíoΓ¬a. C¿ - cΓpo¬¿ ∩ó½∩εΓc∩ ¼acc¿óa¼¿ ½¿Γep. ï¿Γepa ÅπcΓo (co º¡a- τe¡¿e¼ ¡o½∞) oΓ¼eτaeΓ ¬o¡eµ cΓpo¬¿ ¿ ∩ó½∩eΓc∩ »oc½eñ¡e⌐ ½¿Γepo⌐ ¼acc¿óa. ä½∩ »p¿¼epa cΓpo¬a: String of text óδú½∩ñ¿Γ ¡a C¿ Γa¬: unsigned char str []="String of text." O¡a ºa¡oc¿Γc∩ ó »a¼∩Γ∞, ¬a¬ ¼acc¿ó ¿º 16-ía⌐Γoó; 15-ía⌐Γoó º¡aτa- Θeúo Γe¬cΓa ( Γ.e. ca¼a cΓpo¬a) ¿ 1 ½¿Γepa ÅπcΓo, oΓ¼eτaεΘa∩ ¬o¡eµ cΓpo¬¿: ┌─┬─┬─┬─┬─┬─┬─┬─┬──┬─┬─┬─┬─┬─┬──┐ │S│T│R│I│N│G│ │O│F │T│E│X│T│.│\0│ └─┴─┴─┴─┴─┴─┴─┴─┴──┴─┴─┴─┴─┴─┴──┘ CΓpo¬a ¡a ö«αΓαá¡Ñ ¡e ¿¼eeΓ oúpa¡¿τ¿Γe½e⌐ »p¿ paº¼eΘe¡¿¿ ó »a¼∩Γ¿. ä½¿¡a cΓpo¬¿ o»peñe½∩eΓc∩ ºapa¡ee. CΓpo¬a ¡a ö«αΓαá¡Ñ: str = " string of text " O¡a ºa¡oc¿Γc∩ ó »a¼∩Γ∞ Γe¬cΓo¼ ó 15 ía⌐Γoó. ┌─┬─┬─┬─┬─┬─┬─┬─┬──┬─┬─┬─┬─┬─┐ │S│T│R│I│N│G│ │O│F │T│E│X│T│.│ └─┴─┴─┴─┴─┴─┴─┴─┴──┴─┴─┴─┴─┴─┘ B Åáß¬á½Ñ cπΘecΓóπeΓ ñóa ó¿ña cΓpo¬¿: cΓpo¬a Γ¿»a Σ¿¬c¿poóa¡- ¡o⌐ ñ½¿¡δ STRING a¡a½oú¿τ¡a∩ cΓpo¬e ö«αΓαá¡á, ¿ cΓpo¬a »epe¼e¡¡o⌐ ñ½¿¡δ LSTRING. êc»o½∞ºπ∩ LSTRING, »peñδñπΘa∩ cΓpo¬a ºa»¿ΦeΓc∩ Γa¬: VAR STR; LSTRING (15), STR :=" STRING of text."; O¡a ºa¡oc¿Γc∩ ó »a¼∩Γ∞, ¬a¬ Γe¬cΓ ¿º 16 ía⌐Γoó. Åepóδ⌐ ía⌐Γ π¬a- ºδóaeΓ τ¿c½o ía⌐Γoó oΓóoñ¿¼δx ó »a¼∩Γ¿ ¡a cΓpo¬π; ocΓaóΦ¿ec∩ 15 ía⌐Γoó ºa¡¿¼aeΓ ca¼ Γe¬cΓ. ┌──┬─┬──┬──┬─┬─┬─┬─┬──┬──┬─┬─┬─┬─┬─┐ │ 1│5│ S│ T│R│I│N│G│ O│F │T│E│X│T│.│ └──┴─┴──┴──┴─┴─┴─┴─┴──┴──┴─┴─┴─┴─┴─┘ B Γaí½¿µe 7-8 o»¿ca¡δ Γ¿»δ cΓpo¬ ¿ ¼acc¿óoó ñ½∩ ócex Γpex ∩ºδ¬oó. ┌─────────────────┬───────────────────────┬─────────────────────┐ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├─────────────────┼───────────────────────┼─────────────────────┤ │ │ C: STRING (a) │ │ │ ├───────────────────────┤ │ │ Åáß¬á½∞ │ C: ARRAY [1..a] OF │ │ │ │ CHAR; │ │ │ ├───────────────────────┤ │ │ │ C: LSTRING (a-1); │ │ ├─────────────────┼───────────────────────┼─────────────────────┤ │ │ CHARACTER*a C │ │ │ ö«αΓαá¡ ├───────────────────────┤ │ │ │ CHARACTER*1 C[a] │ │ ├─────────────────┼───────────────────────┼─────────────────────┤ │ │ unsingned char c[a] │ │ │ C¿ ├───────────────────────┤ │ │ │ struct cstr {unsigned │ │ │ │ char c [a]; } c │ │ └─────────────────┴───────────────────────┴─────────────────────┘ Taí½¿µa 7-8 T¿»δ cΓpo¬ ¿ ¼acc¿óoó. B Γaí½¿µe 7-9 o»¿ca¡δ φ¬ó¿óa½e¡Γ¡δe Γ¿»δ cΓpo¬. ┌──────────────┬──────────────────────┬─────────────────────┐ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├──────────────┼──────────────────────┼─────────────────────┤ │ Åáß¬á½∞ │ x: array[1..n]of char│ │ ├──────────────┼──────────────────────┼─────────────────────┤ │ C¿ │ char x[n]; │ │ ├──────────────┼──────────────────────┼─────────────────────┤ │ │ │ He ¿¼eeΓ φ¬ó¿óa½e¡Γ,│ │ │ │ ó íπñπΘ¿x óepc¿∩x │ │ │ │ ö«αΓαá¡á.He pe¬o¼e¡ │ │ │ CHARACTER *h x │ ñoóa¡.MoªeΓ ¿c»o½∞ºo│ │ ö«αΓαá¡ │ INTEGER X ((h+1)12)│ óaΓ∞c∩ ¬a¬ »epe¼e¡ │ │ │ │ ¡δe Γ¿»a CHARACTER │ │ │ │ ñ½∩ o»epaµ¿⌐ ¡añ oΓ │ │ │ │ ñe½∞¡δ¼¿ ía⌐Γa¼¿.¥Γá│ │ │ │ óoº¼oª¡ocΓ∞ íπñeΓ │ │ │ │ paºó¿Γa ó íπñπΘ¿x │ │ │ │ óepc¿∩x. │ └──────────────┴──────────────────────┴─────────────────────┘ B c½eñπεΘ¿x paºñe½ax o»¿cδóaeΓc∩ »epeñaτa cΓpo¬¿ ¿º oñ¡oúo ∩ºδ¬a ó ñpπúo⌐. Åepeñaτa cΓpo¬¿ ¿º ö«αΓαá¡á ó C¿ ¿½¿ Åáß¬á½∞. CΓpo¬¿ ¡a ö«αΓαá¡Ñ Γa¬ªe pac»o½aúaεΓc∩ ó »a¼∩Γ¿ ¬a¬ cΓpo¬¿ ¡a Åáß¬á½Ñ ¿ Bδ ¼oªeΓe »epeñaóaΓ∞ »p∩¼o. ä½∩ »epeñaτ¿ cΓpo¬ ¡a ö«αΓαá¡Ñ ó C¿, ¿c»o½∞ºπ⌐Γe óoº¼oª¡ocΓ∞ C¿ cΓpo¬¿. Koúña cΓa¡ñapΓ¡a∩ cΓpoτ¡a∩ ¬o¡cΓa¡Γa ö«αΓαá¡á c½eñπeΓ ºa ½¿Γepo⌐ C, φΓa cΓpo¬a íπñeΓ ¿¡Γep»peΓ¿poóa¡a ¬a¬ cΓpoτ¡a∩ ¬o¡- cΓa¡Γa ¡a C¿. ï¿Γepa ÅπcΓo aóΓo¼aΓ¿τec¬¿ ñoíaó½∩eΓc∩ ¬ ¬o¡µπ cΓpo¬¿ ¿ oípaΓ¡δ⌐ c½eΦ (\) oípaíaΓδóaeΓc∩ ¬a¬ escape. H¿ªe ó φΓo⌐ ú½aóe íπñeΓ »o½¡ocΓ∞ε o»¿ca¡a óoº¼oª¡ocΓ∞ cΓpo¬¿ C¿. Åepeñaτa cΓpo¬ ¿º Åáß¬á½∩ ó C¿ ¿ ö«αΓαá¡. CΓpo¬¿ ¡a Åáß¬á½Ñ ¿ ö«αΓαá¡Ñ oñ¿¡a¬oóo pac»o½aúaεΓc∩ ó »a¼∩Γ¿, ¼oª¡o »epeñaóaΓ∞ ¿x ó »p∩¼πε (¡e »peoípaºπ∩). ä½∩ »epeñaτ¿ Γ¿»a STRING Åáß¬á½∞ ó C¿, ¿c»o½∞ºπ⌐Γe o»epaµ¿ε ¬o¡¬aΓe¡aµ¿¿ (c½¿∩¡¿∩), »p¿íaó¿ó ¡π½eóo⌐ ía⌐Γ ¬ ¬o¡µπ cΓpo¬¿. Ha»p¿¼ep, ec½¿ "strg" ∩ó½∩eΓc∩ »epe¼e¡¡o⌐ Γ¿»a STRING o»epaµ¿∩ ¬o¡¬aΓe¡aµ¿¿ íπñeΓ óδú½∩ñeΓ∞ Γa¬: strg: "STRING of text."*CHR(0); äa½ee "strg" ¼oªeΓ íδΓ∞ ¿c»o½∞ºoóa¡a ½εío⌐ Σπ¡¬µ¿e⌐ C¿ ó ¬aτecΓóe apúπ¼e¡Γa. ä½∩ »epeñaτ¿ cΓpo¬ Γ¿»a LStrings ó C¿ ¿ Åáß¬á½∞, Bδ ño½ª¡δ »peoípaºoóaΓ∞ ¿x ó Γ¿» STRINGS ¿ ñoíaó¿Γ∞ íá⌐Γ ñ½¿¡δ. Åepeñaτa cΓpo¬ C¿ ó Åáß¬á½∞ ¿ ö«αΓαá¡. B ö«αΓαá¡Ñ ¿ Åáß¬á½Ñ, C¿ - cΓpo¬¿ ¼oúπΓ íδΓ∞ »peñcΓaó½e¡δ Γo½∞¬o ó ó¿ñe ¼acc¿óoó. Åp¿ »epeñaτe cΓpo¬ C¿ ó Åáß¬á½∞ ¿½¿ ö«α- Γαá¡, oΓóoñ¿Γe ¼ecΓo ñ½∩ ¡π½eóoúo ía⌐Γa ó ¬o¡µe cΓpo¬¿. 7.6.ô¬aºaΓe½¿. B Γaí½¿µe 7-10 o»¿cδóaεΓc∩ φ¬ó¿óa½e¡Γ¡δe Γ¿»δ π¬aºaΓe½e⌐ ñ½∩ ¬aªñoúo ∩ºδ¬a. Åp¿ ¿c»o½∞ºoóa¡¿¿ π¬aºaΓe½e⌐ »poµeñπp ¿ óδºoóa »oñ- »poúpa¼¼ ¡a C¿ ¿ ö«αΓαá¡Ñ ¿º C¿, »p¿ coú½aΦe¡¿¿ C¿ o »epeñaτe ña¡- ¡δx, ¿c»o½∞ºπ⌐Γe »p¿óeñe¡¡πε ¡¿ªe c¿¡Γa¬c¿τec¬πε Σop¼π ñ½∩ o»¿ca¡¿∩ c»¿c¬a apúπ¼e¡Γoó Åáß¬á½∩ ¿½¿ ö«αΓαá¡á ó óaΦe⌐ C¿ »poµeñπpe. returntype (*x) (types-list) çñec∞ returntype cooΓóeΓcΓóπeΓ peºπ½∞ΓaΓπ, types-list o»¿cδóaεΓc∩ Γa¬ªe ¬a¬ c»¿co¬ apúπ¼e¡Γoó »poµeñπp Åáß¬á½∩ ¿½¿ ö«αΓαá¡á »p¿ óδ- ºoóe ¿x ¡a C¿. Åp¿ ¿c»o½∞ºoóa¡¿¿ coú½aΦe¡¿∩ Åáß¬á½∩, ¿c»o½∞ºπ⌐Γe c¿¡Γa¬c¿τec¬πε Σop¼π: returntype (pascal *x) (types-list) A »p¿ ¿c»o½∞ºoóa¡¿⌐ coú½aΦe¡¿∩ ö«αΓαá¡á Σop¼a íπñeΓ Γa¬o⌐: returntype (fortran *x) (types-list) Ha»p¿¼ep, Bδ ¼oª¿Γe »epeñaΓ∞ ADSPROC Åáß¬á½∩ ó óaΦπ »poúpa¼¼π ¡a C¿: f(x) short (paskal *x) (short); B φΓo¼ »p¿¼epe, x ccδ½¬a ¡a »poµeñπpδ ÅACKAïƒ , c Σa¬Γ¿τec¬¿¼ ap- úπ¼e¡Γo¼ Γ¿»a short, ¿ º¡aτe¡¿e¼ Γa¬oúo ªe Γ¿»a. ┌────────────────────────────────────────────────────────────┐ │ ôKAçATEïê NEAR │ ├──────────────┬─────────────────────┬───────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├──────────────┼─────────────────────┼───────────────────────┤ │ │ x:^t │ ºaó¿c¿Γ oΓ Γ¿»a ¼aΦ¿¡δ│ │ Åáß¬á½∞ ├─────────────────────┼───────────────────────┤ │ │ ADR t │ │ ├──────────────┼─────────────────────┼───────────────────────┤ │ C¿ │ t near *x │ │ ├──────────────┼─────────────────────┼───────────────────────┤ │ │ TOBJECT │ │ │ ö«αΓαá¡ │ INTEGER*2 X │ │ │ │ X = LOCNEAR(OBJECT)│ │ └──────────────┴─────────────────────┴───────────────────────┘ ┌─────────────────────────────────────────────────────────────┐ │ ôKAçATEïê FAR │ ├───────────────┬──────────────────────┬──────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├───────────────┼──────────────────────┼──────────────────────┤ │ Åáß¬á½∞ │ ADS t │ │ ├───────────────┼──────────────────────┼──────────────────────┤ │ │ t *x │ │ │ C¿ ├──────────────────────┼──────────────────────┤ │ │ t far *x │ │ ├───────────────┼──────────────────────┼──────────────────────┤ │ │ TOBJECT │ │ │ │ INTEGER*4 X │ │ │ │ X = LOC(OBJECT)│ │ │ ö«αΓαá¡ ├──────────────────────┼──────────────────────┤ │ │ TOBJECT │ │ │ │ INTEGER*4 X │ │ │ │ X=LOCFAR(OBJECT) │ │ └───────────────┴──────────────────────┴──────────────────────┘ ┌─────────────────────────────────────────────────────────────┐ │ ôKAçATEïê HA ÅPOûEäôP¢ │ ├───────────────┬──────────────────────┬──────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ Åp¿¼eτa¡¿e │ ├───────────────┼──────────────────────┼──────────────────────┤ │ │ x: adsproc │ Bδ ño½ª¡δ o»¿caΓ∞ │ │ │ │ ó¡πΓpe¡¡εε »poµeñπpπ│ │ ├──────────────────────┤ τΓoíδ ADS o»epaΓop │ │ Åáß¬á½∞ │ │ ¼oú oípaíoΓaΓ∞ far │ │ │ x: adsfunc │ añpec.Ko¼»¿½∩Γop πc-│ │ │ │ Γa¡aó½¿óaeΓ near │ │ │ │ añpeca ñ½∩ ½o¬a½∞¡δx│ │ │ │ »poµeñπp │ ├───────────────┼──────────────────────┼──────────────────────┤ │ C¿ │ t (*) () │ │ └───────────────┴──────────────────────┴──────────────────────┘ ┌─────────────────────────────────────────────────────────────┐ │ ôKAçATEïê HA ÅPOûEäôP¢ │ ├───────────────┬──────────────────────┬──────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ Åp¿¼eτa¡¿e │ ├───────────────┼──────────────────────┼──────────────────────┤ │ │ TPROC │ EXTERNAL ¿c»o½∞ºπeΓ │ │ │ EXTERNAL PROC │ c∩, ¬oúña ¿¼∩ »po- │ │ │ INTEGER*4 X │ µeñπpδ, ¿c»o½∞ºπeΓc∩│ │ │ X=LOC(PROC) │ »p¿ óδºoóe │ │ │ │ Σπ¡¬µ¿¿ (ó φΓo¼ »p¿-│ │ ö«αΓαá¡ ├──────────────────────┤ ¼epe íepeΓc∩ añpec │ │ │ │ »poµeñπpδ).ê¡aτe │ │ │ TPROC │ ö«αΓαá¡ coºñaeΓ ¡o │ │ │ EXTERNAL PROC │ óπε »epe¼e¡¡πε ¿ │ │ │ INTEGER*4 X │ óoº∞¼eΓ añpec φΓo⌐ │ │ │ X=LOCFAR(PROC) │ »epe¼e¡¡o⌐, a ¡e │ │ │ │ »poµeñπpδ. │ └───────────────┴──────────────────────┴──────────────────────┘ Taí½¿µa 7-10 ¥¬ó¿óa½e¡Γ¡δe Γ¿»δ ña¡¡δx: ô¬aºaΓe½¿. 7.7.Macc¿óδ, SUPER ¼acc¿óδ ¿ HUGE ¼acc¿óδ. Macc¿óδ ¡a ö«αΓαá¡Ñ pac»o½oªe¡δ »o cΓo½íµa¼. Ha»p¿¼ep, A(2,1) c½eñπeΓ ºa A(3,1). Macc¿óδ C¿ ¿ Åáß¬á½∞ pacc»o½oªe¡δ »o cΓpo¬a¼. Ha»p¿¼ep, A(2,1) c½eñπeΓ ºa A(2,2). Haτ¿¡aeΓc∩ úpa¡¿µa ¿¡ñe¬coó ó ¼acc¿óe C¿ óceúña c 0, ñ½∩ ö«αΓ- αá¡á óceúño 1, ¿ ñ½∩ Åáß¬á½∩ ¡a º¡aτe¡¿e úpa¡¿µδ ¡eΓ oúpa¡¿τe¡¿⌐. Ha»p¿¼ep, ec½¿ Bδ o»peñe½¿Γe ¼acc¿ó ¡a C¿ x[6] [3], φ¬ó¿óa- ½e¡Γ¡δ¼ ¼acc¿óo¼ ¡a ö«αΓαá¡Ñ íπñeΓ X(3,6), ¡a Åáß¬á½Ñ íπñeΓ x:array[0...5, 0...2]. Ec½¿ Bδ óδípa½¿ φ½e¼e¡Γ x[5,0] ó Åáß¬á½Ñ, ¿½¿ φ½e¼e¡Γ x[5] [0] ó C¿, φ¬ó¿óa½e¡Γ¡δ⌐ φ½e¼e¡Γ ö«αΓαá¡á íπñeΓ X(1,6). ê½¿, ec½¿ Bδ o»peñe½¿Γe ¼acc¿ó ¡a Åáß¬á½Ñ, ¬a¬: x:array [2..6, 2..3] of integer 2 φ¬ó¿óa½e¡Γ ö«αΓαá¡á íπñeΓ INTEGER*2 x(2, 5) ¿ φ¬ó¿óa½e¡Γ C¿ íπñeΓ short x[5] [2] üo½∞Φ¿e ¼acc¿óδ ö«αΓαá¡á (¼acc¿óδ o»¿ca¡¡δe c aΓp¿íπΓo¼ HUGE ¿½¿ ¼eΓa¬o¼a¡ñ¡o⌐ $LARGE) ¡e ¼oúπΓ óδºδóaΓ∞c∩ ¿º Åáß¬á½∩ ¿ C¿. B C¿, ¼acc¿óδ óceúña »epeñaεΓc∩ ccδ½¬o⌐.Eñóa Bδ oípaΘaeΓec∞ ¿º ö«αΓαá¡á, ¿ ¿c»o½∞ºπeΓe C aΓp¿íπΓ, ¼acc¿óδ »epeñaεΓc∩ º¡aτe¡¿e¼, a¡a½oú¿τ¡o C¿ struct. Åp¿ φΓo¼ óxoñ¡o⌐ ¼acc¿ó ¡axoñ¿Γc∩ ó¡e cΓe¬a. ùΓoíδ »epeñaóaΓ∞ ¼acc¿ó ¬a¬ ¼acc¿ó (¿º ö«αΓαá¡á ó C¿), Ba¼ »p¿ñeΓc∩ ¿c»o½∞ºoóaΓ∞ aΓp¿íπΓ REFERENCE ¿½¿ »epeñaΓ∞ peºπ½∞ΓaΓ Σπ¡¬µ¿⌐ LOC, LOCNEAR ¿ LOCFAR (c¼oΓp¿Γe paºñe½ "öπ¡¬µ¿¿ añpecoó" ña½ee ó φΓo⌐ ú½aóe) B Γaí½¿µe 7-11 o»¿ca¡δ φ¬ó¿óa½e¡Γ¡δe Γ¿»δ ¼acc¿óoó ñ½∩ Åáß¬á½∩, C¿ ¿ ö«αΓαá¡á. --──────────────────────────────────────────────────────────────┐ │ MACCêB¢: HêåHƒƒ âPAHêûA MACCêBA ÅACKAïƒ PABHA 0 │ ├──────────────────┬─────────────────────┬──────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├──────────────────┼─────────────────────┼──────────────────────┤ │ Åáß¬á½∞ │ x:array[0..j,0..m]│ │ │ │ of type │ │ ├──────────────────┼─────────────────────┼──────────────────────┤ │ │ type x[j+1] [m+1]│ »p¿ »epeñaτe │ │ │ │ ccδ½¬o⌐ │ │ C¿ ├─────────────────────┼──────────────────────┤ │ │ struct{ │ »p¿ »epeñaτe │ │ │ type x[j+1] [m+1];}x│ º¡aτe¡¿e¼ │ ├──────────────────┼─────────────────────┼──────────────────────┤ │ ö«αΓαá¡ │ type x(m+1,j+1) │ │ └──────────────────┴─────────────────────┴──────────────────────┘ ┌───────────────────────────────────────────────────────────────┐ │ MACCêB¢: HêåHƒƒ âPAHêûA MACCêBA ÅACKAïƒ HE PABHA 0 │ ├──────────────────┬─────────────────────┬──────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├──────────────────┼─────────────────────┼──────────────────────┤ │ │ x: array[i..j,k..of │ │ │ Åáß¬á½∞ │ type │ │ ├──────────────────┼─────────────────────┼──────────────────────┤ │ │type x[j-I+1] [m-k+1]│ »p¿ »epeñaτe │ │ │ │ ccδ½¬o⌐ │ │ C¿ ├─────────────────────┼──────────────────────┤ │ │ struct { type │ »p¿ »epeñaτe │ │ │x[j-I+1] [m-k+1];}x │ º¡aτe¡¿e¼ │ ├──────────────────┼─────────────────────┼──────────────────────┤ │ ö«αΓαá¡ │ type x(m-k+1,j-1+1) │ │ └──────────────────┴─────────────────────┴──────────────────────┘ Taí½¿µa 7-11. ¥¬ó¿óa½e¡Γ¡δe Γ¿»δ ña¡¡δx: ¼acc¿óδ. Ccδ½¬o⌐ super ¼acc¿óa ∩ó½∩eΓc∩ ccδ½¬a near ¡a ¡aτa½o ¼acc¿óa. O¡a c½eñπeΓ ºa óepx¡e⌐ úpa¡¿µe⌐ (ó Γo¼ ªe »op∩ñ¬e, ¬a¬ »p¿ o»¿ca¡¿¿ ¼acc¿óa). B Γaí½¿µe 7-12 »o¬aºa¡o ¬a¬ coºñaΓ∞ c»eµ¿Σ¿¬aµ¿ε π¬aºaΓe½¿ super ¼acc¿óa: ┌───────────────────────────────────────────────────────────────┐ │ ôKAçATEïê SUPER MACCêBOB │ ├───────────────────┬─────────────────────┬─────────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├───────────────────┼─────────────────────┼─────────────────────┤ │ │ type v=super array │ │ │ Åáß¬á½∞ │ [0..*,0..*] of type│ │ │ │ x: ^V │ │ ├───────────────────┼─────────────────────┼─────────────────────┤ │ │ │ ôcΓa¡oó½e¡¡o a paó │ │ │ struct{type │ ¡oe (úpa¡¿µe »ep │ │ C¿ │ near *ptr; │ óo⌐ paº¼ep¡ocΓ¿) │ │ │ short a; │ ôcΓa¡oó½e¡¡o b paó │ │ │ short b;}x: │ ¡oe (úpa¡¿µe óΓo │ │ │ │ po⌐ paº¼ep¡ocΓ¿) │ ├───────────────────┼─────────────────────┼─────────────────────┤ │ ö«αΓαá¡ │ ¡eΓ │ │ └───────────────────┴─────────────────────┴─────────────────────┘ Taí½¿µa 7-12. ¥¬ó¿óa½e¡Γ¡δe Γ¿»δ ña¡¡δx: π¬aºaΓe½¿ super ¼acc¿óoó. 7.8.ça»¿c¿ ¿ cΓpπ¬Γπpδ. T¿»δ ºa»¿ce⌐ ó Åáß¬á½Ñ, ¿ Γ¿»δ cΓpπ¬Γπp ó C¿, Γec¡o có∩ºa¡δ ¼eªñπ coío⌐. Åepeñaτa »epe¼e¡¡δx ºa»¿ce⌐ ío½ee c½oª¡a. Moª¡o o»¿caΓ∞ ¬o¡eτ¡oe »o½e, ¬a¬ φ½e¼e¡Γ cΓpπ¬Γπpδ, ºaΓe¼ coºñaΓ∞ ¬o¼- í¿¡aµ¿ε ócex »epe¼e¡¡δx τacΓe⌐. B ö«αΓαá¡Ñ Bδ ¼oªeΓe coºñaΓ∞ »oñoí¡πε ºa»¿c∞ ¿c»o½∞ºπ∩ EQUIVALENSE, ¡o ¡e cπΘecΓóπeΓ c»ocoía pe»½¿¬¿poóaΓ∞ Γa¬πε ºa»¿c∞ ¿½¿ »epeñaΓ∞ ó ¬aτecΓóe »apa¼eΓpa. Ec½¿ ºa»¿c∞ ¿½¿ cΓpπ¬Γπpa co- ñepª¿Γ Γo½∞¬o »o½∩ oñ¿¡a¬oóoúo paº¼epa, Bδ ¼oªeΓe ¿c»o½∞ºoóaΓ∞ ó ö«αΓαá¡Ñ cooΓóeΓcΓóπεΘ¿⌐ ¼acc¿ó. B »poΓ¿ó¡o¼ c½πτae óa¼ ¡πª¡o coºñaΓ∞ "úpπ»»π φ¬ó¿óa½e¡Γ¡ocΓ¿", τΓoíδ »epe¼e¡¡δe íδ½¿ có∩ºa¡δ Γa¬, τΓoíδ cooΓóeΓcΓóoóa½¿ φ½e¼e¡Γa¼ cΓpπ¬Γπpδ. Ec½¿ óc∩ cΓpπ¬Γπpa ¼e¡∞Φe τe¼ 127 ía⌐Γoó, Bδ ¼oªeΓe ¿c»o½∞ºoóaΓ∞ c¿¼óo½¿τec¬πε »epe¼e¡¡πε ñ½∩ ee »peñcΓaó½e¡¿∩. ¥ΓoΓ »oñxoñ ñaeΓ ¡eφΣΣφ¬Γ¿ó¡δ⌐ ¬oñ, a Γa¬ªe c½¿Φ¬o¼ c½oª¡πε »poúpa¼¼π. Pe¬o¼e¡ñπεΓc∩,»p¿ ¿c»o½∞- ºoóa¡¿¿ Åáß¬á½∩ ¿ C¿, coºñaóaΓ∞, úñe óoº¼oª¡o, ¿¡ΓepΣe⌐c¡δe »po- µeñπpδ. Ha»p¿¼ep, ñ½∩ »epeóoña cΓpπ¬Γπpδ ó »epe¼e¡¡δe ¿ c¬a½∩pδ, c ¬oΓopδ¼¿ ¼oªeΓ o»ep¿poóaΓ∞ ö«αΓαá¡. ça¼eΓ∞Γe, τΓo Bδ ¡e ¼oªeΓe »epeñaóaΓ∞ set Γ¿» Åáß¬á½∩ ó ö«αΓαá¡Ñ. ┌─────────────────────────────────────────────────────────────┐ │ KOMÅïEKCH¢E ùêCïA C Oü¢ùHOë TOùHOCT£ │ ├────────────────────┬─────────────────────┬──────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├────────────────────┼─────────────────────┼──────────────────┤ │ │ x: recod │ │ │ Åáß¬á½∞ │ re, im: real; │ │ │ │ end; │ │ ├────────────────────┼─────────────────────┼──────────────────┤ │ C¿ │ struct complex8{ │ │ │ │ float re,im;}x │ │ ├────────────────────┼─────────────────────┼──────────────────┤ │ ö«αΓαá¡ │ COMPLEX X │ │ └────────────────────┴─────────────────────┴──────────────────┘ ┌───────────────────────────────────────────────────────────────┐ │ KOMÅïEKCH¢E ùêCïA C äBOëHOë TOùHOCT£₧ │ ├────────────────────┬───────────────────────┬──────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├────────────────────┼───────────────────────┼──────────────────┤ │ │ x: record │ │ │ ÅACKAï£ │ re,cm:real8; │ │ │ │ end │ │ ├────────────────────┼───────────────────────┼──────────────────┤ │ C¿ │ struct complex16{ │ │ │ │ float re,im;} x │ │ ├────────────────────┼───────────────────────┼──────────────────┤ │ ö«αΓαá¡ │ COMPLEX*16 X │ │ └────────────────────┴───────────────────────┴──────────────────┘ Taí½¿µa 7-13. ¥¬ó¿óa½e¡Γ¡δe Γ¿»δ ña¡¡δx, ¬o¼»½e¬c¡δe τ¿c½a. ça»¿c¿ Åáß¬á½∩ ¿ cΓpπ¬Γπpδ C¿ ¼oúπΓ Γa¬ªe íδΓ∞ ¿c»o½∞ºoóa¡δ ñ½∩ »epeñaτ¿ ½oú¿τec¬¿x º¡aτe¡¿⌐ ö«αΓαá¡á. ä½∩ ½oú¿τec¬¿x º¡aτe¡¿⌐ ö«αΓαá¡á, µe½oe "1" º¡aτ¿Γ ¿cΓ¿¡¡o, ¡o½∞ "0" º¡aτ¿Γ ½oª∞. Taí½¿µa 7-14 »o¬aºδóaeΓ »p¿¼epδ »epeñaτ ½oú¿τec¬¿x º¡aτe¡¿⌐ ö«αΓαá¡á. ┌───────────────────────────────────────────────────────────────┐ │ ïOâêùECKêE çHAùEHêƒ: äBA üAëTA │ ├────────────────────┬───────────────────────┬──────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├────────────────────┼───────────────────────┼──────────────────┤ │ │ x: record │ │ │ Åáß¬á½∞ │ logical: boolean; │ │ │ │pad:array[0..]of byte; │ │ │ │ end │ │ ├────────────────────┼───────────────────────┼──────────────────┤ │ │ struct { │ │ │ C¿ │ char logical; │ │ │ │ char pad[1]; } x; │ │ ├────────────────────┼───────────────────────┼──────────────────┤ │ ö«αΓαá¡ │ LOGICAL*2 X │ │ │ │ LOGICAL │ ec½¿ $STORAGE │ └────────────────────┴───────────────────────┴──────────────────┘ ┌───────────────────────────────────────────────────────────────┐ │ ïOâêùECKêE çHAùEHêƒ: 4 - üAëTA │ ├────────────────────┬───────────────────────┬──────────────────┤ │ ∩ºδ¬ │ Γ¿» ña¡¡δx │ »p¿¼eτa¡¿e │ ├────────────────────┼───────────────────────┼──────────────────┤ │ │ x: record │ │ │ Åáß¬á½∞ │ logical: boolean; │ │ │ │ pad;array[0..2]of byte│ │ │ │ end; │ │ ├────────────────────┼───────────────────────┼──────────────────┤ │ │ strucf { │ │ │ C¿ │ char logical; │ │ │ │ char pad[3] │ │ │ │ } x; │ │ ├────────────────────┼───────────────────────┼──────────────────┤ │ ö«αΓαá¡ │ LOGICAL*4 X │ │ └────────────────────┴───────────────────────┴──────────────────┘ Taí½¿µa 7-14. ¥¬ó¿óa½e¡Γ¡δe Γ¿»δ ña¡¡δx, ½oú¿τec¬¿e º¡aτe¡¿∩. 7.9.êß»«½∞º«óá¡¿Ñ ¿¼Ñ¡ »α«µÑñπα ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó. Åapa¼eΓpδ-¿¼e¡a »poµeñπp ¡a Åáß¬á½Ñ ¿ ö«αΓαá¡Ñ coó¼ecΓ¿¼δ, oñ¡a¬o o¡¿ ¡e coó¼ecΓ¿¼δ c »apa¼eΓpa¼¿ ¿¼e¡a¼¿ »poµeñπp ¡a C¿. Åapa¼eΓpδ-¿¼e¡a »poµeñπp Åáß¬á½∩ ¿ ö«αΓαá¡á ¼oúπΓ íδΓ∞ »peñcΓaó- ½e¡δ C¿ cΓpπ¬Γπpo⌐, ¬oΓopa∩ ¿¼¿Γ¿pπeΓ »oc½eñoóaΓe½∞¡ocΓ∞ Åáß¬á- ½∩/ö«αΓαá¡á. Ec½¿ Bδ óδºδóaeΓe C¿ ¿º Åáß¬á½∩ ¿½¿ ö«αΓαá¡á, pe¬o¼e¡ñπeΓc∩ ¿c»o½∞ºoóaΓ∞ π¬aºaΓe½¿ »poµeñπp C¿. Ec½¿ Bδ xoΓ¿Γe »epeñaóaΓ∞ »po- µeñπpπ ó ¬aτecΓóe Σop¼a½∞¡oúo »apa¼eΓpa ó »poµeñπpδ Åáß¬á½∩ ¿½¿ ö«αΓαá¡á, Bδ ño½ª¡δ ¿c»o½∞ºoóaΓ∞ apúπ¼e¡Γδ Åáß¬á½∩, Γa¬ ¬a¬ ¡¿ ö«αΓαá¡ ,¡¿ Åáß¬á½∞ ¡e óδºδóaεΓc∩ τepeº π¬aºaΓe½¿ »poµeñπp. êc»o½∞- ºπ⌐Γe Taí½¿µπ 7-10 »p¿ paíoΓe c π¬aºaΓe½∩¼¿ »poµeñπp. BoºópaΓ º¡aτe¡¿⌐. Åpoúpa¼¼δ ¡a ö«αΓαá¡Ñ ¿ Åáß¬á½Ñ ¼oúπΓ óoºópaΘaΓ∞ º¡aτe¡¿∩ ó »poúpa¼¼δ ¡a C¿. ùΓoíδ C¿ »poúpa¼¼δ oípaíaΓδóa½¿ óoºópaΘae¼δe óe½¿τ¿¡δ »paó¿½∞¡o, »poúpa¼¿cΓ ño½ªe¡ paºí¿paΓ∞c∩ ó có∩º∩x ¼eªñπ Γ¿»a¼¿ ña¡¡δx ó paº½¿τ¡δx ∩ºδ¬ax. Ko¼»¿½∩Γop C¿ »po¿ºóoñ¿Γ »peo- ípaºoóa¡¿∩ óoºópaΘae¼δx óe½¿τ¿¡ ño »epeñaτ¿ π»paó½e¡¿∩ óδºδóaεΘ¿¼ »poµeñπpa¼. ûe½δe óe½¿τ¿¡δ, ¬oΓopδe ¼e¡∞Φe τe¼ int pacΦ¿p∩εΓc∩ ño paº¼epa int, º¡aτe¡¿∩ c »½aóaεΘe⌐ Γoτ¬o⌐ »peoípaºπεΓc∩ ó óe½¿τ¿¡δ c ñóo⌐¡o⌐ Γoτ¡ocΓ∞ε. ¥Γ¿ Γ¿»δ o»¿ca¡δ ó paºñe½ax "ûe½δe" ¿ "äe⌐cΓ- ó¿Γe½∞¡δe τ¿c½a". Ko¼»¿½∩Γop C¿ »poóep∩eΓ cΓpπ¬Γπp¿pπe¼δe óoºópaΘae¼δe º¡aτe¡¿∩ ó 4 ía⌐Γa ¿½¿ ¼e¡∞Φe ¿ óoºópaΘaeΓ ¿x ¬a¬ µe½δe cooΓóeΓcΓóπεΘeúo paº¼epa. 8.COBMECTHOE ÅOï£çOBAHêE äAHH¢Mê. Åáß¬á½∞ ¿ C¿ ¼oúπΓ ccδ½aΓ∞c∩ ¡a oíΘ¿e ña¡¡δe ñpπú ñpπúa »p¿ ºaña¡¿¿ cooΓóeΓcΓóπíΘ¿x aΓp¿íπΓoó ¿ ¿c»o½∞ºoóa¡¿¿ »paó¿½∞¡δx co- ú½aΦe¡¿⌐ oí ¿ñe¡Γ¿Σ¿¬aΓopax ¿ ¬½ετeóδx c½oóax (Bce cΓaΓ¿τec¬¿e »epe¼e¡¡δe Åáß¬á½∩ ño½ª¡δ íδΓ∞ o»¿ca¡δ c ¬½ετeóδ¼ c½oóo¼ "near" ó C¿.) COMMON-í½o¬¿ ö«αΓαá¡á ∩ó½∩εΓc∩ oíΘeñocΓπ»¡δ¼¿ »o½∩¼¿ ña¡¡δx. O¡¿ coó¼ecΓ¿¼δ c ó¡eΦ¡¿¼¿ »epe¼e¡¡δ¼¿ oíΩe¬Γa¼¿ ña¡¡δx ó C¿, ¿ »epe¼e¡¡δ¼¿ º¡aτe¡¿∩¼¿ ó Åáß¬á½Ñ, ¡a»p¿¼ep. Oñ¡a¬o, ñ½∩ Γoúo τΓoíδ ¼oª¡o íδ½o oípaΓ¿Γ∞c∩ ó COMMON-í½o¬ ¿º Åáß¬á½∩, φΓoΓ COMMON-í½o¬ ño½ªe¡ ¿¼eΓ∞ aΓp¿íπΓ NEAR. He»o¼eτe¡¡δ⌐ COMMON ¿¼eeΓ oíΘee ¿¼∩ CMMQQ. ö«αΓαá¡ ¡e ¼oªeΓ oípaΘaΓ∞c∩ ¬ oíΩe¬Γa¼ ña¡¡δx C¿. Ho Bδ ¼oªeΓe ¿c»o½∞ºoóaΓ∞ »poµeñπpπ LOC ó ö«αΓαá¡Ñ, ¡a⌐Γ¿ añpec COMMON- í½o¬a, »epeñaΓ∞ añpec ó C¿ ¿ »poµeñπpπ Åáß¬á½∩, ºaΓe¼ ¿c»o½∞ºoóaΓ∞ φΓoΓ añpec ¿º C¿ ¿ Åáß¬á½∩. Ha»p¿¼ep: INTERFACE TO SUBROUTINE CFUNC[C] (EXTR) INTEGER * EXTR END COMMON/EXT/ I,Y CALL CFUNC (LOCI)) . . . . . END void cfunc (ext) struct {lony i, j;}* ext { ext - >i = ext->j; 9.BBOä ê B¢BOä. öa⌐½ ¼oªeΓ íδΓ∞ oΓ¬pδΓ Γo½∞¬o ñ½∩ oñ¡oúo ∩ºδ¬a oñ¡oópe¼e¡¡o. êc¬½ετe¡¿e¼ ∩ó½∩eΓc∩ cΓa¡ñapΓ¡δ⌐ ¬a¡a½ óδóoña ¿¡Σop¼aµ¿¿ ¡a Γep- ¼¿¡a½. ùΓoíδ »poúpa¼¼δ ¡a C¿ ¿½¿ Åáß¬á½Ñ ¼oú½¿ óδñaóaΓ∞ ¿¡Σop¼aµ¿ε ¡a Γep¼¿¡a½ cpaºπ »oc½e ¬aªñoúo o»epaΓopa ö«αΓαá¡á WRITE, ¿c»o½∞- ºπεΘeúoc∩ ñ½∩ óδóoña ¡a Γep¼¿¡a½ ño½ªe¡ c½eñoóaΓ∞ o»epaΓop: WRITE(*,*), Ñß½¿ ó«º¼«ª¡«, τΓ« »α«µÑñπαá ¡á æ¿ ¿½¿ Åáß¬á½Ñ ¼«ú½á ßαáºπ »«ß½Ñ φΓ«ú« »¿ßáΓ∞ ¡á ΓÑα¼¿¡á½. çñec∞ o¡ ¿c»o½∞ºπeΓc∩ ñ½∩ π¡¿τΓoªe¡¿∩ c¿¼óo½oó π»paó½e¡¿∩ ¬apeΓ¬o⌐. 10.COOüÖEHêƒ Oü OÿêüKAX. OΦ¿í¬¿ ¡a⌐ñe¡¡δe óo ópe¼∩ ¬o¼»¿½∩µ¿¿, óδñaεΓc∩ ¬o¼»¿½∩Γopo¼ Γoúo ∩ºδ¬a ó ¬oΓopo¼ oí¡apπªe¡a oΦ¿í¬a, ío½∞Φ¿¡cΓóo cooíΘe¡¿⌐ oí oΦ¿í¬ax cτeΓa π¬aºδóaεΓ ¡a ∩ºδ¬ ¼oñπ½∩, ó ¬oΓopo¼ »po¿ºoΦ½a oΦ¿í¬a. Oñ¡a¬o oΦ¿í¬¿ óδºóa¡¡δ¼¿ óe½¿τ¿¡a¼¿ c »½aóaεΘe⌐ Γoτ¬o⌐ ¼oúπΓ íδΓ∞ óδña¡δ ½εíδ¼ ∩ºδ¬o¼, ¿c»o½∞ºπεΘ¿¼c∩ ó »poúpa¼e. ä½∩ ö«αΓαá¡á ¿ Åáß¬á½∩ cooíΘe¡¿∩ oí φΓ¿x oΦ¿í¬ax ¡e oΓ½¿τaεΓc∩ ñpπú oΓ ñpπúa. B C¿ cooíΘe¡¿∩ ¡e ¿¼eεΓ ¡o¼epoó. 11.BOçMOåHOCTê öOPTPAHA, ÅOääEPåêBA₧ÖêE CMEÿAHHOE ÅPOâPAMMêPOBAHêE. H¿ªe »epeτ¿c½e¡¡δe óoº¼oª¡ocΓ¿ MC-ö«αΓαá¡á »oºóo½∩εΓ »¿caΓ∞ »poúpa¼¼δ, cocΓo∩Θ¿e ¿º ¼oñπ½e⌐ MC-ö«αΓαá¡á, MC-Åáß¬á½∩ ¿ MC-C¿. Ä»epaΓop INTERFACE Åoºóo½∩eΓ paíoΓaΓ∞ c »poµeñπpa¼¿ ¡a»¿ca¡¡δ¼¿ ¡a ñpπú¿x ∩ºδ¬ax. ÇΓp¿íπΓδ çañaεΓ xapa¬Γep¿cΓ¿¬¿ ñ½∩ »oñ»poúpa¼¼ ¿ »e- pe¼e¡¡δx. CπΘecΓóπeΓ 9 aΓp¿íπΓoó: ALIAS, PASCAL, C, NEAR, FAR, HUGE, REFERENCE, VALUE ¿ VARYING . öπ¡¬µ¿¿ añpecoó BoºópaΘaεΓ añpec apúπ¼e¡Γa. C¿ cΓpo¬¿ äaεΓ c»eµ¿Σ¿¬aµ¿¿ c¿¼óo½oó, Γa¬¿x ¬a¬ backspaces ¿ newlines c »o¼oΘ∞ε ¿c»o½∞ºoóa¡¿∩ »oc½eñoóaΓe½∞¡ocΓe⌐ escape C¿. 11.1.O»epaΓop INTERFACE. O»epaΓop INTERFACE ¿c»o½∞ºπeΓc∩ ñ½∩ o»¿ca¡¿∩ »poµeñπp ¡a»¿- ca¡δx ¡a ñpπú¿x ∩ºδ¬ax ¿ ºaña¡¿∩ coú½aΦe¡¿⌐ cooΓóeΓcΓóπεΘ¿x φΓ¿¼ ∩ºδ¬a¼. Åo½¡oe o»¿ca¡¿e φΓoúo o»epaΓopa ¡axoñ¿Γc∩ ó ú½aóe 3 "O»e- paΓopδ". 11.2.AΓp¿íπΓδ. AΓp¿íπΓa¼¿ ºañaeΓc∩ ño»o½¡¿Γe½∞¡a∩ ¿¡Σop¼aµ¿∩ o »epe¼e¡¡o⌐, Γ¿»a »epe¼e¡¡o⌐, »oñ»poúpa¼¼e, ¿½¿ oí apúπ¼e¡Γe »oñ»poúpa¼¼δ. O¡¿ ¼oúπΓ ¿c»o½∞ºoóa¡δ ó o»¿ca¡¿¿ »oñ»poúpa¼¼, »oc½e o»¿ca¡¿∩ Γ¿»a, ¿ ó o»epaΓopax INTERFACE. AΓp¿íπΓδ »¿ΦπΓc∩ »oc½e oíΩe¬Γa, ¡a ¬oΓopδ⌐ o¡¿ ccδ½aεΓc∩. C¿¡Γá¬ß¿ß: ──────────────────────────────────────────────────────────── [aΓp¿íπΓ [, aΓp¿íπΓ] ] ──────────────────────────────────────────────────────────── ALIAS ¥ΓoΓ aΓp¿íπΓ ºañaeΓ ó¡eΦ¡ee ¿¼∩ »oñ»poúpa¼¼δ, oΓ½¿τ¡oe oΓ ¿¼e¡¿ ºaña¡¡oúo ó o»¿ca¡¿¿. ───────────────────────────────────────────────────────────── ALIAS : ßΓα«¬á ───────────────────────────────────────────────────────────── úñe: ßΓα«¬á cΓpoτ¡a∩ ¬o¡cΓa¡Γa öOPTPAHA. Bδ ño½ª¡δ oípaΘaΓ∞c∩ ¬ »oñ- »poúpa¼¼e »o ¿¼e¡¿, ºaña¡¡o¼π ó o»¿ca¡¿¿ ó »peñe½ax ¼oñπ½∩ ¬o¼»¿½∩µ¿¿, aΓp¿íπΓ alias »oºóo½∩eΓ ccδ½aΓ∞c∩ ¡a »oñ»poúpa¼¼π ¿º ñpπúoúo ¼oñπ½∩ ¬o¼»¿½∩µ¿¿. Ta¬ªe, Bδ ¼oªeΓe ¿c»o½∞ºoóaΓ∞ ALIAS ó o»epaΓope INTERFACE; »epeo»peñe½¿ó ¿¼∩ »oñ»poúpa¼¼δ ó ñpπúo¼ ¼oñπ½e ¬o¼»¿½∩µ¿¿, ¬oΓopδe Ba¼ ¡πª¡o óδºóaΓ∞. Ha»p¿¼ep, Σa⌐½ A coñepª¿Γ: INTERFACE TO SUBROUTINE F1[ALIAS:"F&&*-PPP"] END INTERFACE TO SUBROUTINE F2[ALIAS: "FFFFFFF2"] END SUBROUTINE G1 [ALIAS: "VERY LONG NAME"] CALL F1 CALL F2 END SUBROUTINE END ¿ Σa⌐½ B coñepª¿Γ: INTERFACE TO SUBROUTINE F1 [ALIAS: "F&&-PPP"] END INTERFACE TO SUBROUTINE K1 [ALIAS: "VERY LONC NAME"] END SUBROUTINE F2 [ALIAS: "FFFFFFF2"] END SUBROUTINE F1 CALL F1 CALL K1 CALL F2 END ºñec∞ »oñ»poúpa¼¼a F1 ó öá⌐½Ñ A có∩ºδóaεΓc∩ c F1 ó Σa⌐½e B, »oñ- »poúpa¼¼a F2 ó Σa⌐½e A có∩ºδóaeΓc∩ c F2 ó Σa⌐½e B, ¿ »oñ»poúpa¼¼a G1 ó Σa⌐½e A có∩ºδóaeΓc∩ c K1 ó Σa⌐½e B. ïεío⌐ c¿¼óo½ ¿c»o½∞ºπεΘ¿⌐c∩ ó cΓpo¬e ö«αΓαá¡á, ¼oªeΓ íδΓ∞ ¿c»o½∞ºoóa¡ ó string. Co string ¡e »po¿cxoñ¿Γ ¡¿¬a¬¿x »peoípaºoóa- ¡¿⌐. Ha»p¿¼ep, »po»¿c¡δe íπ¬óδ ¡e »peoípaºπεΓc∩ ó ºaú½aó¡δe. ¥Γo »o½eº¡o »p¿ paíoΓe c ∩ºδ¬a¼¿, ºaó¿c∩Θ¿¼¿ oΓ paº¼epa íπ¬óδ, ¡a»p¿¼ep C¿. PASCAL PASCAL ¼oªeΓ ¿c»o½∞ºoóaΓ∞c∩ Γo½∞¬o, ¬a¬ aΓp¿íπΓ »oñ»poúpa¼¼δ. AΓp¿íπΓ π¬aºδóaeΓ, τΓo »oñ»poúpa¼¼a ¿¼eeΓ xapa¬Γep¿cΓ¿¬¿, cooΓóeΓ- cΓóπεΘ¿e Åáß¬á½ε. Bce apúπ¼e¡Γδ »epeñaεΓc∩ º¡aτe¡¿e¼ (ec½¿ Γo½∞¬o ¡eΓ aΓp¿íπΓa REFERENCE), ¿ ¿c»o½∞ºπeΓc∩ coú½aΦe¡¿e o »epeñaτe »a- pa¼eΓpoó ö«αΓαá¡á/Åáß¬á½∩. C C ¿c»o½∞ºπeΓc∩ ñ½∩ c»eµ¿Σ¿¬aµ¿¿ »oñ»poúpa¼¼ ¿ Γ¿»oó ña¡¡δx. Åp¿ c»eµ¿Σ¿¬aµ¿¿ »oñ»poúpa¼¼δ, C π¬aºδóaeΓ ¡a Γo, τΓo ó »oñ»po- úpa¼¼e ¡aº¡aτe¡o coú½aΦe¡¿e o »epeñaτe »apa¼eΓpoó C¿. Apúπ¼e¡Γδ ó »oñ»poúpa¼¼δ c coú½aΦe¡¿e¼ C¿ »epeñaεΓc∩ º¡aτe¡¿e¼ (ec½¿ Γo½∞¬o ¡eΓ aΓp¿íπΓa REFERENCE). (ça¼eΓ¿¼, τΓo VARYING ¼oªeΓ íδΓ∞ ¿c»o½∞ºoóa¡o Γo½∞¬o ó »oñ»poúpa¼¼ax c aΓp¿íπΓo¼ C). ê¼e¡a »¿ΦπΓc∩ ó cooΓóeΓcΓó¿¿ c coú½aΦe¡¿e¼ oí ¿ñe¡Γ¿Σ¿¬aΓopax C¿. B¡eΦ¡¿e ¿¼e¡a »peoípaºπεΓc∩ ó »po»¿c¡δe ¿ ¡aτ¿¡aεΓc∩ c »oñτep¬a( ). Ec½¿ Bδ xoΓ¿Γe ¿c»o½∞ºoóaΓ∞ ºaú½aó¡δe íπ¬óδ, ¿c»o½∞ºπ⌐Γe aΓp¿íπΓ ALIAS. Koúña aΓp¿íπΓ C π¬aºa¡ ñ½∩ Γ¿»a INTEGER, φΓoΓ Γ¿» cΓa¡oó¿Γc∩ C¿-integer. Paº¼ep, »o π¼o½τa¡¿ε, ñ½∩ µe½δx C¿ ¿ ö«αΓαá¡á ¼oªeΓ íδΓ∞, ¿½¿, ¡e íδΓ∞ oñ¿¡a¬oóδ¼. ¥Γo ºaó¿c¿Γ oΓ ¼oñe½¿ ¿c»o½∞ºπe¼oúo Ba¼¿ »poµeccopa. Ha»p¿¼ep, c ¼¿¬po»poµeccopo¼ 8086, MC-ö«αΓαá¡ ¿c»o½∞ºπeΓ 32-í¿Γoóδe µe½δe »o π¼o½τa¡¿ε, a C¿ 16-í¿Γoóδe µe½δe. Åp¿ ¼¿¬po»poµecope 68000, oía ∩ºδ¬a ¿c»o½∞ºπεΓ 32-í¿Γoóδe µe½δe. ÅoφΓo¼π, ¬oúña Bδ »¿Φ¿Γe óaΦπ »poúpa¼¼π ñ½∩ o»peñe½e¡¡¡oúo »poµeß- copa, Bδ ¼oªeΓe ¿c»o½∞ºoóaΓ∞ C aΓp¿íπΓ ñ½∩ µe½δx »epe¼e¡¡δx, ñ½∩ πóepe¡ocΓ¿ ó Γo¼, τΓo »p¿ »epeñaτe µe½δx τ¿ce½ ¼eªñπ ö«αΓαá¡«¼ ¿ C¿ ó oí«¿x ∩ºδ¬ax π ¡¿x oñ¿¡a¬oóδ⌐ paº¼ep. VARYING êc»o½∞ºπeΓc∩ ó¼ecΓe c aΓp¿íπΓo¼ C. ô¬aºδóaeΓ τΓo τ¿c½o Σa¬- Γ¿τec¬¿x »apa¼eΓpoó ¼oªeΓ oΓ½¿τaΓ∞c∩ oΓ τ¿c½a Σop¼a½∞¡δx. öa¬Γ¿- τec¬¿e »apa¼eΓpδ cooΓóeΓcΓóπεΘ¿e Σop¼a½∞¡δ¼ ño½ª¡δ ¿¼eΓ∞ Γ¿»δ, ¬oΓopδe cooΓóeΓcΓóπεΓ Γ¿»a¼ Σop¼a½∞¡δx »apa¼eΓpoó. öa¬Γ¿τec¬¿e »apa¼eΓpδ, ñ½∩ ¬oΓopδx ¡eΓ Σop¼a½∞¡δx, ño½ª¡δ »epeñaóaΓ∞c∩ º¡aτe- ¡¿e¼, íeº ¿º¼e¡e¡¿∩ Γ¿»a (ºa¼eΓ¿¼, τΓo »oñ»poúpa¼¼a ¡a»¿ca¡¡a∩ ¡a ö«αΓαá¡Ñ ¼oªeΓ oípaΘaΓ∞c∩ Γo½∞¬o ¬ Σop¼a½∞¡δ¼ »apa¼eΓpa¼, ¬oΓopδe o»peñe½e¡δ, ¿ »oφΓo¼π óΓopo⌐ c½πτa⌐ ñ½∩ ö«αΓαá¡á ¡e pac¼aΓp¿óaeΓ- c∩). Koúña Bδ »¿Φ¿Γe »poµeñπpπ ¡a ö«αΓαá¡Ñ ¡e ¿c»o½∞ºπ∩ aΓp¿íπΓ VARYING, ¡πª¡o »oºaíoΓ¿Γ∞c∩ o Γo¼, τΓoíδ BaΦ ¬oñ ¡e coºñaóa½ ccδ½¬¿ ¡a »apa¼eΓpδ, ¬oΓopδe ¡e »epeñaεΓc∩ »p¿ oípaΘe¡¿¿, ¿¡aτe Bδ ¼oªeΓe »o½πτ¿Γ∞ ¡eo»peñe½e¡¡δ⌐ peºπ½∞ΓaΓ. ¥Γo º¡aτ¿Γ, τΓo Bδ ño½ª¡δ π¬aºδóaΓ∞ »oñ»poúpa¼¼e, ¬a¬¿e »apa¼eΓpδ »epeñaεΓc∩ (¡a»p¿¼ep, o»¿- caó ó oñ¡o¼ ¿º apúπ¼e¡Γoó óce ñpπú¿e). ça¼eΓ¿¼, »p¿ oípaΘe¡¿¿ ¿º ö«αΓαá¡á/Åáß¬á½∩ ¡e ¼oªeΓ íδΓ∞ »epe¼e¡¡oúo τ¿c½a »apa¼eΓpoó, aΓp¿íπΓ VARYING ¡e ñe⌐cΓóπeΓ, ec½¿ Bδ ¡e π¬aºa½¿ aΓp¿íπΓ C ñ½∩ »oñ»poúpa¼¼δ VALUE. VALUE VALUE π¬aºδóaeΓ, τΓo Σa¬Γ¿τec¬¿⌐ »apa¼eΓp »epeñaeΓc∩ º¡aτe- ¡¿e¼. Åp¿ φΓo¼, »apa¼eΓp c aΓp¿íπΓo¼ VALUE ocΓaeΓc∩ ¡e¿º¼e¡¡δ¼ »oc½e óoºópaΓa ¿º »oñ»poúpa¼¼δ. Ec½¿ aΓp¿íπΓδ C ¿½¿ PASCAL π¬aºa¡δ ó o»¿ca¡¿¿ »oñ»poúpa¼¼δ, óce »apa¼eΓpδ »o π¼o½τa¡¿ε »epeñaεΓc∩ º¡aτe¡¿e¼. ÅoñcΓpo¬¿, ¼acc¿óδ c »epe¼e¡¡δ¼ paº¼epo¼, ¡e ¼oúπΓ »epe- ñaóaΓ∞c∩ º¡aτe¡¿e¼. B C¿ ¼acc¿óδ ¡¿¬oúña ¡e »epeñaεΓc∩ º¡aτe¡¿e¼. Ec½¿ Bδ π¬aª¿Γe aΓp¿íπΓ C »p¿ o»¿ca¡¿¿ BaΦe⌐ »oñpoúpa¼¼δ ¿ o¡a ¿¼eeΓ »apa¼eΓpδ ¼acc¿óδ, ¼acc¿ó íπñeΓ »epeñaóaΓ∞c∩, ¬a¬ cΓpπ¬Γπpa ña¡¡δx C¿(struct). ùΓoíδ »epeñaΓ∞ ¼acc¿ó, ¿ τΓoíδ, o¡ pac¼aΓp¿óa½c∩ ¬a¬ ¼acc¿ó (ó¼ecΓo cΓpπ¬Γπpδ), Bδ ¿¼eeΓe ñóe óoº¼oª¡ocΓ¿: ∙ ô¬aºaΓ∞ aΓp¿íπΓ REFERENCE ñ½∩ Σop¼a½∞¡oúo »apa¼eΓpa. ∙ ÅepeñaΓ∞ peºπ½∞ΓaΓ LOC, LOCNEAR ¿½¿ LOCFAR Σπ¡¬µ¿⌐ º¡aτe¡¿e¼. REFERENCE REFERENCE π¬aºδóaeΓ τΓo apúπ¼e¡Γ »epeñaeΓc∩ ccδ½¬o⌐. ça¼eΓ¿¼, τΓo ec½¿ Bδ π¬aªeΓe ó¼ecΓe c aΓp¿íπΓo¼ REFERENCE aΓp¿íπΓ NEAR, peºπ½∞ΓaΓ íπñeΓ cooΓóeΓcΓóoóaΓ∞ »apa¼eΓpπ Åáß¬á½∩ VARS, a ¡e VAR. NEAR NEAR π¬aºδóaeΓ ¡a Γo, τΓo Σa¬Γ¿τec¬¿⌐ »apa¼eΓp ¡axoñ¿Γc∩ ó ceú¼e¡Γe ña¡¡δx »o π¼o½τa¡¿ε ¿ Γo½∞¬o c¼eΘe¡¿e »epeñaeΓc∩ »p¿ oí- paΘe¡¿¿ ¬ ¡e¼π. Åp¿ »epeñaτ¿ »apa¼eΓp VAR ó Åáß¬á½∞, oí∩ºaΓe½∞¡o π¬aª¿Γe aΓp¿íπΓδ REFERENCE ¿ NEAR. ¥ΓoΓ aΓp¿íπΓ ¼oª¡o Γa¬ªe π¬aºδóaΓ∞ »p¿ o»¿ca¡¿¿ COMMON-í½o¬oó. NEAR COMMON í½o¬ ºa¡oc∩Γc∩ ó ceú¼e¡Γ ña¡¡δx »o π¼o½τa¡¿ε. êx c¿¡- Γa¬c¿c: ───────────────────────────────────────────────────────────── COMMON [/[¿¼∩[NEAR]]/]... ───────────────────────────────────────────────────────────── úñe: ¿¼∩ - ¿¼∩ common-í½o¬a. He»o¼eτe¡¡δ⌐ common-í½o¬ aóΓo¼aΓ¿τec¬¿ ºa¡oc¿Γc∩ ó ceú¼e¡Γ ña¡¡δx »o π¼o½τa¡¿ε. Bδ ¼oªeΓe π¬aºaΓ∞ NEAR ó ½εío¼ o»epaΓope COMMON »oñ»poúpa¼¼δ. Oñ¡a¬o, »p¿ φΓo¼ aΓp¿íπΓ NEAR ño½ªe¡ íδΓ∞ oí∩ºaΓe½∞¡o π¬aºa¡ ó »epóo¼ o»epaΓope COMMON í½o¬a ¬o¼»¿½∩µ¿¿. Å«-σ«α«ΦÑ¼π, ßΓ«¿Γ óßΓáó¿Γ∞ NEAR ó« óßÑ «»αÑñÑ½Ñ¡¿∩ common- í½«¬«ó. Bδ ¼oªeΓe ócΓaó¿Γ∞ Σ¿¬Γ¿ó¡πε »oñ»poúpa¼¼π ó ¡aτa½o BaΦeúo ¿cxoñ¡oúo Σa⌐½a, o»¿caó ó ¡e⌐ common-í½o¬¿ »poúpa¼¼δ, ¬a¬ NEAR. Åpe¿¼πΘecΓóo¼ ºa¡ece¡¿∩ COMMON-í½o¬oó ó ceú¼e¡Γ ña¡¡δx »o π¼o½τa¡¿ε ∩ó½∩eΓc∩ π¬aºa¡¿e Γo½∞¬o c¼eΘe¡¿⌐ »p¿ ºaña¡¿¿ añpecoó. Åp¿ φΓo¼ úe¡ep¿pπeΓc∩ ¬oñ, ºa¡¿¼aεΘ¿⌐ ¼e¡∞Φe ¼ecΓa, ¿ ío½ee φΣΣe¬Γ¿ó¡δ⌐. Ec½¿ Bδ ¡e π¬aºa½¿ aΓp¿íπΓ NEAR, Ba¼ »p¿ñeΓc∩ ¿c»o½∞- ºoóaΓ∞ añpec, cocΓo∩Θ¿⌐ ¿º ceú¼e¡Γa ¿ c¼eΘe¡¿∩ »p¿ ccδ½¬e ¡a ¬aªñδ⌐ COMMON. Ec½¿ COMMON-í½o¬ o»¿ca¡ ¬a¬ NEAR ó oñ¡o¼ í½o¬e ¬o¼»¿½∩µ¿¿, a ó ñpπúo¼ ¡eΓ, Γo COMMON-í½o¬ »o¼eΘaeΓc∩ ó ceú¼e¡Γ ña¡¡δx »o π¼o½τa¡¿ε. B í½o¬e ó ¬oΓopo¼ o¡ cτ¿ΓaeΓc∩ NEAR »p¿ ccδ½¬e ¡a ¡eúo íπñπΓ ¿c»o½∞ºoóa¡δ ¬opoΓ¬¿e añpeca, a ó ñpπú¿x í½o¬ax íπñπΓ ¿c»o½∞- ºoóa¡δ ñ½¿¡¡δe añpeca. XoΓ∩ »pa¬Γ¿¬o⌐ ¡e pe¬o¼e¡ñπeΓc∩, Γa¬¿¼ oípaºo¼ ¼oª¡o ñocΓ¿τ∞ coó¼ecΓ¿¼ocΓ¿ c í¿í½¿oΓe¬a¼¿ oΓ¬o¼»¿½¿poóa¡¡δ¼¿ »p¿ óepc¿¿ 3.2 ¬o¼- »¿½∩Γopa. öa¬Γ¿τec¬¿e »apa¼eΓpδ, ¬oΓopδe »epeñaεΓc∩ ó »apa¼eΓpδ c aΓp¿- íπΓo¼ NEAR ño½ª¡δ ¡axoñ¿Γ∞c∩ ó ceú¼e¡Γe ña¡¡δx »o π¼o½τa¡¿ε. Bδ ¡e ¿¼eeΓe »epeñaΓ∞ c½eñπεΘ¿e »apa¼eΓpδ ó »apa¼eΓpδ NEAR: ∙ äa¡¡δe ó COMMON-í½o¬ax íeº aΓp¿íπΓa NEAR. ∙ HUGE ¼acc¿óδ. ∙ Macc¿óδ o»peñe½e¡¡δe $LARGE ¼eΓa¬o¼a¡ño⌐. ∙ Åepe¼e¡¡δe o»¿ca¡δe ó $LARGE ¼eΓa¬o¼a¡ñe. FAR FAR π¬aºδóaeΓ ¡a Γo, τΓo apúπ¼e¡Γ »epeñaeΓc∩ c ¿c»o½∞ºoóa¡¿e¼ ñ½¿¡¡oúo añpeca (añpeca coñepªaΘeúo ceú¼e¡Γ) HUGE ô¬aºδóaeΓ ¡a Γo, τΓo Σa¬Γ¿τec¬¿⌐ »apa¼eΓp ¼oªeΓ ºa¡¿¼aΓ∞ ío½ee τe¼ oñ¿¡ ceú¼e¡Γ. HUGE »peñocΓaó½∩eΓ ío½ee ú¿í¬πε óoº¼oª¡ocΓ∞ ñ½∩ paíoΓδ c ¼acc¿óa¼¿, τe¼ ¼eΓa¬o¼a¡ña $LARGE, Ha»p¿¼ep: FUNCTION F(A[HUGE]) DIMENSION A(200) φ¬ó¿óa½e¡Γ¡o: $LARGE :A FUNCTION F(A) DIMENSION A(200) Ko¼»¿½∩Γop ¡e úapa¡Γ¿pπeΓ, τΓo HUGE π¬aºδóaeΓ ñ½∩ ócex apúπ- ¼e¡Γoó ºa¡¿¼aεΘ¿x ío½∞Φe τe¼ oñ¿¡ ceú¼e¡Γ. Coópe¼e¡¡δe óepc¿¿ Åá- ß¬á½∩ ¿ C¿ ¡e ¿c»o½∞ºπεΓ HUGE »apa¼eΓpoó. Åp¿¼epδ ¿c»o½∞ºoóa¡¿∩ aΓp¿íπΓoó. 1. INTEGER X[VALUE] 2. INTEGER X[REFERENCE, NEAR] 3. SUBROUTINE F[ALIAS,"other Name For F"] 4. INTERFACE TO INTEGER [C] FUNCTION F[PASCAL] (I,J,K) integer [c] i,j,k END B »p¿¼epe 1, µe½a∩ »epe¼e¡¡a∩ X »epeñaeΓc∩ º¡aτe¡¿e¼. B »p¿¼epe 2, µe½a∩ »epe¼e¡¡a∩ X »epeñaeΓc∩ ccδ½¬o⌐ c ¿c»o½∞- ºoóa¡¿e¼ ¬opoΓ¬oúo añpeca. B »p¿¼epe 3, »oñ»poúpa¼¼a F ¿¼eeΓ ¿¼∩ other Name For F ºa »peñe½a¼¿ ¼oñπ½∩ ¬o¼»¿½∩µ¿¿. B »p¿¼epe 4, F-∩ó½∩eΓc∩ Σπ¡¬µ¿e⌐ Åáß¬á½∩, c apúπ¼e¡Γa¼¿ I,J,K, o»¿ca¡¡δ¼¿, ¬a¬ µe½δe C¿. 11.3.öπ¡¬µ¿¿ añpecoó. B φΓo⌐ óepc¿¿ ö«αΓαá¡á óóeñe¡δ ócΓpoe¡δe Σπ¡¬µ¿¿, ñ½∩ ¬oΓopδx apúπ¼e¡Γo¼ ∩ó½∩eΓc∩ »epe¼e¡¡a∩, a º¡aτe¡¿e¼ ee añpec: LOCNEAR ç¡aτe¡¿e¼ Σπ¡¬µ¿¿ ∩ó½∩eΓc∩ τ¿c½o Γ¿»a INTEGER*2, »peñcΓaó½∩εΘee coío⌐, ¡eceú¼e¡Γ¿poóa¡¡δ⌐ añpec. LOCFAR ç¡aτe¡¿e¼ Σπ¡¬µ¿¿ ∩ó½∩eΓc∩ τ¿c½o Γ¿»a INTEGER*4 »peñcΓaó½∩εΘee coío⌐ ceú¼e¡Γ¿poóa¡¡δ⌐ añpec. LOC B φΓo⌐ óepc¿¿, φ¬ó¿óa½e¡Γ LOCFAR. B φΓ¿x Σπ¡¬µ¿∩x ó ¬aτecΓóe Σa¬Γ¿τec¬oúo »apa¼eΓpa »pa¬Γ¿τec¬¿ ¼oªeΓ íδΓ∞ ¿c»o½∞ºoóa¡ ½εío⌐ apúπ¼e¡Γ. Ha»p¿¼ep, ec½¿ Bδ ¿c»o½∞- ºπeΓe óδpaªe¡¿∩, oípaΘe¡¿∩ ¬ Σπ¡¬µ¿∩¼, ¿½¿ ¬o¡cΓa¡Γδ, »epe¼e¡¡a∩ »epeñaeΓc∩ º¡aτe¡¿e¼, ¿ cooΓóeΓcΓóe¡¡o añpec φΓo⌐ »epe¼e¡¡o⌐ cΓa- ¡oó¿Γc∩ º¡aτe¡¿e¼ Σπ¡¬µ¿¿. Ec½¿ Bδ »epeñaeΓe ¿¼∩ »oñ»poúpa¼¼δ ó ¬aτecΓóe Σa¬Γ¿τec¬oúo »apa¼eΓpa ñ½∩ LOCFAR, º¡aτe¡¿e¼ Σπ¡¬µ¿¿ íπñeΓ añpec ¡aτa½a »oñ»poúpa¼¼δ. Be½¿τ¿¡a ∩ó½∩εΘa∩c∩ º¡aτe¡¿e¼ LOCNEAR cooΓóeΓcΓóπeΓ π¬aºaΓe½ε near ó C¿ ¿ Γ¿»π ADR ó Åáß¬á½Ñ. Åoñoí¡o φΓo¼π, óe½¿τ¿¡a ∩ó½∩εΘa∩c∩ º¡aτe¡¿e¼ LOCEFAR φ¬ó¿óa½e¡Γ¡a π¬aºaΓe½ε far ¿ π¬aºaΓe½ε ¡a »po- µeñπpπ ó C¿, ¿ Γ¿»a¼ ADR, ADSFUNC, ADSPROC ó Åáß¬á½Ñ. LOCNEAR ¼oªeΓ íδΓ∞ Γo½∞¬o ¿c»o½∞ºoóa¡ »p¿ paíoΓe c oíΩe¬Γa¼¿, ºa¡ece¡¡δ¼¿ ó ¡e»o¼eτe¡¡δ⌐ ceú¼e¡Γ ña¡¡δx (¡a»p¿¼ep, c φ½e¼e¡Γa¼¿ NEAR COMMON-í½o¬oó ¿ oíΩe¬Γa¼¿ ¡e o»¿ca¡¡δx c »o¼oΘ∞ε $LARGE ¼eΓa- ¬o¼a¡ñδ). 11.4.CΓpo¬¿ Cê. CΓpoτ¡δe óe½¿τ¿¡δ ó C¿ ºa¬a¡τ¿óaεΓc∩ ½¿Γepo⌐ ÅôCTO (CHAR(O)) ¿ ¼oúπΓ coñepªaΓ∞ c»eµ¿a½∞¡δe c¿¼óo½δ (Γa¬¿e ¬a¬ ¡oóa∩ cΓpo¬a ¿ backspace). ¥Γ¿ ½¿Γepδ c»eµ¿Σ¿pπεΓc∩ oípaΓ¡δ¼ c½φΦe¼(\) ó ¬aτecΓóe escape. êc»o½∞ºoóa¡¿e cΓa¡ñapΓ¡δx óoº¼oª¡ocΓe⌐ ö«αΓαá¡á »p¿ o»¿ca¡¿¿ Γa¬¿x cΓpo¬ »p¿óoñ¿Γ ¬ oΦ¿í¬e. MC-ö«αΓαá¡ óepc¿¿ 3.30 ¿c»o½∞ºπeΓ pacΦ¿pe¡¡πε cΓpoτ¡πε ¬o¡cΓa¡Γπ; oípaΓ¡δ⌐ c½φΦ pac¼aΓ- p¿óaeΓc∩ ¬a¬ escape. B Γaí½¿µe 7-15 o»¿ca¡δ µe»oτ¬¿ escape paºpe- Φe¡¡δe ó φΓo⌐ óepc¿¿. ┌───────────────────────────┬──────────────────────────────────┐ │ ûEÅOùKA escape │ CêMBOï │ ├───────────────────────────┼──────────────────────────────────┤ │ \n │ ¡oóa∩ cΓpo¬a │ │ \t │ úop¿ºo¡Γa½∞¡a∩ Γaíπ½∩µ¿∩ │ │ \v │ óepΓ¿¬a½∞¡a∩ Γaíπ½∩µ¿∩ │ │ \b │ backspace │ │ \r │ óoºópaΓ ¬apeΓ¬¿ │ │ \f │ »oñaτa cΓpo¬¿ │ │ \\ │ oípaΓ¡δ⌐ c½eΦ │ │ \ddd │ í½o¬ í¿Γoó │ └───────────────────────────┴──────────────────────────────────┘ Taí½¿µa 7-15. CΓpoτ¡δe µe»oτ¬¿ escape \ddd »oºóo½∩eΓ ½εíπε ½¿Γepπ ¿º ¬oña ACSII óδpaº¿Γ∞ ó óoc¼e- p¿τ¡o¼ ¬oñe. Ha»p¿¼ep, \O ¿¼eeΓ ¬oñ 0. Ec½¿ cΓpo¬a coñepª¿Γ »o- c½eñoóaΓe½∞¡ocΓ∞, ¡e π»o¼∩¡πΓπε óδΦe (¡a»p¿¼ep \x ¿½¿ \z), oípaΓ¡δ⌐ c½eΦ ¿ú¡op¿pπeΓc∩. ï¿Γepa ÅôCTO aóΓo¼aΓ¿τec¬¿ ñoíaó½∩eΓc∩ ¬ ¬o¡µπ cΓpo¬¿. OcΓa½∞¡a∩ τacΓ∞ cΓpo¬¿ ¼oªeΓ íδΓ∞ cΓpo¬o⌐ ö«αΓαá¡á (c¼.ú½a- óπ 2). CΓpo¬a "\abcd"C, ¡a»p¿¼ep, cooΓóeΓcΓóπeΓ cΓpo¬e "\abcd".