home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / fortr.doc / fortran2.doc < prev    next >
Encoding:
Text File  |  1991-03-05  |  43.1 KB  |  983 lines
  1.  
  2.                         ÆàÉîê좠ê èÄìûàÅûêê.
  3.  
  4.  
  5.  
  6.      Äü ¥ÆÄë ùÇæÆê
  7.      ¥Γá τáßΓ∞ «»¿ßδóáÑΓ «ß¡«ó¡δѠ󫺼«ª¡«ßΓ¿ ∩ºδ¬á îæ-ö«αΓαá¡.
  8.  
  9.  
  10. æÄäàÉåÇìêà.
  11.  
  12.  
  13.  
  14. 1. çÇÅê棠ÅÉÄâÉÇîî.  . . . . . . . . . . . . . . . . . . . .  2-1
  15.  
  16. 1.1. üπ¬óÑ¡¡«µ¿Σα«óδÑ ß¿¼ó«½δ. . . . . . . . . . . . . . . .  2-1
  17.  
  18. 1.2. Åα«íѽδ.  . . . . . . . . . . . . . . . . . . . . . . .  2-1
  19.  
  20. 1.3. Æáíπ½∩Γ«αδ. . . . . . . . . . . . . . . . . . . . . . .  2-1
  21.  
  22. 1.4. Å«º¿µ¿¿.  . . . . . . . . . . . . . . . . . . . . . . .  2-1
  23.  
  24. 2. æÆÉÄèê ê ÄÅàÉÇÆÄÉ¢. . . . . . . . . . . . . . . . . . . .  2-1
  25.  
  26. 2.1. ìáτá½∞¡δÑ ßΓ᫬¿. . . . . . . . . . . . . . . . . . . .  2-2
  27.  
  28. 2.2. æΓ᫬¿ »α«ñ«½ªÑ¡¿∩. . . . . . . . . . . . . . . . . . .  2-2
  29.  
  30. 2.3. æΓ᫬¿ ¬«¼Ñ¡Γáα¿∩.  . . . . . . . . . . . . . . . . . .  2-2
  31.  
  32. 2.4. Ä»ÑαáΓ«αδ «»¿ßá¡¿∩ ñá¡¡δσ ¿ »«α∩ñ«¬ ß½Ññ«óá¡¿∩ «»Ñαá-
  33.      Γ«α«ó.  . . . . . . . . . . . . . . . . . . . . . . . .  2-2
  34.  
  35. 3. ÆêÅ¢ äÇìì¢ò.  . . . . . . . . . . . . . . . . . . . . . .  2-4
  36.  
  37. 3.1. ûѽδÑ Γ¿»δ ñá¡¡δσ.  . . . . . . . . . . . . . . . . . .  2-5
  38.  
  39. 3.2. Æ¿» ñÑ⌐ßΓó¿Γѽ∞¡δσ ñá¡¡δσ «íδτ¡«⌐ Γ«τ¡«ßΓ¿ IEEE.  . . .  2-6
  40.  
  41. 3.3. äÑ⌐ßΓó¿Γѽ∞¡δ⌐ Γ¿» ñá¡¡δσ IEEE ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.  . . .  2-6
  42.  
  43. 3.4. ö«α¼áΓ ñÑß∩Γ¿τ¡δσ τ¿ßѽ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐
  44.        «íδτ¡«⌐ ¿ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿. . . . . . . . . . . . . .  2-7
  45.  
  46. 3.5. è«¼»½Ñ¬ß¡δÑ Γ¿»δ ñá¡¡δσ.  . . . . . . . . . . . . . . .  2-7
  47.  
  48. 3.6. ï«ú¿τÑ߬¿Ñ Γ¿»δ ñá¡¡δσ. . . . . . . . . . . . . . . . .  2-8
  49.  
  50. 3.7. æ¿¼ó«½∞¡δ⌐ Γ¿» ñá¡¡δσ.  . . . . . . . . . . . . . . . .  2-8
  51.  
  52. 3.7.1. æ¿¼ó«½∞¡δÑ »«ñßΓ᫬¿. . . . . . . . . . . . . . . . .  2-9
  53.  
  54. 4. êîàìÇ.  . . . . . . . . . . . . . . . . . . . . . . . . . 2-10
  55.  
  56. 4.1. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿¼Ñ¡ ö«αΓαá¡á. . . . . . . . . . . . . 2-10
  57.  
  58. 4.2. ê¼Ñ¡á ö«αΓαá¡á »« π¼«½τá¡¿ε.  . . . . . . . . . . . . . 2-11
  59.  
  60.  
  61. 5. é¢ÉÇåàìêƒ.  . . . . . . . . . . . . . . . . . . . . . . . 2-12
  62.  
  63. 5.1. Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ óδαáªÑ¡¿∩. . . . . . . . . . . . . . . . 2-12
  64.  
  65. 5.2. äѽѡ¿Ñ µÑ½δσ.  . . . . . . . . . . . . . . . . . . . . 2-13
  66.  
  67. 5.3. ÅαÑ«íαẫóá¡¿∩ Γ¿»«ó áα¿Σ¼ÑΓ¿τÑ߬¿σ «»Ñαá¡ñ«ó.  . . . . 2-13
  68.  
  69. 5.4. æ¿¼ó«½∞¡δÑ óδαáªÑ¡¿∩. . . . . . . . . . . . . . . . . . 2-13
  70.  
  71. 5.5. éδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩.  . . . . . . . . . . . . . . . . . 2-14
  72.  
  73. 5.6. ï«ú¿τÑ߬¿Ñ óδαáªÑ¡¿∩.   . . . . . . . . . . . . . . . . 2-14
  74.  
  75. 5.7. Åα¿«α¿ΓÑΓδ «»ÑαáΓ«α«ó.  . . . . . . . . . . . . . . . . 2-15
  76.  
  77. 5.8. Åαáó¿½á óδτ¿ß½Ñ¡¿∩ óδαáªÑ¡¿⌐. . . . . . . . . . . . . . 2-15
  78.  
  79. 5.9. æß佬¿ ¡á φ½Ñ¼Ñ¡Γ ¼áßß¿óá.  . . . . . . . . . . . . . . 2-16
  80.  
  81.  
  82.      1. çÇÅê棠ÅÉÄâÉÇîî.
  83.  
  84.      ÆѬßΓ »α«úαá¼¼δ ¡á ö«αΓαá¡Ñ - φΓ« »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ß¿¼ó«½«ó
  85. ASCII. è ß¿¼ó«½á¼ ASCII «Γ¡«ß∩Γß∩:
  86. 1.   52 »α«»¿ß¡δσ ¿ ºáú½áó¡δσ á¡ú½¿⌐߬¿σ íπ¬óδ («Γ Ç ñ« Z ¿ «Γ á
  87.      ñ« z).
  88. 2.   10 µ¿Σα (0,1,2,3,4,5,6,7,8,9)
  89. 3.   æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ (óßÑ «ßΓá½∞¡δÑ »ÑτáΓáѼδÑ ß¿¼ó«½δ Γáí½¿µδ
  90.      ¬«ñ«ó ASCII - ó Γ«¼ τ¿ß½Ñ ¿ απß߬¿Ñ íπ¬óδ).
  91.  
  92. 1.1. üπ¬óÑ¡¡«µ¿Σα«óδÑ ß¿¼ó«½δ.
  93.  
  94.      Ç¡ú½¿⌐߬¿Ñ  íπ¬óδ  ¿ µ¿Σαδ, αáßß¼áΓα¿óáѼδÑ ¬á¬ «ñ¡á úαπ»»á,
  95. ¡áºδóáεΓß∩ íπ¬óÑ¡¡«µ¿Σα«ó묨 ß¿¼ó«½á¼¿.  îæ-ö«αΓαá¡  ó«ß»α¿¡¿¼áÑΓ
  96. »α«»¿ß¡δÑ  íπ¬óδ  ¬á¬  ºáú½áó¡δÑ ó ½εí«¼ ¬«¡ΓѬßΓδ, ¿ß¬½ετá∩ ß¿¼-
  97. ó«½∞¡δÑ ¬«¡ßΓá¡Γδ ¿ σ«½½Ñα¿Γ«ó߬¿Ñ »«½∩. Å«φΓ«¼π ß½ÑñπεΘ¿Ñ ¿¼Ñ¡á,
  98. «»αÑñѽѡ¡δÑ »«½∞º«óáΓѽѼ, φ¬ó¿óá½Ñ¡Γ¡δ ó îæ-ö«αΓαá¡Ñ:
  99.    ABCDE      abcde      AbCdE      aBcDe
  100.      Å«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ß«αΓ¿α«ó¬¿ ñ½∩ ¡áí«αá ß¿¼ó«½«ó îæ-ö«αΓαá-
  101. ¡á - φΓ« »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ASCII (Å«½¡πε Γáí½¿µπ ß¿¼ó«½«ó  ASCII
  102. ß¼«Γα¿ΓÑ ó »α¿½«ªÑ¡¿¿ æ "è«ñδ ß¿¼ó«½«ó ASCII").
  103.  
  104. 1.2. Åα«íѽδ.
  105.  
  106.      çá  ¿ß¬½ετÑ¡¿Ñ¼  ¡¿ªÑ »α¿óÑñÑ¡¡«ú« ß»¿ß¬á ß¿¼ó«½«ó »α«íѽ ¡Ñ
  107. ∩ó½∩ÑΓß∩ º¡áτáΘ¿¼ ó ΓѬßΓÑ »α«úαá¼¼δ ¡á îæ-ö«αΓαá¡Ñ ¿ »«φΓ«¼π ¼«-
  108. ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ π½πτΦÑ¡¿∩ ó¡ÑΦ¡Ñú« ó¿ñá »α«úαá¼¼δ.  ê߬½ε-
  109. τÑ¡¿∩  ß½ÑñπεΘ¿Ñ:
  110. 1. Åα«íѽδ ó¡πΓα¿ ßΓ᫬«óδ󠬫¡ßΓá¡Γ ∩ó½∩εΓß∩ º¡áτáΘ¿¼¿.
  111. 2. Åα«íÑ½δ  ó¡πΓα¿  σ«½½Ñα¿Γ«ó߬¿σ  »«½Ñ⌐ ∩ó½∩εΓß∩ º¡áτáΘ¿¼¿.
  112. 3. Åα«íѽ ¿½¿ ¡π½∞ ó ΦÑßΓ«ó »«º¿µ¿¿ «Γ½¿τáÑΓ ¡áτá½∞¡πε ßΓ᫬𠠫Γ
  113.    ßΓ᫬¿ »α«ñ«½ªÑ¡¿∩.
  114.  
  115. 1.3. Æáíπ½∩Γ«αδ.
  116.  
  117.      æ¿¼ó«½  ÆÇé  ¿¼ÑÑΓ  ß½ÑñπεΘÑÑ º¡áτÑ¡¿Ñ ó ΓѬßΓÑ »α«úαá¼¼δ ¡á
  118. îæ-ö«αΓαá¡Ñ:
  119. 1. àß½¿ ÆÇé »«∩ó½∩ÑΓß∩ ó »«º¿µ¿∩σ ß 1-«⌐ »« 5-ε, Γ« ßτ¿ΓáÑΓß∩,
  120.    τΓ« ß½ÑñπεΘ¿⌐ ß¿¼ó«½ ¡áσ«ñ¿Γß∩ ó 7-«⌐ »«º¿µ¿¿.
  121. 2. ÆÇé ó »«º¿µ¿∩σ ß 6-«⌐ »« 72-ε αáßß¼áΓα¿óáÑΓß∩ ¬á¬ »α«íѽ, ñáªÑ
  122.    Ñß½¿ «¡ ß«ñÑαª¿Γ ó¡πΓα¿ ßΓ᫬¿ ¿½¿ σ«½½Ñα¿Γ«ó«ú« »«½∩.
  123.  
  124. 1.4. Å«º¿µ¿¿.
  125.  
  126.      æ¿¼ó«½δ  ó ¬áªñ«⌐ ßΓα«¬Ñ αáß»«½«ªÑ¡δ »« »«º¿µ¿∩¼, »Ñαóδ⌐ - ó
  127. »Ñαó«⌐ »«º¿µ¿¿, óΓ«α«⌐ - ó« óΓ«α«⌐ ¿ Γ.ñ.
  128.      Å«º¿µ¿∩, ó ¬«Γ«α«⌐ ¡áσ«ñ¿Γß∩ ß¿¼ó«½, ¿¼ÑÑΓ ßπΘÑßΓóÑ¡¡«Ñ º¡á-
  129. τÑ¡¿Ñ  ó ö«αΓαá¡Ñ. Å«º¿µ¿∩ 1 ¿ß»«½∞ºπÑΓß∩ ñ½∩ π¬áºá¡¿∩ ¬«¼Ñ¡Γáα¿∩
  130. ¿ ¼ÑΓᬫ¼á¡ñδ. Å«º¿µ¿¿ ß 1-«⌐ »« 5-ε  ºáαѺÑαó¿α«óá¡δ  ñ½∩  ¼ÑΓ«¬
  131. «»ÑαáΓ«α«ó, á 6-∩ »«º¿µ¿∩ ñ½∩ π¬áºá¡¿∩ »α«ñ«½ªÑ¡¿∩.
  132.  
  133.  
  134.  
  135. 2. æÆÉÄèê ê ÄÅàÉÇÆÄÉ¢.
  136.  
  137.      éδ ¼«ªÑΓÑ ΓᬪѠßτ¿ΓáΓ∞, τΓ« ΓѬßΓ »α«úαá¼¼δ ¡á  ö«αΓαá¡Ñ  -
  138. φΓ«  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ßΓ᫬. ä½∩ ¬«¼»¿½∩Γ«αá º¡áτáΘ¿¼¿ ∩ó½∩εΓß∩
  139. Γ«½∞¬« »ÑαóδÑ 72 ß¿¼ó«½á ó  ßΓ᫬Ñ,  «ßΓá½∞¡δÑ  ¿¼  ¿ú¡«α¿απεΓß∩.
  140. æΓ᫬¿,  ñ½¿¡«⌐  ¼Ñ¡∞ΦÑ,  τѼ  72 ß¿¼ó«½á, ßτ¿ΓáεΓß∩ ºá»«½¡Ñ¡¡δ¼¿
  141. »α«íѽἿ ñ« 72-«⌐ »«º¿µ¿¿ (ñ½∩ ¿½½εßΓαᵿ¿ φΓ«ú« ß¼«Γα¿ΓÑ ¡¿ªÑ ó
  142. φΓ«⌐ τáßΓ¿ ó «»¿ßá¡¿¿ ß¿¼ó«½∞¡δ󠬫¡ßΓá¡Γ).
  143.  
  144. 2.1. ìáτá½∞¡δÑ ßΓ᫬¿.
  145.  
  146.      ìáτá½∞¡«⌐  ßΓ᫬«⌐  ¡áºδóáÑΓß∩ ßΓ᫬á, ¡Ñ ∩ó½∩εΘá∩ß∩ ßΓ᫬«⌐
  147. ¬«¼Ñ¡Γáα¿∩ ¿½¿ ¼ÑΓᬫ¼á¡ñδ ¿ ß«ñÑαªáΘá∩ »α«íѽ ¿½¿ ¡π½∞ ó  ΦÑßΓ«⌐
  148. »«º¿µ¿¿.  é  »Ñαóδσ  »∩Γ¿ »«º¿µ¿∩σ ßΓ᫬¿ ñ«½ª¡δ íδΓ∞ »α«íÑ½δ ¿½¿
  149. ñ«½ª¡á ßΓ«∩Γ∞ ¼ÑΓ¬á. çᠿ߬½ετÑ¡¿Ñ¼ «»ÑαáΓ«αá, ß½ÑñπεΘ¿¼ ºá ½«ú¿-
  150. τÑ߬¿¼ IF, «»ÑαáΓ«αδ ö«αΓαá¡á ñ«½ª¡δ ¡áτ¿¡áΓ∞ß∩ ß ¡áτá½∞¡«⌐ ßΓα«-
  151. ¬¿.
  152.      îÑΓ¬á «»ÑαáΓ«αá - φΓ« »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ «Γ  «ñ¡«⌐  ñ«  »∩Γ¿
  153. µ¿Σα,  σ«Γ∩  íδ  «ñ¡á ¿º ¬«Γ«αδσ ñ«½ª¡á íδΓ∞ ¡Ñ ¡π½∞. îÑΓ¬á ¼«ªÑΓ
  154. ¡áσ«ñ¿Γß∩ ó ½εí«¼ ¼ÑßΓÑ ó »«º¿µ¿∩σ ß  1-«⌐  »«  5-ε  ó  ¡áτá½∞¡«⌐
  155. ßΓ᫬Ñ. Åα«íÑ½δ ¿ »αÑñΦÑßΓóπεΘ¿Ñ ¡π½¿ ∩ó½∩εΓß∩ ¡Ñº¡áτáΘ¿¼¿.
  156.  
  157. 2.2. æΓ᫬¿ »α«ñ«½ªÑ¡¿∩.
  158.  
  159.      æΓα«¬á »α«ñ«½ªÑ¡¿∩ - φΓ« ½εíá∩ ßΓ᫬á, ¡Ñ  ∩ó½∩εΘá∩  ßΓ᫬«⌐
  160. ¬«¼Ñ¡Γáα¿∩  ¿½¿ ¼ÑΓᬫ¼á¡ñδ ¿ ß«ñÑαªáΘá∩ ó »«º¿µ¿¿ 6 ½εí«⌐ ß¿¼ó«½
  161. «Γ½¿τ¡δ⌐ «Γ »α«íѽᠿ½¿ ¡π½∩. ÅÑαóδÑ »∩Γ∞ ß¿¼ó«½«ó ßΓ᫬¿ »α«ñ«½-
  162. ªÑ¡¿∩ »«ºó«½∩ÑΓ ßπΘÑßΓóÑ¡¡« πóѽ¿τ¿Γ∞ ñ½¿¡π «»ÑαáΓ«αá. àß½¿ «¡ ¡Ñ
  163. »«¼ÑΘáÑΓß∩ ó «ñ¡π ¡áτá½∞¡πε ßΓ᫬π,  Ñú«  ¼«ª¡«  »α«ñ½¿Γ∞  ¡á  19
  164. ßΓ᫬ »α«ñ«½ªÑ¡¿∩.
  165.  
  166. 2.3. æΓ᫬¿ ¬«¼Ñ¡Γáα¿∩.
  167.  
  168.      æΓα«¬á  ßτ¿ΓáÑΓß∩  ßΓ᫬«⌐ ¬«¼Ñ¡Γáα¿∩, Ñß½¿ óδ»«½¡∩ÑΓß∩ «ñ¡«
  169. ¿º ß½ÑñπεΘ¿σ πß½«ó¿⌐:
  170. 1. é »«º¿µ¿¿ 1 ßΓ«¿Γ "æ" (¿½¿"ß").
  171. 2. é »«º¿µ¿¿ 1 ßΓ«¿Γ ºóѺñ«τ¬á (*).
  172. 3. æΓ᫬á ß«ßΓ«¿Γ ¿º «ñ¡¿σ »α«íѽ«ó.
  173.      æΓ᫬¿ ¬«¼¼Ñ¡Γáα¿∩ ¡Ñ «¬áºδóáεΓ ¡¿¬á¬«ú« ó«ºñÑ⌐ßΓó¿∩ ¡á  óδ-
  174. »«½¡Ñ¡¿Ñ  »α«úαá¼¼δ  ¡á  ö«αΓαá¡Ñ. Å«ß½Ñ ßΓ᫬¿ ¬«¼Ñ¡Γáα¿∩ ñ«½ª¡á
  175. ¿ñΓ¿ ¡áτá½∞¡á∩ ßΓα«¬á ¿½¿ ñαπúá∩ ßΓα«¬á ¬«¼Ñ¡Γáα¿∩.  æΓα«¬á  »α«-
  176. ñ«½ªÑ¡¿∩ ¡Ñ ¼«ªÑΓ ß½Ññ«óáΓ∞ ºá ßΓ᫬«⌐ ¬«¼Ñ¡Γáα¿∩.
  177.  
  178. 2.4. Ä»ÑαáΓ«αδ «»¿ßá¡¿∩ ñá¡¡δσ ¿ »«α∩ñ«¬ ß½Ññ«óá¡¿∩ «»ÑαáΓ«α«ó.
  179.  
  180.      Ä»ÑαáΓ«α  ö«αΓαá¡á  ß«ñÑαª¿Γ  ¡áτá½∞¡πε  ßΓα«¬π ¿ «Γ 0 ñ« 19
  181. ßΓ᫬ »α«ñ«½ªÑ¡¿∩. Ä»ÑαáΓ«α ¼«ªÑΓ ß«ñÑαªáΓ∞ ñ«  1320  ß¿¼ó«½«ó  ó
  182. »«º¿µ¿∩σ  ß  7-«⌐ »« 72-ε ¡áτá½∞¡«⌐ ßΓ᫬¿ ¿ ß 7-«⌐ »« 72-ε ßΓ᫬
  183. »α«ñ«½ªÑ¡¿∩. Ä»ÑαáΓ«α END ñ«½ªÑ¡ íδΓ∞ ºá»¿ßá¡ ó »«º¿µ¿∩σ  ß  7-«⌐
  184. »«  72-ε  ¡áτá½∞¡«⌐  ßΓ᫬¿  ¿ ó Ñú« ßΓα«¬Ñ ¡Ñ ¼«ªÑΓ íδΓ∞ ¡¿¬á¬¿σ
  185. ñαπú¿σ «»ÑαáΓ«α«ó (ó ñá½∞¡Ñ⌐ΦѼ ¡á «Γñѽ∞¡δÑ «»ÑαáΓ«αδ  ¼δ  íπñѼ
  186. ßßδ½áΓ∞ß∩  »α«ßΓ«  »« ¿σ ¿¼Ñ¡á¼; ß¼«Γα¿ΓÑ τáßΓ∞ 3 "Ä»ÑαáΓ«αδ" ñ½∩
  187. «»αÑñѽѡ¿∩ αẽ¿τ¡δσ «»ÑαáΓ«α«ó ¿ ¿σ ßó«⌐ßΓó).
  188.      ƒºδ¬ ö«αΓαá¡ ΓαÑíπÑΓ «»αÑñѽѡ¡«ú« »«α∩ñ¬á ß½Ññ«óá¡¿∩ «»Ñαá-
  189. Γ«α«ó ¿ ßΓ᫬, ß«ßΓáó½∩εΘ¿σ »α«úαá¼¼¡πε Ññ¿¡¿µπ  ö«αΓαá¡á.  èα«¼Ñ
  190. Γ«ú«  îæ-ö«αΓαá¡ ¡á¬½áñδóáÑΓ ñ«»«½¡¿Γѽ∞¡δÑ ΓαÑí«óá¡¿∩ ¡á »«α∩ñ«¬
  191. ßΓ᫬ ¿ «»ÑαáΓ«α«ó ó Γαá¡ß½¿απѼ«¼ ΓѬßΓÑ îæ-ö«αΓαá¡á.
  192.  
  193.  
  194.  
  195.      é  «ß¡«ó¡«¼, Γαá¡ß½¿απѼδ⌐ ΓѬßΓ ß«ñÑαª¿Γ «ñ¡π ¿½¿ ¡Ñ߬«½∞¬«
  196. »α«úαá¼¼¡δσ Ññ¿¡¿µ (ñ½∩  í«½ÑÑ  »«½¡«⌐  ¿¡Σ«α¼áµ¿¿  «  Γαá¡ß½∩µ¿¿
  197. »α«úαá¼¼¡δσ  Ññ¿¡¿µ  ¿  »«ñ»α«úαá¼¼  ß¼«Γα¿ΓÑ τáßΓ∞ 5 "Åα«úαá¼¼δ,
  198. »«ñ»α«úαá¼¼δ ¿ Σπ¡¬µ¿¿"). Éẽ¿τ¡δÑ »αáó¿½á »« »«α∩ñ¬π ß½Ññ«óá¡¿∩
  199. «»ÑαáΓ«α«ó »α«¿½½εßΓα¿α«óá¡δ ¡á α¿ß.2-1 ¿ «»¿ßá¡δ ó ß½ÑñπεΘ¿σ »á-
  200. αáúαáΣáσ.
  201.  
  202. ┌────────────────────────────────────────────────────┬─────────┐
  203. │  ¼ÑΓᬫ¼á¡ñδ $DO66,$STORAGE,$DECMATH               │         │
  204. ├────────────────────────────────────────┬───────────┤         │
  205. │ «»ÑαáΓ«αδ PROGRAM,FUNCTION,            │           │         │
  206. │ BLOCK DATÇ,SUBROUTINE                  │           │         │
  207. ├───────────────────┬──────────┬─────────┤  ñαπú¿Ñ   │         │
  208. │«»ÑαáΓ«α IMPLICIT  │«»ÑαáΓ«αδ │         │  ¼ÑΓá-    │ ßΓ᫬¿  │
  209. ├───────────────────┤          │         │  ¬«¼á¡ñδ  │         │
  210. │ñαπú¿Ñ «»ÑαáΓ«αδ   │PARAMETER │«»ÑαáΓ«αδ│           │ ¬«¼Ñ¡-  │
  211. │«»αÑñѽѡ¿∩ ñá¡¡δσ │          │         │           │ Γáα¿Ñó  │
  212. ├───────────────────┼──────────┤ FORMAT  │           │         │
  213. │Σπ¡¬µ¿¿-«»ÑαáΓ«αδ  │«»ÑαáΓ«αδ │         │           │         │
  214. ├───────────────────┤          │         │           │         │
  215. │  óδ»«½¡∩ѼδÑ      │   DATA   │         │           │         │
  216. │   «»ÑαáΓ«αδ       │          │         │           │         │
  217. ├───────────────────┴──────────┴─────────┴───────────┤         │
  218. │   «»ÑαáΓ«α   END                                   │         │
  219. └────────────────────────────────────────────────────┴─────────┘
  220.  
  221. É¿ß.2-1  Å«α∩ñ«¬ «»ÑαáΓ«α«ó ó »α«úαá¼¼δσ Ññ¿¡¿µáσ ¿ Γαá¡ß½¿απѼδσ
  222.           ΓѬßΓáσ.
  223.  
  224.      ä½∩ α¿ßπ¡¬á 2-1 ßπΘÑßΓóπεΓ ß½ÑñπεΘ¿Ñ ß«ú½áΦÑ¡¿∩:
  225. 1.   è½áßßδ ßΓ᫬ ¿½¿ «»ÑαáΓ«α«ó, αáß»«½«ªÑ¡¡δÑ óδΦÑ ¿½¿ ¡¿ªÑ
  226.      ñαπú¿σ ¬½áßß«ó, ñ«½ª¡δ ß½Ññ«óáΓ∞ ó ºáñá¡¡«¼ »«α∩ñ¬Ñ.
  227. 2.   è½áßßδ ßΓ᫬ ¿½¿ «»ÑαáΓ«α«ó ¼«úπΓ íδΓ∞ »ÑαѼÑΦá¡δ ß ñαπú¿¼¿
  228.      ¬½áßßἿ, ¡áσ«ñ∩Θ¿¼¿ß∩ ß í«¬π «Γ ¡¿σ.
  229. 3.   îÑΓᬫ¼á¡ñδ $LARGE ¿ $NOTLARGE ¡Ñ ¼«úπΓ ¡áσ«ñ¿Γ∞ß∩ ó αáºñѽÑ
  230.      óδ»«½¡∩Ѽδσ «»ÑαáΓ«α«ó.
  231. 4.   Å«ñ»α«úαá¼¼δ BLOCK DATA ¡Ñ ¼«úπΓ ß«ñÑαªáΓ∞ Σπ¡¬µ¿¿-«»ÑαáΓ«αδ,
  232.      «»ÑαáΓ«αδ FORMAT ¿½¿ óδ»«½¡∩ѼδÑ «»ÑαáΓ«αδ.
  233.      Å«ñ»α«úαἼᠡáτ¿¡áÑΓß∩ ß «»ÑαáΓ«αá  ½¿í«  SUBROUTINE,  ½¿í«
  234. FUNCTION,  ½¿í« BLOCK DATA ¿ ºá¬á¡τ¿óáÑΓß∩ «»ÑαáΓ«α«¼ END. Äß¡«ó-
  235. ¡á∩ »α«úαἼᠡáτ¿¡áÑΓß∩ ß «»ÑαáΓ«αá PROGRAM ¿½¿  ½εí«ú«  ñαπú«ú«
  236. «»ÑαáΓ«αá, «Γ½¿τ¡«ú« «Γ «»ÑαáΓ«α«ó SUBROUTINE, FUNCTION ¿½¿ BLOCK
  237. DATA,  ¿  ºá¬á¡τ¿óáÑΓß∩  «»ÑαáΓ«α«¼  END. Å«ñ»α«úαἼᠿ «ß¡«ó¡á∩
  238. »α«úαá¼¼á ∩ó½∩εΓß∩ »α«úαá¼¼¡δ¼¿ Ññ¿¡¿µá¼¿.
  239.      é »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ «»ÑαáΓ«αδ ñ«½ª¡δ ß½Ññ«óáΓ∞ ó »«α∩ñ¬Ñ,
  240. ß««ΓóÑΓßΓóπεΘѼ Γᬿ¼ »αáó¿½á¼:
  241. 1.   Ä»ÑαáΓ«α PROGRAM, Ñß½¿ «¡ ÑßΓ∞ ¿½¿ «»ÑαáΓ«α SUBROUTINE,
  242.      FUNCTION, BLOCK DATA ñ«½ª¡δ íδΓ∞ »Ñαóδ¼ «»ÑαáΓ«α«¼ »α«úαá¼¼-
  243.      ¡«⌐ Ññ¿¡¿µδ.
  244. 2.   Ä»ÑαáΓ«α FORMAT ¼«ªÑΓ óßΓαÑΓ¿Γ∞ß∩ ó ½εí«¼ ¼ÑßΓÑ »«ß½Ñ «»ÑαáΓ«-
  245.      αá  SUBROUTINE,  FUNCTION,BLOCK  DATA  ¿½¿  PROGRAM, Ñß½¿ «¡
  246.      ÑßΓ∞.
  247. 3.   éßÑ «»ÑαáΓ«αδ «»αÑñѽѡ¿∩ Γ¿»«ó ñ«½ª¡δ »αÑñΦÑßΓó«óáΓ∞ «»Ñαá-
  248.      Γ«αá¼ DATA, «»ÑαáΓ«αá¼-Σπ¡¬µ¿∩¼ ¿ óδ»«½¡∩Ñ¼δ¼ «»ÑαáΓ«αá¼.
  249. 4.   éßÑ «»ÑαáΓ«αδ DATA ñ«½ª¡δ ßΓ«∩Γ∞ »«ß½Ñ «»ÑαáΓ«α«ó «»αÑñѽѡ¿∩
  250.      Γ¿»«ó. Ä»ÑαáΓ«αδ DATA ¼«úπΓ íδΓ∞ »ÑαѼÑΦá¡δ ß «»ÑαáΓ«αἿ-
  251.      Σπ¡¬µ¿∩¼¿ ¿ óδ»«½¡∩Ñ¼δ¼¿ «»ÑαáΓ«αἿ.
  252.  
  253.  
  254.  
  255. 5.   Äíδτ¡« «»ÑαáΓ«α PARAMETER »αÑñΦÑßΓóπÑΓ óßѼ ñαπú¿¼ «»ÑαáΓ«αá¼
  256.      «»αÑñѽѡ¿∩ Γ¿»«ó. Äñ¡á¬«, ¬«úñᠡѬ«Γ«αδ⌐ «»ÑαáΓ«α «»αÑñѽ∩ÑΓ
  257.      Γ¿» ¬«¡ßΓá¡Γδ, ¿ß»«½∞ºπѼ«⌐ ó «»ÑαáΓ«αÑ PARAMETER, «»ÑαáΓ«α
  258.      PARAMETER ñ«½ªÑ¡ ß½Ññ«óáΓ∞ ºá φΓ¿¼ «»ÑαáΓ«α«¼ «»αÑñѽѡ¿∩
  259.      Γ¿»á.
  260. 6.   é «»ÑαáΓ«αáσ «»αÑñѽѡ¿∩ Γ¿»á «»ÑαáΓ«α IMPLICIT ñ«½ªÑ¡ »αÑñ-
  261.      ΦÑßΓó«óáΓ∞ óßѼ ñαπú¿¼ «»ÑαáΓ«αá¼, ºá ¿ß¬½ετÑ¡¿Ñ¼ «»ÑαáΓ«αá
  262.      PARAMETER.
  263. 7.   éßÑ «»ÑαáΓ«αδ-Σπ¡¬µ¿¿ ñ«½ª¡δ »αÑñΦÑßΓó«óáΓ∞ óßѼ óδ»«½¡∩Ѽδ¼
  264.      «»ÑαáΓ«αá¼.
  265. 8.   îÑΓᬫ¼á¡ñδ $DO66, $DECMATH ¿ $STORAGE ñ«½ª¡δ »αÑñΦÑßΓó«óáΓ∞
  266.      ½εíδ¼ ñαπú¿¼ «»ÑαáΓ«αá¼. äαπú¿Ñ ¼ÑßΓá ¬«¼á¡ñδ ¼«úπΓ ¡áσ«ñ¿Γ∞ß∩
  267.      úñÑ πú«ñ¡« ó »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ.
  268.  
  269. 3. ÆêÅ¢ äÇìì¢ò.
  270.  
  271.      é îæ-ö«αΓαá¡Ñ ßπΘÑßΓóπÑΓ ΦÑßΓ∞ «ß¡«ó¡δσ Γ¿»«ó ñá¡¡δσ:
  272. 1.   ûѽδ⌐ (INTEGER*2  INTEGER*4)
  273. 2.   äÑ⌐ßΓó¿Γѽ∞¡δ⌐ (REAL*4 ¿½¿ REAL)
  274. 3.   äó«⌐¡«⌐ Γ«τ¡«ßΓ¿ (REAL*8 ¿½¿ DOUBLE PRECISION)
  275. 4.   è«¼»½Ñ¬ß¡δ⌐ (COMPLEX*8 ¿ COMPLEX*16)
  276. 5.   ï«ú¿τÑ߬¿⌐ (LOGICAL*2 ¿ LOGICAL*4)
  277. 6.   æ¿¼ó«½∞¡δ⌐.
  278.      æó«⌐ßΓóá, ß«ßΓáó ¿ Σ«α¼á »αÑñßΓáó½Ñ¡¿∩ ¬«¡ßΓá¡Γ ¬áªñ«ú« Γ¿»á
  279. «»¿ßá¡δ ¡á ß½ÑñπεΘ¿σ ßΓαá¡¿µáσ; ΓαÑí«óá¡¿∩ »« »á¼∩Γ¿ »α¿óÑñÑ¡δ ó
  280. Γáí½¿µÑ 2-2.
  281. ┌──────────────────────┬─────────────────────┬───────────┐
  282. │        Æ¿»           │   ù¿ß½« íá⌐Γ«ó      │Åα¿¼Ñτá¡¿Ñ │
  283. ├──────────────────────┼─────────────────────┼───────────┤
  284. │  LOGICAL             │     2 ¿½¿ 4         │     1     │
  285. │  LOGICAL*2           │        2            │           │
  286. │  LOGICAL*4           │        4            │           │
  287. │  INTEGER             │     2 ¿½¿ 4         │     1     │
  288. │  INTEGER*2           │        2            │           │
  289. │  INTEGER*4           │        4            │           │
  290. │  SHARACTER           │        1            │     2     │
  291. │  SHARACTER*n         │        n            │     3     │
  292. │  REAL                │        4            │     4     │
  293. │  REAL*4              │        4            │           │
  294. │  REAL*8              │        8            │     5     │
  295. │  DOUBLE PRECISION    │        8            │           │
  296. │  COMPLEX             │        8            │     6     │
  297. │  COMPLEX*8           │        8            │           │
  298. │  COMPLEX*16          │        16           │           │
  299. └──────────────────────┴─────────────────────┴───────────┘
  300.  
  301. Æáí.2-2. ÆαÑí«óá¡¿∩ »« »á¼∩Γ¿.
  302.  
  303. Åα¿¼Ñτá¡¿Ñ ¬ Γáí½¿µÑ 2-2:
  304. 1.   î«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ 2 ¿½¿ 4 íá⌐Γá. Å« π¼«½τá¡¿ε - 4, ¡« ¼ÑΓá-
  305.      ¬«¼á¡ñ«⌐ $STORAGE ¼«ªÑΓ íδΓ∞ πßΓá¡«ó½Ñ¡« 2 ¿½¿ 4.
  306. 2.   CHARACTER ¿ CHARACTER*1 - ß¿¡«¡¿¼δ.
  307. 3.   îá¬ß¿¼á½∞¡«Ñ n αáó¡« 127.
  308. 4.   REAL ¿ REAL*4 - ß¿¡«¡¿¼δ.
  309. 5.   REAL*8 ¿ DOUBLE PRECISION - ß¿¡«¡¿¼δ.
  310. 6.   COMPLEX ¿ COMPLEX*8 - ß¿¡«¡¿¼δ.
  311.  
  312.  
  313.  
  314. çá¼Ñτá¡¿∩.
  315.      ìá ¼¡«ú¿σ ¼¿¬α«»α«µÑßß«αá󠬫¼á¡ñδ, ¡Ñ«íσ«ñ¿¼δÑ ñ½∩ óδ»«½¡Ñ-
  316. ¡¿∩ 16-í¿Γ«ó«⌐ áα¿Σ¼ÑΓ¿¬¿, º¡áτ¿Γѽ∞¡« íδßΓαÑÑ ¿ ¬«α«τÑ ß««ΓóÑΓß-
  317. ΓóπεΘ¿σ ¬«¼á¡ñ ñ½∩ óδ»«½¡Ñ¡¿∩ 32-í¿Γ«ó«⌐ áα¿Σ¼ÑΓ¿¬¿. Å«φΓ«¼π, »«-
  318. ¬á éδ ¡Ñ ¿ß»«½∞ºπÑΓÑ ¼ÑΓᬫ¼á¡ñπ îæ-ö«αΓαá¡á $STORAGE, πßΓá¡áó½¿-
  319. óáεΘπε 2, ó »α«úαἼѠ»« π¼«½τá¡¿ε íπñÑΓ 32-í¿Γ«óá∩ áα¿Σ¼ÑΓ¿¬á  ¿
  320. «¡á  íπñÑΓ  óδ»«½¡∩Γ∞ß∩  ßπΘÑßΓóÑ¡¡«  ¼Ññ½Ñ¡¡Ñ⌐,  τѼ  «ª¿ñáÑΓß∩.
  321. (漫Γα¿ΓÑ «»¿ßá¡¿Ñ ¼ÑΓᬫ¼á¡ñδ $STORAGE ó τáßΓ¿ 6).  ôßΓá¡«ó¬á  2
  322. ¼ÑΓᬫ¼á¡ñ«⌐  $STORAGE  π߬«α¿Γ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¿ ßñѽáÑΓ ÑÑ
  323. ¬«α«τÑ.
  324.      éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ó¡πΓαÑ¡¡εε Σπ¡¬µ¿ε INT2 ñ½∩  π¬áºá¡¿ε
  325. ¬«¼»¿½∩Γ«απ ¿ß»«½∞º«óáΓ∞ ó óδαáªÑ¡¡δσ 16-í¿Γ«óπε áα¿Σ¼ÑΓ¿¬π.
  326.  
  327. 3.1. ûѽδÑ Γ¿»δ ñá¡¡δσ.
  328.  
  329.      ûѽδ⌐ Γ¿» ñá¡¡δσ ß«ßΓ«¿Γ ¿º »«ñ¼¡«ªÑßΓóᠵѽδσ τ¿ßѽ.  ûѽá∩
  330. óѽ¿τ¿¡á  - φΓ« Γ«τ¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ ß««ΓóÑΓßΓóπεΘÑú« µÑ½«ú«. ûÑ-
  331. ½á∩ óѽ¿τ¿¡á ºá¡¿¼áÑΓ 2 ¿½¿ 4 íá⌐Γá, ó ºáó¿ß¿¼«ßΓ¿  «Γ  πßΓá¡«ó¬¿
  332. ¼ÑΓᬫ¼á¡ñδ  $STORAGE.  2-íá⌐Γ«ó«Ñ µÑ½«Ñ, INTEGER*2, ¼«ªÑΓ ß«ñÑα-
  333. ªáΓ∞ óѽ¿τ¿¡π ó ñ¿á»áº«¡Ñ «Γ -32767 ñ« 32767.  4-íá⌐Γ«ó«Ñ  µÑ½«Ñ,
  334. INTEGER*4, ¼«ªÑΓ ß«ñÑαªáΓ∞ óѽ¿τ¿¡π ó ñ¿á»áº«¡Ñ «Γ -2147483647 ñ«
  335. 2147463647.
  336.      ûѽδÑ ¬«¡ßΓá¡Γδ ß«ñÑαªáΓ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ «ñ¡«⌐ ¿½¿  í«½ÑÑ
  337. ñÑß∩Γ¿τ¡δσ  µ¿Σα  ¿½¿  «»αÑñѽ¿Γѽ∞ ß¿ßΓѼδ ßτ¿ß½Ñ¡¿∩, ºá ¬«Γ«αδ¼
  338. ß½ÑñπÑΓ ßΓα«¬á µ¿Σα ó ñ¿á»áº«¡Ñ «Γ 0...(«ß¡«óá¡¿Ñ ß¿ßΓѼδ ßτ¿ß½Ñ-
  339. ¡¿∩ - 1), úñÑ óѽ¿τ¿¡δ «Γ 10 ñ« 35 »αÑñßΓáó½Ñ¡δ íπ¬óἿ «Γ Ç ñ« Z
  340. ß««ΓóÑΓßΓóÑ¡¡«. ô¬áºáΓѽ∞ ß¿ßΓѼδ ßτ¿ß½Ñ¡¿∩ ß«ñÑαª¿Γ ß¿¼ó«½  "#",
  341. ¬«Γ«α«¼π «íδτ¡« »αÑñΦÑßΓóπÑΓ ßΓ᫬á ñÑß∩Γ¿τ¡δσ µ¿Σα, »αÑñßΓáó½∩ε-
  342. Θá∩  óѽ¿τ¿¡π «ß¡«óá¡¿∩ ß¿ßΓѼδ ßτ¿ß½Ñ¡¿∩. àß½¿ ßΓα«¬á «ΓßπΓßΓóπ-
  343. ÑΓ, »«ñαáºπ¼ÑóáÑΓß∩, τΓ« «ß¡«óá¡¿Ñ αáó¡« 16. àß½¿ π¬áºáΓѽ∞  ß¿ß-
  344. ΓÑ¼δ  ßτ¿ß½Ñ¡¿∩ «ΓßπΓßΓóπÑΓ, »«ñαáºπ¼ÑóáÑΓß∩, τΓ« «ß¡«óá¡¿Ñ αáó¡«
  345. 10.
  346.      ïεí«¼π  Σ«α¼áΓπ  ¼«ªÑΓ »αÑñΦÑßΓó«óáΓ∞ »α«¿ºó«½∞¡δ⌐ áα¿Σ¼ÑΓ¿-
  347. τÑ߬¿⌐ º¡á¬ »½εß (+) ¿½¿ ¼¿¡πß (-). ûѽδÑ ¬«¡ßΓá¡Γδ ¡Ñ ñ«½ª¡δ óδ-
  348. σ«ñ¿Γ∞ ¿º ñ¿á»áº«¡á. äÑß∩Γ¿τ¡á∩ Γ«τ¬á ¡Ññ«»πßΓ¿¼á ó µÑ½«⌐ ¬«¡ßΓá-
  349. ¡Ñ.
  350.      çá¼Ñτá¡¿Ñ: ñ¿á»áº«¡ óѽ¿τ¿¡ ¬á¬ ñ½∩ 16-í¿Γ«óδσ Γᬠ¿ ñ½∩ 32-
  351. í¿Γ«óδσ µÑ½δσ ¡Ñ ó¬½ετáÑΓ ¡á¿í«½ÑÑ «Γα¿µáΓѽ∞¡«Ñ  τ¿ß½«,  ¬«Γ«α«Ñ
  352. ¼«ªÑΓ  íδΓ∞ »αÑñßΓáó½Ñ¡« ó ñó«¿τ¡«¼ ñ«»«½¡¿Γѽ∞¡«¼ ¬«ñÑ φΓ¿¼ τ¿ß-
  353. ½«¼ í¿Γ«ó. ¥Γ¿ τ¿ß½á, 16#8000 ¿  16#80000000  «íαáíáΓδóáεΓß∩  ¬á¬
  354. "¡Ñ«»αÑñѽѡ¡δÑ" ñ½∩ ß¿ú¡á½¿ºáµ¿¿ «í «Φ¿í¬Ñ.
  355.      ò«Γ∩ ¼á¬ß¿¼á½∞¡á∩ óѽ¿τ¿¡á 32-í¿Γ«ó«ú« µÑ½«ú« «»αÑñѽѡᠬá¬
  356. 2**31-1, »α¿ ¬«¼»¿½∩µ¿¿ ¿ ßτÑΓÑ íπñπΓ ßτ¿ΓδóáΓ∞ß∩ ¿ í«½∞Φ¿Ñ óѽ¿-
  357. τ¿¡δ,  ¬«Γ«αδÑ  óδσ«ñ∩Γ  ºá ñ¿á»áº«¡ 2**32. ì« φΓ¿ óѽ¿τ¿¡δ íπñπΓ
  358. Γ«½∞¬« ßτ¿ΓδóáΓ∞ß∩ íѺ «Φ¿í¬¿, Ñß½¿  ¿σ  «ß¡«óá¡¿Ñ  ßτ¿ß½Ñ¡¿∩  ¡Ñ
  359. αáó¡« 10. Ä¡¿ íπñπΓ ¿¡ΓÑúα¿α«óáΓ∞ß∩ ¬á¬ «Γα¿µáΓѽ∞¡δÑ τ¿ß½á ß ß«-
  360. «ΓóÑΓßΓóπεΘ¿¼  ó¡πΓαÑ¡¡¿¼  »αÑñßΓáó½Ñ¡¿Ñ¼.  ìá»α¿¼Ñα, 16#FFFFFFFF
  361. »α¿óÑñÑΓ ¬ Γ«¼π τΓ« óßÑ í¿Γδ 32-í¿Γ«ó«ú« τ¿ß½á íπñπΓ Ññ¿¡¿µδ, τΓ«
  362. ß««ΓóÑΓßΓóπÑΓ áα¿Σ¼ÑΓ¿τÑ߬«⌐ óѽ¿τ¿¡Ñ -1.
  363.      Åα¿¼Ñαδ µÑ½δ󠬫¡ßΓá¡Γ:
  364.                    123           +123               0
  365.               00000123          32767          -32767
  366.                 -#AB05       2#010111       -36#ABZ07
  367.      é îæ-ö«αΓαá¡Ñ Γ«τ¡«ßΓ∞ µÑ½δσ «»αÑñѽ∩ÑΓß∩ ß½ÑñπεΘ¿¼ «íαẫ¼:
  368.      *è«¡ßΓá¡Γδ.
  369.      Æ«τ¡«ßΓ∞ πßΓá¡áó½¿óáÑΓ ¼ÑΓᬫ¼á¡ñá $STORAGE.
  370.      *ÉѺπ½∞ΓáΓ óδαáªÑ¡¿∩.
  371.      Æ«τ¡«ßΓ∞  αѺπ½∞ΓáΓá  «»αÑñѽ∩ÑΓß∩  Γ«τ¡«ßΓ∞ε  ¼á¬ß¿¼á½∞¡«ú«
  372. «»Ñαá¡ñá ¿ óѽ¿τ¿¡«⌐ πßΓá¡«ó½Ñ¡¡«⌐ ¼ÑΓᬫ¼á¡ñ«⌐ $STORAGE.
  373.  
  374.  
  375.  
  376.      *ö«α¼á½∞¡δÑ »áαá¼ÑΓαδ.
  377.      àß½¿ Γ«τ¡«ßΓ∞ ¡Ñ¿ºóÑßΓ¡á, »αÑñ½áúáÑΓß∩, τΓ« «¡á Γá¬á∩ ªÑ ¬á¬
  378. π  Σá¬Γ¿τÑ߬«ú« »áαá¼ÑΓαá. àß½¿ Γ¿» ¿ºóÑßΓÑ¡, «¡ ñ«½ªÑ¡ Γ«τ¡« ß«-
  379. «ΓóÑΓßΓó«óáΓ∞ Σá¬Γ¿τÑ߬«¼π »áαá¼ÑΓαπ (ñ« ΓÑσ »«α »«¬á »áαá¼ÑΓα ¡Ñ
  380. »ÑαÑñáÑΓß∩ óѽ¿τ¿¡«⌐, ¿ß»«½∞ºπεΘÑ⌐  áΓα¿íπΓ  VALUE,  «»¿ßá¡¡δ⌐  ó
  381. τáßΓ¿ 7).
  382.      *ûѽδÑ »ÑαѼѡ¡δÑ ¿ Σπ¡¬µ¿¿.
  383.      Æ«τ¡«ßΓ∞ ºáñá¡á ñ½∩ ¬áªñ«⌐ »ÑαѼѡ¡«⌐ ¿½¿ Σπ¡¬µ¿¿ (»« π¼«½τá-
  384. ¡¿ε πßΓá¡«ó½Ñ¡á ¼ÑΓᬫ¼á¡ñ«⌐ $STORAGE).
  385.  
  386. 3.2. Æ¿» ñÑ⌐ßΓó¿Γѽ∞¡δσ ñá¡¡δσ «íδτ¡«⌐ Γ«τ¡«ßΓ¿ IEEE.
  387.  
  388.      Æ¿» ñÑ⌐ßΓó¿Γѽ∞¡δσ ñá¡¡δσ (REAL ¿½¿ REAL*4) ß«ñÑαª¿Γ »«ñ¼¡«-
  389. ªÑßΓó«  ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ «íδτ¡«⌐ Γ«τ¡«ßΓ¿. äÑ⌐ßΓó¿Γѽ∞¡á∩ óÑ-
  390. ½¿τ¿¡á «íδτ¡«⌐ Γ«τ¡«ßΓ¿ - φΓ« »α¿í½¿ªÑ¡¿Ñ ΓαÑíπѼ«ú« ñÑ⌐ßΓó¿Γѽ∞-
  391. ¡«ú« τ¿ß½á, ºá¡¿¼áεΘÑÑ 4 íá⌐Γá  »á¼∩Γ¿.  ä¿á»áº«¡  ñÑ⌐ßΓó¿Γѽ∞¡δσ
  392. τ¿ßѽ «íδτ¡«⌐ Γ«τ¡«ßΓ¿ »α¿í½¿º¿Γѽ∞¡« ß½ÑñπεΘ¿⌐:
  393.      «Γ 8.43à-37 ñ« 3.37à+38 (»«½«ª¿Γѽ∞¡δÑ τ¿ß½á)
  394.      «Γ -3.37à+38 ñ« -8.43à-37(«Γα¿µáΓѽ∞¡δÑ τ¿ß½á)
  395.                0                (¡π½∞)
  396.      Æ«τ¡«ßΓ∞ - í«½∞ΦÑ ΦÑßΓ¿ ñÑß∩Γ¿τ¡δσ µ¿Σα ¿ ¼Ñ¡∞ΦÑ ßѼ¿.
  397. Äß¡«ó¡á∩ ñÑ⌐ßΓó¿Γѽ∞¡á∩ ¬«¡ßΓá¡Γá ß«ñÑনΓ:
  398. 1.   ìÑ«í∩ºáΓѽ∞¡δ⌐ º¡á¬.
  399. 2.   ûѽπε τáßΓ∞.
  400. 3.   äÑß∩Γ¿τ¡πε Γ«τ¬π.
  401. 4.   äα«í¡πε τáßΓ∞.
  402. 5.   ìÑ«í∩ºáΓѽ∞¡δ⌐ »«¬áºáΓѽ∞ φ¬ß»«¡Ñ¡Γδ.
  403.      ûѽá∩  ¿ ñα«í¡á∩ τáßΓ¿ ß«ñÑαªáΓ »« «ñ¡«⌐ ¿½¿ í«½∞ΦÑ ñÑß∩Γ¿τ-
  404. ¡δσ µ¿Σα, á Γ«τ¬á ∩ó½∩ÑΓß∩ αáºñѽ¿ΓѽѼ (.). èᬠµÑ½á∩ τáßΓ∞, Γá¬
  405. ¿ ñα«í¡á∩ ¼«úπΓ «ΓßπΓßΓó«óáΓ∞, ¡« ¡Ñ «íÑ. ìѬ«Γ«αδÑ »α«ßΓδÑ µÑ½δÑ
  406. ¬«¡ßΓá¡Γδ:
  407.          -123.456              +123.456           123.456
  408.   -123.                 +123.              123.
  409.          -.456                 +.456              .456
  410.      ¥¬ß»«¡Ñ¡µ¿á½∞¡á∩ τáßΓ∞ ß«ñÑαª¿Γ íπ¬óπ "à", ºá ¬«Γ«α«⌐ ß½Ññπ-
  411. ÑΓ  (¡Ñ«í∩ºáΓѽ∞¡«)  µÑ½á∩  ¬«¡ßΓá¡Γá ß« º¡á¬«¼ ¿º «ñ¡«⌐ ¿½¿ ñóπσ
  412. µ¿Σα.
  413.      ¥¬ß»«¡Ñ¡Γá »«¬áºδóáÑΓ, τΓ« »αÑñΦÑßΓóπεΘπε óѽ¿τ¿¡π ¡πª¡« π¼-
  414. ¡«ª¿Γ∞ ¡á ñÑß∩Γ∞ ó ßΓѻѡ¿ µÑ½á∩ ¬«¡ßΓá¡Γá. ìѬ«Γ«αδÑ »α«ßΓδÑ φ¬-
  415. ß»«¡Ñ¡µ¿á½∞¡δÑ τáßΓ¿:
  416.           à12          à-12             à+12      à0
  417.      äÑ⌐ßΓó¿Γѽ∞¡á∩ ¬«¡ßΓá¡Γá - φΓ« ½¿í« «ß¡«ó¡á∩  ñÑ⌐ßΓó¿Γѽ∞¡á∩
  418. ¬«¡ßΓá¡Γá,  ½¿í«  «ß¡«ó¡á∩ ñÑ⌐ßΓó¿Γѽ∞¡á∩ ¬«¡ßΓá¡Γá ß φ¬ß»«¡Ñ¡µ¿-
  419. á½∞¡«⌐ τáßΓ∞ε, ½¿í« µÑ½á∩ ¬«¡ßΓá¡Γá  ß  φ¬ß»«¡Ñ¡µ¿á½∞¡«⌐  τáßΓ∞ε.
  420. ìá»α¿¼Ñα:
  421.            +1.000à-2         1.à-2          1à-2
  422.            +0.01           100.0à-4        0.0001à+2
  423. éßÑ φΓ« - «ñ¡« ¿ Γ« ªÑ τ¿ß½«, «ñ¡á ß«Γá∩.
  424.  
  425. 3.3. äÑ⌐ßΓó¿Γѽ∞¡δ⌐ Γ¿» ñá¡¡δσ IEEE ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
  426.  
  427.      äÑ⌐ßΓó¿Γѽ∞¡δ⌐  Γ¿»  ñá¡¡δσ  ñó«⌐¡«⌐  Γ«τ¡«ßΓ¿  (REAL*8  ¿½¿
  428. DOUBLE  PRECISION)  ß«ñÑαª¿Γ  »«ñ¼¡«ªÑßΓó«  ñÑ⌐ßΓó¿Γѽ∞¡δσ  τ¿ßѽ
  429. ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿. ¥Γ« »«ñ¼¡«ªÑßΓó« í«½∞ΦÑ, τѼ »«ñ¼¡«ªÑßΓó«  Γ¿»á
  430. ñá¡¡δσ REAL(REAL*4).
  431.  
  432.  
  433.  
  434.      äÑ⌐ßΓó¿Γѽ∞¡á∩ óѽ¿τ¿¡á ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿ - φΓ«, «íδτ¡« »α¿í-
  435. ½¿ªÑ¡¿Ñ ΓαÑíπѼ«ú« ñÑ⌐ßΓó¿Γѽ∞¡«ú« τ¿ß½á. äÑ⌐ßΓó¿Γѽ∞¡á∩ óѽ¿τ¿¡á
  436. ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿ ¼«ªÑΓ íδΓ∞ »«½«ª¿Γѽ∞¡«⌐, «Γα¿µáΓѽ∞¡«⌐ ¿½¿  ¡π-
  437. ½Ñ¼  ¿ ºá¡¿¼áÑΓ ó«ßѼ∞ íá⌐Γ«ó »á¼∩Γ¿. ä¿á»áº«¡ ñÑ⌐ßΓó¿Γѽ∞¡δσ óÑ-
  438. ½¿τ¿¡ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿ »α¿í½¿º¿Γѽ∞¡« ß½ÑñπεΘ¿⌐:
  439.      «Γ 4.19D-307  ñ« 1.67D+308  (»«½«ª¿Γѽ∞¡δÑ τ¿ß½á)
  440.      «Γ -1.67D+308 ñ« -4.19D-307 («Γα¿µáΓѽ∞¡δÑ τ¿ß½á)
  441.                           0      (¡π½∞)
  442.      Æ«τ¡«ßΓ∞ í«½∞ΦÑ τѼ 15 ñÑß∩Γ¿τ¡δσ µ¿Σα. è«¡ßΓá¡Γá ñó«⌐¡«⌐
  443. Γ«τ¡«ßΓ¿ ß«ñÑনΓ:
  444. 1.   ìÑ«í∩ºáΓѽ∞¡δ⌐ º¡á¬.
  445. 2.   ûѽπε τáßΓ∞.
  446. 3.   äÑß∩Γ¿τ¡πε Γ«τ¬π.
  447. 4.   äα«í¡πε τáßΓ∞.
  448. 5.   Äí∩ºáΓѽ∞¡πε φ¬ß»«¡Ñ¡µ¿á½∞¡πε τáßΓ∞.
  449.      é φ¬ß»«¡Ñ¡ΓÑ ¿ß»«½∞ºπÑΓß∩ "D" á ¡Ñ "à" ñ½∩ «Γ½¿τ¿∩ «Γ  «íδτ-
  450. ¡«⌐ Γ«τ¡«ßΓ¿. ûѽá∩ ¿ ñα«í¡á∩ τáßΓ¿ ß«ñÑαªáΓ «ñ¡π ¿½¿ í«½ÑÑ ñÑß∩-
  451. Γ¿τ¡δσ  µ¿Σα,  á  ñÑß∩Γ¿τ¡á∩  Γ«τ¬á  ∩ó½∩ÑΓß∩ αáºñѽ¿ΓѽѼ. ûѽá∩
  452. τáßΓ∞ ¿½¿ ñα«í¡á∩, ¡« ¡Ñ «íÑ, ¼«úπΓ «ΓßπΓßΓó«óáΓ∞.
  453.      è«¡ßΓá¡Γá  ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿ - φΓ« ½¿í« «ß¡«ó¡á∩ ñÑ⌐ßΓó¿Γѽ∞-
  454. ¡á∩ ¬«¡ßΓá¡Γá, ºá ¬«Γ«α«⌐ ß½ÑñπÑΓ  φ¬ß»«¡Ñ¡µ¿á½∞¡á∩  τáßΓ∞,  ½¿í«
  455. µÑ½á∩  ¬«¡ßΓá¡Γá, ºá ¬«Γ«α«⌐ ß½ÑñπÑΓ φ¬ß»«¡Ñ¡µ¿á½∞¡á∩ τáßΓ∞. ìá»-
  456. α¿¼Ñα:
  457.      +1.123456789D-2         1.D-2           1D-2
  458.      +0.000000001D0       100.0000005D-4   .00012345D+2
  459.      ¥¬ß»«¡Ñ¡µ¿á½∞¡á∩ τáßΓ∞ ß«ñÑαª¿Γ íπ¬óπ "D", ºá ¬«Γ«α«⌐ ß½Ññπ-
  460. ÑΓ µÑ½á∩ ¬«¡ßΓá¡Γá. ûѽá∩ ¬«¡ßΓá¡Γá  ¼«ªÑΓ  ¿¼ÑΓ∞  ¡Ñ«í∩ºáΓѽ∞¡δ⌐
  461. º¡á¬. ¥¬ß»«¡Ñ¡Γá »«¬áºδóáÑΓ, τΓ« »αÑñΦÑßΓóπεΘÑÑ τ¿ß½« ñ«½ª¡« íδΓ∞
  462. π¼¡«ªÑ¡« ¡á ñÑß∩Γ∞ ó ßΓѻѡ¿ µÑ½δ⌐ »«¬áºáΓѽ∞ φ¬ß»«¡Ñ¡Γδ. ìѬ«Γ«-
  463. αδÑ »α«ßΓδÑ φ¬ß»«¡Ñ¡Γδ:
  464.               D12    /D-12      D+12      /D0
  465.  
  466. 3.4. ö«α¼áΓ ñÑß∩Γ¿τ¡δσ τ¿ßѽ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐
  467.      «íδτ¡«⌐ ¿ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
  468.  
  469.      äÑß∩Γ¿τ¡δÑ  τ¿ß½á  ß  »½áóáεΘÑ⌐ Γ«τ¬«⌐ ß«ñÑαªáΓ íá⌐Γ ß í¿Γ«¼
  470. º¡á¬á ¿ ßѼ¿í¿Γ«ó«⌐ φ¬ß»«¡Ñ¡Γ«⌐ ó 64-α¿τ¡«⌐ ß¿ßΓѼѠßτ¿ß½Ñ¡¿∩, ºá
  471. ¬«Γ«αδ¼ ß½ÑñπÑΓ ¼á¡Γ¿ßßá ¿º 6 (ñ½∩ «íδτ¡«⌐ Γ«τ¡«ßΓ¿)  ¿½¿  ¿º  14
  472. (ñ½∩  ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿) ñó«¿τ¡«-ñÑß∩Γ¿τ¡δσ µ¿Σα, π»á¬«óá¡¡δσ »« 2
  473. ó íá⌐Γ (Ñß½¿ íá⌐Γ φ¬ß»«¡Ñ¡Γδ ¡π½Ñ⌐ - τ¿ß½«  αáó¡«  ¡π½ε).  çỿß∞
  474. ñÑß∩Γ¿τ¡δ󠬫¡ßΓá¡Γ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ »α«¿ºó«ñ¿Γß∩ ó Γ«¼ ªÑ Σ«α-
  475. ¼áΓÑ,  τΓ«  ¿  ñ½∩  ßΓá¡ñáαΓ¡δσ  ñÑ⌐ßΓó¿Γѽ∞¡δ󠬫¡ßΓá¡Γ ö«αΓαá¡á
  476. «íδτ¡«⌐ ¿ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.  ä«»πßΓ¿¼δ⌐  ñ¿á»áº«¡  τ¿ßѽ  «íδτ¡«⌐
  477. Γ«τ¡«ßΓ¿ ß½ÑñπεΘ¿⌐:
  478.        «Γ +1.0à-64 ñ« +9.99à+62 (»«½«ª¿Γѽ∞¡δÑ τ¿ß½á)
  479.        «Γ -9.99+62 ñ« -1.0à-64  («Γα¿µáΓѽ∞¡δÑ τ¿ß½á)
  480.              0                  (¡π½∞)
  481. Æ«τ¡«ßΓ∞ αáó¡á Γ«τ¡« 6 µ¿Σαá¼.
  482. ä«»πßΓ¿¼δ⌐ ñ¿á»áº«¡ τ¿ßѽ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿ ß½ÑñπεΘ¿⌐:
  483.        «Γ +1.0D-64  ñ« +9.999D+62 (»«½«ª¿Γѽ∞¡δÑ τ¿ß½á)
  484.        «Γ -9.99D+62 ñ« -1.0D-64   («Γα¿µáΓѽ∞¡δÑ τ¿ß½á)
  485.               0                   (¡π½∞)
  486. Æ«τ¡«ßΓ∞ αáó¡á Γ«τ¡« 14 µ¿Σαá¼.
  487.      îÑΓᬫ¼á¡ñá $DECMATH óδºδóáÑΓ »αÑñßΓáó½Ñ¡¿Ñ ¬«¡ßΓá¡Γ ΓѬßΓ«-
  488. ó«ú« Σá⌐½á ó ó¿ñÑ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐.
  489.  
  490.  
  491.  
  492. 3.5. è«¼»½Ñ¬ß¡δÑ Γ¿»δ ñá¡¡δσ.
  493.  
  494.      Æ¿» ñá¡¡δσ COMPLEX*8 ºáñáÑΓ »áαπ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ  «íδτ-
  495. ¡«⌐  Γ«τ¡«ßΓ¿, óΓ«α«Ñ ¿º ¬«Γ«αδσ »αÑñßΓáó½∩ÑΓ ¼¡¿¼πε τáßΓ∞. ù¿ß½«
  496. COMPLEX*8 ºá¡¿¼áÑΓ 8 íá⌐Γ«ó »á¼∩Γ¿.
  497.      è«¼»½Ñ¬ß¡á∩  ¬«¡ßΓá¡Γá ß«ßΓ«¿Γ ¿º ¡Ñ«í∩ºáΓѽ∞¡«ú« º¡á¬á, ½Ñ-
  498. ó«⌐ ß¬«í¬¿, ñóπσ µÑ½δσ ¿½¿ ñÑ⌐ßΓó¿Γѽ∞¡δ⌐ τ¿ßѽ, αáºñѽѡ¡δσ  ºá-
  499. »∩Γ«⌐, ¿ »αáó«⌐ ß¬«í¬¿. ¥½Ñ¼Ñ¡Γ ñá¡¡δσ COMPLEX*16 ß«ñÑαª¿Γ π»«α∩-
  500. ñ«τÑ¡¡πε »áαπ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿. ¥½Ñ¼Ñ¡Γ ñá¡-
  501. ¡δσ COMPLEX*16 ºá¡¿¼áÑΓ 16 íá⌐Γ«ó »á¼∩Γ¿. èáªñá∩ ¬«¼»«¡Ñ¡Γá (ñÑ⌐-
  502. ßΓó¿Γѽ∞¡á∩  ¿  ¼¡¿¼á∩) COMPLEX*8 - φΓ« REAL*4. èáªñá∩ ¬«¼»«¡Ñ¡Γá
  503. COMPLEX*16 - φΓ« REAL*8.
  504.  
  505.  
  506. 3.6. ï«ú¿τÑ߬¿Ñ Γ¿»δ ñá¡¡δσ.
  507.  
  508.      ï«ú¿τÑ߬¿⌐  Γ¿»  ñá¡¡δσ  ß«ñÑαª¿Γ  ñóÑ  ½«ú¿τÑ߬¿σ  óѽ¿τ¿¡δ
  509. .TRUE. ¿ .FALSE. ï«ú¿τÑ߬á∩ »ÑαѼѡ¡á∩ ºá¡¿¼áÑΓ  ñóá  ¿½¿  τÑΓδαÑ
  510. íá⌐Γá  »á¼∩Γ¿ ó ºáó¿ß¿¼«ßΓ¿ «Γ πßΓᡫ󬿠¼ÑΓᬫ¼á¡ñδ $STORAGE. Å«
  511. π¼«½τá¡¿ε φΓ« 4 íá⌐Γá. ç¡áτÑ¡¿Ñ ½«ú¿τÑ߬«⌐  »ÑαѼѡ¡«⌐  ¡Ñºáó¿ß¿Γ
  512. «Γ  ¼ÑΓᬫ¼á¡ñδ  $STORAGE, ¬«Γ«αá∩ ß««ΓóÑΓßΓóπÑΓ ΓαÑí«óá¡¿ε ANSI,
  513. τΓ«íδ ½«ú¿τÑ߬¿Ñ, µÑ½δÑ ¿ ñÑ⌐ßΓó¿Γѽ∞¡δÑ »ÑαѼѡ¡δÑ «íδτ¡«⌐  Γ«τ-
  514. ¡«ßΓ¿  ºá¡¿¼á½¿ «ñ¿¡á¬«ó«Ñ ¼ÑßΓ« ó »á¼∩Γ¿. éѽ¿τ¿¡δ LOGICAL*2 ºá-
  515. ¡¿¼áεΓ  ñóá  íá⌐Γá.  î½áñΦ¿⌐  º¡áτáΘ¿⌐  (»Ñαóδ⌐)  íá⌐Γ   -   ½¿í«
  516. 0(.FALSE.), ½¿í« 1(.TRUE.); ßΓáαΦ¿⌐ º¡áτáΘ¿⌐ íá⌐Γ ¡Ñ «»αÑñѽѡ.
  517.      ÅÑαѼѡ¡δÑ LOGICAL*4 ºá¡¿¼áεΓ ñóá  ß½«óá,  ¼½áñΦÑÑ  º¡áτáΘÑÑ
  518. (»Ñαó«Ñ) ¿º ¬«Γ«αδσ ß«ñÑαª¿Γ óѽ¿τ¿¡π LOGICAL*2. æΓáαΦÑÑ º¡áτáΘÑÑ
  519. ß½«ó« ¡Ñ «»αÑñѽѡ«.
  520.  
  521. 3.7. æ¿¼ó«½∞¡δ⌐ Γ¿» ñá¡¡δσ.
  522.  
  523.      æ¿¼ó«½∞¡δ⌐ Γ¿» ñá¡¡δσ ß«ñÑαª¿Γ  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  ß¿¼ó«½«ó
  524. ASCII.  ä½¿¡á ß¿¼ó«½∞¡«⌐ óѽ¿τ¿¡δ αáó¡« τ¿ß½π ß¿¼ó«½«ó ó »«ß½Ññ«-
  525. óáΓѽ∞¡«ßΓ¿. ä½¿¡á ºáñá¡¡«⌐ ¬«¡ßΓá¡Γδ ¿½¿ »ÑαѼѡ«⌐ Σ¿¬ß¿α«óá¡á ¿
  526. ñ«½ª¡á ß«ßΓáó½∩Γ∞ «Γ 1 ñ« 127 ß¿¼ó«½«ó. æ¿¼ó«½∞¡á∩ »ÑαѼѡ¡á∩ ºá-
  527. ¡¿¼áÑΓ «ñ¿¡ íá⌐Γ »á¼∩Γ¿ ñ½∩ ¬áªñ«ú« ß¿¼ó«½á ó »«ß½Ññ«óáΓѽ∞¡«ßΓ¿.
  528. ÅαÑñ»«½áúáÑΓß∩, τΓ« ß¿¼ó«½∞¡á∩ »ÑαѼѡ¡á∩ ºá¡¿¼áÑΓ µÑ»«τ¬π íá⌐Γ«ó
  529. íѺ πτÑΓá úαá¡¿µ ß½«ó. Äñ¡á¬« ¬«¼»¿½∩Γ«α »αÑñ»«½áúáÑΓ, τΓ« ¡Ñß¿¼-
  530. ó«½∞¡δÑ »ÑαѼѡ¡δÑ, ß½ÑñπεΘ¿Ñ ºá ß¿¼ó«½∞¡δ¼¿, ¡áτ¿¡áεΓß∩ ß úαá¡¿-
  531. µδ ß½«óá.
  532.      æ¿¼ó«½∞¡á∩ ¬«¡ßΓá¡Γá ß«ñÑαª¿Γ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  ¿º  «ñ¡«ú«
  533. ¿½¿  í«½ÑÑ ß¿¼ó«½«ó, ºá¬½ετÑ¡¡δσ ó »áαπ «ñ¿¡«τ¡δσ ¬áóδτѬ. é ß¿¼-
  534. ó«½∞¡«⌐ ¬«¡ßΓá¡ΓÑ ß¿¼ó«½δ »α«íѽ«ó ñ«»πßΓ¿¼δ ¿ º¡áτ¿¼δ.  ÉÑú¿ßΓαδ
  535. íπ¬óÑ¡¡δσ  ß¿¼ó«½«ó º¡áτ¿¼δ. Äñ¿¡«τ¡á∩ ¬áóδτ¬á ó ß¿¼ó«½∞¡«⌐ ¬«¡ß-
  536. Γá¡ΓÑ »αÑñßΓáó½∩ÑΓß∩ ñóπ¼∩ «ñ¿¡«τ¡δ¼¿ ¬áóδτ¬á¼¿ íѺ »α«íѽ«ó ¼Ñª-
  537. ñπ ¡¿¼¿.
  538.      ä½¿¡á ß¿¼ó«½∞¡«⌐ ¬«¡ßΓá¡Γδ αáó¡á τ¿ß½π ß¿¼ó«½«ó  ¼Ñªñπ  «ñ¿-
  539. ¡«τ¡δ¼¿  ¬áóδτ¬á¼¿.  Åáαá «ñ¿¡«τ¡δσ ¬áóδτѬ «º¡áτáÑΓ «ñ¿¡ ß¿¼ó«½.
  540. ìÑ߬«½∞¬« »α¿¼Ñα«ó ß¿¼ó«½∞¡δ󠬫¡ßΓá¡Γ:
  541.                    'A'
  542.                    ' '
  543.                    'Help!'
  544.                    'A very long CHARACTER constant'
  545.                    'O''Brien'
  546.                    ''''
  547.      Å«ß½Ññ¡¿⌐  »α¿¼Ñα - φΓ« ß¿¼ó«½∞¡á∩ ¬«¡ßΓá¡Γá ß«ñÑαªáΘá∩ «ñ¿¡
  548. ừßΓα«Σ («ñ¿¡«τ¡πε ¬áóδτ¬π).
  549.  
  550.  
  551.  
  552.      æ¿¼ó«½∞¡«⌐ »ÑαѼѡ¡«⌐ ¼«ªÑΓ íδΓ∞ »α¿ßó«Ñ¡á ¡Ñß¿¼ó«½∞¡á∩  óÑ-
  553. ½¿τ¿¡á, Ñß½¿ »α¿ßó«Ñ¡¿Ñ ¡Ñ ó¬½ετÑ¡« ó óδαáªÑ¡¿Ñ. ä«»πßΓ¿¼« ß½Ññπ-
  554. εΘÑÑ:
  555.                      REAL R
  556.                      CHARACTER*5 C
  557.                      C=R,
  558. ¡« ß½ÑñπεΘÑÑ ¡Ññ«»πßΓ¿¼«
  559.                      REAL R
  560.                      CHARACTER*5 C
  561.                      C=R+1.0
  562.      ö«αΓαá¡ ñ«»π߬áÑΓ ßΓ᫬¿ ¿ßσ«ñ¡«ú« ΓѬßΓá ñ½¿¡«⌐ ñ« 72 »«º¿-
  563. µ¿⌐.  è«α«Γ¬¿Ñ  ßΓ᫬¿ ñ«»«½¡∩εΓß∩ »α«íѽἿ ñ« 72 »«º¿µ¿¿. è«úñá
  564. ß¿¼ó«½∞¡á∩ ¬«¡ßΓá¡Γá »ÑαÑσ«ñ¿Γ τÑαѺ úαá¡¿µπ ßΓ᫬¿, ÑÑ  óѽ¿τ¿¡á
  565. Γᬫóá,  ¬á¬ Ñß½¿ íδ τáßΓ∞ ßΓ᫬¿ »α«ñ«½ªÑ¡¿∩, ¡áτ¿¡á∩ ß 7-«⌐ »«-
  566. º¿µ¿¿, ñ«íáó¿Γ∞ ¬ 72-⌐ »«º¿µ¿¿ ¡áτá½∞¡«⌐ ßΓ᫬¿. Å«φΓ«¼π  ß½Ññπε-
  567. Θ¿⌐ ΓѬßΓ ö«αΓαá¡á
  568.                  200  æì='ABC
  569.                     X DEF'
  570. ¥¬ó¿óá½Ñ¡ΓÑ¡:
  571.                  200  CH='ABC(58 »α«íѽ«ó)...DEF'
  572.      æ  58-ε  »α«íѽἿ  ¼Ñªñπ æ ¿ ä, αáó¡δ¼¿ »α«ßΓαá¡ßΓóπ «Γ æ ó
  573. 15-⌐ »«º¿µ¿¿ ñ« 72-⌐ »«º¿µ¿¿ »½εß «ñ¡«¼π »α«íѽπ ó  7-«⌐  »«º¿µ¿¿
  574. ßΓ᫬¿  »α«ñ«½ªÑ¡¿∩.  Æᬿ¼ «íαẫ¼ ¼«úπΓ íδΓ∞ »αÑñßΓáó½Ñ¡δ «τÑ¡∞
  575. ñ½¿¡¡δÑ ß¿¼ó«½∞¡δÑ ¬«¡ßΓá¡Γδ.
  576.  
  577. 3.7.1. æ¿¼ó«½∞¡δÑ »«ñßΓ᫬¿.
  578.  
  579.      îæ-ö«αΓαá¡ »«ññÑনóáÑΓ »«ñßΓ᫬¿ ΓᬠªÑ, ¬á¬ «¡¿ «»αÑñѽѡδ
  580. ó »«½¡«¼ ∩ºδ¬Ñ ö«αΓαá¡ 77. Å«ñßΓ᫬¿ «Γ¡«ß∩Γß∩ ¬ Γ¿»π CHARACTER ¿
  581. ¿ß»«½∞ºπεΓß∩ ñ½∩ ñ«ßΓπ»á ¬ ß½¿Γ¡δ¼ τáßΓ∩¼ ß¿¼ó«½∞¡«⌐  »ÑαѼѡ¡«⌐.
  582. Ä¡¿ ¿¼ÑεΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß:
  583. ───────────────────────────────────────────────
  584.   »ÑαѼѡ¡á∩ ([»Ñαóδ⌐ ⁿ]:[»«ß½Ññ¡¿⌐ ⁿ])
  585. ───────────────────────────────────────────────
  586.                      ¿½¿
  587. ──────────────────────────────────────────────────────────
  588.   ¼áßß¿ó (¿¡ñѬß1 [,¿¡ñѬß2])([»Ñαóδ⌐ ⁿ]:[»«ß½Ññ¡¿⌐ ⁿ])
  589. ──────────────────────────────────────────────────────────
  590. úñÑ
  591. »ÑαѼѡ¡á∩                    φΓ« ß¿¼ó«½∞¡á∩ »ÑαѼѡ¡á∩
  592. ¼áßß¿ó (¿¡ñѬß1[,¿¡ñѬß2])    φΓ« φ½Ñ¼Ñ¡Γ ß¿¼ó«½∞¡«ú« ¼áßß¿óá
  593. »Ñαóδ⌐ ⁿ ¿                    φΓ« µÑ½δÑ óδαáªÑ¡¿∩, «»αÑñѽ∩εΘ¿Ñ
  594. »«ß½Ññ¡¿⌐ ⁿ                   »Ñαóδ⌐ (ßá¼δ⌐ ½Ñóδ⌐) ¿ »«ß½Ññ¡¿⌐
  595.                               (ßá¼δ⌐ »αáóδ⌐) ß¿¼ó«½ ó »«ñßΓ᫬Ñ
  596.                               èᬠ»Ñαóδ⌐ ⁿ, Γᬠ¿ »«ß½Ññ¡¿⌐ ⁿ ¡Ñ-
  597.                               «í∩ºáΓѽ∞¡δ. Å« π¼«½τá¡¿ε »Ñαóδ⌐ ⁿ
  598.                               αáóÑ¡ Ññ¿¡¿µÑ, ΓᬠτΓ« »«ñßΓ᫬á
  599.                               ¡áτ¿¡áÑΓß∩ ß »Ñαó«ú« ß¿¼ó«½á ßΓα«-
  600.                               ¬¿. Å« π¼«½τá¡¿ε »«ß½Ññ¡¿⌐ ⁿ -φΓ«
  601.                               ñ½¿¡á ßΓ᫬¿, ΓᬠτΓ« »«ñßΓ᫬á
  602.                               ¬«¡τáÑΓß∩ ¡á »«ß½Ññ¡Ñ¼ ß¿¼ó«½Ñ ßΓα«-
  603.                               ¬¿.
  604.      ÄΓ¼ÑΓ¿¼  τΓ«  »ÑαѼѡ¡á∩(:)  φ¬ó¿óá½Ñ¡Γ¡á  »ÑαѼѡ¡á∩. ä½¿¡á
  605. »«ñßΓ᫬¿ αáó¡á »«ß½Ññ¡¿⌐ ⁿ-»Ñαóδ⌐ ⁿ+1. éº∩Γá∩ ñ½¿¡á ñ«½ª¡á  íδΓ∞
  606. ñ½¿¡«⌐  ß¿¼ó«½∞¡«⌐  »ÑαѼѡ¡«⌐  ¿  »α¿ φΓ«¼ ñ«½ª¡δ πñ«ó½ÑΓó«α∩Γß∩
  607. ß½ÑñπεΘ¿Ñ «Γ¡«ΦÑ¡¿∩:
  608. 1. »Ñαóδ⌐ ⁿ≤»«ß½Ññ¡¿⌐ ⁿ
  609. 2. 1≤»Ñαóδ⌐  ⁿ≤ñ½¿¡á
  610. 3. 1≤»«ß½Ññ¡¿⌐ ⁿ≤ñ½¿¡á
  611.  
  612.  
  613.  
  614.      Æαá¡ß½∩Γ«α ¡Ñ »α«óÑα∩ÑΓ φΓ¿ ß««Γ¡«ΦÑ¡¿∩. àß½¿ «¡¿ ¡Ñ ß««íΘÑ¡δ
  615. éδ »«½πτ¿ΓÑ ¡Ñ«»αÑñѽѡ¡δ⌐ αѺπ½∞ΓáΓ.
  616. Å«ñßΓ᫬¿ ¡Ñ ¼«úπΓ íδΓ∞ »αÑñßΓáó½Ñ¡δ óѽ¿τ¿¡«⌐. àß½¿ éδ »«»δΓáÑΓÑß∞
  617. φΓ« ßñѽáΓ∞, Γ« »«½πτ¿ΓÑ «Φ¿í¬π 97.
  618. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ »«ñßΓ᫬¿ ñ½∩ ¬«¡¬áΓѡᵿ¿ ßΓ᫬, ¡á»α¿¼Ñα,
  619.                    CHARACTER A*12, B*20, C*32
  620.                    A='Now is the t'
  621.                    B='ime for all gooel men'
  622.                    C(1:12)=A
  623.                    C(13:12+20)=B
  624.                    WRITE(*,*)'C=',C
  625.                    END
  626. é αѺπ½∞ΓáΓÑ ¡á óδσ«ñÑ íπñÑΓ
  627.                    C=Now is the time for all gooel men
  628.  
  629. 4. êîàìÇ.
  630.  
  631.      ê¼∩ ó îæ-ö«αΓαá¡Ñ ¿½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ß«ñÑαªáΓ »«ß½Ññ«óáΓѽ∞-
  632. ¡«ßΓ∞ íπ¬óÑ¡¡«µ¿Σα«óδσ ß¿¼ó«½«ó (¼á¬ß¿¼π¼ »« 66 ß¿¼ó«½«ó ó ßΓ᫬Ñ,
  633. π¼¡«ªÑ¡¡δσ ¡á 20 ßΓ᫬). ìáτá½∞¡δ⌐ ß¿¼ó«½ ñ«½ªÑ¡ íδΓ∞ íπ¬óÑ¡¡δ¼,
  634. ß½ÑñπεΘ¿Ñ ß¿¼ó«½δ ñ«½ª¡δ íδΓ∞ íπ¬óÑ¡¡«µ¿Σα«ó묨. Åα«íÑ½δ ¿ú¡«α¿-
  635. απεΓß∩. Æ«½∞¬« »ÑαóδÑ ΦÑßΓ∞ íπ¬óÑ¡¡«µ¿Σα«óδσ ß¿¼ó«½«ó ∩ó½∩εΓß∩
  636. º¡áτáΘ¿¼¿, «ßΓá½∞¡δÑ ¿ú¡«α¿απεΓß∩.
  637.      ê¼∩ «º¡áτáεΓ «»αÑñѽѡ¡πε »«½∞º«óáΓѽѼ ¿½¿ ß¿ßΓѼ«⌐
  638. »ÑαѼѡ¡πε, ¼áßß¿ó ¿½¿ »α«úαá¼¼¡πε Ññ¿¡¿µπ. ïεíá∩ º¡áτáΘá∩ »«ß½Ñ-
  639. ñ«óáΓѽ∞¡«ßΓ∞ ß¿¼ó«½«ó ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡á ñ½∩ ½εí«ú« ¿¼Ñ¡¿
  640. ö«αΓαá¡á. çñÑß∞ ¡ÑΓ ºáαѺÑαó¿α«óá¡¡δσ ¿¼Ñ¡, ¬á¬ ó ñαπú¿σ ∩ºδ¬áσ.
  641. Å«ß½Ññ«óáΓѽ∞¡«ßΓ¿ íπ¬óÑ¡¡δσ ß¿¼ó«½«ó, ¿ß»«½∞ºπѼδÑ ¬á¬ ¬½ετÑóδÑ
  642. ß½«óá ¬«¼»¿½∩Γ«αá îæ-ö«αΓαá¡á ¡Ñ ß¼ÑΦ¿óáεΓß∩ ß ¿¼Ñ¡á¼¿, «»αÑñѽ∩-
  643. Ñ¼δ¼¿ »«½∞º«óáΓѽѼ. è«¼»¿½∩Γ«α «Γ½¿τáÑΓ ¬½ετÑóδÑ ß½«óá »« ¿σ
  644. ¬«¡ΓѬßΓπ ¿ ¡á ¿ß»«½∞º«óá¡¿Ñ ¿¼Ñ¡, «»αÑñѽ∩Ѽδσ »«½∞º«óáΓѽѼ,
  645. ¡ÑΓ «úαá¡¿τÑ¡¿⌐.
  646.      Å«φΓ«¼π ó »α«úαἼѠ¼«úπΓ íδΓ∞ ¼áßß¿óδ ß ¿¼Ñ¡á¼¿, ¡á»α¿¼Ñα,
  647. IF, READ ¿½¿ GO TO ¿ »α¿ φΓ«¼ ¡Ñ íπñÑΓ «Φ¿í«¬ (»«¬á «¡¿ íπñπΓ ¿ß-
  648. »«½∞º«óáΓ∞ß∩ »« »αáó¿½á¼, ¬«Γ«αδ¼ ñ«½ª¡δ »«ñτ¿¡∩Γ∞ß∩). Äñ¡á¬«,
  649. ¿ß»«½∞º«óá¡¿Ñ ¬½ετÑóδσ ß½«ó ñ½∩ ¿¼Ñ¡ »«½∞º«óáΓѽ∩ τáßΓ« ¼ÑΦáÑΓ
  650. τ¿Γáíѽ∞¡«ßΓ¿ »α«úαá¼¼δ ¿, »αá¬Γ¿τÑ߬¿, φΓ«ú« ß½ÑñπÑΓ ¿ºíÑúáΓ∞.
  651.  
  652. 4.1. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿¼Ñ¡ ö«αΓαá¡á.
  653.  
  654.      Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿¼Ñ¡¿ - ¥Γ« ñ¿á»áº«¡ «»ÑαáΓ«α«ó, úñÑ φΓ«
  655. ¿¼∩ ¿ºóÑßΓ¡«, ¿½¿ ¡á ¡Ñú« ¼«ª¡« ßßδ½áΓ∞ß∩ ó »α«úαἼѠ¡á ö«αΓαá¡Ñ.
  656.      é «ß¡«ó¡«¼, «í½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿¼Ñ¡¿ ½¿í« ú½«íá½∞¡á, ½¿í«
  657. ½«¬á½∞¡á, σ«Γ∩ ¿ ßπΘÑßΓóπεΓ ¡Ñ¬«Γ«αδÑ ¿ß¬½ετÑ¡¿∩. ê¼∩ ¼«ªÑΓ íδΓ∞
  658. ¿ß»«½∞º«óá¡« ½¿Φ∞ ó ß««ΓóÑΓßΓó¿¿ ß Ññ¿¡ßΓóÑ¡¡δ¼ «»αÑñѽѡ¿Ñ¼ ó
  659. Ñú« «í½áßΓ¿ ñÑ⌐ßΓó¿∩. Äñ¡á¬«, «ñ¡« ¿ Γ«ªÑ ¿¼∩ ¼«ªÑΓ ¿¼ÑΓ∞ αạδÑ
  660. «»αÑñѽѡ¿∩ ó αạδσ «í½áßΓ∩σ ñÑ⌐ßΓó¿∩.
  661.      ê¼∩ ß ú½«íá½∞¡«⌐ «í½áßΓ∞ε ñÑ⌐ßΓó¿∩ ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡« ó
  662. í«½ÑÑ τѼ «ñ¡«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ (»«ñ»α«úαá¼¼Ñ, Σπ¡¬µ¿¿,
  663. «ß¡«ó¡«⌐ »α«úαá¼¼Ñ) ¿ ¡á ¡Ñú« ¼«ª¡« ßßδ½áΓ∞ß∩ ó ¡¿σ. öá¬Γ¿τÑ߬¿,
  664. ¿¼Ñ¡á ß ú½«íá½∞¡«⌐ «í½áßΓ∞ε ñÑ⌐ßΓó¿∩ ¿ß»«½∞ºπεΓß∩ «íδτ¡δ¼ »«ß½Ñ-
  665. ñ«óáΓѽ∞¡δ¼ «íαẫ¼ ó «ñ¡«⌐ ¿ Γ«⌐ ªÑ »α«úαá¼¼Ñ. éßÑ ¿¼Ñ¡á »α«µÑñπα,
  666. Σπ¡¬µ¿⌐, »«ñ»α«úαá¼¼, COMMON-í½«¬«ó ΓᬠªÑ ¬á¬ ¿ ¿¼Ñ¡á »α«úαá¼¼
  667. ¿¼ÑεΓ ú½«íá½∞¡πε «í½áßΓ∞ ñÑ⌐ßΓó¿∩. Å«φΓ«¼π ¡Ñ ¼«ªÑΓ íδΓ∞ »«ñ»α«ú-
  668. αá¼¼δ-Σπ¡¬µ¿¿ ß ΓѼ ªÑ ¿¼Ñ¡Ñ¼, τΓ« ¿ »«ñ»α«úαἼᠿ½¿ COMMON-í½«¬.
  669. ÆᬪѠó «ñ¡«⌐ »α«úαἼѠñóÑ »α«µÑñπαδ-Σπ¡¬µ¿¿ ¡Ñ ¼«úπΓ ¿¼ÑΓ∞ «ñ¡«
  670. ¿ Γ« ªÑ ¿¼∩.
  671.  
  672.  
  673.  
  674.      ê¼∩ ß ½«¬á½∞¡«⌐ «í½áßΓ∞ε ñÑ⌐ßΓó¿∩ ñ«ßΓπ»¡« Γ«½∞¬« ó¡πΓα¿ «ñ¡«⌐
  675. »α«úαá¼¼¡«⌐ Ññ¿¡¿µδ. ê¼∩ ß ½«¬á½∞¡«⌐ «í½áßΓ∞ε ñÑ⌐ßΓó¿∩ ¼«ªÑΓ íδΓ∞
  676. ¿ß»«½∞º«óá¡« ó ñαπú«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ »« ñαπú«¼π ¡áº¡áτÑ¡¿ε
  677. ¿½¿ »«ñ«í¡«, ¡« ¡Ñ½∞º∩ ΓαÑí«óáΓ∞ τΓ«íδ «¡« ¿¼Ñ½« «ñ¿¡á¬«ó«Ñ º¡á-
  678. τÑ¡¿Ñ ó αạδσ «í½áßΓ∩σ ñÑ⌐ßΓó¿∩. ï«¬á½∞¡πε «í½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿¼ÑεΓ
  679. ¿¼Ñ¡á »ÑαѼѡ¡δσ, ¼áßß¿óδ, Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ ¿ Σπ¡¬µ¿⌐-«»Ñαá-
  680. Γ«αδ.
  681.      àñ¿¡ßΓóÑ¡¡δ¼ ¿ß¬½ετÑ¡¿Ñ¼ ó »αáó¿½áσ «í½áßΓÑ⌐ ñÑ⌐ßΓó¿∩ ∩ó½∩ÑΓß∩
  682. ¿¼∩, »α¿ßóá¿óáѼ«Ñ ñá¡¡δ¼ ó COMMON-í½«¬Ñ. î«ª¡« ßßδ½áΓ∞ß∩ ¡á
  683. ú½«íá½∞¡« ñÑ⌐ßΓóπεΘÑÑ ¿¼∩ COMMON-í½«¬á ó »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, ó
  684. ¬«Γ«α«⌐ «»αÑñѽѡ« ΓᬫѠªÑ ½«¬á½∞¡« ñÑ⌐ßΓóπεΘÑÑ ¿¼∩. ¥Γ« ó«º¼«ª¡«
  685. í½áú«ñáα∩ Γ«¼π, τΓ« ¿¼∩ COMMON-í½«¬á óßÑúñᠺᬽετÑ¡« ó ¬«ßδÑ τÑα-
  686. Γ«τ¬¿, ¡á»α¿¼Ñα, /FROG/ ¿ »«φΓ«¼π óßÑúñá «Γ½¿τ¿¼« «Γ Γᬿσ ªÑ, ¡«
  687. «íδτ¡δσ ¿¼Ñ¡.
  688.      äαπú«Ñ ¿ß¬½ετÑ¡¿Ñ ¿º »αáó¿½ «í½áßΓÑ⌐ ñÑ⌐ßΓó¿∩ ßñѽᡫ ñ½∩
  689. »áαá¼ÑΓα«ó Σπ¡¬µ¿¿-«»ÑαáΓ«αá. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ »áαá¼ÑΓα«ó Σπ¡¬µ¿¿-
  690. «»ÑαáΓ«αá «úαá¡¿τÑ¡á Ññ¿¡ßΓóÑ¡¡δ¼ «»ÑαáΓ«α«¼, óσ«ñ∩Θ¿¼ ó φΓπ Σπ¡¬-
  691. µ¿ε. ïεí«Ñ ñαπú«Ñ ¿ß»«½∞º«óá¡¿Ñ φΓ¿σ ¿¼Ñ¡ ó Σπ¡¬µ¿¿-«»ÑαáΓ«αÑ ¡Ñ-
  692. ñ«»πßΓ¿¼«, »«¬á «¡¿ ¼«úπΓ íδΓ∞ ºáñÑ⌐ßΓó«óá¡δ ¿ ó¡Ñ ÑÑ.
  693.  
  694. 4.2. ê¼Ñ¡á ö«αΓαá¡á »« π¼«½τá¡¿ε.
  695.  
  696.      Åα¿ »α«σ«ñÑ »« óδ»«½¡∩Ñ¼δ¼ «»ÑαáΓ«αá¼ »α«úαἼᠬ«¼»¿½∩Γ«α
  697. ºáó«ñ¿Γ ¿¼Ñ¡á, óßΓαÑτáεΘ¿Ñß∩ Ñ¼π ó»ÑαóδÑ ( Γ.Ñ. ΓÑ, ¬«Γ«αδÑ ¡Ñ
  698. «»αÑñѽѡδ Γ«τ¡« ), ó ß««ΓóÑΓßΓó¿¿ ß ¬«¡ΓѬßΓ«¼.
  699.      àß½¿ ¿¼∩ ¿ß»«½∞ºπÑΓß∩ ¬á¬ »ÑαѼѡ¡á∩, Ñú« Γ¿» «»αÑñѽ∩ÑΓß∩
  700. »« »Ñαó«⌐ íπ¬óÑ ¿¼Ñ¡¿ ; I, J, K, L, M ¿½¿ N »« π¼«½τá¡¿ε
  701. »α¿¡¿¼áεΓß∩ µÑ½δ¼¿, á «ßΓá½∞¡δÑ íπ¬óδ - ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿ τ¿ß½á¼¿.
  702. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ «»ÑαáΓ«α IMPLICIT ñ½∩ ºá¼Ñ¡δ ß««ΓóÑΓßΓó¿∩
  703. Γ¿»á ¿ ¡áτá½∞¡«⌐ íπ¬óδ (»«ñα«í¡ÑÑ, ß¼«Γα¿ΓÑ τáßΓ∞ 3 "Ä»ÑαáΓ«αδ").
  704. ¥Γ« ªÑ »αá󿽫 ¿ß»«½∞ºπÑΓß∩ »α¿ ¿ß»«½∞º«óá¡¿¿ ¿¼Ñ¡¿ ó Σπ¡¬µ¿¿ ñ½∩
  705. «»αÑñѽѡ¿∩ Γ¿»á ó«ºóαáΓ¡«⌐ óѽ¿τ¿¡δ.
  706.      è«úñá ¿¼∩ ¿ß»«½∞ºπÑΓß∩ ¬á¬ π¬áºáΓѽ∞ ó «»ÑαáΓ«αÑ CALL, »«ñ-
  707. αáºπ¼ÑóáÑΓß∩ τΓ« φΓ« ¿¼∩ »«ñα«úαá¼¼δ. Æ«τ¡« ΓᬠªÑ »«ñαáºπ¼ÑóáÑΓß∩,
  708. τΓ« ¿¼∩, ¿ß»«½∞ºπѼ«Ñ ó ßßδ½¬Ñ ¡á Σπ¡¬µ¿ε, - φΓ« ¿¼∩ Σπ¡¬µ¿¿. àß½¿
  709. »«ñ»α«úαἼᠿ½¿ Σπ¡¬µ¿∩ ∩ó½∩ÑΓß∩ τáßΓ∞ε φΓ«⌐ ªÑ ¬«¼»¿½¿απѼ«⌐
  710. Ññ¿¡¿µδ ( Γ.Ñ. ¡áσ«ñ∩Γß∩ ó φΓ«¼ ªÑ ΓѬßΓ«ó«¼ Σá⌐½Ñ ) ¿ φΓ« «»αÑ-
  711. ñѽѡ¿Ñ »α¿óÑñÑ¡« ñ« «»ÑαáΓ«αá CALL ¿½¿ ßß佬¿ ¡á Σπ¡¬µ¿ε, Γ« ¬«¼-
  712. »¿½∩Γ«α »α«óÑα¿Γ, τΓ«íδ Γ¿» Σá¬Γ¿τÑ߬¿σ »áαá¼ÑΓα«ó ¿ ¿σ τ¿ß½« ó
  713. «»ÑαáΓ«αÑ CALL¿½¿ ßßδ½¬Ñ ¡á Σπ¡¬µ¿ε ß««ΓóÑΓßΓó«ó὿ «»αÑñѽѡ¿∩¼
  714. ó «»ÑαáΓ«αÑ SUBROUTINE ¿½¿ FUNCTION.
  715. 5. é¢ÉÇåàìêƒ.
  716.  
  717.      éδαáªÑ¡¿Ñ - φΓ« Σ«α¼π½á ñ½∩ óδτ¿ß½Ñ¡¿∩ óѽ¿τ¿¡δ. Ä¡á ß«ñÑনΓ
  718. »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ «»Ñαá¡ñ«ó ¿ «»ÑαáΓ«α«ó. Ä»Ñαá¡ñδ ¼«úπΓ ß«ñÑαªáΓ∞
  719. ó맮óδ Σπ¡¬µ¿⌐, »ÑαѼѡ¡δÑ, ¬«¡ßΓá¡Γδ, ¿½¿ ñαπú¿Ñ óδαáªÑ¡¿∩.
  720. Ä»ÑαáΓ«αδ «»αÑñѽ∩εΓ ñÑ⌐ßΓó¿∩, ¬«Γ«αδÑ ¡Ñ«íσ«ñ¿¼« »α«¿ºóÑßΓ¿ ¡áñ
  721. «»Ñαá¡ñἿ.
  722.      é ö«αΓαá¡Ñ ßπΘÑßΓóπÑΓ τÑΓδαÑ ¬½áßßá óδαáªÑ¡¿⌐ :
  723.      1. Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ.
  724.      2. æ¿¼ó«½∞¡δÑ.
  725.      3. ÄΓ¡«ΦÑ¡¿∩.
  726.      4. ï«ú¿τÑ߬¿Ñ.
  727.  
  728.  
  729.  
  730. 5.1. Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ óδαáªÑ¡¿∩.
  731.  
  732.      ÉѺπ½∞ΓáΓ«¼ áα¿Σ¼ÑΓ¿τÑ߬¿σ óδαáªÑ¡¿⌐ ∩ó½∩εΓß∩ óѽ¿τ¿¡δ Γ¿»«ó
  733. INTEGER, REAL, DOUBLE PRECISION ¿½¿ COMPLEX. Åα«ßΓÑ⌐Φ¿Ñ ó¿ñδ áα¿Σ-
  734. ¼ÑΓ¿τÑ߬¿σ óδαáªÑ¡¿⌐ - φΓ« :
  735.      1. è«¡ßΓá¡Γδ.
  736.      2. êß»«½∞º«óá¡¿Ñ »ÑαѼѡ¡δσ.
  737.      3. êß»«½∞º«óá¡¿Ñ φ½Ñ¼Ñ¡Γ«ó ¼áßß¿ó«ó.
  738.      4. êß»«½∞º«óá¡¿Ñ Σπ¡¬µ¿⌐.
  739. êß»«½∞ºπѼδÑ óѽ¿τ¿¡δ »ÑαѼѡ¡δσ ¿½¿ φ½Ñ¼Ñ¡Γ«ó ¼áßß¿ó«ó ñ«½ª¡δ
  740. íδΓ∞ «»αÑñѽѡδ ñ« Γ«ú«, ¬á¬ «¡¿ »«∩ó∩Γß∩ ó áα¿Σ¼ÑΓ¿τÑ߬«¼ óδαá-
  741. ªÑ¡¿¿. ÆᬪÑ, óѽ¿τ¿¡δ µÑ½δσ »ÑαѼѡ¡δσ ñ«½ª¡δ íδΓ∞ áα¿Σ¼ÑΓ¿τÑß-
  742. ¬¿¼¿, á ¡Ñ óѽ¿τ¿¡á¼¿ ¼ÑΓ«¬ «»ÑαáΓ«α«ó, πßΓá¡«ó½Ñ¡¡δ¼¿ «»ÑαáΓ«α«¼
  743. ASSIGN.
  744.      äαπú¿Ñ áα¿Σ¼ÑΓ¿τÑ߬¿Ñ óδαáªÑ¡¿∩ ß«ºñáεΓß∩ ¿º »α«ßΓÑ⌐Φ¿σ Σ«α¼,
  745. »α¿óÑñÑ¡¡δσ óδΦÑ ó ß»¿ß¬Ñ, ß ¿ß»«½∞º«ó᡿Ѽ ß¬«í«¬ ¿ áα¿Σ¼ÑΓ¿τÑ߬¿σ
  746. «»ÑαáΓ«α«ó π¬áºá¡¡δσ ó Γáí½¿µÑ 2-3.
  747. ┌────────────────────┬──────────────────────┬────────────┐
  748. │ Ä»ÑαáΓ«α           │     Ä»Ñαᵿ∩         │  Åα¿«α¿ΓÑΓ │
  749. ├────────────────────┼──────────────────────┼────────────┤
  750. │     * *            │ é«ºóÑñÑ¡¿Ñ ó ßΓѻѡ∞ │  éδßΦ¿⌐    │
  751. │      /             │ äѽѡ¿Ñ              │  æαÑñ¡¿⌐   │
  752. │      *             │ ô¼¡«ªÑ¡¿Ñ            │  æαÑñ¡¿⌐   │
  753. │      -             │ éδτ¿Γá¡¿Ñ ¿½¿ «Γα¿µ. │  ì¿ºΦ¿⌐    │
  754. │      +             │ æ½«ªÑ¡¿Ñ ¿½¿         │  ì¿ºΦ¿⌐    │
  755. │                    │          ¿ñÑ¡Γ¿τ¡«ßΓ∞│            │
  756. └────────────────────┴──────────────────────┴────────────┘
  757.      Æáí½¿µá 2-3. Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»ÑαáΓ«αδ.
  758.      éßÑ «»ÑαáΓ«αδ ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ ¬á¬ í¿¡áα¡δÑ, Γ.Ñ. ßΓ«-
  759. ∩Θ¿Ñ ¼Ñªñπ ñóπ¼∩ «»Ñαá¡ñἿ áα¿Σ¼ÑΓ¿τÑ߬«ú« óδαáªÑ¡¿∩. Å½εß (+) ¿
  760. ¼¿¡πß (-) ¼«úπΓ íδΓ∞ ΓᬪѠπ¡áα¡δ¼¿ ¿ »αÑñΦÑßΓó«óáΓ∞ ¬á¬«¼π-½¿í«
  761. «ñ¿¡«τ¡«¼π «»ÑαáΓ«απ.
  762.      Ä»Ñαᵿ¿ αáó¡«ú« »α¿«α¿ΓÑΓá, ºá ¿ß¬½ετÑ¡¿Ñ¼ ó«ºóÑñÑ¡¿∩ ó
  763. ßΓѻѡ∞ óδ»«½¡∩εΓß∩ ß½Ñóá ¡á»αáó«. é«ºóÑñÑ¡¿Ñ ó ßΓѻѡ∞ óδ»«½¡∩ÑΓß∩
  764. ß»αáóá ¡á½Ñó«. Å«φΓ«¼π ¬áªñ«Ñ ¿º ß½ÑñπεΘ¿σ óδαáªÑ¡¿⌐ ß½Ñóá φ¬ó¿-
  765. óá½Ñ¡Γ¡« óδαáªÑ¡¿ε ß»αáóá :
  766.      A/B * C                (A/B) * C
  767.      A * * B * * C          A * * (B * * C)
  768.      Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ óδαáªÑ¡¿∩ ¼«úπΓ íδΓ∞ »«½πτÑ¡δ «íδτ¡δ¼ ¼áΓѼá-
  769. Γ¿τÑ߬¿¼ «íαẫ¼, ¬á¬ ó í«½∞ΦÑ¡ßΓóÑ ∩ºδ¬áσ »α«úαá¼¼¿α«óá¡¿∩. Äñ¡á¬«
  770. ö«αΓαá¡ ºá»α¿ΘáÑΓ ßΓáó¿Γ∞ ñóá «»ÑαáΓ«αá »«ñα∩ñ. ìá»α¿¼Ñα, ¡Ñ½∞º∩:
  771.      A * * - B
  772. ¡« ¼«ª¡«
  773.      A * * (- B)
  774. ô¡áα¡δ⌐ ¼¿¡πß ¿¼ÑÑΓ ¡á¿¼Ñ¡∞Φ¿⌐ »α¿«α¿ΓÑΓ. Å«φΓ«¼π óδαáªÑ¡¿Ñ -Ç**é
  775. »«¡¿¼áÑΓß∩ ¬á¬ - (Ç ** é).
  776.      éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ß¬«í¬¿ ñ½∩ úαπ»»¿α«óá¡¿∩ «Ñαᵿ⌐ ¿
  777. ºáñá¡¿∩ »«α∩ñ¬á, ó ¬«Γ«α«¼ «»Ñαᵿ¿ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩.
  778.  
  779. 5.2. äѽѡ¿Ñ µÑ½δσ.
  780.  
  781.      ÉѺπ½∞ΓáΓ«¼ ñѽѡ¿∩ ñóπσ µÑ½δσ τ¿ßѽ ∩ó½∩ÑΓß∩ óѽ¿τ¿¡á, αáó¡á∩
  782. ¼áΓѼáΓ¿τÑ߬«¼π τáßΓ¡«¼π ñóπσ φΓ¿σ óѽ¿τ¿¡, «¬απú½Ñ¡¡«ú« ñ« µÑ½«ú«
  783. ó ßΓ«α«¡π ¡π½∩. Å«φΓ«¼π 7/3 »αÑóαáΘáÑΓß∩ ó 2, á (-7)/3 »αÑóαáΘáÑΓß∩
  784. ó -2. èᬠ9/10, Γᬠ¿ 9/(-10) αáó¡δ ¡π½ε.
  785.  
  786.  
  787.  
  788. 5.3. ÅαÑ«íαẫóá¡¿∩ Γ¿»«ó áα¿Σ¼ÑΓ¿τÑ߬¿σ «»Ñαá¡ñ«ó.
  789.  
  790.      è«úñá ó áα¿Σ¼ÑΓ¿τÑ߬«¼ óδαáªÑ¡¿¿ óßÑ «»Ñαá¡ñδ «ñ¡«ú« Γ¿»á,
  791. Γ« óѽ¿τ¿¡á, ∩ó½∩εΘá∩ß∩ αѺπ½∞ΓáΓ«¼ φΓ«ú« óδαáªÑ¡¿∩, φΓ«ú« ªÑ Γ¿»á.
  792. è«úñá «»Ñαá¡ñδ αạ«ú« Γ¿»á, Γ¿»«¼ αѺπ½∞ΓáΓá óδαáªÑ¡¿∩ ∩ó½∩ÑΓß∩
  793. Γ¿» «»Ñαá¡ñá ¼á¬ß¿¼á½∞¡«ú« αá¡úá.
  794.      Éá¡ú «»Ñαá¡ñá ºáó¿ß¿Γ «Γ Ñú« Γ¿»á ñá¡¡δσ ß««ΓóÑΓßóÑ¡¡« ß½Ñ-
  795. ñπεΘѼπ ß»¿ß¬π :
  796.      1. INTEGER * 2 (¡¿ºΦ¿⌐ αá¡ú)
  797.      2. INTEGER * 4
  798.      3. REAL * 4
  799.      4. REAL * 8
  800.      5. COMPLEX * 8
  801.      6. COMPLEX * 16 (óδßΦ¿⌐ αá¡ú)
  802. ìá»α¿¼Ñα, αѺπ½∞ΓáΓ«¼ «»Ñαᵿ¿ ¡áñ φ½Ñ¼Ñ¡ΓἿ INTEGER*2 ¿ REAL*4
  803. íπñÑΓ óѽ¿τ¿¡á, «Γ¡«ß∩Θá∩ß∩ ¬ Γ¿»π ñá¡¡δσ REAL*4.
  804.      æ»Ñµ¿á½∞¡δ⌐ ß½πτá⌐ : «»Ñαᵿ∩ ¡áñ «»Ñαá¡ñἿ Γ¿»«ó REAL*8 ¿
  805. COMPLEX*8 »«α«ñ¿Γ COMPLEX*16, á ¡Ñ COMPLEX*8.
  806.      Æ¿» ñá¡¡δσ óßÑú« óδαáªÑ¡¿∩ - φΓ« Γ¿» ñá¡¡δσ αѺπ½∞ΓáΓá
  807. »«ß½Ññ¡Ñ⌐ «»Ñαᵿ¿, óδ»«½¡Ñ¡¡«⌐ »α¿ óδτ¿ß½Ñ¡¿¿ óßÑú« óδαáªÑ¡¿∩.
  808.      Æ¿»δ ñá¡¡δσ «»Ñαᵿ⌐ ¼«úπΓ íδΓ∞ INTEGER*2, INTEGER*4, REAL*4,
  809. REAL*8, COMPLEX*8 ¿½¿ COMPLEX*16.
  810.      ûѽδÑ «»Ñαᵿ¿ óδ»«½¡∩εΓß∩ Γ«½∞¬« ¡áñ µÑ½δ¼¿ «»Ñαá¡ñἿ.
  811. äα«í¡δ⌐ αѺπ½∞ΓáΓ «Γ ñѽѡ¿∩ ó µÑ½«⌐ áα¿Σ¼ÑΓ¿¬Ñ »αÑóαáΘáÑΓß∩ ó
  812. µÑ½«Ñ, á ¡Ñ «¬απú½∩ÑΓß∩. Å«φΓ«¼π ß½ÑñπεΘ¿Ñ óδαáªÑ¡¿Ñ αáó¡« ¡π½ε,
  813. á ¡Ñ Ññ¿¡¿µÑ :
  814.      1/4 + 1/4 + 1/4 + 1/4
  815. Éáß»αÑñѽѡ¿Ñ »á¼∩Γ¿ ñ½∩ Γ¿»á INTEGER íѺ π¬áºá¡¿∩ ñ½¿¡δ *2 ¿½¿
  816. *4 ó «»αÑñѽѡ¿¿ Γ¿»á ºáó¿ß¿Γ «Γ ¿ß»«½∞º«óá¡¿∩ ¼ÑΓᬫ¼á¡ñδ $STORAGE
  817. (ñ½∩ »«ñα«í¡«ßΓÑ⌐ ß¼«Γα¿ΓÑ αá¡∞ΦÑ ó φΓ«⌐ τáßΓ¿ ¿ τáßΓ¿ 6 "îÑΓá-
  818. ¬«¼á¡ñδ îæ-ö«αΓαá¡á").
  819.      äÑ⌐ßΓó¿Γѽ∞¡δÑ «»Ñαᵿ¿ óδ»«½¡∩εΓß∩ Γ«½∞¬« ¡áñ ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿
  820. «»Ñαá¡ñἿ ¿½¿ ¬«¼í¿¡áµ¿Ñ⌐ ñÑ⌐ßΓó¿Γѽ∞¡«ú« ¿ µÑ½«ú« «»Ñαá¡ñ«ó.
  821. ûѽδÑ «»Ñαá¡ñδ ß¡áτá½á »αÑ«íαáºπεΓß∩ ó ñÑ⌐ßΓó¿Γѽ∞¡δÑ »α¿íáó½Ñ¡¿Ñ¼
  822. ¬ ¬áªñ«¼π ñα«í¡«⌐ τáßΓ¿ αáó¡«⌐ ¡π½ε. çáΓѼ ñ½∩ óδτ¿ß½Ñ¡¿∩ óδαáªÑ¡¿∩
  823. ¿ß»«½∞ºπÑΓß∩ ñÑ⌐ßΓó¿Γѽ∞¡á∩ áα¿Σ¼ÑΓ¿¬á. ì« ó ß½ÑñπεΘѼ «»ÑαáΓ«αÑ
  824. ß¡áτὫ «ßπΘÑßΓó½∩ÑΓß∩ µÑ½«Ñ ñѽѡ¿Ñ I ¡á J, á »«Γ«¼ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ
  825.  π¼¡«ªÑ¡¿Ñ αѺπ½∞ΓáΓá ¡á X :
  826.      Y = (I/J) * X
  827.  
  828. 5.4. æ¿¼ó«½∞¡δÑ óδαáªÑ¡¿∩.
  829.  
  830.      ÉѺπ½∞ΓáΓ«¼ ß¿¼ó«½∞¡δσ óδαáªÑ¡¿⌐ ∩ó½∩ÑΓß∩ Γ¿» CHARACTER. ö«α¼δ
  831. ß¿¼ó«½∞¡δσ óδαáªÑ¡¿⌐ ß½ÑñπεΘ¿Ñ :
  832.      1. æ¿¼ó«½∞¡δÑ ¬«¡ßΓá¡Γδ.
  833.      2. æß佬¿ ¡á ß¿¼ó«½∞¡δÑ »ÑαѼѡ¡δÑ.
  834.      3. æß佬¿ ¡á φ½Ñ¼Ñ¡Γδ ß¿¼ó«½∞¡δσ ¼áßß¿ó«ó.
  835.      4. ïεíδÑ ß¿¼ó«½∞¡δÑ óδαáªÑ¡¿∩, ºá¬½ετÑ¡¡δÑ ó ß¬«í¬¿.
  836.      5. æß佬¿ ¡á ß¿¼ó«½∞¡δÑ Σπ¡¬µ¿¿.
  837.      é ß¿¼ó«½∞¡δσ óδαáªÑ¡¿∩σ ¡ÑΓ «»ÑαáΓ«α«ó.
  838.  
  839. 5.5. éδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩.
  840.  
  841.      éδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩ ßαáó¡¿óáεΓ óѽ¿τ¿¡δ ñóπσ áα¿Σ¼ÑΓ¿τÑ߬¿σ
  842. ¿½¿ ñóπσ ß¿¼ó«½∞¡δσ óδαáªÑ¡¿⌐. Çα¿Σ¼ÑΓ¿τÑ߬«Ñ óδαáªÑ¡¿Ñ ¡Ñ½∞º∩
  843. ßαáó¡¿óáΓ∞ ß ß¿¼ó«½∞¡δ¼, »«¬á ¡Ñ «»αÑñѽѡᠼÑΓᬫ¼á¡ñá $NOTSTRICT.
  844. é φΓ«¼ ß½πτáÑ áα¿Σ¼ÑΓ¿τÑ߬¿Ñ óδαáªÑ¡¿∩ ßαáó¡¿¼δ ß ß¿¼ó«½∞¡δ¼¿.
  845. ÉѺπ½∞ΓáΓ«¼ óδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩ ∩ó½∩ÑΓß∩ Γ¿» LOGICAL. ä½∩ ßαáó¡Ñ¿∩
  846. óѽ¿τ¿¡ ó óδαáªÑ¡¿∩σ «Γ¡«ΦÑ¡¿∩ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ½εí«⌐ «»ÑαáΓ«α,
  847. π¬áºá¡¡δ⌐ ó Γáí½¿µÑ 2-4.
  848.  
  849.  
  850.  
  851. ┌───────────────────────────┬────────────────────────────┐
  852. │        Ä»ÑαáΓ«α           │             Ä»Ñαᵿ∩       │
  853. ├───────────────────────────┼────────────────────────────┤
  854. │        .LT.               │   îÑ¡∞ΦÑ τѼ               │
  855. │        .LE.               │   îÑ¡∞ΦÑ ¿½¿ αáó¡«         │
  856. │        .EQ.               │   Éáó¡«                    │
  857. │        .NE.               │   ìÑ αáó¡«                 │
  858. │        .GT.               │   ü«½∞ΦÑ τѼ               │
  859. │        .GE.               │   ü«½∞ΦÑ ¿½¿ αáó¡«         │
  860. └───────────────────────────┴────────────────────────────┘
  861.      Æáí½¿µá 2-4. Ä»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿∩.
  862.  
  863.      éßÑ «»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿∩ í¿¡áα¡δÑ ¿ »«∩ó½∩εΓß∩ ¼Ñªñπ ñóπ¼∩
  864. «»Ñαá¡ñἿ. æαÑñ¿ «»ÑαáΓ«α«ó «Γ¡«ΦÑ¡¿∩ ¡ÑΓ «Γ¡«ß¿Γѽ∞¡«ú« ßΓáα-
  865. Φ¿¡ßΓóá ¿½¿ ß«τÑΓáΓѽ∞¡«ßΓ¿ ¿ »«φΓ«¼π óδαáªÑ¡¿Ñ ß½ÑñπεΘÑú« ó¿ñá
  866. ¡áαπΦáÑΓ »αáó¿½á Γ¿»«ó ñ½∩ «»Ñαá¡ñ«ó :
  867.      A .LT. B .NE. C
  868. éδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩ ¼«úπΓ »«∩ó½∩Γ∞ß∩ Γ«½∞¬« ó ½«ú¿τÑ߬¿σ óδαáªÑ-
  869. ¡¿∩σ.
  870.      éδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩ ß áα¿Σ¼ÑΓ¿τÑ߬¿¼¿ «»Ñαá¡ñἿ ¼«úπΓ ¿¼ÑΓ∞
  871. «ñ¿¡ «»Ñαá¡ñ Γ¿»á INTEGER ¿ «ñ¿¡ «»Ñαá¡ñ Γ¿»á REAL. é φΓ«¼ ß½πτáÑ
  872. »ÑαÑñ óδτ¿ß½Ñ¡¿Ñ¼ óδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩ µÑ½δ⌐ «»Ñαá¡ñ íπñÑΓ »αÑ«í-
  873. αẫóá¡ ó Γ¿» REAL.
  874.      éδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩ ß¿¼ó«½∞¡δσ «»Ñαá¡ñ«ó ßαáó¡¿óáεΓ »«½«ªÑ¡¿Ñ
  875. φΓ¿σ «»Ñαá¡ñ«ó ó π»«α∩ñ«τÑ¡¡«⌐ »«ß½Ññ«óáΓѽ∞¡«ßΓ¿ ASCII. Ä»Ñαá¡ñ
  876. ∩ó½∩ÑΓß∩ ¼Ñ¡∞ΦÑ τѼ ñαπú«⌐, Ñß½¿ «¡ »«∩ó½∩ÑΓß∩ αá¡∞ΦÑ ó π»«α∩ñ«-
  877. τÑ¡¡«⌐ »«ß½Ññ«óáΓѽ∞¡«ßΓ¿. àß½¿ ßαáó¡¿óáεΓß∩ «»Ñαá¡ñδ αạ«⌐ ñ½¿¡δ,
  878. Γ« í«½ÑÑ ¬«α«Γ¬¿⌐ αáßß¼áΓα¿óáÑΓß∩ ¬á¬ ñ«»½¡Ñ¡¡δ⌐ ß»αáóá »α«íѽἿ
  879. ñ« Γᬫ⌐ ªÑ ñ½¿¡δ ¬á¬ ¿ ñ½¿¡¡δ⌐.
  880.  
  881. 5.6. ï«ú¿τÑ߬¿Ñ óδαáªÑ¡¿∩.
  882.  
  883.      ÉѺπ½∞ΓáΓ«¼ ½«ú¿τÑ߬«ú« óδαáªÑ¡¿∩ ∩ó½∩ÑΓß∩ óѽ¿τ¿¡á Γ¿»á
  884. LOGICAL. Åα«ßΓÑ⌐Φ¿Ñ Σ«α¼δ ½«ú¿τÑ߬¿σ óδαáªÑ¡¿⌐ ß½ÑñπεΘ¿Ñ :
  885.      1. ï«ú¿τÑ߬¿Ñ ¬«¡ßΓá¡Γδ.
  886.      2. æß佬¿ ¡á ½«ú¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ.
  887.      3. æß佬¿ ¡á φ½Ñ¼Ñ¡Γδ ½«ú¿τÑ߬¿σ ¼áßß¿ó«ó.
  888.      4. æß佬¿ ¡á ½«ú¿τÑ߬¿Ñ Σπ¡¬µ¿¿.
  889.      5. éδαáªÑ¡¿∩ «Γ¡«ΦÑ¡¿∩.
  890. äαπú¿Ñ ½«ú¿τÑ߬¿Ñ óδαáªÑ¡¿∩ ß«ßΓ«∩Γ ¿º »α«ßΓÑ⌐Φ¿σ ½«ú¿τÑ߬¿σ Σ«α¼,
  891. »α¿óÑñÑ¡¡δσ óδΦÑ, ß ¿ß»«½∞º«ó᡿Ѽ ß¬«í«¬ ¿ ½«ú¿τÑ߬¿σ «»ÑαáΓ«α«ó,
  892. π¬áºá¡¡δσ ó Γáí½¿µÑ 2-5.
  893.  
  894.  
  895.  
  896. ┌───────────┬─────────────────────────────┬──────────────┐
  897. │  Ä»ÑαáΓ«α │           Ä»Ñαᵿ∩          │     Åα¿«α¿ΓÑΓ│
  898. ├───────────┼─────────────────────────────┼──────────────┤
  899. │  .NOT.    │  ÄΓα¿µá¡¿Ñ                  │  ìá¿óδßΦ¿⌐   │
  900. │  .AND.    │  è«¡Ωµ¿∩                 │  æαÑñ¡¿⌐     │
  901. │  .OR.     │  é¬½ετáεΘá∩ ñ¿ºΩµ¿∩      │  æαÑñ¡¿⌐     │
  902. │  .EQV.    │  ¥¬ó¿óá½Ñ¡Γ¡«ßΓ∞            │  ì¿ºΦ¿⌐      │
  903. │  .NEQV.   │  ìÑφ¬ó¿óá½Ñ¡Γ¡«ßΓ∞          │  ì¿ºΦ¿⌐      │
  904. └───────────┴─────────────────────────────┴──────────────┘
  905.      Æáí½¿µá 2-5. ï«ú¿τÑ߬¿Ñ «»ÑαáΓ«αδ.
  906.  
  907.  
  908.  
  909.      Ä»ÑαáΓ«αδ .AND., .OR., .EQV., .NEQV. ¡Ñ ∩ó½∩εΓß∩ í¿¡áα¡δ¼¿ ¿
  910. »«∩ó½∩εΓß∩ ¼Ñªñπ ñóπ¼∩ «»Ñαá¡ñἿ ½«ú¿τÑ߬¿σ óδαáªÑ¡¿⌐. Ä»ÑαáΓ«α
  911. .NOT. - π¡áα¡δ⌐ ¿ »αÑñΦÑßΓóπÑΓ ßó«Ñ¼π «»Ñαá¡ñπ.
  912.      Ä»Ñαᵿ¿ αáó¡«ú« »α¿«α¿ΓÑΓá óδ»«½¡∩εΓß∩ ß½Ñóá ¡á»αáó«, »«φ-
  913. Γ«¼π, ¡á»α¿¼Ñα,
  914.      A .AND. B .AND. C
  915. ¥¬ó¿óá½Ñ¡Γ¡« :
  916.      (A .AND. B) .AND. C
  917. Åα¿¼Ñα »αáó¿½á »α¿«α¿ΓÑΓá :
  918.      .NOT. A .OR. B .AND. C
  919. óδ»«½¡∩ÑΓß∩ ¬á¬ :
  920.      (.NOT. A) .OR. (B .AND. C)
  921. äóá .NOT. ¡Ñ ¼«úπΓ ß«ßÑñßΓó«óáΓ∞ ß ñαπú ñαπú«¼, σ«Γ∩
  922.      A .AND. .NOT. B
  923. - φΓ« »α¿¼Ñα ñ«»πßΓ¿¼«ú« óδαáªÑ¡¿∩ ß ñóπ¼∩ «»ÑαáΓ«αἿ »«ñα∩ñ.
  924.      äαπú«⌐ »α¿¼Ñα »αáó¿½á »α¿«α¿ΓÑΓ«ó ¿ ¿ß»«½∞º«óá¡¿∩
  925.      .EQV. ¿ .NEQV. :
  926.      .NOT. A . EQV. B .OR. C .NEQV. D .AND. E
  927. ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡« ¬á¬
  928.      ((.NOT. A) .EQV. (B .OR. C)) .NEQV. (D .AND. E)
  929. ï«ú¿τÑ߬¿Ñ «»ÑαáΓ«αδ ¿¼ÑεΓ Γ«ªÑ ßἫѠº¡áτÑ¡¿Ñ, τΓ« ¿ ó ßΓá¡ñáαΓ¡«⌐
  930. ¼áΓѼáΓ¿τÑ߬«⌐ ß¿¼á¡Γ¿¬Ñ ß ¡Ñαáºñѽ¿Γѽ∞¡δ¼ .OR.. ìá»α¿¼Ñα:
  931.      .TRVE. .OR. .TRVE.
  932. ñáßΓ óѽ¿τ¿¡π
  933.      .TRVE.
  934.  
  935. 5.7. Åα¿«α¿ΓÑΓδ «»ÑαáΓ«α«ó.
  936.  
  937.      è«úñá ó «ñ¡«¼ óδαáªÑ¡¿¿ óßΓαÑτáεΓß∩ áα¿Σ¼ÑΓ¿τÑ߬¿Ñ, ½«ú¿τÑ߬¿Ñ
  938. «»ÑαáΓ«αδ ¿ «»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿∩, «¡¿ óδ»«½¡∩εΓß∩ ß« ß½ÑñπεΘ¿¼¿
  939. »α¿«α¿ΓÑΓἿ :
  940.      1. ï«ú¿τÑ߬¿Ñ (¡¿ºΦ¿⌐).
  941.      2. ÄΓ¡«ΦÑ¡¿∩ (ßαÑñ¡¿⌐).
  942.      3. Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ (óδßΦ¿⌐).
  943.  
  944. 5.8. Åαáó¿½á óδτ¿ß½Ñ¡¿∩ óδαáªÑ¡¿⌐.
  945.  
  946.      ïεíá∩ »ÑαѼѡ¡á∩, ¼áßß¿ó, φ½Ñ¼Ñ¡Γ ¿½¿ Σπ¡¬µ¿∩, ¡á ¬«Γ«αδÑ
  947. ßßδ½áεΓß∩ ó óδαáªÑ¡¿¿, ñ«½ª¡δ íδΓ∞ «»αÑñѽѡδ ñ« ¼«¼Ñ¡Γá ßß佬¿.
  948. ûѽδÑ »ÑαѼѡ¡δÑ ñ«½ª¡δ íδΓ∞ «»αÑñѽѡδ áα¿Σ¼ÑΓ¿τÑ߬«⌐ óѽ¿τ¿¡«⌐,
  949. ¡Ñ óѽ¿τ¿¡«⌐ ¼ÑΓ¬¿ «»ÑαáΓ«αá, πßΓá¡áó½¿óáѼ«⌐ «»ÑαáΓ«α«¼ ASSIGN.
  950.      Ä»αÑñѽѡ¡δÑ áα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»Ñαᵿ¿, ΓᬪѠ¬á¬ ñѽѡ¿Ñ ¡á
  951. ¡π½∞, ¼áΓѼáΓ¿τÑ߬¿ ¡Ñ«»αÑñѽѡ¡δÑ, ºá»αÑΘÑ¡δ. è ñαπú¿¼ ºá»αÑΘÑ¡¡δ¼
  952. «»Ñαᵿ∩¼ «Γ¡«ß∩Γß∩ ó«ºóÑñÑ¡¿Ñ ¡π½Ñó«ú« «»Ñαá¡ñá ó ¡π½Ñóπε ¿½¿
  953. «Γα¿µáΓѽ∞¡πε ßΓѻѡ∞ ¿ ó«ºóÑñÑ¡¿Ñ «Γα¿µáΓѽ∞¡«ú« «»Ñαá¡ñá ó
  954. ßΓѻѡ∞ Γ¿»á REAL.
  955.  
  956.  
  957.  
  958.  
  959. 5.9. æß佬¿ ¡á φ½Ñ¼Ñ¡Γ ¼áßß¿óá.
  960.  
  961.      æßδ½¬á ¡á φ½Ñ¼Ñ¡Γ ¼áßß¿óá «»αÑñѽ∩ÑΓ «ñ¿¡ φ½Ñ¼Ñ¡Γ ¼áßß¿óá.
  962. àÑ ß¿¡Γá¬ß¿ß ß½ÑñπεΘ¿⌐ :
  963. ─────────────────────────────────────────────────────────
  964.      ¼áßß¿ó ( ¿¡ñѬߠ[, ¿¡ñѬߠ] . . . )
  965. ─────────────────────────────────────────────────────────
  966. âñÑ
  967. ¼áßß¿ó    φΓ« ¿¼∩ ¼áßß¿óá
  968. ¿¡ñѬߠ   φΓ« ¿¡ñѬߡ«Ñ óδαáªÑ¡¿Ñ, ∩ó½∩εΘ¿Ñß∩ µÑ½δ¼ óδαáªÑ¡¿Ñ¼
  969.           ñ½∩ óδí«αá ºáñá¡¡«ú« φ½Ñ¼Ñ¡Γá ¼áßß¿óá. ù¿ß½« ¿¡ñѬߡδσ
  970.           óδαáªÑ¡¿⌐ ñ«½ª¡« ß««ΓóÑΓßΓó«óáΓ∞ τ¿ß½π αẼÑα¡«ßΓÑ⌐ ó
  971.           «»¿ßá¡¿¿ ¼áßß¿óá. éѽ¿τ¿¡á ¿¡ñѬߡ«ú« óδαáªÑ¡¿∩ ñ«½ª¡á
  972.           ¡áσ«ñ¿Γß∩ ¼Ñªñπ Ññ¿¡¿µÑ⌐ ¿ óÑασ¡Ñ⌐ úαá¡¿µÑ⌐ ñ½∩ ß««ΓóÑΓ-
  973.           ßΓóπεΘÑ⌐ Ñ⌐ αẼÑα¡«ßΓ¿ ó¬½ετ¿Γѽ∞¡«.
  974.  
  975. æ Åα¿¼Ñα «»ÑαáΓ«α«ó αẼÑα¡«ßΓ¿
  976.      DIMENSION A(3,2), B(3,4), C(4,5), D(5,6), V(10)
  977.      EQVIVALENCE (X, V(1)), (Y, V(2))
  978.      D(i,j) = D(i,j)/PIVOT
  979.      C(i,j) = C(I,J) + A(i,k) * B(k,j)
  980.      READ (*,*) (V(N), N = 1, 10)
  981.  
  982. 
  983.