home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / pas60pg.lzh / PG07.MY < prev    next >
Text File  |  1991-01-28  |  24KB  |  671 lines
  1.                              âïÇéÇ 7.
  2.  
  3.                             ÄÅàÉÇÆÄÉ¢.
  4.  
  5.      Ä»ÑαáΓ«αδ «»¿ßδóáεΓ  ΓÑ  á½ú«α¿Γ¼¿τÑ߬¿Ñ   ñÑ⌐ßΓó¿∩,   ¬«Γ«αδÑ
  6. ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩.  Ä»ÑαáΓ«αá¼ ¼«úπΓ »αÑñΦÑßΓó«óáΓ∞ ¼ÑΓ¬¿, ¬«Γ«αδÑ
  7. ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ ßß佫¬ ó «»ÑαáΓ«αáσ goto.
  8.  
  9.  
  10. «»ÑαáΓ«α ───┬────────────────────┬──────────────────────────÷
  11.             │  ┌─────┐   ┌─┐ °   │   ┌────────────────┐  °
  12.             └─÷│¼ÑΓ¬á├──÷│:├─┘   ├──÷│»α«ßΓ«⌐ «»ÑαáΓ«α├──┤
  13.                └─────┘   └─┘     │   └────────────────┘  │
  14.                                  │   ┌────────────────┐  │
  15.                                  └──÷│  ßΓαπ¬Γπα¡δ⌐   ├──┘
  16.                                      │   «»ÑαáΓ«α     │
  17.                                      └────────────────┘
  18.  
  19.      èᬠ»«¬áºá¡« ó ú½áóÑ 1,  ¼ÑΓ¬á ¼«ªÑΓ íδΓ∞  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ε
  20. µ¿Σα «Γ 0 ñ« 9999 ¿½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼.
  21.  
  22.      æπΘÑßΓóπεΓ 2  ú½áó¡δσ  Γ¿»á  «»ÑαáΓ«α«ó:  »α«ßΓ«⌐  «»ÑαáΓ«α  ¿
  23. ßΓαπ¬Γπα¡δ⌐ «»ÑαáΓ«α.
  24.  
  25.  
  26.                         Åα«ßΓδÑ «»ÑαáΓ«αδ.
  27.  
  28.      Åα«ßΓδ¼ «»ÑαáΓ«α«¼   ∩ó½∩ÑΓß∩   Γᬫ⌐   «»ÑαáΓ«α,  ¬«Γ«αδ⌐  ¡Ñ
  29. ß«ñÑαª¿Γ ó ßÑíÑ ñαπú¿σ «»ÑαáΓ«α«ó.
  30.  
  31.                            ┌─────────────────────┐
  32. »α«ßΓ«⌐ «»ÑαáΓ«α  ────┬───÷│«»ÑαáΓ«α »α¿ßóá¿óá¡¿∩├───────÷
  33.                       │    └─────────────────────┘   °
  34.                       │    ┌─────────────────────┐   │
  35.                       ├───÷│ «»ÑαáΓ«α »α«µÑñπαδ  ├───┤
  36.                       │    └─────────────────────┘   │
  37.                       │    ┌─────────────────────┐   │
  38.                       └───÷│ «»ÑαáΓ«α »ÑαÑσ«ñá   ├───┘
  39.                            └─────────────────────┘
  40.  
  41.  
  42.  
  43.                       Ä»ÑαáΓ«αδ »α¿ßóá¿óá¡¿∩.
  44.  
  45.      Ä»ÑαáΓ«α »α¿ßóá¿óá¡¿∩  ºá¼Ñ¡∩ÑΓ  ΓѬπΘÑÑ  º¡áτÑ¡¿Ñ  »ÑαѼѡ¡«⌐
  46. ¡«óδ¼  º¡áτÑ¡¿Ñ¼,  ¬«Γ«α«Ñ «»αÑñѽ∩ÑΓß∩ óδαáªÑ¡¿Ñ¼,  ¿½¿ «»αÑñѽ∩ÑΓ
  47. óδαáªÑ¡¿Ñ, º¡áτÑ¡¿Ñ ¬«Γ«α«ú« ñ«½ª¡« ó«ºóαáΘáΓ∞ß∩ Σπ¡¬µ¿Ñ⌐.
  48.  
  49.                   ┌───────────┐       ┌──┐   ┌─────────┐
  50. «»ÑαáΓ«α    ──┬──÷│ßßδ½¬á ¡á  ├──────÷│:=├──÷│óδαáªÑ¡¿Ñ├──÷
  51. »α¿ßóá¿óá¡¿∩  │   │»ÑαѼѡ¡πε │   °   └──┘   └─────────┘
  52.               │   └───────────┘   │
  53.               │   ┌─────────────┐ │
  54.               └──÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─┘
  55.                   │   Σπ¡¬µ¿¿   │
  56.                   └─────────────┘
  57.  
  58.  
  59.      éδαáªÑ¡¿Ñ ñ«½ª¡«  íδΓ∞  ß«ó¼ÑßΓ¿¼«  »«  »α¿ßóá¿óá¡¿ε  ß  Γ¿»«¼
  60. »ÑαѼѡ¡«⌐  ¿½¿  Γ¿»«¼ º¡áτÑ¡¿∩,  ó«ºóαáΘáѼ«ú« Σπ¡¬µ¿Ñ⌐ ó ¬áτÑßΓóÑ
  61. αѺπ½∞ΓáΓá (ß¼. αáºñѽ "æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó" ó ú½áóÑ 3).
  62.      Åα¿óÑñѼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩:
  63.  
  64.      X : = Y + Z;
  65.      Done : = (I >= 1) and (I < 100);
  66.      HuÑ1 : = (Blue, Sucß(C));
  67.      I : = Sgr(J) - I * K;
  68.  
  69.  
  70.                       Åα¿ßóá¿óá¡¿Ñ «íΩÑ¬Γ«ó.
  71.  
  72.      Åαáó¿½á ß«ó¼ÑßΓ¿¼«ßΓ¿ Γ¿»«ó «íΩÑ¬Γ«ó »« »α¿ßóá¿óá¡¿ε »«ºó«½∩εΓ
  73. φ¬ºÑ¼»½∩απ «íΩÑ¬Γ¡«ú«  Γ¿»á  »α¿ßó«¿Γ∞  φ¬ºÑ¼»½∩α  ½εí«ú«  ¿º   Ñú«
  74. »«α«ªñÑ¡¡δσ Γ¿»«ó.   ÆᬫѠ  »α¿ßóá¿óá¡¿Ñ   »α¿ó«ñ¿Γ   ¬   »α«Ñ¬µ¿¿
  75. »«α«ªñÑ¡¡«ú« «íΩѬΓá ¡á »α«ßΓαá¡ßΓó« »αÑñ¬á.  ìá»α¿¼Ñα,  »πßΓ∞ ñá¡δ
  76. φ¬ºÑ¼»½∩α F  Γ¿»á  Field  ¿  φ¬ºÑ¼»½∩α  Z  Γ¿»á ZipField,  Γ« Γ«úñá
  77. »α¿ßóá¿óá¡¿Ñ F := Z íπñÑΓ ¬«»¿α«óáΓ∞ Γ«½∞¬« »«½∩ X,  Y, Len ¿ Name.
  78. (Æ¿»δ «íΩÑ¬Γ«ó «íßπªñÑ¡δ ó ú½áóÑ 5.)
  79.  
  80.      Åα¿ßóá¿óá¡¿Ñ φ¬ºÑ¼»½∩απ    «íΩÑ¬Γ¡«ú«    Γ¿»á    ¡Ñ   ó¬½ετáÑΓ
  81. ¿¡¿µ¿á½¿ºáµ¿¿ φ¬ºÑ¼»½∩αá. Æá¬, »α¿ßóá¿óá¡¿Ñ F := Z ¡Ñ «º¡áτáÑΓ, τΓ«
  82. óδº«ó ¬«¡ßΓαá¬Γ«αá ñ½∩ F ¼«ªÑΓ íδΓ∞ «»πΘÑ¡.
  83.  
  84.  
  85.                         Ä»ÑαáΓ«α »α«µÑñπαδ.
  86.  
  87.      Ä»ÑαáΓ«α procedure    «»αÑñѽ∩ÑΓ    á¬Γ¿ó¿ºáµ¿ε     »α«µÑñπαδ,
  88. «í«º¡áτÑ¡¡πε    ß    »«¼«Θ∞ε    ¿ñÑ¡Γ¿Σ¿¬áΓ«αá    »α«µÑñπαδ.   àß½¿
  89. ß««ΓóÑΓßΓóπεΘÑÑ «íΩ∩ó½Ñ¡¿Ñ  »α«µÑñπαδ  ß«ñÑαª¿Γ  ß»¿ß«¬  Σ«α¼á½∞¡δσ
  90. »áαá¼ÑΓα«ó,   Γ«   «»ÑαáΓ«α   »α«µÑñπαδ  ñ«½ªÑ¡  ß«ñÑαªáΓ∞  ó  ßÑíÑ
  91. ß««ΓóÑΓßΓóπεΘ¿⌐  Ñ¼π  ß»¿ß«¬  Σá¬Γ¿τÑ߬¿σ  »áαá¼ÑΓα«ó   (»áαá¼ÑΓαδ,
  92. ß»¿ß«¬  ¬«Γ«αδσ  »α¿ó«ñ¿Γß∩  ó  «»αÑñѽѡ¿¿,  ∩ó½∩εΓß∩  Σ«α¼á½∞¡δ¼¿
  93. »áαá¼ÑΓαἿ,  á  ó  «»ÑαáΓ«αÑ   ó맮óá   »α«µÑñπαδ   «¡¿   ∩ó½∩εΓß∩
  94. Σá¬Γ¿τÑ߬¿¼¿   »áαá¼ÑΓαἿ).   Åα¿   ó맮óÑ   »α«¿ßσ«ñ¿Γ   »ÑαÑñáτá
  95. Σá¬Γ¿τÑ߬¿σ »áαá¼ÑΓα«ó Σ«α¼á½∞¡δ¼ »áαá¼ÑΓαá¼.
  96.  
  97.                 ┌─────────────┐
  98. «»ÑαáΓ«α   ────÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├──┬──────────────────────────÷
  99. »α«µÑñπαδ       │  »α«µÑñπαδ  │  │  ┌──────────────────┐ °
  100.                 └─────────────┘  └─÷│ß»¿ß«¬ Σá¬Γ¿τÑ߬¿σ├─┘
  101.                                     │  »áαá¼ÑΓα«ó      │
  102.                                     └──────────────────┘
  103.  
  104.      Åα¿óÑñѼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«α«ó »α«µÑñπα:
  105.  
  106.      PrintHeading;
  107.      Transpose(A, N, M);
  108.      Find(Name, Address);
  109.  
  110.      Åα¿¼Ñτá¡¿Ñ: Åα«µÑñπαπ  ¼«ª¡«  ΓᬪѠ óδºóáΓ∞  τÑαѺ »ÑαѼѡ¡πε
  111. Γ¿»á  »α«µÑñπαá.   ä½∩   »«½πτÑ¡¿∩   í«½ÑÑ   »«ñα«í¡«⌐   ¿¡Σ«α¼áµ¿¿
  112. «íαáΓ¿ΓÑß∞ ¬ αáºñѽπ "Åα«µÑñπα¡δÑ Γ¿»δ" ó ú½áóÑ 8.
  113.  
  114.  
  115.            é맮óδ ¼ÑΓ«ñ«ó, ¬«¡ßΓαá¬Γ«α«ó ¿ ñÑßΓαá¬Γ«α«ó.
  116.  
  117.      æ¿¡Γá¬ß¿ß «»ÑαáΓ«αá »α«µÑñπαδ íδ½  αáßΦ¿αÑ¡  ñ½∩  Γ«ú«,  τΓ«íδ
  118. αáºαÑΦ¿Γ∞   π¬áºá¡¿∩   ¬óá½¿Σ¿¬áΓ«αá   ¼ÑΓ«ñá,   «º¡áτáεΘ¿⌐  ºá¼Ñ¡π
  119. ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »α«µÑñπαδ, ¡Ñ«íσ«ñ¿¼«⌐ »α«µÑñπα«⌐, ¬«¡ßΓαá¬Γ«α«¼ ¿½¿
  120. ñÑßΓαá¬Γ«α«¼.
  121.      èóá½¿Σ¿¬áΓ«α ¼ÑΓ«ñá ¿ß»«½∞ºπÑΓß∩ ñ½∩ ñóπσ µÑ½Ñ⌐ :
  122.      é«-»Ñαóδσ: ó  ß½πτáÑ  ó¿αΓπá½∞¡«ú«  ¼ÑΓ«ñá á¬Γπá½∞¡δ⌐ (óαѼѡ¿
  123. óδ»«½¡Ñ¡¿∩) Γ¿» φ¬ºÑ¼»½∩αá  «»αÑñѽ∩ÑΓ,   ¬á¬πε  αÑ὿ºáµ¿ε  ¼ÑΓ«ñá
  124. á¬Γ¿ó¿º¿α«óáΓ∞.
  125.      é«-óΓ«αδσ: φ¬ºÑ¼»½∩α  ßá¼  ßΓá¡«ó¿Γß∩  ¡Ñ∩ó¡δ¼  ñÑ⌐ßΓó¿Γѽ∞¡δ¼
  126. »áαá¼ÑΓα«¼ ¼ÑΓ«ñá.   Ä¡  ß««ΓóÑΓßΓóπÑΓ  Σ«α¼á½∞¡«¼π »áαá¼ÑΓαπ Self,
  127. ¬«Γ«αδ⌐ ¿¼ÑÑΓ Γ¿», ß««ΓóÑΓßΓóπεΘ¿⌐ á¬Γ¿ó¿α«óá¡¡«¼π ¼ÑΓ«ñπ.
  128.      é¡πΓα¿ ¼ÑΓ«ñá  «»ÑαáΓ«α  »α«µÑñπαδ  »«ºó«½∩ÑΓ  ¬óá½¿Σ¿µ¿α«óáΓ∞
  129. ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá ñ½∩ á¬Γ¿óᵿ¿  π¬áºá¡¡«ú«  ¼ÑΓ«ñá.   ÄíΩÑ¬Γ¡δ⌐
  130. Γ¿», ¿ß»«½∞ºπѼδ⌐   »α¿ ¬óá½¿Σ¿¬áµ¿¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ñ«½ªÑ¡ íδΓ∞ ΓѼ
  131. ªÑ ßá¼δ¼,  τΓ« ¿ «íΩÑ¬Γ¡δ⌐ Γ¿» ¼ÑΓ«ñá  ¿½¿  Ñú«  »αÑñ¬á.  ¥Γ«Γ  Γ¿»
  132. á¬Γ¿óᵿ¿ ¡áºδóáÑΓß∩          ¬óá½¿Σ¿µ¿α«óá¡¡«⌐         á¬Γ¿óᵿÑ⌐.
  133. èóá½¿Σ¿µ¿α«óá¡¡á∩ á¬Γ¿óᵿ∩   ¡¿¬«úñá   ¡Ñ   ¿ß»«½∞ºπÑΓ    ¼Ñσá¡¿º¼
  134. óδí«αá ó¿αΓπá½∞¡«ú«  ¼ÑΓ«ñá  -  ó맮ó  óßÑúñá  ßΓáΓ¿τÑ߬¿⌐ ¿ óßÑúñá
  135. óδºδóáÑΓ ºáñá¡¡δ⌐ ¼ÑΓ«ñ.
  136.      ìÑ∩ó¡δ⌐ »áαá¼ÑΓα Self ¬óá½¿Σ¿µ¿α«óá¡¡«⌐  á¬Γ¿óᵿ¿  ßΓá¡«ó¿Γß∩
  137. ó¼ÑßΓ« Self ¼ÑΓ«ñá,  ß«ñÑαªáΘÑú« ó맮ó. èóá½¿Σ¿µ¿α«óá¡¡á∩ á¬Γ¿óᵿ∩
  138. ¿ß»«½∞ºπÑΓß∩ ó¡πΓα¿ »ÑαѬαδóáεΘÑú« ¼ÑΓ«ñá ñ½∩ á¬Γ¿óᵿ¿ »ÑαѬαδΓ«ú«
  139. ¼ÑΓ«ñá. êß»«½∞ºπ∩   Γ¿»δ,   «íΩ∩ó½Ñ¡¡δÑ  αá¡∞ΦÑ,   »α¿óÑñѼ  »α¿¼Ñα
  140. ¬óá½¿Σ¿µ¿α«óá¡¡«⌐ á¬Γ¿óᵿ¿:
  141.  
  142.      constructor NumField.Init(FX, FY, FLen: Integer;
  143.         FName: String; FMin, FMax: Longint);
  144.      begin
  145.         Field.Init(FX, FY, FLen, FName);
  146.         Value := 0;
  147.         Min := FMin;
  148.         Max := FMax;
  149.      end;
  150.  
  151.      function ZipField.PutStr(S: String): Boolean;
  152.      begin
  153.         PutStr := (Length(S) = 5) and NumField.PutStr(S);
  154.      end;
  155.  
  156.      èᬠñѼ«¡ßΓα¿απεΓ φΓ¿  »α¿¼Ñαδ,   ¬óá½¿Σ¿µ¿α«óá¡¡á∩  á¬Γ¿óᵿ∩
  157. ¿ß»«½∞ºπÑΓß∩ »ÑαѬαδóáεΘ¿¼  ¼ÑΓ«ñ«¼  ñ½∩ ¿ß»«½∞º«óá¡¿∩ ¬«ñá ¼ÑΓ«ñá,
  158. ¬«Γ«αδ⌐ «¡ »ÑαѬαδ½.
  159.  
  160.  
  161.                     Ä»ÑαáΓ«αδ »ÑαÑσ«ñá (goto).
  162.  
  163.      Ä»ÑαáΓ«α goto óδºδóáÑΓ »ÑαÑñáτπ π»αáó½Ñ¡¿∩ «»ÑαáΓ«απ, ¬«Γ«α«¼π
  164. »αÑñΦÑßΓóπÑΓ    ¼ÑΓ¬á,   π¬áºá¡¡á∩   ó   ñá¡¡«¼   «»ÑαáΓ«αÑ   goto.
  165. æ¿¡Γá¬ß¿τÑ߬á∩ ßσѼᠫ»ÑαáΓ«αá goto ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ó¿ñ:
  166.  
  167.  
  168.                       ┌────┐    ┌─────┐
  169. «»ÑαáΓ«α »ÑαÑσ«ñá ───÷│goto├───÷│¼ÑΓ¬á├───÷
  170.                       └────┘    └─────┘
  171.  
  172.  
  173.      Åα¿ ¿ß»«½∞º«óá¡¿¿   «»ÑαáΓ«αá   »ÑαÑσ«ñá   ñ«½ª¡δ  ß«í½εñáΓ∞ß∩
  174. ß½ÑñπεΘ¿Ñ »αáó¿½á:
  175.      - îÑΓ¬á,  ¬«Γ«αá∩  π¬áºδóáÑΓß∩  ó  «»ÑαáΓ«αÑ »ÑαÑσ«ñá,  ñ«½ª¡á
  176. ¡áσ«ñ¿Γ∞ß∩ ó Γ«¼ ªÑ í½«¬Ñ ¿½¿ ¼«ñπ½Ñ,  τΓ« ¿ ßá¼ «»ÑαáΓ«α »ÑαÑσ«ñá.
  177. äαπú¿¼¿  ß½«óἿ,  ¡Ñ ñ«»π߬áεΓß∩ »ÑαÑσ«ñδ ¿º »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿
  178. ¿½¿ ó¡πΓα∞ ¡ÑÑ.
  179.      - ÅÑαÑσ«ñ ¿ºó¡Ñ ó¡πΓα∞ ßΓαπ¬Γπα¡«ú« «»ÑαáΓ«αá (Γ« ÑßΓ∞ »ÑαÑσ«ñ
  180. ¡á   í«½ÑÑ   ú½πí«¬¿⌐   πα«óÑ¡∞    ó½«ªÑ¡¡«ßΓ¿)    ¼«ªÑΓ    óδºóáΓ∞
  181. ¡Ñ»αÑñ߬áºπѼδÑ  φΣΣѬΓδ,  σ«Γ∩  ¬«¼»¿½∩Γ«α  ¡Ñ óδñáÑΓ ß««íΘÑ¡¿∩ «í
  182. «Φ¿í¬Ñ.
  183.  
  184.  
  185.                       æΓαπ¬Γπα¡δÑ «»ÑαáΓ«αδ.
  186.  
  187.      æΓαπ¬Γπα¡δÑ «»ÑαáΓ«αδ  «»ÑαáΓ«α«ó,  »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ ¬«Γ«αδσ
  188. ñ«½ªÑ¡ íδΓ∞ »«ß½Ññ«óáΓѽ∞¡δ¼ (ß«ßΓáó¡δÑ «»ÑαáΓ«αδ ¿  «»ÑαáΓ«αδ  ¡áñ
  189. ºá»¿ß∩¼¿   (with)),   «»αÑñѽ∩Ñ¼δ¼  πß½«ó¡«⌐  »ÑαÑñáτÑ⌐  π»αáó½Ñ¡¿∩
  190. (πß½«ó¡δÑ «»ÑαáΓ«αδ) ¿½¿ »«óΓ«α∩εΘ¿¼ß∩ («»ÑαáΓ«αδ µ¿¬½á).
  191.  
  192.  
  193.                       ┌───────────────────────┐
  194. ßΓαπ¬Γπα¡δ⌐ ────┬────÷│  ß«ßΓáó¡«⌐ «»ÑαáΓ«α   ├───────÷
  195. «»ÑαáΓ«α        │     └───────────────────────┘   °
  196.                 │     ┌───────────────────────┐   │
  197.                 ├────÷│  πß½«ó¡δ⌐  «»ÑαáΓ«α   ├───┤
  198.                 │     └───────────────────────┘   │
  199.                 │     ┌───────────────────────┐   │
  200.                 ├────÷│  «»ÑαáΓ«α   µ¿¬½á     ├───┤
  201.                 │     └───────────────────────┘   │
  202.                 │     ┌───────────────────────┐   │
  203.                 └────÷│ «»ÑαáΓ«α ¡áñ ºá»¿ß∩¼¿ ├───┘
  204.                       └───────────────────────┘
  205.  
  206.  
  207.                        æ«ßΓáó¡δÑ «»ÑαáΓ«αδ.
  208.  
  209.      æ«ßΓáó¡δÑ «»ÑαáΓ«αδ  ºáñáεΓ  »«α∩ñ«¬  óδ»«½¡Ñ¡¿∩   «»ÑαáΓ«α«ó,
  210. ∩ó½∩εΘ¿σß∩ ¿σ φ½Ñ¼Ñ¡ΓἿ.  Ä¡¿ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩ ó Γ«¼ »«α∩ñ¬Ñ,  ó
  211. ¬«Γ«α«¼ «¡¿ ºá»¿ßá¡δ.
  212.      æ«ßΓáó¡δÑ «»ÑαáΓ«αδ  «íαáíáΓδóáεΓß∩,  ¬á¬  «ñ¿¡ «»ÑαáΓ«α,  τΓ«
  213. ¿¼ÑÑΓ  αÑΦáεΘÑÑ  º¡áτÑ¡¿Ñ  Γá¼,  úñÑ  ß¿¡Γá¬ß¿ß  Åá߬á½∩  ñ«»π߬áÑΓ
  214. ¿ß»«½∞º«óá¡¿Ñ  Γ«½∞¬«  «ñ¡«ú«  «»ÑαáΓ«αá.  Ä»ÑαáΓ«αδ  ºá¬½ετáεΓß∩ ó
  215. «úαá¡¿τ¿Γѽ¿ begin ¿ end ¿  «Γñѽ∩εΓß∩  ñαπú  «Γ  ñαπúá  Γ«τ¬á¼¿  ß
  216. ºá»∩Γ«⌐.
  217.  
  218.  
  219.                 ┌─────┐       ┌────────┐        ┌───┐
  220. ß«ßΓáó¡«⌐  ────÷│begin├──────÷│«»ÑαáΓ«α├────┬──÷│end├──÷
  221. «»ÑαáΓ«α        └─────┘   °   └────────┘    │   └───┘
  222.                           │     ┌───┐       │
  223.                           └─────┤ ; │≈──────┘
  224.                                 └───┘
  225.  
  226.  
  227.      Åα¿óÑñѼ »α¿¼Ñα ß«ßΓáó¡«ú« «»ÑαáΓ«αá:
  228.  
  229.      begin
  230.          Z : = X;
  231.          X : = Y;
  232.          Y : = Z;
  233.        end;
  234.  
  235.  
  236.  
  237.                         ôß½«ó¡δÑ «»ÑαáΓ«αδ.
  238.  
  239.  
  240.      ôß½«ó¡δÑ «»ÑαáΓ«αδ »«ºó«½∩εΓ óδíαáΓ∞ ñ½∩  óδ»«½¡Ñ¡¿∩  «ñ¿¡  ¿º
  241. ß«ßΓáó¡δσ «»ÑαáΓ«α«ó (¿½¿ ¡Ñ óδíαáΓ∞ ¡¿ «ñ¡«ú«).
  242.  
  243.  
  244.                          ┌───────────────┐
  245. πß½«ó¡δ⌐ «»ÑαáΓ«α  ──┬──÷│ «»ÑαáΓ«α if   ├───────÷
  246.                      │   └───────────────┘   °
  247.                      │   ┌───────────────┐   │
  248.                      └──÷│ «»ÑαáΓ«α case ├───┘
  249.                          └───────────────┘
  250.  
  251.  
  252.  
  253.                            Ä»ÑαáΓ«α if.
  254.  
  255.      æ¿¡Γá¬ß¿ß «»ÑαáΓ«αá if ¼«ª¡« »αÑñßΓáó¿Γ∞ ß½ÑñπεΘ¿¼ «íαẫ¼:
  256.  
  257.  
  258.                ┌──┐   ┌─────────┐   ┌────┐   ┌────────┐
  259. «»ÑαáΓ«α if ──÷│if├──÷│óδαáªÑ¡¿Ñ├──÷│then├──÷│«»ÑαáΓ«α├──┬──┐
  260.                └──┘   └─────────┘   └────┘   └────────┘  │  │
  261.                                 ┌────────────────────────┘  │
  262.                                 │   ┌────┐   ┌────────┐     ∙
  263.                                 └──÷│else├──÷│«»ÑαáΓ«α├─────────÷
  264.                                     └────┘   └────────┘
  265.  
  266.  
  267.      é óδαáªÑ¡¿¿  ñ«½ªÑ¡ »«½πτáΓ∞ß∩ αѺπ½∞ΓáΓ,  ¿¼ÑεΘ¿⌐ ßΓá¡ñáαΓ¡δ⌐
  268. Γ¿» Boolean.  àß½¿ αѺπ½∞ΓáΓ«¼ óδαáªÑ¡¿∩ ∩ó½∩ÑΓß∩ ¿ßΓ¿¡¡«Ñ º¡áτÑ¡¿Ñ
  269. (True), Γ« óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ºá ¬½ετÑóδ¼ ß½«ó«¼ then.
  270.      àß½¿ αѺπ½∞ΓáΓ«¼   óδαáªÑ¡¿∩   ∩ó½∩ÑΓß∩   º¡áτÑ¡¿Ñ   False   ¿
  271. »α¿ßπΓßΓóπÑΓ   ¬½ετÑó«Ñ   ß½«ó«   else,  Γ«  óδ»«½¡∩ÑΓß∩  «»ÑαáΓ«α,
  272. ß½ÑñπεΘ¿⌐  ºá  ¬½ετÑóδ¼  ß½«ó«¼  else.  àß½¿  ¬½ετÑó«Ñ  ß½«ó«  else
  273. «ΓßπΓßΓóπÑΓ, Γ« ¡Ñ óδ»«½¡∩ÑΓß∩ ¡¿¬á¬«⌐ «»ÑαáΓ«α.
  274.      æ¿¡Γá¬ß¿τÑ߬á∩ ¡Ñ«ñ¡«º¡áτ¡«ßΓ∞, ó«º¡¿¬áεΘá∩ ó ¬«¡ßΓαπ¬µ¿¿:
  275.  
  276.      if  e1 then if e2 then s1 else s2
  277.  
  278. αáºαÑΦáÑΓß∩ »πΓѼ ß½ÑñπεΘÑ⌐ ¿¡ΓÑα»αÑΓᵿ¿ φΓ«⌐ ¬«¡ßΓαπ¬µ¿¿:
  279.  
  280.      if e1 then
  281.      begin
  282.        if e2 then
  283.          s1
  284.        else
  285.          s2
  286.      end;
  287.  
  288.      é «íΘѼ  ß½πτáÑ  ¬½ετÑó«Ñ  ß½«ó«  else ßó∩ºδóáÑΓß∩ ß í½¿ªá⌐Φ¿¼
  289. ¬½ετÑóδ¼ ß½«ó«¼ if, ß ¬«Γ«αδ¼ ÑΘÑ ¡Ñ áßß«µ¿¿α«óá¡« else.
  290.      Åα¿óÑñѼ ñóá »α¿¼Ñαá «»ÑαáΓ«αá if:
  291.  
  292.      if ò < 1.5 then
  293.         X : = X + Y
  294.      else
  295.         Z : = 1.5;
  296.      if P1 <> nil then
  297.         P1 : = P1^. Father;
  298.  
  299.  
  300.  
  301.                           Ä»ÑαáΓ«α case.
  302.  
  303.      Ä»ÑαáΓ«α case   ß«ßΓ«¿Γ  ¿º  óδαáªÑ¡¿∩  (ßÑ½Ñ¬Γ«αá)  ¿  ß»¿ß¬á
  304. «»ÑαáΓ«α«ó, ¬áªñ«¼π ¿º ¬«Γ«αδσ »αÑñΦÑßΓóπÑΓ «ñ¡á ¿½¿ í«½ÑÑ ¬«¡ßΓá¡Γ
  305. («¡¿  ¡áºδóáεΓß∩  ¬«¡ßΓá¡ΓἿ  óδí«αá)  ¿½¿  ¬½ετÑó«Ñ  ß½«ó«  else.
  306. æÑ½Ñ¬Γ«α ñ«½ªÑ¡ ¿¼ÑΓ∞ »«α∩ñ¬«óδ⌐ Γ¿» αẼÑαá íá⌐Γ ¿½¿  ß½«ó«. Æᬿ¼
  307. «íαẫ¼, ßΓ᫬«óδ⌐  Γ¿» ¿ Γ¿» LongInt ∩ó½∩εΓß∩ ¡Ññ«»πßΓ¿¼δ¼¿ Γ¿»á¼¿
  308. ßÑ½Ñ¬Γ«αá.  éßÑ ¬«¡ßΓá¡Γδ óδí«αá ñ«½ª¡δ íδΓ∞  π¡¿¬á½∞¡δ¼¿  ¿  ¿¼ÑΓ∞
  309. »«α∩ñ¬«óδ⌐ Γ¿», ß«ó¼ÑßΓ¿¼δ⌐ ß Γ¿»«¼ ßÑ½Ñ¬Γ«αá.
  310.  
  311.  
  312.                  ┌────┐   ┌─────────┐   ┌──┐      ┌────┐
  313. «»ÑαáΓ«α case ──÷│case├──÷│óδαáªÑ¡¿Ñ├──÷│of├─────÷│case├──┬──┐
  314.                  └────┘   └─────────┘   └──┘  °   └────┘  │  │
  315.                                               │   ┌────┐  │  │
  316.                                               └───┤ ;  │≈─┘  │
  317.                                                   └────┘     │
  318.                      ┌───────────────────────────────────────┘
  319.                      │                                  ┌───┐
  320.                      └─┬────────────────────┬──────────÷│end├──÷
  321.                        │   ┌──────────┐  °  │  ┌─┐  °   └───┘
  322.                        └──÷│óÑΓó∞ else├──┘  └─÷│;├──┘
  323.                            └──────────┘        └─┘
  324.  
  325.  
  326.                      ┌────────────────────┐
  327.          ┌─────────┐ │  ┌──┐  ┌─────────┐ ∙     ┌─┐  ┌────────┐
  328. case ───÷│¬«¡ßΓá¡Γá├─┴─÷│..├─÷│¬«¡ßΓá¡Γá├───┬──÷│:├─÷│«»ÑαáΓ«α├──÷
  329.       °  └─────────┘    └──┘  └─────────┘   │   └─┘  └────────┘
  330.       │                 ┌──┐                │
  331.       └─────────────────┤, │≈───────────────┘
  332.                         └──┘
  333.  
  334.                  ┌────┐    ┌────────┐
  335. óÑΓó∞ else  ────÷│else├───÷│«»ÑαáΓ«α├───÷
  336.                  └────┘    └────────┘
  337.  
  338.  
  339.      Ä»ÑαáΓ«α case  »α¿ó«ñ¿Γ  ¬  óδ»«½¡Ñ¡¿ε   «»ÑαáΓ«αá,   ¬«Γ«α«¼π
  340. »αÑñΦÑßΓóπÑΓ ¬«¡ßΓá¡Γá   óδí«αá,   αáó¡á∩  º¡áτÑ¡¿ε  ßÑ½Ñ¬Γ«αá  ¿½¿
  341. ñ¿á»áº«¡π óδí«αá,  ó ¬«Γ«α«¼  ¡áσ«ñ¿Γß∩  º¡áτÑ¡¿Ñ  ßÑ½Ñ¬Γ«αá.  àß½¿
  342. Γᬫ⌐  ¬«¡ßΓá¡Γδ  óδí«αá ¿½¿ Γᬫú« ñ¿á»áº«¡á óδí«αá ¡Ñ ßπΘÑßΓóπÑΓ,
  343. Γ« óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α,  ß½ÑñπεΘ¿⌐ ºá ¬½ετÑóδ¼ ß½«ó«¼  else.  àß½¿
  344. óÑΓó∞ else «ΓßπΓßΓóπÑΓ, Γ« ¡Ñ óδ»«½¡∩ÑΓß∩ ¡¿¬á¬«⌐ «»ÑαáΓ«α.
  345.      Åα¿óÑñѼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«αá case:
  346.  
  347.      case Operator of
  348.         Plus : X := X + Y;
  349.         Minus: X := X - Y;
  350.         Times: X := X * Y;
  351.      end;
  352.  
  353.      case I of
  354.         0, 2, 4, 6, 8: Writeln('Even digit');
  355.         1, 3, 5, 7, 9: Writeln('Odd digit');
  356.         10..100      : Writeln('Between 10 and 100');
  357.      else
  358.        Writeln('Negative or greater than 100');
  359.      end;
  360.  
  361.  
  362.  
  363.                          Ä»ÑαáΓ«αδ µ¿¬½á.
  364.  
  365.      Ä»ÑαáΓ«αδ µ¿¬½á   ºáñáεΓ   »«óΓ«α¡«Ñ  óδ»«½¡Ñ¡¿Ñ  «»αÑñѽѡ¡δσ
  366. «»ÑαáΓ«α«ó.
  367.  
  368.  
  369.                        ┌─────────────────┐
  370. «»ÑαáΓ«α µ¿¬½á  ───┬──÷│ «»ÑαáΓ«α repeat ├──────÷
  371.                    │   └─────────────────┘  °
  372.                    │   ┌─────────────────┐  │
  373.                    ├──÷│ «»ÑαáΓ«α while  ├──┤
  374.                    │   └─────────────────┘  │
  375.                    │   ┌─────────────────┐  │
  376.                    └──÷│ «»ÑαáΓ«α  for   ├──┘
  377.                        └─────────────────┘
  378.  
  379.  
  380.      àß½¿ τ¿ß½«   »«óΓ«αÑ¡¿⌐   ºáαá¡ÑÑ   ¿ºóÑßΓ¡«,   Γ«  »«ñσ«ñ∩ΘÑ⌐
  381. ¬«¡ßΓαπ¬µ¿Ñ⌐ ∩ó½∩ÑΓß∩ «»ÑαáΓ«α  for.  é  »α«Γ¿ó¡«¼  ß½πτáÑ  ß½ÑñπÑΓ
  382. ¿ß»«½∞º«óáΓ∞ «»ÑαáΓ«αδ while ¿½¿ repeat.
  383.  
  384.  
  385.  
  386.                       Ä»ÑαáΓ«αδ µ¿¬½á repeat.
  387.  
  388.      é «»ÑαáΓ«αÑ   µ¿¬½á   repeat   óδαáªÑ¡¿Ñ,   ¬«Γ«α«Ñ  π»αáó½∩ÑΓ
  389. »«óΓ«α¡δ¼  óδ»«½¡Ñ¡¿Ñ¼  »«ß½Ññ«óáΓѽ∞¡«ßΓ¿  «»ÑαáΓ«α«ó,  ß«ñÑনΓß∩
  390. ó¡πΓα¿ «»ÑαáΓ«αá repeat.
  391.  
  392.  
  393.             ┌──────┐     ┌────────┐     ┌─────┐   ┌─────────┐
  394. «»ÑαáΓ«α ──÷│repeat├────÷│«»ÑαáΓ«α├──┬─÷│until├──÷│óδαáªÑ¡¿Ñ├──÷
  395. repeat      └──────┘  °  └────────┘  │  └─────┘   └─────────┘
  396.                       │    ┌───┐     │
  397.                       └────┤ ; │≈────┘
  398.                            └───┘
  399.  
  400.  
  401.      ÉѺπ½∞ΓáΓ«¼ óδαáªÑ¡¿∩ ñ«½ªÑ¡ íδΓ∞ αѺπ½∞ΓáΓ  íπ½Ñó߬«ú«  Γ¿»á.
  402. Ä»ÑαáΓ«αδ,  ºá¬½ετÑ¡¡δÑ  ¼Ñªñπ  ¬½ετÑó묨  ß½«óἿ  repeat ¿ until,
  403. óδ»«½¡∩εΓß∩ »«ß½Ññ«óáΓѽ∞¡« ñ« ΓÑσ »«α, »«¬á αѺπ½∞ΓáΓ óδαáªÑ¡¿∩ ¡Ñ
  404. »α¿¼ÑΓ º¡áτÑ¡¿∩ True.  Å«ß½Ññ«óáΓѽ∞¡«ßΓ∞ «»ÑαáΓ«α«ó óδ»«½¡∩ÑΓß∩ »«
  405. ¬αá⌐¡Ñ⌐ ¼ÑαÑ «ñ¿¡ αáº,  »«ß¬«½∞¬π óδτ¿ß½Ñ¡¿Ñ óδαáªÑ¡¿∩ »α«¿ºó«ñ¿Γß∩
  406. »«ß½Ñ ¬áªñ«ú« óδ»«½¡Ñ¡¿∩ »«ß½Ññ«óáΓѽ∞¡«ßΓ¿ «»ÑαáΓ«α«ó.
  407.      Åα¿óÑñѼ »α¿¼Ñαδ «»ÑαáΓ«αá repeat:
  408.  
  409.      repeat
  410.         K := I mod J;
  411.         I := J;
  412.         J := K;
  413.      until J = O;
  414.  
  415.      repeat
  416.        Write ('Enter Value(0..9):');
  417.        Readln (I);
  418.      until (I >= 0) and (I <= 9);
  419.  
  420.  
  421.  
  422.                       Ä»ÑαáΓ«αδ µ¿¬½á while.
  423.  
  424.      Ä»ÑαáΓ«α µ¿¬½á  while  ß«ñÑαª¿Γ  ó  ßÑíÑ  óδαáªÑ¡¿Ñ,   ¬«Γ«α«Ñ
  425. π»αáó½∩ÑΓ  »«óΓ«α¡δ¼  óδ»«½¡Ñ¡¿Ñ¼  «»ÑαáΓ«αá  (¬«Γ«αδ⌐  ¼«ªÑΓ  íδΓ∞
  426. ß«ßΓáó¡δ¼ «»ÑαáΓ«α«¼).
  427.  
  428.  
  429.               ┌─────┐   ┌─────────┐   ┌──┐   ┌────────┐
  430. «»ÑαáΓ«α  ───÷│while├──÷│óδαáªÑ¡¿Ñ├──÷│do├──÷│«»ÑαáΓ«α├──÷
  431. while         └─────┘   └─────────┘   └──┘   └────────┘
  432.  
  433.  
  434.      éδαáªÑ¡¿Ñ, ß   »«¼«Θ∞ε   ¬«Γ«α«ú«   »α«¿ºó«ñ¿Γß∩    π»αáó½Ñ¡¿Ñ
  435. »«óΓ«αÑ¡¿Ñ¼ «»ÑαáΓ«αá,  ñ«½ª¡« ¿¼ÑΓ∞ íπ½Ñó߬¿⌐ Γ¿».  éδτ¿ß½Ñ¡¿Ñ Ñú«
  436. »α«¿ºó«ñ¿Γß∩ ñ«  Γ«ú«,  ¬á¬  ó¡πΓαÑ¡¡¿⌐  «»ÑαáΓ«α  íπñÑΓ  óδ»«½¡Ñ¡.
  437. é¡πΓαÑ¡¡¿⌐ «»ÑαáΓ«α óδ»«½¡∩ÑΓß∩ »«óΓ«α¡« ñ« ΓÑσ »«α, »«¬á óδαáªÑ¡¿Ñ
  438. »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ True.  àß½¿ óδαáªÑ¡¿Ñ ß ßἫú« ¡áτá½á  »α¿¡¿¼áÑΓ
  439. º¡áτÑ¡¿Ñ  False,  Γ« «»ÑαáΓ«α,  ß«ñÑαªáΘ¿⌐ß∩ ó¡πΓα¿ «»ÑαáΓ«αá µ¿¬½á
  440. while, ¡Ñ óδ»«½¡∩ÑΓß∩ ¡¿ αáºπ.
  441.      Åα¿¼ÑαἿ «»ÑαáΓ«αá µ¿¬½á while ¼«úπΓ ß½πª¿Γ∞:
  442.  
  443.      while Data[I] <> X do I := I + 1;
  444.  
  445.      while I > 0 do
  446.      begin
  447.         if Odd(I) then Z := Z * X;
  448.         I := I div 2;
  449.         X := Sqr(X);
  450.      end;
  451.  
  452.      while not Eof(InFile) do
  453.      begin
  454.        Readln (InFile, Line);
  455.        Process (Line);
  456.      end;
  457.  
  458.  
  459.  
  460.                        Ä»ÑαáΓ«αδ µ¿¬½á for.
  461.  
  462.      Ä»ÑαáΓ«α µ¿¬½á for óδºδóáÑΓ »«óΓ«α∩εΘÑÑß∩ óδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá
  463. (¬«Γ«αδ⌐   ¼«ªÑΓ   íδΓ∞  ß«ßΓáó¡δ¼  «»ÑαáΓ«α«¼),  »«¬á  π»αáó½∩εΘÑ⌐
  464. »ÑαѼѡ¡«⌐ »α¿ßóá¿óáÑΓß∩ ó«ºαáßΓáεΘá∩  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ º¡áτÑ¡¿⌐.
  465.  
  466.  
  467.               ┌───┐   ┌───────────┐   ┌──┐   ┌────────┐
  468. «»ÑαáΓ«α  ───÷│for├──÷│π»αáó½∩εΘá∩├──÷│:=├──÷│¿ßσ«ñ¡«Ñ├───┐
  469. for           └───┘   │»ÑαѼѡ¡á∩ │   └──┘   │º¡áτÑ¡¿Ñ│   │
  470.                       └───────────┘          └────────┘   │
  471.          ┌────────────────────────────────────────────────┘
  472.          │      ┌──┐
  473.          │   ┌─÷│to├─────┐   ┌────────┐   ┌──┐   ┌────────┐
  474.          └──÷│  └──┘     ├──÷│¬«¡Ñτ¡«Ñ├──÷│do├──÷│«»ÑαáΓ«α├───÷
  475.              │  ┌──────┐ │   │º¡áτÑ¡¿Ñ│   └──┘   └────────┘
  476.              └─÷│downto├─┘   └────────┘
  477.                 └──────┘
  478.  
  479.                            ┌────────────────────────┐
  480. π»αáó½∩εΘá∩ »ÑαѼѡ¡á∩ ───÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α »ÑαѼѡ¡«⌐├───÷
  481.                            └────────────────────────┘
  482.  
  483.                         ┌─────────┐
  484. ¿ßσ«ñ¡«Ñ º¡áτÑ¡¿Ñ  ────÷│óδαáªÑ¡¿Ñ├───÷
  485.                         └─────────┘
  486.  
  487.                         ┌─────────┐
  488. ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ  ────÷│óδαáªÑ¡¿Ñ├───÷
  489.                         └─────────┘
  490.  
  491.  
  492.      é ¬áτÑßΓóÑ  π»αáó½∩εΘÑ⌐   »ÑαѼѡ¡«⌐   ñ«½ªÑ¡   ¿ß»«½∞º«óáΓ∞ß∩
  493. ¿ñÑ¡Γ¿Σ¿¬áΓ«α  »ÑαѼѡ¡«⌐ (íѺ ¬á¬«ú«-½¿í« ¬óá½¿Σ¿¬áΓ«αá),  ¬«Γ«αδ⌐
  494. «í«º¡áτáÑΓ »ÑαѼѡ¡πε,  «í∞∩ó½Ñ¡¡πε ½«¬á½∞¡«⌐ ó  í½«¬Ñ,  ó  ¬«Γ«α«¼
  495. ß«ñÑনΓß∩   «»ÑαáΓ«α  for.  ô»αáó½∩εΘá∩  »ÑαѼѡ¡á∩  ñ«½ª¡á  ¿¼ÑΓ∞
  496. »«α∩ñ¬«óδ⌐ Γ¿».  ìáτá½∞¡«Ñ ¿ ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿∩  ñ«½ª¡δ  ¿¼ÑΓ∞  Γ¿»,
  497. ß«ó¼ÑßΓ¿¼δ⌐ »« »α¿ßóá¿óá¡¿ε ß φΓ¿¼ »«α∩ñ¬«óδ¼ Γ¿»«¼.
  498.      è«úñá ¡áτ¿¡áÑΓ óδ»«½¡∩Γ∞ß∩ «»ÑαáΓ«α for,  ¡áτá½∞¡«Ñ ¿ ¬«¡Ñτ¡«Ñ
  499. º¡áτÑ¡¿∩ «»αÑñѽ∩εΓß∩  «ñ¿¡  αáº,  ¿  φΓ¿  º¡áτÑ¡¿∩  ß«σαá¡∩εΓß∩ ¡á
  500. »α«Γ∩ªÑ¡¿¿ óßÑú« óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«αá for.
  501.      Ä»ÑαáΓ«α, ¬«Γ«αδ⌐ ß«ñÑনΓß∩ ó ΓѽѠ«»ÑαáΓ«αá for, óδ»«½¡∩ÑΓß∩
  502. «ñ¿¡ αẠ ñ½∩  ¬áªñ«ú«  º¡áτÑ¡¿∩  ó  ñ¿á»áº«¡Ñ  ¼Ñªñπ  ¡áτá½∞¡δ¼  ¿
  503. ¬«¡Ñτ¡δ¼ º¡áτÑ¡¿Ñ¼.  ô»αáó½∩εΘá∩ »ÑαѼѡ¡á∩ óßÑúñá ¿¡¿µ¿á½¿º¿απÑΓß∩
  504. ¡áτá½∞¡δ¼ º¡áτÑ¡¿Ñ¼.  è«úñá «»ÑαáΓ«α for ¿ß»«½∞ºπÑΓ ¬½ετÑó«Ñ  ß½«ó«
  505. to,   º¡áτÑ¡¿Ñ  π»αáó½∩εΘÑ⌐  »ÑαѼѡ¡«⌐  πóѽ¿τ¿óáÑΓß∩  »α¿  ¬áªñ«¼
  506. »«óΓ«αÑ¡¿¿ ¡á Ññ¿¡¿µπ.  àß½¿ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ »αÑóδΦáÑΓ  ¬«¡Ñτ¡«Ñ
  507. º¡áτÑ¡¿Ñ,   Γ«  ß«ñÑαªáΘ¿⌐ß∩  ó  ΓѽѠ «»ÑαáΓ«αá  for  «»ÑαáΓ«α  ¡Ñ
  508. óδ»«½¡∩ÑΓß∩.
  509.      è«úñá ó  «»ÑαáΓ«αÑ  µ¿¬½á  ¿ß»«½∞ºπÑΓß∩ ¬½ετÑó«Ñ ß½«ó« downto,
  510. º¡áτÑ¡¿Ñ π»αáó½∩εΘÑ⌐ »ÑαѼѡ¡«⌐ π¼Ñ¡∞ΦáÑΓß∩ »α¿  ¬áªñ«¼  »«óΓ«αÑ¡¿¿
  511. ¡á Ññ¿¡¿µπ.  àß½¿ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ ó Γᬫ¼ «»ÑαáΓ«αÑ ¼Ñ¡∞ΦÑ,  τѼ
  512. ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ,  Γ« ß«ñÑαªáΘ¿⌐ß∩ ó ΓѽѠ«»ÑαáΓ«αá µ¿¬½á «»ÑαáΓ«α
  513. ¡Ñ óδ»«½¡∩ÑΓß∩.
  514.      àß½¿ «»ÑαáΓ«α,  ß«ñÑαªáΘ¿⌐ß∩ ó ΓѽѠ «»ÑαáΓ«αá  for,  ¿º¼Ñ¡∩ÑΓ
  515. º¡áτÑ¡¿Ñ  π»αáó½∩εΘÑ⌐  »ÑαѼѡ¡«⌐,  Γ« φΓ« ∩ó½∩ÑΓß∩ «Φ¿í¬«⌐.  Å«ß½Ñ
  516. óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«αá for º¡áτÑ¡¿Ñ π»αáó½∩εΘÑ⌐ »ÑαѼѡ¡«⌐ ßΓá¡«ó¿Γß∩
  517. ¡Ñ«»αÑñѽѡ¡δ¼,  Ñß½¿  Γ«½∞¬«  óδ»«½¡Ñ¡¿Ñ  «»ÑαáΓ«αá  for  ¡Ñ  í佫
  518. »αÑαóá¡« ß »«¼«Θ∞ε «»ÑαáΓ«αá »ÑαÑσ«ñá.
  519.      àß½¿ »α¿¡∩Γ∞ ó« ó¡¿¼á¡¿Ñ φΓ¿ «úαá¡¿τÑ¡¿∩, Γ« «»ÑαáΓ«α
  520.  
  521.       for V := Expr1 to Expr2 do Body;
  522.  
  523. φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«απ
  524.  
  525.      begin
  526.        Temp1 := Expr1;
  527.        Temp2 := Expr2;
  528.        if Temp1 <= Temp2 then
  529.        begin
  530.          V := Temp1;
  531.          Body;
  532.          while V <> Temp2 do
  533.          begin
  534.            V := Succ(V);
  535.            Body;
  536.          end;
  537.        end;
  538.       end;
  539.  
  540. ¿ «»ÑαáΓ«α µ¿¬½á for
  541.  
  542.      for V := Expr1 downto Expr2 do Body;
  543.  
  544. φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«απ
  545.  
  546.      begin
  547.        Temp1 := Expr1;
  548.        Temp2 := Expr2;
  549.        if Temp1 >= Temp2 then
  550.        begin
  551.          V := Temp1;
  552.          Body;
  553.          while V <> Temp2 do
  554.          begin
  555.            V := Pred(V);
  556.            Body;
  557.          end;
  558.        end;
  559.      end;
  560.  
  561.      úñÑ Temp1  ¿  Temp2 - óß»«¼«úáΓѽ∞¡δÑ »ÑαѼѡ¡δÑ,  Γ¿» ¬«Γ«αδσ
  562. ß«ó»áñáÑΓ ß «ß¡«ó¡δ¼ Γ¿»«¼ »ÑαѼѡ¡«⌐ V ¿ ¬«Γ«αδÑ ¡Ñ  óßΓαÑτáεΓß∩ ó
  563. ñαπú«¼ ¼ÑßΓÑ »α«úαá¼¼δ.
  564.      Åα¿óÑñѼ »α¿¼Ñαδ «»ÑαáΓ«αá µ¿¬½á for:
  565.  
  566.      for I := 2 to 63 do
  567.        if Data[I] > Max then
  568.          Max := Data[I];
  569.  
  570.      for I := 1 to 10 do
  571.        for J := 1 to 10 do
  572.        begin
  573.          X := 0;
  574.          for K := 1 to 10 do
  575.            X := X + Mat1[I, K] * Mat2[K, J];
  576.            Mat [I, J] := X;
  577.        end;
  578.  
  579.      for C := Red to Blue do Check(C);
  580.  
  581.  
  582.  
  583.                      Ä»ÑαáΓ«α ¡áñ ºá»¿ß∩¼¿ with.
  584.  
  585.      é «»Ñαᵿ∩σ ¡áñ ºá»¿ß∩¼¿ «»ÑαáΓ«α with πñ«í¡« ¿ß»«½∞º«óáΓ∞ ñ½∩
  586. ¬αáΓ¬«ú« «íαáΘÑ¡¿∩ ¬ »«½∩¼ ºá»¿ß¿ ¿ ¬ »«½∩¼,  ¼ÑΓ«ñá¼, ¬«¡ßΓαá¬Γ«απ
  587. ¿ ñÑßΓαá¬Γ«απ «íΩѬΓá.  é «»ÑαáΓ«αÑ with ¬ »«½∩¼  «ñ¡«⌐  ¿½¿  í«½ÑÑ
  588. ¬«¡¬αÑΓ¡δσ  »ÑαѼѡ¡δσ  Γ¿»á  ºá»¿ß∞  ¼«ª¡«  «íαáΘáΓ∞ß∩,  ¿ß»«½∞ºπ∩
  589. Γ«½∞¬«  ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ  »«½Ñ⌐.  Ä»ÑαáΓ«α   with   ¿¼ÑÑΓ   ß½ÑñπεΘ¿⌐
  590. ß¿¡Γá¬ß¿ß:
  591.  
  592.  
  593.              ┌────┐      ┌───────────────┐     ┌──┐   ┌────────┐
  594. «»ÑαáΓ«α  ──÷│with├─────÷│ßßδ½¬á ¡á »ÑαÑ-├──┬─÷│do├──÷│«»ÑαáΓ«α├──÷
  595. with         └────┘  °   │¼Ñ¡¡πε Γ¿»á    │  │  └──┘   └────────┘
  596.                      │   │ºá»¿ß∞         │  │
  597.                      │   │¿½¿ «íΩÑ¬Γ     │  │
  598.                      │   └───────────────┘  │
  599.                      │        ┌───┐         │
  600.                      └────────┤ , │≈────────┘
  601.                               └───┘
  602.  
  603. ßßδ½¬á ¡á »ÑαѼѡ¡πε        ┌────────────────────┐
  604. Γ¿»á ºá»¿ß∞ ¿½¿ «íΩÑ¬Γ  ───÷│ßßδ½¬á ¡á »ÑαѼѡ¡πε├──÷
  605.                             └────────────────────┘
  606.  
  607.  
  608.      Åα¿óÑñѼ »α¿¼Ñα «»ÑαáΓ«αá with:
  609.  
  610.      with Data do
  611.       if Month = 12 then
  612.       begin
  613.          Month := 1;
  614.          Year := Year + 1;
  615.       end
  616.       else
  617.         Month := Month + 1;
  618.  
  619.      ¥Γ« φ¬ó¿óá½Ñ¡Γ¡« ß½ÑñπεΘѼπ:
  620.  
  621.      if Date.Month = 12 then
  622.      begin
  623.        Date.Month := 1;
  624.        Date.Year := Date.Year + 1;
  625.      end
  626.      else
  627.        Date.Month := Date.Month + 1;
  628.  
  629.      é «»ÑαáΓ«αÑ with ß¡áτá½á »α«¿ºó«ñ¿Γß∩ »α«óÑα¬á  ¬áªñ«⌐  ßß佬¿
  630. ¡á  »ÑαѼѡ¡πε,  á ¿¼Ñ¡¡«:  ¼«ª¡« ½¿ ÑÑ ¿¡ΓÑα»αÑΓ¿α«óáΓ∞,  ¬á¬ »«½Ñ
  631. ºá»¿ß¿.  àß½¿ ¼«ª¡«,  Γ« «¡á óßÑúñá ¿¡ΓÑα»αÑΓ¿απÑΓß∩  ¿¼Ñ¡¡«  Γᬿ¼
  632. «íαẫ¼, ñáªÑ Ñß½¿ ¿¼ÑÑΓß∩ ñ«ßΓπ» ¬ »ÑαѼѡ¡«⌐ ß ΓѼ ªÑ ¿¼Ñ¡Ñ¼.
  633.      ä«»πßΓ¿¼, «í∞∩ó½Ñ¡δ ß½ÑñπεΘ¿Ñ »ÑαѼѡ¡δÑ:
  634.  
  635.      type
  636.        Point = record
  637.          X, Y: Integer;
  638.        end;
  639.      var
  640.        X : Point;
  641.        Y : Integer;
  642.  
  643.      é φΓ«¼ ß½πτáÑ ¿ ¬ X,  ¿ ¬ Y ¼«ª¡« «íαáΘáΓ∞ß∩, ¬á¬ ¬ »ÑαѼѡ¡«⌐
  644. ¿½¿ ¬á¬ ¬ »«½ε ºá»¿ß¿. é «»ÑαáΓ«αÑ:
  645.  
  646.      with X do
  647.      begin
  648.        X := 10;
  649.        Y := 25;
  650.      end;
  651.  
  652.      X ¼Ñªñπ  ¬½ετÑó묨  ß½«óἿ  with  ¿ do «Γ¡«ß¿Γß∩ ¬ »ÑαѼѡ¡«⌐
  653. Γ¿»á point, á ó ß«ßΓáó¡«¼ «»ÑαáΓ«αÑ X ¿ Y ßßδ½áεΓß∩ ¡á X.X ¿ X.Y.
  654.  
  655.  Ä»ÑαáΓ«α
  656.  
  657.      with V1, V2, ... Vn do S;
  658.  
  659. φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«αá¼:
  660.      with V1 do
  661.        with V2 do
  662.          ....
  663.            with Vn do
  664.              S;
  665.  
  666.      é «í«¿σ  ß½πτá∩σ,  Ñß½¿ Vn ∩ó½∩ÑΓß∩ »«½Ñ¼ ¿ V1,  ¿ V2,  Γ« «¡á
  667. ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¬á¬ V2.Vn, á ¡Ñ ¬á¬ V1.Vn.
  668.      àß½¿ óδí«α¬á  »ÑαѼѡ¡«⌐ Γ¿»á ºá»¿ß∞ ßó∩ºá¡á ß ¿¡ñѬ߿α«ó᡿Ѽ
  669. ¼áßß¿óá ¿½¿ óδτ¿ß½Ñ¡¿Ñ¼ π¬áºáΓѽ∩,  Γ« φΓ¿ ñÑ⌐ßΓó¿∩ »α«¿ºó«ñ∩Γß∩ ñ«
  670. Γ«ú«, ¬á¬ íπñÑΓ óδ»«½¡∩Γ∞ß∩ ß«ßΓáó¡«⌐ «»ÑαáΓ«α.
  671.