home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / fortr.doc / fortran4.doc < prev    next >
Encoding:
Text File  |  1990-07-20  |  49.1 KB  |  1,061 lines
  1.          CêCTEMA BBOäA/B¢BOäA.
  2.  
  3.  
  4.  
  5.      Oü ¥ÆÄë ùÇæÆê.
  6.  
  7.      äa¡¡a∩ τáßΓ∞ ∩ó½∩eΓc∩ ño»o½¡e¡¿e¼ ¬ o»¿ca¡¿ε o»epaΓopoó óóo-
  8. ña/óδóoña ó τáßΓ¿ 3. O»¿cδóaεΓc∩ φ½e¼e¡Γδ c¿cΓe¼δ Σa⌐½oó Mæ-ö«α-
  9. Γαá¡á, o»peñe½e¡δ oc¡oó¡δe »o¡∩Γ¿∩ ºa»¿ce⌐ óóoña/óδóoña ¿ φ½e¼e¡Γoó
  10. óóoña/óδóoña, pacc¼aΓp¿óaεΓc∩ paº½¿τ¡δe ¼eΓoñδ ñocΓπ»a ¬ Σa⌐½a¼.
  11.  
  12. Coñepªa¡¿e:
  13.  
  14.  
  15. 1.çÇÅêæê.  . . . . . . . . . . . . . . . . . . . . . . . . .  4-1
  16.  
  17. 2.öÇëï¢. . . . . . . . . . . . . . . . . . . . . . . . . . .  4-1
  18.  
  19. 2.1.Xapa¬Γep¿cΓ¿¬¿ Σa⌐½oó. . . . . . . . . . . . . . . . . .  4-1
  20.  
  21. 2.2.Ocoíe¡¡ocΓ¿ ó¡πΓpe¡¿x Σa⌐½oó.  . . . . . . . . . . . . .  4-2
  22.  
  23. 2.3.ôßΓα«⌐ßΓóá.  . . . . . . . . . . . . . . . . . . . . . .  4-3
  24.  
  25. 2.4.ìá¿í«½ÑÑ Φ¿α«¬« ¿ß»«½∞ºπѼδe cΓpπ¬Γπpδ Σa⌐½oó. . . . . .  4-3
  26.  
  27. 2.5.äpπú¿e cΓpπ¬Γπpδ Σa⌐½a.  . . . . . . . . . . . . . . . .  4-4
  28.  
  29. 2.6.CΓapδe ¿ ¡oóδe Σa⌐½δ.  . . . . . . . . . . . . . . . . .  4-5
  30.  
  31. 2.7.æ«ó¼ÑΘÑ¡¿Ñ Σa⌐½a.  . . . . . . . . . . . . . . . . . . .  4-5
  32.  
  33. 2.8.Oúpa¡¿τe¡¿∩. . . . . . . . . . . . . . . . . . . . . . .  4-5
  34.  
  35. 3.OÅàÉÇÆÄÉ¢ ééÄäÇ/é¢éÄäÇ.  . . . . . . . . . . . . . . . . .  4-6
  36.  
  37. 3.1.¥½e¼e¡Γδ o»epaΓopoó óóoña/óδóoña.  . . . . . . . . . . .  4-6
  38.  
  39. 3.2.ô»paó½e¡¿e ¬áαÑΓ¬«⌐. . . . . . . . . . . . . . . . . . .  4-8
  40.  
  41. 4.öÄÉîÇÆì¢ë ééÄä/é¢éÄä.  . . . . . . . . . . . . . . . . . .  4-8
  42.  
  43. 4.1.éºá¿¼«ñe⌐cΓó¿e Σop¼aΓa ¿ c»¿c¬a óóoña/óδóoña.  . . . . .  4-9
  44.  
  45. 4.2.Peña¬µ¿o¡¡δe ñec¬p¿»Γopδ.  . . . . . . . . . . . . . . . 4-10
  46.  
  47. 5.BéÄä/é¢éÄä æÅêæèÄî.  . . . . . . . . . . . . . . . . . . . 4-15
  48.  
  49. 5.1.Bóoñ c»¿c¬o¼.  . . . . . . . . . . . . . . . . . . . . . 4-15
  50.  
  51. 5.2.Bδóoñ c»¿c¬o¼. . . . . . . . . . . . . . . . . . . . . . 4-17
  52.  
  53.  
  54.  
  55. 1.çÇÅêæê.
  56.  
  57.      Oc¡oó¡o⌐ eñ¿¡¿µe⌐ ó Σa⌐½ax MS-FORTRAN ∩ó½∩eΓc∩ ºa»¿c∞. ça»¿c∞
  58. - φΓo ¡aíop º¡a¬oó ¿½¿ º¡aτe¡¿⌐. äo»πc¬aεΓc∩ ºa»¿c¿ Γpex ó¿ñoó:
  59. Σop¼aΓ¡δe ºa»¿c¿, íecΣop¼aΓ¡δe ºa»¿c¿ ¿ ºa»¿c¿ ¬o¡µa Σa⌐½a.
  60. 1. öop¼aΓ¡δe ºa»¿c¿.
  61.      öop¼aΓ¡δe ºa»¿c¿ - φΓo ¡aíop º¡a¬oó, ºa¬a¡τ¿óaεΘ¿xc∩ c¿cΓe¼¡δ¼
  62.      »p¿º¡a¬o¼ ¬o¡µa cΓpo¬¿. öop¼aΓ¡δe ºa»¿c¿ ¿¡Γep»peΓ¿pπεΓ co-
  63.      ú½ac¡o c Γe¼, ¬a¬ ío½∞Φ¿¡cΓóo o»epaµ¿o¡δx c¿cΓe¼ ¿ Σa⌐½oó
  64.      ¿¡Γep»peΓ¿pπεΓ cΓpo¬π.
  65. 2. üecΣop¼aΓ¡δe ºa»¿c¿.
  66.      üecΣop¼aΓ¡δe ºa»¿c¿ - φΓo ¡aíop º¡aτe¡¿⌐, ¡e »peoípaºπe¼δx
  67.      c¿cΓe¼o⌐. üecΣop¼aΓ¡δe Σa⌐½δ xpa¡∩Γc∩ ó ó¿ñe Σ¿º¿τec¬¿x ºa-
  68.      »¿ce⌐. äóo¿τ¡δe Σa⌐½δ coñepªaΓ Γo½∞¬o º¡aτe¡¿∩ óo ó¡πΓpe¡¡e¼
  69.      »peñcΓaó½e¡¿¿ ¿ ¿cxoñ∩ ¿º φΓo⌐ ¿¡Σop¼aµ¿¿ ¡e½∞º∩, ó oíΘe¼
  70.      c½πτae, o»peñe½¿Γ∞ cΓpπ¬Γπpπ ºa»¿c¿.
  71. 3. ça»¿c∞ ¬o¡µa Σa⌐½a.
  72.      Åoc½e »oc½eñ¡e⌐ ºa»¿c¿ ó Σa⌐½e MS-FORTRAN ¿¡¿µ¿¿pπeΓ ºa»¿c∞
  73.      ¬o¡µa Σa⌐½a. MeΓoñ »peñcΓaó½e¡¿∩ ¬o¡µa Σa⌐½a τacΓ¿τ¡o ºaó¿c¿Γ
  74.      oΓ o»epaµ¿o¡¡o⌐ c¿cΓe¼δ.
  75.  
  76.  
  77. 2.öÇëï¢.
  78.  
  79.      öa⌐½ - φΓo »oc½eñoóaΓe½∞¡ocΓ∞ ºa»¿ce⌐. öa⌐½δ íδóaεΓ ó¡eΦ¡¿e
  80. ¿ ó¡πΓpe¡¡¿e.
  81. 1. B¡eΦ¡¿e Σa⌐½δ.
  82.      B¡eΦ¡¿⌐ Σa⌐½ - φΓo ½¿ío Σa⌐½ ¡a ó¡eΦ¡e¼ πcΓpo⌐cΓóe, ½¿ío ca¼o
  83.      πcΓpo⌐cΓóo.
  84. 2. B¡πΓpe¡¿⌐ Σa⌐½.
  85.      ç¡a¬oóa∩ »epe¼e¡¡a∩ c½πªaΘa∩ ¿cΓoτ¡¿¬o¼ ¿½¿ µe½∞ε ñ½∩ ¬a¬o⌐-
  86.      ½¿ío Σop¼a½∞¡o⌐ o»epaµ¿¿ óóoña/óδóoña.
  87.      B ña½∞¡e⌐Φe¼, ó ña¡¡o¼ απ¬«ó«ñßΓóÑ ó¡πΓpe¡¿e Σa⌐½δ MS-FORTRAN,
  88. a Γa¬ ªe Σa⌐½δ, ñocΓπ»¡δe ñ½∩ o»epaµ¿o¡¡o⌐ c¿cΓe¼δ, ¿¼e¡πεΓc∩
  89. »pocΓo "Σa⌐½δ". O»epaΓop OPEN oíec»eτ¿óaeΓ có∩º∞ ¼eªñπ ñóπ¼∩ »o¡∩-
  90. Γ¿∩¼¿ Σa⌐½a, ó ío½∞Φ¿¡cΓóe c½πτaeó ¡eo»peñe½e¡¡ocΓ∞ ¿cτeºaeΓ »oc½e
  91. oΓ¬pδΓ¿∩ Σa⌐½a, ¬oúña oía »o¡∩Γ¿∩ coó»áñaεΓ.
  92.  
  93. 2.1.Xapa¬Γep¿cΓ¿¬¿ Σa⌐½oó.
  94.  
  95. öa⌐½δ ö«αΓαá¡a ¿¼eεΓ c½eñπεΘ¿Ñ áΓα¿íπΓδ:
  96. 1. ê¼∩.
  97. 2. Åo½oªe¡¿e.
  98. 3. CΓpπ¬Γπpπ (Σop¼aΓ¡δe, íecΣop¼aΓ¡δe ¿½¿ ñóo¿τ¡δe).
  99. 4. MeΓoñ ñocΓπ»a (»oc½eñoóaΓe½∞¡δ⌐ ¿½¿ »p∩¼o⌐).
  100.  
  101.  
  102.  
  103. ê¼∩ Σa⌐½a.
  104.  
  105.      öa⌐½ ¼oªeΓ ¿¼eΓ∞ ¿¼∩. ê¼∩, ec½¿ o¡o »p¿cπΓcΓóπeΓ, - φΓo »o-
  106. c½eñ«óaΓe½∞¡ocΓ∞ º¡a¬oó, ¿c»o½∞ºπe¼a∩ o»epaµ¿o¡o⌐ c¿cΓe¼o⌐ ñ½∩
  107. pac»oº¡áóa¡¿∩ Σá⌐½«ó. Åpaó¿½a ¿¼e¡oóa¡¿∩ o»peñe½∩εΓc∩ o»epaµ¿o¡¡o⌐
  108. c¿cΓe¼o⌐.
  109.  
  110. Åo½oªe¡¿e Σa⌐½a.
  111.  
  112.      Åo½oªe¡¿e Σa⌐½a oíδτ¡o πcΓa¡aó½¿óaeΓc∩ »peñΦecΓóπεΘe¼ »o½o-
  113. ªe¡¿e¼ óóoña/óδóoña. öa⌐½ ¿¼eeΓ: ¡aτa½∞¡πε Γoτ¬π, ¬o¡eτ¡πε Γoτ¬π,
  114. Γe¬πΘπε ºa»¿c∞, »peñδñπΘπε ºa»¿c∞ ¿ c½eñπεΘπε ºa»¿c∞. Boº¼oª¡o,
  115. τΓo »oc½eñπεΘa∩ ºa»¿c∞ ¿ñeΓ ºa »peñδñπΘe⌐, a Γe¬πΘe⌐ ºa»¿c¿ ¡eΓ.
  116. Åp¿ oΓ¬pδΓ¿¿ Σa⌐½a πcΓa¡aó½¿óaeΓc∩ eúo ¡aτa½o. Ec½¿ c½eñπεΘe⌐ o»e-
  117. paµ¿e⌐ óóoña/óδóoña ∩ó½∩εΓc∩ WRITE (ºa»¿c∞), óce cΓapδe ña¡¡δe
  118. ºaΓ¿paεΓc∩. Åo½oªe¡¿e Σa⌐½a »oc½e »oc½eñoóaΓe½∞¡oúo óδ»o½¡e¡¿∩
  119. o»epaµ¿⌐ WRITE - ¬o¡eµ Σa⌐½a, ¡o ¡e ºa »peñe½o¼ ºa»¿c¿ ¬o¡µa Σa⌐½a.
  120. êc»o½∞ºoóa¡¿e o»epaΓopa ENDFILE (¬o¡eµ Σa⌐½a) »o¼eΘaeΓ Σa⌐½ ºa
  121. ºa»¿c∞ε ¬o¡µa Σa⌐½a, Γo ªe ñe½aeΓ ¿ o»epaΓop READ, óδ»o½¡∩e¼δ⌐ ó
  122. ¬o¡µe Σa⌐½a. Bδ ¼oªeΓe o»peñe½¿Γ∞ ¬o¡eµ Σa⌐½a ¿c»o½∞ºπ∩ óδpaªe¡¿e
  123. END= ó o»epaΓope READ (τΓe¡¿e).
  124.  
  125. CΓpπ¬Γπpa Σa⌐½oó.
  126.  
  127.      B¡eΦ¡¿e Σa⌐½δ ¼oúπΓ íδΓ∞ oΓ¬pδΓδ ¬a¬ Σop¼aΓ¡δe, íecΣop¼aΓ¡δe
  128. ¿½¿ ñóo¿τ¡δe Σa⌐½δ. Bce ó¡πΓpe¡¡¿e Σa⌐½δ ∩ó½∩εΓc∩ Σop¼aΓ¡δ¼¿.
  129. 1. öop¼aΓ¡δe.
  130.      öa⌐½δ, cocΓo∩Θ¿e Γo½∞¬o ¿º Σop¼aΓ¡δx ºa»¿ce⌐.
  131. 2. üecΣop¼aΓ¡δe.
  132.      öa⌐½δ, cocΓo∩Θ¿e Γo½∞¬o ¿º íecΣop¼aΓ¡δx ºa»¿ce⌐.
  133. 3. äóo¿τ¡δe.
  134.      Åo½eñoóaΓe½∞¡ocΓ∞ ía⌐Γoó íeº ó¡πΓpe¡¡e⌐ cΓpπ¬Γπpδ.
  135.  
  136. MeΓoñδ ñocΓπ»a.
  137.  
  138.      B¡eΦ¡¿e Σa⌐½δ oΓ¬pδóaεΓc∩ ¬a¬ Σa⌐½δ »oc½eñoóaΓe½∞¡oúo ½¿ío
  139. »p∩¼oúo ñocΓπ»a.
  140. 1. Åoc½eñoóaΓe½∞¡δ⌐ ñocΓπ».
  141.      öa⌐½δ, coñepªaΘ¿e ºa»¿c¿, »op∩ño¬ c½eñoóa¡¿∩ ¬oΓopδx o»peñe½e¡
  142.      »op∩ñ¬o¼, ó ¬oΓopo¼ o¡¿ í뫨 ºa»¿ca¡δ (¡op¼a½∞¡δ⌐ »oc½eñoóa-
  143.      Γe½∞¡δ⌐ »op∩ño¬). ¥Γ¿ Σa⌐½δ ¡e ¼oúπΓ íδΓ∞ »poτ¿Γa¡δ ¿½¿ ºa-
  144.      »¿ca¡δ c »o¼oΘ∞ε óδpaªe¡¿∩ REC= (o»peñe½∩eΓ »oº¿µ¿ε »p∩¼oúo
  145.      ñocΓπ»a).
  146. 2. Åp∩¼o⌐ ñocΓπ».
  147.      öa⌐½, ºa»¿c¿ ¬oΓopoúo ¼oúπΓ íδΓ∞ ºa»¿ca¡δ ¿½¿ »poτ¿Γa¡δ ó
  148.      ½εío¼ »op∩ñ¬e (Σa⌐½ c »po¿ºóo½∞¡δ¼ ñocΓπ»o¼). ça»¿c¿ »oc½e-
  149.      ñoóaΓe½∞¡o ¡π¼epπεΓc∩, »epóa∩ ºa»¿c∞ ¿¼eeΓ ¡o¼ep 1. ça»¿c¿
  150.      ¿¼eεΓ oñ¿¡a¬oóπε ñ½¿¡π, o»peñe½∩e¼πε »p¿ oΓ¬pδΓ¿¿ Σa⌐½a,
  151.      ¬aªña∩ ºa»¿c∞ ¿¼eeΓ coícΓóe¡¡δ⌐ ¡o¼ep, o»peñe½∩e¼δ⌐ »p¿ ºa-
  152.      »¿cδóa¡¿¿ ºa»¿c¿.
  153.      B Σa⌐½ax »p∩¼oúo ñocΓπ»a óoº¼oª¡o ºa¡ece¡¿e ºa»¿ce⌐ ó »po¿º-
  154. óo½∞¡o¼ »op∩ñ¬e (¡a»p¿¼ep 9,5 ¿ 11) íeº ºa¡ece¡¿∩ ºa»¿ce⌐ ¼eªñπ
  155. ¡¿¼¿. Heóoº¼oª¡o πña½e¡¿e ºa»¿ca¡¡o⌐ ºa»¿c¿; oñ¡a¬o ºa»¿c∞ ¼oª¡o
  156. »epe»¿caΓ∞, ¡oóδ¼ º¡aτe¡¿e¼.
  157.      ùΓe¡¿e ºa»¿ce⌐ ¿º Σa⌐½oó »p∩¼oúo ñocΓπ»a ¡e ¿¼eεΘ¿x ºa»¿ce⌐
  158. »p¿óoñ¿Γ ¬ oΦ¿í¬e. öa⌐½δ »p∩¼oúo ñocΓπ»a ¡axoñ∩Γc∩ ¡a ñ¿c¬e. O»e-
  159. paµ¿o¡¡a∩ c¿cΓe¼a »δΓaeΓc∩ pacΦ¿p¿Γ∞ Σa⌐½ »p∩¼oúo ñocΓπ»a ec½¿
  160. »peñδñπΘa∩ ºa»¿c∞ óδxoñ¿Γ ºa πcΓa¡oó½e¡¡δe pa¡ee úpa¡¿µδ, πñaτa
  161. φΓo⌐ o»epaµ¿¿ o»peñe½∩eΓc∩ ¡a½¿τ¿e¼ Σ¿º¿τec¬oúo »pocΓpa¡cΓóa ¡a
  162. ¡oc¿Γe½e.
  163.  
  164.  
  165.  
  166. 2.2.Ocoíe¡¡ocΓ¿ ó¡πΓpe¡¿x Σa⌐½oó.
  167.  
  168.      B¡πΓpe¡¡¿⌐ Σa⌐½ - φΓo ß¿¼ó«½∞¡á∩ »epe¼e¡¡a∩ ¿½¿ φ½e¼e¡Γ ß¿¼-
  169. ó«½∞¡oúo ¼acc¿óa. öa⌐½ coñepª¿Γ Γo½∞¬o oñ¡π ºa»¿c∞, coó»añaεΘπε
  170. »o ñ½¿¡e c ß¿¼ó«½∞¡o⌐ »epe¼e¡¡o⌐ ¿½¿ φ½e¼e¡Γo¼ ¼acc¿óa.
  171.      Ec½¿ ºa»¿cδóaeΓc∩ ¡e óc∩ ºa»¿c∞, ocΓaóΦeec∩ ¼ecΓo ºa»o½¡∩eΓc∩
  172. »poíe½a¼¿. Åo½oªe¡¿e Σa⌐½a óceúña ó ¡aτa½e Σa⌐½a, ño óδ»o½¡e¡¿∩
  173. o»epaΓopoó óóoña/óδóoña. B¡πΓpe¡¿e Σa⌐½δ »oφóo½∩εΓ Γo½∞¬o Σop¼aΓ-
  174. ¡δ⌐, »oc½eñoóaΓe½∞¡δ⌐ óóoñ/óδóoñ; ó¡πΓpe¡¿⌐ Σa⌐½ ¼oúπΓ o»peñe½∩Γ∞
  175. Γo½∞¬o o»epaΓopδ óóoña/óδóoña READ ¿ WRITE.
  176.      B¡πΓpe¡¿e Σa⌐½δ «íeß»Ñτ¿óáεΓ ¼exa¡¿º¼ ñ½∩ ¿c»o½∞ºoóa¡¿∩ Σop-
  177. ¼aΓ¡δx ó«º¼oª¡ocΓe⌐ c¿cΓe¼δ óóoña/óδóoña ñ½∩ »peoípaºoóa¡¿∩
  178. º¡aτe¡¿⌐ "ó" ¿ "¿º" »αÑñßΓáó½Ñ¡¿∩ ó¡ÑΦ¡¿σ ß¿¼ó«½«ó ó« ó¡πΓαÑ¡¡¿Ñ
  179. cΓpπ¬Γπpδ »a¼∩Γ¿ Mæ-ö«αΓαá¡á. Ta¬ τΓe¡¿e ß¿¼ó«½∞¡δσ »epe¼e¡¡δx »pe-
  180. oípaºπeΓ ß¿¼ó«½∞¡δe º¡aτe¡¿∩ ó τ¿c½oóδe, ½oú¿τec¬¿e ¿½¿ ß¿¼ó«½∞¡δe
  181. º¡aτe¡¿∩, á ºa»¿c∞ ß¿¼ó«½∞¡δx »epe¼e¡¡δx »oºóo½∩eΓ »peoípaºoóaΓ∞
  182. º¡aτe¡¿∩ ó ¿σ (ó¡eΦ¡eÑ) ß¿ó«½∞¡«Ñ »peñcΓaó½e¡¿Ñ.
  183.      Peña¬µ¿o¡¡a∩ c»eµ¿Σ¿¬aµ¿∩ oípaΓ¡δ⌐ c½eΦ (\) ¡e ¼oªeΓ íδΓ∞
  184. ¿c»o½∞ºoóa¡a óo ó¡πΓpe¡¿x Σa⌐½ax.
  185.  
  186. 2.3.ôßΓα«⌐ßΓóá.
  187.      ôßΓα«⌐ßΓó« ∩ó½∩eΓc∩ cpeñcΓóo¼ oípaΘe¡¿∩ ¬ Σa⌐½a¼. ôßΓα«⌐ßΓó«
  188. «»αÑñe½∩eΓc∩ ó o»epaΓope óóoña/óδóoña ¬a¬ ó¡eΦ¡ÑÑ ¿½¿ ó¡πΓpe¡¡ÑÑ.
  189. 1. O»peñe½e¡¿e ó¡eΦ¡eúo πßΓα«⌐ßΓóá.
  190.      C»eµ¿Σ¿¬aµ¿e⌐ ó¡eΦ¡eúo πßΓα«⌐ßΓóa ∩ó½∩eΓc∩ µe½oe óδpaªe¡¿e ¿½¿
  191.      c¿¼óo½ * (o»peñe½∩eΓ φ¬pa¡ (ñ½∩ óδóoña) ¿ ¬½aó¿áΓπαπ ñ½∩
  192.      óóoña).
  193.      B ío½∞Φ¿¡cΓóe c½πτaeó, c»eµ¿Σ¿¬aµ¿∩ ó¡eΦ¡eúo πßΓα«⌐ßΓóá có∩-
  194.      ºa¡a c Σ¿º¿τec¬¿¼ πcΓpo⌐cΓóo¼ (¿½¿ Σa⌐½o¼, ¿¼eεΘe¼πc∩ ¡a πcΓ-
  195.      po⌐cΓóe) c »o¼oΘ∞ε ¿¼e¡¿ »p¿ ¿c»o½∞ºoóa¡¿¿ o»epaΓopa OPEN.
  196.      Åp¿ Γa¬o⌐ có∩º¿ πßΓα«⌐ßΓóa c c¿cΓe¼¡δ¼ ¿¼e¡e¼ Σa⌐½a o»epaΓo-
  197.      pá¼ óóoña/óδóoña MS-FORTRAN ñ«ßΓáΓ«τ¡« ¡o¼epá πßΓα«⌐ßΓóa ñ½∩
  198.      oípaΘe¡¿∩ ¬ cooΓóeΓcΓóπεΘe¼π ó¡eΦ¡e¼π πcΓpo⌐cΓóπ. Ec½¿ Σa⌐½
  199.      oΓ¬pδΓ, º¡aτe¡¿e, o»peñe½∩εΘÑÑ ó¡eΦ¡ÑÑ πßΓα«⌐ßΓó«, íπñeΓ có∩-
  200.      ºa¡o c ¬o¡¬peΓ¡δ¼ ó¡eΦ¡¿¼ πcΓpo⌐cΓóo¼ ño Γex »op, »o¬a ¡e
  201.      ¿ß»«½∞ºπεΓ o»epaµ¿ε CLOSE, ¿½¿ »o¬a ¡e o¬o¡τ¿Γc∩ »poúpa¼¼a.
  202.      Eñ¿¡cΓóe¡¡δ¼ ¿c¬½ετe¡¿e¼ ¿º φΓ¿x »paó¿½ ∩ó½∩eΓc∩ Γo, τΓo
  203.      ¡π½eóoe πßΓα«⌐ßΓó« có∩ºδóaeΓc∩ c ¬½aó¿áΓπα«⌐ ñ½∩ τΓe¡¿∩ ¿
  204.      φ¬pa¡o¼ ñ½∩ ºa»¿c¿, ¿ ¡e ΓpeíπeΓc∩ ∩ó¡oúo o»epaΓopa OPEN.
  205.      C¿cΓe¼a Σá⌐½«ó îæ-ö«αΓαá¡á ¿¡Γep»peΓ¿pπeΓ c¿¼óo½ *, ¬a¬
  206.      ¡π½eóoÑ πßΓα«⌐ßΓó«.
  207. 2. O»peñe½e¡¿e ó¡πΓpe¡¡Ñú« πßΓα«⌐ßΓóá.
  208.      C»eµ¿Σ¿¬aµ¿e⌐ ó¡πΓpe¡¡Ñú« πßΓαo⌐ßΓóá ∩ó½∩ÑΓc∩ ß¿¼ó«½∞¡á∩
  209.      »epe¼e¡¡á∩ ¿½¿ ß¿¼ó«½∞¡δ⌐ ¼acc¿ó ¡e»ocpeñcΓóe¡¡o o»peñe½∩εΘ¿⌐
  210.      ó¡πΓpe¡¿⌐ Σa⌐½.
  211. H¿ªe ó φΓo⌐ τáßΓ¿ o»¿cδóaeΓc∩ »p¿¼e¡e¡¿e Γa¬¿x c»eµ¿Σ¿¬aµ¿⌐ πßΓ-
  212. α«⌐ßΓó.
  213.  
  214.  
  215.  
  216. 2.4.ìá¿í«½ÑÑ Φ¿α«¬« ¿ß»«½∞ºπѼδe cΓpπ¬Γπpδ Σa⌐½oó.
  217.  
  218.      B MC-ö«αΓαá¡Ñ óoº¼oª¡o ¼¡oªecΓóo ¬o¼í¿¡aµ¿⌐ cΓpπ¬Γπp Σa⌐½a.
  219. Oñ¡a¬o, ñ½∩ ío½∞Φ¿¡cΓóa »p¿¼e¡e¡¿⌐ ñocΓaΓoτ¡o ñóπx:
  220. 1. * Σa⌐½δ.
  221. 2. ê¼e¡oóa¡δe, ó¡eΦ¡¿e, »oc½eñoóaΓe½∞¡δe, Σop¼aΓ¡δe Σa⌐½δ.
  222.      * »peñcΓaó½∩eΓ ¬½aó¿aΓπpπ ¿½¿ φ¬pa¡ - φΓo »oc½eñoóaΓe½∞¡δe,
  223. Σop¼aΓ¡δe Σa⌐½δ, ¡aºδóaεΓc∩ Γa¬ ªe ¡π½eó묨 πßΓα«⌐ßΓóa¼¿. Koúña
  224. »po¿cxoñ¿Γ τΓe¡¿e c πcΓpo⌐cΓóa ¡o¼ep ¡o½∞, Bδ ño½ª¡δ óóecΓ¿ ócε
  225. cΓpo¬π; ¿c»o½∞ºπ⌐Γe oíδτ¡δe o»epaµ¿¿ ñ½∩ ¿c»paó½e¡¿∩ oΦ¿ío¬ ¡áí«αá.
  226.      B¡eΦ¡¿e Σa⌐½δ ¼oúπΓ íδΓ∞ có∩ºa¡δ c c¿cΓe¼¡δ¼ ¿¼e¡e¼ oñ¡¿¼ ¿º
  227. c½eñπεΘ¿x ¼eΓoñoó:
  228. 1.   Ec½¿ Σa⌐½ ∩ó¡o oΓ¬pδΓ, ¿¼∩ ¼oªeΓ íδΓ∞ »p¿óeñe¡o ó o»epaΓope
  229.      OPEN.
  230. 2.   Ec½¿ Σa⌐½ ∩ó¡o oΓ¬pδΓ ¿ ¿¼∩ o»peñe½e¡o »poíe½a¼¿, ¿¼∩ τ¿ΓaeΓc∩
  231.      ¿º π»paó½∩εΘe⌐ cΓpo¬¿ (ec½¿ ¿¼eeΓc∩). Ec½¿ ¬o¼a¡ñ¡a∩ cΓpo¬a
  232.      oΓcπΓcΓóπeΓ ¿½¿ ¡e coñepª¿Γ ¿¼e¡¿, »o½∞ºoóaΓe½∞ »o½πτ¿Γ ºa»poc
  233.      oí ¿¼e¡¿.
  234. 3.   Ec½¿ Σa⌐½ oΓ¬pδΓ ¡e∩ó¡o (o»epaΓopa¼¿ REAL ¿ WRITE) ¿¼∩ o»peñe-
  235.      ½∩eΓc∩ coú½ac¡o ¼eΓoñπ »π¡¬Γa 2, o»¿ca¡¡oúo ó »peñδñπΘe¼ »a-
  236.      paúpaΣe.
  237. 4.   Ec½¿ Σa⌐½ ∩ó¡o oΓ¬pδΓ ¿ ¿¼∩ oΓcπΓcΓóπeΓ ó o»epaΓope OPEN, φΓoΓ
  238.      Σa⌐½ cτ¿ΓaeΓc∩ ópe¼e¡¡δ¼ ¿½¿ óß»«¼«úáΓѽ∞¡δ¼ Σa⌐½o¼, »p¿¡¿-
  239.      ¼aεΘ¿¼ ¿¼∩, ºá½«ªÑ¡¡«Ñ ó ¬«¼»¿½∩Γ«αÑ.
  240. H¿ªe »p¿óeñe¡ »p¿¼ep »poúpa¼¼δ, ¿c»o½∞ºπεΘe⌐ ñ½∩ τΓe¡¿∩ ¿ ºa»¿c¿
  241. * Σa⌐½δ, a Γa¬ ªe ¿¼e¡oóa¡δe, ó¡eΦ¡¿e, »oß½ÑñoóaΓe½∞¡δe Σop¼aΓ¡δe
  242. Σa⌐½δ. O»epaΓopδ óóoña/óδóoña »¿ΦπΓc∩ ó φΓo⌐ τáßΓ¿ ºaú½aó¡δ¼¿
  243. íπ¬óa¼¿. ä½∩ oº¡a¬o¼½e¡¿∩ c ¬aªñδ¼ o»epaΓopo¼ óóoña/óδóoña c¼oΓp¿
  244. cooΓóeΓcΓóπεΘ¿e αáºñѽδ ó τáßΓ¿ 3.
  245.  
  246. C   Ko»¿poóa¡¿e Σa⌐½a c Γpe¼∩ ¬o½o¡¬a¼¿ µe½δx »epe¼e¡¡δx,
  247. C   ¬aªña∩ »o 7 ¬o½o¡o¬ Φ¿p¿¡o⌐, ¿º Σa⌐½á, ¿¼∩ ¬oΓopoúo óóeñe¡o
  248. C   »o½∞ºoóaΓe½e¼, ¡a Σa⌐½ c ¿¼e¡e¼ OUT.TXT
  249. C   c »epecΓa¡oó¬o⌐ »epóo⌐ ¿ óΓopo⌐ ¬o½o¡o¬.
  250.                PROGRAM COLSWP
  251.                CHARACTER*64 FNAME
  252. C   oípaΓ¿Γec∞ ¬ φ¬pa¡π, ¡a»¿caó
  253.                WRITE (*,900)
  254. 900 FORMAT ('INPUT FILE NAME'\)('¿¼∩ óxoñ¡oúo Σa⌐½a'\)
  255. C   Cτ¿Γa⌐Γe ¿¼∩ Σa⌐½a c ¬½aó¿áΓπαδ τΓÑ¡¿Ñ¼ ¿º *
  256.                READ(*,910) FNAME
  257. 910            FORMAT(A)
  258. C   êc»o½∞ºπ⌐Γe πßΓα«⌐ßΓó« 3 ñ½∩ óóoña; »oño⌐ñeΓ ½εío⌐
  259. C   ¡o¼ep πßΓα«⌐ßΓóá, ¬po¼e 0.
  260.                OPEN (3,FILE=FNAME)
  261. C   êc»o½∞ºπ⌐Γe πßΓα«⌐ßΓó« 4 ñ½∩ óδóoña; »oño⌐ñeΓ ½εío⌐ ¡o¼ep,
  262. C   ¬po¼e 0 ¿ 3.
  263.                OPEN (4,FILE='OUT.TXT',STATUS='NEW')
  264. C   Cτ¿Γδóa⌐Γe ¿ ºa»¿cδóa⌐Γe ño ¬o¡µa Σa⌐½a.
  265. 100 READ (3,920,END=200)I,J,K
  266.     WRITE (4,920)J,I,K
  267. 920 FORMAT (3I7)
  268.     GO TO 100
  269. 200 WRITE (*,910)'DONE' (óδ»o½¡e¡o)
  270.     END
  271.  
  272.  
  273.  
  274. 2.5.äpπú¿e cΓpπ¬Γπpδ Σa⌐½a.
  275.  
  276.      Me¡ee τacΓo ¿c»o½∞ºπe¼δe cΓpπ¬Γπpδ »peñ¡aº¡aτe¡δ ñ½∩ o»peñe-
  277. ½e¡¡δx »p¿¼e¡e¡¿⌐. B oíoíΘe¡o¼ ó¿ñe ¿x ¼oª¡o o»¿caΓ∞ Γa¬:
  278. 1.   Ec½¿ ¡eoíxoñ¿¼ »po¿ºóo½∞¡δ⌐ ñocΓπ» óóoña/óδóoña, ¡a»p¿¼ep, ó
  279.      íaºe ña¡¡δx, Γo ΓpeíπεΓc∩ Σa⌐½δ c »p∩¼δ¼ ñocΓπ»o¼.
  280. 2.   Ec½¿ ña¡¡δe ño½ª¡δ íδΓ∞ ºa»¿ca¡δ, a ºaΓe¼ c¡oóa cτ¿Γa¡δ, Γo
  281.      íecΣop¼aΓ¡δe Σa⌐½δ, óoº¼oª¡o, íπñπΓ ío½ee φΣΣe¬Γ¿ó¡δ ó oΓ-
  282.      ¡oΦe¡¿¿ c¬opocΓ¿, ¡o ¼e¡ee φΣΣe¬Γ¿ó¡δ ó oΓ¡oΦe¡¿¿ »pocΓpa¡cΓóa
  283.      ¡a ñ¿c¬e. Ko¼í¿¡aµ¿∩ »p∩¼oúo ñocΓπ»a ¿ íecΣop¼aΓ¡δx Σa⌐½oó
  284.      íπñeΓ ¿ñea½∞¡o⌐ ñ½∩ coºña¡¿∩, φ¬c»½πaΓaµ¿¿ ¿ ñocΓπ»a ¬ íaºe
  285.      ña¡¡δx Mæ-ö«αΓαá¡á.
  286. 3.   Ec½¿ ¡eoíxoñ¿¼o »epeñaΓ∞ ña¡¡δe íeº ¬a¬o⌐-½¿ío ¿¡Γep»peΓaµ¿¿
  287.      ó c¿cΓe¼e, ocoíe¡¡o ec½¿ ¡año »epeñaΓ∞ óce 256 óoº¼oª¡δx ía⌐Γ,
  288.      Γo ΓpeíπeΓc∩ íecΣop¼aΓ¡δ⌐ óóoñ/óδóoñ.
  289.      üecΣop¼aΓ¡δ⌐ óóoñ/óδóoñ ¿c»o½∞ºπeΓc∩ »p¿ π»paó½e¡¿¿ πcΓpo⌐-
  290.      cΓóo¼ c oñ¡oía⌐Γoóδ¼, ñóo¿τ¡δ¼ ¿¡ΓepΣe⌐co¼. B ña¡¡o¼ »p¿¼epe
  291.      Σop¼aΓ¡δ⌐ óóoñ/óδóoñ »peoípaºoóδóa½ íδ ¡e¬oΓopδe c¿¼óo½δ,
  292.      Γa¬¿e ¬a¬ »peñcΓaó½e¡¿e ASCII ñ½∩ RETURN, ¬«Γ«αδÑ ¡e c¼oú½¿
  293.      íδ »epeñaΓ∞c∩ ó ¡e¿º¼Ñ¡Ñ¡¡o¼ ó¿ñe.
  294.      Ko½¿τecΓóo ºa»¿cδóae¼δx ía⌐Γoó ñ½∩ µe½o⌐ ¬o¡cΓa¡Γδ o»peñe½e¡o
  295.      ¼eΓa¬o¼a¡ño⌐ $STORAGE (ío½ee »oñpoí¡o c¼. τáßΓ∞ 6 "MeΓa¬o-
  296.      ¼a¡ñδ Mæ-ö«αΓαá¡á").
  297. 4.   Ec½¿ ΓpeíπeΓc∩ »epeñaΓ∞ ña¡¡δe, ¬a¬ o»¿ca¡o ó »peñδñπΘe¼ »π¡-
  298.      ¬Γe, ¡o cτ¿ΓδóaΓ∞c∩ o¡¿ íπñπΓ ¡e ΣopΓαá¡¡o⌐ »poúpa¼¼o⌐, Γo
  299.      pe¬o¼e¡ñπeΓc∩ BINARI (ñóo¿τ¡δ⌐) Σop¼aΓ. üecΣop¼aΓ¡δe Σa⌐½δ
  300.      í½o¬¿poóa¡δ ó¡πΓpe¡¡e ¿, c½eñoóaΓe½∞¡o, ¡e ΣopΓαá¡¡a∩ »poú-
  301.      pa¼¼a ñ½∩ »paó¿½∞¡oúo óoc»p¿∩Γ¿∩ ña¡¡δx íδΓ∞ ¡áßΓα«Ñ¡á ¡á
  302.      Γᬫ⌐ Σop¼aΓ. äóo¿τ¡δe Σa⌐½δ coñepªaΓ Γo½∞¬o ºa»¿ca¡¡δ¿e ó
  303.      ¡¿x ña¡¡δe. Åpoíe½δ ¿ ¡e»o½¡δe ºa»¿c¿ ¡e ¼oúπΓ c ¡¿x cτ¿-
  304.      ΓaΓ∞c∩.
  305.  
  306. 2.6.CΓapδe ¿ ¡oóδe Σa⌐½δ.
  307.  
  308.      OΓ¬pδΓδ⌐ Σa⌐½ MC-ö«αΓαá¡á ∩ó½∩eΓc∩ ½¿ío OLD (cΓapδ¼), ½¿ío NEW
  309. (¡oóδ¼), ¡o "oΓ¬pδΓδe ñ½∩ τΓe¡¿∩" ¡e oΓ½¿τaεΓc∩ oΓ "oΓ¬pδΓδx ñ½∩
  310. ºa»¿c¿". C½eñoóaΓe½∞¡o, ¼oª¡o oΓ¬pδóaΓ∞ cΓapδe (πªe cπΘecΓóπεΘ¿e)
  311. Σa⌐½δ ¿ ºa»¿cδóaΓ∞ ó ¡¿x ºa¡oóo. Moª¡o Γa¬ ªe »o»epe¼e¡¡o ºa»¿cδ-
  312. óaΓ∞ ¿ cτ¿ΓδóaΓ∞ ña¡¡δe oñ¡oúo ¿ Γoúo ªe Σa⌐½a (¡o ¡e ºa »peñe½a¼¿
  313. ¬o¡µa Σa⌐½a, ¿ ¡e cτ¿ΓδóaΓ∞ ¡eºa»¿ca¡¡δe ºa»¿c¿ ó Σa⌐½e »p∩¼oúo
  314. ñocΓπ»a). ça»¿c∞ ó »oc½eñoóaΓe½∞¡δ⌐ Σa⌐½ π¡¿τΓ«ªáeΓ ½εíδe ºa»¿c¿
  315. »«ß½Ñ ó¡oó∞ ºa»¿cδóae¼δx.
  316.      Koúña πcΓpo⌐cΓóo, »oñoí¡oÑ ¬½aó¿áΓπαÑ ¿½¿ »eτaΓ¿, oΓ¬pδΓo, ¬a¬
  317. Σa⌐½, Γo oíδτ¡o ¡e ¿¼eeΓ º¡aτe¡¿∩, ∩ó½∩eΓc∩ ½¿ φΓoΓ Σa⌐½ OLD ¿½¿
  318. NEW. Ho ñ½∩ Σa⌐½oó ¡a ñ¿c¬e, oñ¡a¬o, oΓ¬pδΓ¿e Σa⌐½a NEW, coºñaeΓ
  319. ¡oóδ⌐ Σa⌐½:
  320. 1.   Ec½¿ π »peñδñπΘeúo Σa⌐½a íδ½o Γa¬oe ªe ¿¼∩, Γo o¡ cΓ¿paeΓc∩.
  321. 2.   Ec½¿ ¡oóδ⌐ Σa⌐½ ºa¬pδΓ c »o¼oΘ∞ε STATUS='KEEP',¿½¿ ec½¿ »poú-
  322.      pa¼¼a ºa¬a¡τ¿óaeΓc∩ íeº óδ»o½¡e¡¿∩ ¡añ Σa⌐½o¼ o»epaµ¿¿ CLOSE,
  323.      Γo coºñaeΓc∩ »ocΓo∩¡¡δ⌐ Σa⌐½ c ¿¼e¡e¼, ña¡¡δ¼, »α¿ «Γ¬αδΓ¿¿.
  324.  
  325.  
  326.  
  327. 2.7.æ«ó¼ÑΘÑ¡¿Ñ Σa⌐½a.
  328.  
  329.      Ec½¿ c¿cΓe¼δ, oíΩeñ¿¡e¡δ ó oñ¡π ceΓ∞, Γo ó oñ¡o ¿ ó Γo ªe
  330. ópe¼∩ ¬ oñ¡o¼π Σa⌐½π ¼oªeΓ oípaΘaΓ∞c∩ ¡ec¬o½∞¬o »poúpa¼¼. äóa
  331. πc½oó¿∩ (SHARE ¿ MODE) ó o»epaΓope OPEN »oºóo½∩εΓ π»paó½∩Γ∞ ñoc-
  332. Γπ»o¼ ¬ Σa⌐½π. ¥Γ¿ πc½oó¿∩ cπΘecΓóπεΓ Γa¬ ªe ó o»epaΓope INQUIRE,
  333. »oφΓo¼π ¼oª¡o o»peñe½¿Γ∞ cocΓo∩¡¿e ñocΓπ»a ¬ Σa⌐½π. ç¡aτe¡¿e MODE
  334. o»peñe½∩eΓ, ¬a¬ »epóoe oΓ¬pδΓ¿e Σa⌐½a ¼oªeΓ eúo ¿c»o½∞ºoóaΓ∞. öa⌐½
  335. ¼oª¡o oΓóecΓ¿ ñ½∩ τΓe¡¿∩, ºa»¿c¿ ¿½¿ ñ½∩ Γoúo ¿ ñ½∩ ñpπúoúo. ç¡a-
  336. τe¡¿e SHARE o»peñe½∩eΓ Γo, ¬a¬ ó»oc½eñcΓó¿¿ íπñeΓ »po¿ºóoñ¿Γ∞c∩
  337. ñocΓπ» ¬ Σa⌐½π (»o¬a Σa⌐½ oΓ¬pδΓ). Moª¡o oΓóecΓ¿ eúo ñ½∩ τΓe¡¿∩,
  338. ºa»¿c¿, ñ½∩ Γoúo ¿ ñpπúoúo, ¿½¿ ¡e paºpeΦ¿Γ∞ ¡¿ τΓe¡¿e, ¡¿ ºa»¿c∞.
  339. Moª¡o Γa¬ ªe ºa»peΓ¿Γ∞ ½εíoe oípaΘe¡¿e ¬ ¡e¼π, ó¬½ετa∩ eúo oΓ¬pδΓ¿e
  340. (»o¬a Σa⌐½ oΓ¬pδΓ).
  341.      O»epaΓop LOCKING »oºóo½∩eΓ í½o¬¿poóaΓ∞ ¿ ó¡oó∞ oΓ¬pδΓ∞ c»e-
  342. µ¿a½∞¡δe ºa»¿c¿ ó Σa⌐½ax »p∩¼oúo ñocΓπ»a.
  343.  
  344. 2.8.Oúpa¡¿τe¡¿∩.
  345.  
  346.      H¿ªe ¬paΓ¬o o»¿cδóaεΓc∩ ¡e¬oΓopδe oúpa¡¿τe¡¿∩ ó ¿c»o½∞ºoóa¡¿¿
  347. c¿cΓe¼δ óóoña/óδóoña Mæ-ö«αΓαá¡á :
  348. 1.   Có∩º∞ Σa⌐½oó »p∩¼oúo ñocΓπ»a c πcΓpo⌐cΓóa¼¿ »p∩¼oúo ñocΓπ»a.
  349.           CπΘecΓóπeΓ ñóa ó¿ña πcΓpo⌐cΓó: »oc½eñoóaΓe½∞¡δe ¿ »p∩¼δe.
  350.      öa⌐½δ, có∩ºa¡δe c »oc½eñoóaΓe½∞¡δ¼¿ πcΓpo⌐cΓóa¼¿, »peñcΓaó½∩εΓ
  351.      coío⌐ »oc½eñoóaΓe½∞¡ocΓ∞ c¿¼óo½oó; ¡¿¬a¬oúo ∩ó¡oúo ñe⌐cΓó¿∩,
  352.      ¬po¼e τΓe¡¿∩ ¿ ºa»¿c¿, ¡e ño»πc¬aeΓc∩. K »oc½eñoóaΓe½∞¡δ¼
  353.      πcΓpo⌐cΓóa¼ oΓ¡oc¿Γc∩ ¬½aó¿aΓπpa, φ¬pa¡, »eτaΓ∞.
  354.           Åp∩¼δe πcΓpo⌐cΓóa, Γa¬¿e ¬a¬ ñ¿c¬¿, ¿¼eεΓ ño»o½¡¿Γe½∞¡πε
  355.      ºañaτπ »o¿c¬a añpeca. äocΓπ» ¬ »p∩¼δ¼ πcΓpo⌐cΓóa¼ ¼oªeΓ íδΓ∞
  356.      ¬a¬ »oc½eñoóaΓe½∞¡δ¼, Γa¬ ¿ »po¿ºóo½∞¡δ¼, φΓo cooΓóeΓcΓóπeΓ
  357.      Σa⌐½a¼ »p∩¼oúo ñocΓπ»a. C¿cΓe¼a óóoña/óδóoña MS-FORTRAN ¡e
  358.      ño»πc¬aeΓ Σa⌐½oó »α∩¼«ú« ñ«ßΓπ»á ¡a »oc½eñoóaΓe½∞¡δx πcΓpo⌐-
  359.      cΓóax.
  360. 2.   æó∩º∞ BACKSPACE/BINARI (o»epaµ¿∩ óoºópaΓa/ñóo¿τ¡δ⌐ »oc½eñoóa-
  361.      Γe½∞¡δ⌐ Σa⌐½).
  362.           B ñóo¿τ¡o¼ »oc½eñoóaΓe½∞¡o¼ Σa⌐½e ¡Ñ π¬aºδóaεΓc∩ úpa¡¿µδ
  363.      ºa»¿c¿, c½eñoóaΓe½∞¡o, o»epaµ¿∩ BACKSPACE ó Γa¬o¼ Σa⌐½e oº¡a-
  364.      τaeΓ óoºópaΓ oñ¡oúo ía⌐Γa. öa⌐½ »p∩¼oúo ñocΓπ»a coñepªaΓ
  365.      ºa»¿c¿ »ocΓo∩¡¡o⌐, o»peñe½e¡¡o⌐ ñ½¿¡δ, c½eñoóaΓe½∞¡o, óoº¼oª¡o
  366.      óoºópaΘaΓ∞c∩ ¬ ºa»¿c∩¼ íecΣop¼aΓ¡δx Σa⌐½oó »p∩¼oúo ñocΓπ»a.
  367. 3.   ùacΓ¿τ¡oe cτ¿Γδóa¡¿e ñóo¿τ¡oúo Σa⌐½a.
  368.           ä½¿¡a ña¡¡δx, cτ¿Γδóae¼δx ¿º ñóo¿τ¡oúo Σa⌐½a, ño½ª¡a
  369.      cooΓóeΓcΓóoóaΓ∞ ñ½¿¡e ºa»¿cδóae¼δx ña¡¡δx íecΣop¼aΓ¡δx »o-
  370.      c½eñoóaΓe½∞¡δx Σa⌐½oó. B¡πΓpe¡∩∩ cΓpπ¬Γπpa »oºóo½∩eΓ cτ¿ΓδóaΓ∞
  371.      τacΓ∞ ºa»¿c¿ ¿½¿ óooíΘe ¡e cτ¿ΓδóaΓ∞ ee (¡ecτ¿Γa¡a∩ ºa»¿c∞
  372.      »po»πc¬aeΓc∩).
  373. 4.   Åoíoτ¡δe ó½¿∩¡¿∩ óδºóa¡¡δx Σπ¡¬µ¿⌐ ¡a o»epaΓopδ óóoña/óδóoña.
  374.           Åp¿ óδ»o½¡e¡¿¿ ¬a¬oúo-½¿ío o»epaΓopa óóoña/óδóoña óδτ¿ß-
  375.      ½Ñ¡¿Ñ óδpaªe¡¿∩ ¼oªeΓ »p¿óecΓ¿ ¬ óδºoóπ Σπ¡¬µ¿¿. Ta¬o⌐ óδºoó
  376.      Σπ¡¬µ¿¿ ¡e ño½ªe¡ »p¿óoñ¿Γ∞ ¬ óδ»o½¡e¡¿ε o»epaΓopa óóoña/óδ-
  377.      óoña.
  378.  
  379.  
  380.  
  381. 3.OÅàÉÇÆÄÉ¢ ééÄäÇ/é¢éÄäÇ.
  382.  
  383.      B ña¡¡o¼ paºñe½e ó oíΘe¼ ó¿ñe o»¿cδóaεΓc∩ φ½e¼e¡Γδ o»epaΓopoó
  384. óóoña/óδóoña. üo½ee »oñpoí¡oe o»¿ca¡¿e o»epaΓopoó óóoña/óδóoña
  385. OPEN, CLOSE, READ, WRITE, BACKSPACE, ENDFILE, REWIND ¿ LOCKING
  386. c¼«Γα¿ΓÑ ó cooΓóeΓcΓóπεΘ¿x paºñe½ax τáßΓ¿ 3 "O»epaΓopδ".
  387.      Kpo¼e φΓ¿x o»epaΓopoó óóoña/óδóoña cπΘecΓóπeΓ eΘe ¿ ó¡πΓpe¡∩∩
  388. Σπ¡¬µ¿∩ EOF, o»¿cδóae¼a∩ ó ú½aóe 5 "Åpoúpa¼¼δ, »oñ»poúpa¼¼δ ¿ Σπ¡-
  389. ¬µ¿¿". EOF óoºópaΘaeΓ ½oú¿τec¬πε óe½¿τ¿¡π, π¬aºδóaεΘπε ¡a Γo, oc-
  390. Γa½¿c∞ ½¿ ó Σa⌐½e »oc½e Γe¬πΘeúo »o½oªe¡¿∩ ¬a¬¿e-½¿ío ña¡¡δe.
  391.  
  392. 3.1.¥½e¼e¡Γδ o»epaΓopoó óóoña/óδóoña.
  393.  
  394.      Paº½¿τ¡δe o»epaΓopδ óóoña/óδóoña ¿¼eεΓ »apa¼eΓpδ ¿ apúπ¼e¡Γδ,
  395. o»peñe½∩εΘ¿e ¿cΓoτ¡¿¬¿ ¿ µe½¿ »epeñaτ¿ ña¡¡δx, a Γa¬ ªe ñpπú¿e
  396. ocoíe¡¡ocΓ¿ o»epaµ¿¿ óóoña/óδóoña. B ña¡¡o¼ »oñ»paºñe½e o»¿cδóaεΓc∩
  397. c½eñπεΘ¿e φ½e¼e¡Γδ:
  398. 1. C»eµ¿Σ¿¬aµ¿∩ πßΓα«⌐ßΓóá.
  399. 2. C»eµ¿Σ¿¬aµ¿∩ Σop¼aΓa.
  400. 3. C»¿co¬ óóoña/óδóoña.
  401.  
  402.                   C»eµ¿Σ¿¬aµ¿∩ πcΓpo⌐cΓóa.
  403.  
  404.      C»eµ¿Σ¿¬aµ¿∩ πcΓpo⌐cΓóa ó o»epaΓope óóoña/óδóoña ¼oªeΓ »p¿-
  405. ¡¿¼aΓ∞ oñ¡π ¿º c½eñπεΘ¿x Σop¼:
  406. 1. *c»eµ¿Σ¿¬aµ¿∩
  407.        WRITE (*,*) 'Haτa½o óδóoña'
  408.      Åepóa∩ * oΓ¡oc¿Γc∩ ¬ ¬½aó¿aΓπpe ¿½¿ ¬ φ¬pa¡π ¿ o»peñe½∩eΓ
  409.      πcΓpo⌐cΓóo.
  410. 2. ûe½oe óδpaªe¡¿e.
  411.        WRITE (10,*) 'öa⌐½ 10:'
  412.      ûe½oe τ¿c½o oΓ¡oc¿Γc∩ ¬ ó¡eΦ¡e¼π Σa⌐½π, có∩ºa¡o¼ c ¡o¼epo¼
  413.      πcΓpo⌐cΓóa 10 (* oº¡aτaeΓ πcΓpo⌐cΓóo ¡o¼ep ¡o½∞). äo»πcΓ¿¼δ
  414.      c»eµ¿Σ¿¬aµ¿¿ πcΓpo⌐cΓóa ó ñ¿a»aºo¡e oΓ -32767 ño 32767.
  415. 3. ê¼∩ º¡a¬oóo⌐ »epe¼e¡¡o⌐ ¿½¿ φ½e¼e¡Γa º¡a¬oóoúo ¼acc¿óa.
  416.        CHARACTER*10 STRING
  417.        WRITE (STRING,'(I/0)'IVAL
  418.      ç¡a¬oóa∩ »epe¼e¡¡a∩ STRING oΓ¡oc¿Γc∩ ¬ ó¡πΓpe¡¡e¼π Σa⌐½π.
  419. Pa¡ee ó ña¡¡o⌐ τáßΓ¿ o»¿cδóa½¿c∞ paº½¿τ¿∩ ¼eªñπ c»eµ¿Σ¿¬aµ¿∩¼¿
  420. ó¡eΦ¡¿σ ¿ ó¡πΓpe¡¡¿σ πcΓpo⌐cΓó.
  421.  
  422.                   C»eµ¿Σ¿¬aµ¿∩ Σop¼aΓa.
  423.  
  424.      C»eµ¿Σ¿¬aµ¿∩ Σop¼aΓa ó o»epaΓope óóoña/óδóoña ¼oªeΓ »p¿¡¿¼aΓ∞
  425. oñ¡π ¿º c½eñπεΘ¿x Σop¼:
  426. 1. MeΓ¬a o»epaΓopa.
  427.         WRITE (*,990) I,J,K
  428.     990 FORMAT (1X,2I5,I3)
  429. MeΓ¬a o»epaΓopa 990 oΓcδ½aeΓ ¬ o»epaΓopπ FORMAT c ¼eΓ¬o⌐ 990.
  430. 2. ê¼∩ µe½o⌐ »epe¼e¡¡o⌐.
  431.         ASSIGN 990 TO IFMT
  432.     990 FORMAT (1X,2I5,I3)
  433.         WRITE (*,IFMT) I,J,K
  434. B o»epaΓope WRITE µe½a∩ »epe¼e¡¡a∩ IFMT oΓcδ½aeΓ ¬ ¼eΓ¬e 990 o»e-
  435. paΓopa FORMAT, ¬oΓopa∩ íδ½a e⌐ »p¿cóoÑ¡a ¡e»ocpeñcΓóe¡¡o »epeñ
  436. o»epaΓopo¼ FORMAT. üo½ee »oñpoí¡o oí φΓo¼ c¼. ú½aóπ 3 "O»epaΓopδ".
  437. 3. æ¿¼ó«½∞¡oe óδpaªe¡¿e.
  438.         WRITE (*,'(1X,2I5,I3)') I,J,K
  439. ç¡aτe¡¿e¼ ß¿¼ó«½∞¡oúo óδpaªe¡¿∩ ∩ó½∩ÑΓc∩ c»eµ¿Σ¿¬aµ¿∩ Σop¼aΓa.
  440.  
  441.  
  442.  
  443. 4. æ¿¼ó«½∞¡a∩ »epe¼e¡¡a∩.
  444.         CHARACTER * 11 FMTCH
  445.         FMTCH = ' (1X,2I5,I3)'
  446.         WRITE (*,FMTCH) I,J,K
  447. O»epaΓop WRITE ¿c»o½∞ºπeΓ coñepªa¡¿e ß¿¼ó«½∞¡o⌐ »epe¼e¡¡o⌐ FMTCH
  448. ó ¬aτecΓóe c»eµ¿Σ¿¬aµ¿¿ Σop¼aΓa.
  449. 5. * c»eµ¿Σ¿¬aµ¿∩.
  450.         WRITE (*,*) I,J,K
  451. Bδpaªe¡¿e * π¬aºδóaeΓ ¡a »epeñaτπ ña¡¡δx »p¿ óóoñe/óδóoñe c»¿c¬o¼.
  452. üo½ee »oñpoí¡o oí φΓo¼ c¼«Γα¿ΓÑ ¡¿ªe ó ña¡¡o⌐ τáßΓ¿.
  453.  
  454.                      C»¿co¬ óóoña/óδóoña.
  455.  
  456.      C»¿co¬ óóoña/óδóoña o»peñe½∩eΓ ña¡¡δe, º¡aτe¡¿∩ ¬oΓopδx »e-
  457. peñaεΓc∩ o»epaΓopa¼¿ READ ¿ WRITE. C»¿co¬ óóoña/óδóoña ¼oªeΓ íδΓ∞
  458. ¿ »πcΓδ¼, ¡o oíδτ¡o cocΓo¿Γ ¿º óxoñ¡δx/óδxoñ¡δx ña¡¡δx ¿ ó¬½ετaeΓ
  459. ó ceí∩ c»¿c¬¿ ¡e∩ó¡oúo DO, paºñe½e¡¡δe ºa»∩Γ묨. Bxoñ¡δe ña¡¡δe
  460. ¼oúπΓ íδΓ∞ o»peñe½e¡δ ó c»¿c¬e óóoña/óδóoña o»epaΓopa READ, a óδ-
  461. xoñ¡δe - ó c»¿c¬e o»epaΓopa WRITE.
  462. 1. Bxoñ¡δe ña¡¡δe.
  463.      Bxoñ¡δe ña¡¡δe »peñcΓaó½∩εΓ coío⌐ »epe¼e¡¡oe ¿¼∩, ¿¼∩ φ½e¼e¡Γa
  464.      ¼acc¿óa ¿½¿ ¿¼∩ ¼acc¿óa. ê¼∩ ¼acc¿óa o»peñe½∩ÑΓ óce φ½e¼e¡Γδ
  465.      ¼acc¿óa, »oc½eñoóaΓe½∞¡o pac»o½oªe¡δe ó »a¼∩Γ¿.
  466. 2. Bδxoñ¡δe ña¡¡δe.
  467.      Bδxoñ¡δe ña¡¡δe ¼oúπΓ ¿¼eΓ∞ Γa¬o⌐ ªe ó¿ñ, ¬a¬ »epeτ¿c½e¡¡δe
  468.      óxoñ¡δe ña¡¡δe, ¡o ¼oúπΓ »p¿¡¿¼aΓ∞ ó¿ñ óδpaªe¡¿⌐, ¡e ¡aτ¿¡a-
  469.      εΘ¿xc∩ º¡a¬o¼ oΓ¬pδΓo⌐ c¬oí¬¿ "(". (ïeóa∩ oΓ¬pδΓa∩ c¬oí¬a
  470.      c½πª¿Γ ñ½∩ oΓ½¿τ¿∩ c»¿c¬oó DO oΓ óδpaªe¡¿⌐).
  471.      ùΓoíδ oΓ½¿τ¿Γ∞ óδpaªe¡¿e oΓ ¡e∩ó¡oúo c»¿c¬a DO, óδpaªe¡¿e
  472.      (A+B)*(C+D) ¼oª¡o ºa»¿caΓ∞ Γa¬:
  473.      +(A+B)*(C+D)
  474. 3. He∩ó¡δe c»¿c¬¿ DO.
  475.      He∩ó¡δe c»¿c¬¿ DO ¼oª¡o o»peñe½¿Γ∞, ¬a¬ ña¡¡δe ó c»¿c¬e óóo-
  476.      ña/óδóoña o»epaΓopoó READ ¿ WRITE. O¡¿ ¿¼eεΓ c½eñπεΘ¿⌐ Σop¼aΓ:
  477.        ß»¿ß«¬-óó«ñá/óδó«ñá,»ÑαѼѡ¡á∩=óδαáª1,óδαáª2[,óδαáª3])
  478.      c»¿co¬-óóoña/óδóoña o»peñe½e¡ Γa¬ ªe, ¬a¬ ¿ φ½e¼e¡Γδ o»epaΓopá
  479.      óóoña/óδóoña (ó¬½ετa∩ c»¿c¬¿ ó¡πΓpe¡¡eúo ¡e∩ó¡oúo DO).
  480.      »ÑαѼѡ¡á∩, óδαáª1, óδαáª2 ¿ óδαáª3 o»peñe½e¡δ Γa¬ ªe, ¬a¬ ¿
  481.      ñ½∩ o»epaΓopa DO. ÅÑαѼѡ¡á∩ ∩ó½∩eΓc∩ µe½o⌐ »epe¼e¡¡o⌐, a
  482.      óδαáª1, óδαáª2 ¿ óδαáª3 - µe½δ¼¿ óδpaªe¡¿∩¼¿.
  483.      B o»epaΓope READ »epe¼e¡¡a∩ DO (¿½¿ cooΓóeΓcΓóπεΘee ña¡¡oe)
  484.      ¡e ño½ª¡o »o∩ó½∩Γ∞c∩ ó ¬aτecΓóe ña¡¡oúo c»¿c¬a óo ó¡πΓpe¡e¼
  485.      c»¿c¬e óóoña/óδóoña, ¡o eúo ¼oª¡o cτ¿ΓδóaΓ∞ Γe¼ ªe o»epaΓopo¼
  486.      READ »epeñ c»¿c¬o¼ ¡e∩ó¡oúo DO. BcΓpoe¡δ⌐ c»¿co¬ óóoña/óδóoña
  487.      »oóΓop∩eΓc∩ ñ½∩ ¬aªño⌐ ¿Γepaµ¿¿ »epe¼e¡¡o⌐ c cooΓóeΓcΓóπεΘe⌐
  488.      ºa¼e¡o⌐ º¡aτe¡¿⌐ »epe¼e¡¡o⌐ DO.
  489.      B c½πτae ó½«ªÑ¡¡δx ¡e∩ó¡δx µ¿¬½oó DO, ¡a¿ío½ee ú½πío¬¿⌐ ó¡π-
  490.      Γpe¡¡¿⌐ µ¿¬½ óceúña óδ»o½¡∩eΓc∩ »epóδ¼.
  491.  
  492. 3.2.ô»paó½e¡¿e ¬áαÑΓ¬«⌐.
  493.  
  494.      Åepóδ⌐ c¿¼óo½ ½εío⌐ ºa»¿c¿, »epeñaóae¼δ⌐ ¡a »eτaΓ∞ ¿½¿ ñpπúoe
  495. Γep¼¿¡a½∞¡oe πcΓpo⌐cΓóo, ó¬½ετa∩ ¬o¡co½∞, ¡e »eτaΓaeΓc∩. O¡ óoc»p¿-
  496. ¡¿¼aeΓc∩, ¬a¬ c¿¼óo½ π»paó½e¡¿∩ ¬apeΓ¬o⌐. C¿cΓe¼a óóoña/óδóoña
  497. Mæ-ö«αΓαá¡á óoc»p¿¡¿¼aeΓ ¡e¬oΓopδe c¿¼óo½δ, ¬a¬ c¿¼óo½δ π»páó½e¡¿∩
  498. ¬apeΓ¬o⌐. ¥Γ¿ c¿¼óo½δ ¿ ¿x ñe⌐cΓó¿∩ »p¿ »eτaΓ¿ »o¬aºa¡δ ó Γaí. 4-1.
  499.  
  500.  
  501.  
  502. ┌─────────────────────────┬─────────────────────────────────────┐
  503. │         CêMBOï          │        äEëCTBꃠ                    │
  504. ├─────────────────────────┼─────────────────────────────────────┤
  505. │         »poíe½          │  Åpo»πc¬ oñ¡o⌐ cΓpo¬¿               │
  506. │           0             │  Åpo»πc¬ ñóπx cΓpo¬                 │
  507. │           1             │  Åepexoñ ó ¡aτa½o c½eñπεΘe⌐         │
  508. │                         │  cΓpo¬¿ (¿ú¡op¿pπeΓc∩ ¬o¡co½∞ε)     │
  509. │        +(»½εc)          │  He »epexoñ¿Γ ¡a c½eñπεΘπε cΓpo¬π   │
  510. │                         │  (¼oª¡o »eτaΓaΓ∞ »o φΓo¼π ªe ¼ecΓπ) │
  511. └─────────────────────────┴─────────────────────────────────────┘
  512. Taí½¿µa 4-1. C¿¼óo½δ π»paó½e¡¿∩ »eτaΓ∞ε.
  513.  
  514.      ïεío⌐ ñpπúo⌐ c¿¼óo½, ¬po¼e »p¿óeñe¡¡δx ó Γaí½¿µe óoc»p¿¡¿¼a-
  515. eΓc∩, ¬a¬ »poíe½ ¿ πcΓpa¡∩eΓc∩ ¿º »eτaΓ¡o⌐ cΓpo¬¿. Ec½¿ c¿¼óo½
  516. π»paó½e¡¿∩ ¬apeΓ¬o⌐ c½πτa⌐¡o »po»πΘe¡, Γo »epóδ⌐ c¿¼óo½ ºa»¿c¿ ¡e
  517. »eτaΓaeΓc∩.
  518.  
  519.  
  520. 4.öÄÉîÇÆì¢ë ééÄä/é¢éÄä.
  521.  
  522.      Ec½¿ o»epaΓop READ ¿½¿ WRITE o»peñe½∩eΓ Σop¼aΓ, Γo o»epaΓop
  523. óóoña/óδóoña cτ¿ΓaeΓc∩ Σop¼aΓ¡δ¼. Ta¬o⌐ Σop¼aΓ ¼oªeΓ íδΓ∞ o»peñe½e¡
  524. oñ¡¿¼ ¿º »∩Γ¿ c»ocoíoó. C½eñπεΘ¿e »∩Γ∞ »p¿¼epoó »peñcΓaó½∩εΓ coío⌐
  525. oñ¿¡a¬oóo »p¿e¼½e¼δe ¼eΓoñδ o»peñe½e¡¿∩ Σop¼aΓa ¿ ñe¼o¡cΓp¿pπεΓ
  526. c»eµ¿Σ¿¬aµ¿¿ Σop¼aΓa, o»¿ca¡¡δe óδΦe ó ña¡¡o⌐ ú½aóe.
  527.                WRITE (*,990) I,J,K
  528.            990 FORMAT (1X,2I5,I3)
  529.  
  530.                ASSIGN 990 TO IFMT
  531.            990 FORMAT (1X,2I5,I3)
  532.                WRITE (*,IFMT),I,J,K
  533.  
  534.                WRITE (*,'(1X,2I5,I3)')I,J,K
  535.  
  536.                CHARACTER*11 FMTCH
  537.                FMTCH = '(1X,2I5,I3)'
  538.                WRITE (*,FMTCH)I,J,K
  539.  
  540.                WRITE (*,*) I,J,K
  541.  
  542.      C»eµ¿Σ¿¬aµ¿∩ Σop¼aΓa ño½ª¡a ¡aτ¿¡aΓ∞c∩ c oΓ¬pδóáεΘÑ⌐ c¬oí¬¿
  543. ¿ ºa¬a¡τ¿óaΓ∞c∩ ºa¬pδóáεΘÑ⌐ c¬oí¬o⌐. Åepeñ ½eóo⌐ c¬oí¬o⌐ ¼oúπΓ
  544. cΓo∩Γ∞ »poíe½δ. C¿¼óo½δ »oc½e »paóo⌐ c¬oí¬¿ ¿ú¡op¿pπεΓc∩.
  545.  
  546. 4.1.éºá¿¼«ñe⌐cΓó¿e Σop¼aΓa ¿ c»¿c¬a óóoña/óδóoña.
  547.  
  548.      Ec½¿ c»¿co¬ óóoña/óδóoña coñepª¿Γ xoΓ∩ íδ oñ¡o º¡aτe¡¿e, Γo
  549. ó c»eµ¿Σ¿¬aµ¿¿ Σop¼aΓa ño½ªe¡ »p¿cπΓcΓóoóaΓ∞ »o ¬pa⌐¡e⌐ ¼epe oñ¿¡
  550. »oóΓop∩e¼δ⌐ peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop. B τacΓ¡ocΓ¿, »πcΓπε c»eµ¿Σ¿-
  551. ¬aµ¿ε () ¼oª¡o ¿c»o½∞ºoóaΓ∞ Γo½∞¬o ó c½πτae, ec½¿ ó c»¿c¬e óóo-
  552. ña/óδóoña ¡e o»peñe½∩εΓc∩ ¡¿¬a¬¿e ña¡¡δe (ó φΓo¼ c½πτae WRITE
  553. ñe½aeΓ ºa»¿c∞ ¡π½eóo⌐ ñ½¿¡δ, a READ »epexoñ¿Γ ¬ c½eñπεΘe⌐ ºa»¿c¿).
  554.      Åp¿ óδ»o½¡e¡¿¿ o»epaΓopa óóoña/óδóoña ¬aªñoe ña¡¡oe ó c»¿c¬e
  555. óóoña/óδóoña có∩ºa¡o c »oóΓop∩e¼δ¼ peña¬µ¿o¡¡δ¼ ñec¬p¿»Γopo¼ ¿ ¡a-
  556. oíopoΓ, ocΓa½∞¡δe ña¡¡δe π»paó½e¡¿∩ Σop¼aΓo¼ óºa¿¼oñe⌐cΓóπεΓ ¡e»o-
  557. cpeñcΓóe¡¡o c ºa»¿c∞ε ¿ ¡e có∩ºa¡δ c ña¡¡δ¼¿ ó c»¿c¬e óóoña/óδ-
  558. óoña.
  559.  
  560.  
  561.  
  562.      äa¡¡δe ó c»eµ¿Σ¿¬aµ¿¿ Σop¼aΓa óoc»p¿¡¿¼aεΓc∩ c½eóa ¡a»paóo.
  563. ÅoóΓop∩e¼δ⌐ peña¬µ¿o¡δ⌐ ñec¬p¿»Γop ñe⌐cΓóπeΓ Γa¬, ¬a¬ ec½¿ íδ o¡¿
  564. »p¿cπΓcΓóoóa½¿ r paº (ec½¿ r »po»πΘe¡, Γo ¬oφΣ¿µ¿e¡Γ »oóΓope¡¿∩
  565. paóe¡ eñ¿¡¿µe). Ca¼a c»eµ¿Σ¿¬aµ¿∩ Σop¼aΓa ¼oªeΓ ¿¼eΓ∞ ¬oφΣ¿µ¿e¡Γ
  566. »oóΓope¡¿∩:
  567.                      10(5F10.4,2(3X,5I3))
  568.      Åp¿ Σop¼aΓ¡o¼ óóoñe/óδóoñe "¬o¡Γpo½½ep Σop¼aΓa" oípaíaΓδóaeΓ
  569. ña¡¡δe Σop¼aΓa, ¬a¬ o»¿ca¡o ó »peñδñπΘe¼ »apaúpaΣe. Koúña ócΓpeτa-
  570. eΓc∩ »oóΓop∩e¼δ⌐ peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop, óoº¡¿¬aeΓ oñ¡a ¿º c½e-
  571. ñπεΘ¿x c¿Γπaµ¿⌐.
  572. 1.   CooΓóeΓcΓóπεΘee ña¡¡oe »o∩ó½∩eΓc∩ ó c»¿c¬e óóoña/óδóoña, ó
  573.      φΓo¼ c½πτae ña¡¡oe ¿ peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop có∩ºδóaεΓc∩ ¿
  574.      óóoñ/óδóoñ Γa¬oúo ña¡¡oúo »po¿cxoñ¿Γ »oñ Σop¼aΓ¡δ¼ π»paó½e¡¿e¼
  575.      φΓoúo ñec¬p¿»Γopa.
  576. 2.   B c»¿c¬e óóoña/óδóoña ¡e »o∩ó½∩eΓc∩ ¡¿¬a¬¿x ña¡¡δx, ó φΓo¼
  577.      c½πτae "¬o¡Γpo½ep Σop¼aΓa" ºa¬a¡τ¿óaeΓ óóoñ/óδóoñ. Ta¬, ñ½∩
  578.      c½eñπεΘ¿x o»epaΓopoó:
  579.                        I=5 WRITE (*,10)I
  580.                     10 FORMAT (1X,'I= ',I5,'J= ',15)
  581.      óδóoñ íπñeΓ óδú½∩ñ¿Γ∞ c½eñπεΘ¿¼ oípaºo¼:
  582.  
  583.                        I= 5,J=
  584.      Ec½¿ ¬o¡Γpo½½ep Σop¼aΓa ócΓpeτaeΓ ºa¬pδóaεΘπε »paóπε c¬oí¬π
  585. c»eµ¿Σ¿¬aµ¿¿ Σop¼aΓa ¿, ec½¿ ó c»¿c¬e óóoña/óδóoña ío½∞Φe ña¡¡δx
  586. ¡eΓ, ¬o¡Γpo½ep Σop¼aΓa ºa¬a¡τ¿óaeΓ óóoñ/óδóoñ. Ec½¿ ¬o¡Γpo½ep Σop-
  587. ¼aΓa ócΓpeτaeΓ ñóoeΓoτ¿e (:), ¿ ó c»¿c¬e óóoña/óδóoña ña¡¡δx ío½∞Φe
  588. ¡eΓ, Γo o¡ ºa¬a¡τ¿óaeΓ óóoñ/óδóoñ.
  589.      Oñ¡a¬o, ec½¿ ó c»¿c¬e óóoña/óδóoña eΘe ecΓ∞ ña¡¡δe, Σa⌐½ »o-
  590. ¼eΘaeΓc∩ ó ¡aτa½o c½eñπεΘe⌐ ºa»¿c¿ ¿ ¬o¡Γpo½ep Σop¼aΓa »poño½ªaeΓ
  591. oípaíoΓ¬π Σop¼aΓa, ¡aτ¿¡a∩ ó ¡aτa½e c»eµ¿Σ¿¬aµ¿¿ Σop¼aΓa ¿ ºa¬a¡-
  592. τ¿óa∩ »oc½eñ¡e⌐ »paóo⌐ c¬oí¬o⌐. Ec½¿ »paóo⌐ c¬oí¬¿ ¡eΓ, ¬o¡Γpo½½ep
  593. Σop¼aΓa »poc¼aΓp¿óaεΓ Σop¼aΓ c¡aτa½a. B »poc¼oΓpe¡¡o⌐ τacΓ¿ Σop¼aΓa
  594. ño½ªe¡ íδΓ∞ xoΓ∩ íδ oñ¿¡ »oóΓop∩e¼δ⌐ peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop.
  595.      Ec½¿ »poc¼oΓp c»eµ¿Σ¿¬aµ¿¿ Σop¼aΓa ¡aτ¿¡aeΓc∩ c »oóΓop∩e¼o⌐
  596. ó¡πΓpe¡e⌐ c»eµ¿Σ¿¬aµ¿¿ Σop¼aΓa, Γo ¬oφΣ¿µ¿e¡Γ »oóΓope¡¿∩ π¬aºδóaeΓ
  597. ¬o½¿τecΓóo »oóΓope¡¿⌐ c»eµ¿Σ¿¬aµ¿¿ Σop¼aΓa. Åpoc¼oΓp ¡e ¿º¼e¡∩eΓ
  598. πcΓa¡oó½e¡¡δ⌐ ¼acΦΓaí¡δ⌐ ¬oφΣ¿µ¿e¡Γ ¿½¿ π»paó½e¡¿e »poíe½a¼¿ BN ¿
  599. BZ. Koúña ¬o¡Γpo½½ep ºa¬a¡τ¿óaeΓ cóoe ñe⌐cΓó¿e, ocΓaóΦ¿ec∩ c¿¼óo½δ
  600. óóoñ¿¼o⌐ ºa»¿c¿ »po»πc¬aεΓc∩, ¿½¿ ¬o¡eµ ºa»¿c¿ ºa»¿ΦeΓc∩ ¡a óδxoñe.
  601. êc¬½ετe¡¿e ¿¼eeΓ ¼ecΓo ó c½πτae, ¬oúña »p¿¼e¡∩eΓc∩ c¿¼óo½ \ (c¼.
  602. ña½ee ó φΓo⌐ ú½aóe o»¿ca¡¿e oípaΓ¡oúo c½eΦa).
  603.  
  604. 4.2.Peña¬µ¿o¡¡δe ñec¬p¿»Γopδ.
  605.  
  606.      Peña¬µ¿o¡¡δe ñec¬p¿»Γopδ ó öopΓpa¡e o»peñe½∩εΓ Σop¼π ºa»¿c¿
  607. ¿ π»paó½∩εΓ có∩º∞ε ¼eªñπ º¡a¬a¼¿ ºa»¿c¿ ¿ ó¡πΓpe¡¡¿¼ Σop¼aΓo¼ ña¡-
  608. ¡δx. CπΘecΓóπεΓ ñóa ó¿ña peña¬µ¿o¡δx ñec¬p¿»Γopoó: »oóΓop∩e¼δe ¿
  609. ¡e»oóΓop∩e¼δe. O¡¿ o»¿ca¡δ ¡¿ªe.
  610.  
  611.                  He»oóΓop∩e¼δ⌐ peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop.
  612. 1. A»ocΓpoΣ ('xxxx')
  613.           Peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop a»ocΓpoΣ ¿¼eeΓ ó¿ñ º¡a¬oóo⌐
  614.      ¬o¡cΓa¡Γδ ¿ »«p«ªñaeΓ φΓπ º¡a¬oóπε ¬o¡cΓa¡Γπ, »ÑαÑñáóáѼπε
  615.      ¡á óδxoñ¡oÑ πßΓα«⌐ßΓó. ôτ¿ΓδóaεΓc∩ ó¡πΓpe¡¡¿e »poíe½δ; ñ½∩
  616.      »peñcΓaó½e¡¿∩ ó º¡a¬oóo⌐ ¬o¡cΓa¡Γe oñ¡oúo a»ocΓpoΣa c½eñπeΓ
  617.      »p¿¼e¡∩Γ∞ ñóe ¬aóδτ¬¿. A»ocΓpoΣ ó ¬aτecΓóe c»eµ¿Σ¿¬aµ¿¿ ¡e½∞º∩
  618.      »p¿¼e¡∩Γ∞ ñ½∩ óóoña (READ).
  619.      Åp¿¼epδ »p¿óoñ∩Γc∩ ¡¿ªe.
  620.  
  621.  
  622.  
  623. 2. Xo½½ep¿τec¬oe peña¬Γ¿poóa¡¿e (H).
  624.           Peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop nH »epeñaeΓ »oc½eñπεΘ¿e n
  625.      c¿¼óo½«ó, ó¬½ετa∩ »poíe½δ, ó óδxoñ¡o⌐ í½o¬. Xo½½ep¿τec¬oe pe-
  626.      ña¬Γ¿poóa¡¿e ¡e½∞º∩ »p¿¼e¡∩Γ∞ ñ½∩ óóoña (READ).
  627. Åp¿¼epδ peña¬Γ¿poa¡¿∩ c a»ocΓpoΣo¼ ¿ xo½½ep¿τec¬oúo peña¬Γ¿poóa¡¿∩:
  628.        C Kaªñδ⌐ WRITE óδóoñ¿Γ º¡a¬¿ ¼eªñπ c½eΦa¼¿ :/ABC'DEF/
  629.        C C»eµ¿Σ¿¬aµ¿∩ a»ocΓpoΣ
  630.                 WRITE (*,970)
  631.             970 FORMAT ('ABC"DEF')
  632.                 WRITE (*,'("ABC""DEF")')
  633.        C Toªe ca¼oe c ¿c»o½∞ºoóa¡¿e¼ c»eµ¿Σ¿¬aµ¿¿ H
  634.                 WRITE (*,'(8H ABC'DEF)')
  635.                 WRITE (*,960)
  636.             960 FORMAT (8H ABC'DEF)
  637.      Åeαóδ⌐ »poíe½ oº¡aτaeΓ c¿¼óo½ π»paó½e¡¿∩ ¬apeΓ¬o⌐, oíec»e-
  638.      τ¿óaεΘ¿⌐ ee óoºópaΓ.
  639. 3. Åoº¿µ¿o¡¡oe peña¬Γ¿poóa¡¿e (Tc,TLc ¿ TRc).
  640.           Peña¬µ¿o¡¡δe ñec¬p¿»Γopδ T,TL ¿ TR o»peñe½∩εΓ »oº¿µ¿ε ó
  641.      ºa»¿c¿ ó ¬oΓopπε, ¿½¿ c ¬oΓopo⌐ íπñeΓ »epeñaóaΓ∞c∩ c½eñπεΘ¿⌐
  642.      c¿¼óo½. Åoº¿µ¿∩, o»peñe½∩e¼a∩ peña¬µ¿o¡¡δ¼ ñec¬p¿»Γopo¼ T
  643.      ¼oªeΓ ¡axoñ¿Γ∞c∩ ó ½εío¼ ¡a»paó½e¡¿¿ oΓ Γe¬πΘeúo »o½oªe¡¿∩.
  644.      ¥Γo »oºóo½∩eΓ oípaíaΓδóaΓ∞ ºa»¿c∞ ío½ee oñ¡oúo paºa ¡a óxoñe.
  645.      Ha óδxoñe »oº¿µ¿¿ c¿¼óo½a ¡e o»peñe½∩εΓc∩ c »o¼oΘ∞ε T; peña¬-
  646.      µ¿o¡¡δe ñec¬p¿»Γopδ TL ¿ TR ºa»o½¡e¡δ »poíe½a¼¿ Γa¬, ¬a¬ ec½¿
  647.      íδ ºa»¿c∞ íδ½a ºa»o½¡e¡a »poíe½a¼¿ »epóo¡aτa½∞¡o.
  648.           Peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop Tc o»peñe½∩eΓ, τΓo »epeñaτa c½e-
  649.      ñπεΘeúo º¡a¬a ño½ª¡a »po¿ºo⌐Γ¿ ó »oº¿µ¿ε º¡a¬a C. Peña¬µ¿o¡¡δ⌐
  650.      ñec¬p¿»Γop TRc o»peñe½∩eΓ, τΓo »epeñaτa c½eñπεΘeúo º¡a¬a ño½-
  651.      ª¡a »po¿cxoñ¿Γ∞ ¡a C º¡a¬oó ó»epeñ oΓ Γe¬πΘeúo »o½oªe¡¿∩.
  652.      Peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop TLc o»peñe½∩eΓ, τΓo »epeñaτa c½eñπ-
  653.      εΘeúo º¡a¬a ño½ª¡a »po¿cxoñ¿Γ∞ ¡a C º¡a¬oó ¡aºañ oΓ Γe¬πΘeúo
  654.      »o½oªe¡¿∩. Ec½¿ Γe¬πΘee »o½oªe¡¿e ¼e¡∞Φe ¿½¿ paó¡o C, Γo c»e-
  655.      µ¿Σ¿¬aµ¿∩ TLc óδºoóeΓ »epeñaτπ Γe¬πΘe⌐ ºa»¿c¿ ó ¿½¿ ¿º »epóo⌐
  656.      »oº¿µ¿¿.
  657.           Peña¬µ¿o¡¡δe ñec¬p¿»Γopδ T ¡e½∞º∩ ¿c»o½∞ºoóaΓ∞ ñ½∩ »e-
  658.      pe¼eΘe¡¿∩ ó½eóo ºa 128 »oº¿µ¿ε, Γ.¬. óδxoñ¡δe ña¡¡δe coñep-
  659.      ªaΓc∩ ¡a íπΣepe Γá¬oúo paº¼epa.
  660. 4. Åoº¿µ¿o¡¡oe peña¬Γ¿poóa¡¿e (X).
  661.           Ha óxoñe (READ) peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop nX »po»πc¬aeΓ n
  662.      º¡a¬oó. Ha óδxoñe (WRITE) peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop nX »¿ΦeΓ n
  663.      »poíe½oó, a ña½∞Φe ºa»¿c∞ íπñeΓ »α«ñ«½ªÑ¡á; Ñß½¿ ºá»¿ß¿ ¡ÑΓ,
  664.      Γ« «¡ ¡¿τÑú« ¡Ñ ñѽáÑΓ.
  665. 5. C»eµ¿Σ¿¬aµ¿∩ ñ½∩ ¡Ñ«í∩ºáΓѽ∞¡«ú« »½εcá (SP,SS ¿ S).
  666.           Peña¬µ¿o¡¡δe ñec¬p¿»Γopδ SP,SS ¿ S ¼oúπΓ »p¿¼e¡∩Γ∞c∩
  667.      ñ½∩ π»paó½e¡¿∩ ño»o½¡¿Γe½∞¡δ¼¿ º¡a¬a¼¿ "»½εc" ó µ¿Σpoóδx óδ-
  668.      xoñ¡δx »o½∩x. SP óδºδóaeΓ »o∩ó½e¡¿e º¡a¬a "»½εc" óo ócex »o-
  669.      c½eñπεΘ¿x »oº¿µ¿∩x, ¬oΓopδe »poµeccop o»oº¡aeΓ, ¬a¬ »o½∩ c
  670.      ño»o½¡¿Γe½∞¡δ¼ »o½εco¼. SS oΓ¼e¡∩eΓ º¡a¬ "»½εc" óo ócex »o-
  671.      c½eñπεΘ¿x »oº¿µ¿∩x, ¬oΓopδe »poµeccop o»oº¡aeΓ, ¬a¬ »o½∩ c
  672.      ño»o½¡¿Γe½∞¡δ¼ »o½εco¼. S ó«ßßΓá¡áó½¿óáÑΓ »αÑñδñπΘ¿⌐ peª¿¼
  673.      »½εcá.
  674. 6. C½eΦ (/).
  675.           C½eΦ oº¡aτaeΓ ¬o¡eµ »epeñaτ¿ ña¡¡δx Γe¬πΘe⌐ ºa»¿c¿. Åp¿
  676.      óóoñe Σa⌐½ »o¼eΘaeΓc∩  ó ¡aτa½o c½eñπεΘe⌐ ºa»¿c¿. Åp¿ óδóoñe
  677.      ºa»¿cδóaeΓc∩ ¬o¡eµ ºa»¿c¿ ¿ Σa⌐½ pac»o½aúaeΓc∩ Γa¬, τΓoíδ
  678.      ºa»¿cδóaΓ∞ ó ¡aτa½o c½eñπεΘe⌐ ºa»¿c¿.
  679.  
  680.  
  681.  
  682. 7. OípaΓ¡δ⌐ c½eΦ (\).
  683.           Oíδτ¡o »p¿ o¬o¡τa¡¿¿ "¬o¡Γpo½½epa Σop¼aΓa" »po¿cxoñ¿Γ
  684.      ¬o¡eµ »epeñaτ¿ ña¡¡δx Γe¬πΘe⌐ ºa»¿c¿. Ec½¿ »oc½eñ¡¿¼ peña¬-
  685.      µ¿o¡¡δ¼ ñec¬p¿»Γopo¼, óoc»p¿¡∩Γδ¼ "¬o¡Γpo½½epo¼ Σop¼aΓa" ∩ó-
  686.      ½∩eΓc∩ oípaΓ¡δ⌐ c½eΦ (\) Γo aóΓo¼aΓ¿τec¬¿⌐ ¬o¡eµ ºa»¿c¿ ºa-
  687.      »peΘaeΓc∩, τΓo »oºóo½∩eΓ »oc½eñπεΘ¿¼ o»epaΓopa¼ óóoña/óδóoña
  688.      »poño½ªaΓ∞ τΓe¡¿e (¿½¿ ºa»¿c∞) c (¿½¿ ¡a) φΓo⌐ ªe ºa»¿c¿.
  689.      ¥ΓoΓ ¼exa¡¿º¼ Φ¿po¬o ¿c»o½∞ºπeΓc∩ ñ½∩ »o½πτe¡¿∩ ¡a φ¬pa¡e
  690.      ºa»poca ¿ oΓóeΓa ¡a oñ¡o⌐ ¿ Γo⌐ ªe cΓpo¬e, ¡a»p¿¼ep:
  691.                    WRITE (*,'(A\)') 'Bóoñ µe½o⌐ óe½¿τ¿¡δ->'
  692.                    READ (*,'(BN,I6)')I
  693.      OípaΓ¡δ⌐ c½eΦ ¡e ºa»peΘaeΓ aóΓo¼aΓ¿τec¬¿⌐ ¬o¡eµ ºa»¿c¿,
  694.      úe¡ep¿pπe¼δ⌐ »p¿ τΓe¡¿¿ c * πcΓpo⌐cΓóa; óóoñ c ¬½aó¿áΓπαδ
  695.      óceúña ño½ªe¡ ºa¬a¡τ¿óaΓ∞c∩ ¡aªaΓ¿e¼ ¡a ENTER. OípaΓ¡δ⌐ c½eΦ
  696.      óo ó¡πΓpe¡¡¿x Σa⌐½ax ¼oª¡o ¡e ¿c»o½∞ºoóaΓ∞.
  697. 8. Ko¡eµ π»paó½e¡¿∩ Σop¼aΓo¼ (:).
  698.           äóoeΓoτ¿e (:) ºa¬a¡τ¿óaeΓ π»paó½e¡¿e Σop¼aΓo¼, ec½¿ ó
  699.      c»¿c¬e óóoña/óδóoña ío½∞Φe ¡eΓ ña¡¡δx. äa¡¡δ⌐ ñec¬p¿»Γop ¼oª¡o
  700.      ¿c»o½∞ºoóaΓ∞ ñ½∩ »pe¬paΘe¡¿∩ óδóoña, ec½¿ ¡e¬oΓopδe º¡a¬¿ ó
  701.      Σop¼aΓe ¡e ¿¼eεΓ cooΓóeΓcΓóπεΘ¿x ña¡¡δx ó c»¿c¬e óóoña/óδóoña.
  702. 9. C»eµ¿Σ¿¬aµ¿∩ c ¼acΦΓaí¡δ¼ ¬«φΣΣ¿µ¿Ñ¡Γ«¼ (P).
  703.           Peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop ¬P πcΓa¡aó½¿óaeΓ ¼acΦΓaí¡δ⌐
  704.      ¼¡oª¿Γe½∞ ñ½∩ »oc½eñπεΘ¿x peña¬µ¿o¡¡δx ñec¬p¿»Γoα«ó F ¿ E ño
  705.      c½eñπεΘeúo peña¬µ¿o¡¡oúo ñec¬p¿»Γopa ¬P. B ¡aτa½e ¬aªñoúo
  706.      o»epaΓopa óóoña/óδóoña ¼acΦΓaí¡δ⌐ ¼¡oª¿Γe½∞ »epóo¡aτa½∞¡o
  707.      πcΓa¡aó½¿óaeΓc∩ paó¡δ¼ ¡π½ε. MacΦΓaí¡δ⌐ ¼¡oª¿Γe½∞ óoºñe⌐cΓóπeΓ
  708.      ¡a peña¬Γ¿poóa¡¿e Σop¼aΓa c½eñπεΘ¿¼ oípaºo¼:
  709.      a. Ha óxoñe »p¿ peña¬Γ¿poóa¡¿¿ F ¿ E (ó »o½e ¡e cπΘecΓóπeΓ
  710.      ¡¿¬a¬¿x ∩ó¡δx »o¬aºaΓe½e⌐ cΓe»e¡e⌐) ¿ ¡a óδxoñe »p¿ peña¬-
  711.      Γ¿poóa¡¿¿ F τ¿c½a óo ó¡eΦ¡e¼ »peñcΓaó½e¡¿¿ paó¡δ τ¿c½a¼ óo
  712.      ó¡πΓpe¡¡e¼ »peñcΓaó½e¡¿¿, π¼¡oªe¡¡δ¼ ¡a 10**K.
  713.      í. Ha óxoñe »p¿ peña¬Γ¿poóa¡¿¿ F ¿ E ¼acΦΓaí¡δ⌐ ¼¡oª¿Γe½∞ ¡e
  714.      o¬aºδóaeΓ óoºñe⌐cΓó¿∩, ec½¿ ó« óóoñ¿¼o¼ »o½e »p¿cπΓcΓóπeΓ
  715.      cΓe»e¡∞.
  716.      ó. Ha óδxoñe »p¿ peña¬Γ¿poóa¡¿¿ E ñe⌐cΓó¿Γe½∞¡a∩ τacΓ∞ »o-
  717.      ½πτaeΓc∩ π¼¡oªe¡¡o⌐ ¡a 10**K, a »op∩ño¬ π¼e¡∞ΦaeΓc∩ ¡a K (¿º-
  718.      ¼e¡∩eΓc∩ »o½oªe¡¿e ñec∩Γ¿τ¡o⌐ Γoτ¬¿, a ¡e ca¼a óδóoñ¿¼a∩ óe-
  719.      ½¿τ¿¡a).
  720. 10. ê¡Γep»pÑΓaµ¿∩ »poíe½a (BN ¿ BZ).
  721.           ¥Γ¿ peña¬µ¿o¡¡δe ñec¬p¿»Γopδ o»peñe½∩εΓ ¿¡Γep»p¿Γaµ¿ε
  722.      »poíe½oó ó µ¿Σpoóδx óóoñ¿¼δx »o½∩x. Åo π¼o½τa¡¿ε BZ πcΓa¡aó-
  723.      ½¿óaeΓc∩ ó ¡aτa½o ¬aªñoúo o»epaΓopa óóoña/óδóoña. ¥Γo »p¿óoñ¿Γ
  724.      ¬ Γo¼π, τΓo »poíe½δ, ºa ¿c¬½ετe¡¿e¼ óeñπΘ¿x, ¿ñe¡Γ¿τ¡δ ¡π½∩¼.
  725.      Ec½¿ peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop BN oípaíaΓδóaeΓc∩ ¬«¡Γα«½½Ñpo¼
  726.      Σop¼aΓa, Γo »poíe½δ ó »oc½eñπεΘ¿x óxoñ¡δx »o½∩x ¿ú¡op¿pπeΓc∩
  727.      ño Γex »op, »o¬a ¡e ºapaíoΓaeΓ pÑña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop BZ.
  728.           Åp¿ ¿ú¡op¿poóa¡¿¿ »poíe½oó óce º¡a¬¿, ¡e ∩ó½∩εΘ¿ec∩ »po-
  729.      íe½a¼¿, ó¬½ετaεΓc∩ ó »o½e óóoña ¬a¬, ec½¿ íδ o¡¿ í뫨 cñó¿¡πΓδ
  730.      ó»paóo óeñπΘ¿¼ τ¿c½o¼ »poíe½oó, ¡á τ¿c½« ¿ú¡op¿poóa¡¡δx »po-
  731.      íe½oó. Ha»p¿¼ep, c½eñπεΘ¿⌐ o»epaΓop READ óoc»p¿¡¿¼aeΓ c¿¼óo½δ
  732.      ¼eªñπ c½eΦa¼¿, ¬a¬ º¡aτe¡¿e 123 (ENTER oº¡aτaeΓ ¡aªaΓ¿e
  733.      ¬½aó¿Φ¿ óóoña):
  734.                     READ (*,100)I
  735.                 100 FORMAT (BN,16)
  736.                     /123 ENTER/
  737.                     /123  456 ENTER/
  738.                     /123  123ENTER/
  739.  
  740.  
  741.  
  742.      Ec½¿ READ có∩ºa¡ c "¬opoΓ¬o⌐" ºa»¿c∞ε, aóΓo¼aΓ¿τec¬¿ ¡aτ¿¡aeΓ
  743.      ñe⌐cΓóoóaΓ∞ peña¬Γ¿poóa¡¿e BN; "¬opoΓ¬a∩" »oñpaºπ¼eóaeΓ, τΓo
  744.      oíΘee τ¿c½o º¡a¬oó óóoñ¿¼o⌐ ºa»¿c¿ ¼e¡∞Φe τ¿c½a º¡a¬oó, o»pe-
  745.      ñe½e¡¡δx ¬o¼í¿¡aµ¿e⌐ o»¿caΓe½e⌐ Σop¼aΓa ¿ φ½e¼e¡Γa¼¿ c»¿c¬a
  746.      óóoña/óδóoña. ça»¿c∞ ño»o½¡∩eΓc∩ c»paóa »poíe½a¼¿ ño Γpeíπe¼o⌐
  747.      ñ½¿¡δ.
  748.      Ta¬, c½eñπεΘ¿⌐ »p¿¼ep ñacΓ óe½¿τ¿¡π 123, a ¡e 12300:
  749.                       READ (*,'(I5)')I
  750.                       /123 ENTER/
  751.      Peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop BN coó¼ecΓ¡o c ño»o½¡e¡¿e¼ Σop¼aΓ¡δx
  752.      ºa»¿ce⌐ »poíe½a¼¿ ñe½aeΓ ¿¡Γepa¬Γ¿ó¡δ⌐ óóoñ oτe¡∞ πñoí¡δ¼.
  753.  
  754.               ÅoóΓop∩e¼δe peña¬µ¿o¡¡δe ñec¬p¿»Γopδ.
  755.  
  756.    C»eµ¿Σ¿¬aµ¿¿ I,F,E,D ¿ G »p¿¼e¡∩εΓc∩ ñ½∩ óóoña/óδóoña µ¿Σpoóδx
  757.  ña¡¡δx. ä½∩ ócex µ¿Σpoóδx c»eµ¿Σ¿¬aµ¿⌐ ñe⌐cΓóπεΓ c½eñπεΘ¿e »paó¿½a:
  758. 1.   Åp¿ óóoñe óeñπΘ¿e »poíe½δ º¡aτe¡¿∩ ¡e ¿¼eεΓ. OcΓa½∞¡δe »poíe½δ
  759.      óoc»p¿¡¿¼aεΓc∩ »o-paº¡o¼π, ó ºaó¿c¿¼ocΓ¿ oΓ »p¿º¡a¬oó BN ¿½¿
  760.      BZ, ¡o óce º¡aτe¡¿∩ »poíe½oó óceúña paó¡δ ¡π½ε. ç¡a¬ »½εc
  761.      »p¿cπΓcΓóπeΓ »o ªe½a¡¿ε. Åpoíe½δ, »p¿cπΓcΓóπεΘ¿e ó c¿cΓe¼e
  762.      Σa⌐½a ñ½∩ ño»o½¡e¡¿∩ ºa»¿c¿ ño Γpeíπe¼o⌐ ñ½¿¡δ, Γa¬ªe ∩ó½∩-
  763.      εΓc∩ ¡eº¡aτaΘ¿¼¿.
  764. 2.   Åp¿ óóoñe co c»eµ¿Σ¿¬aµ¿∩¼¿ F ¿ E ∩ó¡a∩ ñec∩Γ¿τ¡a∩ Γoτ¬a, »o-
  765.      ∩ó½∩εΘa∩c∩ ó »o½e óóoña oΓ¼e¡∩eΓ c»eµ¿Σ¿¬aµ¿¿ peña¬µ¿o¡¡oúo
  766.      ñec¬p¿»Γopa o »o½oªe¡¿¿ ñec∩Γ¿τ¡o⌐ Γoτ¬¿.
  767. 3.   Åp¿ óδóoñe úe¡ep¿pπe¼δe º¡a¬¿ cñó¿úaεΓc∩ ó»paóo ¿ ño»o½¡∩εΓc∩
  768.      óeñπΘ¿¼¿ »poíe½a¼¿, ec½¿ φΓo ΓpeíπeΓc∩.
  769. 4.   Ec½¿ τ¿c½o º¡a¬oó »p¿ óóoñe »peóocxoñ¿Γ Φ¿p¿¡π »o½∩, Γo óce
  770.      »o½e ºa»o½¡∩eΓc∩ ºóeºñoτ¬a¼¿.
  771. 5.   Åp¿ τΓe¡¿¿ co c»eµ¿Σ¿¬aµ¿∩¼¿ I,F,E,D,G ¿½¿ L »o½e óóoña ¼oªeΓ
  772.      coñepªaΓ∞ ºa»∩Γπε o¬o¡τ¿óΦπε »o½e. Cτ¿Γδóa¡¿e c½eñπΘeúo »o½∩
  773.      ¡aτ¡eΓc∩ co º¡a¬a, c½eñπΘeúo ºa ºa»∩Γo⌐. Åpo»πΘe¡¡δe º¡a¬¿
  774.      ¡e cπΘecΓóe¡¡δ. Ha»p¿¼ep,
  775.                      READ (*,'(3I5)')I,J,K
  776.                      /1,2,3,
  777.      ñaeΓ:
  778.                      I=1,J=20 ¿ K=3
  779.      He c½eñπeΓ »o½∞ºoóaΓ∞c∩ Γa¬¿¼ ¼eΓoño¼, ec½¿ Bδ ªe½aeΓe
  780.      »p¿¼e¡¿Γ∞ c»eµ¿Σ¿¬aµ¿ε ∩ó¡oúo »o½oªe¡¿∩ »o½∩ (Γ.e. »p¿¼e¡e¡¿e
  781.      peña¬µ¿o¡¡δx ñecp¿»Γopoó T,TL ¿ TR).
  782.  
  783.           O»¿ca¡¿e »oóΓop∩e¼δx peña¬µ¿o¡¡δx ñec¬p¿»Γoα«ó.
  784. 1. ûe½oe (I).
  785.           C»eµ¿Σ¿¬aµ¿∩ I ¼oªeΓ ¿¼eΓ∞ ó¿ñ Iw ¿½¿ Iw.m. O¡a có∩ºa¡a
  786.      c ña¡¡δ¼¿ c»¿c¬a óóoña/óδóoña µe½oúo Γ¿»a. ÿ¿p¿¡a »o½∩ - W
  787.      º¡a¬oó. Åp¿ óóoñe ¼oªeΓ »p¿cπΓcΓóoóaΓ∞ º¡a¬.
  788.           öop¼a Iw.m, úñe m - µe½a∩ íeº º¡a¬a, oº¡aτaeΓ, τΓo ó
  789.      »o½e óδóoña »o∩ó¿Γc∩ »o ¬pa⌐¡e⌐ ¼epe m τ¿ce½ c óeñπΘ¿¼¿ »po-
  790.      íe½a¼¿, ec½¿ o¡¿ ΓpeíπεΓc∩. Åp¿ óδóoñe m ¡e ñe⌐cΓóπeΓ.
  791. 2. äe⌐cΓó¿Γe½∞¡oe (F).
  792.           C»eµ¿Σ¿¬aµ¿∩ Fw.d có∩ºa¡a c ña¡¡δ¼¿ c»¿c¬a óóoña/óδóoña
  793.      Γ¿»a REAL ¿½¿ REAL*8. ÿ¿p¿¡a óceúo »o½∩ W º¡a¬oó, ¿º ¡¿x d
  794.      º¡a¬oó oΓóoñ¿Γc∩ ¡a ñpoí¡πε τacΓ∞. Åo½e óóoña ¼oªeΓ ¡aτ¿¡aΓ∞c∩
  795.      co º¡a¬a, ºa ¡¿¼ c½eñπεΓ µ¿Σpδ, cpeñ¿ ¬oΓopδx ¼oªeΓ »p¿cπΓ-
  796.      cΓóoóaΓ∞ ñec∩Γ¿τ¡a∩ Γoτ¬a. Ec½¿ ñec∩Γ¿τ¡a∩ Γoτ¬a »p¿cπΓcΓóπeΓ,
  797.      o¡a oΓ¼e¡∩eΓ c»eµ¿Σ¿¬aµ¿ε d ó peña¬µ¿o¡¡o¼ ñ¿c¬p¿»Γope; ¿¡aτe
  798.      cΓo∩Θ¿e c»paóa d µ¿Σpδ íπñπΓ ¿¡Γep»peΓ¿poóaΓ∞c∩, ¬a¬ c½eñπεΘ¿e
  799.      ºa ñec∩Γ¿τ¡o⌐ Γoτ¬o⌐ (c óeñπΘ¿¼¿ »poíe½a¼¿, »peoípaºπe¼δ¼¿ ó
  800.      ¡π½¿, ec½¿ o¡¿ ΓpeíπεΓc∩).
  801.  
  802.  
  803.  
  804.      ça ¡¿¼¿ ¼oªeΓ c½eñoóaΓ∞ »op∩ño¬:
  805.      a. +(»½εc) ¿½¿ -(¼¿¡πc), a ºa ¡¿¼¿ c½eñπeΓ µe½oe τ¿c½o.
  806.      í. ºa E ¼oúπΓ c½eñoóaΓ∞ »poíe½δ, ºa ¡¿¼¿ c½eñπeΓ º¡a¬, ¡o ¡e
  807.      oí∩ºaΓe½∞¡o, a ºa ¡¿¼ - µe½oe τ¿c½o.
  808.           Åo½e óδóoña ºa¡¿¼aeΓ W º¡a¬oó, ¿º ¬oΓopδx d ¡axoñ∩Γc∩
  809.      »oc½e ñec∩Γ¿τ¡o⌐ Γoτ¬¿. Bδóoñ¿¼a∩ óe½¿τ¿¡a π»paó½∩eΓc∩ ¿
  810.      ña¡¡δ¼ c»¿c¬a óóoña/óδóoña, ¿ Γe¬πΘ¿¼ ¼acΦΓaí¡δ¼ ¬oφΣ¿µ¿e¡Γo¼.
  811.      Bδóoñ¿¼a∩ óe½¿τ¿¡a o¬pπú½∩eΓc∩, a ¡e πßѬáeΓc∩.
  812. 3. C»eµ¿Σ¿¬aµ¿¿ E ¿ ä.
  813.           C»eµ¿Σ¿¬aµ¿∩ E ¼oªeΓ ¿¼eΓ∞ ó¿ñ Ew.d ¿½¿ Ew.dEe. C»eµ-
  814.      ¿Σ¿¬aµ¿∩ ä ¿¼eeΓ ó¿ñ Dw.d. Bce »apa¼eΓpδ ¿ »paó¿½a, c»paóeñ-
  815.      ½¿óδe ñ½∩ c»eµ¿Σ¿¬aµ¿¿ E, c»paóeñ½¿óδ ¿ ñ½∩ ä.
  816.           ä½∩ «í«¿σ ó¿ñoó Φ¿p¿¡a »o½∩ cocΓaó½∩eΓ W º¡a¬oó. E ¡e
  817.      ó½¿∩eΓ ¡a óóoñ. Åo½∩ óóoña ñ½∩ E ¿ ä - ¿ñe¡Γ¿τ¡δ »o½ε, o»¿-
  818.      ca¡¡o¼π ñ½∩ c»eµ¿Σ¿¬aµ¿¿ F c Γa¬¿¼¿ ªe F ¿ d.
  819.      B¿ñ »o½∩ óδóoña º¿ó¿c¿Γ oΓ ¼acΦΓaí¡oúo ¬oφΣ¿µ¿e¡Γa (πcΓa¡oó-
  820.      ½e¡¡oúo c»eµ¿Σ¿¬aµ¿e⌐ P). Åp¿ ¼acΦΓaí¡o¼ ¬oφΣ¿µ¿e¡Γe, paó¡o¼
  821.      ¡π½ε, »o½e óδóoña cocΓo¿Γ ¿º º¡a¬a ¼¿¡πc (ec½¿ o¡ ΓpeíπeΓc∩),
  822.      ñec∩Γ¿τ¡o⌐ Γoτ¬¿, »oc½eñoóaΓe½∞¡ocΓ¿ µ¿Σp, »o½∩ »op∩ñ¬a oñ¡oúo
  823.      ¿º ó¿ñoó, »peñcΓaó½e¡¡oúo ó Γaí 4-2.
  824. ┌─────────┬────────────────────┬────────────────────────────────┐
  825. │ CÅEûêö. │ AüCOï₧THAƒ BEïêùêH.│     Bêä ÅOPƒäKA                │
  826. ├─────────┼────────────────────┼────────────────────────────────┤
  827. │ Ew.d    │  │exp│<=99         │ Åo½e E ¿ñeΓ »½εc ¿½¿ ¼¿¡πc, ºa │
  828. │         │                    │   ¡¿¼ »op∩ño¬ ¿º ñóπx µ¿Σp.    │
  829. ├─────────┼────────────────────┼────────────────────────────────┤
  830. │ Ew.d    │ 99<│exp│<=999      │ Å½εc ¿½¿ ¼¿¡πc, ºa ¡¿¼ - »op∩  │
  831. │         │                    │ ño¬ ¿º Γpex µ¿Σp.              │
  832. ├─────────┼────────────────────┼────────────────────────────────┤
  833. │ Ew.dEe  │ │exp│<=(10**e)-1   │ Å½εc E ¿ñeΓ »½εc ¿½¿ ¼¿¡πc, ºa │
  834. │         │                    │ ¡¿¼ - »op∩ño¬ ¿º e µ¿Σp, óoº-  │
  835. │         │                    │ ¼oª¡δ óeñπΘ¿e ¡π½¿.            │
  836. ├─────────┼────────────────────┼────────────────────────────────┤
  837. │ Dw.d    │ │exp│<=99          │ Åoc½e D ¿ñeΓ »½εc ¿½¿ ¼¿¡πc,   │
  838. │         │                    │ ºa ¡¿¼ - »op∩ño¬ ¿º ñóπx µ¿Σp. │
  839. └─────────┴────────────────────┴────────────────────────────────┘
  840.  
  841.  
  842. ┌─────────┬────────────────────┬────────────────────────────────┐
  843. │ CÅEûêö. │ AüCOï₧THAƒ BEïêùêH.│     Bêä ÅOPƒäKA                │
  844. ├─────────┼────────────────────┼────────────────────────────────┤
  845. │ Dw.d    │ 99<│exp│<=999      │ Å½εc ¿½¿ ¼¿¡πc, ºa ¡¿¼ - »op∩  │
  846. │         │                    │ ño¬ ¿º Γpex µ¿Σp.              │
  847. └─────────┴────────────────────┴────────────────────────────────┘
  848. Taí½¿µa 4-2. MacΦΓaí¡δe ¬oφΣ¿µ¿e¡Γδ ñ½∩ c»eµ¿Σ¿¬aµ¿⌐ E ¿ D.
  849.  
  850.           Ec½¿ aíco½εΓ¡a∩ óe½¿τ¿¡a »op∩ñ¬a »peóocxoñ¿Γ 999, Γo ¡e
  851.      c½eñπeΓ ¿c»o½∞ºoóaΓ∞ c»eµ¿Σ¿¬aµ¿¿ Ew.d ¿ Dw.d. MacΦΓaí¡δ⌐
  852.      ¬oφΣ¿µ¿e¡Γ π»paó½∩eΓ ñec∩Γ¿τ¡o⌐ ¡op¼a½¿ºaµ¿e⌐ »eτaΓáe¼δx »o½e⌐
  853.      E ¿ D. Ec½¿ ¼acΦΓaí¡δ⌐ ¬oφΣ¿µ¿e¡Γ, K, ¡axoñ¿Γc∩ ó ñ¿a»aºo¡e
  854.      (-d<K<=0), Γo »o½e óδóoña coñepª¿Γ Γoτ¡o K óeñπΘ¿x ¡π½e⌐ »oc½e
  855.      ñec∩Γ¿τ¡o⌐ Γoτ¬¿, a »oc½e ¡¿x - d+K º¡aτaΘ¿x µ¿Σp. Ec½¿
  856.      (0<K<d+2), Γo »o½e óδóoña coñepª¿Γ Γoτ¡o K º¡aτaΘ¿x µ¿Σp ó½eóo
  857.      oΓ ñec∩Γ¿τ¡o⌐ Γoτ¬¿ ¿ (d-K-1) »oº¿µ¿⌐ »oc½e ñec∩Γ¿τ¡o⌐ Γoτ¬¿.
  858.      äpπú¿e º¡aτe¡¿∩ K ∩ó½∩εΓc∩ oΦ¿íoτ¡δ¼¿.
  859.  
  860.  
  861.  
  862. 4. C»eµ¿Σ¿¬aµ¿∩ G.
  863.           C»eµ¿Σ¿¬aµ¿∩ G ¿¼eeΓ ó¿ñ Gw.d ¿½¿ Gw.dEe. ä½∩ oío¿x c½π-
  864.      τaeó Φ¿p¿¡a »o½e⌐ óóoña - W º¡a¬oó, ¿º ¡¿x d º¡a¬oó »p¿xoñ¿Γc∩
  865.      ¡a ñpoí¡πε τacΓ∞. Ec½¿ ¼acΦΓaí¡δ⌐ ¬oφΣ¿µ¿e¡Γ ío½∞Φe 1, Γo
  866.      τacΓ∞, oΓóoñ¿¼a∩ oΓ »op∩ñ¬a τ¿c½a cocΓo¿Γ ¿º e µ¿Σp.
  867.           O»¿ca¡¿e G »p¿ óóoñe a¡a½oú¿τ¡o o»¿ca¡¿ε F »p¿ óóoñe.
  868.           G »p¿ óóoñe ºaó¿c¿Γ oΓ óe½¿τ¿¡δ óóoñ¿¼δx ña¡¡δx. B Γaí.
  869.      4-3 »peñcΓaó½e¡a ºaó¿c¿¼ocΓ∞ óδóoña oΓ óe½¿τ¿¡δ ña¡¡δx.
  870.  
  871. ┌──────────────────────────────┬────────────────────────────────┐
  872. │      BEïêùêHA äAHHOâO        │           öOPMAT               │
  873. ├──────────────────────────────┼────────────────────────────────┤
  874. │         M<0.1                │         Ew.d                   │
  875. ├──────────────────────────────┼────────────────────────────────┤
  876. │       0.1<=M<1               │    F(w-n)d,n('b')              │
  877. ├──────────────────────────────┼────────────────────────────────┤
  878. │       1<=M<10                │    F(w-n).(d-1),n('b')         │
  879. │       .  .  .                │    .     .    .                │
  880. │       10**(d-2)<M            │    F(w-n).1,n('b')             │
  881. │       <10**(d-1)             │                                │
  882. ├──────────────────────────────┼────────────────────────────────┤
  883. │       10**(d-1)<M<10**d      │    F(w-n).0,n('b')             │
  884. ├──────────────────────────────┼────────────────────────────────┤
  885. │       M>=10**d               │    Ew.d                        │
  886. └──────────────────────────────┴────────────────────────────────┘
  887. Taí½¿µa 4-3. Åpaó¿½a óδóoña.
  888.  
  889.      Åp¿¼eτa¡¿e ¬ Γaí. 4-3:
  890.      a. 'b' »peñcΓaó½∩eΓ º¡a¬ »poíe½a.
  891.      í. n paó¡o 4 ñ½∩ Gw.d;
  892.         n paó¡o e+2 ñ½∩ Gw.dEe.
  893. 5. C»eµ¿Σ¿¬aµ¿∩ D,E,F ¿ G ñ½∩ ¬o¼»½e¬c¡δx τ¿ce½.
  894.           ä½∩ ¬o¼»½e¬c¡δx τ¿ce½ ¼oª¡o πc»eΦ¡o »p¿¼e¡∩Γ∞ ñóa peña¬-
  895.      µ¿o¡¡δx ñec¬p¿»Γopa Γ¿»oó D,E,F ¿ G. ¥Γ¿ Γ¿»δ ¼oª¡o »p¿¼e¡∩Γ∞
  896.      ó ¬o¼í¿¡aµ¿¿. Åepóδ⌐ peña¬µ¿o¡¡δ⌐ ñec¬p¿»Γop íπñeΓ o»¿cδóaΓ∞
  897.      pea½∞¡πε τacΓ∞ ¬o¼»½e¬c¡oúo τ¿c½a, óΓopo⌐ - ¼¡¿¼πε τacΓ∞.
  898.           ça¼eΓ¿¼, τΓo ¼eªñπ ñec¬p¿»Γopa¼¿ D,E,F ¿ G ¼oúπΓ »o∩ó-
  899.      ½∩Γ∞c∩ ¡e»oóΓop∩Ѽδe peña¬µ¿o¡¡δe ñec¬p¿»Γopδ.
  900. 6. C»eµ¿Σ¿¬aµ¿∩ ñ½∩ ½oú¿τec¬¿x óe½¿τ¿¡ (L).
  901.           Peña¬µ¿o¡¡δ⌐ ñec¬pe»Γop ¿¼eeΓ ó¿ñ Lw, úñe W - Φ¿p¿¡a
  902.      »o½∩. äa¡¡oe ¿º c»¿c¬a óóoña/óδóoña, cooΓóeΓcΓóπεΘee peña¬-
  903.      µ¿o¡¡o¼π ñec¬p¿»Γopπ L ño½ª¡o íδΓ∞ ½oú¿τec¬oúo Γ¿»a (LOGICAL).
  904.      Åo½e óóoña ¼oªeΓ cocΓo∩Γ∞ ¿º »poíe½oó (¡o ¡e oí∩ºaΓe½∞¡o),
  905.      ñec∩Γ¿τ¡o⌐ Γoτ¬¿ (¡e oí∩ºaΓe½∞¡o) ¿ T (ñ½∩ .TRUE.) ¿½¿ F (ñ½∩
  906.      .FALSE.). Bc∩¬¿e ñpπú¿e º¡a¬¿ ó »o½e ¿ú¡op¿pπεΓc∩, ¡o óoc»p¿-
  907.      ¡¿¼aεΓc∩ ¡a óxoñe, Γa¬ τΓo .TRUE. ¿ .FALSE. ñe⌐cΓó¿Γe½∞¡δ ¡a
  908.      óxoñe. Ha óδxoñe ºa W-1 »poíe½a¼¿ c½eñπeΓ T ¿½¿ F.
  909. 7. C¿¼ó«½∞¡á∩ ß»eµ¿Σ¿¬aµ¿∩ (A).
  910.           ¥ΓoΓ peña¬µ¿o¡¡δ⌐ ñec¬pe»Γop ¿¼eeΓ ó¿ñ A ¿½¿ Aw. B »epóo¼
  911.      c½πτae A »p¿¡¿¼aeΓ º¡aτe¡¿e Φ¿p¿¡δ »o½∩ ó ß««ΓóÑΓßΓó¿¿ ß
  912.      ñá¡¡δ¼¿ ó ß»¿ß¬Ñ óó«ñá/óδó«ñá. äa¡¡δe ¿º c»¿c¬a óóoña/óδóoña
  913.      ¼oúπΓ íδΓ∞ ½εíoúo Γ¿»a. Ec½¿ o¡¿ ¡e ∩ó½∩εΓc∩ CHACRACTER, Γo
  914.      ¡a «ñ¿¡ ía⌐Γ »p¿xoñ¿Γc∩ oñ¿¡ º¡a¬, Γa¬¿¼ oípaºo¼ ñ½¿¡a íπñeΓ
  915.      Γa¬o⌐, ¬a¬ π¬aºa¡o ó Γaí½¿µe 4-3.
  916.  
  917.  
  918.  
  919.           Ec½¿ »p¿ óóoñe W »peóocxoñ¿Γ ¿½¿ paó¡o τ¿c½π º¡a¬oó ña¡-
  920.      ¡oúo ¿º c»¿c¬a óóoña/óδóoña, Γo ca¼δe »paóδe º¡a¬¿ »o½∩ óóoña
  921.      ¿c»o½∞ºπεΓc∩, ¬a¬ óóoñ¿¼δe º¡a¬¿; ó »poΓ¿ó¡o¼ c½πτae óóoñ¿¼δe
  922.      º¡a¬¿ c¼eΘaεΓc∩ ó½eóo ¿ »o∩ó½∩εΓc∩ »poíe½δ. Ec½¿ τ¿c½o óóo-
  923.      ñ¿¼δx º¡a¬oó ¡e paó¡o W, Γo »o½e óóoña ño »epeñaτ¿ ña¡¡o¼π
  924.      ¿º c»¿c¬a óóoña/óδóoña ºa»o½¡∩eΓc∩ »poíe½a¼¿ ¿½¿ πpeºaeΓc∩
  925.      ño ñ½¿¡δ W. Ha»p¿¼ep, »p¿ óδ»o½¡e¡¿¿ Σpaú¼e¡Γa »poúpa¼¼δ
  926.              CHARACTER * 10C READ(*,'(A15)')C
  927.      ec½¿ ¡a ¬½aó¿aΓπpe ¡aípa¡δ c½eñπεΘ¿e 13 º¡a¬oó:
  928.              'ABCDEFGHIJKLM'
  929.      Γo »o½e óóoña íπñeΓ ºa»o½¡e¡o »∩Γ¡añµaΓ∞ε º¡a¬a¼¿:
  930.              'ABCDEFGHIJKLM'
  931.      çaΓe¼ »paóδe ñec∩Γ∞ º¡a¬oó íπñπΓ »epeña¡δ φ½e¼e¡Γπ C ¿º c»¿c¬a
  932.      óóoña/óδóoña:
  933.                         'FGHIJKLM'
  934.      Ec½¿ ¡a óδxoñe W »peóδΦaeΓ τ¿c½o º¡a¬oó ña¡¡oúo ¿º c»¿c¬a
  935.      óóoña/óδóoña, óoº¡¿¬aεΓ óeñπΘ¿e »poíe½δ; ó »poΓ¿ó¡o¼ c½πτae
  936.      óδóoñ∩Γc∩ ½eóδe W º¡a¬oó c»¿c¬a.
  937.  
  938.  
  939. 5.BéÄä/é¢éÄä æÅêæèÄî.
  940.  
  941.      Bóoñ/óδóoñ c»¿c¬o¼ »peñcΓaó½∩eΓ coío⌐ »oc½eñoóaΓe½∞¡ocΓ∞
  942. óe½¿τ¿¡ ¿ paºñe½¿Γe½e⌐.
  943.      Be½¿τ¿¡δ ó ºa»¿c¿ c»¿c¬a ¼oúπΓ íδΓ∞ c½eñπεΘ¿¼¿:
  944. 1. Ko¡cΓa¡Γa.
  945. 2. Hπ½eóa∩ óe½¿τ¿¡a.
  946. 3. Ko¡cΓa¡Γa ¿½¿ ¡π½eóa∩ óe½¿τ¿¡a, π¼¡oªe¡¡a∩ ¡a ¡e¡π½eóπε, µe½πε
  947.      ¬o¡cΓa¡Γπ íeº º¡a¬a; Γ.e. r*c (r »o∩ó½e¡¿⌐ ¬o¡cΓa¡Γδ c) ¿½¿
  948.      r* (¡π½eóδe º¡aτe¡¿∩ »p¿cπΓcΓóπεΓ n paº). O¡¿ ¡e ¼oúπΓ ¿¼eΓ∞
  949.      ó¡πΓpe¡¡¿e »poíe½δ, ºa ¿c¬½ετe¡¿e¼ »poíe½oó ó cΓpo¬e.
  950. Paºñe½¿Γe½¿ º¡aτe¡¿⌐ ó ºa»¿c¿ c»¿c¬o¼ c½eñπεΘ¿e:
  951. 1. ça»∩Γa∩, ¬oΓopo⌐ ño ¿½¿ »oc½e ¼oúπΓ cΓo∩Γ∞ »poíe½δ.
  952. 2. C½eΦ, ño ¿½¿ »oc½e ¬oΓopoúo ¼oúπΓ cΓo∩Γ∞ »poíe½δ.
  953. 3. Oñ¿¡ ¿½¿ ío½ee »poíe½oó ¼eªñπ ¬o¡cΓa¡Γa¼¿, ¿½¿ »oc½e »oc½eñ¡e⌐
  954.    ¬o¡cΓa¡Γδ.
  955.  
  956. 5.1.Bóoñ c»¿c¬o¼.
  957.  
  958.      Kpo¼e »epeτ¿c½e¡¡δx ¡¿ªe, Σop¼δ óóoña, »oñxoñ∩Θ¿e ñ½∩ c»e-
  959. µ¿Σ¿¬aµ¿¿ Σop¼aΓa »p¿ óóoñe c»¿c¬o¼, »p¿úoñ¡δ Γa¬ ªe ñ½∩ Σop¼a½¿-
  960. ºaµ¿¿ c»¿c¬o¼. B¿ñ óóoñ¿¼o⌐ óe½¿τ¿¡δ ño½ªe¡ cooΓóeΓcΓóoóaΓ∞ Γ¿»π
  961. ña¡¡oúo ó c»¿c¬e óóoña. He½∞º∩ ¿c»o½∞ºoóaΓ∞ ó ¬aτecΓóe ¡π½e⌐
  962. »poíe½δ. Moª¡o »p¿¼e¡∩Γ∞ ó¡πΓpe¡¡¿e »poíe½δ ½¿Φ∞ co º¡a¬oó묨 ¬o¡-
  963. cΓa¡Γa¼¿, ¬a¬ »o¬aºa¡o ó c½eñπεΘe¼ c»¿c¬e. OΓ¼eΓ¿¼, τΓo ¬o¡eµ
  964. ºa»¿c¿ ¡e ó½¿∩eΓ ¡a »poíe½, ¬po¼e c½πτa∩, ¬oúña o¡ »o∩ó½∩eΓc∩ ó
  965. º¡a¬oóo⌐ ¬o¡cΓa¡ΓÑ.
  966. 1. Ko¡cΓa¡Γδ ñe⌐cΓó¿Γe½∞¡δe ¿½¿ c ñóo⌐¡o⌐ Γoτ¡ocΓ∞ε.
  967.           äe⌐cΓó¿Γe½∞¡a∩ ¬o¡cΓa¡Γa ¿½¿ ¬o¡cΓa¡Γa c ñóo⌐¡o⌐
  968.      Γoτ¡ocΓ∞ε ño½ª¡a »peñcΓaó½∩Γ∞ coío⌐ µ¿Σpoóoe »o½e óóoña; Γ.e.
  969.      »o½e, cooΓóeΓcΓóπεΘee Σop¼aΓπ F. O¡á ¡e ñpoí¡á∩, ec½¿ ¡eΓ
  970.      ñec∩Γ¿τ¡o⌐ Γoτ¬¿.
  971. 2. Ko¼»½e¬c¡δe ¬o¡cΓa¡Γδ.
  972.           Ko¼»½e¬c¡a∩ ¬o¡cΓa¡Γa »peñcΓaó½∩eΓ coío⌐ ñóe ñe⌐cΓó¿Γe-
  973.      ½∞¡δe ¿½¿ µe½δe ¬o¡cΓa¡Γδ, paºñe½e¡¡δe ºa»∩Γo⌐ ¿ ºa¬½ετe¡¡δe
  974.      ó c¬oí¬¿. Åepóa∩ ¬o¡cΓa¡Γa »peñcΓaó½∩eΓ coío⌐ ñe⌐cΓó¿Γe½∞¡πε
  975.      τacΓ∞ ¬o¼»½e¬c¡o⌐ ¬o¡cΓa¡Γδ, óΓopa∩ - ¼¡¿¼πε τacΓ∞.
  976. 3. ïoú¿τec¬¿e ¬o¡cΓa¡Γδ.
  977.           ïoú¿τec¬¿e ¬o¡cΓa¡Γδ ¡e ño½ª¡δ ó¬½ετaΓ∞ ºa»∩Γδe ¿½¿ c½eΦ¿
  978.      cpeñ¿ º¡a¬oó, ño»πcΓ¿¼δx ñ½∩ Σop¼aΓa L.
  979.  
  980.  
  981.  
  982. 4. æ¿¼ó«½∞¡δÑ ¬o¡cΓa¡Γδ.
  983.           æ¿¼ó«½∞¡a∩ ¬o¡cΓa¡Γa »peñcΓaó½∩eΓ coío⌐ ºa»o½¡e¡πε ß¿¼-
  984.      ó«½a¼¿ cΓpo¬π, ºa¬½ετe¡¡πε ó eñ¿¡¿τ¡δe ¬aóδτ¬¿. Kaªña∩ eñ¿-
  985.      ¡¿τ¡a∩ ¬aóδτ¬a, óxoñ∩Θa∩ ó ß¿¼ó«½∞¡πε ¬o¡cΓa¡Γπ, ño½ª¡a íδΓ∞
  986.      »peñcΓaó½e¡a ñóπ¼∩ eñ¿¡¿τ¡δ¼¿ ¬aóδτ¬a¼¿ íeº »poíe½oó ¿½¿ ¬o¡µa
  987.      ºa»¿c¿.
  988.           æ¿¼ó«½∞¡δe ¬o¡cΓa¡Γδ ¼oúπΓ »poño½ªaΓ∞c∩ oΓ ¬o¡µa oñ¡o⌐
  989.      ºa»¿c¿ ño ¡aτa½a ñpπúo⌐; ¬o¡eµ ºa»¿c¿ ¡e »p¿óoñ¿Γ ¬ Γo¼π,
  990.      τΓo »poíe½ ¿½¿ ñpπúo⌐ º¡a¬ cΓa¡oó∩Γc∩ τacΓ∞ε ¬o¡cΓa¡Γδ. Ko¡-
  991.      cΓa¡Γa ¼oªeΓ »pocΓ¿paΓ∞c∩ ¡a cΓo½∞¬o ºa»¿ce⌐, ¡a c¬o½∞¬o »o-
  992.      ΓpeíπeΓc∩ ¿ ¼oªeΓ ó¬½ετaΓ∞ ó ceí∩ Γa¬¿e º¡a¬¿, ¬a¬ »poíe½,
  993.      ºa»∩Γa∩ ¿ c½eΦ.
  994.           Ec½¿ ñ½¿¡a n ¿º c»¿c¬a ¼e¡∞Φe ¿½¿ paó¡a ñ½¿¡e m ß¿¼ó«½∞-
  995.      ¡o⌐ ¬o¡cΓa¡Γδ, Γo ½eóδe n º¡a¬oó ¬o¡cΓa¡Γδ »epeñaεΓc∩ ña¡¡o¼π
  996.      ¿º c»¿c¬a. Ec½¿ n ío½∞Φe m, ¬o¡cΓa¡Γa »epeñaeΓc∩ ½eóδ¼ m
  997.      º¡a¬o¼ ña¡¡oúo. OcΓaóΦ¿ec∩ n ¼¿¡πc m º¡a¬oó ña¡¡oúo ºa»o½-
  998.      ¡∩εΓc∩ »poíe½a¼¿. äe⌐cΓó¿e ó φΓo¼ c½πτae Γa¬oe ªe, ¬a¬ »p¿
  999.      »p¿cóoe¡¿¿ ¬o¡cΓa¡Γδ ña¡¡o¼π o»epaΓopo¼ »p¿cóa¿óa¡¿∩
  1000.      ¬o¡cΓa¡Γδ.
  1001. 5. Hπ½eóδe º¡aτe¡¿∩.
  1002.           Hπ½eóδe º¡aτe¡¿∩ ¼oª¡o o»peñe½¿Γ∞ oñ¡¿¼ ¿º Γpex c»ocoíoó:
  1003.      a. OΓcπΓcΓó¿e ¬a¬¿x íδ Γo ¡¿ íδ½o º¡a¬oó ¼eªñπ paºñe½¿Γe½∩¼¿
  1004.      º¡aτe¡¿⌐.
  1005.      í. Åepóo¼π paºñe½¿Γe½ε º¡aτe¡¿⌐ ó »epóo⌐ ºa»¿c¿, cτ¿Γδóae¼o⌐
  1006.      »p¿ ¬aªño¼ óδ»o½¡e¡¿¿ o»epaΓop óóoño¼ c»¿c¬o¼, ¡e »peñΦecΓóπεΓ
  1007.      ¡¿¬a¬¿e º¡a¬¿.
  1008.      ó. öop¼a r* (o»¿ca¡a pa¡ee ó ña¡¡o⌐ τáßΓ¿).
  1009.           Hπ½eóδe º¡aτe¡¿∩ ¡e ó½¿∩εΓ ¡a o»¿ca¡¿e cooΓóeΓcΓóπεΘeúo
  1010.      ña¡¡oúo ¿º c»¿c¬a óóoña. Ec½¿ ña¡¡oe ¿º c»¿c¬a óóoña o»peñe-
  1011.      ½e¡o, o¡o ocΓaó½∩eΓ cóoe »peñδñπΘee º¡aτe¡¿e; ec½¿ ¡e o»peñe-
  1012.      ½e¡o, Γo Γa¬¿¼ ¿ ocΓaeΓc∩.
  1013.           C½eΦ, »p¿¼e¡∩e¼δ⌐ ó ¬aτecΓóe paºñe½¿Γe½∩ º¡aτe¡¿⌐, »p¿
  1014.      óδ»o½¡e¡¿¿ o»ÑpáΓopa óóoña c»¿c¬o¼ ocΓa¡aó½¿óaeΓ óδ»o½¡e¡¿e
  1015.      o»epaΓopa »oc½e »p¿cóa¿óa¡¿∩ »peñδñπΘeúo º¡aτe¡¿∩. OcΓa½∞¡δe
  1016.      ña¡¡δe ó c»¿c¬e óóoña óoc»p¿¡¿¼aεΓc∩, ¬a¬ ¡π½eóδe º¡aτe¡¿∩.
  1017. 6. Åpoíe½δ.
  1018.           Bce »poíe½δ, ¬α«¼Ñ »epeτ¿c½e¡¡δx ¡¿ªe, ó ºa»¿c¿ »p¿ óóoñe
  1019.      c»¿c¬o¼ ∩ó½∩εΓc∩ τacΓ∞ε ¬a¬oúo-½¿ío paºñe½¿Γe½∩ º¡aτe¡¿∩:
  1020.      a. Åpoíe½δ, ºa¬½ετe¡¡δe ó º¡a¬oóo⌐ ¬o¡cΓa¡Γe.
  1021.      í. BeñπΘ¿e »poíe½δ ó »epóo⌐ ºa»¿c¿, cτ¿Γδóae¼o⌐ »p¿ ¬aªño¼
  1022.      óδ»o½¡e¡¿¿ o»epaΓopa óóoña c»¿c¬o¼ (¬po¼e Γex, ºa ¬oΓop묨
  1023.      ¡e»ocpeñcΓóe¡¡o c½eñπeΓ c½eΦ ¿½¿ ºa»∩Γa∩).
  1024.  
  1025. 5.2.Bδóoñ c»¿c¬o¼.
  1026.  
  1027.      öop¼δ óδóoñ¿¼δx óe½¿τ¿¡ Γa¬¿e ªe, ¬a¬ ΓpeíπeΓc∩ ñ½∩ óóoña,
  1028. ¬po¼e »epeτ¿c½e¡¡δx ¡¿ªe. Paº¼ep cΓpo¬¿ »p¿ óδóoñe c»¿c¬o¼ cocΓa-
  1029. ó½∩eΓ 80 ¬o½o¡o¬.
  1030. 1. MoúπΓ coºñaóaΓ∞c∩ ¡oóδe ºa»¿c¿, ¬po¼e º¡a¬oóδx ¬o¡cΓa¡Γ. B ¬o¡-
  1031.    cΓa¡Γe ¡e ¼oªeΓ íδΓ∞ ¬o¡µa ºa»¿c¿ ¿½¿ »poíe½oó.
  1032. 2. ïoú¿τec¬¿e óδóoñ¿¼δe ¬o¡cΓa¡Γδ íπñπΓ ó¿ña T ñ½∩ º¡aτe¡¿∩
  1033.    "¿cΓ¿¡a" (true) ¿ F ñ½∩ º¡aτe¡¿∩ "½oª∞" (false).
  1034. 3. ûe½δe ¬o¡cΓa¡Γδ óδóoñ∩Γc∩ »o Σop¼aΓπ I12.
  1035. 4. äe⌐cΓó¿Γe½∞¡δe ¬o¡cΓa¡Γδ ¿½¿ c ñóo⌐¡o⌐ Γoτ¡ocΓ∞ε óδóoñ∩Γc∩ ¿½¿
  1036.    »o Σop¼aΓπ F ¿½¿ »o E, ó ºaó¿c¿¼ocΓ¿ oΓ º¡aτe¡¿∩ X ó c½eñπεΘe¼
  1037.    ñ¿a»aºo¡e:
  1038.                     10**0≤X≤10**7
  1039.  
  1040.  
  1041.  
  1042. a. Ec½¿ X ¡axoñ¿Γc∩ ó π¬aºa¡o¼ ñ¿a»aºo¡e, Γo ñ½∩ ¬o¡cΓa¡Γδ ¿c»o½∞-
  1043.    ºπeΓc∩ OPF16.7 ñ½∩ oñ¿¡ap¡o⌐ Γoτ¡ocΓ¿ ¿ OPF23.14 ñ½∩ ñóo⌐¡o⌐
  1044.    Γoτ¡ocΓ¿.
  1045. ó. Ec½¿ X ¡e óxoñ¿Γ ó π¬aºa¡δ⌐ ñ¿a»aºo¡, Γo ñ½∩ ¬o¡cΓa¡Γδ ¿c»o½∞-
  1046.    ºπeΓc∩ 1PE14.6 ñ½∩ oñ¿¡ap¡o⌐ Γoτ¡ocΓ¿ ¿ 1PE21.13 ñ½∩ ñóo⌐¡o⌐
  1047.    Γoτ¡ocΓ¿.
  1048. 5. Åo½πτe¡¡δe º¡a¬oóδe ¬o¡cΓa¡Γδ ¿¼eεΓ c½eñπεΘ¿e xapa¬Γep¿cΓ¿¬¿:
  1049. a. O¡¿ ¡e ºa¬½ετaεΓc∩ ó ¬aóδτ¬¿.
  1050. í. H¿ ño, ¡¿ »oc½e ¡¿x ¡e cΓo¿Γ paºñe½¿Γe½∞ º¡aτe¡¿⌐.
  1051. ó. Kaªña∩ ó¡πΓpe¡∩∩ ¬aóδτ¬a »peñcΓaó½e¡a ¬aóδτ¬o⌐ ó¡eΦ¡e.
  1052. ú. ç¡a¬ »poíe½a ó¬½ετaeΓc∩ ó ¡aτa½o ¬aªño⌐ ºa»¿c¿ ¡aτ¿¡aεΘ¿⌐c∩ co
  1053.    º¡a¬oóo⌐ ¬o¡cΓa¡Γδ ¿º »peñδñπΘe⌐ ºa»¿c¿.
  1054. 6. Åp¿ Σop¼aΓ¿ºaµ¿¿ c»¿c¬o¼ c½eΦ¿ ó ¬aτecΓóe paºñe½¿Γe½e⌐ ¿ ¡π½eóδe
  1055.    º¡aτe¡¿∩ ¡e óδóoñ∩Γc∩.
  1056. 7. ä½∩ oíec»eτe¡¿∩ π»paó½e¡¿∩ ¬apeΓ¬o⌐ »p¿ »eτaΓ¿, ¬aªña∩ ºa»¿c∞
  1057.    ¡aτ¿¡aeΓc∩ c »poíe½a.
  1058.  
  1059.  
  1060. 
  1061.