ISBN: 978-5-9729-2228-4

Text
                    
ɇȼȺɩɚɬɨɜɚɆȺȻɚɤɭɦɟɧɤɨ ȺɅȽɈɊɂɌɆɂɁȺɐɂəɂɉɊɈȽɊȺɆɆɂɊɈȼȺɇɂȿ ɍɱɟɛɧɨɟɩɨɫɨɛɢɟ Ɇɨɫɤɜɚȼɨɥɨɝɞɚ ©ɂɧɮɪɚ-ɂɧɠɟɧɟɪɢɹª 2025 1
ɍȾɄ 004.42 ȻȻɄ 32.973 Ⱥ76 Ɋɟɰɟɧɡɟɧɬɵ ɞɨɤɬɨɪɩɟɞɚɝɨɝɢɱɟɫɤɢɯɧɚɭɤɩɪɨɮɟɫɫɨɪ ɎȽȺɈɍȼɈ©Ʉɪɵɦɫɤɢɣɮɟɞɟɪɚɥɶɧɵɣɭɧɢɜɟɪɫɢɬɟɬ ɢɦɟɧɢȼ ɂȼɟɪɧɚɞɫɤɨɝɨªȽɨɧɱɚɪɨɜɚɈɤɫɚɧɚɇɢɤɨɥɚɟɜɧɚ ɞɨɤɬɨɪɩɟɞɚɝɨɝɢɱɟɫɤɢɯɧɚɭɤɩɪɨɮɟɫɫɨɪ ȽȻɈɍȼɈɊɄ©Ʉɪɵɦɫɤɢɣɢɧɠɟɧɟɪɧɨ-ɩɟɞɚɝɨɝɢɱɟɫɤɢɣɭɧɢɜɟɪɫɢɬɟɬ ɢɦɟɧɢɎɟɜɡɢəɤɭɛɨɜɚªȽɨɪɞɢɟɧɤɨɌɚɬɶɹɧɚɉɟɬɪɨɜɧɚ Ⱥ76 Ⱥɩɚɬɨɜɚɇȼ ȺɥɝɨɪɢɬɦɢɡɚɰɢɹɢɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɟɭɱɟɛɧɨɟɩɨɫɨɛɢɟɇȼȺɩɚ ɬɨɜɚ Ɇ Ⱥ Ȼɚɤɭɦɟɧɤɨ. – Ɇɨɫɤɜɚ  ȼɨɥɨɝɞɚ  ɂɧɮɪɚ-ɂɧɠɟɧɟɪɢɹ  – 216 ɫɢɥɬɚɛɥ ISBN 978-5-9729-2228-4 Ⱦɚɧɵ ɚɥɝɨɪɢɬɦɵ ɩɨɫɬɪɨɟɧɢɹ ɤɨɦɩɶɸɬɟɪɧɵɯ ɩɪɨɝɪɚɦɦ ɧɚ ɹɡɵɤɟ ɉɚɫɤɚɥɶ (Pascal). ɉɨɫɨɛɢɟɫɨɫɬɨɢɬɢɡɥɟɤɰɢɨɧɧɨɝɨɤɭɪɫɚ ɬɟɦ ɜɨɩɪɨɫɨɜɢɡɚɞɚɧɢɣɞɥɹɫɚ ɦɨɫɬɨɹɬɟɥɶɧɨɣɩɨɞɝɨɬɨɜɤɢɨɛɭɱɚɸɳɢɯɫɹɢɰɢɤɥɚɥɚɛɨɪɚɬɨɪɧɵɯɪɚɛɨɬ ɪɚɛɨɬ  Ⱦɥɹ ɫɬɭɞɟɧɬɨɜ ɨɛɭɱɚɸɳɢɯɫɹ ɩɨ ɧɚɩɪɚɜɥɟɧɢɸ ɩɨɞɝɨɬɨɜɤɢ  ©Ȼɢɡɧɟɫɢɧɮɨɪɦɚɬɢɤɚª ɍȾɄ ȻȻɄ ISBN 978-5-9729-2228-4 ” Ⱥɩɚɬɨɜɚɇȼ. ȻɚɤɭɦɟɧɤɨɆȺ 2025 ” ɂɡɞɚɬɟɥɶɫɬɜɨ©ɂɧɮɪɚ-ɂɧɠɟɧɟɪɢɹª25 ” Ɉɮɨɪɦɥɟɧɢɟɂɡɞɚɬɟɥɶɫɬɜɨ©ɂɧɮɪɚ-ɂɧɠɟɧɟɪɢɹª25 2
ɋɈȾȿɊɀȺɇɂȿ ȼȼȿȾȿɇɂȿ .................................................................................................................. 5 ɌȿɆȺ 1. ɈɋɇɈȼɇɕȿɋɊȿȾɋɌȼȺəɁɕɄȺɉȺɋɄȺɅɖ ɂȺɅȽɈɊɂɌɆɕɈȻɊȺȻɈɌɄɂɋɄȺɅəɊɇɕɏȾȺɇɇɕɏ .................................... 6 1.1. əɡɵɤɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹɉɚɫɤɚɥɶ ...................................................................... 6 ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ ...................................................................................................... 8 1.2. ɋɬɪɭɤɬɭɪɚɩɪɨɝɪɚɦɦɵɧɚɉɚɫɤɚɥɟȼɜɨɞɢɜɵɜɨɞɞɚɧɧɵɯ............................... 8 ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ .................................................................................................... 11 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ Ʌɢɧɟɣɧɵɟɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵ ......................... 13 1.3. ɍɫɥɨɜɧɵɣɨɩɟɪɚɬɨɪ ............................................................................................ 20 ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ .................................................................................................... 24 ɅɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟɊɚɡɜɟɬɜɥɹɸɳɢɟɫɹɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵ. ɋɨɤɪɚɳɟɧɧɚɹɮɨɪɦɚɨɩɟɪɚɬɨɪɚIF ........................................................................... 26 ɅɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟɊɚɡɜɟɬɜɥɹɸɳɢɟɫɹɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵ ɂɫɩɨɥɶɡɨɜɚɧɢɟɜɥɨɠɟɧɧɵɯɢɧɫɬɪɭɤɰɢɣIF THEN ELSE ...................................... 35 1.4. Ɉɪɝɚɧɢɡɚɰɢɹɰɢɤɥɨɜ ........................................................................................... 42 ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ .................................................................................................... 48 Ʌɚɛɨɪɚɬɨɪɧɨɟ ɡɚɞɚɧɢɟ 4. ɐɢɤɥɢɱɟɫɤɢɟɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵ ɈɩɟɪɚɬɨɪFOR ............................................................................................................ 50 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟɐɢɤɥɢɱɟɫɤɢɟɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵ Ɉɩɟɪɚɬɨɪɵ:+,/(ɂ5(3($7817,/ ................................................................... 57 ɌȿɆȺ 2. ɄɈɆɉɖɘɌȿɊɇȺəɌɈɑɇɈɋɌɖȼɕɑɂɋɅȿɇɂɃ ............................... 61 ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ .................................................................................................... 66 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ6ȼɵɱɢɫɥɟɧɢɹɫɡɚɞɚɧɧɨɣɬɨɱɧɨɫɬɶɸ .............................. 68 ɌȿɆȺ 3. ɈȾɇɈɆȿɊɇɕȿɂȾȼɍɆȿɊɇɕȿɆȺɋɋɂȼɕ .................................... 73 3.1. Ɇɚɫɫɢɜɵ .............................................................................................................. 73 ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ .................................................................................................... 78 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ 7Ɉɛɪɚɛɨɬɤɚɨɞɧɨɦɟɪɧɵɯɦɚɫɫɢɜɨɜ ................................ 79 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ8ɋɨɪɬɢɪɨɜɤɚɦɚɫɫɢɜɨɜ ..................................................... 85 3.2. Ⱥɥɝɨɪɢɬɦɵɨɛɪɚɛɨɬɤɢɬɚɛɥɢɰ ........................................................................... 88 ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ .................................................................................................... 93 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ 9Ɉɛɪɚɛɨɬɤɚɞɜɭɦɟɪɧɵɯɦɚɫɫɢɜɨɜ .................................. 94 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ 10ɉɪɟɨɛɪɚɡɨɜɚɧɢɟɢɩɨɫɬɪɨɟɧɢɟɦɚɬɪɢɰ ..................... 100 ɌȿɆȺ 4. ɈɉȿɊȺɌɈɊȼȺɊɂȺɇɌȺ ....................................................................... 107 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ 11Ɉɩɟɪɚɬɨɪɜɚɪɢɚɧɬɚ ..................................................... 109 ɌȿɆȺ 5. ɉɈȾɉɊɈȽɊȺɆɆɕ ................................................................................ 114 5.1. ɉɪɨɰɟɞɭɪɵ......................................................................................................... 115 5.2. ɉɨɞɩɪɨɝɪɚɦɦɵ-ɮɭɧɤɰɢɢ ................................................................................. 119 ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ .................................................................................................. 121 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ 12ɉɨɞɩɪɨɝɪɚɦɦɵɎɭɧɤɰɢɢ .......................................... 122 Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ 13ɉɪɨɰɟɞɭɪɵɢɮɭɧɤɰɢɢ ............................................... 128 ɌȿɆȺ 6. ɈȻɊȺȻɈɌɄȺɋɌɊɈɄ ............................................................................. 135 3
ȼɨɩɪɨɫɵ ɢ ɡɚɞɚɧɢɹ .................................................................................................. 142 Ʌɚɛɨɪɚɬɨɪɧɨɟ ɡɚɞɚɧɢɟ 14. ɋɢɦɜɨɥɶɧɵɣ ɬɢɩ ɞɚɧɧɵɯ ........................................... 143 Ʌɚɛɨɪɚɬɨɪɧɨɟ ɡɚɞɚɧɢɟ 15. Ɉɛɪɚɛɨɬɤɚ ɫɬɪɨɤ ......................................................... 148 ɌȿɆȺ 7. ɁȺɉɂɋɂ .................................................................................................. 153 ȼɨɩɪɨɫɵ ɢ ɡɚɞɚɧɢɹ .................................................................................................. 157 Ʌɚɛɨɪɚɬɨɪɧɨɟ ɡɚɞɚɧɢɟ 16. Ɂɚɩɢɫɢ .......................................................................... 158 ɌȿɆȺ 8. ɎȺɃɅɕ.................................................................................................... 165 ȼɨɩɪɨɫɵ ɢ ɡɚɞɚɧɢɹ .................................................................................................. 169 Ʌɚɛɨɪɚɬɨɪɧɨɟ ɡɚɞɚɧɢɟ 17. Ɋɚɛɨɬɚ ɫ ɮɚɣɥɚɦɢ ....................................................... 171 ɌȿɆȺ 9. ȽɊȺɎɂɄȺ ................................................................................................ 178 ȼɨɩɪɨɫɵ ɢ ɡɚɞɚɧɢɹ .................................................................................................. 187 Ʌɚɛɨɪɚɬɨɪɧɨɟ ɡɚɞɚɧɢɟ 18. Ʉɨɦɩɶɸɬɟɪɧɚɹ ɝɪɚɮɢɤɚ ............................................. 189 ɌȿɆȺ 10. ɊȿɄɍɊɋɂə ............................................................................................ 197 ȼɨɩɪɨɫɵ ɢ ɡɚɞɚɧɢɹ .................................................................................................. 202 ɌȿɆȺ 11. ȾɂɇȺɆɂɑȿɋɄɂȿ ɋɌɊɍɄɌɍɊɕ ȾȺɇɇɕɏ ................................... 203 ȼɨɩɪɨɫɵ ɢ ɡɚɞɚɧɢɹ .................................................................................................. 210 ɅɂɌȿɊȺɌɍɊȺ ......................................................................................................... 212 4
ȼȼȿȾȿɇɂȿ ɍɱɟɛɧɨɟ ɩɨɫɨɛɢɟ ɩɪɟɞɧɚɡɧɚɱɟɧɨ ɞɥɹ ɨɛɭɱɚɸɳɢɯɫɹ ɩɟɪɜɨɝɨ ɤɭɪɫɚ ɛɚɤɚ ɥɚɜɪɢɚɬɚɩɨɧɚɩɪɚɜɥɟɧɢɸɩɨɞɝɨɬɨɜɤɢ «Ȼɢɡɧɟɫ-ɢɧɮɨɪɦɚɬɢɤɚª ɢɩɨɞɝɨ ɬɨɜɥɟɧɨ ɫɨɝɥɚɫɧɨ ɬɪɟɛɨɜɚɧɢɹɦ ɨɛɪɚɡɨɜɚɬɟɥɶɧɨɝɨ ɫɬɚɧɞɚɪɬɚ ɭɱɟɛɧɨɝɨ ɩɥɚɧɚ ɭɬɜɟɪɠɞɟɧɧɨɝɨɍɱɟɧɵɦɫɨɜɟɬɨɦɎȽȺɈɍȼɈ©Ʉɪɵɦɫɤɢɣ ɮɟɞɟɪɚɥɶɧɵɣɭɧɢɜɟɪ ɫɢɬɟɬɢɦɟɧɢȼ ɂ ȼɟɪɧɚɞɫɤɨɝɨªɢɭɱɟɛɧɨɣɩɪɨɝɪɚɦɦɵɞɢɫɰɢɩɥɢɧɵ©Ⱥɥɝɨɪɢɬ ɦɢɡɚɰɢɹɢɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɟªȾɢɫɰɢɩɥɢɧɚ©Ⱥɥɝɨɪɢɬɦɢɡɚɰɢɹɢɩɪɨɝɪɚɦɦɢɪɨ ɜɚɧɢɟªɜɯɨɞɢɬɜɜɚɪɢɚɬɢɜɧɭɸɝɪɭɩɩɭɞɢɫɰɢɩɥɢɧɞɥɹɩɨɞɝɨɬɨɜɤɢɛɚɤɚɥɚɜɪɨɜɩɨ ɧɚɩɪɚɜɥɟɧɢɸɩɨɞɝɨɬɨɜɤɢ38.03.05 ©Ȼɢɡɧɟɫ-ɢɧɮɨɪɦɚɬɢɤɚª ɂɡɭɱɟɧɢɟ ɹɡɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɢ ɚɥɝɨɪɢɬɦɨɜ ɩɨɫɬɪɨɟɧɢɹ ɤɨɦɩɶɸ ɬɟɪɧɵɯ ɩɪɨɝɪɚɦɦ ɹɜɥɹɟɬɫɹ ɧɟɨɛɯɨɞɢɦɨɫɬɶɸ ɞɥɹ ɛɭɞɭɳɢɯ ɛɚɤɚɥɚɜɪɨɜ ɩɨ ɧɚɩɪɚɜɥɟɧɢɸɩɨɞɝɨɬɨɜɤɢ©Ȼɢɡɧɟɫ-ɢɧɮɨɪɦɚɬɢɤɚª ȼɭɱɟɛɧɨɦɩɨɫɨɛɢɢɜɤɚɱɟɫɬɜɟɹɡɵɤɚɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɛɵɥɜɵɛɪɚɧ ɹɡɵɤ ɉɚɫɤɚɥɶ Pascal) ɉɚɫɤɚɥɶ ɹɜɥɹɟɬɫɹ ɨɞɧɢɦ ɢɡ ɧɚɢɛɨɥɟɟ ɩɪɨɫɬɵɯ ɹɡɵɤɨɜ ɩɪɨ ɝɪɚɦɦɢɪɨɜɚɧɢɹ ɞɥɹ ɮɨɪɦɢɪɨɜɚɧɢɹ ɛɚɡɨɜɵɯ ɧɚɜɵɤɨɜ ɢ ɤɨɦɩɟɬɟɧɰɢɣ ɭ ɨɛɭɱɚɸ ɳɢɯɫɹ ɧɚɱɚɥɶɧɵɯ ɤɭɪɫɨɜ Ɉɧ ɩɨɡɜɨɥɹɟɬ ɡɚɩɢɫɵɜɚɬɶ ɤɨɦɚɧɞɵ ɤɨɦɩɶɸɬɟɪɭ ɞɥɹ ɪɟɲɟɧɢɹɦɚɬɟɦɚɬɢɱɟɫɤɢɯɡɚɞɚɱɨɛɪɚɛɨɬɤɢɬɟɤɫɬɨɜɩɨɫɬɪɨɟɧɢɹɢɡɨɛɪɚɠɟɧɢɣɧɚ ɷɤɪɚɧɟ ɞɢɫɩɥɟɹ Ɋɟɚɥɢɡɨɜɚɧɧɵɣ ɧɚ ,%0 3& ɉɚɫɤɚɥɶ ɩɨɡɜɨɥɹɟɬ ɢɫɩɨɥɶɡɨɜɚɬɶ ɩɪɚɤɬɢɱɟɫɤɢɜɫɟɜɨɡɦɨɠɧɨɫɬɢɩɟɪɫɨɧɚɥɶɧɨɝɨɤɨɦɩɶɸɬɟɪɚ ɋɬɪɭɤɬɭɪɧɨɭɱɟɛɧɨɟɩɨɫɨɛɢɟɫɨɫɬɨɢɬɢɡɥɟɤɰɢɨɧɧɨɝɨɤɭɪɫɚ ɨɞɢɧɧɚɞɰɚɬɢ ɬɟɦ ɜɨɩɪɨɫɨɜɢɡɚɞɚɧɢɣɞɥɹɫɚɦɨɫɬɨɹɬɟɥɶɧɨɣɩɨɞɝɨɬɨɜɤɢɨɛɭɱɚɸɳɢɯɫɹɢɰɢɤ ɥɚɥɚɛɨɪɚɬɨɪɧɵɯɪɚɛɨɬ ɜɨɫɟɦɧɚɞɰɚɬɢɪɚɛɨɬ  ȼ ɪɟɡɭɥɶɬɚɬɟ ɢɡɭɱɟɧɢɹ ɞɢɫɰɢɩɥɢɧɵ ©Ⱥɥɝɨɪɢɬɦɢɡɚɰɢɹ ɢ ɩɪɨɝɪɚɦɦɢɪɨɜɚ ɧɢɟªɨɛɭɱɚɸɳɢɟɫɹɞɨɥɠɧɵɩɪɢɨɛɪɟɫɬɢɡɧɚɧɢɹɭɦɟɧɢɹɢɧɚɜɵɤɢɧɟɨɛɯɨɞɢɦɵɟ ɜ ɛɭɞɭɳɟɣ ɩɪɨɮɟɫɫɢɨɧɚɥɶɧɨɣ ɞɟɹɬɟɥɶɧɨɫɬɢ ɞɥɹ ɫɚɦɨɫɬɨɹɬɟɥɶɧɨɝɨ ɪɟɲɟɧɢɹ ɩɪɨɮɟɫɫɢɨɧɚɥɶɧɵɯ ɡɚɞɚɱ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɜɵɱɢɫɥɢɬɟɥɶɧɨɣ ɬɟɯɧɢɤɢ ɢ ɢɧɮɨɪɦɚ ɰɢɨɧɧɵɯɬɟɯɧɨɥɨɝɢɣ Ⱥɜɬɨɪɵ ɜɵɪɚɠɚɸɬ ɢɫɤɪɟɧɧɸɸ ɛɥɚɝɨɞɚɪɧɨɫɬɶ ɪɟɰɟɧɡɟɧɬɚɦ ɩɪɨɮɟɫɫɨɪɚɦ ɈɤɫɚɧɟɇɢɤɨɥɚɟɜɧɟȽɨɧɱɚɪɨɜɨɣɢɌɚɬɶɹɧɟɉɟɬɪɨɜɧɟȽɨɪɞɢɟɧɤɨɡɚɜɧɢɦɚɧɢɟɤ ɭɱɟɛɧɨɦɭɩɨɫɨɛɢɸɰɟɧɧɵɟɫɨɜɟɬɵɡɚɦɟɱɚɧɢɹɢɪɟɤɨɦɟɧɞɚɰɢɢ Ⱥɜɬɨɪɵ ɧɚɞɟɸɬɫɹ ɱɬɨ ɭɱɟɛɧɨɟ ɩɨɫɨɛɢɟ ɛɭɞɟɬ ɩɨɥɟɡɧɨ ɨɛɭɱɚɸɳɢɦɫɹ ɩɨ ɧɚɩɪɚɜɥɟɧɢɸɩɨɞɝɨɬɨɜɤɢ38.03.05 ©Ȼɢɡɧɟɫ-ɢɧɮɨɪɦɚɬɢɤɚª 5
Ɍɟɦɚ 1 ɈɋɇɈȼɇɕȿɋɊȿȾɋɌȼȺəɁɕɄȺ ɉȺɋɄȺɅɖɂȺɅȽɈɊɂɌɆɕɈȻɊȺȻɈɌɄɂ ɋɄȺɅəɊɇɕɏȾȺɇɇɕɏ  əɡɵɤɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹɉɚɫɤɚɥɶ Ɉɞɧɢɦɢɡɧɚɢɛɨɥɟɟɩɨɩɭɥɹɪɧɵɯɫɟɝɨɞɧɹɹɡɵɤɨɜɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹɹɜɥɹ ɟɬɫɹɹɡɵɤɉɚɫɤɚɥɶɈɧɩɨɡɜɨɥɹɟɬɡɚɩɢɫɵɜɚɬɶɤɨɦɚɧɞɵɤɨɦɩɶɸɬɟɪɭɞɥɹɪɟɲɟɧɢɹ ɦɚɬɟɦɚɬɢɱɟɫɤɢɯ ɡɚɞɚɱ ɨɛɪɚɛɨɬɤɢ ɬɟɤɫɬɨɜ ɩɨɫɬɪɨɟɧɢɹ ɢɡɨɛɪɚɠɟɧɢɣ ɧɚ ɷɤɪɚɧɟ ɞɢɫɩɥɟɹ ɉɟɪɜɨɧɚɱɚɥɶɧɨ ɬɚɤɨɟ ɪɚɡɧɨɨɛɪɚɡɢɟ ɫɪɟɞɫɬɜ ɧɟ ɜɯɨɞɢɥɨ ɜ ɫɬɚɧɞɚɪɬ ɹɡɵɤɚɩɪɢɧɹɬɵɣɜɝɨɞɭɋɨɡɞɚɬɟɥɶɉɚɫɤɚɥɹ– ɇɢɤɥɚɭɫȼɢɪɬ– ɩɪɟɞɥɨɠɢɥ ɩɟɪɜɭɸɜɟɪɫɢɸɫɬɪɨɝɨɝɨɩɨɮɨɪɦɟɢɩɪɨɫɬɨɝɨɞɥɹɧɚɩɢɫɚɧɢɹɩɪɨɝɪɚɦɦɹɡɵɤɚɜ ɝɨɞɭɤɨɝɞɚɧɟɫɭɳɟɫɬɜɨɜɚɥɨɩɟɪɫɨɧɚɥɶɧɵɯɤɨɦɩɶɸɬɟɪɨɜɊɟɚɥɢɡɨɜɚɧɧɵɣ ɧɚ ,%0 3& 3DVFDO ɜ ɞɚɥɶɧɟɣɲɟɦ – ɩɪɨɫɬɨ ɉɚɫɤɚɥɶ  ɩɨɡɜɨɥɹɟɬ ɢɫɩɨɥɶɡɨɜɚɬɶ ɩɪɚɤɬɢɱɟɫɤɢɜɫɟɜɨɡɦɨɠɧɨɫɬɢɩɟɪɫɨɧɚɥɶɧɨɝɨɤɨɦɩɶɸɬɟɪɚ Ʉɚɤɤɚɠɞɵɣɹɡɵɤɉɚɫɤɚɥɶɢɦɟɟɬɫɜɨɣɚɥɮɚɜɢɬȼɧɟɝɨɜɯɨɞɹɬɥɚɬɢɧɫɤɢɟ ɛɭɤɜɵ ɰɢɮɪɵ ɨɬ  ɞɨ  ɫɩɟɰɢɚɥɶɧɵɟ ɡɧɚɤɢ  – ɤɪɭɝɥɵɟ ɤɜɚɞɪɚɬɧɵɟ ɢ ɮɢ ɝɭɪɧɵɟɫɤɨɛɤɢɬɨɱɤɚɡɚɩɹɬɚɹɢɞɪɭɝɢɟ ɚɬɚɤɠɟɫɥɭɠɟɛɧɵɟɫɥɨɜɚɹɡɵɤɚ EHJLQ HQGIRUZKLOHɢɞɪɭɝɢɟ ȼɬɟɤɫɬɚɯɩɪɨɝɪɚɦɦɫɥɭɠɟɛɧɵɟɫɥɨɜɚɛɭɞɭɬɜɵɞɟɥɟɧɵ ɠɢɪɧɵɦɲɪɢɮɬɨɦ ɉɪɢ ɫɨɡɞɚɧɢɢ ɢɧɮɨɪɦɚɰɢɨɧɧɨɣ ɦɨɞɟɥɢ ɨɞɢɧ ɢɡ ɨɫɧɨɜɧɵɯ ɷɬɚɩɨɜ – ɢɦɟ ɧɨɜɚɧɢɟɨɛɴɟɤɬɨɜɂɦɹ ɜɉɚɫɤɚɥɟ– ɷɬɨɫɥɨɜɨɢɡɛɭɤɜɰɢɮɪɢɡɧɚɤɨɜɩɨɞɱɟɪɤɢ ɜɚɧɢɹ ɧɚɱɢɧɚɸɳɟɟɫɹ ɫ ɛɭɤɜɵ ȼ ɤɚɱɟɫɬɜɟ ɢɦɟɧɢ ɧɟɥɶɡɹ ɢɫɩɨɥɶɡɨɜɚɬɶ ɫɥɭɠɟɛ ɧɵɟɫɥɨɜɚɄɚɠɞɨɟɢɦɹɫɨɨɬɜɟɬɫɬɜɭɟɬɧɟɤɨɬɨɪɨɣɹɱɟɣɤɟɩɚɦɹɬɢɤɭɞɚɡɚɩɢɫɵɜɚ ɟɬɫɹ ɞɚɧɧɨɟ ɡɧɚɱɟɧɢɟ ɉɨɫɤɨɥɶɤɭ ɜ ɹɱɟɣɤɭ ɦɨɠɧɨ ɡɚɩɢɫɚɬɶ ɨɞɧɨ ɡɚ ɞɪɭɝɢɦ ɫɤɨɥɶɤɨɭɝɨɞɧɨɞɚɧɧɵɯɬɨɢɦɹɬɚɤɠɟɧɚɡɵɜɚɸɬɩɟɪɟɦɟɧɧɨɣ ɢɥɢɢɦɟɧɟɦɩɟɪɟ ɦɟɧɧɨɣ əɱɟɣɤɚ – ɩɨɧɹɬɢɟ ɭɫɥɨɜɧɨɟ ɷɬɨ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ ɪɚɡɧɨɝɨ ɤɨɥɢɱɟ ɫɬɜɚ ɛɚɣɬɨɜ ɩɚɦɹɬɢ ɞɥɹ ɪɚɡɧɵɯ ɞɚɧɧɵɯ Ⱦɥɹ ɰɟɥɵɯ ɱɢɫɟɥ ɜ ɉɚɫɤɚɥɟ ɬɪɟɛɭɟɬɫɹ ɞɜɚ ɛɚɣɬɚ ɞɥɹ ɞɟɣɫɬɜɢɬɟɥɶɧɵɯ – ɲɟɫɬɶ Ʉɚɠɞɵɣ ɫɢɦɜɨɥ ɤɥɚɜɢɚɬɭɪɵ ɡɚɧɢɦɚɟɬ ɨɞɢɧɛɚɣɬɉɨɷɬɨɦɭɞɥɹɤɚɠɞɨɣɩɟɪɟɦɟɧɧɨɣɧɚɞɨɭɤɚɡɚɬɶɟɟɬɢɩɱɬɨɛɵɬɪɚɧɫ ɥɹɬɨɪ ɩɪɨɝɪɚɦɦɚɩɟɪɟɜɨɞɹɳɚɹɫɹɡɵɤɚɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹɧɚɹɡɵɤɦɚɲɢɧɧɵɯ ɤɨɦɚɧɞ ɡɧɚɥɫɤɨɥɶɤɨɦɟɫɬɚɜɩɚɦɹɬɢɨɧɚɛɭɞɟɬɡɚɧɢɦɚɬɶ ɑɢɫɥɚ ɜ ɉɚɫɤɚɥɟ ɪɚɡɥɢɱɚɸɬɫɹ ɤɚɤ ɰɟɥɵɟ ɢ ɞɟɣɫɬɜɢɬɟɥɶɧɵɟ ɜɟɳɟɫɬɜɟɧ ɧɵɟ ɐɟɥɨɟɱɢɫɥɨɩɨɜɧɟɲɧɟɦɭɜɢɞɭɬɚɤɨɟɠɟɤɚɤɨɛɵɱɧɨɡɧɚɤ©ª ɦɨɠɧɨɧɟ ɭɤɚɡɵɜɚɬɶ ȼɟɳɟɫɬɜɟɧɧɵɟ ɱɢɫɥɚ ɧɟɫɦɨɬɪɹ ɧɚ ɨɞɢɧɚɤɨɜɨɟ ɩɪɟɞɫɬɚɜɥɟɧɢɟ ɜ ɩɚ ɦɹɬɢ ɤɨɦɩɶɸɬɟɪɚ ɦɨɝɭɬ ɢɦɟɬɶ ɜɢɞ ɫ ɮɢɤɫɢɪɨɜɚɧɧɨɣ ɢ ɫ ɩɥɚɜɚɸɳɟɣ ɬɨɱɤɨɣ ɑɢɫɥɚ ɫ ɮɢɤɫɢɪɨɜɚɧɧɨɣ ɬɨɱɤɨɣ ɩɨɯɨɠɢ ɧɚ ɞɟɫɹɬɢɱɧɵɟ ɬɨɥɶɤɨ ɰɟɥɚɹ ɱɚɫɬɶ ɨɬ ɞɪɨɛɧɨɣɨɬɞɟɥɹɟɬɫɹɧɟɡɚɩɹɬɨɣɚɬɨɱɤɨɣ––ɑɢɫɥɚɫɩɥɚɜɚɸ ɳɟɣɬɨɱɤɨɣɢɦɟɸɬɝɪɨɦɨɡɞɤɢɣɜɢɞɨɧɢɜɵɜɨɞɹɬɫɹɤɚɤɪɟɡɭɥɶɬɚɬɵɪɚɛɨɬɵɩɪɨ ɝɪɚɦɦɵɈɞɧɚɤɨɤɚɤɩɨɤɚɡɚɧɨɜɨɩɢɫɚɧɢɢɨɩɟɪɚɬɨɪɨɜɜɜɨɞɚ-ɜɵɜɨɞɚɢɯɦɨɠɧɨ 6
ɡɚɦɟɧɢɬɶ ɧɚ ɱɢɫɥɚ ɫ ɮɢɤɫɢɪɨɜɚɧɧɨɣ ɬɨɱɤɨɣ ȿɫɥɢ ɩɪɨɝɪɚɦɦɚ ɜɵɞɚɥɚ ɜɟɳɟ ɫɬɜɟɧɧɨɟɱɢɫɥɨ – 4.987654323ȿ-ɬɨɷɬɨɬɨ ɠɟɫɚɦɨɟɱɬɨ– ɬɟ ɞɟɫɹ ɬɢɱɧɭɸɬɨɱɤɭɧɚɞɨɫɞɜɢɧɭɬɶɜɥɟɜɨɧɚ ɞɜɟɩɨɡɢɰɢɢɋɞɜɢɝɭɤɚɡɚɧɩɨɫɥɟɛɭɤɜɵȿ ɜɡɚɩɢɫɢɱɢɫɥɚɜɩɪɚɜɨɟɫɥɢɩɨɫɥɟȿɩɥɸɫɢɜɥɟɜɨɟɫɥɢɦɢɧɭɫ Ⱦɥɹ ɪɚɛɨɬɵ ɫ ɱɢɫɥɚɦɢ ɢɫɩɨɥɶɡɭɸɬɫɹ ɲɟɫɬɶ ɨɩɟɪɚɰɢɣ «+ª – ɫɥɨɠɟɧɢɟ «–ª– ɜɵɱɢɬɚɧɢɟ«/ª – ɞɟɥɟɧɢɟ«*ª – ɭɦɧɨɠɟɧɢɟ«modª – ɧɚɯɨɠɞɟɧɢɟɨɫɬɚɬɤɚ ɨɬ ɞɟɥɟɧɢɹ  ɢ  «divª – ɞɟɥɟɧɢɟ ɧɚɰɟɥɨ ɇɚɯɨɞɢɬɶ ɨɫɬɚɬɨɤ ɨɬ ɞɟɥɟɧɢɹ ɢ ɞɟɥɢɬɶ ɧɚɰɟɥɨɦɨɠɧɨɬɨɥɶɤɨɰɟɥɵɟɱɢɫɥɚ ɂɡ ɢɦɟɧ ɱɢɫɟɥ ɡɧɚɤɨɜ ɚɪɢɮɦɟɬɢɱɟɫɤɢɯ ɞɟɣɫɬɜɢɣ ɢ ɦɚɬɟɦɚɬɢɱɟɫɤɢɯ ɮɭɧɤɰɢɣ ɤɨɧɫɬɪɭɢɪɭɸɬɫɹ ɚɪɢɮɦɟɬɢɱɟɫɤɢɟ ɜɵɪɚɠɟɧɢɹ Ⱦɥɹ ɭɤɚɡɚɧɢɹ ɩɨɪɹɞɤɚ ɞɟɣɫɬɜɢɣ ɢɫɩɨɥɶɡɭɸɬɫɹ ɬɨɥɶɤɨ ɤɪɭɝɥɵɟ ɫɤɨɛɤɢ ɢɯ ɦɨɠɟɬ ɛɵɬɶ ɧɟɫɤɨɥɶɤɨ ɝɥɚɜɧɨɟ ɱɬɨɛɵ ɤɨɥɢɱɟɫɬɜɨ ɨɬɤɪɵɜɚɸɳɢɯ ɫɤɨɛɨɤ ɪɚɜɧɹɥɨɫɶ ɤɨɥɢɱɟɫɬɜɭ ɡɚɤɪɵ ɜɚɸɳɢɯ Ɇɚɬɟɦɚɬɢɱɟɫɤɢɟ ɮɭɧɤɰɢɢ ɉɚɫɤɚɥɹ ɜɨ ɦɧɨɝɨɦ ɫɨɜɩɚɞɚɸɬ ɫ ɨɛɳɟɩɪɢ ɧɹɬɵɦɢsin(x) cos(x) ln(x)Ⱦɥɹɜɨɡɜɟɞɟɧɢɹɚɪɝɭɦɟɧɬɚɜɤɜɚɞɪɚɬɢɫɩɨɥɶɡɭɟɬɫɹ sqr(x)ɞɥɹɢɡɜɥɟɱɟɧɢɹɤɜɚɞɪɚɬɧɨɝɨɤɨɪɧɹ sqrt(x)ɚɦɨɞɭɥɶɨɛɨɡɧɚɱɚɟɬɫɹabs(x). ȼɤɚɱɟɫɬɜɟɚɪɝɭɦɟɧɬɚɤɚɠɞɨɣɮɭɧɤɰɢɢɦɨɠɟɬɛɵɬɶɚɪɢɮɦɟɬɢɱɟɫɤɨɟɜɵɪɚɠɟɧɢɟ ɈɩɟɪɚɬɨɪɩɪɢɫɜɚɢɜɚɧɢɹȺɥɝɨɪɢɬɦɩɪɟɨɛɪɚɡɨɜɚɧɢɹɞɚɧɧɵɯɧɚɉɚɫɤɚɥɟ ɫɨɫɬɨɢɬɢɡɨɩɟɪɚɬɨɪɨɜ– ɭɤɪɭɩɧɟɧɧɵɯɤɨɦɚɧɞɄɚɠɞɵɣɨɩɟɪɚɬɨɪɩɪɟɨɛɪɚɡɭɟɬɫɹ ɬɪɚɧɫɥɹɬɨɪɨɦɜɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɦɚɲɢɧɧɵɯɤɨɦɚɧɞɈɫɧɨɜɧɨɟɩɪɟɨɛɪɚɡɨɜɚ ɧɢɟ ɞɚɧɧɵɯ ɜɵɩɨɥɧɹɟɦɨɟ ɤɨɦɩɶɸɬɟɪɨɦ – ɩɪɢɫɜɚɢɜɚɧɢɟ ɩɟɪɟɦɟɧɧɨɣ ɧɨɜɨɝɨ ɡɧɚɱɟɧɢɹɈɛɳɢɣɜɢɞɨɩɟɪɚɬɨɪɚɩɪɢɫɜɚɢɜɚɧɢɹ ɢɦɹɩɟɪɟɦɟɧɧɨɣ ɚɪɢɮɦɟɬɢɱɟɫɤɨɟɜɵɪɚɠɟɧɢɟ  ȼɞɚɥɶɧɟɣɲɟɦɛɭɞɟɬɩɨɤɚɡɚɧɨɱɬɨɫɩɪɚɜɚɦɨɠɟɬɫɬɨɹɬɶɢɜɵɪɚɠɟɧɢɟɞɪɭ ɝɨɝɨ ɬɢɩɚ Ɂɧɚɤ  © ª ɱɢɬɚɟɬɫɹ ©ɩɪɢɫɜɨɢɬɶª Ɍɨɱɤɚ ɫ ɡɚɩɹɬɨɣ ɜ ɤɨɧɰɟ ɡɚɩɢɫɢ ɨɩɟɪɚɬɨɪɚɹɜɥɹɟɬɫɹɨɛɹɡɚɬɟɥɶɧɨɣ ɉɪɢ ɜɵɩɨɥɧɟɧɢɢ ɨɩɟɪɚɬɨɪɚ ɩɪɢɫɜɚɢɜɚɧɢɹ ɪɚɫɫɦɚɬɪɢɜɚɟɬɫɹ ɚɪɢɮɦɟɬɢɱɟ ɫɤɨɟɜɵɪɚɠɟɧɢɟɢɡɹɱɟɟɤɨɩɟɪɚɬɢɜɧɨɣɩɚɦɹɬɢɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯɫɬɨɹɳɢɦɬɚɦ ɢɦɟɧɚɦɫɱɢɬɵɜɚɸɬɫɹɡɧɚɱɟɧɢɹɜɩɪɨɰɟɫɫɨɪɢɜɵɩɨɥɧɹɸɬɫɹɭɤɚɡɚɧɧɵɟɞɟɣɫɬɜɢɹ ɧɚɞ ɞɚɧɧɵɦɢɉɨɥɭɱɟɧɧɵɣɪɟɡɭɥɶɬɚɬɡɚɩɢɫɵɜɚɟɬɫɹɜɹɱɟɣɤɭɩɚɦɹɬɢɢɦɹɤɨɬɨ ɪɨɣɭɤɚɡɚɧɨɫɥɟɜɚɨɬɡɧɚɤɚɩɪɢɫɜɚɢɜɚɧɢɹ ɉɪɢɦɟɪɵɨɩɟɪɚɬɨɪɚɩɪɢɫɜɚɢɜɚɧɢɹ [ ^ɩɟɪɟɦɟɧɧɨɣɯɩɪɢɫɜɨɢɬɶɡɧɚɱɟɧɢɟ` D EF^ɢɡɹɱɟɟɤɜɢɫɫɱɢɬɵɜɚɸɬɫɹɡɚɪɚɧɟɟɩɨɦɟɳɟɧɧɵɟɬɭɞɚɞɚɧɧɵɟ ɜɵɱɢɫɥɹɟɬɫɹɫɭɦɦɚɪɟɡɭɥɶɬɚɬɡɚɩɢɫɵɜɚɟɬɫɹɜɹɱɟɣɤɭɚ` L L^ɡɧɚɱɟɧɢɟɩɟɪɟɦɟɧɧɨɣɭɜɟɥɢɱɢɜɚɟɬɫɹɧɚɟɞɢɧɢɰɭ` Ⱦɥɹ ɬɢɩɨɜ ɩɟɪɟɦɟɧɧɨɣ ɫɥɟɜɚ ɢ ɚɪɢɮɦɟɬɢɱɟɫɤɨɝɨ ɜɵɪɚɠɟɧɢɹ ɫɩɪɚɜɚ ɨɬ ɡɧɚɤɚɩɪɢɫɜɚɢɜɚɧɢɹɫɭɳɟɫɬɜɭɸɬɨɝɪɚɧɢɱɟɧɢɹ   ɟɫɥɢ ɩɟɪɟɦɟɧɧɚɹ ɫɥɟɜɚ – ɜɟɳɟɫɬɜɟɧɧɨɝɨ ɬɢɩɚ ɬɨ ɚɪɢɮɦɟɬɢɱɟɫɤɨɟ ɜɵ ɪɚɠɟɧɢɟɦɨɠɟɬɛɵɬɶɤɚɤɰɟɥɨɝɨɬɚɤɢɜɟɳɟɫɬɜɟɧɧɨɝɨɬɢɩɚɬɟ ɫɨɞɟɪɠɚɬɶɥɢɛɨ ɰɟɥɵɟɩɟɪɟɦɟɧɧɵɟɢɞɨɩɭɫɬɢɦɵɟɞɥɹɧɢɯɨɩɟɪɚɰɢɢɥɢɛɨɜɟɳɟɫɬɜɟɧɧɵɟɥɢɛɨɢ ɬɟɢɞɪɭɝɢɟ ɬɨɝɞɚɜɵɪɚɠɟɧɢɟɩɪɟɨɛɪɚɡɭɟɬɫɹɤɜɟɳɟɫɬɜɟɧɧɨɦɭɬɢɩɭ  7
 ɟɫɥɢɩɟɪɟɦɟɧɧɚɹɫɥɟɜɚ– ɰɟɥɨɝɨɬɢɩɚɬɨɚɪɢɮɦɟɬɢɱɟɫɤɨɟɜɵɪɚɠɟɧɢɟ – ɬɨɥɶɤɨɰɟɥɨɱɢɫɥɟɧɧɨɟ ɗɬɨɨɡɧɚɱɚɟɬɱɬɨɦɨɠɧɨɧɚɩɪɢɦɟɪɜɟɳɟɫɬɜɟɧɧɨɣɩɟɪɟɦɟɧɧɨɣɩɪɢɫɜɨɢɬɶ ɰɟɥɨɟ ɡɧɚɱɟɧɢɟ ȼ ɩɚɦɹɬɢ ɤɨɦɩɶɸɬɟɪɚ ɨɧɨ ɛɭɞɟɬ ɩɪɟɨɛɪɚɡɨɜɚɧɨ ɤ ɜɟɳɟɫɬɜɟɧ ɧɨɦɭɬɢɩɭȼɮɢɝɭɪɧɵɯɫɤɨɛɤɚɯɪɹɞɨɦɫɨɩɟɪɚɬɨɪɨɦɩɨɦɟɳɚɟɬɫɹɤɨɦɦɟɧɬɚɪɢɣ ɟɝɨɞɟɣɫɬɜɢɣ ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ Ʉɬɨɩɪɢɞɭɦɚɥ ɹɡɵɤɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹɉɚɫɤɚɥɶ" ɑɬɨɜɯɨɞɢɬɜɫɨɫɬɚɜɚɥɮɚɜɢɬɚɉɚɫɤɚɥɹ" ɉɨɱɟɦɭɉɚɫɤɚɥɶɪɚɡɥɢɱɚɟɬɰɟɥɵɟɢɜɟɳɟɫɬɜɟɧɧɵɟɱɢɫɥɚ" ɑɬɨɬɚɤɨɟɚɪɢɮɦɟɬɢɱɟɫɤɨɟɜɵɪɚɠɟɧɢɟɢɡɱɟɝɨɨɧɨɦɨɠɟɬɫɨɫɬɨɹɬɶ" Ʉɚɤ ɪɚɛɨɬɚɟɬɨɩɟɪɚɬɨɪɩɪɢɫɜɚɢɜɚɧɢɹ" Ʉɚɤɢɟɨɝɪɚɧɢɱɟɧɢɹɧɚɤɥɚɞɵɜɚɟɬɉɚɫɤɚɥɶɧɚɬɢɩɵɞɚɧɧɵɯɩɪɢɩɪɢɫɜɚɢ ɜɚɧɢɢ" 7ɑɬɨɬɚɤɨɟɬɪɚɧɫɥɹɬɨɪ" 8Ɂɚɩɢɲɢɬɟɜɜɢɞɟɚɪɢɮɦɟɬɢɱɟɫɤɨɝɨɜɵɪɚɠɟɧɢɹɤɜɚɞɪɚɬɧɵɣɬɪɟɯɱɥɟɧ. 9ɁɚɩɢɲɢɬɟɧɚɉɚɫɤɚɥɟWJ[OJ[[4.  ɋɬɪɭɤɬɭɪɚɩɪɨɝɪɚɦɦɵɧɚɉɚɫɤɚɥɟ ȼɜɨɞɢɜɵɜɨɞɞɚɧɧɵɯ ɉɪɨɝɪɚɦɦɚ ɧɚ ɉɚɫɤɚɥɟ ɫɨɫɬɨɢɬ ɢɡ ɞɜɭɯ ɱɚɫɬɟɣ ɨɩɢɫɚɧɢɹ ɢɫɩɨɥɶɡɭɟɦɵɯ ɞɚɧɧɵɯ ɢ ɨɩɟɪɚɬɨɪɨɜ ɩɨ ɢɯ ɩɪɟɨɛɪɚɡɨɜɚɧɢɸ ȼɬɨɪɚɹ ɱɚɫɬɶ ɬɚɤɠɟ ɧɚɡɵɜɚɟɬɫɹ ɩɪɨɝɪɚɦɦɧɵɦɛɥɨɤɨɦ Ɉɛɳɢɣɜɢɞɩɪɨɝɪɚɦɦɵ program ɢɦɹɩɪɨɝɪɚɦɦɵ label {ɫɩɢɫɨɤɦɟɬɨɤ}; const {ɫɩɢɫɨɤɩɨɫɬɨɹɧɧɵɯɡɧɚɱɟɧɢɣ}; type {ɨɩɢɫɚɧɢɹɫɥɨɠɧɵɯɬɢɩɨɜɞɚɧɧɵɯ}; var {ɨɩɢɫɚɧɢɹɞɚɧɧɵɯɩɪɨɝɪɚɦɦɵ}; begin {ɧɚɱɚɥɨɩɪɨɝɪɚɦɦɧɨɝɨɛɥɨɤɚ} {ɚɥɝɨɪɢɬɦ} HQG^ɤɨɧɟɰɩɪɨɝɪɚɦɦɵ} ɂɦɹ ɩɪɨɝɪɚɦɦɵ ɫɨɞɟɪɠɢɬ ɧɟ ɛɨɥɟɟ  ɡɧɚɤɨɜ ɧɚɱɢɧɚɟɬɫɹ ɫ ɛɭɤɜɵ ɢ ɫɨ ɞɟɪɠɢɬɛɭɤɜɵɰɢɮɪɵɢɡɧɚɤɢɩɨɞɱɟɪɤɢɜɚɧɢɹɉɪɨɝɪɚɦɦɚɧɚɱɢɧɚɟɬɫɹɫɨɫɥɨɜɚ program ɢɡɚɤɚɧɱɢɜɚɟɬɫɹɫɥɨɜɨɦend ɫɬɨɱɤɨɣɈɩɟɪɚɬɨɪɵɪɚɡɞɟɥɵɢɨɩɢɫɚɧɢɹ ɪɚɡɞɟɥɨɜɡɚɤɚɧɱɢɜɚɸɬɫɹɬɨɱɤɨɣɫ ɡɚɩɹɬɨɣ Ɉɩɢɫɚɬɟɥɶɧɚɹ ɱɚɫɬɶ ɩɪɨɝɪɚɦɦɵ ɫɨɫɬɨɢɬ ɢɡ ɱɟɬɵɪɟɯ ɪɚɡɞɟɥɨɜ Ɋɚɡɞɟɥ ɦɟ ɬɨɤ label ɪɚɡɞɟɥ ɤɨɧɫɬɚɧɬ const ɢ ɪɚɡɞɟɥ ɬɢɩɨɜ type ɂɯ ɢɫɩɨɥɶɡɨɜɚɧɢɟ ɛɭɞɟɬ 8
ɪɚɫɫɦɨɬɪɟɧɨ ɜ ɞɚɥɶɧɟɣɲɟɦ ɩɨ ɦɟɪɟ ɧɟɨɛɯɨɞɢɦɨɫɬɢ Ɉɫɧɨɜɧɵɦ ɢɡ ɷɬɢɯ ɪɚɡɞɟ ɥɨɜ ɹɜɥɹɟɬɫɹ ɪɚɡɞɟɥ ɩɟɪɟɦɟɧɧɵɯ var ȼ ɧɟɦ ɭɤɚɡɵɜɚɸɬɫɹ ɢɦɟɧɚ ɩɟɪɟɦɟɧɧɵɯ ɢɫɩɨɥɶɡɭɟɦɵɯɜɩɪɨɝɪɚɦɦɟ ɢɢɯɬɢɩȾɥɹɱɢɫɥɨɜɵɯɞɚɧɧɵɯɢɫɩɨɥɶɡɭɸɬɫɹ ɨɫ ɧɨɜɧɵɟ ɨɩɢɫɚɬɟɥɢ ɬɢɩɨɜ integer ɰɟɥɵɣ  ɢ real ɜɟɳɟɫɬɜɟɧɧɵɣ  ɇɚɩɪɢɦɟɪ ɜ ɩɪɨɝɪɚɦɦɟɢɫɩɨɥɶɡɭɸɬɫɹɞɜɟɰɟɥɨɱɢɫɥɟɧɧɵɟɩɟɪɟɦɟɧɧɵɟɢɨɞɧɚɜɟɳɟɫɬɜɟɧɧɚɹ Ɋɚɡɞɟɥɩɟɪɟɦɟɧɧɵɯɦɨɠɟɬɢɦɟɬɶɜɢɞ var i,j :integer; x: real; ɂɦɟɧɚɩɟɪɟɦɟɧɧɵɯɨɞɧɨɝɨɬɢɩɚɩɟɪɟɱɢɫɥɹɸɬɫɹɱɟɪɟɡɡɚɩɹɬɭɸɡɚɬɟɦɩɨ ɫɥɟ ɞɜɨɟɬɨɱɢɹ ɭɤɚɡɵɜɚɟɬɫɹ ɢɯ ɬɢɩ Ɉɩɢɫɚɧɢɟ ɤɚɠɞɨɝɨ ɬɢɩɚ ɡɚɤɚɧɱɢɜɚɟɬɫɹ ɬɨɱ ɤɨɣɫɡɚɩɹɬɨɣɄɨɝɞɚɩɪɢɩɟɪɟɜɨɞɟɧɚɹɡɵɤɦɚɲɢɧɧɵɯ ɤɨɞɨɜɬɪɚɧɫɥɹɬɨɪɜɫɬɪɟ ɱɚɟɬ ɨɩɢɫɚɧɢɟ ɩɟɪɟɦɟɧɧɨɣ ɨɧ ɨɬɜɨɞɢɬ ɞɥɹ ɷɬɨɣ ɩɟɪɟɦɟɧɧɨɣ ɹɱɟɣɤɭ ɩɚɦɹɬɢ ɢ ɫɬɚɜɢɬɜɫɨɨɬɜɟɬɫɬɜɢɟɢɦɟɧɢɩɟɪɟɦɟɧɧɨɣɧɨɦɟɪɩɟɪɜɨɝɨɛɚɣɬɚɹɱɟɣɤɢ ɉɪɨɝɪɚɦɦɧɵɣ ɛɥɨɤ ɫɨɞɟɪɠɢɬ ɨɩɟɪɚɬɨɪɵ ɨɩɢɫɵɜɚɸɳɢɟ ɚɥɝɨɪɢɬɦ ɪɟɲɟ ɧɢɹɡɚɞɚɱɢ Ⱦɥɹɫɨɨɛɳɟɧɢɹɞɚɧɧɵɯɤɨɦɩɶɸɬɟɪɭɢɫɩɨɥɶɡɭɸɬɫɹɨɩɟɪɚɬɨɪɵɜɜɨɞɚɢɜɵ ɜɨɞɚ Ɉɩɟɪɚɬɨɪ ɜɜɨɞɚ ɩɨɦɟɳɚɟɬ ɜɜɨɞɢɦɨɟ ɡɧɚɱɟɧɢɟ ɩɟɪɟɦɟɧɧɨɣ ɜ ɨɬɜɟɞɟɧɧɭɸ ɞɥɹɧɟɟɹɱɟɣɤɭɈɩɟɪɚɬɨɪɜɜɨɞɚ read ɫɩɢɫɨɤɢɦɟɧ  Ɉɩɟɪɚɬɨɪ read ɱɢɬɚɬɶ  ɨɫɬɚɧɚɜɥɢɜɚɟɬ ɪɚɛɨɬɭ ɩɪɨɝɪɚɦɦɵ ɢ ɠɞɟɬ ɩɨɤɚ ɩɨɥɶɡɨɜɚɬɟɥɶ ɧɚɛɟɪɟɬ ɧɚ ɤɥɚɜɢɚɬɭɪɟ ɱɢɫɥɨ ɢ ɧɚɠɦɟɬ Enter ȼɜɟɞɟɧɧɨɟ ɱɢɫɥɨ ɩɨɦɟɳɚɟɬɫɹ ɜ ɨɩɟɪɚɬɢɜɧɭɸ ɩɚɦɹɬɶ ɜ ɨɬɜɟɞɟɧɧɭɸ ɹɱɟɣɤɭ ȿɫɥɢ ɫɩɢɫɨɤ ɜɜɨɞɚ ɫɨɞɟɪɠɢɬ ɧɟɫɤɨɥɶɤɨ ɢɦɟɧ ɬɨ ɞɥɹ ɤɚɠɞɨɝɨ ɧɚɞɨ ɜɜɟɫɬɢ ɫɜɨɟ ɡɧɚɱɟɧɢɟ ɑɢɫɥɚ ɜɜɨɞɹɬɫɹ ɢɥɢ ɱɟɪɟɡ ɩɪɨɛɟɥ ɢɥɢ ɱɟɪɟɡ ɡɚɩɹɬɭɸ ɢɥɢ ɞɥɹ ɤɚɠɞɨɝɨ ɧɚɠɢɦɚɟɬɫɹ Enterɇɚɩɪɢɦɟɪ read (LM); ɬɪɟɛɭɟɬ ɜɜɨɞɚ ɞɜɭɯ ɰɟɥɵɯ ɱɢɫɟɥ ɉɨɫɥɟ ɪɚɛɨɬɵ ɷɬɨɝɨ ɨɩɟɪɚɬɨɪɚ ɤɭɪɫɨɪ ɪɚɫɩɨɥɨɠɟɧ ɩɨɫɥɟ ɩɨɫɥɟɞɧɟɝɨ ɱɢɫɥɚ ɨɧ ɧɟ ɩɟɪɟɜɨɞɢɬɫɹ ɧɚ ɧɨɜɭɸ ɫɬɪɨɤɭ Ⱦɥɹ ɩɟɪɟɜɨɞɚɤɭɪɫɨɪɚɧɚɧɨɜɭɸɫɬɪɨɤɭɷɤɪɚɧɚɞɢɫɩɥɟɹɩɨɫɥɟɜɜɨɞɚɞɚɧɧɵɯ ɧɚɞɨɢɫ ɩɨɥɶɡɨɜɚɬɶɨɩɟɪɚɬɨɪ readln ɫɩɢɫɨɤɢɦɟɧ) Ⱦɥɹɜɵɜɨɞɚɪɟɡɭɥɶɬɚɬɨɜɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɧɚɷɤɪɚɧɞɢɫɩɥɟɹɫɥɭɠɢɬɨɩɟ ɪɚɬɨɪ write ɫɩɢɫɨɤɜɵɜɨɞɚ  Ɉɩɟɪɚɬɨɪwrite ɩɢɫɚɬɶ ɜɵɜɨɞɢɬɞɚɧɧɵɟɧɚɷɤɪɚɧɞɢɫɩɥɟɹɋɩɢɫɨɤɜɵɜɨ ɞɚ– ɩɟɪɟɱɢɫɥɟɧɧɵɟɱɟɪɟɡɡɚɩɹɬɭɸɢɦɟɧɚɪɟɡɭɥɶɬɚɬɨɜɢɥɢɚɪɢɮɦɟɬɢɱɟɫɤɢɟɜɵ ɪɚɠɟɧɢɹɹɜɥɹɸɳɢɟɫɹɪɟɡɭɥɶɬɚɬɨɦɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɌɚɤɠɟɜɫɩɢɫɨɤɜɵɜɨɞɚ ɞɥɹɩɨɹɫɧɟɧɢɹɜɯɨɞɹɬɡɚɤɥɸɱɟɧɧɵɟɜɚɩɨɫɬɪɨɮɵɬɟɤɫɬɵ 9
ɇɚɩɪɢɦɟɪ write µ[ µ[  ɗɬɨɬɨɩɟɪɚɬɨɪɧɚɩɟɱɚɬɚɟɬɧɚɷɤɪɚɧɟɧɚɱɢɧɚɹɫɬɨɣɩɨɡɢɰɢɢɝɞɟɧɚɯɨɞɢɬ ɫɹɱɢɫɥɨɬɟɤɫɬɡɚɤɥɸɱɟɧɧɵɣɦɟɠɞɭɚɩɨɫɬɪɨɮɚɦɢɢɡɧɚɱɟɧɢɟɩɟɪɟɦɟɧɧɨɣɯɢɡ ɨɩɟɪɚɬɢɜɧɨɣɩɚɦɹɬɢɁɧɚɱɟɧɢɟɛɭɞɟɬɜɵɜɟɞɟɧɨɜɮɨɪɦɟɜɟɳɟɫɬɜɟɧɧɨɝɨɱɢɫɥɚɫ ɩɥɚɜɚɸɳɟɣɬɨɱɤɨɣȾɥɹɬɨɝɨɱɬɨɛɵɱɢɫɥɨɛɵɥɨɜɵɜɟɞɟɧɨɜɮɨɪɦɟɫɮɢɤɫɢɪɨ ɜɚɧɧɨɣɬɨɱɤɨɣɩɨɫɥɟɢɦɟɧɢɫɨɨɬɜɟɬɫɬɜɭɸɳɟɣɩɟɪɟɦɟɧɧɨɣɧɚɞɨɭɤɚɡɚɬɶɞɜɚɰɟ ɥɵɯ ɱɢɫɥɚ ɨɬɞɟɥɢɜ ɤɚɠɞɨɟ ɞɜɨɟɬɨɱɢɟɦ ɉɟɪɜɨɟ ɢɡ ɷɬɢɯ ɱɢɫɟɥ ɩɨɤɚɡɵɜɚɟɬ ɫɤɨɥɶɤɨ ɩɨɡɢɰɢɣ ɡɚɧɢɦɚɟɬ ɱɢɫɥɨ ɜɤɥɸɱɚɹ ɞɟɫɹɬɢɱɧɭɸ ɬɨɱɤɭ ɢ ɡɧɚɤ ɱɢɫɥɚ  ȼɬɨɪɨɟ – ɩɨɤɚɡɵɜɚɟɬɤɨɥɢɱɟɫɬɜɨɰɢɮɪɞɪɨɛɧɨɣɱɚɫɬɢɱɢɫɥɚɇɚɩɪɢɦɟɪɞɥɹɩɟ ɱɚɬɢɱɢɫɥɚ-ɤɚɤɡɧɚɱɟɧɢɹɩɟɪɟɦɟɧɧɨɣɯɨɩɟɪɚɬɨɪɩɟɱɚɬɢɩɪɢɦɟɬɜɢɞ write µ[ µ[  ɇɚɷɤɪɚɧɛɭɞɟɬɜɵɞɚɧɨ ɯ –23.57 Ⱦɥɹ ɩɟɪɟɜɨɞɚ ɤɭɪɫɨɪɚ ɧɚ ɧɨɜɭɸ ɫɬɪɨɤɭ ɢɫɩɨɥɶɡɭɟɬɫɹ ɨɩɟɪɚɬɨɪ ɩɭɫɬɨɝɨ ɜɵɜɨɞɚ writeln; ȿɫɥɢɧɚɞɨ ɩɟɪɟɜɟɫɬɢɤɭɪɫɨɪɩɨɫɥɟɩɟɱɚɬɢɢɫɩɨɥɶɡɭɟɬɫɹ writeln ɫɩɢɫɨɤɜɵɜɨɞɚ  ɉɨɫɥɟɜɵɜɨɞɚɪɟɡɭɥɶɬɚɬɨɜɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɧɚɷɤɪɚɧɜ7XUER3DVFDOɫɢ ɫɬɟɦɚ ɬɚɤ ɛɵɫɬɪɨ ɜɨɡɜɪɚɳɚɟɬɫɹ ɜ ɪɟɞɚɤɬɨɪ ɬɟɤɫɬɨɜ ɩɪɨɝɪɚɦɦɵ ɱɬɨ ɩɨɥɶɡɨɜɚ ɬɟɥɶɧɟɭɫɩɟɜɚɟɬɭɜɢɞɟɬɶɷɬɢɪɟɡɭɥɶɬɚɬɵȾɥɹ ɬɨɝɨɱɬɨɛɵɡɚɞɟɪɠɚɬɶɢɡɨɛɪɚɠɟ ɧɢɟɜɤɨɧɰɟɩɪɨɝɪɚɦɦɵɫɬɚɜɹɬ ɨɩɟɪɚɬɨɪɩɭɫɬɨɝɨɜɜɨɞɚ readln; Ɋɚɫɫɦɨɬɪɢɦ ɩɪɢɦɟɪ ɩɪɨɝɪɚɦɦɵ ɉɭɫɬɶ ɬɪɟɛɭɟɬɫɹ ɧɚɣɬɢ ɫɭɦɦɭ ɩɪɨɢɡɜɟ ɞɟɧɢɟɢɪɚɡɧɨɫɬɶɞɜɭɯɞɚɧɧɵɯɱɢɫɟɥȾɥɹɤɚɠɞɨɝɨɢɡɱɢɫɟɥɧɚɞɨɩɪɢɞɭɦɚɬɶɢɦɹ ɩɟɪɟɦɟɧɧɨɣ ɢ ɭɤɚɡɚɬɶ ɟɟ ɬɢɩ Ɂɚɬɟɦ ɜɜɟɫɬɢ ɷɬɢ ɱɢɫɥɚ ɜ ɨɬɜɟɞɟɧɧɵɟ ɹɱɟɣɤɢ ɢ ɢɫɩɨɥɶɡɭɹ ɜɨɡɦɨɠɧɨɫɬɶ ɨɩɟɪɚɬɨɪɚ ɜɵɜɨɞɚ ɫɨɞɟɪɠɚɬɶ ɚɪɢɮɦɟɬɢɱɟɫɤɨɟ ɜɵɪɚɠɟ ɧɢɟɧɚɩɟɱɚɬɚɬɶɪɟɡɭɥɶɬɚɬɵ program ( var DEreal begin write µɜɜɟɞɢɬɟɞɜɚɱɢɫɥɚɱɟɪɟɡɩɪɨɛɟɥɡɚɬɟɦɧɚɠɦɢɬɟ(QWHU¶  readln DE  10
write µDE µDEµD E µD EµD-E µD-E  readln end. ɋɥɭɠɟɛɧɵɟ ɫɥɨɜɚ ɉɚɫɤɚɥɹ ɜɵɞɟɥɟɧɵ ɠɢɪɧɵɦ ɲɪɢɮɬɨɦ ɧɚ ɩɢɫɶɦɟ ɨɧɢ ɩɨɞɱɟɪɤɢɜɚɸɬɫɹɉɪɢɧɚɛɨɪɟɬɟɤɫɬɚɩɪɨɝɪɚɦɦɵɧɚɤɥɚɜɢɚɬɭɪɟɨɧɢɧɢɤɚɤɧɟɜɵ ɞɟɥɹɸɬɫɹ ɢɯ ɪɚɡɥɢɱɚɟɬ ɬɪɚɧɫɥɹɬɨɪ ɫɢɧɨɧɢɦ – ɤɨɦɩɢɥɹɬɨɪ  ɉɨɷɬɨɦɭ ɫɥɭɠɟɛ ɧɵɟɫɥɨɜɚɧɟɥɶɡɹɢɫɩɨɥɶɡɨɜɚɬɶɜɤɚɱɟɫɬɜɟɢɦɟɧɉɟɪɜɵɣɨɩɟɪɚɬɨɪɩɪɨɝɪɚɦɦɧɨ ɝɨɛɥɨɤɚɜɵɜɨɞɢɬɧɚɷɤɪɚɧɩɨɞɫɤɚɡɤɭɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹɱɬɨɨɧɞɨɥɠɟɧɫɞɟɥɚɬɶ Ⱦɥɹɜɜɨɞɚɞɚɧɧɵɯɪɟɤɨɦɟɧɞɭɟɬɫɹɞɟɥɚɬɶɩɨɞɨɛɧɵɟɩɨɞɫɤɚɡɤɢ ɉɪɢ ɪɟɲɟɧɢɢ ɡɚɞɚɱ ɢɦɟɧɚ ɩɪɢɫɜɚɢɜɚɸɬɫɹ ɧɟ ɬɨɥɶɤɨ ɢɫɯɨɞɧɵɦ ɞɚɧɧɵɦ ɧɨɢɪɟɡɭɥɶɬɚɬɚɦɚɬɚɤɠɟɩɨɥɭɱɚɟɦɵɦɩɪɨɦɟɠɭɬɨɱɧɵɦɡɧɚɱɟɧɢɹɦɉɨɫɤɨɥɶɤɭ ɜɪɚɫɫɦɚɬɪɢɜɚɟɦɨɦɩɪɢɦɟɪɟɧɚɞɨɩɨɥɭɱɢɬɶɬɪɢɪɟɡɭɥɶɬɚɬɚɜɜɟɞɟɦɞɥɹɧɢɯɩɟ ɪɟɦɟɧɧɵɟ [ y z ȼ ɩɪɨɝɪɚɦɦɟ ɷɬɢɦ ɩɟɪɟɦɟɧɧɵɦ ɛɭɞɭɬ ɩɪɢɫɜɨɟɧɵ ɡɧɚɱɟɧɢɹ ɫɭɦɦɵɩɪɨɢɡɜɟɞɟɧɢɹɢɪɚɡɧɨɫɬɢɞɜɭɯɜɜɨɞɢɦɵɯɱɢɫɟɥ program ( var DE[\]real begin write µɜɜɟɞɢɬɟɞɜɚɱɢɫɥɚɱɟɪɟɡɩɪɨɛɟɥɡɚɬɟɦɧɚɠɦɢɬɟ(QWHU¶  readln DE  [ DE \ D E ] D- E write µDE µ[µD E µ\µD-E µ]  readln end. ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ Ⱦɥɹɱɟɝɨɧɟɨɛɯɨɞɢɦɨɨɩɢɫɵɜɚɬɶɞɚɧɧɵɟɜɩɪɨɝɪɚɦɦɟ" Ʉɚɤɨɩɢɫɚɬɶɩɟɪɟɦɟɧɧɵɟɨɞɧɨɝɨɬɢɩɚɧɚɩɪɢɦɟɪɜɟɳɟɫɬɜɟɧɧɨɝɨ" Ʉɚɤɨɣɨɩɟɪɚɬɨɪɢɫɩɨɥɶɡɭɟɬɫɹɞɥɹɜɜɨɞɚɞɚɧɧɵɯ"Ʉɚɤɨɧɪɚɛɨɬɚɟɬ"  Ʉɭɞɚ ɩɨɩɚɞɚɸɬ ɜɜɟɞɟɧɧɵɟ ɫ ɤɥɚɜɢɚɬɭɪɵ ɱɢɫɥɚ ɩɪɢ ɪɚɛɨɬɟ ɨɩɟɪɚɬɨɪɚ ɜɜɨɞɚ" Ʉɚɤɩɟɪɟɜɟɫɬɢɤɭɪɫɨɪɧɚɧɨɜɭɸɫɬɪɨɤɭɩɨɫɥɟɜɜɨɞɚɞɚɧɧɵɯ" Ʉɚɤɜɵɜɟɫɬɢɪɟɡɭɥɶɬɚɬɵɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɧɚɷɤɪɚɧɞɢɫɩɥɟɹ" Ʉɚɤɫɞɟɥɚɬɶ ɬɚɤɱɬɨɛɵɜɵɜɨɞɞɚɧɧɵɯɛɵɥɫɧɨɜɨɣɫɬɪɨɤɢ"  Ʉɚɤ ɭɜɢɞɟɬɶ ɪɟɡɭɥɶɬɚɬɵ ɜɵɜɨɞɚ ɧɚ ɷɤɪɚɧɟ ɞɢɫɩɥɟɹ ɟɫɥɢ ɭɠɟ ɫɪɚɛɨɬɚɥ ZULWH" Ɇɨɠɧɨɥɢɩɨɥɭɱɢɬɶɪɟɡɭɥɶɬɚɬɜɵɱɢɫɥɟɧɢɣɛɟɡɢɫɩɨɥɶɡɨɜɚɧɢɹɨɩɟɪɚɬɨ ɪɚɩɪɢɫɜɚɢɜɚɧɢɹ" 10ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɭɜɵɱɢɫɥɟɧɢɹɫɪɟɞɧɟɝɨɚɪɢɮɦɟɬɢɱɟɫɤɨɝɨɞɜɭɯɱɢ ɫɟɥ. 11
11 ɇɚɩɢɲɢɬɟ ɩɪɨɝɪɚɦɦɭ ɜɵɱɢɫɥɟɧɢɹ ɪɚɫɫɬɨɹɧɢɹ ɦɟɠɞɭ ɞɜɭɦɹ ɬɨɱɤɚɦɢ ɩɥɨɫɤɨɫɬɢ 12ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɭɜɵɱɢɫɥɟɧɢɹɩɥɨɳɚɞɢɬɪɟɭɝɨɥɶɧɢɤɚɩɨɮɨɪɦɭɥɟ Ƚɟɪɨɧɚ 13 ɇɚɩɢɲɢɬɟ ɩɪɨɝɪɚɦɦɭ ɜɵɱɢɫɥɟɧɢɹ ɩɥɨɳɚɞɢ ɛɨɤɨɜɨɣ ɩɨɜɟɪɯɧɨɫɬɢ ɤɭ ɛɚ 14. ɇɚɩɢɲɢɬɟ ɩɪɨɝɪɚɦɦɭ ɜɵɱɢɫɥɟɧɢɹ ɩɥɨɳɚɞɢ ɢ ɝɢɩɨɬɟɧɭɡɵ ɩɪɹɦɨ ɭɝɨɥɶɧɨɝɨɬɪɟɭɝɨɥɶɧɢɤɚɟɫɥɢɢɡɜɟɫɬɧɵɟɝɨɤɚɬɟɬɵ 15ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɭɜɵɱɢɫɥɟɧɢɹɫɭɦɦɵɦɨɞɭɥɟɣɬɪɟɯɜɟɳɟɫɬɜɟɧɧɵɯ ɱɢɫɟɥ 16ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɭɜɵɱɢɫɥɟɧɢɹɩɥɨɳɚɞɢɤɪɭɝɚɟɫɥɢɢɡɜɟɫɬɧɚɞɥɢ ɧɚɨɤɪɭɠɧɨɫɬɢ 17 ɇɚɩɢɲɢɬɟ ɩɪɨɝɪɚɦɦɭ ɜɵɱɢɫɥɟɧɢɹ ɩɥɨɳɚɞɢ ɪɚɜɧɨɫɬɨɪɨɧɧɟɝɨ ɬɪɟ ɭɝɨɥɶɧɢɤɚ 18 ɇɚɩɢɲɢɬɟ ɩɪɨɝɪɚɦɦɭ ɜɨɡɜɟɞɟɧɢɹ ɱɢɫɥɚ ɜ ɱɟɬɜɟɪɬɭɸ ɫɬɟɩɟɧɶ ɡɚ ɞɜɟ ɨɩɟɪɚɰɢɢ 19ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɭɜɨɡɜɟɞɟɧɢɹɱɢɫɥɚɜɫɟɞɶɦɭɸɫɬɟɩɟɧɶɡɚɱɟɬɵɪɟ ɨɩɟɪɚɰɢɢ 20 ɇɚɩɢɲɢɬɟ ɩɪɨɝɪɚɦɦɭ ɨɩɪɟɞɟɥɟɧɢɹ ɜɪɟɦɟɧɢ ɜɫɬɪɟɱɢ ɞɜɭɯ ɚɜɬɨɦɨɛɢ ɥɟɣ ɟɫɥɢ ɢɡɜɟɫɬɧɨ ɪɚɫɫɬɨɹɧɢɟ ɦɟɠɞɭ ɞɜɭɦɹ ɩɭɧɤɬɚɦɢ ɨɬɤɭɞɚ ɨɧɢ ɜɵɲɥɢ ɧɚɜɫɬɪɟɱɭɞɪɭɝɞɪɭɝɭɨɞɧɨɜɪɟɦɟɧɧɨɚɬɚɤɠɟɢɯɫɤɨɪɨɫɬɢ 21 ɇɚɩɢɲɢɬɟ ɩɪɨɝɪɚɦɦɭ ɜɵɱɢɫɥɟɧɢɹ ɫɭɦɦɵ ɚɪɢɮɦɟɬɢɱɟɫɤɨɣ ɩɪɨɝɪɟɫ ɫɢɢɟɫɥɢɢɡɜɟɫɬɟɧɟɟɧɚɱɚɥɶɧɵɣɱɥɟɧɢɪɚɡɧɨɫɬɶɚɬɚɤɠɟɤɨɥɢɱɟɫɬɜɨɟɟɱɥɟɧɨɜ ɍɤɚɡɚɧɢɟ ɩɪɢ ɪɚɛɨɬɟ ɧɚ ɤɨɦɩɶɸɬɟɪɟ ɭɤɚɠɢɬɟ ɪɚɡɧɵɟ ɮɨɪɦɚɬɵ ɜɵɜɨɞɚ ɱɢɫɟɥ ɫ ɮɢɤɫɢɪɨɜɚɧɧɨɣ ɬɨɱɤɨɣ ɜɵɩɨɥɧɢɬɟ ɩɪɨɝɪɚɦɦɭ ɞɥɹ ɪɚɡɧɵɯ ɞɚɧɧɵɯ ɧɟ ɫɤɨɥɶɤɨɪɚɡ 12
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ Ʌɢɧɟɣɧɵɟɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɥɢɧɟɣɧɵɯ ɜɵɱɢɫɥɢɬɟɥɶɧɵɯɩɪɨɰɟɫɫɨɜ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɪɟɲɢɬɶ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɡɚɞɚɱɭ ɜɵɱɢɫɥɟɧɢɹ ɢ ɜɵɜɨɞɚ ɡɧɚɱɟɧɢɣ ɮɭɧɤɰɢɣ y f1 [  g f 2 y a b  ɋɨɡɞɚɬɶ ɛɥɨɤ-ɫɯɟɦɭ ɚɥɝɨ ɪɢɬɦɚ ɪɟɲɟɧɢɹ ɡɚɞɚɱɢ ȼɵɩɨɥɧɢɬɶ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶ ɪɟɡɭɥɶɬɚɬɵ ɟɟɪɚɛɨɬɵ ɩɪɨɜɟɞɹɩɚɪɚɥɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ  ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ f1 [ y ȼɚɪɢɚɧɬʋ FRV [  25 3 y 1. 2. y e [  1  21 [ 4. y tg [  1854 8 3 6. 7. 8. 9. 10. 11. 5 y y y 7 y a  71 y  3  a2 VLQ b  4 y  3 a  5 y 2  16 5 y 2  16  b 3 y  8 FRV a y  8 FRV a  3b g 3 [  142 [3 y  9  14a 3 VLQ b  y  9  14a OJ y  11  3 FRV a g OJ y  11  VLQ b g VLQ a y  11 VLQ a y  11  4b g VLQ 2 [  4 g VLQ 3 ay  7b 2 VLQ 3 ay  3 3 g 21  [ 3 4 3 y 3  4 FRV a  3 b  4 y3  3 b  4 g VLQ 2 [  7 8 OJ [ 2  14 y a  71 3 4 7 g VLQ 2 [  15 3 OJ 24  3 [  7 [2  7 y b g 3  OQ [  71 [  71 y f 2 y  a b y2  g [  11 [5  7 y 3. 5. g VLQ [ 2  19 g FRV 2 [  7 13 VLQ a  5 y 3 3 VLQ a  5 y 3  b OJ 4 y 3  28  a OJ 4 y 3  28  b 2
y ȼɚɪɢɚɧɬʋ f1 [ g f 2 y  a b ay  7  12 ay  7  b 2 12. y [  15 OJ [  8  4 13. y [4 VLQ [  [ 2 g y  10a  24 VLQ b  4 y  10a 14. y [ 2  72 [  24 g 11  y 4  FRV a FRV a  y 4  08b 5 15. y [  15 7 [5  4 16. y e[ 1  5 [ 7 4 5 g 5 4 y 3  7a  14 g 3 VLQ b  y 3  7 a  14 5 g a  2 y 2  tgb  1 tgb  1  2 y 2 Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ɉɪɨɝɪɚɦɦɚɧɚɹɡɵɤɟPascal ɞɨɥɠɧɚɫɨɫɬɨɹɬɶɢɡɫɥɟɞɭɸɳɢɯɨɫɧɨɜɧɵɯɪɚɡ ɞɟɥɨɜ 1) ɞɟɤɥɚɪɚɬɢɜɧɚɹɱɚɫɬɶ ɨɩɢɫɚɧɢɟɩɟɪɟɦɟɧɧɵɯ  2) ɨɫɧɨɜɧɚɹ ɱɚɫɬɶ ɜɜɨɞ ɢɫɯɨɞɧɵɯ ɞɚɧɧɵɯ ɨɛɪɚɛɨɬɤɚ ɞɚɧɧɵɯ ɜɵɜɨɞ ɩɨ ɥɭɱɟɧɧɵɯɪɟɡɭɥɶɬɚɬɨɜɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹ  ɂɫɯɨɞɧɵɟ ɞɚɧɧɵɟ ɞɨɥɠɧɵ ɜɜɨɞɢɬɶɫɹ ɫ ɤɥɚɜɢɚɬɭɪɵ ɉɟɪɟɞ ɨɩɟɪɚɬɨɪɨɦ ɜɜɨɞɚɧɟɨɛɯɨɞɢɦɨɩɪɢɦɟɧɹɬɶɨɩɟɪɚɬɨɪwrite ɞɥɹɜɵɜɨɞɚɧɚɷɤɪɚɧɫɨɨɬɜɟɬɫɬɜɭ ɸɳɟɝɨɫɨɨɛɳɟɧɢɹɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹɨɧɟɨɛɯɨɞɢɦɨɫɬɢɜɜɨɞɚɞɚɧɧɵɯ. ȿɫɥɢɜɮɨɪɦɭɥɟ ɩɪɢɫɭɬɫɬɜɭɟɬɩɨɜɬɨɪɹɸɳɚɹɫɹɱɚɫɬɶ ɧɚɩɪɢɦɟɪɜɡɚɞɚɧɢɢ ɜɚɪɢɚɧɬɚɜɜɵɪɚɠɟɧɢɢɞɥɹɧɚɯɨɠɞɟɧɢɹɜɟɥɢɱɢɧɵg ɜɱɢɫɥɢɬɟɥɟɢɡɧɚɦɟɧɚɬɟ ɥɟɟɫɬɶ ɩɨɜɬɨɪɹɸɳɟɟɫɹɜɵɪɚɠɟɧɢɟ 2 y 2  tgb  1 )ɬɨɞɥɹɟɟ ɜɵɱɢɫɥɟɧɢɹɫɥɟɞɭɟɬ ɜɜɟɫɬɢɞɨɩɨɥɧɢɬɟɥɶɧɭɸɩɟɪɟɦɟɧɧɭɸɱɬɨɞɨɥɠɧɨɭɩɪɨɫɬɢɬɶɢɫɯɨɞɧɭɸɪɚɫɱɟɬ ɧɭɸɮɨɪɦɭɥɭ Ɍɚɤɧɚɩɪɢɦɟɪɞɥɹɜɚɪɢɚɧɬɚɜɜɨɞɢɦɞɨɩɨɥɧɢɬɟɥɶɧɭɸɩɟɪɟɦɟɧɧɭɸz z 2 y 2  tgb  1 . 5 az . z Ɉɫɭɳɟɫɬɜɥɹɹ ɡɚɩɢɫɶ ɦɚɬɟɦɚɬɢɱɟɫɤɢɯ ɜɵɪɚɠɟɧɢɣ ɜ ɩɪɨɝɪɚɦɦɟ ɩɪɢ ɧɟɨɛ ɯɨɞɢɦɨɫɬɢɫɥɟɞɭɟɬɩɪɢɦɟɧɹɬɶɜɫɬɪɨɟɧɧɵɟɮɭɧɤɰɢɢɹɡɵɤɚPascal Ɍɨɝɞɚ g Ɇɚɬɟɦɚɬɢɱɟɫɤɚɹɡɚɩɢɫɶ* ɁɚɩɢɫɶɧɚɹɡɵɤɟPascal sin(x) cos(x) sin [ cos(x) cos [ sin(x) ln(x) sin[ cos[ tg[ ctg[ ln[ 14
Ɇɚɬɟɦɚɬɢɱɟɫɤɚɹɡɚɩɢɫɶ* OJ[ ORJ[ OQ[OQ logD[ OQ[OQD _[_ [2 [ e[ a b eb ˜OQ a ɁɚɩɢɫɶɧɚɹɡɵɤɟPascal ln [ ln(10) ln [ ln(a) abs(x) sqr(x) sqrt(x) exp(x) exp E ln(a))  ɉɪɢɦɟɱɚɧɢɟ ɜ ɹɡɵɤɟ Pascal ɨɬɫɭɬɫɬɜɭɸɬ ɜɫɬɪɨɟɧɧɵɟ ɮɭɧɤɰɢɢ tg[ ɢ ctg[ ɚ ɬɚɤɠɟ ɨɬɫɭɬ ɫɬɜɭɟɬɨɩɟɪɚɬɨɪɜɨɡɜɟɞɟɧɢɹɜɫɬɟɩɟɧɶ ȼ ɩɪɨɰɟɫɫɟ ɩɨɫɬɪɨɟɧɢɹ ɛɥɨɤ-ɫɯɟɦ ɩɪɨɝɪɚɦɦ ɩɪɟɞɫɬɚɜɥɟɧɧɵɯ ɜ ɥɚɛɨɪɚ ɬɨɪɧɵɯɪɚɛɨɬɚɯɩɨɧɚɞɨɛɹɬɫɹɡɧɚɧɢɹɨɧɚɡɧɚɱɟɧɢɢɨɫɧɨɜɧɵɯɮɢɝɭɪɛɥɨɤ-ɫɯɟɦ Ɉɛɨɡɧɚɱɟɧɢɟ ɉɨɹɫɧɟɧɢɟ ɇɚɱɚɥɨ ɇɚɱɚɥɨɩɪɨɝɪɚɦɦɵ Ʉɨɧɟɰ Ɂɚɜɟɪɲɟɧɢɟɩɪɨɝɪɚɦɦɵ Ⱥɪɢɮɦɟɬɢɱɟɫɤɨɟɞɟɣɫɬɜɢɟɢɥɢɢɯɫɨɜɨɤɭɩɧɨɫɬɶ ȼɵɛɨɪɞɟɣɫɬɜɢɹɜɡɚɜɢɫɢɦɨɫɬɢɨɬɢɫɬɢɧɧɨɫɬɢ ɢɥɢɥɨɠɧɨɫɬɢɭɫɥɨɜɢɹ ɉɨɜɬɨɪɟɧɢɟɨɩɪɟɞɟɥɟɧɧɵɯɞɟɣɫɬɜɢɣɡɚɞɚɧɧɨɟ ɤɨɥɢɱɟɫɬɜɨɪɚɡ ȼɜɨɞɡɧɚɱɟɧɢɣɩɟɪɟɦɟɧɧɵɯɫɤɥɚɜɢɚɬɭɪɵ  ɜɵɜɨɞɡɧɚɱɟɧɢɣɩɟɪɟɦɟɧɧɵɯɢɬɟɤɫɬɚɧɚɷɤɪɚɧ ɇɚɩɪɚɜɥɟɧɢɟɜɵɱɢɫɥɟɧɢɹɫɜɟɪɯɭɜɧɢɡɢɥɢɫɥɟɜɚ ɧɚɩɪɚɜɨ 15
Ɉɛɨɡɧɚɱɟɧɢɟ ɉɨɹɫɧɟɧɢɟ ɇɚɩɪɚɜɥɟɧɢɟɜɵɱɢɫɥɟɧɢɹɫɧɢɡɭɜɜɟɪɯ ɢɥɢɫɩɪɚɜɚɧɚɥɟɜɨ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜ ɪɟɞɚɤɬɨɪɟ Pascal Ⱦɥɹ ɫɨɡɞɚɧɢɹ ɫɧɢɦɤɚ ɷɤɪɚɧɚ ɦɨɠɧɨ ɩɪɢɦɟɧɢɬɶ ɫɨɱɟɬɚɧɢɟ ɤɥɚɜɢɲ $OW3UW6F ɚ ɞɥɹ ɪɚɡɦɟɳɟɧɢɹ ɫɧɢɦɤɚ ɷɤɪɚɧɚ ɜ ɨɬɱɟɬɟ – ɫɨɱɟɬɚɧɢɟ ɤɥɚ ɜɢɲ&WUOV. Ⱦɥɹɩɪɨɜɟɪɤɢɤɨɪɪɟɤɬɧɨɫɬɢɫɨɫɬɚɜɥɟɧɧɨɣɩɪɨɝɪɚɦɦɵɪɟɤɨɦɟɧɞɭɟɬɫɹɩɪɨ ɜɟɫɬɢ ɩɚɪɚɥɥɟɥɶɧɵɟ ɪɚɫɱɟɬɵ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɩɪɢ ɧɟɨɛɯɨɞɢɦɨɫɬɢ ɜɫɬɪɨɟɧɧɵɯ ɦɚɬɟɦɚɬɢɱɟɫɤɢɯ ɮɭɧɤɰɢɣ  ȼ ɨɬɱɟɬ ɩɨ ɥɚɛɨɪɚɬɨɪ ɧɨɣɪɚɛɨɬɟɪɟɤɨɦɟɧɞɭɟɬɫɹɩɨɦɟɫɬɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɪɟɡɭɥɶɬɚɬɚɞɚɧɧɨɣɩɪɨ ɜɟɪɤɢ ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ6 ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɥɢɧɟɣɧɵɯ ɜɵɱɢɫ ɥɢɬɟɥɶɧɵɯɩɪɨɰɟɫɫɨɜ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɪɟɲɢɬɶ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɡɚɞɚɱɭ ɜɵɱɢɫɥɟɧɢɹ ɢ ɜɵɜɨɞɚ ɡɧɚɱɟɧɢɣɮɭɧɤɰɢɣ y e[ 1  5  g [ 7 5 a  2 y 2  tgb  1 . tgb  1  2 y 2 ɋɨɡɞɚɬɶ ɛɥɨɤ-ɫɯɟɦɭ ɚɥɝɨɪɢɬɦɚ ɪɟɲɟɧɢɹ ɡɚɞɚɱɢ ȼɵɩɨɥɧɢɬɶ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨ ɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ɩɪɨɜɟɞɹɩɚɪɚɥɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ  Ɋɟɲɟɧɢɟ ȼɮɨɪɦɭɥɟɞɥɹɧɚɯɨɠɞɟɧɢɹɜɟɥɢɱɢɧɵg ɦɨɠɧɨɜɵɞɟɥɢɬɶɨɞɢɧɚɤɨɜɨɟ ɜɵɪɚɠɟɧɢɟ z 2 y 2  tgb  1 Ɍɨɝɞɚɦɨɠɧɨɡɚɩɢɫɚɬɶ g 1 ȼɵɪɚɠɟɧɢɟ 5 a ɦɨɠɧɨɡɚɩɢɫɚɬɶɜɜɢɞɟ e 5 16 ˜ OQ a . 5 az . z
Ȼɥɨɤ-ɫɯɟɦɚɚɥɝɨɪɢɬɦɚɪɟɲɟɧɢɹɡɚɞɚɱɢ ɇɚɱɚɥɨ ȼɜɨɞ [DE e[ 1  5 [ 7 y 2 y 2  tgb  1  z 5 g az z ȼɵɜɨɞ \J Ʉɨɧɟɰ Ʉɨɞɩɪɨɝɪɚɦɦɵ program lDE_ ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉ.ɉ.} var xaEreal ^ɢɫɯɨɞɧɵɟɞɚɧɧɵɟ` ]real^ɩɪɨɦɟɠɭɬɨɱɧɚɹɜɟɥɢɱɢɧɚ` \Jreal^ɪɟɡɭɥɶɬɚɬɵɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ` begin ^ȼɵɜɨɞɫɨɨɛɳɟɧɢɹɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹɨɧɟɨɛɯɨɞɢɦɨɫɬɢɜɜɨɞɚɢɫɯɨɞɧɵɯɞɚɧɧɵɯ` writeln(‘ȼɜɟɞɢɬɟ [DE¶  readln(xaE  ^ɜɜɨɞɢɫɯɨɞɧɵɯɞɚɧɧɵɯɫɤɥɚɜɢɚɬɭɪɵ`  17
^ȼɵɱɢɫɥɟɧɢɹ` \ (H[S(x   VTUW(x   ]  VLQ E FRV E  VTU \  J  (H[S  OQ(a ] ] ^ȼɵɜɨɞɪɟɡɭɥɶɬɚɬɨɜɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɧɚɷɤɪɚɧɨɬɮɨɪɦɚɬɢɪɨɜɚɧɧɵɣɜɢɞ ɞɜɚ ɡɧɚɤɚɩɨɫɥɟɡɚɩɹɬɨɣ ` writeln µ\ ¶\2  writeln µJ ¶J  readln end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal 18
ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ Ɋɟɡɭɥɶɬɚɬɵ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɢ ɩɪɨɜɟɞɟɧɢɹ ɩɚɪɚɥ ɥɟɥɶɧɵɯɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ ɇɚɛɨɪɞɚɧɧɵɯ [ a b 3 1 7 Ɋɟɡɭɥɶɬɚɬɵɜɵɱɢɫɥɟɧɢɣ ɊɟɞɚɤɬɨɪPascal Ɍɚɛɥɢɱɧɵɣɩɪɨɰɟɫɫɨɪ y g y g 683    ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣ ɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫ ɪɟɡɭɥɶɬɚɬɚɦɢ ɪɚɫɱɟɬɨɜ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɦɨɠɧɨ ɝɨɜɨɪɢɬɶ ɨ ɬɨɦ ɱɬɨ ɩɪɨ ɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. 2. 3. 4. 5. 6. 7. ɈɩɢɲɢɬɟɫɬɪɭɤɬɭɪɭɩɪɨɝɪɚɦɦɵɧɚɹɡɵɤɟPascal. Ʉɚɤɨɛɴɹɜɥɹɸɬɫɹɩɟɪɟɦɟɧɧɵɟɜɩɪɨɝɪɚɦɦɟɧɚɩɢɫɚɧɧɨɣɧɚɹɡɵɤɟ3DVFDO" Ɋɚɫɫɤɚɠɢɬɟɨɫɢɧɬɚɤɫɢɫɟɨɩɟɪɚɬɨɪɨɜɜɜɨɞɚɢɜɵɜɨɞɚ ɉɟɪɟɱɢɫɥɢɬɟɨɫɧɨɜɧɵɟɜɫɬɪɨɟɧɧɵɟɦɚɬɟɦɚɬɢɱɟɫɤɢɟɮɭɧɤɰɢɢPascal. ɄɚɤɧɚɹɡɵɤɟPascal ɡɚɩɢɫɚɬɶɜɨɡɜɟɞɟɧɢɟɜɫɬɟɩɟɧɶ" ɑɬɨȼɵɡɧɚɟɬɟɨɡɚɩɢɫɢɤɨɦɦɟɧɬɚɪɢɟɜɜPascal" Ɋɚɫɫɤɚɠɢɬɟɨɮɨɪɦɚɬɢɪɨɜɚɧɢɢɜɵɜɨɞɚɧɚɷɤɪɚɧ 19
 ɍɫɥɨɜɧɵɣɨɩɟɪɚɬɨɪ Ⱦɥɹɡɚɩɢɫɢɥɸɛɨɝɨɚɥɝɨɪɢɬɦɚɢɫɩɨɥɧɢɬɟɥɸɞɨɫɬɚɬɨɱɧɨɢɦɟɬɶɬɪɢɤɨɦɚɧ ɞɵɩɪɢɫɜɚɢɜɚɧɢɹɜɟɬɜɥɟɧɢɹɢɩɨɜɬɨɪɟɧɢɹɄɨɦɚɧɞɟɜɟɬɜɥɟɧɢɹɜɉɚɫɤɚɥɟɫɨɨɬ ɜɟɬɫɬɜɭɟɬɭɫɥɨɜɧɵɣɨɩɟɪɚɬɨɪ ɍɫɥɨɜɧɨɦɭ ɨɩɟɪɚɬɨɪɭ ɫɨɨɬɜɟɬɫɬɜɭɸɬ ɞɜɟ ɫɬɪɭɤɬɭɪɵ ɩɪɟɞɫɬɚɜɥɟɧɧɵɟ ɧɚ ɪɢɫ 1–2 ɇɚ ɪɢɫ 1 ɩɨɤɚɡɚɧɚ ɧɟɩɨɥɧɚɹ ɮɨɪɦɚ ɭɫɥɨɜɧɨɝɨ ɨɩɟɪɚɬɨɪɚ ɤɨɝɞɚ ɞɟɣ ɫɬɜɢɟ ɜɵɩɨɥɧɹɟɬɫɹ ɬɨɥɶɤɨ ɬɨɝɞɚ ɤɨɝɞɚ ɜɵɩɨɥɧɹɟɬɫɹ ɡɚɩɢɫɚɧɧɨɟ ɜ ɪɨɦɛɟ ɭɫɥɨ ɜɢɟȼɫɥɭɱɚɟɧɟɜɵɩɨɥɧɟɧɢɹɭɫɥɨɜɢɹɩɪɨɢɫɯɨɞɢɬɩɟɪɟɯɨɞɤɫɥɟɞɭɸɳɟɦɭɨɩɟɪɚ ɬɨɪɭ ɜɵɯɨɞɢɡɫɬɪɭɤɬɭɪɵ ɇɚɪɢɫ 2 ɢɡɨɛɪɚɠɟɧɚɩɨɥɧɚɹɮɨɪɦɚɭɫɥɨɜɧɨɝɨɨɩɟ ɪɚɬɨɪɚ ɜ ɫɥɭɱɚɟ ɜɵɩɨɥɧɟɧɢɹ ɭɫɥɨɜɢɹ ɜɵɯɨɞ ©ª ɢɡ ɪɨɦɛɚ  ɜɵɩɨɥɧɹɟɬɫɹ ɨɞɧɨ ɞɟɣɫɬɜɢɟɜɫɥɭɱɚɟɧɟɜɵɩɨɥɧɟɧɢɹ ɜɵɯɨɞ©–ª) – ɞɪɭɝɨɟɞɟɣɫɬɜɢɟ Ɋɢɫ 1ɋɨɤɪɚɳɟɧɧɚɹɮɨɪɦɚ ɨɩɟɪɚɬɨɪɚIF Ɋɢɫ ɉɨɥɧɚɹɮɨɪɦɚ ɨɩɟɪɚɬɨɪɚIF Ʉɚɠɞɚɹɫɬɪɭɤɬɭɪɚɢɦɟɟɬɨɞɢɧɜɯɨɞɢɨɞɢɧɜɵɯɨɞɉɪɨɝɪɚɦɦɭɪɟɤɨɦɟɧɞɭ ɟɬɫɹɫɬɪɨɢɬɶɢɡɩɨɫɥɟɞɨɜɚɬɟɥɶɧɵɯɥɨɝɢɱɟɫɤɢɡɚɜɟɪɲɟɧɧɵɯɛɥɨɤɨɜɧɟɞɨɩɭɫɤɚɹ ɩɟɪɟɞɚɱɢ ɭɩɪɚɜɥɟɧɢɹ ɢɡ ɨɞɧɨɝɨ ɛɥɨɤɚ ɜ ɞɪɭɝɨɣ Ɍɚɤɚɹ ɩɪɨɝɪɚɦɦɚ ɫɨɞɟɪɠɢɬ 20
ɦɟɧɶɲɟ ɨɲɢɛɨɤ ɩɪɢ ɪɚɡɪɚɛɨɬɤɟ ɥɟɝɱɟ ɩɪɨɜɟɪɹɟɬɫɹ ɧɚ ɩɪɚɜɢɥɶɧɨɫɬɶ ɜɵɩɨɥɧɟ ɧɢɹ ɇɟɩɨɥɧɵɣɭɫɥɨɜɧɵɣɨɩɟɪɚɬɨɪɢɦɟɟɬɜɢɞ ,)ɭɫɥɨɜɢɟ7+(1ɨɩɟɪɚɬɨɪ  ɉɨɥɧɵɣɭɫɥɨɜɧɵɣɨɩɟɪɚɬɨɪ IFɭɫɥɨɜɢɟ7+(1ɨɩɟɪɚɬɨɪB(/6(ɨɩɟɪɚɬɨɪB  ȼɪɚɡɥɢɱɧɵɯɫɥɭɱɚɹɯɩɨɫɥɟɫɥɨɜ7+(1ɢ(/6(ɧɚɞɨɜɵɩɨɥɧɢɬɶɧɟɨɞɢɧ ɨɩɟɪɚɬɨɪ ɚ ɧɟɫɤɨɥɶɤɨ Ɍɨɝɞɚ ɷɬɢ ɨɩɟɪɚɬɨɪɵ ɡɚɤɥɸɱɚɸɬɫɹ ɜ ɬɚɤ ɧɚɡɵɜɚɟɦɵɟ ɨɩɟɪɚɬɨɪɧɵɟɫɤɨɛɤɢɨɬɤɪɵɜɚɸɳɚɹɫɤɨɛɤɚɤɨɬɨɪɵɯ – ɫɥɨɜɨ%(*,1ɚɡɚɤɪɵɜɚ ɸɳɚɹ – ɫɥɨɜɨ(1' begin ^ɨɩɟɪɚɬɨɪɵ` end;  ɉɟɪɟɞɫɥɨɜɨɦ(/6(ɬɨɱɤɚɫɡɚɩɹɬɨɣɧɟɫɬɚɜɢɬɫɹȼɨɩɟɪɚɬɨɪɧɵɯɫɤɨɛɤɚɯ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɤɚɠɞɭɸ ɩɚɪɭ %(*,1 – (1' ɡɚɩɢɫɵɜɚɬɶ ɜ ɨɞɧɨɦ ɫɬɨɥɛɰɟ ɬɚɤ ɥɟɝɱɟɩɪɨɜɟɪɢɬɶɫɨɨɬɜɟɬɫɬɜɢɟɤɚɠɞɨɣɨɬɤɪɵɜɚɸɳɟɣɫɤɨɛɤɟɡɚɤɪɵɜɚɸɳɟɣ. ɉɪɢɦɟɪɵɭɫɥɨɜɧɨɝɨɨɩɟSɚɬɨɪɚ if DEthen \ [ if x < 0 then [ -[^ɢɡɦɟɧɟɧɢɹɡɧɚɤɚɩɟɪɟɦɟɧɧɨɣɯ` if DEFthen begin ] [^ɨɛɦɟɧɡɧɚɱɟɧɢɹɦɢɩɟɪɟɦɟɧɧɵɦɢ[ɢ\` [ \ \ ] end; ȼ ɤɚɱɟɫɬɜɟ ɜɵɩɨɥɧɹɟɦɨɝɨ ɜ ɭɫɥɨɜɧɨɦ ɨɩɟɪɚɬɨɪɟ ɞɟɣɫɬɜɢɹ ɦɨɠɟɬ ɛɵɬɶ ɞɪɭɝɨɣɭɫɥɨɜɧɵɣɨɩɟɪɚɬɨɪɇɚɩɪɢɦɟɪ if VTU [ VTU \ ! then if [!\then ]  else ]  ɉɪɢɬɚɤɨɣɮɨɪɦɟɡɚɩɢɫɢɢɫɩɨɥɶɡɭɸɳɟɣɫɞɜɢɝɜɩɪɚɜɨɞɥɹɤɚɠɞɨɝɨɜɧɭɬ ɪɟɧɧɟɝɨ ɞɟɣɫɬɜɢɹ ɥɟɝɤɨ ɩɨɧɹɬɶ ɤ ɤɚɤɨɦɭ ɢɡ ɞɜɭɯ ɫɥɨɜ ,) ɨɬɧɨɫɢɬɫɹ ɫɥɨɜɨ (/6( ȿɫɥɢ ɛɵ ɷɬɨɬ ɨɩɟɪɚɬɨɪ ɡɚɩɢɫɚɬɶ ɜ ɨɞɧɭ ɫɬɪɨɤɭ ɬɨ ɨɬɜɟɬ ɛɭɞɟɬ ɧɟɨɞɧɨ ɡɧɚɱɧɵɦ Ɍɪɚɧɫɥɹɬɨɪ ɩɨɫɬɭɩɚɟɬ ɫɥɟɞɭɸɳɢɦ ɨɛɪɚɡɨɦ ȼɫɬɪɟɬɢɜ ɫɥɨɠɧɭɸ ɤɨɧ ɫɬɪɭɤɰɢɸɢɡɜɥɨɠɟɧɧɵɯɭɫɥɨɜɧɵɯɨɩɟɪɚɬɨɪɨɜɨɧɚɧɚɥɢɡɢɪɭɟɬɟɟɫɤɨɧɰɚɩɪɢ 21
ɩɢɫɵɜɚɹ ɩɨɫɥɟɞɧɟɟ ɧɚɣɞɟɧɧɨɟ (/6( ɩɟɪɜɨɦɭ ɜɫɬɪɟɱɟɧɧɨɦɭ ɩɪɢ ɩɪɨɫɦɨɬɪɟ ɫɩɪɚɜɚɧɚɥɟɜɨ,) Ɋɚɫɫɦɨɬɪɢɦ ɩɪɢɦɟɪ ɩɪɨɝɪɚɦɦɵ ɫ ɢɫɩɨɥɶɡɨɜɚɧɢɟɦ ɭɫɥɨɜɧɨɝɨ ɨɩɟɪɚɬɨɪɚ ɉɭɫɬɶɞɥɹɞɜɭɯɰɟɥɵɯɱɢɫɟɥɧɚɞɨɨɩɪɟɞɟɥɢɬɶɹɜɥɹɸɬɫɹɨɧɢɱɟɬɧɵɦɢɢɥɢɧɟɬ Ⱦɥɹ ɩɪɨɜɟɪɤɢ ɱɟɬɧɨɫɬɢ ɢɫɩɨɥɶɡɭɟɦ ɭɫɥɨɜɢɟ ɨɫɬɚɬɨɤ ɨɬ ɞɟɥɟɧɢɹ ɧɚ ɞɜɚ ɱɟɬɧɨɝɨɱɢɫɥɚɪɚɜɟɧɧɭɥɸ program ( var DE integeU begin writeln µɜɜɟɞɢɬɟɞɜɚɰɟɥɵɯɱɢɫɥɚµ  readln DE  if a mod  then writeln (‘ a - ɱɟɬɧɨɟ‘) else writeln (‘ a - ɧɟɱɟɬɧɨɟµ  if Emod  then write µE- ɱɟɬɧɨɟ‘) else write µE- ɧɟɱɟɬɧɨɟ‘) HQG Ʌɨɝɢɱɟɫɤɢɟ ɜɵɪɚɠɟɧɢɹ Ⱥɥɝɨɪɢɬɦ ɪɟɲɟɧɢɹ ɤɜɚɞɪɚɬɧɨɝɨ ɭɪɚɜɧɟɧɢɹ ɫɨ ɞɟɪɠɢɬɩɪɨɜɟɪɤɭɭɫɥɨɜɢɹGȾɜɚɡɧɚɱɟɧɢɹGɢɫɜɹɡɚɧɵɨɬɧɨɲɟɧɢɟɦ©ª – ɦɟɧɶɲɟȿɫɥɢɭɫɥɨɜɢɟɜɵɩɨɥɧɹɟɬɫɹɬɨɝɨɜɨɪɹɬɱɬɨɫɨɨɬɜɟɬɫɬɜɭɸɳɟɟɜɵɪɚɠɟ ɧɢɟɢɫɬɢɧɧɨɟɫɥɢɧɟɜɵɩɨɥɧɹɟɬɫɹ – ɜɵɪɚɠɟɧɢɟɥɨɠɧɨɊɟɱɶɢɞɟɬɨɥɨɝɢɱɟɫɤɨɦ ɜɵɪɚɠɟɧɢɢ Ⱦɥɹ ɩɨɫɬɪɨɟɧɢɹ ɫɥɨɠɧɵɯ ɭɫɥɨɜɢɣ ɜ ɉɚɫɤɚɥɟ ɢɦɟɸɬɫɹ ɥɨɝɢɱɟɫɤɢɟ ɨɩɟɪɚɰɢɢand ɢ or ɢɥɢ ɢnot ɧɟ Ɉɛɨɡɧɚɱɢɜɢɫɬɢɧɧɨɟɡɧɚɱɟɧɢɟɢɥɨɠɧɨɟ ɱɟɪɟɡɩɨɫɬɪɨɢɦɬɚɛɥɢɰɵɢɫɬɢɧɧɨɫɬɢɞɥɹɷɬɢɯɨɩɟɪɚɰɢɣ Ɋɚɫɫɦɨɬɪɢɦɩɪɢɦɟɪɵɩɨɫɬɪɨɟɧɢɹɫɥɨɠɧɵɯɥɨɝɢɱɟɫɤɢɯɜɵɪɚɠɟɧɢɣ  ɉɭɫɬɶ ɬɪɟɛɭɟɬɫɹ ɨɩɪɟɞɟɥɢɬɶ ɩɪɢɧɚɞɥɟɠɢɬ ɥɢ ɬɨɱɤɚ ɫ ɤɨɨɪɞɢɧɚɬɨɣ ɏ ɨɬɪɟɡɤɭ>DE@ȿɫɥɢɡɚɩɢɫɚɬɶɷɬɨɭɫɥɨɜɢɟɞɜɨɣɧɵɦɧɟɪɚɜɟɧɫɬɜɨɦɬɨɦɵɱɢɬɚɟɦ ɷɬɨɧɟɪɚɜɟɧɫɬɜɨɬɚɤɏ ɦɟɧɶɲɟɥɢɛɨɪɚɜɟɧb ɢɛɨɥɶɲɟɥɢɛɨɪɚɜɟɧɚ (a ; E  Ɉɬɧɨɲɟɧɢɟ©ɦɟɧɶɲɟɥɢɛɨɪɚɜɧɨª ɜɉɚɫɤɚɥɟɡɚɩɢɫɵɜɚɟɬɫɹɞɜɭɦɹɡɧɚɤɚɦɢȺɧɚ ɥɨɝɢɱɧɨɡɚɩɢɫɵɜɚɟɬɫɹɢ©ɛɨɥɶɲɟɥɢɛɨɪɚɜɧɨªɈɞɧɚɤɨɜɉɚɫɤɚɥɟɧɟɥɶɡɹɡɚɩɢ ɫɵɜɚɬɶɞɜɨɣɧɨɟɧɟɪɚɜɟɧɫɬɜɨ ɂɫɩɨɥɶɡɭɹɥɨɝɢɱɟɫɤɭɸɨɩɟɪɚɰɢɸ©ɢª ɡɚɩɢɲɟɦ [! D and [ E Ɉɬɧɨɲɟɧɢɹɦɟɠɞɭɤɨɬɨɪɵɦɢɫɬɨɢɬɥɨɝɢɱɟɫɤɚɹɨɩɟɪɚɰɢɹɡɚɤɥɸɱɚɸɬɫɹɜ ɤɪɭɝɥɵɟɫɤɨɛɤɢ 22
Ɋɢɫ Ɍɚɛɥɢɰɵ ɢɫɬɢɧɧɨɫɬɢɥɨɝɢɱɟɫɤɢɯɨɩɟɪɚɰɢɣ 2. ɂɦɟɟɬɫɹɩɪɹɦɨɭɝɨɥɶɧɨɟɨɬɜɟɪɫɬɢɟFɨɫɬɨɪɨɧɚɦɢa ɢb ɢɤɢɪɩɢɱɫɪɟɛ ɪɚɦɢ[yzɌɪɟɛɭɟɬɫɹɫɨɫɬɚɜɢɬɶɭɫɥɨɜɢɟɩɪɨɯɨɠɞɟɧɢɹɤɢɪɩɢɱɚɜɨɬɜɟɪɫɬɢɟ Ʉɢɪɩɢɱ ɩɪɨɣɞɟɬ ɜ ɩɪɹɦɨɭɝɨɥɶɧɨɟ ɨɬɜɟɪɫɬɢɟ ɟɫɥɢ ɜɵɩɨɥɧɢɬɫɹ ɫɥɨɠɧɨɟ ɭɫɥɨɜɢɟ D D D D D D [ and \ and [ and ] and \ and ]  and E \  or E [  or E ]  or E [  or E ]  or E \  Ⱦɥɹ ɬɪɟɯ ɝɪɚɧɟɣ ɲɟɫɬɶ ɭɫɥɨɜɢɣ ɩɨɥɭɱɚɟɬɫɹ ɩɨɬɨɦɭ ɱɬɨ ɦɨɠɧɨ ɤɚɠɞɭɸ ɝɪɚɧɶ ɩɨɜɟɪɧɭɬɶɧɚ° ɢɩɪɨɜɟɪɢɬɶɞɥɹɤɚɠɞɨɣɝɪɚɧɢɞɜɚɫɥɭɱɚɹ Ɉɩɪɟɞɟɥɢɬɶɩɪɢɧɚɞɥɟɠɧɨɫɬɶɬɨɱɤɢɮɢɝɭɪɟɉɭɫɬɶɮɢɝɭɪɚɡɚɞɚɧɚɨɝɪɚ ɧɢɱɢɜɚɸɳɢɦɢ ɟɟ ɩɪɹɦɵɦɢ ɪɢɫ 4  Ⱦɥɹ ɤɚɠɞɨɣ ɩɪɹɦɨɣ ɨɩɪɟɞɟɥɢɦ ɩɨɥɭɩɥɨɫ ɤɨɫɬɶɜɤɨɬɨɪɨɣɧɚɯɨɞɢɬɫɹɮɢɝɭɪɚ – ɬɪɟɭɝɨɥɶɧɢɤ$%&ɉɨɥɭɩɥɨɫɤɨɫɬɶɡɚɞɚɟɬɫɹ ɧɟɪɚɜɟɧɫɬɜɨɦ 23
Ɋɢɫ 4 Ɉɩɪɟɞɟɥɟɧɢɟɩɪɢɧɚɞɥɟɠɧɨɫɬɢɬɨɱɤɢɮɢɝɭɪɟ ɉɨɥɭɩɥɨɫɤɨɫɬɶɧɚɯɨɞɹɳɚɹɫɹɫɥɟɜɚɨɬɩɪɹɦɨɣɫɨɟɞɢɧɹɸɳɟɣɬɨɱɤɢ  ɢ  ɡɚɞɚɟɬɫɹɧɟɪɚɜɟɧɫɬɜɨɦ<;- 2 < 0. ɍɫɥɨɜɢɟɩɪɢɧɚɞɥɟɠɧɨɫɬɢɬɨɱɤɢ ;< ɞɚɧɧɨɣɮɢɝɭɪɟ (<! and (Y -  ;-2) and < ;- 2) ɉɪɢɜɟɞɟɦɩɪɢɦɟɪɩɪɨɝɪɚɦɦɵɨɩɪɟɞɟɥɟɧɢɹɫɭɳɟɫɬɜɨɜɚɧɢɹɬɪɟɭɝɨɥɶɧɢɤɚ ɫɨɫɬɨɪɨɧɚɦɢɚ b ɢɫɍɫɥɨɜɢɟɫɭɳɟɫɬɜɨɜɚɧɢɹɬɪɟɭɝɨɥɶɧɢɤɚɢɡɜɟɫɬɧɨɢɡɝɟɨɦɟɬ ɪɢɢɫɭɦɦɚɞɜɭɯɥɸɛɵɯɫɬɨɪɨɧɞɨɥɠɧɚɛɵɬɶɛɨɥɶɲɟɬɪɟɬɶɟɣɋɥɟɞɨɜɚɬɟɥɶɧɨɞɥɹ ɜɫɟɯɫɬɨɪɨɧɭɫɥɨɜɢɟ©ɫɭɦɦɚɞɜɭɯɛɨɥɶɲɟɬɪɟɬɶɟɣª ɞɨɥɠɧɨɜɵɩɨɥɧɹɬɶɫɹ program ( var DEFreal begin writeln µɜɜɟɞɢɬɟɞɥɢɧɵɬɪɟɯɫɬɨɪɨɧɬɪɟɭɝɨɥɶɧɢɤɚµ  readln DEF  write µɬɪɟɭɝɨɥɶɧɢɤɫɨɫɬɨɪɨɧɚɦɢµDEF  if DEF and EFD and DFE then write (‘ɫɭɳɟɫɬɜɭɟɬ‘) else write µɧɟɫɭɳɟɫɬɜɭɟɬµ  readln HQG ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ Ʉɚɤɬɪɚɧɫɥɹɬɨɪɚɧɚɥɢɡɢɪɭɟɬɜɥɨɠɟɧɧɵɟɭɫɥɨɜɧɵɟɨɩɟɪɚɬɨɪɵ" Ʉɚɤɪɚɛɨɬɚɟɬɧɟɩɨɥɧɵɣɭɫɥɨɜɧɵɣɨɩɟɪɚɬɨɪ" Ʉɚɤɩɪɨɜɟɪɢɬɶɹɜɥɹɟɬɫɹɥɢɰɟɥɨɟɱɢɫɥɨɧɟɱɟɬɧɵɦ" Ʉɚɤɜɵɩɨɥɧɹɸɬɫɹɥɨɝɢɱɟɫɤɢɟɨɩɟɪɚɰɢɢ©ɢª©ɢɥɢª©ɧɟª" 24
ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɵɧɚɉɚɫɤɚɥɟɞɥɹɪɟɲɟɧɢɹɫɥɟɞɭɸɳɢɯɡɚɞɚɱ. Ⱦɚɧɵɬɪɢɱɢɫɥɚɚb ɢɫȼɵɹɫɧɢɬɶɜɟɪɧɨɥɢɚEFɈɬɜɟɬɩɨɥɭɱɢɬɶɜ ɬɟɤɫɬɨɜɨɣɮɨɪɦɟɜɟɪɧɨɢɥɢɧɟɜɟɪɧɨ  Ⱦɚɧɵ ɩɨɥɨɠɢɬɟɥɶɧɵɟ ɱɢɫɥɚ ɚ b c [ ȼɵɹɫɧɢɬɶ ɩɪɨɣɞɟɬ ɥɢ ɤɢɪɩɢɱ ɫ ɪɟɛɪɚɦɢabc ɜɤɜɚɞɪɚɬɧɨɟɨɬɜɟɪɫɬɢɟɫɨɫɬɨɪɨɧɨɣɯ. ȼɵɹɫɧɢɬɶɩɪɢɧɚɞɥɟɠɚɬɥɢɱɢɫɥɚa ɢb ɩɪɨɦɟɠɭɬɤɭ -  Ⱦɚɧɵɱɢɫɥɚ[ ɢyȼɵɱɢɫɥɢɬɶɱɢɫɥɨzɪɚɜɧɨɟ[\ɟɫɥɢ[ \ ɢ 1-[\ ɜɩɪɨɬɢɜɧɨɦɫɥɭɱɚɟ ɉɪɢɫɜɨɢɬɶz ɡɧɚɱɟɧɢɟɛɨɥɶɲɟɝɨɢɡɱɢɫɟɥ[ ɢy ɜɬɨɦɫɥɭɱɚɟɟɫɥɢ[ ɢ ɦɟɧɶɲɟɝɨɟɫɥɢ[! . Ⱦɚɧɵɬɪɢɞɟɣɫɬɜɢɬɟɥɶɧɵɯɱɢɫɥɚȼɵɛɪɚɬɶɬɟɢɡɧɢɯɤɨɬɨɪɵɟɩɪɢɧɚɞ ɥɟɠɚɬɨɬɪɟɡɤɭ>@ ɉɪɢɫɜɨɢɬɶɜɟɥɢɱɢɧɟɚ ɡɧɚɱɟɧɢɟɧɚɢɛɨɥɶɲɟɝɨɢɡɬɪɟɯɡɚɞɚɧɧɵɯɱɢɫɟɥ Ⱦɚɧɵɞɜɚɱɢɫɥɚȼɵɜɟɫɬɢɩɟɪɜɨɟɢɡɧɢɯɟɫɥɢɨɧɨɛɨɥɶɲɟɜɬɨɪɨɝɨ ɢ ɨɛɚɱɢɫɥɚɟɫɥɢɷɬɨɧɟɬɚɤ ɉɪɨɜɟɪɢɬɶɟɫɬɶɥɢɫɪɟɞɢɬɪɟɯɡɚɞɚɧɧɵɯɱɢɫɟɥɪɚɜɧɵɟ ȾɚɧɵɞɜɚɞɟɣɫɬɜɢɬɟɥɶɧɵɯɱɢɫɥɚɆɟɧɶɲɟɟɢɡɧɢɯɡɚɦɟɧɢɬɶɩɨɥɭɫɭɦ ɦɨɣɷɬɢɯɱɢɫɟɥɚɛɨɥɶɲɟɟ– ɢɯɩɪɨɢɡɜɟɞɟɧɢɟɦ 15. ȼɵɱɢɫɥɢɬɶɧɚɢɦɟɧɶɲɟɟɢɡɬɪɟɯɡɚɞɚɧɧɵɯɱɢɫɟɥ ɇɚɣɬɢɪɟɲɟɧɢɟɭɪɚɜɧɟɧɢɹD[E ɟɫɥɢɨɧɨɫɭɳɟɫɬɜɭɟɬ ȿɫɥɢɞɚɧɧɨɟɱɢɫɥɨɯ ɦɟɧɶɲɟɧɭɥɹɬɨz ɩɪɢɫɜɨɢɬɶɡɧɚɱɟɧɢɟɛɨɥɶɲɟɝɨ ɢɡɞɜɭɯɱɢɫɟɥɯ ɢyɢɧɚɱɟz ɩɪɢɫɜɨɢɬɶɡɧɚɱɟɧɢɟɩɨɥɭɫɭɦɦɵɷɬɢɯɱɢɫɟɥ  Ⱦɚɧɵ ɬɪɢ ɞɟɣɫɬɜɢɬɟɥɶɧɵɯ ɱɢɫɥɚ ɇɚɣɬɢ ɧɚɢɛɨɥɶɲɟɟ ɡɧɚɱɟɧɢɟ ɢɡ ɢɯ ɫɭɦɦɵɢɩɪɨɢɡɜɟɞɟɧɢɹ Ⱦɚɧɵɞɟɣɫɬɜɢɬɟɥɶɧɵɟɱɢɫɥɚɚb ɢɫɍɞɜɨɢɬɶɷɬɢɱɢɫɥɚɟɫɥɢɨɧɢɹɜ ɥɹɸɬɫɹɭɩɨɪɹɞɨɱɟɧɧɵɦɢɩɨɜɨɡɪɚɫɬɚɧɢɸ 25
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ Ɋɚɡɜɟɬɜɥɹɸɳɢɟɫɹɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵ ɋɨɤɪɚɳɟɧɧɚɹɮɨɪɦɚɨɩɟɪɚɬɨɪɚIF ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɪɚɡɜɟɬɜɥɹɸ ɳɢɯɫɹ ɜɵɱɢɫɥɢɬɟɥɶɧɵɯ ɩɪɨɰɟɫɫɨɜ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɫɨɤɪɚɳɟɧɧɨɣ ɮɨɪɦɵ ɨɩɟɪɚ ɬɨɪɚ,) Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɪɟɲɢɬɶ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɡɚɞɚɱɭ ɜɵɱɢɫɥɟɧɢɹ ɢ ɜɵɜɨɞɚ ɡɧɚɱɟɧɢɣ ɮɭɧɤɰɢɢ y f [  ɩɪɢɦɟɧɹɹ ɫɨɤɪɚɳɟɧɧɭɸ ɮɨɪɦɭ ɨɩɟɪɚɬɨɪɚ ,) ɋɨɡɞɚɬɶ ɛɥɨɤ-ɫɯɟɦɭ ɚɥɝɨɪɢɬɦɚ ɪɟɲɟɧɢɹ ɡɚɞɚɱɢ ȼɵɩɨɥɧɢɬɶ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶ ɪɟɡɭɥɶɬɚɬɵ ɟɟ ɪɚɛɨɬɵ ɩɪɨɜɟɞɹ ɩɚɪɚɥɥɟɥɶɧɵɟ ɜɵɱɢɫɥɟɧɢɹ ɜ ɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ  ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ y f [ 2 ɩɪɢ ­3 [ ° ° [ 2 FRV [ ɩɪɢ °° y ® ɩɪɢ ° [  153 °3  [ ° °¯4 [  1 ɩɪɢ ɩɪɢ ­7 [ 4 ° °°OJ [  1 ɩɪɢ y ® [ ɩɪɢ °e ° ɩɪɢ ¯° WJ[ ­FRV [  1 ° °OJ 2 [ ° y ® °7 [  54 ° °¯ FWJ[ ­e [ ° °°VLQ 2 [ y ® °OJ 7 [ ° 2 °¯ [ 26 ɩɪɢ [  7 1 ! [ t 7 4 ! [ t 1 [ t 4. [ ! 18 18 t [ ! 12 12 t [ ! 7 [ d 7. [ ! 24 ɩɪɢ 24 t [ ! 15 ɩɪɢ 15 t [ ! 3 ɩɪɢ ɩɪɢ [ d 3. [ ! 2 ɩɪɢ 2 t [ ! 1 ɩɪɢ 1 t [ ! 05 ɩɪɢ [ d 05.
y ȼɚɪɢɚɧɬʋ 3 5. 6. 7. 8. 9. f [ ɩɪɢ [  10 ­ [  17 ° °OQ [ 3  17 ɩɪɢ  10 d [  4 ° ° y ® 2 ɩɪɢ  4 d [  0 ° [  34 ° °[ ɩɪɢ [ t 0. °  21 ¯2 ­3 4 [ 2  20 ɩɪɢ [  4 ° °°7 VLQ [ ɩɪɢ  4 d [  3 y ® ɩɪɢ 3 d [  8 °WJ[ ° °¯VLQ [  1 ɩɪɢ [ t 8. ­4 [  VLQ [ 2 ɩɪɢ [  10 ° °FRV [  3 ɩɪɢ  10 d [  9 ° ° y ® ɩɪɢ 9 d [  15 ° [4 ° [7 ° °¯8 [  21 ɩɪɢ [ t 15. ɩɪɢ [ t 6 ­OQ [ ° °FRV 3 [ ɩɪɢ 4 d [  6 °° y ®e [ ɩɪɢ  2 d [  4 ° ° ° VLQ [ ɩɪɢ [  2. ¯° [  25 ɩɪɢ [ d 15 ­4 [  3 ° ° °° [ 2  FRV [ ɩɪɢ  15  [ d 8 y ® 4 ° 3 ° [  OQ [ ɩɪɢ 8  [ d 15 ° °¯ [  12 ɩɪɢ [ ! 15. 27
y ȼɚɪɢɚɧɬʋ 10. y 11. y 12. ­ VLQ [  7 ° FRV [  21 ° °°5 [  OQ [  10 ® ° ° [  25 ° 4 °¯9 [ 13. 14. y f [ ɩɪɢ [ ! 5 ­ [ ° 2 ɩɪɢ 5 t [ ! 3 °°VLQ [ ® ɩɪɢ 3 t [ ! 1 °e [ ° °¯FRV [  7 ɩɪɢ [ d 1. ­VLQ 3 [ ɩɪɢ [ ! 34 ° °°5 [ ɩɪɢ 34 t [ ! 20 ® °FRV 4 [ ɩɪɢ 20 t [ ! 10 ° ¯° [  10 ɩɪɢ [ d 10. 4 ­[3  7 [  4 2 ° ° °° VLQ [  1 y ® FRV [  12 ° °[ [3  2 ° °¯OQ [ ­ [ FRV [  9 ° 2 VLQ [ ° °° y ®4 [  24  05 ° °OJ [ ° ¯°2 [  1 28 ɩɪɢ [ d 3 ɩɪɢ 3  [ d 9 ɩɪɢ 9  [ d 24 ɩɪɢ [ ! 24. ɩɪɢ [  7 ɩɪɢ  7 d [  5 ɩɪɢ 5 d [  14 ɩɪɢ [ t 14. ɩɪɢ [  3 ɩɪɢ 3 d [  11 ɩɪɢ 11 d [  25 ɩɪɢ [ t 25.
y ȼɚɪɢɚɧɬʋ 2 15. 16. f [ ɩɪɢ [ ! 3 ­1 [ ° °e [ ɩɪɢ 3 t [ ! 2 °° y ® ɩɪɢ 2 t [ ! 10 ° [3 ° [ ° °¯10 [  4 ɩɪɢ [ d 10. ɩɪɢ [ ! 11 ­5 [ ° °7e [ ɩɪɢ 11 t [ ! 4 °° y ®VLQ 2 [ ɩɪɢ 4 t [ ! 1 ° ° 2 ° [  4 ɩɪɢ [ d 1. ¯° 3 Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ȼɩɪɨɰɟɫɫɟɜɵɩɨɥɧɟɧɢɹɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵɧɭɠɧɨɜɵɱɢɫɥɢɬɶɡɧɚɱɟɧɢɟ ɮɭɧɤɰɢɢɡɚɞɚɧɧɨɣɪɚɡɥɢɱɧɵɦɢɮɨɪɦɭɥɚɦɢɧɚɪɚɡɧɵɯɭɱɚɫɬɤɚɯɟɟɨɩɪɟɞɟɥɟɧɢɹ ɫɩɪɢɦɟɧɟɧɢɟɦɫɨɤɪɚɳɟɧɧɨɣɢɧɫɬɪɭɤɰɢɢɨɩɟɪɚɬɨɪɚIF if ɭɫɥɨɜɢɟ!then ɨɩɟɪɚɬɨɪ! Ɋɚɫɫɦɚɬɪɢɜɚɟɦɵɣɦɟɬɨɞɪɟɲɟɧɢɹɡɚɞɚɱɢɧɨɫɢɬɧɚɡɜɚɧɢɟɦɟɬɨɞɚɩɪɨɜɟɪɤɢ ɜɟɬɜɟɣ ɋɭɳɧɨɫɬɶ ɦɟɬɨɞɚ ɡɚɤɥɸɱɚɟɬɫɹ ɜ ɬɨɦ ɱɬɨ ɞɥɹ ɤɚɠɞɨɣ ɨɛɥɚɫɬɢ ɡɚɞɚɧɢɹ ɮɭɧɤɰɢɢ ɫɨɫɬɚɜɥɹɟɬɫɹ ɥɨɝɢɱɟɫɤɨɟ ɜɵɪɚɠɟɧɢɟ ɜ ɬɨɦ ɱɢɫɥɟ ɫ ɢɫɩɨɥɶɡɨɜɚɧɢɟɦ ɥɨɝɢɱɟɫɤɨɝɨ ɫɨɸɡɚ and  ɤɨɬɨɪɨɟ ɩɪɢɧɢɦɚɟɬ ɡɧɚɱɟɧɢɟ ɂɋɌɂɇȺ 758(  ɟɫɥɢ ɚɪɝɭɦɟɧɬ[ ɩɪɢɧɚɞɥɟɠɢɬɞɚɧɧɨɣɨɛɥɚɫɬɢ ɢɡɧɚɱɟɧɢɟɅɈɀɖ )$/6( ɟɫɥɢɚɪ ɝɭɦɟɧɬ[ ɧɟɩɪɢɧɚɞɥɟɠɢɬɞɚɧɧɨɣɨɛɥɚɫɬɢ ɄɨɥɢɱɟɫɬɜɨɢɧɫɬɪɭɤɰɢɣIFɢɫɩɨɥɶɡɭɟɦɨɟɜɩɪɨɝɪɚɦɦɟɛɭɞɟɬɡɚɜɢɫɟɬɶɨɬ ɱɢɫɥɚɜɟɬɜɟɣɪɚɡɜɟɬɜɥɟɧɢɹȼɯɨɞɟɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɛɭɞɭɬɨɫɭɳɟɫɬɜɥɟɧɵɜɫɟ ɩɪɨɜɟɪɤɢɜɢɧɫɬɪɭɤɰɢɹɯIFɱɬɨɹɜɥɹɟɬɫɹɜɨɩɪɟɞɟɥɟɧɧɨɣɫɬɟɩɟɧɢɧɟɞɨɫɬɚɬɤɨɦ ɞɚɧɧɨɝɨɦɟɬɨɞɚɉɪɟɢɦɭɳɟɫɬɜɨɦɪɚɫɫɦɚɬɪɢɜɚɟɦɨɝɨɩɨɞɯɨɞɚɹɜɥɹɟɬɫɹɩɪɨɫɬɨɬɚ ɡɚɩɢɫɢɤɨɞɚɩɪɨɝɪɚɦɦɵ ɫɥɨɠɧɨɞɨɩɭɫɬɢɬɶɨɲɢɛɤɭ  ɉɪɢɩɨɞɝɨɬɨɜɤɟɧɚɛɨɪɚɞɚɧɧɵɯɞɥɹɩɪɨɜɟɪɤɢɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨ ɞɢɦɨɩɨɦɧɢɬɶɨɬɨɦɱɬɨɤɨɥɢɱɟɫɬɜɨɬɟɫɬɨɜɵɯɧɚɛɨɪɨɜɞɚɧɧɵɯɛɭɞɟɬɡɚɜɢɫɟɬɶ ɨɬɱɢɫɥɚɪɚɫɱɟɬɧɵɯɮɨɪɦɭɥɈɞɢɧɬɟɫɬɨɜɵɣɧɚɛɨɪɞɚɧɧɵɯɩɨɡɜɨɥɹɟɬɩɪɨɜɟɪɢɬɶ ɥɢɲɶɨɞɧɭɜɟɬɜɶɪɚɡɜɟɬɜɥɟɧɢɹ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɟɫɧɢɦɤɢɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. Ⱦɥɹɩɪɨɜɟɪɤɢɤɨɪɪɟɤɬɧɨɫɬɢɫɨɫɬɚɜɥɟɧɧɨɣɩɪɨɝɪɚɦɦɵɪɟɤɨ ɦɟɧɞɭɟɬɫɹ ɩɪɨɜɟɫɬɢ ɩɚɪɚɥɥɟɥɶɧɵɟ ɪɚɫɱɟɬɵ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɫ ɩɪɢɦɟ 29
ɧɟɧɢɟɦɩɪɢɧɟɨɛɯɨɞɢɦɨɫɬɢɜɫɬɪɨɟɧɧɵɯɦɚɬɟɦɚɬɢɱɟɫɤɢɯɮɭɧɤɰɢɣ ȼɨɬɱɟɬɩɨ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɩɨɦɟɫɬɢɬɶ ɷɤɪɚɧɧɵɣ ɫɧɢɦɨɤ ɪɟɡɭɥɶɬɚɬɚ ɞɚɧɧɨɣɩɪɨɜɟɪɤɢ ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɪɚɡɜɟɬɜɥɹɸɳɢɯɫɹ ɜɵɱɢɫɥɢɬɟɥɶɧɵɯɩɪɨɰɟɫɫɨɜɫɩɪɢɦɟɧɟɧɢɟɦɫɨɤɪɚɳɟɧɧɨɣɮɨɪɦɵɨɩɟɪɚɬɨɪɚ,) Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɪɟɲɢɬɶ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɡɚɞɚɱɭ ɜɵɱɢɫɥɟɧɢɹ ɢ ɜɵɜɨɞɚ ɡɧɚɱɟɧɢɣɮɭɧɤɰɢɢ y ­5 [ ° °7e [ °° ®VLQ 2 [ ° ° 2 °[  4 °¯ 3 ɩɪɢ [ ! 11 ɩɪɢ 11 t [ ! 4 ɩɪɢ 4 t [ ! 1 ɩɪɢ [ d 1. ɩɪɢɦɟɧɹɹɫɨɤɪɚɳɟɧɧɭɸɮɨɪɦɭɨɩɟɪɚɬɨɪɚ,)ɋɨɡɞɚɬɶɛɥɨɤ-ɫɯɟɦɭɚɥɝɨɪɢɬɦɚɪɟɲɟɧɢɹ ɡɚɞɚɱɢȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ɩɪɨɜɟɞɹɩɚ ɪɚɥɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ . 1 Ɋɟɲɟɧɢɟ ȼɵɪɚɠɟɧɢɟ 5 [ ɦɨɠɧɨɡɚɩɢɫɚɬɶɜɜɢɞɟ e 5 30 ˜ OQ [ .
Ȼɥɨɤ-ɫɯɟɦɚɚɥɝɨɪɢɬɦɚɪɟɲɟɧɢɹɡɚɞɚɱɢ ɇɚɱɚɥɨ ȼɜɨɞx ɧɟɬ x!1 ɞɚ 5 [ ɧɟɬ 11 • x ! 4 ɞɚ \ Hx ɧɟɬ 4•x!1 ɞɚ \ VLQ2x ɧɟɬ x!1 ɞɚ 2 \ [   ȼɵɜɨɞ\ Ʉɨɧɟɰ 31
Ʉɨɞɩɪɨɝɪɚɦɦɵ program lDEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ2 ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` var x\real begin ^ɋɨɨɛɳɟɧɢɟɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹɨɧɟɨɛɯɨɞɢɦɨɫɬɢɜɜɨɞɚɢɫɯɨɞɧɵɯɞɚɧɧɵɯ` write µȼɜɟɞɢɬɟx ¶   readln(x  ^ɜɜɨɞɡɧɚɱɟɧɢɹɩɟɪɟɦɟɧɧɨɣ[ɫɤɥɚɜɢɚɬɭɪɵ` if x !then ^ɩɪɨɜɟɪɤɚɩɟɪɜɨɝɨɭɫɥɨɜɢɹ` \  H[S  OQ(x  ^ɉɪɨɜɟɪɤɚ ɜɬɨɪɨɝɨ ɭɫɥɨɜɢɹ ɩɨɫɤɨɥɶɤɭ ɭɫɥɨɜɢɟ ɹɜɥɹɟɬɫɹ ɫɨɫɬɚɜɧɵɦ ɟɝɨ ɱɚɫɬɢ ɡɚɤɥɸɱɚɸɬɫɹɜɤɪɭɝɥɵɟɫɤɨɛɤɢɢɨɛɴɟɞɢɧɹɸɬɫɹɥɨɝɢɱɟɫɤɢɦɫɨɸɡɨɦAND} if (x   and (x ! then  \   H[S(x  if (x   and (x ! then ^ɩɪɨɜɟɪɤɚɬɪɟɬɶɟɝɨɭɫɥɨɜɢɹ` \  VTU(VLQ(x   if x < 1 then ^ɩɪɨɜɟɪɤɚɱɟɬɜɟɪɬɨɝɨɭɫɥɨɜɢɹ` \  (VTU(x   ^ȼɵɜɨɞ ɧɚ ɷɤɪɚɧ ɡɧɚɱɟɧɢɹ ɭ ɨɬɮɨɪɦɚɬɢɪɨɜɚɧɧɵɣ ɜɢɞ – ɞɜɚ ɡɧɚɤɚ ɩɨɫɥɟ ɡɚɩɹ ɬɨɣ ` writeln µ\ ¶\  readln end. ɗɤɪɚɧɧɵɟɫɧɢɦɤɢɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal 32
ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ Ɋɟɡɭɥɶɬɚɬɵ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɢ ɩɪɨɜɟɞɟɧɢɹ ɩɚɪɚɥ ɥɟɥɶɧɵɯɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ Ɂɧɚɱɟɧɢɟ[ 17 8 2 –3 Ɋɟɡɭɥɶɬɚɬɵɜɵɱɢɫɥɟɧɢɣ ɊɟɞɚɤɬɨɪPascal Ɍɚɛɥɢɱɧɵɣɩɪɨɰɟɫɫɨɪ 1        ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫ ɪɟɡɭɥɶɬɚɬɚɦɢ ɪɚɫɱɟɬɨɜ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɦɨɠɧɨ ɝɨɜɨɪɢɬɶ ɨ ɬɨɦ ɱɬɨ ɩɪɨ ɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ 33
Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. Ʉɚɤɢɟɨɩɟɪɚɬɨɪɵɩɪɢɦɟɧɹɸɬɫɹɜ3DVFDOɞɥɹɩɨɫɬɪɨɟɧɢɹɪɚɡɜɟɬɜɥɹɸɳɢɯɫɹ ɚɥɝɨɪɢɬɦɨɜ" 2. ɈɩɢɲɢɬɟɫɢɧɬɚɤɫɢɫɫɨɤɪɚɳɟɧɧɨɣɮɨɪɦɵɨɩɟɪɚɬɨɪɚIF. 3. Ʉɚɤɨɟ ɤɨɥɢɱɟɫɬɜɨ ɨɩɟɪɚɬɨɪɨɜ ɦɨɠɧɨ ɡɚɩɢɫɚɬɶ ɩɨɫɥɟ ɤɥɸɱɟɜɨɝɨ ɫɥɨɜɚ then" 4. ɑɬɨȼɵɡɧɚɟɬɟɨɛɢɫɩɨɥɶɡɨɜɚɧɢɢɥɨɝɢɱɟɫɤɢɯɫɨɸɡɨɜɜPascal" 5. ɄɚɤɡɚɩɢɫɵɜɚɸɬɫɹɫɥɨɠɧɵɟɥɨɝɢɱɟɫɤɢɟɭɫɥɨɜɢɹɜPascal" 6. ɉɪɟɞɫɬɚɜɶɬɟ ɜ ɮɨɪɦɟ ɛɥɨɤ-ɫɯɟɦɵ ɫɨɤɪɚɳɟɧɧɭɸ ɢɧɫɬɪɭɤɰɢɸ ɨɩɟɪɚɬɨɪɚ IF. 7. Ɋɚɫɫɤɚɠɢɬɟ ɨ ɩɪɟɢɦɭɳɟɫɬɜɚɯ ɢ ɧɟɞɨɫɬɚɬɤɚɯ ɩɪɢɦɟɧɟɧɧɨɝɨ ɜ ɥɚɛɨɪɚɬɨɪ ɧɨɣɪɚɛɨɬɟɚɥɝɨɪɢɬɦɚɪɟɲɟɧɢɹɡɚɞɚɱɢ 34
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ Ɋɚɡɜɟɬɜɥɹɸɳɢɟɫɹɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵ ɂɫɩɨɥɶɡɨɜɚɧɢɟɜɥɨɠɟɧɧɵɯɢɧɫɬɪɭɤɰɢɣIF THEN ELSE ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɪɚɡɜɟɬɜɥɹɸ ɳɢɯɫɹɜɵɱɢɫɥɢɬɟɥɶɧɵɯɩɪɨɰɟɫɫɨɜɫɩɪɢɦɟɧɟɧɢɟɦɩɨɥɧɨɣɮɨɪɦɵɨɩɟɪɚɬɨɪɚ,) Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɪɟɲɢɬɶ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɡɚɞɚɱɭ ɜɵɱɢɫɥɟɧɢɹ ɢ ɜɵɜɨɞɚɡɧɚɱɟɧɢɣɮɭɧɤɰɢɢ y f [ ɩɪɢɦɟɧɹɹɩɨɥɧɭɸɮɨɪɦɭɨɩɟɪɚɬɨɪɚ,)ɋɨ ɡɞɚɬɶ ɛɥɨɤ-ɫɯɟɦɭ ɚɥɝɨɪɢɬɦɚ ɪɟɲɟɧɢɹ ɡɚɞɚɱɢ ȼɵɩɨɥɧɢɬɶ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨɚɧɚ ɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ɩɪɨɜɟɞɹɩɚɪɚɥɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛɥɢɱ ɧɨɦɩɪɨɰɟɫɫɨɪɟ  ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ y f [ 2 ɩɪɢ ­3 [ ° ° [ 2 FRV [ ɩɪɢ °° y ® ɩɪɢ ° [  153 °3  [ ° °¯4 [  1 ɩɪɢ ɩɪɢ ­7 [ 4 ° °°OJ [  1 ɩɪɢ y ® [ ɩɪɢ °e ° ɩɪɢ °¯ WJ[ ­FRV [  1 ɩɪɢ ° ɩɪɢ °OJ 2 [ ° y ® ɩɪɢ °7 [  54 ° ɩɪɢ °¯ FWJ[ ɩɪɢ ­e [ ° °°VLQ 2 [ ɩɪɢ y ® °OJ 7 [ ɩɪɢ ° 2 ɩɪɢ ¯° [ 35 [  7 1 ! [ t 7 4 ! [ t 1 [ t 4. [ ! 18 18 t [ ! 12 12 t [ ! 7 [ d 7. [ ! 24 24 t [ ! 15 15 t [ ! 3 [ d 3. [ ! 2 2 t [ ! 1 1 t [ ! 05 [ d 05.
y ȼɚɪɢɚɧɬʋ 3 5. 6. 7. 8. 9. f [ ɩɪɢ [  10 ­ [  17 ° °OQ [ 3  17 ɩɪɢ  10 d [  4 ° ° y ® 2 ɩɪɢ  4 d [  0 ° [  34 ° °[ ɩɪɢ [ t 0. °  21 ¯2 ­3 4 [ 2  20 ɩɪɢ [  4 ° °°7 VLQ [ ɩɪɢ  4 d [  3 y ® ɩɪɢ 3 d [  8 °WJ[ ° °¯VLQ [  1 ɩɪɢ [ t 8. ­4 [  VLQ [ 2 ɩɪɢ [  10 ° °FRV [  3 ɩɪɢ  10 d [  9 ° ° y ® ɩɪɢ 9 d [  15 ° [4 ° [7 ° °¯8 [  21 ɩɪɢ [ t 15. ɩɪɢ [ t 6 ­OQ [ ° °FRV 3 [ ɩɪɢ 4 d [  6 °° y ®e [ ɩɪɢ  2 d [  4 ° ° ° VLQ [ ɩɪɢ [  2. ¯° [  25 ɩɪɢ [ d 15 ­4 [  3 ° ° °° [ 2  FRV [ ɩɪɢ  15  [ d 8 y ® 4 ° 3 ° [  OQ [ ɩɪɢ 8  [ d 15 ° °¯ [  12 ɩɪɢ [ ! 15. 36
y ȼɚɪɢɚɧɬʋ 10. y 11. y 12. ­ VLQ [  7 ° FRV [  21 ° °°5 [  OQ [  10 ® ° ° [  25 ° 4 °¯9 [ 13. 14. y f [ ɩɪɢ [ ! 5 ­ [ ° 2 ɩɪɢ 5 t [ ! 3 °°VLQ [ ® ɩɪɢ 3 t [ ! 1 °e [ ° °¯FRV [  7 ɩɪɢ [ d 1. ­VLQ 3 [ ɩɪɢ [ ! 34 ° °°5 [ ɩɪɢ 34 t [ ! 20 ® °FRV 4 [ ɩɪɢ 20 t [ ! 10 ° ¯° [  10 ɩɪɢ [ d 10. 4 ­[3  7 [  4 2 ° ° °° VLQ [  1 y ® FRV [  12 ° °[ [3  2 ° °¯OQ [ ­ [ FRV [  9 ° 2 VLQ [ ° °° y ®4 [  24  05 ° °OJ [ ° ¯°2 [  1 37 ɩɪɢ [ d 3 ɩɪɢ 3  [ d 9 ɩɪɢ 9  [ d 24 ɩɪɢ [ ! 24. ɩɪɢ [  7 ɩɪɢ  7 d [  5 ɩɪɢ 5 d [  14 ɩɪɢ [ t 14. ɩɪɢ [  3 ɩɪɢ 3 d [  11 ɩɪɢ 11 d [  25 ɩɪɢ [ t 25.
y ȼɚɪɢɚɧɬʋ 2 15. 16. f [ ɩɪɢ [ ! 3 ­1 [ ° °e [ ɩɪɢ 3 t [ ! 2 °° y ® ɩɪɢ 2 t [ ! 10 ° [3 ° [ ° °¯10 [  4 ɩɪɢ [ d 10. ɩɪɢ [ ! 11 ­5 [ ° °7e [ ɩɪɢ 11 t [ ! 4 °° y ®VLQ 2 [ ɩɪɢ 4 t [ ! 1 ° ° 2 ° [  4 ɩɪɢ [ d 1. ¯° 3 Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ȼɩɪɨɰɟɫɫɟɜɵɩɨɥɧɟɧɢɹɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵɧɭɠɧɨɜɵɱɢɫɥɢɬɶɡɧɚɱɟɧɢɟ ɮɭɧɤɰɢɢɡɚɞɚɧɧɨɣɪɚɡɥɢɱɧɵɦɢɮɨɪɦɭɥɚɦɢɧɚɪɚɡɧɵɯɭɱɚɫɬɤɚɯɟɟɨɩɪɟɞɟɥɟɧɢɹ ɫɩɪɢɦɟɧɟɧɢɟɦɩɨɥɧɨɣɢɧɫɬɪɭɤɰɢɢɨɩɟɪɚɬɨɪɚIF if ɭɫɥɨɜɢɟ!then ɨɩɟɪɚɬɨɪ!else ɨɩɟɪɚɬɨɪ! Ɋɚɫɫɦɚɬɪɢɜɚɟɦɵɣ ɦɟɬɨɞ ɪɟɲɟɧɢɹ ɡɚɞɚɱɢ ɧɚɡɵɜɚɟɬɫɹ ɦɟɬɨɞɨɦ ɩɪɨɜɟɪɤɢ ɬɨɱɟɤɜɟɬɜɥɟɧɢɹȼɩɪɨɰɟɫɫɟɩɨɫɬɪɨɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɫɥɟɞɭɟɬɩɨɦɧɢɬɶ í ɩɪɨɜɟɪɤɭɬɨɱɟɤɜɟɬɜɥɟɧɢɹɧɟɨɛɯɨɞɢɦɨɧɚɱɢɧɚɬɶɫɨɞɧɨɣɢɡɤɪɚɣɧɢɯɬɨɱɟɤ ɞɥɹɜɚɪɢɚɧɬɚɬɚɤɢɦɢɬɨɱɤɚɦɢɹɜɥɹɸɬɫɹɬɨɱɤɢɢ  í ɟɫɥɢɬɨɱɤɚ ɜɟɬɜɥɟɧɢɹɡɚɞɚɟɬɫɹɞɜɭɦɹɨɬɧɨɲɟɧɢɹɦɢɬɨɢɡɷɬɢɯɨɬɧɨɲɟɧɢɣ ɜ ɩɨɥɧɨɣ ɢɧɫɬɪɭɤɰɢɢ ɨɩɟɪɚɬɨɪɚ ,) ɜɵɛɢɪɚɟɬɫɹ ɬɨ ɞɥɹ ɤɨɬɨɪɨɝɨ ɩɨ ɧɚɩɪɚɜɥɟɧɢɸthen ɦɨɠɧɨɜɵɞɟɥɢɬɶɪɚɫɱɟɬɧɭɸɮɨɪɦɭɥɭ ȼ ɯɨɞɟ ɩɪɢɦɟɧɟɧɢɹ ɞɚɧɧɨɝɨ ɦɟɬɨɞɚ ɫɭɦɦɚɪɧɨɟ ɱɢɫɥɨ ɨɩɟɪɚɬɨɪɨɜ IF ɧɟ ɛɭɞɟɬɩɪɟɜɨɫɯɨɞɢɬɶɱɢɫɥɚɬɨɱɟɤɜɟɬɜɥɟɧɢɹȼɨɜɫɟɯɡɚɞɚɱɚɯɞɚɧɧɨɣɥɚɛɨɪɚɬɨɪ ɧɨɣɪɚɛɨɬɵɬɚɤɢɯɬɨɱɟɤɬɪɢ ɉɪɢ ɫɨɫɬɚɜɥɟɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨɦɧɢɬɶ ɱɬɨ ɜ ɨɩɟɪɚɬɨɪɟ IF ɩɟɪɟɞɫɥɭɠɟɛɧɵɦɫɥɨɜɨɦHOVH ɬɨɱɤɚɫɡɚɩɹɬɨɣɧɟɫɬɚɜɢɬɫɹ ɉɪɟɢɦɭɳɟɫɬɜɨɦ ɪɚɫɫɦɚɬɪɢɜɚɟɦɨɝɨ ɦɟɬɨɞɚ ɪɟɲɟɧɢɹ ɡɚɞɚɱɢ ɹɜɥɹɟɬɫɹ ɦɟɧɶɲɟɟɫɪɟɞɧɟɟɜɪɟɦɹɜɵɩɨɥɧɟɧɢɹɩɨɫɤɨɥɶɤɭɩɨɫɥɟɜɵɩɨɥɧɟɧɢɹɜɵɛɪɚɧɧɨɝɨ ɨɩɟɪɚɬɨɪɚɩɪɢɫɜɚɢɜɚɧɢɹɞɚɥɶɧɟɣɲɢɟɩɪɨɜɟɪɤɢɜɨɜɥɨɠɟɧɧɵɯɨɩɟɪɚɬɨɪɚɯIF ɧɟ ɩɪɨɢɡɜɨɞɹɬɫɹ ɉɪɢɩɨɞɝɨɬɨɜɤɟɧɚɛɨɪɚɞɚɧɧɵɯɞɥɹɩɪɨɜɟɪɤɢɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨ ɞɢɦɨɩɨɦɧɢɬɶɨɬɨɦɱɬɨɤɨɥɢɱɟɫɬɜɨɬɟɫɬɨɜɵɯɧɚɛɨɪɨɜɞɚɧɧɵɯɛɭɞɟɬɡɚɜɢɫɟɬɶ 38
ɨɬɱɢɫɥɚɪɚɫɱɟɬɧɵɯɮɨɪɦɭɥɈɞɢɧɬɟɫɬɨɜɵɣɧɚɛɨɪɞɚɧɧɵɯɩɨɡɜɨɥɹɟɬɩɪɨɜɟɪɢɬɶ ɥɢɲɶɨɞɧɭɜɟɬɜɶɪɚɡɜɟɬɜɥɟɧɢɹ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɟɫɧɢɦɤɢɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. Ⱦɥɹɩɪɨɜɟɪɤɢɤɨɪɪɟɤɬɧɨɫɬɢɫɨɫɬɚɜɥɟɧɧɨɣɩɪɨɝɪɚɦɦɵɪɟɤɨ ɦɟɧɞɭɟɬɫɹ ɩɪɨɜɟɫɬɢ ɩɚɪɚɥɥɟɥɶɧɵɟ ɪɚɫɱɟɬɵ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɫ ɩɪɢɦɟ ɧɟɧɢɟɦɩɪɢɧɟɨɛɯɨɞɢɦɨɫɬɢɜɫɬɪɨɟɧɧɵɯɦɚɬɟɦɚɬɢɱɟɫɤɢɯɮɭɧɤɰɢɣ ȼɨɬɱɟɬɩɨ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɩɨɦɟɫɬɢɬɶ ɷɤɪɚɧɧɵɣ ɫɧɢɦɨɤ ɪɟɡɭɥɶɬɚɬɚ ɞɚɧɧɨɣɩɪɨɜɟɪɤɢ ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɪɚɡɜɟɬɜɥɹɸɳɢɯɫɹ ɜɵɱɢɫɥɢɬɟɥɶɧɵɯɩɪɨɰɟɫɫɨɜɫɩɪɢɦɟɧɟɧɢɟɦɩɨɥɧɨɣɮɨɪɦɵɨɩɟɪɚɬɨɪɚ,) Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɪɟɲɢɬɶ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɡɚɞɚɱɭ ɜɵɱɢɫɥɟɧɢɹ ɢ ɜɵɜɨɞɚ ɡɧɚɱɟɧɢɣɮɭɧɤɰɢɢ y ­5 [ ° °7e [ °° ®VLQ 2 [ ° ° 2 °[  4 °¯ 3 ɩɪɢ [ ! 11 ɩɪɢ 11 t [ ! 4 ɩɪɢ 4 t [ ! 1 ɩɪɢ [ d 1. ɩɪɢɦɟɧɹɹɩɨɥɧɭɸɮɨɪɦɭɨɩɟɪɚɬɨɪɚ,)ɋɨɡɞɚɬɶɛɥɨɤ-ɫɯɟɦɭɚɥɝɨɪɢɬɦɚɪɟɲɟɧɢɹɡɚɞɚ ɱɢȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ɩɪɨɜɟɞɹɩɚɪɚɥ ɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ . Ɋɟɲɟɧɢɟ 1 ˜ OQ [ ȼɵɪɚɠɟɧɢɟ 5 [ ɦɨɠɧɨɡɚɩɢɫɚɬɶɜɜɢɞɟ e 5 . Ʉɨɞɩɪɨɝɪɚɦɦɵ program lDEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` var x\real^ɨɩɢɫɚɧɢɟɩɟɪɟɦɟɧɧɵɯ` begin ^ȼɵɜɨɞɫɨɨɛɳɟɧɢɹɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹɨɧɟɨɛɯɨɞɢɦɨɫɬɢɜɜɨɞɚɢɫɯɨɞɧɵɯɞɚɧɧɵɯ` write µȼɜɟɞɢɬɟx ¶  readln(x ^ɜɜɨɞɢɫɯɨɞɧɵɯɞɚɧɧɵɯɫɤɥɚɜɢɚɬɭɪɵ` if x !then ^ɩɪɨɜɟɪɹɟɦɭɫɥɨɜɢɟ[!` \  H[S  OQ(x)) 39
^ȿɫɥɢ ɭɫɥɨɜɢɟ [! ɧɟ ɜɵɩɨɥɧɹɟɬɫɹ ɬɨ ɚɜɬɨɦɚɬɢɱɟɫɤɢ ɜɵɩɨɥɧɹɟɬɫɹ ɭɫɥɨɜɢɟ [ ɩɨɷɬɨɦɭɧɚɞɚɧɧɨɦɷɬɚɩɟɧɭɠɧɨɩɪɨɜɟɪɢɬɶɬɨɥɶɤɨɭɫɥɨɜɢɟ[!` else if x !then  \   H[S(x) ^ȿɫɥɢ ɭɫɥɨɜɢɟ [! ɧɟ ɜɵɩɨɥɧɹɟɬɫɹ ɬɨ ɚɜɬɨɦɚɬɢɱɟɫɤɢ ɜɵɩɨɥɧɹɟɬɫɹ ɭɫɥɨɜɢɟ [ ɩɨɷɬɨɦɭɧɚɞɚɧɧɨɦɷɬɚɩɟɧɭɠɧɨɩɪɨɜɟɪɢɬɶɬɨɥɶɤɨɭɫɥɨɜɢɟ[!` else if x !then  \  VTU(VLQ(x)) ^ȿɫɥɢ ɭɫɥɨɜɢɟ [! ɧɟ ɜɵɩɨɥɧɹɟɬɫɹ ɬɨ ɚɜɬɨɦɚɬɢɱɟɫɤɢ ɜɵɩɨɥɧɹɟɬɫɹ ɭɫɥɨɜɢɟ [ ɩɨɷɬɨɦɭɦɨɠɧɨɫɪɚɡɭɩɪɨɢɡɜɟɫɬɢɜɵɱɢɫɥɟɧɢɹɩɨɮɨɪɦɭɥɟ` else \   VTU(x   ^ȼɵɜɨɞɢɦɧɚɷɤɪɚɧɡɧɚɱɟɧɢɟyɨɬɮɨɪɦɚɬɢɪɨɜɚɧɧɵɣɜɢɞ} writeln µ\ ¶\  readln end. Ȼɥɨɤ-ɫɯɟɦɚɚɥɝɨɪɢɬɦɚɪɟɲɟɧɢɹɡɚɞɚɱɢ 40
ɗɤɪɚɧɧɵɟɫɧɢɦɤɢɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ 41
Ɋɟɡɭɥɶɬɚɬɵ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɢ ɩɪɨɜɟɞɟɧɢɹ ɩɚɪɚɥ ɥɟɥɶɧɵɯɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ Ɂɧɚɱɟɧɢɟ[ 17 8 2 –3 Ɋɟɡɭɥɶɬɚɬɵɜɵɱɢɫɥɟɧɢɣ ɊɟɞɚɤɬɨɪPascal Ɍɚɛɥɢɱɧɵɣɩɪɨɰɟɫɫɨɪ 1        ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣ ɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫ ɪɟɡɭɥɶɬɚɬɚɦɢ ɪɚɫɱɟɬɨɜ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɦɨɠɧɨ ɝɨɜɨɪɢɬɶ ɨ ɬɨɦ ɱɬɨ ɩɪɨ ɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. ɈɩɢɲɢɬɟɫɢɧɬɚɤɫɢɫɩɨɥɧɨɣɮɨɪɦɵɨɩɟɪɚɬɨɪɚIF. 2. Ʉɚɤɨɟɤɨɥɢɱɟɫɬɜɨɨɩɟɪɚɬɨɪɨɜɦɨɠɧɨɡɚɩɢɫɚɬɶɩɨɫɥɟɤɥɸɱɟɜɵɯɫɥɨɜthen ɢelse" 3. ɉɪɟɞɫɬɚɜɶɬɟɜɮɨɪɦɟɛɥɨɤ-ɫɯɟɦɵɩɨɥɧɭɸɢɧɫɬɪɭɤɰɢɸɨɩɟɪɚɬɨɪɚIF. 4. Ɋɚɫɫɤɚɠɢɬɟ ɨ ɩɪɟɢɦɭɳɟɫɬɜɚɯ ɢ ɧɟɞɨɫɬɚɬɤɚɯ ɩɪɢɦɟɧɟɧɧɨɝɨ ɜ ɥɚɛɨɪɚɬɨɪ ɧɨɣɪɚɛɨɬɟɚɥɝɨɪɢɬɦɚɪɟɲɟɧɢɹɡɚɞɚɱɢ 5. Ʉɚɤɩɨɫɬɭɩɢɬɶɟɫɥɢɩɨɫɥɟɤɥɸɱɟɜɵɯɫɥɨɜthen ɢɥɢelse ɧɭɠɧɨɜɵɩɨɥɧɢɬɶ ɫɪɚɡɭɧɟɫɤɨɥɶɤɨɨɩɟɪɚɬɨɪɨɜ"  Ɉɪɝɚɧɢɡɚɰɢɹɰɢɤɥɨɜ Ʉɨɦɩɶɸɬɟɪɦɨɠɟɬɡɚɞɚɧɧɨɟɱɢɫɥɨɪɚɡɜɵɩɨɥɧɢɬɶɨɞɧɢɢɬɟɠɟɞɟɣɫɬɜɢɹɫ ɪɚɡɧɵɦɢɞɚɧɧɵɦɢɉɨɜɬɨɪɹɸɳɢɟɫɹɞɟɣɫɬɜɢɹɜɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɢɧɚɡɵɜɚɸɬɫɹ ɰɢɤɥɨɦɐɢɤɥɧɟɦɨɠɟɬɜɵɩɨɥɧɹɬɶɫɹɜɟɱɧɨɜɷɬɨɦɫɥɭɱɚɟɧɚɪɭɲɚɟɬɫɹɫɜɨɣɫɬɜɨ ɚɥɝɨɪɢɬɦɚɪɟɲɢɬɶɡɚɞɚɱɭɡɚɤɨɧɟɱɧɨɟɱɢɫɥɨɲɚɝɨɜɐɢɤɥɡɚɤɚɧɱɢɜɚɟɬɫɹɩɨɤɚ ɤɨɦɭ-ɥɢɛɨ ɭɫɥɨɜɢɸ. ɉɪɨɜɟɪɤɚ ɷɬɨɝɨ ɭɫɥɨɜɢɹ ɦɨɠɟɬ ɩɪɨɢɡɜɨɞɢɬɶɫɹ ɜ ɧɚɱɚɥɟ ɤɚɠɞɨɝɨ ɩɨɜɬɨɪɹɸɳɟɝɨɫɹ ɲɚɝɚ ɜ ɷɬɨɦ ɫɥɭɱɚɟ ɰɢɤɥ ɧɚɡɵɜɚɟɬɫɹ ©ɩɨɤɚª ɉɪɢ ɩɪɨɜɟɪɤɟɭɫɥɨɜɢɹɜɤɨɧɰɟɤɚɠɞɨɝɨɲɚɝɚ ɰɢɤɥɧɚɡɵɜɚɟɬɫɹ«ɞɨªɊɚɡɧɨɜɢɞɧɨɫɬɶɸ ɰɢɤɥɚ«ɞɨª ɹɜɥɹɟɬɫɹɬɚɤɠɟɰɢɤɥ«ɩɟɪɟɫɱɟɬª. ȼ ɰɢɤɥɟ «ɩɨɤɚª ɫɧɚɱɚɥɚ ɩɪɨɜɟɪɹɟɬɫɹ ɭɫɥɨɜɢɟ ɢ ɟɫɥɢ ɨɧɨ ɜɵɩɨɥɧɹɟɬɫɹ ɬɟ ɥɨɝɢɱɟɫɤɨɟɜɵɪɚɠɟɧɢɟɢɫɬɢɧɧɨɬɨɜɵɩɨɥɧɹɟɬɫɹɨɩɟɪɚɬɨɪɢɫɧɨɜɚɩɪɨɜɟɪɹ ɟɬɫɹɭɫɥɨɜɢɟɁɚɩɢɫɚɧɧɨɟɜɰɢɤɥɟ«ɩɨɤɚª ɭɫɥɨɜɢɟɹɜɥɹɟɬɫɹɭɫɥɨɜɢɟɦɩɪɨɞɨɥɠɟ ɧɢɹɰɢɤɥɚɄɚɤɬɨɥɶɤɨɨɧɨɩɟɪɟɫɬɚɧɟɬɜɵɩɨɥɧɹɬɶɫɹɰɢɤɥɡɚɜɟɪɲɢɬɫɹȼɵɯɨɞɢɡ ɪɨɦɛɚ «ª ɢɥɢ «ɞɚª  ɨɡɧɚɱɚɟɬ ɜɵɩɨɥɧɟɧɢɟ ɭɫɥɨɜɢɹ ɰɢɤɥɚ «–ª ɢɥɢ «ɧɟɬª) – ɧɟɜɵɩɨɥɧɟɧɢɟɐɢɤɥ «ɩɨɤɚª ɧɟɜɵɩɨɥɧɢɬɫɹɧɢɪɚɡɭɟɫɥɢɭɫɥɨɜɢɟɩɪɢɜɯɨɞɟɜ ɫɬɪɭɤɬɭɪɭ ɨɤɚɡɚɥɨɫɶ ɥɨɠɧɨ Ʉɚɤ ɩɪɚɜɢɥɨ ɰɢɤɥ «ɩɨɤɚª ɫɨɞɟɪɠɢɬ ɭɫɥɨɜɢɟ ɩɨ ɜɬɨɪɟɧɢɹɚɰɢɤɥ«ɞɨª – ɭɫɥɨɜɢɟɨɤɨɧɱɚɧɢɹɪɚɛɨɬɵɰɢɤɥɚɈɛɟɫɬɪɭɤɬɭɪɵɢɦɟ ɸɬ ɨɞɢɧ ɜɯɨɞ ɢ ɨɞɢɧ ɜɵɯɨɞ Ɉɞɧɚɤɨ ɰɢɤɥ «ɞɨª ɜɫɟɝɞɚ ɜɵɩɨɥɧɹɟɬɫɹ ɯɨɬɹ ɛɵ 42
ɨɞɢɧɪɚɡɩɨɬɨɦɭɱɬɨɭɫɥɨɜɢɟɩɪɨɜɟɪɹɟɬɫɹɩɨɫɥɟɜɵɩɨɥɧɟɧɢɹɞɟɣɫɬɜɢɹɗɬɨɡɚ ɬɪɭɞɧɹɟɬ ɩɪɨɜɟɪɤɭ ɩɪɚɜɢɥɶɧɨɫɬɢ ɩɪɨɝɪɚɦɦɵ ɩɨɷɬɨɦɭ ɥɭɱɲɟ ɢɫɩɨɥɶɡɨɜɚɬɶ ɰɢɤɥ©ɩɨɤɚªɈɩɟɪɚɬɨɪɜɰɢɤɥɟɦɨɠɟɬɛɵɬɶɩɪɨɫɬɵɦɢɥɢɫɨɫɬɚɜɧɵɦɡɚɤɥɸɱɟɧ ɧɵɦɜɨɩɟɪɚɬɨɪɧɵɟɫɤɨɛɤɢ ȼɷɬɨɦɫɥɭɱɚɟ ɜɰɢɤɥɟɦɨɝɭɬɩɨɜɬɨɪɹɬɶɫɹɧɟɨɞɢɧ ɨɩɟɪɚɬɨɪ ɚ ɧɟɫɤɨɥɶɤɨ ɉɨɜɬɨɪɹɸɳɢɟɫɹ ɜ ɰɢɤɥɟ ɨɩɟɪɚɬɨɪɵ ɧɚɡɵɜɚɸɬɫɹ ɬɟɥɨɦ ɰɢɤɥɚ ɐɢɤɥɵɦɨɠɧɨɨɪɝɚɧɢɡɨɜɵɜɚɬɶɢɫɩɨɥɶɡɭɹɪɚɡɥɢɱɧɵɟɫɪɟɞɫɬɜɚɹɡɵɤɚɉɚɫ ɤɚɥɶ Ɉɩɟɪɚɬɨɪ ɛɟɡɭɫɥɨɜɧɨɝɨ ɩɟɪɟɯɨɞɚ ɗɬɨɬ ɨɩɟɪɚɬɨɪ ɩɨɡɜɨɥɹɟɬ ɩɟɪɟɣɬɢ ɛɟɡ ɩɪɨɜɟɪɤɢɭɫɥɨɜɢɹɥɢɛɨɧɚɨɞɢɧɢɡɩɪɟɞɵɞɭɳɢɯɨɩɟɪɚɬɨɪɨɜɥɢɛɨɧɚɨɞɢɧɢɡɩɨ ɫɥɟɞɭɸɳɢɯɬɟ ɢɡɦɟɧɢɬɶɩɨɪɹɞɨɤɜɵɩɨɥɧɟɧɢɹɤɨɦɚɧɞɈɛɳɢɣɜɢɞɨɩɟɪɚɬɨɪɚ JRWRQ  ɝɞɟn – ɰɟɥɨɟɱɢɫɥɨɧɟɛɨɥɟɟɱɟɦɢɡɱɟɬɵɪɟɯɰɢɮɪɧɚɡɵɜɚɟɦɨɟɦɟɬɤɨɣɆɟɬɤɚ ɩɨɹɜɥɹɟɬɫɹɜɩɪɨɝɪɚɦɦɟɬɪɢɪɚɡɚ ɜɨɩɢɫɚɬɟɥɶɧɨɣɱɚɫɬɢɜɪɚɡɞɟɥɟLabel ɜ ɨɩɟɪɚɬɨɪɟgoto ɩɟɪɟɞɨɩɟɪɚɬɨɪɨɦɧɚɤɨɬɨɪɵɣɨɫɭɳɟɫɬɜɥɹɟɬɫɹɛɟɡɭɫɥɨɜɧɵɣ ɩɟɪɟɯɨɞɜɷɬɨɦɫɥɭɱɚɟɦɟɬɤɚɨɬɨɩɟɪɚɬɨɪɚɨɬɞɟɥɹɟɬɫɹɞɜɨɟɬɨɱɢɟɦ  Ɉɪɝɚɧɢɡɚɰɢɹɰɢɤɥɨɜɫɩɨɦɨɳɶɸɨɩɟɪɚɬɨɪɨɜɭɫɥɨɜɧɨɝɨɢɛɟɡɭɫɥɨɜɧɨ ɝɨ ɩɟɪɟɯɨɞɨɜ ɉɭɫɬɶ ɬɪɟɛɭɟɬɫɹ ɜɵɱɢɫɥɢɬɶ ɧɚɢɛɨɥɶɲɢɣ ɨɛɳɢɣ ɞɟɥɢɬɟɥɶ ɞɜɭɯ ɧɚɬɭɪɚɥɶɧɵɯ ɱɢɫɟɥ Ⱥ ɢ ȼ ȼɨɫɩɨɥɶɡɭɟɦɫɹ ɚɥɝɨɪɢɬɦɨɦ ȿɜɤɥɢɞɚ ɛɭɞɟɦ ɭɦɟɧɶɲɚɬɶɤɚɠɞɵɣɪɚɡɛɨɥɶɲɟɟɢɡɱɢɫɟɥɧɚɜɟɥɢɱɢɧɭɦɟɧɶɲɟɝɨɞɨɬɟɯɩɨɪɩɨ ɤɚɨɛɚɡɧɚɱɟɧɢɹɧɟɫɬɚɧɭɬɪɚɜɧɵ Ɋɢɫ5ȼɵɩɨɥɧɟɧɢɟɚɥɝɨɪɢɬɦɚȿɜɤɥɢɞɚ program E label  var DEinteger; begin write µɜɜɟɞɢɬɟɞɜɚɧɚɬɭɪɚɥɶɧɵɯɱɢɫɥɚ¶  readln DE   if D Ethen goto  if D!E then D D- E else E E- D goto  write (‘ ɇɈȾ µDµµEµ  µD HQG 43
Ɉɩɟɪɚɬɨɪɰɢɤɥɚ©ɩɨɤɚª Ʉɚɤɜɢɞɧɨɢɡɩɪɟɞɵɞɭɳɟɝɨɩɪɢɦɟɪɚɰɢɤɥɢɱɟ ɫɤɢɣɩɪɨɰɟɫɫɦɨɠɧɨɨɪɝɚɧɢɡɨɜɚɬɶɛɟɡɢɫɩɨɥɶɡɨɜɚɧɢɹɫɩɟɰɢɚɥɶɧɵɯɨɩɟɪɚɬɨɪɨɜ Ɉɞɧɚɤɨɩɪɢɫɨɫɬɚɜɥɟɧɢɢɞɨɫɬɚɬɨɱɧɨɫɟɪɶɟɡɧɵɯɩɪɨɝɪɚɦɦɢɫɩɨɥɶɡɨɜɚɬɶɨɩɟɪɚ ɬɨɪ ɛɟɡɭɫɥɨɜɧɨɝɨ ɩɟɪɟɯɨɞɚ ɧɟ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɬ ɤ ɦɨɠɧɨ ɛɵɫɬɪɨ ɡɚɩɭɬɚɬɶɫɹ ɩɪɢɩɪɨɜɟɪɤɟɩɪɨɝɪɚɦɦɵɈɩɟɪɚɬɨɪɰɢɤɥɚ©ɩɨɤɚª ɢɦɟɟɬɜɢɞ ZKLOH ɭɫɥɨɜɢɟdo ɨɩɟɪɚɬɨɪ ɢɜɵɩɨɥɧɹɟɬɫɹɫɥɟɞɭɸɳɢɦɨɛɪɚɡɨɦɨɩɟɪɚɬɨɪ ɬɟɥɨɰɢɤɥɚ ɩɨɜɬɨɪɹɟɬɫɹɞɨɬɟɯ ɩɨɪ ɩɨɤɚ ɜɵɩɨɥɧɹɟɬɫɹ ɭɫɥɨɜɢɟ ɢɫɬɢɧɧɨ ɥɨɝɢɱɟɫɤɨɟ ɜɵɪɚɠɟɧɢɟ  Ɉɩɟɪɚɬɨɪ ɦɨɠɟɬ ɛɵɬɶ ɩɪɨɫɬɵɦ ɢɥɢ ɫɨɫɬɚɜɧɵɦ ɡɚɤɥɸɱɟɧɧɵɦ ɜ ɨɩɟɪɚɬɨɪɧɵɟ ɫɤɨɛɤɢ begin HQG Ⱦɥɹɚɥɝɨɪɢɬɦɚȿɜɤɥɢɞɚɩɪɨɝɪɚɦɦɚɩɪɢɦɟɬɜɢɞ program ( var DEinteger begin write µɜɜɟɞɢɬɟɞɜɚɧɚɬɭɪɚɥɶɧɵɯɱɢɫɥɚ¶  readln DE  while D!E do if D!Ethen D D- E else E E- D write (‘ ɇɈȾ µDµµEµ  µD HQG Ɉɩɟɪɚɬɨɪ ɰɢɤɥɚ ©ɞɨª ɉɪɨɜɟɪɤɚ ɭɫɥɨɜɢɹ ɜ ɰɢɤɥɟ ©ɞɨª ɨɫɭɳɟɫɬɜɥɹɟɬɫɹ ɩɨɫɥɟ ɜɵɩɨɥɧɟɧɢɹɨɩɟɪɚɬɨɪɚ ȿɫɥɢɭɫɥɨɜɢɟɜ ɰɢɤɥɟ©ɩɨɤɚª ɹɜɥɹɟɬɫɹɭɫɥɨɜɢɟɦ ɩɪɨɞɨɥɠɟɧɢɹɩɨɜɬɨɪɟɧɢɣɬɨɭɫɥɨɜɢɟɜɰɢɤɥɟ©ɞɨª – ɭɫɥɨɜɢɟɦɜɵɯɨɞɚɢɡɰɢɤɥɚ ɟɝɨɡɚɜɟɪɲɟɧɢɟɦɉɨɷɬɨɦɭɞɥɹɨɞɧɨɣɢɬɨɣɠɟɡɚɞɚɱɢɷɬɢɭɫɥɨɜɢɹɩɪɨɬɢɜɨɩɨ ɥɨɠɧɵɈɛɳɢɣɜɢɞɨɩɟɪɚɬɨɪɚ UHSHDWɨɩɟɪɚɬɨɪXQWLO ɭɫɥɨɜɢɟ ɆɟɠɞɭɫɥɨɜɚɦɢUHSHDW ɩɨɜɬɨɪɢɬɶ ɢXQWLO ɞɨɬɟɯɩɨɪɩɨɤɚ ɦɨɠɧɨɡɚɩɢ ɫɚɬɶɥɸɛɨɟɤɨɥɢɱɟɫɬɜɨɨɩɟɪɚɬɨɪɨɜɛɟɡɢɫɩɨɥɶɡɨɜɚɧɢɹɨɩɟɪɚɬɨɪɧɵɯɫɤɨɛɨɤɉɟ ɪɟɞɫɥɨɜɨɦuntil ɧɟɫɬɚɜɢɬɫɹɬɨɱɤɚɫɡɚɩɹɬɨɣ ɉɪɨɝɪɚɦɦɚɧɚɯɨɠɞɟɧɢɹɧɚɢɛɨɥɶɲɟɝɨɨɛɳɟɝɨɞɟɥɢɬɟɥɹɩɪɢɦɟɬɜɢɞ program ( var DEinteger begin write µɜɜɟɞɢɬɟɞɜɚɧɚɬɭɪɚɥɶɧɵɯɱɢɫɥɚ¶  readln DE  repeat 44
if D!Ethen D D- E if E!Dthen E E- a until D E write (‘ ɇɈȾ µDµµEµ  µD HQG Ɉɩɟɪɚɬɨɪɵɰɢɤɥɨɜ©ɩɟɪɟɫɱɟɬªɉɪɢɜɵɩɨɥɧɟɧɢɢɩɪɨɝɪɚɦɦɧɚɯɨɠɞɟɧɢɹ ɧɚɢɛɨɥɶɲɟɝɨɨɛɳɟɝɨɞɟɥɢɬɟɥɹɱɢɫɥɨɩɨɜɬɨɪɟɧɢɣɪɚɡɥɢɱɧɨɞɥɹɪɚɡɧɵɯɞɚɧɧɵɯ Ʉɨɝɞɚ ɢɡɜɟɫɬɧɨ ɱɢɫɥɨ ɩɨɜɬɨɪɟɧɢɣ ɭɞɨɛɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɰɢɤɥ ©ɩɟɪɟɫɱɟɬª ȼ ɉɚɫɤɚɥɟɢɦɟɸɬɫɹɞɜɚɨɩɟɪɚɬɨɪɚɞɥɹɨɪɝɚɧɢɡɚɰɢɢɰɢɤɥɨɜ©ɩɟɪɟɫɱɟɬªɩɪɹɦɨɣɢ ɨɛɪɚɬɧɵɣɉɪɹɦɨɣɩɟɪɟɫɱɟɬ ɢɞɟɬɨɬɢɡɜɟɫɬɧɨɝɨ ɦɟɧɶɲɟɝɨɱɢɫɥɚɞɨɢɡɜɟɫɬɧɨɝɨ ɛɨɥɶɲɟɝɨɧɚɤɚɠɞɨɦɲɚɝɟ ɩɪɢɛɚɜɥɹɟɬɫɹɟɞɢɧɢɰɚ ɧɚɩɪɢɦɟɪɨɬɞɨ  Ɉɩɟɪɚɬɨɪɩɪɹɦɨɝɨɩɟɪɟɫɱɟɬɚ for L  Q1 to Q2 do ɨɩɟɪɚɬɨɪ ɱɢɬɚɟɬɫɹɤɚɤ©ɞɥɹi ɧɚɱɢɧɚɹɫn1 ɞɨn2 ɜɵɩɨɥɧɢɬɶɨɩɟɪɚɬɨɪª. ɉɟɪɟɦɟɧɧɚɹ i ɧɚɡɵɜɚɟɬɫɹ ɩɟɪɟɦɟɧɧɨɣ ɰɢɤɥɚ ɨɧɚ ɩɪɢ ɩɪɹɦɨɦ ɩɟɪɟɫɱɟɬɟ ɜɫɟɝɞɚɦɟɧɹɟɬɫɹɨɬɦɟɧɶɲɟɝɨɡɧɚɱɟɧɢɹɞɨɛɨɥɶɲɟɝɨɉɪɢL Q1 ɰɢɤɥɜɵɩɨɥɧɹ ɟɬɫɹ ɩɟɪɜɵɣ ɪɚɡ Ɂɚɬɟɦ ɤ ɡɧɚɱɟɧɢɸ ɩɟɪɟɦɟɧɧɨɣ i ɞɨɛɚɜɥɹɟɬɫɹ ɟɞɢɧɢɰɚ ɢ ɨɫɭ ɳɟɫɬɜɥɹɟɬɫɹɩɪɨɜɟɪɤɚɧɟɩɪɟɜɵɫɢɥɨɥɢɩɨɥɭɱɟɧɧɨɟɡɧɚɱɟɧɢɟɜɟɥɢɱɢɧɭn2ȿɫɥɢ L Q2ɬɨɨɩɟɪɚɬɨɪɜɵɩɨɥɧɹɟɬɫɹɟɫɥɢɷɬɨɭɫɥɨɜɢɟɧɟɜɟɪɧɨɬɨɩɪɨɢɫɯɨɞɢɬ ɜɵɯɨɞ ɢɡ ɰɢɤɥɚ ɢ ɜɵɩɨɥɧɟɧɢɟ ɫɥɟɞɭɸɳɟɝɨ ɩɨ ɩɨɪɹɞɤɭ ɨɩɟɪɚɬɨɪɚ ɩɪɨɝɪɚɦɦɵ ɉɨɫɤɨɥɶɤɭ ɨɩɟɪɚɬɨɪ ɰɢɤɥɚ for ɫɚɦ ɢɡɦɟɧɹɟɬ ɡɧɚɱɟɧɢɟ ɩɟɪɟɦɟɧɧɨɣ ɰɢɤɥɚ ɟɟ ɧɟɥɶɡɹ ɦɟɧɹɬɶ ɞɪɭɝɢɦɢ ɫɩɨɫɨɛɚɦɢ ɧɚɩɪɢɦɟɪ ɩɪɢɫɜɚɢɜɚɧɢɟɦ ɟɣ ɤɚɤɨɝɨ-ɥɢɛɨ ɡɧɚɱɟɧɢɹɜɬɟɥɟɰɢɤɥɚ ɨɧɚɧɟɞɨɥɠɧɚɩɨɹɜɢɬɶɫɹɫɥɟɜɚɨɬɡɧɚɤɚ  Ɉɩɟɪɚɬɨɪ ɜ ɰɢɤɥɟ ɦɨɠɟɬ ɛɵɬɶ ɩɪɨɫɬɵɦ ɢɥɢ ɫɨɫɬɚɜɧɵɦ ɡɚɤɥɸɱɟɧɧɵɦ ɜ ɨɩɟɪɚɬɨɪɧɵɟ ɫɤɨɛɤɢ Ɉɩɟɪɚɬɨɪ ©ɩɟɪɟɫɱɟɬª ɪɚɛɨɬɚɟɬ ɤɚɤ ɰɢɤɥ ©ɞɨª ɩɨɷɬɨɦɭ ɧɚɞɨ ɛɵɬɶ ɜɧɢɦɚɬɟɥɶɧɵɦ ɨɩɟɪɚɬɨɪ ɜ ɬɟɥɟ ɰɢɤɥɚ ɜɵɩɨɥɧɢɬɫɹ ɜɫɟɝɞɚ ɯɨɬɹ ɛɵ ɨɞɢɧɪɚɡɊɚɫɫɦɨɬɪɢɦɩɪɢɦɟɪɵ ɢɫɩɨɥɶɡɨɜɚɧɢɹɨɩɟɪɚɬɨɪɨɜɰɢɤɥɚ.  ɉɭɫɬɶɧɚɞɨɜɵɱɢɫɥɢɬɶɚQɂɡɜɟɫɬɧɨɱɬɨɰɟɥɚɹɫɬɟɩɟɧɶn ɱɢɫɥɚ– ɷɬɨɟɝɨ ɩɪɨɢɡɜɟɞɟɧɢɟ n ɪɚɡ ɗɬɨ ɩɪɨɢɡɜɟɞɟɧɢɟ ɩɪɢ ɜɵɩɨɥɧɟɧɢɢ ɩɪɨɝɪɚɦɦɵ ɛɭɞɟɬ ɯɪɚ ɧɢɬɶɫɹɜɹɱɟɣɤɟɫɢɦɟɧɟɦɪɄɚɠɞɵɣɪɚɡɩɪɢɨɱɟɪɟɞɧɨɦɜɵɩɨɥɧɟɧɢɢɰɢɤɥɚɢɡ ɷɬɨɣ ɹɱɟɣɤɢ ɛɭɞɟɬ ɫɱɢɬɵɜɚɬɶɫɹ ɩɪɟɞɵɞɭɳɢɣ ɪɟɡɭɥɶɬɚɬ ɞɨɦɧɨɠɚɬɶɫɹ ɧɚ ɨɫɧɨ ɜɚɧɢɟ ɫɬɟɩɟɧɢ ɚ ɢ ɫɧɨɜɚ ɡɚɩɢɫɵɜɚɬɶɫɹ ɜ ɹɱɟɣɤɭ ɪ Ɉɫɧɨɜɧɨɣ ɨɩɟɪɚɬɨɪ ɜ ɬɟɥɟ ɰɢɤɥɚɩɨɜɬɨɪɹɟɬɫɹn ɪɚɡɢɢɦɟɟɬɜɢɞS  S Dɉɪɢɩɟɪɜɨɦɜɵɩɨɥɧɟɧɢɢɰɢɤ ɥɚ ɜ ɹɱɟɣɤɟ ɪ ɞɨɥɠɧɨ ɧɚɯɨɞɢɬɶɫɹ ɱɢɫɥɨ ɧɟ ɜɥɢɹɸɳɟɟ ɧɚ ɭɦɧɨɠɟɧɢɟ ɬ ɟ ɞɨ ɰɢɤɥɚɬɭɞɚɧɚɞɨɡɚɩɢɫɚɬɶɟɞɢɧɢɰɭ ɉɪɨɝɪɚɦɦɚɢɦɟɟɬɜɢɞ program ( var DSrealLQinteger begin write µɜɜɟɞɢɬɟɚ- ɨɫɧɨɜɚɧɢɟɫɬɟɩɟɧɢD ¶  45
readln D  write µɜɜɟɞɢɬɟɰɟɥɨɟQ- ɩɨɤɚɡɚɬɟɥɶɫɬɟɩɟɧɢQ µ  readln Q  S  for L  to Qdo S S D write µS µS HQG i p 1 2 2 4 3 8 4 16 ȼɬɚɛɥɢɰɟɩɪɟɞɫɬɚɜɥɟɧɩɪɨɬɨɤɨɥɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵɩɪɢɜɨɡɜɟɞɟɧɢɢ ɱɢɫɥɚɜɱɟɬɜɟɪɬɭɸɫɬɟɩɟɧɶɌɚɛɥɢɰɚɡɚɩɨɥɧɟɧɚɜɪɭɱɧɭɸɩɪɨɰɟɫɫɟɟɡɚɩɨɥɧɟ ɧɢɹɧɚɡɵɜɚɟɬɫɹɨɬɥɚɞɤɨɣɩɪɨɝɪɚɦɦɵɈɬɥɚɞɤɚ– ɷɬɨɩɪɨɜɟɪɤɚɜɫɟɯɷɬɚɩɨɜɪɚɛɨ ɬɵ ɩɪɨɝɪɚɦɦɵ Ⱦɥɹ ɫɥɨɠɧɵɯ ɡɚɞɚɱ ɫɧɚɱɚɥɚ ɫɨɫɬɚɜɥɹɟɬɫɹ ɤɨɧɬɪɨɥɶɧɵɣ ɩɪɢɦɟɪ ɬɟɫɬ ɢɩɪɨɝɪɚɦɦɚɜɵɩɨɥɧɹɟɬɫɹɱɟɥɨɜɟɤɨɦɤɨɬɨɪɵɣɜɵɩɨɥɧɹɟɬɤɚɠɞɵɣɨɩɟɪɚ ɬɨɪɬɚɤɤɚɤɟɝɨɜɵɩɨɥɧɹɟɬɤɨɦɩɶɸɬɟɪɁɚɬɟɦɩɪɨɝɪɚɦɦɭɜɵɩɨɥɧɹɟɬɤɨɦɩɶɸɬɟɪ ɢɫɜɟɪɹɸɬɫɹɜɫɟɩɪɨɦɟɠɭɬɨɱɧɵɟɩɨɥɭɱɟɧɧɵɟɩɪɢɫɱɟɬɟɞɚɧɧɵɟɢɤɨɧɟɱɧɵɟɪɟ ɡɭɥɶɬɚɬɵ Ɍɨɥɶɤɨ ɩɨɫɥɟ ɩɨɥɧɨɝɨ ɫɨɜɩɚɞɟɧɢɹ ɩɪɨɝɪɚɦɦɚ ɜɵɩɨɥɧɹɟɬɫɹ ɫ ɪɟɚɥɶ ɧɵɦɢ ɞɚɧɧɵɦɢ Ⱦɥɹ ɩɨɧɢɦɚɧɢɹ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ ɜɵɩɨɥɧɟɧɢɹ ɨɬɞɟɥɶɧɵɯ ɨɩɟɪɚɬɨɪɨɜ ɩɨɥɟɡɧɨɡɚɩɨɥɧɹɬɶɩɨɞɨɛɧɵɟɩɪɨɬɨɤɨɥɵɞɥɹɜɫɟɯɭɱɟɛɧɵɯɡɚɞɚɱ ȼɵɱɢɫɥɟɧɢɟS Q (n ɮɚɤɬɨɪɢɚɥ  ɉɨ ɨɩɪɟɞɟɥɟɧɢɸ Q           Q  ɂɫɩɨɥɶɡɭɹ ɩɪɟɞɵɞɭɳɭɸ ɩɪɨ ɝɪɚɦɦɭɜɵɱɢɫɥɢɦp ɤɚɤɩɪɨɢɡɜɟɞɟɧɢɟɱɢɫɟɥɨɬɞɨnɬɟ ɪ ɤɚɠɞɵɣɪɚɡɭɦɧɨ ɠɚɟɬɫɹɧɟɧɚɨɞɧɨɢɬɨɠɟɱɢɫɥɨɚɧɚɡɧɚɱɟɧɢɟɩɟɪɟɦɟɧɧɨɣɰɢɤɥɚ program ( var SLQinteger begin write(‘ ɜɜɟɞɢɬɟ ɰɟɥɨɟ Q µ  readln Q  S  for L  to Qdo S S L write µQ µS HQG  ɋɨɫɬɚɜɥɟɧɢɟɬɚɛɥɢɰɵɡɧɚɱɟɧɢɣɮɭɧɤɰɢɢ\ VLQ[ɉɭɫɬɶɬɪɟɛɭɟɬɫɹɫɨ ɫɬɚɜɢɬɶɬɚɛɥɢɰɭɡɧɚɱɟɧɢɣɮɭɧɤɰɢɢɧɚɨɬɪɟɡɤɟ>@ɫɲɚɝɨɦȾɥɹɬɨɝɨ ɱɬɨɛɵ ɧɟ ɜɵɱɢɫɥɹɬɶ ɤɨɥɢɱɟɫɬɜɨ ɩɨɜɬɨɪɟɧɢɣ ɜɵɱɢɫɥɟɧɢɣ ɦɨɠɧɨ ɜɨɫɩɨɥɶɡɨ ɜɚɬɶɫɹɰɢɤɥɨɦ©ɩɨɤɚªɂɫɩɨɥɶɡɭɹɜɵɜɨɞɜɟɳɟɫɬɜɟɧɧɵɯɱɢɫɟɥɫɮɢɤɫɢɪɨɜɚɧɧɨɣ ɬɨɱɤɨɣ ɨɩɪɟɞɟɥɢɦ ɱɬɨ ɤɨɥɢɱɟɫɬɜɨ ɰɢɮɪ ɩɨɫɥɟ ɡɚɩɹɬɨɣ ɜ ɡɧɚɱɟɧɢɢ ɮɭɧɤɰɢɢ ɛɭɞɟɬ ɪɚɜɧɨ ɩɹɬɢ Ɍɨɝɞɚ ɜɫɟ ɱɢɫɥɨ ɭɱɢɬɵɜɚɹ ɨɛɥɚɫɬɶ ɡɧɚɱɟɧɢɣ ɫɢɧɭɫɚ ɡɚɣɦɟɬ 46
ɫɟɦɶɩɨɡɢɰɢɣ ɱɢɫɥɚɩɨɥɨɠɢɬɟɥɶɧɵɟɡɧɚɱɢɬɞɨɛɚɜɢɬɫɹɩɨɡɢɰɢɹɞɥɹɞɟɫɹɬɢɱɧɨɣ ɬɨɱɤɢɢɰɟɥɨɣɱɚɫɬɢɱɢɫɥɚ  ɉɪɨɝɪɚɦɦɚɢɦɟɟɬɜɢɞ program ( var [\real; begin [  writeln µ[¶µVLQ[¶  while [  do begin \ VLQ [  writeln [µµ\  [ [ end HQG ɉɪɢ ɤɚɠɞɨɦ ɜɵɩɨɥɧɟɧɢɢ ɰɢɤɥɚ ɛɭɞɟɬ ɫɧɚɱɚɥɚ ɩɪɨɜɟɪɹɬɶɫɹ ɭɫɥɨɜɢɟ ([   ɡɚɬɟɦɜɵɱɢɫɥɹɬɶɫɹɡɧɚɱɟɧɢɟɮɭɧɤɰɢɢɩɟɱɚɬɚɬɶɫɹɚɪɝɭɦɟɧɬɯ (ɞɥɹ ɧɟɝɨɨɬɜɟɞɟɧɨɞɟɫɹɬɶ ɩɨɡɢɰɢɣɢɡɧɢɯɨɞɧɚ– ɞɥɹɰɢɮɪɵɞɪɨɛɧɨɣɱɚɫɬɢ ɢɱɟɪɟɡ ɬɪɢɩɪɨɛɟɥɚ – ɡɧɚɱɟɧɢɟɮɭɧɤɰɢɢ ɢɧɚɤɨɧɟɰɞɥɹɫɥɟɞɭɸɳɟɝɨɲɚɝɚɰɢɤɥɚ – ɜɵ ɱɢɫɥɹɬɶɫɹɧɨɜɨɟɡɧɚɱɟɧɢɟɚɪɝɭɦɟɧɬɚ ɯ ɭɜɟɥɢɱɢɬɫɹɧɚ ɐɢɤɥ©ɩɨɤɚª ɩɨɡɜɨ ɥɹɟɬ ɢɡɦɟɧɹɬɶ ɩɟɪɟɦɟɧɧɭɸ ɰɢɤɥɚ ɤɚɤ ɭɝɨɞɧɨ ɭɜɟɥɢɱɢɜɚɹ ɟɟ ɢɥɢ ɭɦɟɧɶɲɚɹ ɧɚ ɥɸɛɨɟɡɧɚɱɟɧɢɟ  ɋɭɦɦɢɪɨɜɚɧɢɟ ɱɢɫɟɥ ɉɪɢ ɫɭɦɦɢɪɨɜɚɧɢɢ ɤɚɤ ɢ ɩɪɢ ɭɦɧɨɠɟɧɢɢ ɧɟ ɫɤɨɥɶɤɢɯɱɢɫɟɥɧɟɨɛɯɨɞɢɦɨɧɚɤɚɩɥɢɜɚɬɶɪɟɡɭɥɶɬɚɬɜɧɟɤɨɬɨɪɨɣɹɱɟɣɤɟɩɚɦɹɬɢ ɤɚɠɞɵɣɪɚɡɫɱɢɬɵɜɚɹɢɡɷɬɨɣɹɱɟɣɤɢɩɪɟɞɵɞɭɳɟɟɡɧɚɱɟɧɢɟɫɭɦɦɵɢɭɜɟɥɢɱɢɜɚɹ ɟɝɨɧɚɨɱɟɪɟɞɧɨɟɫɥɚɝɚɟɦɨɟɉɭɫɬɶɢɡɜɟɫɬɧɨɱɬɨɛɭɞɭɬɫɤɥɚɞɵɜɚɬɶɫɹQɱɢɫɟɥȼ ɷɬɨɦɫɥɭɱɚɟɧɚɞɨ Qɪɚɡɜɵɩɨɥɧɢɬɶɞɟɣɫɬɜɢɟs  VDɝɞɟɚ – ɨɱɟɪɟɞɧɨɟɱɢɫɥɨ ɜɜɨɞɢɦɨɟ ɫ ɤɥɚɜɢɚɬɭɪɵ Ⱦɥɹ ɩɟɪɜɨɝɨ ɜɵɩɨɥɧɟɧɢɹ ɷɬɨɝɨ ɨɩɟɪɚɬɨɪɚ ɩɪɢɫɜɚɢɜɚ ɧɢɹɧɚɞɨɢɡɹɱɟɣɤɢɫɢɦɟɧɟɦs ɜɡɹɬɶɬɚɤɨɟɱɢɫɥɨɤɨɬɨɪɨɟɧɟɩɨɜɥɢɹɥɨɛɵɧɚɪɟ ɡɭɥɶɬɚɬɫɥɨɠɟɧɢɹɋɥɟɞɨɜɚɬɟɥɶɧɨɞɨɰɢɤɥɚɧɚɞɨɩɨɦɟɫɬɢɬɶɜɷɬɭɹɱɟɣɤɭ ɢɥɢ ɱɬɨɬɨɠɟɫɚɦɨɟɩɪɢɫɜɨɢɬɶɩɟɪɟɦɟɧɧɨɣs ɱɢɫɥɨɧɨɥɶ ɉɪɨɝɪɚɦɦɚɢɦɟɟɬɜɢɞ program E var DVrealLQinteger EHJLQ write µɜɜɟɞɢɬɟɤɨɥɢɱɟɫɬɜɨɫɥɚɝɚɟɦɵɯQ µ  readln Q  V  for L  to Qdo begin write Lµ- ɨɟ ɱɢɫɥɨ µ  47
readln D  V VD end write(‘ ɫɭɦɦɚ V µV HQG ȿɫɥɢɤɨɥɢɱɟɫɬɜɨɱɢɫɟɥɧɟɢɡɜɟɫɬɧɨɬɨɦɨɠɧɨɡɚɞɚɬɶɱɢɫɥɨ-ɨɝɪɚɧɢɱɢɬɟɥɶ ɧɚɩɪɢɦɟɪɧɨɥɶȼɬɚɤɨɦɫɥɭɱɚɟɢɫɩɨɥɶɡɭɟɬɫɹɰɢɤɥZKLOHɢɥɢrepeat. V  readln D V  while D!do repeat begin V VD; readln D  readln D V VD end; until D  Ɉɩɟɪɚɬɨɪ ɰɢɤɥɚ ©ɨɛɪɚɬɧɵɣ ɩɟɪɟɫɱɟɬª ɪɚɛɨɬɚɟɬ ɚɧɚɥɨɝɢɱɧɨ ɨɩɟɪɚɬɨɪɭ ɰɢɤɥɚɩɪɹɦɨɝɨɩɟɪɟɫɱɟɬɚɬɨɥɶɤɨɩɟɪɟɦɟɧɧɚɹɰɢɤɥɚɧɟɜɨɡɪɚɫɬɚɟɬɫɤɚɠɞɵɦɲɚ ɝɨɦɧɚɟɞɢɧɢɰɭɚɧɚɟɞɢɧɢɰɭɭɛɵɜɚɟɬɈɩɟɪɚɬɨɪɢɦɟɟɬɜɢɞ for L  Q2 downto Q1 do ɨɩɟɪɚɬɨɪ Ⱦɥɹɷɬɨɝɨɨɩɟɪɚɬɨɪɚɞɨɥɠɧɨɬɚɤɠɟɜɵɩɨɥɧɹɬɶɫɹ Q! Q ɉɪɢ ɢɫɩɨɥɶɡɨɜɚɧɢɢ ɜ ɩɪɨɝɪɚɦɦɟ ɨɩɟɪɚɬɨɪɨɜ ɰɢɤɥɚ ɧɟɨɛɯɨɞɢɦɨ ɫɨ ɛɥɸɞɚɬɶɫɥɟɞɭɸɳɢɟɩɪɚɜɢɥɚ – ɜɧɭɬɪɢɰɢɤɥɚɦɨɠɟɬɧɚɯɨɞɢɬɶɫɹɞɪɭɝɨɣɰɢɤɥɧɨɰɢɤɥɵɞɨɥɠɧɵɢɦɟɬɶ ɪɚɡɧɵɟ ɩɟɪɟɦɟɧɧɵɟ ɢ ɜɧɭɬɪɟɧɧɢɣ ɰɢɤɥ ɞɨɥɠɟɧ ɩɨɥɧɨɫɬɶɸ ɧɚɯɨɞɢɬɶɫɹ ɜ ɬɟɥɟ ɜɧɟɲɧɟɝɨɰɢɤɥɚ – ɧɟɥɶɡɹ ɩɟɪɟɞɚɜɚɬɶ ɭɩɪɚɜɥɟɧɢɟ ɜ ɬɟɥɨ ɰɢɤɥɚ ɦɢɧɭɹ ɡɚɝɨɥɨɜɨɤ ɷɬɨ ɡɧɚ ɱɢɬɱɬɨɦɟɬɤɚɢɨɩɟɪɚɬɨɪJRWRɫ ɷɬɨɣɦɟɬɤɨɣɞɨɥɠɧɵɧɚɯɨɞɢɬɶɫɹɜɬɟɥɟɰɢɤɥɚ  – ɟɫɥɢɧɟɨɛɯɨɞɢɦɨɨɛɨɣɬɢɝɪɭɩɩɭɨɩɟɪɚɬɨɪɨɜɜɬɟɥɟɰɢɤɥɚɢɩɪɨɞɨɥɠɢɬɶ ɰɢɤɥɬɟ ɜɵɩɨɥɧɢɬɶɟɝɨɫɥɟɞɭɸɳɢɣɲɚɝɬɨ ɧɚɞɨɩɟɪɟɞɚɬɶɭɩɪɚɜɥɟɧɢɟɧɚɡɚ ɦɵɤɚɸɳɢɣɰɢɤɥHQG – ɦɨɠɧɨɞɨɫɪɨɱɧɨɜɵɣɬɢɢɡɰɢɤɥɚ ɢɫɩɨɥɶɡɭɹɢɥɢɨɩɟɪɚɬɨɪgotoɢɥɢɢɡ ɦɟɧɢɜ ɩɚɪɚɦɟɬɪɭɫɥɨɜɢɹɜɨɩɟɪɚɬɨɪɚɯwhile ɢrepeat ɬɚɤɱɬɨɛɵɰɢɤɥɛɨɥɶɲɟ ɧɟɜɵɩɨɥɧɹɥɫɹ ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ  ɉɭɫɬɶ ɬɟɥɨ ɰɢɤɥɚ ɜ ɩɪɨɝɪɚɦɦɟ ȿ ɬɚɤɨɟ ɠɟ ɤɚɤ ɜ ɩɪɨɝɪɚɦɦɟ ȿ Ʉɚɤ ɛɭɞɟɬɪɚɛɨɬɚɬɶɩɪɨɝɪɚɦɦɚɟɫɥɢɜɜɟɫɬɢɞɜɚɨɞɢɧɚɤɨɜɵɯɱɢɫɥɚɚ ɢb"  ɋɤɨɥɶɤɨ ɪɚɡ ɜɵɩɨɥɧɢɬɫɹ ɨɩɟɪɚɬɨɪ ɰɢɤɥɚ repeat ɟɫɥɢ ɭɫɥɨɜɢɟ ɩɨɫɥɟ ɫɥɨɜɚuntil ɢɫɬɢɧɧɨɩɪɢɜɯɨɞɟɜɰɢɤɥ" 48
 Ɉɛɴɹɫɧɢɬɟ ɤɚɤɚɹ ɪɚɡɧɢɰɚ ɦɟɠɞɭ ɭɫɥɨɜɢɹɦɢ ɡɚɩɢɫɚɧɧɵɦɢ ɩɨɫɥɟ ɫɥɨɜ while ɢrepeat ɞɥɹɨɞɧɨɣɢɬɨɣɠɟɡɚɞɚɱɢ"  ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɵɜɵɱɢɫɥɟɧɢɹɫɭɦɦ  Ⱦɥɹ ɫɨɪɨɤɚ ɫɥɚɝɚɟɦɵɯ ɜɢɞɚ  Q - iɝɞɟ  i       D  n – ɞɚɧɧɨɟ ɱɢɫɥɨ Ⱦɥɹn ɫɥɚɝɚɟɦɵɯɜɢɞɚ[L ɝɞɟɯ – ɞɚɧɧɨɟɱɢɫɥɨɚi ɦɟɧɹɟɬɫɹɨɬɞɨn. Ⱦɥɹɫɬɚɫɥɚɝɚɟɦɵɯɢɦɟɸɳɢɯɜɢɞɞɪɨɛɢ i   i  . Ⱦɥɹn ɫɥɚɝɚɟɦɵɯɜɢɞɚ i  2 i n. 8. Ⱦɥɹ n ɫɥɚɝɚɟɦɵɯ VLQ[VLQ[VLQ[VLQ[n. 9. Ⱦɥɹ n ɫɥɚɝɚɟɦɵɯ VLQ[VLQ2[VLQ[VLQn[. Ʉɭɛɨɜn ɩɟɪɜɵɯɧɚɬɭɪɚɥɶɧɵɯɱɢɫɟɥ Ⱦɥɹɪɚɡɥɢɱɧɵɯɜɜɨɞɢɦɵɯɫɤɥɚɜɢɚɬɭɪɵɰɟɥɵɯɱɢɫɟɥɧɚɣɬɢɫɭɦɦɭɩɨ ɥɨɠɢɬɟɥɶɧɵɯɧɟɱɟɬɧɵɯ ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɵɜɵɱɢɫɥɟɧɢɹɩɪɨɢɡɜɟɞɟɧɢɣ 12. D  D   D    DQ- . 13. D  D-Q   D-Q    D-n2 . 14. [-  [-  [-  [-Q .      n).  sin   sin   sin 10). ȼɫɟɯɱɢɫɟɥɨɬɞɨɤɪɚɬɧɵɯɧɨɧɟɤɪɚɬɧɵɯ 18. n ɫɨɦɧɨɠɢɬɟɥɟɣɜɢɞɚ [L 2. ȾɚɧɨɩɨɥɨɠɢɬɟɥɶɧɨɟɱɢɫɥɨȺɇɚɣɬɢɫɪɟɞɢɱɢɫɟɥ ɩɟɪɜɨɟɛɨɥɶɲɟɟȺ ȼɜɨɞɹɱɢɫɥɚɫɤɥɚɜɢɚɬɭɪɵɛɟɡɨɝɪɚɧɢɱɟɧɢɹɢɯɤɨɥɢɱɟɫɬɜɚ ɤɨɧɟɰɜɜɨ ɞɚ– ɱɢɫɥɨɧɨɥɶ ɧɚɣɬɢɫɭɦɦɭɩɨɥɨɠɢɬɟɥɶɧɵɯɢɩɪɨɢɡɜɟɞɟɧɢɟ ɨɬɪɢɰɚɬɟɥɶɧɵɯ ɱɢɫɟɥ 21. FRVFRVFRVFRVFRVFRVQ VLQVLQVLQVLQVLQVLQQ 49
Ʌɚɛɨɪɚɬɨɪɧɨɟ ɡɚɞɚɧɢɟ  ɐɢɤɥɢɱɟɫɤɢɟɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵɈɩɟɪɚɬɨɪFOR ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹɰɢɤɥɢɱɟɫɤɢɯ ɜɵɱɢɫɥɢɬɟɥɶɧɵɯɩɪɨɰɟɫɫɨɜɫɩɪɢɦɟɧɟɧɢɟɦɨɩɟɪɚɬɨɪɚFOR. ɁɚɞɚɧɢɟɇɟɨɛɯɨɞɢɦɨɪɟɲɢɬɶɜɪɟɞɚɤɬɨɪɟPascal c ɩɪɢɦɟɧɟɧɢɟɦɨɩɟɪɚɬɨ ɪɚFOR ɡɚɞɚɱɭɜɵɱɢɫɥɟɧɢɹɢɜɵɜɨɞɚ k ɡɧɚɱɟɧɢɣɮɭɧɤɰɢɢ y f [ p ɞɥɹɪɹɞɚ ɪɚɜɧɨɨɬɫɬɨɹɳɢɯɡɧɚɱɟɧɢɣ [ ɧɚɱɢɧɚɹɨɬɡɧɚɱɟɧɢɹ [1 ɢɡɚɜɟɪɲɚɹɡɧɚɱɟɧɢɟɦ [2 . ɉɚɪɚɦɟɬɪ p ɜɜɨɞɢɬɫɹɫɤɥɚɜɢɚɬɭɪɵɜɨɜɪɟɦɹɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵɢɥɢɡɚɞɚ ɟɬɫɹɜɜɢɞɟɤɨɧɫɬɚɧɬɵ ɧɚɭɫɦɨɬɪɟɧɢɟɨɛɭɱɚɸɳɟɝɨɫɹ ɋɨɡɞɚɬɶɛɥɨɤ-ɫɯɟɦɭɚɥ ɝɨɪɢɬɦɚɪɟɲɟɧɢɹɡɚɞɚɱɢȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶ ɪɟɡɭɥɶɬɚ ɬɵɟɟɪɚɛɨɬɵ ɩɪɨɜɟɞɹɩɚɪɚɥɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ  ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ f [ p k y ȼɚɪɢɚɧɬʋ [ p [ 1 OQ [  p OQ [  p  OQ [ 1. y 2. y 3. y 3 14 S[ 2  2 [ 17 p  28 4 4. y [1 [2 11 2 4 17 4 8 11 1 4 21 1 2 16 3  2 4 VLQ [ p S[ S[ 3 5. y 6. y 7 p  24 [  2p 21 2 8 7. y OJ p 2  [ 2 2p  [ 21 3 7 8. y 4 7 [  2 S[ 11 p 11 2  9. y p  10 [ p [ 21 1 6 11 1 2 10. y OJ 4 p4  [ FRV 5 p  [ 3 4 p 50
ȼɚɪɢɚɧɬʋ 11. 12. 13. 14. 15. 16. y f [ p VLQ 4 [  FRV 4 p y VLQ 2 [  3 5 2p  [  7p y p  2[ y 3 p  FRV [ p  VLQ [ S[  3 [ 3 p3  2[ FRV S[  FRV 2 [ y 14  FRV 2 p WJ[  [ 3  p y 4  p2 y k [1 [2 11 2 3 21 1 11 17 0 1 16 4 10 16 1 4 11  1 Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ Ɉɩɟɪɚɬɨɪ FOR ɭɞɨɛɧɨ ɩɪɢɦɟɧɹɬɶ ɞɥɹ ɪɟɚɥɢɡɚɰɢɢ ɰɢɤɥɢɱɟɫɤɢɯ ɚɥɝɨɪɢɬ ɦɨɜɜɤɨɬɨɪɵɯɢɡɧɚɱɚɥɶɧɨɢɡɜɟɫɬɧɨɤɨɥɢɱɟɫɬɜɨɩɨɜɬɨɪɟɧɢɣɬɟɥɚɰɢɤɥɚ ȼ ɩɪɨɰɟɫɫɟ ɜɵɩɨɥɧɟɧɢɹ ɡɚɞɚɧɢɹ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ɧɟɨɛɯɨɞɢɦɨ ɩɪɢ ɦɟɧɢɬɶɨɩɟɪɚɬɨɪɩɪɹɦɨɝɨɩɟɪɟɫɱɟɬɚȿɝɨɫɢɧɬɚɤɫɢɫ for L  Q1 to Q2 do ɨɩɟɪɚɬɨɪ  ɝɞɟ n1 – ɧɚɱɚɥɶɧɨɟɡɧɚɱɟɧɢɟɩɟɪɟɦɟɧɧɨɣɰɢɤɥɚ ɫɱɟɬɱɢɤɚ ɰɢɤɥɚ)n2 – ɤɨɧɟɱɧɨɟ ɡɧɚɱɟɧɢɟɫɱɟɬɱɢɤɚ ɰɢɤɥɚ. ɉɨɫɤɨɥɶɤɭɨɩɟɪɚɬɨɪɰɢɤɥɚFOR ɫɚɦɢɡɦɟɧɹɟɬɡɧɚɱɟɧɢɟɩɟɪɟɦɟɧɧɨɣɰɢɤ ɥɚ ɟɟɧɟɥɶɡɹ ɦɟɧɹɬɶɞɪɭɝɢɦɢɫɩɨɫɨɛɚɦɢɧɚɩɪɢɦɟɪɩɪɢɫɜɚɢɜɚɧɢɟɦɟɣ ɤɚɤɨɝɨɥɢɛɨɡɧɚɱɟɧɢɹɜɬɟɥɟɰɢɤɥɚɉɟɪɟɦɟɧɧɚɹɰɢɤɥɚɦɨɠɟɬɛɵɬɶɬɨɥɶɤɨɰɟɥɨɱɢɫɥɟɧ ɧɨɝɨɬɢɩɚȿɫɥɢɜɩɪɨɝɪɚɦɦɟɟɟ ɨɛɴɹɜɢɬɶɜɟɳɟɫɬɜɟɧɧɨɝɨɬɢɩɚɩɪɨɝɪɚɦɦɚɪɚɛɨ ɬɚɬɶɧɟɛɭɞɟɬ Ɉɛɳɢɣ ɜɢɞ ɚɥɝɨɪɢɬɦɚ ɪɟɲɟɧɢɹ ɡɚɞɚɱ ɨɬɧɨɫɹɳɢɯɫɹ ɤ ɚɪɢɮɦɟɬɢɱɟɫɤɢɦ ɰɢɤɥɚɦɦɨɠɧɨɩɪɟɞɫɬɚɜɢɬɶɜɜɢɞɟɫɥɟɞɭɸɳɟɣɛɥɨɤ-ɫɯɟɦɵ 51
ȼ ɬɟɥɟ ɩɪɨɝɪɚɦɦɵ ɧɭɠɧɨ ɩɪɟɞɭɫɦɨɬɪɟɬɶ ɜɜɨɞ ɫ ɤɥɚɜɢɚɬɭɪɵ ɢɫɯɨɞɧɵɯ ɞɚɧɧɵɯ í ɡɧɚɱɟɧɢɣ ɩɟɪɟɦɟɧɧɵɯ k [1 [2 ɉɚɪɚɦɟɬɪ p ɧɚ ɭɫɦɨɬɪɟɧɢɟ ɨɛɭɱɚɸ ɳɟɝɨɫɹɜɜɨɞɢɬɫɹɫɤɥɚɜɢɚɬɭɪɵɜɨɜɪɟɦɹɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵɢɥɢɡɚɞɚɟɬɫɹɜ ɜɢɞɟɤɨɧɫɬɚɧɬɵ ɉɟɪɟɞɜɵɩɨɥɧɟɧɢɟɦɰɢɤɥɚɧɟɨɛɯɨɞɢɦɨ ɩɪɢɫɜɨɢɬɶ ɩɟɪɟɦɟɧɧɨɣ x ɡɧɚɱɟɧɢɟ x1 (ɧɚɱɚɥɶɧɨɟ ɡɧɚɱɟɧɢɟ ɢ ɨɩɪɟɞɟɥɢɬɶ ɜɟɥɢɱɢɧɭ ɲɚɝɚɢɡɦɟɧɟɧɢɹɚɪɝɭɦɟɧɬɚ – G[ [2  [1 . ɩɨɮɨɪɦɭɥɟ G[ k 1 ȼɬɟɥɟ ɰɢɤɥɚɞɨɥɠɧɨɨɩɪɟɞɟɥɹɬɶɫɹ ɡɧɚɱɟɧɢɟ \ ɢɜɵɜɨɞɢɬɶɫɹ ɧɚɷɤɪɚɧɪɟ ɡɭɥɶɬɚɬ ɪɟɲɟɧɢɹ – ɡɧɚɱɟɧɢɹ L x ɢ \. Ɋɟɡɭɥɶɬɚɬ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ ɠɟɥɚɬɟɥɶɧɨ ɜɵɜɟɫɬɢɧɚɷɤɪɚɧɜɮɨɪɦɟɬɚɛɥɢɰɵɫɡɚɝɨɥɨɜɤɨɦ ɉɨɞɝɨɬɨɜɤɚɤɨɱɟɪɟɞɧɨɦɭ ɜɵɩɨɥɧɟɧɢɸɰɢɤɥɚɞɨɥɠɧɚɡɚɤɥɸɱɚɬɶɫɹ ɜɭɜɟ ɥɢɱɟɧɢɢɡɧɚɱɟɧɢɹ ɚɪɝɭɦɟɧɬɚx ɧɚɜɟɥɢɱɢɧɭ G[. ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. Ⱦɥɹɩɪɨɜɟɪɤɢɤɨɪɪɟɤɬɧɨɫɬɢɫɨɫɬɚɜɥɟɧɧɨɣɩɪɨɝɪɚɦɦɵɪɟɤɨ ɦɟɧɞɭɟɬɫɹ ɩɪɨɜɟɫɬɢ ɩɚɪɚɥɥɟɥɶɧɵɟ ɪɚɫɱɟɬɵ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɫ ɩɪɢɦɟ ɧɟɧɢɟɦɦɟɬɨɞɚɚɜɬɨɡɚɩɨɥɧɟɧɢɹɢɩɪɢɧɟɨɛɯɨɞɢɦɨɫɬɢɜɫɬɪɨɟɧɧɵɯɦɚɬɟɦɚɬɢɱɟ ɫɤɢɯ ɮɭɧɤɰɢɣ  ȼ ɨɬɱɟɬ ɩɨ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɩɨɦɟɫɬɢɬɶ ɷɤɪɚɧɧɵɣɫɧɢɦɨɤɪɟɡɭɥɶɬɚɬɚɞɚɧɧɨɣɩɪɨɜɟɪɤɢ ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɰɢɤɥɢɱɟɫɤɢɯ ɜɵ ɱɢɫɥɢɬɟɥɶɧɵɯɩɪɨɰɟɫɫɨɜɫɩɪɢɦɟɧɟɧɢɟɦɨɩɟɪɚɬɨɪɚFOR. 52
Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɪɟɲɢɬɶɜɪɟɞɚɤɬɨɪɟPascal c ɩɪɢɦɟɧɟɧɢɟɦɨɩɟɪɚɬɨɪɚFOR WJ[  [ 3  p ɞɥɹɪɹɞɚɪɚɜ 4  p2 ɢɡɚɜɟɪɲɚɹɡɧɚɱɟɧɢɟɦ [2 1. ɡɚɞɚɱɭɜɵɱɢɫɥɟɧɢɹɢɜɵɜɨɞɚ k ɡɧɚɱɟɧɢɣɮɭɧɤɰɢɢ y ɧɨɨɬɫɬɨɹɳɢɯ ɡɧɚɱɟɧɢɣ [  ɧɚɱɢɧɚɹɨɬɡɧɚɱɟɧɢɹ [1 ɉɚɪɚɦɟɬɪ p ɜɜɨɞɢɬɫɹɫɤɥɚɜɢɚɬɭɪɵɜɨɜɪɟɦɹɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵɢɥɢɡɚɞɚɟɬɫɹɜ ɜɢɞɟɤɨɧɫɬɚɧɬɵ ɧɚɭɫɦɨɬɪɟɧɢɟɨɛɭɱɚɸɳɟɝɨɫɹ ɋɨɡɞɚɬɶɛɥɨɤ-ɫɯɟɦɭɚɥɝɨɪɢɬɦɚɪɟɲɟ ɧɢɹɡɚɞɚɱɢȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ɩɪɨɜɟ ɞɹɩɚɪɚɥɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ  Ɋɟɲɟɧɢɟ ȼɵɪɚɠɟɧɢɟ WJ[ ɦɨɠɧɨɡɚɩɢɫɚɬɶɜɜɢɞɟ Ȼɥɨɤ-ɫɯɟɦɚɚɥɝɨɪɢɬɦɚɪɟɲɟɧɢɹɡɚɞɚɱɢ ȼɜɨɞ[1[2k [ [1 G[  [2-[1  N-  ȼɵɜɨɞ ɡɚɝɨɥɨɜɤɚ IRUL WRN y WJ[  [ 3  p 4  p2 ȼɵɜɨɞ[1[2k [ [G[ Ʉɨɧɟɰ 53 VLQ [ . FRV [
Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const S  ^ɡɚɞɚɟɦɩɚɪɚɦɟɬɪpɜɜɢɞɟɤɨɧɫɬɚɧɬɵ` var [ \ x1 [ real G[ real^ɲɚɝɢɡɦɟɧɟɧɢɹɚɪɝɭɦɟɧɬɚ` LN integer{ɫɱɟɬɱɢɤɰɢɤɥɚ} begin ^ȼɵɜɨɞɢɦ ɧɚ ɷɤɪɚɧ ɫɨɨɛɳɟɧɢɟ ɞɥɹ ɩɨɥɶɡɨɜɚɬɟɥɹ ɨ ɧɟɨɛɯɨɞɢɦɨɫɬɢ ɜɜɨɞɚ ɢɫɯɨɞɧɵɯ ɞɚɧɧɵɯ` writeln ȼɜɟɞɢɬɟxxk  readln(xxk  ^ɜɜɨɞɢɫɯɨɞɧɵɯɞɚɧɧɵɯɫɤɥɚɜɢɚɬɭɪɵ` x x ^ɩɪɢɫɜɚɢɜɚɟɦɩɟɪɟɦɟɧɧɨɣ[ɧɚɱɚɥɶɧɨɟɡɧɚɱɟɧɢɟ` G[ x2-x  k-  ^ɜɵɱɢɫɥɹɟɦɲɚɝɢɡɦɟɧɟɧɢɹɚɪɝɭɦɟɧɬɚ` writeln Ɋɟɡɭɥɶɬɚɬɵɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ  ^ɜɵɜɨɞɧɚɷɤɪɚɧɧɚɡɜɚɧɢɹɬɚɛɥɢɰɵ} writeln ɇɨɦɟɪ  x  \   ^ɜɵɜɨɞɧɚɷɤɪɚɧɡɚɝɨɥɨɜɤɚɬɚɛɥɢɰɵ` ^ȼɵɱɢɫɥɟɧɢɟɡɧɚɱɟɧɢɣyɞɥɹɪɹɞɚɪɚɜɧɨɨɬɫɬɨɹɳɢɯɡɧɚɱɟɧɢɣ[} for L to k do ^Ɉɩɟɪɚɬɨɪɧɵɟɫɤɨɛɤɢɧɟɨɛɯɨɞɢɦɵɩɨɫɤɨɥɶɤɭɜɬɟɥɟɰɢɤɥɚɞɨɥɠɟɧɜɵɩɨɥɧɢɬɶɫɹɛɨ ɥɟɟɱɟɦɨɞɢɧɨɩɟɪɚɬɨɪ` begin \ VLQ [ FRV [ -VTU [ [S  VTU S  ZULWHOQ(Lx\  ^ɜɵɜɨɞɧɚɷɤɪɚɧɨɱɟɪɟɞɧɨɝɨɡɧɚɱɟɧɢɹy} x xG[ ^ɭɜɟɥɢɱɟɧɢɟ[ɧɚɜɟɥɢɱɢɧɭɲɚɝɚɢɡɦɟɧɟɧɢɹɚɪɝɭɦɟɧɬɚ` end readln end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal 54
ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ Ɋɟɡɭɥɶɬɚɬɵ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɢ ɩɪɨɜɟɞɟɧɢɹ ɩɚɪɚɥ ɥɟɥɶɧɵɯɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ ɇɚɛɨɪɞɚɧɧɵɯ k 11 p 3 [1 [2  1 i 1 2 3 4 5 6 7 8 9 10 11 Ɋɟɡɭɥɶɬɚɬɵɜɵɱɢɫɥɟɧɢɣ Ɍɚɛɥɢɱɧɵɣ Ɋɟɞɚɤɬɨɪ3DVFDO ɩɪɨɰɟɫɫɨɪ [ y i [ y   1     2     3     4     5     6     7     8     9     10   1  11 1  55
ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣ ɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫ ɪɟɡɭɥɶɬɚɬɚɦɢ ɪɚɫɱɟɬɨɜ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɦɨɠɧɨ ɝɨɜɨɪɢɬɶ ɨ ɬɨɦ ɱɬɨ ɩɪɨ ɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. ɄɚɤɢɟɜɢɞɵɰɢɤɥɨɜɜPascal ȼɵɡɧɚɟɬɟ" 2. ȼɤɚɤɢɯɫɥɭɱɚɹɯɰɟɥɟɫɨɨɛɪɚɡɧɨɩɪɢɦɟɧɹɬɶɰɢɤɥɩɟɪɟɫɱɟɬ ɰɢɤɥFOR " 3. Ɂɚɩɢɲɢɬɟ ɫɢɧɬɚɤɫɢɫ ɰɢɤɥɚ FOR ɞɥɹ ɫɥɭɱɚɟɜ ɩɪɹɦɨɝɨ ɢ ɨɛɪɚɬɧɨɝɨ ɩɟɪɟ ɫɱɟɬɚ 4. ɄɚɤɨɟɤɨɥɢɱɟɫɬɜɨɨɩɟɪɚɬɨɪɨɜɦɨɠɟɬɫɨɞɟɪɠɚɬɶɫɹɜɬɟɥɟɰɢɤɥɚFOR" 5. Ɇɨɠɧɨɥɢɜɬɟɥɟɰɢɤɥɚɢɡɦɟɧɹɬɶɡɧɚɱɟɧɢɟɫɱɟɬɱɢɤɚɰɢɤɥɚ" 6. Ʉɚɤɨɝɨɬɢɩɚɦɨɠɟɬɛɵɬɶɫɱɟɬɱɢɤɰɢɤɥɚ" 7. Ɋɚɫɫɤɚɠɢɬɟɨɩɪɟɢɦɭɳɟɫɬɜɚɯ ɰɢɤɥɚFOR. 56
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ ɐɢɤɥɢɱɟɫɤɢɟɜɵɱɢɫɥɢɬɟɥɶɧɵɟɩɪɨɰɟɫɫɵ ɈɩɟɪɚɬɨɪɵWHILE ɢREPEAT UNTIL ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹɰɢɤɥɢɱɟɫɤɢɯ ɜɵɱɢɫɥɢɬɟɥɶɧɵɯ ɩɪɨɰɟɫɫɨɜ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɨɩɟɪɚɬɨɪɨɜ :+,/( ɢ 5(3($7 817,/ ɁɚɞɚɧɢɟɇɟɨɛɯɨɞɢɦɨɪɟɲɢɬɶɜɪɟɞɚɤɬɨɪɟPascal c ɩɪɢɦɟɧɟɧɢɟɦɨɩɟɪɚɬɨ ɪɨɜ:+,/(ɢ5(3($7817,/ɡɚɞɚɱɭɜɵɱɢɫɥɟɧɢɹɢɜɵɜɨɞɚ k ɡɧɚɱɟɧɢɣɮɭɧɤ ɰɢɢ y f [ p ɞɥɹɪɹɞɚɪɚɜɧɨɨɬɫɬɨɹɳɢɯɡɧɚɱɟɧɢɣ [ ɧɚɱɢɧɚɹɨɬɡɧɚɱɟɧɢɹ [1 ɢ ɡɚɜɟɪɲɚɹɡɧɚɱɟɧɢɟɦ [2 ɉɚɪɚɦɟɬɪ p ɜɜɨɞɢɬɫɹɫɤɥɚɜɢɚɬɭɪɵɜɨɜɪɟɦɹɜɵɩɨɥɧɟ ɧɢɹɩɪɨɝɪɚɦɦɵɢɥɢɡɚɞɚɟɬɫɹɜɜɢɞɟɤɨɧɫɬɚɧɬɵ ɧɚɭɫɦɨɬɪɟɧɢɟɨɛɭɱɚɸɳɟɝɨɫɹ  ɋɨɡɞɚɬɶɛɥɨɤ-ɫɯɟɦɵɚɥɝɨɪɢɬɦɨɜɪɟɲɟɧɢɹɡɚɞɚɱɢ ȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɵɢɩɪɨ ɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɢɯɪɚɛɨɬɵ ɩɪɨɜɟɞɹɩɚɪɚɥɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛ ɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ  ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ f [ p k y ȼɚɪɢɚɧɬʋ [ p [ 1 OQ [  p OQ [  p  OQ [ 1. y 2. y 3. y 3 14 S[ 2  2 [ 17 p  28 4 4. y [1  [2  11 2 4 17 4 8 11 1 4 21 1 2 16 3  2 4 VLQ [ p S[ S[ 3 5. y 6. y 7 p  24 [  2p 21 2 8 7. y OJ p 2  [ 2 2p  [ 21 3 7 8. y 4 7 [  2 S[ 11 p 11 2  9. y p  10 [ p [ 21 1 6 OJ 4 p4  [ 57
y ȼɚɪɢɚɧɬʋ 10. 11. 12. 13. 14. 15. 16. f [ p y y 3 k [1  [2  11 1 2 11 2 3 21 1 11 17 0 1 16 4 10 16 1 4 11  1 3 FRV p  [ 4 p VLQ 4 [  FRV 4 p y VLQ 2 [  3 5 2p  [  7p y p  2[ 5 p  FRV [ p  VLQ [ S[  3 [ 3 p3  2[ FRV S[  FRV 2 [ y 14  FRV 2 p WJ[  [ 3  p y 4  p2 y Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨ ɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ȼ ɩɪɨɰɟɫɫɟ ɜɵɩɨɥɧɟɧɢɹ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ɧɟɨɛɯɨɞɢɦɨ ɫɨɫɬɚɜɢɬɶ ɞɜɟ ɩɪɨɝɪɚɦɦɵɧɚɹɡɵɤɟPascalɪɟɚɥɢɡɭɸɳɢɯɪɟɲɟɧɢɟɩɨɫɬɚɜɥɟɧɧɨɣɡɚɞɚɱɢɢɩɨ ɫɬɪɨɢɬɶ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɟ ɢɦ ɛɥɨɤ-ɫɯɟɦɵ ɉɟɪɜɚɹ ɩɪɨɝɪɚɦɦɚ ɞɨɥɠɧɚ ɪɟɚɥɢɡɨ ɜɵɜɚɬɶ ɩɨɫɬɚɜɥɟɧɧɭɸ ɡɚɞɚɱɭ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɰɢɤɥɚ WHILE ɚ ɜɬɨɪɚɹ ɩɪɨɝɪɚɦ ɦɚ – ɫɩɪɢɦɟɧɟɧɢɟɦɰɢɤɥɚ5(3($7817,/ ɐɢɤɥɵWHILE ɢ5(3($7 817,/ ɩɪɢɦɟɧɹɸɬɫɹɜɬɟɯɫɥɭɱɚɹɯɤɨɝɞɚɱɢɫ ɥɨɩɨɜɬɨɪɟɧɢɣɰɢɤɥɚɡɚɪɚɧɟɟɧɟɢɡɜɟɫɬɧɨ ɇɨɜɪɚɦɤɚɯɞɚɧɧɨɣɪɚɛɨɬɵɧɟɨɛɯɨ ɞɢɦɨɨɬɤɨɪɪɟɤɬɢɪɨɜɚɬɶɚɥɝɨɪɢɬɦɩɪɟɞɫɬɚɜɥɟɧɧɵɣɜɩɪɟɞɵɞɭɳɟɣɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ íɡɚɦɟɧɢɬɶɰɢɤɥFOR ɧɚɰɢɤɥɵɫɩɪɟɞɭɫɥɨɜɢɟɦɢɩɨɫɬɭɫɥɨɜɢɟɦ ɋɢɧɬɚɤɫɢɫɰɢɤɥɚɫɩɪɟɞɭɫɥɨɜɢɟɦ ɰɢɤɥWHILE  while ɭɫɥɨɜɢɟ!do ɨɩɟɪɚɬɨɪ! ȿɫɥɢ ɜ ɬɟɥɟ ɰɢɤɥɚ ɧɟɨɛɯɨɞɢɦɨ ɜɵɩɨɥɧɢɬɶ ɧɟɫɤɨɥɶɤɨ ɨɩɟɪɚɬɨɪɨɜ ɬɨ ɨɧɢ ɡɚɤɥɸɱɚɸɬɫɹɜɨɩɟɪɚɬɨɪɧɵɟɫɤɨɛɤɢbegin … end 58
Ȼɥɨɤ-ɫɯɟɦɚɰɢɤɥɚWHILE ɜɵɝɥɹɞɢɬɫɥɟɞɭɸɳɢɦɨɛɪɚɡɨɦ ȿɫɥɢ ɥɨɝɢɱɟɫɤɨɟ ɭɫɥɨɜɢɟ ɜ ɰɢɤɥɟ WHILE ɫɪɚɡɭ ɹɜɥɹɟɬɫɹ ɥɨɠɧɵɦ ɬɨ ɬɚ ɤɨɣ ɰɢɤɥ ɧɟ ɛɭɞɟɬ ɜɵɩɨɥɧɟɧ ɧɢ ɪɚɡɭ Ɍɟɥɨ ɰɢɤɥɚ WHILE ɜɵɩɨɥɧɹɟɬɫɹ ɞɨ ɬɟɯ ɩɨɪɩɨɤɚɥɨɝɢɱɟɫɤɨɟɭɫɥɨɜɢɟɹɜɥɹɟɬɫɹɢɫɬɢɧɧɵɦ ȼɰɢɤɥɟɫɩɨɫɬɭɫɥɨɜɢɟɦ ɰɢɤɥ5(3($7 817,/ ɭɫɥɨɜɢɟɩɪɨɜɟɪɹɟɬɫɹɩɨ ɫɥɟɰɢɤɥɚɌɟɥɨɰɢɤɥɚ5(3($7 817,/ ɛɭɞɟɬɜɵɩɨɥɧɹɬɶɫɹɞɨɬɟɯɩɨɪɩɨɤɚɥɨ ɝɢɱɟɫɤɨɟɭɫɥɨɜɢɟɧɟɜɵɩɨɥɧɟɧɨȾɚɧɧɵɣɰɢɤɥɝɚɪɚɧɬɢɪɨɜɚɧɧɨɜɵɩɨɥɧɢɬɫɹɯɨɬɹ ɛɵɨɞɢɧɪɚɡ ɋɢɧɬɚɤɫɢɫɰɢɤɥɚɫɩɨɫɬɭɫɥɨɜɢɟɦ repeat ɨɩɟɪɚɬɨɪ ɵ ! until ɭɫɥɨɜɢɟ! ɋɥɟɞɭɟɬ ɩɨɦɧɢɬɶ ɱɬɨ ɨɩɟɪɚɬɨɪɧɵɟ ɫɤɨɛɤɢ ɜ ɰɢɤɥɟ 5(3($7 817,/ ɧɟ ɬɪɟɛɭɸɬɫɹ ɉɨɫɥɟ ɫɥɭɠɟɛɧɨɝɨ ɫɥɨɜɚ repeat ɦɨɝɭɬ ɪɚɫɩɨɥɚɝɚɬɶɫɹ ɤɚɤ ɨɞɢɧ ɨɩɟ ɪɚɬɨɪɬɚɤɢɧɟɫɤɨɥɶɤɨɨɩɟɪɚɬɨɪɨɜ Ȼɥɨɤ-ɫɯɟɦɚɰɢɤɥɚ5(3($7 817,/ ɜɵɝɥɹɞɢɬɫɥɟɞɭɸɳɢɦɨɛɪɚɡɨɦ 59
ɉɪɢɦɟɧɹɹ ɰɢɤɥɵ WHILE ɢ 5(3($7 817,/ ɧɭɠɧɨ ɩɪɟɞɭɫɦɨɬɪɟɬɶ ɜɨɡ ɦɨɠɧɨɫɬɶ ɜɵɯɨɞɚ ɢɡ ɰɢɤɥɚ ɜ ɥɸɛɨɣ ɫɢɬɭɚɰɢɢ ɜɨ ɢɡɛɟɠɚɧɢɟ ɬɚɤ ɧɚɡɵɜɚɟɦɨɝɨ ©ɡɚɰɢɤɥɢɜɚɧɢɹªɩɪɨɝɪɚɦɦɵ Ʉɚɤ ɢ ɜ ɩɪɟɞɵɞɭɳɟɣ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ɪɟɡɭɥɶɬɚɬɵ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦ ɠɟɥɚɬɟɥɶɧɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɜɮɨɪɦɟɬɚɛɥɢɰɫɡɚɝɨɥɨɜɤɨɦ ɊɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɜɪɟɞɚɤɬɨɪɟPascal ɢɩɪɨɜɟɞɟɧɢɹɩɚɪɚɥ ɥɟɥɶɧɵɯ ɜɵɱɢɫɥɟɧɢɣ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɠɟɥɚɬɟɥɶɧɨ ɨɮɨɪɦɢɬɶ ɜ ɜɢɞɟ ɫɥɟɞɭɸɳɟɣɬɚɛɥɢɰɵ ɩɪɢɦɟɪɞɥɹɜɚɪɢɚɧɬɚ  ɇɚɛɨɪɞɚɧɧɵɯ k p [1 11 3  Ɋɟɡɭɥɶɬɚɬɵɜɵɱɢɫɥɟɧɢɣ Ɋɟɞɚɤɬɨɪ3DVFDO Ɍɚɛɥɢɱɧɵɣɩɪɨɰɟɫɫɨɪ ɐɢɤɥ5(3($7817,/ [2 ɐɢɤɥWHILE i [ y i [ y i [ y 1   1   1   2   2   2   3   3   3   4   4   4   5   5   5   1 6   6   6   7   7   7   8   8   8   9   9   9   10   10   10   11 1  11 1  11 1  Ɋɟɡɭɥɶɬɚɬɵ ɜɵɩɨɥɧɟɧɢɹ ɞɚɧɧɨɣ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ɧɟɨɛɯɨɞɢɦɨ ɨɮɨɪ ɦɢɬɶɩɨɚɧɚɥɨɝɢɢɫɩɪɟɞɵɞɭɳɟɣɪɚɛɨɬɨɣ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. ȼ ɤɚɤɢɯ ɫɢɬɭɚɰɢɹɯ ɰɟɥɟɫɨɨɛɪɚɡɧɨ ɩɪɢɦɟɧɹɬɶ ɰɢɤɥɵ WHILE ɢ 5(3($7 817,/" 2. Ɂɚɩɢɲɢɬɟɫɢɧɬɚɤɫɢɫɰɢɤɥɚc ɩɪɟɞɭɫɥɨɜɢɟɦɢɰɢɤɥɚɫɩɨɫɬɭɫɥɨɜɢɟɦ 3. ȼɱɟɦɝɥɚɜɧɵɟɨɬɥɢɱɢɹɜɪɚɛɨɬɟɰɢɤɥɨɜWHILE ɢ5(3($7 817,/" 4. ɄɚɤɨɟɤɨɥɢɱɟɫɬɜɨɨɩɟɪɚɬɨɪɨɜɦɨɠɟɬɫɨɞɟɪɠɚɬɶɫɹɜɬɟɥɟɰɢɤɥɨɜWHILE ɢ 5(3($7 817,/" 5. ɇɚɪɢɫɭɣɬɟɛɥɨɤ-ɫɯɟɦɵɰɢɤɥɨɜɫɩɪɟɞɭɫɥɨɜɢɟɦɢɩɨɫɬɭɫɥɨɜɢɟɦ 6. ɑɬɨɩɪɨɢɡɨɣɞɟɬɟɫɥɢɥɨɝɢɱɟɫɤɨɟɭɫɥɨɜɢɟɜɰɢɤɥɟWHILE ɫɪɚɡɭɨɤɚɠɟɬɫɹ ɥɨɠɧɵɦ" 7. ɇɟɨɛɯɨɞɢɦɵɥɢɨɩɟɪɚɬɨɪɧɵɟɫɤɨɛɤɢɜɰɢɤɥɟ 5(3($7 817,/" 60
Ɍɟɦɚ  ɄɈɆɉɖɘɌȿɊɇȺə ɌɈɑɇɈɋɌɖ ȼɕɑɂɋɅȿɇɂɃ ȼɟɳɟɫɬɜɟɧɧɵɟɱɢɫɥɚɢɫɩɨɥɶɡɭɟɦɵɟɜɉɚɫɤɚɥɟɡɚɧɢɦɚɸɬɲɟɫɬɶɛɚɣɬɨɜɜ ɩɚɦɹɬɢ ɤɨɦɩɶɸɬɟɪɚ ɋɥɟɞɨɜɚɬɟɥɶɧɨ ɞɥɢɧɚ ɱɢɫɥɚ ɤɨɥɢɱɟɫɬɜɨ ɟɝɨ ɰɢɮɪ  ɨɝɪɚ ɧɢɱɟɧɚɪɚɡɦɟɪɨɦɩɪɟɞɨɫɬɚɜɥɹɟɦɨɣɩɚɦɹɬɢɉɪɢɜɵɜɨɞɟɜɟɳɟɫɬɜɟɧɧɨɝɨɱɢɫɥɚɜ ɮɨɪɦɟ ɫ ɩɥɚɜɚɸɳɟɣ ɬɨɱɤɨɣ ɨɧɨ ɫɨɞɟɪɠɢɬ  ɰɢɮɪ – ɩɪɢɛɥɢɠɟɧɧɨɟ ɡɧɚɱɟɧɢɟ ɬɨɱɧɨɝɨɪɟɡɭɥɶɬɚɬɚ ɉɪɢɛɥɢɠɟɧɧɵɦɱɢɫɥɨɦ ɚɧɚɡɵɜɚɟɬɫɹɱɢɫɥɨɧɟɡɧɚɱɢɬɟɥɶɧɨɨɬɥɢɱɚɸɳɟɟɫɹ ɨɬɬɨɱɧɨɝɨȺɢɡɚɦɟɧɹɸɳɟɟɩɨɫɥɟɞɧɟɟɜɜɵɱɢɫɥɟɧɢɹɯ ɂɡɜɟɫɬɧɨɱɬɨɤɚɠɞɨɟɞɟɣɫɬɜɢɬɟɥɶɧɨɟ ɱɢɫɥɨɦɨɠɟɬɛɵɬɶɡɚɩɢɫɚɧɨɜɜɢɞɟ ɞɟɫɹɬɢɱɧɨɣ ɞɪɨɛɢ Ⱦɟɣɫɬɜɢɬɟɥɶɧɨɦɭ ɱɢɫɥɭ ɫɨɨɬɜɟɬɫɬɜɭɟɬ ɬɨɱɤɚ ɱɢɫɥɨɜɨɣ ɩɪɹ ɦɨɣ Ⱦɟɣɫɬɜɢɬɟɥɶɧɨɟ ɱɢɫɥɨ Ⱥ ɧɚɡɵɜɚɟɬɫɹ ɪɚɰɢɨɧɚɥɶɧɵɦ ɟɫɥɢ ɫɭɳɟɫɬɜɭɸɬ ɰɟ ɥɵɟɱɢɫɥɚq1 ɢq2 ɬɚɤɢɟɱɬɨ$ T1T2ȼɩɪɨɬɢɜɧɨɦɫɥɭɱɚɟ ɱɢɫɥɨȺɧɚɡɵɜɚ ɟɬɫɹ ɢɪɪɚɰɢɨɧɚɥɶɧɵɦ Ɋɚɰɢɨɧɚɥɶɧɵɦ ɱɢɫɥɚɦ ɢ ɬɨɥɶɤɨ ɢɦ ɫɨɨɬɜɟɬɫɬɜɭɸɬ ɩɟ ɪɢɨɞɢɱɟɫɤɢɟɞɟɫɹɬɢɱɧɵɟɞɪɨɛɢ Ȼɟɫɤɨɧɟɱɧɚɹ ɧɟɩɟɪɢɨɞɢɱɟɫɤɚɹ ɞɟɫɹɬɢɱɧɚɹ ɞɪɨɛɶ ɦɨɠɟɬ ɛɵɬɶ ɜɵɱɢɫɥɟɧɚ ɬɨɥɶɤɨ ɫ ɨɩɪɟɞɟɥɟɧɧɨɣ ɬɨɱɧɨɫɬɶɸ ɫ ɤɨɧɟɱɧɵɦ ɤɨɥɢɱɟɫɬɜɨɦ ɞɟɫɹɬɢɱɧɵɯ ɡɧɚ ɤɨɜ ȼ ɲɤɨɥɶɧɨɦ ɤɭɪɫɟ ɦɚɬɟɦɚɬɢɤɢ ɜɫɬɪɟɱɚɸɬɫɹ ɢɪɪɚɰɢɨɧɚɥɶɧɵɟ ɜɟɥɢɱɢɧɵ – ɡɧɚɱɟɧɢɹ ɤɨɪɧɟɣ ɤɜɚɞɪɚɬɧɵɯ ɢ ɤɭɛɢɱɟɫɤɢɯ ɬɪɢɝɨɧɨɦɟɬɪɢɱɟɫɤɢɯ ɮɭɧɤɰɢɣ ɥɨ ɝɚɪɢɮɦɵɄɨɦɩɶɸɬɟɪɵɩɨɡɜɨɥɹɸɬɜɵɱɢɫɥɹɬɶɡɧɚɱɟɧɢɹɬɚɤɢɯɜɟɥɢɱɢɧɫɪɚɡɥɢɱ ɧɨɣɫɬɟɩɟɧɶɸɬɨɱɧɨɫɬɢɧɨɷɬɚɬɨɱɧɨɫɬɶɧɟɦɨɠɟɬɛɵɬɶɜɵɲɟɤɨɦɩɶɸɬɟɪɧɨɣ – ɧɟɥɶɡɹɩɨɥɭɱɢɬɶ ɛɨɥɶɲɟɟɤɨɥɢɱɟɫɬɜɨɰɢɮɪɜɱɢɫɥɟɱɟɦɩɨɦɟɳɚɟɬɫɹ ɜɨɬɜɟɞɟɧ ɧɭɸɞɥɹɱɢɫɥɚɩɚɦɹɬɶ Ɋɚɫɫɦɨɬɪɢɦ ɩɪɢɦɟɪɵɜɵɱɢɫɥɟɧɢɣɫɡɚɞɚɧɧɨɣɬɨɱɧɨɫɬɶɸ  ȼɵɱɢɫɥɟɧɢɟɤɨɪɧɹɤɜɚɞɪɚɬɧɨɝɨɢɡɞɚɧɧɨɝɨɱɢɫɥɚȺ. ɌɨɱɧɨɦɭɡɧɚɱɟɧɢɸɤɨɪɧɹɤɜɚɞɪɚɬɧɨɝɨɢɡɱɢɫɥɚȺ ɫɨɨɬɜɟɬɫɬɜɭɟɬɬɨɱɤɚɧɚ ɱɢɫɥɨɜɨɣ ɩɪɹɦɨɣ ȼɨɡɶɦɟɦ ɧɟɤɨɬɨɪɨɟ ɩɪɢɛɥɢɠɟɧɧɨɟ ɡɧɚɱɟɧɢɟ ɷɬɨɝɨ ɱɢɫɥɚ ɥɟ ɜɟɟɞɚɧɧɨɣɬɨɱɤɢɩɭɫɬɶɷɬɨɛɭɞɟɬɯ0 (ɪɢɫ ɌɨɝɞɚɡɧɚɱɟɧɢɟȺɯ0 ɛɭɞɟɬɧɚɱɢɫ ɥɨɜɨɣ ɩɪɹɦɨɣ ɫɨɨɬɜɟɬɫɬɜɨɜɚɬɶ ɬɨɱɤɟ ɧɚɯɨɞɹɳɟɣɫɹ ɩɪɚɜɟɟ ɬɨɱɧɨɝɨ ɡɧɚɱɟɧɢɹ ɤɨɪɧɹ Ɋɢɫ Ɂɚ ɩɟɪɜɨɟ ɩɪɢɛɥɢɠɟɧɢɟ ɢɪɪɚɰɢɨɧɚɥɶɧɨɝɨ ɱɢɫɥɚ ɦɨɠɧɨ ɜɡɹɬɶ ɩɨɥɭɫɭɦɦɭ ɱɢɫɟɥɯ0 ɢȺɯ0 ɯ1  ɯ0 Ⱥɯ0 ) 61
ɉɪɨɞɨɥɠɚɹɪɚɫɫɭɠɞɟɧɢɹɩɨɥɭɱɢɦɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ ɡɧɚɱɟɧɢɣɯ1ɯ2 ɯn Ɉɛɳɢɣɜɢɞɮɨɪɦɭɥɵɩɨɤɨɬɨɪɨɣɩɪɨɢɡɜɨɞɹɬɜɵɱɢɫɥɟɧɢɹ xQ  xQ $[Q) ȼɵɱɢɫɥɢɬɟɥɶɧɵɣ ɩɪɨɰɟɫɫ ɩɪɢ ɤɨɬɨɪɨɦ ɤɚɠɞɨɟ ɩɨɫɥɟɞɭɸɳɟɟ ɡɧɚɱɟɧɢɟ ɜɵɱɢɫɥɹɟɬɫɹ ɫ ɢɫɩɨɥɶɡɨɜɚɧɢɟɦ ɨɞɧɨɝɨ ɢɥɢ ɧɟɫɤɨɥɶɤɢɯ ɩɪɟɞɵɞɭɳɢɯ ɡɧɚɱɟɧɢɣ ɧɚɡɵɜɚɟɬɫɹ ɢɬɟɪɚɰɢɨɧɧɵɦ ɚ ɫɚɦɢ ɜɵɱɢɫɥɟɧɢɹ – ɢɬɟɪɚɰɢɨɧɧɵɦɢ ɉɪɨɰɟɫɫ ɩɪɢɜɨɞɹɳɢɣ ɤ ɩɨɥɭɱɟɧɢɸ ɤɨɪɧɹ ɤɜɚɞɪɚɬɧɨɝɨ ɢɡ ɞɚɧɧɨɝɨ ɱɢɫɥɚ ɛɵɥ ɢɡɜɟɫɬɟɧ ɟɳɟɝɪɟɱɟɫɤɨɦɭɦɚɬɟɦɚɬɢɤɭȽɟɪɨɧɭ (ɨɤɨɥɨɜɟɤɚɧ ɷ ɢɧɚɡɵɜɚɟɬɫɹɩɪɨɰɟɫɫɨɦ Ƚɟɪɨɧɚ ɆɨɠɧɨɨɛɨɛɳɢɬɶɞɚɧɧɭɸɮɨɪɦɭɥɭɞɥɹɤɨɪɧɹQ-ɣɫɬɟɩɟɧɢ xQ Q  Q-1) xQ $[QQ-1) Ʉɚɤɠɟɨɩɪɟɞɟɥɢɬɶɤɨɝɞɚɛɭɞɟɬ ɞɨɫɬɢɝɧɭɬɚɬɪɟɛɭɟɦɚɹɬɨɱɧɨɫɬɶɜɵɱɢɫɥɟ ɧɢɣ" Ⱦɥɹ ɢɬɟɪɚɰɢɨɧɧɵɯ ɩɪɨɰɟɫɫɨɜ ɫɭɳɟɫɬɜɭɟɬ ɟɞɢɧɵɣ ɩɪɢɡɧɚɤ ɞɨɫɬɢɠɟɧɢɹ ɬɨɱɧɨɫɬɢ ɦɨɞɭɥɶ ɪɚɡɧɨɫɬɢ ɞɜɭɯ ɫɨɫɟɞɧɢɯ ɡɧɚɱɟɧɢɣ ɞɨɥɠɟɧ ɧɟ ɩɪɟɜɵɲɚɬɶ ɡɚ ɞɚɧɧɭɸɬɨɱɧɨɫɬɶH (ɱɢɬɚɟɬɫɹ©ɷɩɫɢɥɨɧª – ɝɪɟɱ  | xQ - xQ _ H Ɍɚɤ ɤɚɤ ɜ ɉɚɫɤɚɥɟ ɧɟɬ ɝɪɟɱɟɫɤɨɣ ɛɭɤɜɵ H ɨɛɨɡɧɚɱɢɦ ɬɨɱɧɨɫɬɶ ɜɵɱɢɫɥɟ ɧɢɣɱɟɪɟɡHSVȼɩɪɨɝɪɚɦɦɟȿɢɫɩɨɥɶɡɭɸɬɫɹɜɫɟɝɨɞɜɟɩɟɪɟɦɟɧɧɵɟɯ ɢɯɧɨ ɜɵɱɢɫɥɟɧɢɹɦɨɝɭɬɩɨɜɬɨɪɹɬɶɫɹɫɤɨɥɶɭɝɨɞɧɨɟɱɢɫɥɨɪɚɡ ɜɡɚɜɢɫɢɦɨɫɬɢɨɬɡɚɞɚ ɜɚɟɦɨɣ ɬɨɱɧɨɫɬɢ  ɉɪɢ ɩɨɫɬɪɨɟɧɢɢ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ ɭɬɨɱɧɟɧɧɵɯ ɡɧɚɱɟɧɢɣ ɧɟɢɡɜɟɫɬɧɨɫɤɨɥɶɤɨɟɟɱɥɟɧɨɜɛɭɞɟɬɩɨɥɭɱɟɧɨɞɥɹɜɜɟɞɟɧɧɨɝɨɡɧɚɱɟɧɢɹɬɨɱɧɨ ɫɬɢɋɥɟɞɨɜɚɬɟɥɶɧɨɧɟɢɡɜɟɫɬɧɨɫɤɨɥɶɤɨɩɚɦɹɬɢɩɨɬɪɟɛɭɟɬɫɹɞɥɹɷɬɢɯɞɚɧɧɵɯ ɂɫɩɨɥɶɡɭɹɬɨɬɮɚɤɬɱɬɨɧɚɤɚɠɞɨɦɲɚɝɟɜɵɱɢɫɥɟɧɢɣɧɟɨɛɯɨɞɢɦɨɡɧɚɬɶɡɧɚɱɟ ɧɢɟɬɨɥɶɤɨɨɞɧɨɝɨɩɪɟɞɵɞɭɳɟɝɨɱɥɟɧɚɩɨɥɭɱɚɟɦɨɣɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢɛɭɞɟɦ ɤɚɠɞɵɣɪɚɡɧɨɜɨɟɡɧɚɱɟɧɢɟɡɚɩɢɫɵɜɚɬɶɜɹɱɟɣɤɭɫɢɦɟɧɟɦɯɚɛɪɚɬɶɩɪɟɞɵɞɭ ɳɟɟ ɢɡ ɯ ɑɬɨɛɵ ɧɚ ɤɚɠɞɨɦ ɲɚɝɟ ɜɵɱɢɫɥɟɧɢɣ ɢɫɩɨɥɶɡɨɜɚɥɨɫɶ ɬɨɥɶɤɨ ɱɬɨ ɜɵ ɱɢɫɥɟɧɧɨɟ ɡɧɚɱɟɧɢɟ ɛɭɞɟɦ ɩɨɦɟɳɚɬɶ ɟɝɨ ɤɚɠɞɵɣ ɪɚɡ ɜ ɹɱɟɣɤɭ ɯ ɨɩɟɪɚɬɨɪɨɦ ɩɪɢɫɜɚɢɜɚɧɢɹ ɯ ɯ Ɍɨɝɞɚ ɧɟɡɚɜɢɫɢɦɨ ɨɬ ɱɢɫɥɚ ɩɨɜɬɨɪɟɧɢɣ ɢ ɩɨɥɭɱɚɟɦɵɯ ɩɪɢ ɷɬɨɦ ɱɥɟɧɨɜ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ ɜ ɩɪɨɝɪɚɦɦɟ ɦɨɠɧɨ ɨɝɪɚɧɢɱɢɬɶɫɹ ɞɜɭɦɹ ɩɟɪɟɦɟɧɧɵɦɢ ȼ ɤɚɱɟɫɬɜɟ ɧɚɱɚɥɶɧɨɝɨ ɡɧɚɱɟɧɢɹ ɤɨɪɧɹ ɦɨɠɧɨ ɜɡɹɬɶ ɥɸɛɨɟ ɱɢɫɥɨ ɤɪɨɦɟ ɧɭɥɹ  ɧɚɩɪɢɦɟɪ program ( var $HSV[[real 62
begin write µɜɜɟɞɢɬɟɩɨɥɨɠɢɬɟɥɶɧɨɟɱɢɫɥɨȺ µ  readln $  write µɜɜɟɞɢɬɟ ɬɨɱɧɨɫɬɶ ɜɵɱɢɫɥɟɧɢɣ – ɩɪɚɜɢɥɶɧɭɸ ɞɟɫɹɬɢɱɧɭɸ ɞɪɨɛɶµ  readln HSV  ɯ  [   [$[  while DEV [- [ !HSVdo begin [ [ [   [$[ end; write µɤɨɪɟɧɶɤɜɚɞɪɚɬɧɵɣɢɡɱɢɫɥɚ¶$µ µ[ HQG ȼɵɱɢɫɥɟɧɢɟɡɧɚɱɟɧɢɹɬɪɢɝɨɧɨɦɟɬɪɢɱɟɫɤɨɣɮɭɧɤɰɢɢ ɂɡ ɜɵɫɲɟɣ ɦɚɬɟɦɚɬɢɤɢ ɢɡɜɟɫɬɧɨ ɱɬɨ ɦɧɨɝɢɟ ɮɭɧɤɰɢɢ ɜ ɬɨɦ ɱɢɫɥɟ ɬɪɢ ɝɨɧɨɦɟɬɪɢɱɟɫɤɢɟ ɦɨɠɧɨ ɩɪɟɞɫɬɚɜɢɬɶ ɜ ɜɢɞɟ ɛɟɫɤɨɧɟɱɧɨɣ ɫɭɦɦɵ Ⱦɥɹ ɬɨɝɨ ɱɬɨɛɵ ɜɵɱɢɫɥɢɬɶ ɡɧɚɱɟɧɢɟ ɬɚɤɨɣ ɫɭɦɦɵ ɫ ɡɚɞɚɧɧɨɣ ɬɨɱɧɨɫɬɶɸ ɞɨɫɬɚɬɨɱɧɨ ɜɡɹɬɶɧɟɫɤɨɥɶɤɨɫɥɚɝɚɟɦɵɯɄɨɥɢɱɟɫɬɜɨɫɥɚɝɚɟɦɵɯɡɚɜɢɫɢɬɨɬɬɨɱɧɨɫɬɢ ɊɚɫɫɦɨɬɪɢɦɩɪɟɞɫɬɚɜɥɟɧɢɟɜɜɢɞɟɫɭɦɦɵɮɭɧɤɰɢɢVLQ[ ɩɪɢ  x  S x3 x5 x7 xQ VLQ[ [- ----- -------- - --------- - ----------Q ɝɞɟQ  ɉɨ ɮɨɪɦɭɥɟ ɜɵɱɢɫɥɟɧɢɹ VLQ [ ɤɚɤ ɫɭɦɦɵ ɛɟɫɤɨɧɟɱɧɨɝɨ ɱɢɫɥɚ ɫɥɚɝɚɟɦɵɯ ɦɨɠɧɨɜɵɱɢɫɥɹɬɶɤɚɠɞɨɟɫɥɚɝɚɟɦɨɟɢɧɚɯɨɞɢɬɶɫɭɦɦɭɈɞɧɚɤɨɢɱɢɫɥɢɬɟɥɶɢ ɡɧɚɦɟɧɚɬɟɥɶ ɤɚɠɞɨɝɨ ɫɥɚɝɚɟɦɨɝɨ – ɛɵɫɬɪɨ ɭɜɟɥɢɱɢɜɚɸɳɢɟɫɹ ɱɢɫɥɚ ɩɨɷɬɨɦɭ ɞɥɹɜɵɱɢɫɥɟɧɢɣɜɤɥɸɱɚɸɳɢɯɫɬɟɩɟɧɶɢɮɚɤɬɨɪɢɚɥɜɵɜɨɞɹɬɡɚɜɢɫɢɦɨɫɬɢɦɟɠ ɞɭ ɫɨɫɟɞɧɢɦɢ ɡɧɚɱɟɧɢɹɦɢ ɩɨɡɜɨɥɹɸɳɢɟ ɧɚ ɤɚɠɞɨɦ ɲɚɝɟ ɭɦɧɨɠɚɬɶ ɩɪɟɞɵɞɭ ɳɟɟɡɧɚɱɟɧɢɟɧɚɫɪɚɜɧɢɬɟɥɶɧɨɧɟɛɨɥɶɲɨɟɱɢɫɥɨ Ⱦɥɹɩɨɥɭɱɟɧɢɹɡɚɜɢɫɢɦɨɫɬɢɦɟɠɞɭɫɥɚɝɚɟɦɵɦɢɜɵɩɢɲɟɦɞɜɚɩɨɫɥɟɞɨɜɚ ɬɟɥɶɧɵɯɫɥɚɝɚɟɦɵɯɜɨɛɳɟɦɜɢɞɟɢɪɚɡɞɟɥɢɦɨɞɧɨɧɚɞɪɭɝɨɟ ɚQ ɯQ - ɯQ ------------------- DQ -------  Q  Q Q aQ  x2 - aQ --------------------------Q  Q   Q   63
ȼɵɱɢɫɥɟɧɢɹɞɨɥɠɧɵɩɪɟɤɪɚɬɢɬɶɫɹ ɤɨɝɞɚɦɨɞɭɥɶɪɚɡɧɨɫɬɢɞɜɭɯɫɨɫɟɞɧɢɯ ɫɭɦɦɛɭɞɟɬɦɟɧɶɲɟɢɥɢɪɚɜɟɧɡɚɞɚɧɧɨɣɬɨɱɧɨɫɬɢɊɚɡɧɨɫɬɶɞɜɭɯɫɨɫɟɞɧɢɯɫɭɦɦ ɪɚɜɧɚɨɱɟɪɟɞɧɨɦɭɫɥɚɝɚɟɦɨɦɭɩɨɷɬɨɦɭɭɫɥɨɜɢɟɨɤɨɧɱɚɧɢɹ ɜɵɱɢɫɥɟɧɢɣ | aQ _ H ɂɫɩɨɥɶɡɭɟɦ ɜ ɩɪɨɝɪɚɦɦɟ ɨɞɧɭ ɩɟɪɟɦɟɧɧɭɸ ɚ ɞɥɹ ɜɵɱɢɫɥɟɧɢɹ ɤɚɠɞɨɝɨ ɫɥɚɝɚɟɦɨɝɨ program ( var [D6HSV realQinteger; begin write µ[ µ  readln [  write µHSV µ  readln HSV  D [ 6 [ Q  repeat D - D VTU [  Q  Q  6 6D Q Q until DEV D HSV write µVLQµ[µ µ6 HQG ɍɬɨɱɧɟɧɢɹɤɨɪɧɹɭɪɚɜɧɟɧɢɹɦɟɬɨɞɨɦɞɟɥɟɧɢɹɨɬɪɟɡɤɚɩɨɩɨɥɚɦ ɉɭɫɬɶɞɚɧɨɭɪɚɜɧɟɧɢɟ I [  ɝɞɟɮɭɧɤɰɢɹI [ ɨɩɪɟɞɟɥɟɧɚɢɧɟɩɪɟɪɵɜɧɚɧɚɧɟɤɨɬɨɪɨɦɢɧɬɟɪɜɚɥɟa[b. ȼ ɲɤɨɥɶɧɨɦ ɤɭɪɫɟ ɦɚɬɟɦɚɬɢɤɢ ɪɚɫɫɦɚɬɪɢɜɚɸɬɫɹ ɦɟɬɨɞɵ ɬɨɱɧɨɝɨ ɪɟɲɟɧɢɹ ɧɚɯɨɠɞɟɧɢɹ ɤɨɪɧɟɣ ɭɪɚɜɧɟɧɢɹ ɬ ɟ ɧɭɥɟɣ ɮɭɧɤɰɢɢ I [  ɬɨɥɶɤɨ ɧɟɤɨɬɨɪɵɯ ɭɪɚɜɧɟɧɢɣɤɜɚɞɪɚɬɧɨɝɨɬɪɢɝɨɧɨɦɟɬɪɢɱɟɫɤɢɯɩɨɤɚɡɚɬɟɥɶɧɵɯȿɫɥɢɠɟɭɪɚɜɧɟ ɧɢɟɚɥɝɟɛɪɚɢɱɟɫɤɨɟɢɥɢɬɪɚɧɫɰɟɧɞɟɧɬɧɨɟɞɨɫɬɚɬɨɱɧɨɫɥɨɠɧɨɬɨɪɟɞɤɨɢɦɟɟɬɫɹ ɜɨɡɦɨɠɧɨɫɬɶɬɨɱɧɨɝɨɜɵɱɢɫɥɟɧɢɹɟɝɨɤɨɪɧɟɣɉɨɷɬɨɦɭɜɚɠɧɨɟɡɧɚɱɟɧɢɟɩɪɢɨɛ ɪɟɬɚɸɬ ɦɟɬɨɞɵ ɩɪɢɛɥɢɠɟɧɧɨɝɨ ɜɵɱɢɫɥɟɧɢɹ ɤɨɪɧɟɣ ɭɪɚɜɧɟɧɢɹ Ʉ ɬɚɤɢɦ ɦɟɬɨ ɞɚɦɨɬɧɨɫɢɬɫɹɦɟɬɨɞɞɟɥɟɧɢɹɨɬɪɟɡɤɚɩɨɩɨɥɚɦ Ȼɭɞɟɦɢɫɯɨɞɢɬɶɢɡ ɩɪɟɞɩɨɥɨɠɟɧɢɹɱɬɨɭɪɚɜɧɟɧɢɟI [ ɢɦɟɟɬɥɢɲɶ ɢɡɨɥɢɪɨɜɚɧɧɵɟɤɨɪɧɢɬɟ ɞɥɹɤɚɠɞɨɝɨɤɨɪɧɹɭɪɚɜɧɟɧɢɹɫɭɳɟɫɬɜɭɟɬɧɟɤɨɬɨɪɚɹ ɨɤɪɟɫɬɧɨɫɬɶɧɟɫɨɞɟɪɠɚɳɚɹɞɪɭɝɢɯɤɨɪɧɟɣɷɬɨɝɨɭɪɚɜɧɟɧɢɹ 64
ɉɪɢɛɥɢɠɟɧɧɨɟ ɜɵɱɢɫɥɟɧɢɟ ɢɡɨɥɢɪɨɜɚɧɧɵɯ ɜɟɳɟɫɬɜɟɧɧɵɯ ɤɨɪɧɟɣ ɭɪɚɜ ɧɟɧɢɹɨɛɵɱɧɨɫɤɥɚɞɵɜɚɟɬɫɹɢɡɞɜɭɯɷɬɚɩɨɜ 1) ɨɬɞɟɥɟɧɢɟ ɤɨɪɧɟɣ ɬ ɟ ɭɫɬɚɧɨɜɥɟɧɢɟ ɜɨɡɦɨɠɧɨ ɬɟɫɧɵɯ ɩɪɨɦɟɠɭɬɤɨɜ ɫɨɞɟɪɠɚɳɢɯɬɨɥɶɤɨɨɞɢɧɤɨɪɟɧɶɭɪɚɜɧɟɧɢɹ 2) ɭɬɨɱɧɟɧɢɟ ɩɪɢɛɥɢɠɟɧɧɵɯ ɤɨɪɧɟɣ ɬ ɟ ɞɨɜɟɞɟɧɢɟ ɜɵɱɢɫɥɟɧɢɣ ɞɨ ɡɚ ɞɚɧɧɨɣɬɨɱɧɨɫɬɢ ȿɫɥɢɮɭɧɤɰɢɹI [ ɩɪɢɧɢɦɚɟɬɧɭɥɟɜɨɟɡɧɚɱɟɧɢɟɬɨɷɬɨɨɡɧɚɱɚɟɬɱɬɨɨɧɚ ɩɟɪɟɫɟɤɚɟɬɨɫɶɯ ɜɧɟɤɨɬɨɪɨɣɬɨɱɤɟɚɡɧɚɤɮɭɧɤɰɢɢɦɟɧɹɟɬɫɹɥɢɛɨɫɦɢɧɭɫɚɧɚ ɩɥɸɫ ɪɢɫ ɥɢɛɨɫɩɥɸɫɚɧɚɦɢɧɭɫ Ɋɢɫ7 ɉɟɪɜɵɣ ɷɬɚɩ – ɨɬɞɟɥɟɧɢɟ ɤɨɪɧɟɣ – ɦɨɠɟɬ ɛɵɬɶ ɩɪɨɢɡɜɟɞɟɧ ɫ ɩɨɦɨɳɶɸ ɝɪɚɮɢɤɚɮɭɧɤɰɢɢɩɨɫɬɪɨɟɧɧɨɝɨɥɢɛɨɩɨɬɨɱɤɚɦɥɢɛɨɢɡɞɪɭɝɢɯɫɨɨɛɪɚɠɟɧɢɣ Ƚɪɚɮɢɤɦɨɠɟɬɛɵɬɶɩɨɫɬɪɨɟɧɞɨɫɬɚɬɨɱɧɨɩɪɢɛɥɢɠɟɧɧɨɱɬɨɛɵɩɨɧɟɦɭɦɨɠɧɨ ɛɵɥɨɨɩɪɟɞɟɥɢɬɶɤɨɧɰɵɢɧɬɟɪɜɚɥɚɫɨɞɟɪɠɚɳɟɝɨɤɨɪɟɧɶɫɬɨɱɧɨɫɬɶɸɞɨɰɟɥɨɝɨ ɡɧɚɱɟɧɢɹ ɢɥɢ ɧɟɫɤɨɥɶɤɢɯ ɰɟɥɵɯ Ɂɚɬɟɦ ɧɚɞɨ ɭɛɟɞɢɬɶɫɹ ɱɬɨ ɧɚ ɞɚɧɧɨɦ ɩɪɨɦɟ ɠɭɬɤɟɮɭɧɤɰɢɹɞɟɣɫɬɜɢɬɟɥɶɧɨɦɟɧɹɟɬɡɧɚɤɬɟ ɜɵɱɢɫɥɢɬɶI D ɢI E  Ⱦɥɹɭɬɨɱɧɟɧɢɹɤɨɪɧɹɜɵɱɢɫɥɢɦɡɧɚɱɟɧɢɟɮɭɧɤɰɢɢɜɫɪɟɞɧɟɣɬɨɱɤɟɨɬɪɟɡɤɚ F  DE  ȿɫɥɢ ɜ ɬɨɱɤɟ ɫɟɪɟɞɢɧɵ ɨɬɪɟɡɤɚ ɭ ɮɭɧɤɰɢɢ ɨɤɚɡɚɥɫɹ ɬɨɬ ɠɟ ɡɧɚɤ ɱɬɨ ɢ ɜ ɬɨɱɤɟɚɩɟɪɟɧɟɫɟɦɬɨɱɤɭɚ ɜɩɪɚɜɨɩɪɢɷɬɨɦɚ ɩɪɢɦɟɬɡɧɚɱɟɧɢɟɫ ɚ ɫ ȿɫɥɢ ɜɬɨɱɤɟɫ ɮɭɧɤɰɢɹɢɦɟɟɬɬɚɤɨɣɠɟɡɧɚɤɤɚɤɢɜɬɨɱɤɟbɩɟɪɟɧɟɫɟɦɬɨɱɤɭb ɜɥɟ ɜɨ ɩɪɢɫɜɨɢɜ ɟɣ ɡɧɚɱɟɧɢɟ ɫ  E  F  ɉɨɫɥɟ ɩɟɪɟɧɨɫɚ ɬɨɱɤɢ ɧɨɜɵɣ ɨɬɪɟɡɨɤ ɞɟ ɥɢɬɫɹɩɨɩɨɥɚɦɢɫɧɨɜɚɨɩɪɟɞɟɥɹɟɬɫɹɡɧɚɤɮɭɧɤɰɢɢɜɫɟɪɟɞɢɧɟ ȼɵɱɢɫɥɹɹɡɧɚɱɟɧɢɟɤɨɪɧɹɩɨɨɩɢɫɚɧɧɨɦɭɦɟɬɨɞɭɩɟɪɟɧɨɫɹɤɨɧɰɵɨɬɪɟɡɤɚ ɜ ɧɨɜɵɟ ɬɨɱɤɢ ɢ ɬɟɦ ɫɚɦɵɦ ɫɭɠɚɹ ɨɬɪɟɡɨɤ ɩɨɥɭɱɚɟɦ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɵɟ ɩɪɢ ɛɥɢɠɟɧɢɹ ɬɨɱɧɨɝɨ ɡɧɚɱɟɧɢɹ – ɬɨɱɤɢ ɩɟɪɟɫɟɱɟɧɢɹ ɮɭɧɤɰɢɢ ɫ ɨɫɶɸ ɚɛɫɰɢɫɫ ȼɵ ɱɢɫɥɟɧɢɹɩɪɨɞɨɥɠɚɸɬɫɹɞɨɬɟɯɩɨɪɩɨɤɚɧɟɛɭɞɟɬɞɨɫɬɢɝɧɭɬɚɡɚɞɚɧɧɚɹɬɨɱɧɨɫɬɶ Ɉɩɪɟɞɟɥɢɬɶ ɤɨɝɞɚɷɬɚɬɨɱɧɨɫɬɶɛɭɞɟɬɞɨɫɬɢɝɧɭɬɚɦɨɠɧɨɫɥɟɞɭɸɳɢɦɫɩɨɫɨɛɨɦ ɞɥɢɧɚɫɭɠɚɟɦɨɝɨɨɬɪɟɡɤɚɫɬɚɥɚɦɟɧɶɲɟɥɢɛɨɪɚɜɧɚɡɚɞɚɧɧɨɣɬɨɱɧɨɫɬɢ 65
Ɂɚɩɢɲɟɦɩɪɨɝɪɚɦɦɭɧɚɉɚɫɤɚɥɟɞɥɹɤɨɧɤɪɟɬɧɨɣɮɭɧɤɰɢɢ  I [  [2–cos[ ɧɚɨɬɪɟɡɤɟ>@ program ( var DEFHSV real; begin D E HSV  while DEV E- D !HSVdo begin F  DE  if D D- FRV D    F F- FRV F  ! then D F else E F end; write (‘ ɤɨɪɟɧɶ I [ ɧɚ ɨɬɪɟɡɤɟ µDµ¶Eµɪɚɜɟɧ µ DE  HQG ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ 1. Ɉɛɴɹɫɧɢɬɟ ɢɞɟɸ ɦɟɬɨɞɚ ɜɵɱɢɫɥɟɧɢɹ ɤɨɪɧɹ ɤɜɚɞɪɚɬɧɨɝɨ ɢɫɩɨɥɶɡɭɸɳɟɝɨ ɩɪɨɰɟɫɫȽɟɪɨɧɚ 2. ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɭɜɵɱɢɫɥɟɧɢɹɤɨɪɧɹɩɹɬɨɣɫɬɟɩɟɧɢɢɡɡɚɞɚɧɧɨɝɨɱɢɫ ɥɚȺ 3. ɄɚɤɭɡɧɚɬɶɤɨɥɢɱɟɫɬɜɨɢɬɟɪɚɰɢɣɩɪɢɜɵɱɢɫɥɟɧɢɢVLQ[ ɜɩɪɨɝɪɚɦɦɟȿ" 4. Ɉɛɴɹɫɧɢɬɟɩɨɱɟɦɭɞɨɫɬɚɬɨɱɧɨɞɜɭɯɜɟɥɢɱɢɧɞɥɹɜɵɱɢɫɥɟɧɢɹɥɸɛɨɝɨɤɨ ɥɢɱɟɫɬɜɚɱɥɟɧɨɜɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢɜɩɪɨɝɪɚɦɦɟȿ" 5. ɉɨɱɟɦɭ ɬɨɱɧɨɫɬɶ ɜɵɱɢɫɥɟɧɢɣ ɧɚ ɤɨɦɩɶɸɬɟɪɟ ɧɟ ɦɨɠɟɬ ɛɵɬɶ ɩɪɨɢɡɜɨɥɶ ɧɨɣ" 6. Ɇɨɠɧɨ ɥɢ ɜɵɛɪɚɬɶ ɨɬɪɟɡɨɤ ɞɥɹ ɭɬɨɱɧɟɧɢɹ ɤɨɪɧɹ ɟɫɥɢ ɧɚ ɟɝɨ ɤɨɧɰɚɯ ɮɭɧɤɰɢɹɢɦɟɟɬɨɞɢɧɚɤɨɜɵɟɡɧɚɤɢ" 7. Ɇɨɠɧɨ ɥɢ ɫɤɚɡɚɬɶ ɱɬɨ ɨɬɪɟɡɨɤ >–@ɞɥɹɮɭɧɤɰɢɢ I [  [2-[- ɫɨɞɟɪɠɢɬɢɡɨɥɢɪɨɜɚɧɧɵɟɤɨɪɧɢ" 8. ɇɚɩɢɲɢɬɟɩɪɨɝɪɚɦɦɭɜɵɱɢɫɥɟɧɢɹɤɨɪɧɹɭɪɚɜɧɟɧɢɹɞɥɹɮɭɧɤɰɢɢɢɡɩɪɢ ɦɟɪɚ ȿ ɧɚ ɨɬɪɟɡɤɟ >    @ ɦɟɬɨɞɨɦ ɞɟɥɟɧɢɹ ɨɬɪɟɡɤɚ ɩɨɩɨɥɚɦ  ɪɚɡ Ɉɩɪɟɞɟɥɢɬɟɫɤɚɤɨɣɬɨɱɧɨɫɬɶɸɩɪɨɢɡɜɟɞɟɧɵɜɵɱɢɫɥɟɧɢɹ 9. ɂɫɩɨɥɶɡɭɹ ɩɪɨɝɪɚɦɦɭ ȿ ɜɵɱɢɫɥɢɬɶ ɤɨɪɧɢ ɤɜɚɞɪɚɬɧɵɟ ɢɡ ɱɢɫɟɥ  ɫɬɨɱɧɨɫɬɶɸȿ- 6. 10. Ⱦɥɹ ɩɟɪɜɵɯ ɞɜɭɯ ɱɢɫɟɥ ɩɪɟɞɵɞɭɳɟɝɨ ɜɨɩɪɨɫɚ ɩɨɫɱɢɬɚɬɶ ɤɨɥɢɱɟɫɬɜɨ ɩɨ ɜɬɨɪɟɧɢɣɬɪɟɛɭɟɦɵɯɞɥɹɞɨɫɬɢɠɟɧɢɹɭɤɚɡɚɧɧɨɣɬɨɱɧɨɫɬɢ 11. ɂɫɩɨɥɶɡɭɹɩɪɢɦɟɪȿɜɵɱɢɫɥɢɬɶɡɧɚɱɟɧɢɟVLQ[ ɩɪɢ[ SɑɢɫɥɨS ɡɚ ɞɚɬɶɤɚɤɤɨɧɫɬɚɧɬɭ 12. Ⱦɨɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭ ȿɜɵɱɢɫɥɟɧɢɟɦɡɧɚɱɟɧɢɹVLQ[ ɞɥɹɨɞɧɨɝɨɢɬɨɝɨ ɠɟ ɚɪɝɭɦɟɧɬɚ ɫ ɩɨɦɨɳɶɸ ɜɫɬɪɨɟɧɧɨɣ ɚɪɢɮɦɟɬɢɱɟɫɤɨɣ ɮɭɧɤɰɢɢ VLQ [ . ɋɪɚɜɧɢɬɶɩɨɥɭɱɟɧɧɵɟɡɧɚɱɟɧɢɹɮɭɧɤɰɢɢɋɤɨɥɶɤɨɡɧɚɤɨɜɞɪɨɛɧɨɣɱɚɫɬɢ ɭɷɬɢɯɱɢɫɟɥɨɞɢɧɚɤɨɜɵ" 66
13. Ⱦɥɹ ɜɵɱɢɫɥɟɧɢɹ ɤɨɪɧɹ ɤɜɚɞɪɚɬɧɨɝɨ ɢɡ ɱɢɫɥɚ ɩɪɢɧɚɞɥɟɠɚɳɟɝɨ ɨɬɪɟɡɤɭ > –@ ɦɨɠɧɨɢɫɩɨɥɶɡɨɜɚɬɶɫɥɟɞɭɸɳɭɸɛɟɫɤɨɧɟɱɧɭɸɫɭɦɦɭ ɂɫɩɨɥɶɡɭɹ ɩɪɨɝɪɚɦɦɭ ȿ ɞɥɹ ɜɵɱɢɫɥɟɧɢɹ VLQ [ ɜɧɟɫɬɢ ɢɡɦɟɧɟɧɢɹ ɞɥɹ ɜɵɱɢɫɥɟɧɢɹ ɤɨɪɧɹ ɤɜɚɞɪɚɬɧɨɝɨ ɫ ɩɨɦɨɳɶɸ ɛɟɫɤɨɧɟɱɧɨɣ ɫɭɦɦɵ ɜɵɱɢɫ ɥɢɬɶ ɫ ɟɟ ɩɨɦɨɳɶɸ ɤɨɪɟɧɶ ɤɜɚɞɪɚɬɧɵɣ ɢɡ ɱɢɫɥɚ  ɩɨɫɱɢɬɚɬɶ ɤɨɥɢɱɟ ɫɬɜɨɢɬɟɪɚɰɢɣɋɪɚɜɧɢɬɶɤɚɤɨɣɢɡɞɜɭɯɦɟɬɨɞɨɜɜɵɱɢɫɥɟɧɢɣɤɨɪɧɹɤɜɚɞ ɪɚɬɧɨɝɨɛɵɫɬɪɟɟɞɨɫɬɢɝɚɟɬɡɚɞɚɧɧɨɣɬɨɱɧɨɫɬɢ 14. Ⱦɥɹɜɨɡɜɟɞɟɧɢɹɜɫɬɟɩɟɧɶɩɨɥɨɠɢɬɟɥɶɧɨɝɨɱɢɫɥɚɜɉɚɫɤɚɥɟɢɫɩɨɥɶɡɭɟɬɫɹ ɮɨɪɦɭɥɚpN = exp (N * Ln ( p)) ɝɞɟH[S [  H[H – ɢɪɪɚɰɢɨɧɚɥɶɧɨɟ ɱɢɫɥɨɢɝɪɚɸɳɟɟɛɨɥɶɲɭɸ ɪɨɥɶ ɜɟɫɬɟɫɬɜɟɧɧɵɯɧɚɭɤɚɯ /Q [ – ɧɚɬɭɪɚɥɶɧɵɣɥɨɝɚɪɢɮɦɥɨɝɚɪɢɮɦɩɨɨɫɧɨɜɚɧɢɸɟ ɂɫɩɨɥɶɡɭɹɷɬɭɮɨɪɦɭɥɭɭɬɨɱɧɢɬɶɫɩɨɦɨɳɶɸɩɪɨɝɪɚɦɦɵɤɨɪɟɧɶ ɭɪɚɜɧɟ ɧɢɹɧɚɨɬɪɟɡɤɟ>@[VLQ[-2[  ɫɬɨɱɧɨɫɬɶɸɢɫɦɚ ɲɢɧɧɨɣɬɨɱɧɨɫɬɶɸ 15. Ⱦɥɹ ɭɪɚɜɧɟɧɢɹ  2[    [ -  [ -     ɨɩɪɟɞɟɥɢɬɶ ɩɨ ɝɪɚɮɢɤɭ ɧɚɱɚɥɶɧɵɟ ɩɪɢɛɥɢɠɟɧɢɹ Ɇɨɠɧɨ ɩɨɫɬɪɨɢɬɶɞɜɚ ɝɪɚɮɢɤɚ\ [ ɢ \ -[2 [ɧɚɣɬɢɢɯɬɨɱɤɢɩɟɪɟɫɟɱɟɧɢɹɢɜɤɚɱɟɫɬɜɟɧɚɱɚɥɶɧɵɯɩɪɢɛɥɢɠɟ ɧɢɣɜɡɹɬɶ ɚɛɫɰɢɫɫɵɷɬɢɯɬɨɱɟɤɋɤɨɥɶɤɨɤɨɪɧɟɣɢɦɟɟɬɭɪɚɜɧɟɧɢɟ"ɍɬɨɱ ɧɢɬɶɢɯɫɬɨɱɧɨɫɬɶɸ 67
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ6 ȼɵɱɢɫɥɟɧɢɹɫɡɚɞɚɧɧɨɣɬɨɱɧɨɫɬɶɸ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɜɵɱɢɫɥɟɧɢɣ ɫɡɚɞɚɧɧɨɣɬɨɱɧɨɫɬɶɸ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɩɪɨɜɨɞɹ ɳɭɸ ɜɵɱɢɫɥɟɧɢɹ ɫ ɡɚɞɚɧɧɨɣ ɬɨɱɧɨɫɬɶɸ ȼɵɩɨɥɧɢɬɶ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨɚɧɚɥɢɡɢ ɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. 5. 6. 7. 8. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ Ɂɚɞɚɧɢɟ Ⱦɥɹ ɞɟɣɫɬɜɢɬɟɥɶɧɨɝɨ ɱɢɫɥɚ [ ɜɵɱɢɫɥɢɬɶɫɬɨɱɧɨɫɬɶɸ10  6  f 1 . ¦ 3 2 k 1 [ ˜k Ⱦɥɹɞɟɣɫɬɜɢɬɟɥɶɧɨɝɨɱɢɫɥɚ [ ɜɵɱɢɫɥɢɬɶ ɫɬɨɱɧɨɫɬɶɸ10  6  f [2 ¦ 3 . k 1 k2 Ⱦɥɹɞɟɣɫɬɜɢɬɟɥɶɧɨɝɨɱɢɫɥɚ [ ɜɵɱɢɫɥɢɬɶ ɫɬɨɱɧɨɫɬɶɸ10  6  f [ . ¦ 3 k 1 k Ⱦɥɹɞɟɣɫɬɜɢɬɟɥɶɧɨɝɨɱɢɫɥɚ [ ɜɵɱɢɫɥɢɬɶ ɫɬɨɱɧɨɫɬɶɸ10  6  k f 1 [k . ¦ k k 1 Ⱦɥɹɞɟɣɫɬɜɢɬɟɥɶɧɨɝɨɱɢɫɥɚ [ ɜɵɱɢɫɥɢɬɶ ɫɬɨɱɧɨɫɬɶɸ10  6  f 1 . ¦ 2 3 k 1 [ k Ⱦɥɹɞɟɣɫɬɜɢɬɟɥɶɧɨɝɨɱɢɫɥɚ [ ɜɵɱɢɫɥɢɬɶ ɫɬɨɱɧɨɫɬɶɸ10  6  f 1 . ¦ k 1 [  k2 Ⱦɚɧɵɞɟɣɫɬɜɢɬɟɥɶɧɵɟɱɢɫɥɚ [  H ( [ z 0  H ! 0 ). ɇɟɨɛɯɨɞɢɦɨɜɵɱɢɫɥɢɬɶɫɬɨɱɧɨɫɬɶɸ H ɛɟɫɤɨɧɟɱɧɭɸɫɭɦɦɭ ɢɨɩɪɟɞɟɥɢɬɶɤɨɥɢɱɟɫɬɜɨɭɱɬɟɧɧɵɯɫɥɚɝɚɟɦɵɯ 2k f [ . ¦ 2 k k 0 Ⱦɚɧɵɞɟɣɫɬɜɢɬɟɥɶɧɵɟɱɢɫɥɚ [  H ( [ z 0  H ! 0 ). ɇɟɨɛɯɨɞɢɦɨɜɵɱɢɫɥɢɬɶɫɬɨɱɧɨɫɬɶɸ H ɛɟɫɤɨɧɟɱɧɭɸɫɭɦɦɭ ɢɨɩɪɟɞɟɥɢɬɶɤɨɥɢɱɟɫɬɜɨɭɱɬɟɧɧɵɯɫɥɚɝɚɟɦɵɯ k f 1 k  1 [k . ¦ 3k k 0 68
ȼɚɪɢɚɧɬʋ 9. 10. 11. 12. Ɂɚɞɚɧɢɟ Ⱦɚɧɵɞɟɣɫɬɜɢɬɟɥɶɧɵɟɱɢɫɥɚ [  H ( [ z 0  H ! 0 ). ɇɟɨɛɯɨɞɢɦɨɜɵɱɢɫɥɢɬɶɫɬɨɱɧɨɫɬɶɸ H ɛɟɫɤɨɧɟɱɧɭɸɫɭɦɦɭ ɢɨɩɪɟɞɟɥɢɬɶɤɨɥɢɱɟɫɬɜɨɭɱɬɟɧɧɵɯɫɥɚɝɚɟɦɵɯ k f  1 [ k 2 . ¦ k 0 k 1 k  2  Ⱦɚɧɵɞɟɣɫɬɜɢɬɟɥɶɧɵɟɱɢɫɥɚ [  H ( [ z 0  H ! 0 ). ɇɟɨɛɯɨɞɢɦɨɜɵɱɢɫɥɢɬɶɫɬɨɱɧɨɫɬɶɸ H ɛɟɫɤɨɧɟɱɧɭɸɫɭɦɦɭ ɢɨɩɪɟɞɟɥɢɬɶɤɨɥɢɱɟɫɬɜɨɭɱɬɟɧɧɵɯɫɥɚɝɚɟɦɵɯ k f 1 [k ¦ 2 . k 0 k 1 Ⱦɚɧɨɞɟɣɫɬɜɢɬɟɥɶɧɨɟɱɢɫɥɨ [ ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ k [n ȼɵɱɢɫɥɢɬɶ ¦ ai  a1  a2  ... ɨɛɪɚɡɨɜɚɧɚɩɨɡɚɤɨɧɭ an 2n  i 1 ɝɞɟk – ɧɚɢɦɟɧɶɲɟɟɰɟɥɨɟɱɢɫɥɨɤɨɬɨɪɨɟɭɞɨɜɥɟɬɜɨɪɹɟɬ ɭɫɥɨɜɢɹɦ k ! 10 ɢ ak 1  10  5 . Ⱦɚɧɨɞɟɣɫɬɜɢɬɟɥɶɧɨɟɱɢɫɥɨ [ ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ [ ȼɵɱɢɫɥɢɬɶ a1  a2  ... ɨɛɪɚɡɨɜɚɧɚɩɨɡɚɤɨɧɭ an n n2  k ¦a i 1 i ɝɞɟk – ɧɚɢɦɟɧɶɲɟɟɰɟɥɨɟɱɢɫɥɨɤɨɬɨɪɨɟ ɭɞɨɜɥɟɬɜɨɪɹɟɬɭɫɥɨɜɢɹɦ k ! 10 ɢ ak 1  10  5 . Ⱦɚɧɨɞɟɣɫɬɜɢɬɟɥɶɧɨɟɱɢɫɥɨ [ ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ n  1 [2n . a1  a2  ... ɨɛɪɚɡɨɜɚɧɚɩɨɡɚɤɨɧɭ an n n 1 n  2 k 13. ȼɵɱɢɫɥɢɬɶ ¦ ai ɝɞɟk – ɧɚɢɦɟɧɶɲɟɟɰɟɥɨɟɱɢɫɥɨɤɨɬɨɪɨɟ i 1 ɭɞɨɜɥɟɬɜɨɪɹɟɬɭɫɥɨɜɢɹɦ k ! 10 ɢ ak 1  10  5 . 1ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ a1  a2  ... ɨɛɪɚɡɨɜɚɧɚɩɨ k [ 2 n VLQ [ n ɡɚɤɨɧɭ an ȼɵɱɢɫɥɢɬɶ ¦ ai ɝɞɟk – 2 n i 1 ɧɚɢɦɟɧɶɲɟɟɰɟɥɨɟɱɢɫɥɨɤɨɬɨɪɨɟɭɞɨɜɥɟɬɜɨɪɹɟɬɭɫɥɨɜɢɹɦ k ! 10 ɢ ak 1  10  5 . Ⱦɚɧɨ [ 14. 69
ȼɚɪɢɚɧɬʋ 15. Ɂɚɞɚɧɢɟ Ⱦɚɧɨɞɟɣɫɬɜɢɬɟɥɶɧɨɟɱɢɫɥɨ H ( H ! 0 ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ n ɇɚɣɬɢ a1  a2  ... ɨɛɪɚɡɨɜɚɧɚɩɨɡɚɤɨɧɭ an n 2  1  n 2 1 ɩɟɪɜɵɣɱɥɟɧɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ an n t 2 ɞɥɹɤɨɬɨɪɨɝɨ ɫɩɪɚɜɟɞɥɢɜɨɭɫɥɨɜɢɟ an  an 1  H . 16. Ⱦɚɧɨɞɟɣɫɬɜɢɬɟɥɶɧɨɟɱɢɫɥɨ H ( H ! 0 ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ a1  a2  ... ɨɛɪɚɡɨɜɚɧɚɩɨɡɚɤɨɧɭ 1 · § 1 ·§ 1 · § an ¨1  ¸ ¨1  ¸...¨1  ¸ ɇɚɣɬɢɩɟɪɜɵɣɱɥɟɧ 1¹ 2 3 n ¹ © ¹© © ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ an n t 2 ɞɥɹɤɨɬɨɪɨɝɨɫɩɪɚɜɟɞɥɢɜɨ ɭɫɥɨɜɢɟ an  an 1  H . Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ Ɍɨɱɧɨɫɬɶɜɵɱɢɫɥɟɧɢɣ ɱɢɫɥɨ H ɧɟɨɛɯɨɞɢɦɨɡɚɞɚɜɚɬɶɜɩɪɨɝɪɚɦɦɟɜɜɢɞɟ ɤɨɧɫɬɚɧɬɵ ɋɥɟɞɭɟɬ ɩɨɦɧɢɬɶ ɱɬɨ ɪɚɡɞɟɥɢɬɟɥɟɦ ɰɟɥɨɣ ɢ ɞɪɨɛɧɨɣ ɱɚɫɬɢ ɜɟɳɟ ɫɬɜɟɧɧɨɝɨɱɢɫɥɚ ɜɹɡɵɤɟPascal ɹɜɥɹɟɬɫɹɬɨɱɤɚ ɉɨɫɤɨɥɶɤɭɱɢɫɥɨɢɬɟɪɚɰɢɣɰɢɤɥɚɡɚɪɚɧɟɟɧɟɢɡɜɟɫɬɧɨɞɥɹɜɵɩɨɥɧɟɧɢɹɡɚ ɞɚɧɢɹɛɭɞɟɬɧɟɨɛɯɨɞɢɦɰɢɤɥWHILE ɢɥɢ5(3($7 817,/. ȼɨɬɱɟɬɟɩɨɥɚɛɨɪɚ ɬɨɪɧɨɣɪɚɛɨɬɟɧɟɨɛɯɨɞɢɦɨɨɛɨɫɧɨɜɚɬɶ ɜɮɨɪɦɟɤɨɦɦɟɧɬɚɪɢɹɤɩɪɨɝɪɚɦɦɟ ɜɵ ɛɨɪɫɨɨɬɜɟɬɫɬɜɭɸɳɟɝɨɰɢɤɥɚ Ʉɨɞ ɩɪɨɝɪɚɦɦɵ ɞɨɥɠɟɧ ɫɨɞɟɪɠɚɬɶ ɤɪɚɬɤɢɟ ɤɨɦɦɟɧɬɚɪɢɢ ɚ ɬɚɤɠɟ ɜɵɜɨɞ ɧɚɷɤɪɚɧɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯɫɨɨɛɳɟɧɢɣɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜ ɪɟɞɚɤɬɨɪɟPascal. Ⱦɥɹɩɪɨɜɟɪɤɢɤɨɪɪɟɤɬɧɨɫɬɢɫɨɫɬɚɜɥɟɧɧɨɣɩɪɨɝɪɚɦɦɵɪɟɤɨ ɦɟɧɞɭɟɬɫɹ ɩɪɨɜɟɫɬɢ ɩɚɪɚɥɥɟɥɶɧɵɟ ɪɚɫɱɟɬɵ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɫ ɩɪɢɦɟ ɧɟɧɢɟɦɦɟɬɨɞɚɚɜɬɨɡɚɩɨɥɧɟɧɢɹ ɢɩɪɢɧɟɨɛɯɨɞɢɦɨɫɬɢɜɫɬɪɨɟɧɧɵɯɦɚɬɟɦɚɬɢɱɟ ɫɤɢɯ ɮɭɧɤɰɢɣ). ȼ ɨɬɱɟɬ ɩɨ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɩɨɦɟɫɬɢɬɶ ɷɤɪɚɧɧɵɣɫɧɢɦɨɤɪɟɡɭɥɶɬɚɬɚɞɚɧɧɨɣɩɪɨɜɟɪɤɢ ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɜɵɱɢɫɥɟɧɢɣ ɫ ɡɚ ɞɚɧɧɨɣɬɨɱɧɨɫɬɶɸ Ɂɚɞɚɧɢɟ Ⱦɚɧɨ ɞɟɣɫɬɜɢɬɟɥɶɧɨɟ ɱɢɫɥɨ H ( H ! 0  ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ a1  a2  ... 1 · § 1 ·§ 1 · § ¨1  ¸ ¨1  ¸...¨1  ¸  ɇɚɣɬɢ ɩɟɪɜɵɣ ɱɥɟɧ © 2 ¹© 3 ¹ © n 1¹ n t 2 ɞɥɹɤɨɬɨɪɨɝɨɫɩɪɚɜɟɞɥɢɜɨɭɫɥɨɜɢɟ an  an 1  H . ɨɛɪɚɡɨɜɚɧɚ ɩɨ ɡɚɤɨɧɭ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ an an 70
Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const HSV {ɡɚɞɚɟɦɬɨɱɧɨɫɬɶɜɵɱɢɫɥɟɧɢɣ` var aareal^ɩɟɪɟɦɟɧɧɵɟɞɥɹɯɪɚɧɟɧɢɹɡɧɚɱɟɧɢɣɞɜɭɯɫɨɫɟɞɧɢɯɱɥɟɧɨɜɩɨɫɥɟɞɨɜɚɬɟɥɶ ɧɨɫɬɢ` Q integer^ɩɟɪɟɦɟɧɧɚɹɞɥɹɯɪɚɧɟɧɢɹɧɨɦɟɪɚɬɟɤɭɳɟɝɨɱɥɟɧɚɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ` begin Q  a - Q ^ɜɵɱɢɫɥɹɟɦɩɟɪɜɵɣɱɥɟɧɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ` Q  a a - Q ^ɜɵɱɢɫɥɹɟɦɜɬɨɪɨɣɱɥɟɧɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ` ^ɉɪɢɦɟɧɹɟɦ ɰɢɤɥ ɫ ɩɪɟɞɭɫɥɨɜɢɟɦ ɩɨɫɤɨɥɶɤɭ ɜ ɪɟɡɭɥɶɬɚɬɟ ɪɚɛɨɬɵ ɰɢɤɥɚ ɜ ɩɟɪɟ ɦɟɧɧɨɣɚɞɨɥɠɧɨɧɚɯɨɞɢɬɶɫɹɢɫɤɨɦɨɟɡɧɚɱɟɧɢɟ` while DEV D-D ! HSVdo ^Ɉɩɟɪɚɬɨɪɧɵɟɫɤɨɛɤɢɧɟɨɛɯɨɞɢɦɵɩɨɫɤɨɥɶɤɭɜɬɟɥɟɰɢɤɥɚɞɨɥɠɧɵɜɵɩɨɥɧɹɬɶɫɹ ɬɪɢɨɩɟɪɚɬɨɪɚ` begin Q Q^ɡɚɞɚɟɦɧɨɦɟɪɬɟɤɭɳɟɝɨɱɥɟɧɚɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ` ^ȼɩɟɪɟɦɟɧɧɨɣɚɡɚɩɨɦɢɧɚɟɦɡɧɚɱɟɧɢɟɩɪɟɞɵɞɭɳɟɝɨɱɥɟɧɚɩɨɫɥɟɞɨɜɚɬɟɥɶ ɧɨɫɬɢ- n- ` a a ^ȼ ɩɟɪɟɦɟɧɧɭɸ ɚ ɩɨɦɟɳɚɟɦ ɡɧɚɱɟɧɢɟ ɬɟɤɭɳɟɝɨ ɱɥɟɧɚ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨ ɫɬɢ-n} a a - Q end ^ȼɵɜɨɞɨɬɮɨɪɦɚɬɢɪɨɜɚɧɧɨɝɨɪɟɡɭɥɶɬɚɬɚɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɧɚɷɤɪɚɧ` writeln ɂɫɤɨɦɵɣɱɥɟɧɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢQ  Q  writeln(a  readln end. 71
ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫ ɪɟɡɭɥɶɬɚɬɚɦɢ ɪɚɫɱɟɬɨɜ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɦɨɠɧɨ ɝɨɜɨɪɢɬɶ ɨ ɬɨɦ ɱɬɨ ɩɪɨ ɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. 2. 3. 4. Ⱦɚɣɬɟɨɩɪɟɞɟɥɟɧɢɟɩɨɧɹɬɢɹ©ɩɪɢɛɥɢɠɟɧɧɨɟɱɢɫɥɨª. ɑɬɨɬɚɤɨɟɪɚɰɢɨɧɚɥɶɧɨɟɱɢɫɥɨ" ɑɟɦɨɛɭɫɥɚɜɥɢɜɚɟɬɫɹɬɨɱɧɨɫɬɶɤɨɦɩɶɸɬɟɪɧɵɯɜɵɱɢɫɥɟɧɢɣ" Ʉɚɤɡɚɞɚɬɶɜɩɪɨɝɪɚɦɦɟɬɪɟɛɭɟɦɭɸɬɨɱɧɨɫɬɶɜɵɱɢɫɥɟɧɢɣ" 72
ɌȿɆȺ  ɈȾɇɈɆȿɊɇɕȿ ɂȾȼɍɆȿɊɇɕȿɆȺɋɋɂȼɕ  Ɇɚɫɫɢɜɵ ȼ ɪɚɫɫɦɨɬɪɟɧɧɵɯ ɪɚɧɟɟ ɩɪɢɦɟɪɚɯ ɩɪɨɝɪɚɦɦ ɩɪɨɢɡɜɨɞɢɥɚɫɶ ɨɛɪɚɛɨɬɤɚ ɨɞɢɧɨɱɧɵɯ ɞɚɧɧɵɯ – ɡɧɚɱɟɧɢɣ ɩɪɨɫɬɵɯ ɩɟɪɟɦɟɧɧɵɯ ɉɪɢ ɪɟɲɟɧɢɢ ɩɪɚɤɬɢɱɟ ɫɤɢɯ ɡɚɞɚɱ ɞɚɧɧɵɟ ɨɛɴɟɞɢɧɹɸɬɫɹ ɜ ɪɚɡɥɢɱɧɵɟ ɫɬɪɭɤɬɭɪɵ ɧɚɢɛɨɥɟɟ ɩɪɨɫɬɵɦɢ ɢɡɤɨɬɨɪɵɯɹɜɥɹɸɬɫɹɦɚɫɫɢɜɵ Ɇɚɫɫɢɜ – ɢɦɟɧɨɜɚɧɧɵɣ ɧɚɛɨɪ ɫ ɮɢɤɫɢɪɨɜɚɧɧɵɦ ɤɨɥɢɱɟɫɬɜɨɦ ɨɞɧɨ ɬɢɩɧɵɯɞɚɧɧɵɯ ȼ ɦɚɫɫɢɜɵ ɨɛɴɟɞɢɧɟɧɵ ɪɟɡɭɥɶɬɚɬɵ ɷɤɫɩɟɪɢɦɟɧɬɨɜ ɫɩɢɫɤɢ ɮɚɦɢɥɢɣ ɫɨ ɬɪɭɞɧɢɤɨɜ ɪɚɡɥɢɱɧɵɟ ɫɥɨɠɧɵɟ ɫɬɪɭɤɬɭɪɵ ɞɚɧɧɵɯ Ɍɚɤ ɫɩɢɫɨɤ ɢɡ ɤɥɚɫɫɧɨɝɨ ɠɭɪɧɚɥɚ -Ⱥ ɹɜɥɹɟɬɫɹ ɦɚɫɫɢɜɨɦ ȼ ɦɚɫɫɢɜɟ ɦɨɝɭɬ ɛɵɬɶ ɨɞɢɧɚɤɨɜɵɟ ɞɚɧɧɵɟ ɩɨɷɬɨɦɭ ɷɥɟɦɟɧɬɵ ɦɚɫɫɢɜɚ ɪɚɡɥɢɱɚɸɬɫɹ ɩɨ ɫɜɨɢɦ ɩɨɪɹɞɤɨɜɵɦ ɧɨɦɟɪɚɦ ȿɫɥɢ ɤɚɠɞɵɣ ɷɥɟɦɟɧɬ ɢɦɟɟɬ ɨɞɢɧ ɩɨɪɹɞɤɨɜɵɣ ɧɨɦɟɪ ɬɨ ɬɚɤɨɣ ɦɚɫɫɢɜ ɧɚɡɵɜɚɟɬɫɹ ɨɞɧɨɦɟɪɧɵɦɟɫɥɢɞɜɚ– ɬɨɷɬɨɬɚɛɥɢɰɚɢɡɫɬɪɨɤɢɫɬɨɥɛɰɨɜȾɥɹɬɚɛɥɢɰɩɟɪɜɵɣ ɧɨɦɟɪɷɥɟɦɟɧɬɚɩɨɤɚɡɵɜɚɟɬɫɬɪɨɤɭɚɜɬɨɪɨɣ– ɫɬɨɥɛɟɰɧɚɩɟɪɟɫɟɱɟɧɢɢɤɨɬɨɪɵɯ ɧɚɯɨɞɢɬɫɹɷɥɟɦɟɧɬȼɫɟɫɬɪɨɤɢɬɚɛɥɢɰɵɢɦɟɸɬɨɞɢɧɚɤɨɜɭɸɞɥɢɧɭ Ɉɞɧɨɦɟɪɧɵɣ ɦɚɫɫɢɜ ɦɨɠɟɬ ɛɵɬɶ ɱɢɫɥɨɜɨɣ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɸ ɫ ɢɡ ɜɟɫɬɧɵɦ ɤɨɥɢɱɟɫɬɜɨɦ ɱɥɟɧɨɜ Ɍɚɤ ɠɟ ɤɚɤ ɢ ɜ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ ɜ ɦɚɫɫɢɜɟ ɦɨɠɧɨɭɤɚɡɚɬɶɷɥɟɦɟɧɬɫɤɨɧɤɪɟɬɧɵɦɧɨɦɟɪɨɦɧɚɩɪɢɦɟɪɚɢɥɢɡɚɩɢɫɚɬɶɨɛ ɳɢɣ ɜɢɞ ɷɥɟɦɟɧɬɚ ɢɫɩɨɥɶɡɭɹ ɜ ɤɚɱɟɫɬɜɟ ɢɧɞɟɤɫɚ ɩɟɪɟɦɟɧɧɭɸ ɢ ɭɤɚɡɵɜɚɹ ɞɢɚ ɩɚɡɨɧɟɟɢɡɦɟɧɟɧɢɹ Di i n. Ɂɚɞɚɱɢ ɧɚ ɨɛɪɚɛɨɬɤɭ ɦɚɫɫɢɜɨɜ ɦɨɝɭɬ ɢɦɟɬɶ ɪɚɡɥɢɱɧɭɸ ɮɨɪɦɭɥɢɪɨɜɤɭ. ɇɚɩɪɢɦɟɪɧɚɱɢɧɚɬɶɫɹɫɨɫɥɨɜ©Ⱦɚɧɨn ɱɢɫɟɥªɢɞɚɥɟɟɝɨɜɨɪɢɬɫɹɱɬɨɬɪɟɛɭ ɟɬɫɹɫɞɟɥɚɬɶɫɷɬɢɦɢɱɢɫɥɚɦɢȾɥɹɬɨɝɨɱɬɨɛɵɪɟɲɢɬɶɬɚɤɭɸɡɚɞɚɱɭɧɚɤɨɦɩɶ ɸɬɟɪɟɫɢɫɩɨɥɶɡɨɜɚɧɢɟɦɹɡɵɤɚɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹɉɚɫɤɚɥɶɧɟɨɛɯɨɞɢɦɨɜɵɩɨɥ ɧɢɬɶɫɥɟɞɭɸɳɟɟ 1) ɨɩɪɟɞɟɥɢɬɶɫɹ ɤɚɤɢɟ ɱɢɫɥɚ ɞɚɧɵ ɰɟɥɵɟ ɢɥɢ ɜɟɳɟɫɬɜɟɧɧɵɟ ȿɫɥɢ ɨɛ ɷɬɨɦɤɨɧɤɪɟɬɧɨɧɟɫɤɚɡɚɧɨɬɨɥɭɱɲɟɫɱɢɬɚɬɶɢɯɜɟɳɟɫɬɜɟɧɧɵɦɢ   ɧɚɡɜɚɬɶ ɜɟɫɶ ɦɚɫɫɢɜ ɨɞɧɢɦ ɢɦɟɧɟɦ ɷɬɨ ɠɟ ɢɦɹ ɛɭɞɟɬ ɢɫɩɨɥɶɡɨɜɚɬɶɫɹ ɞɥɹɤɚɠɞɨɝɨɷɥɟɦɟɧɬɚɬɨɥɶɤɨɤɧɟɦɭɞɨɛɚɜɢɬɫɹɧɨɦɟɪɷɬɨɝɨɷɥɟɦɟɧɬɚ ɢɧɞɟɤɫ    ɨɩɢɫɚɬɶ ɦɚɫɫɢɜ ɜ ɪɚɡɞɟɥɟ ɩɟɪɟɦɟɧɧɵɯ var ɬɟɦ ɫɚɦɵɦ ɨɬɜɟɞɹ ɦɟɫɬɨ ɜ ɩɚɦɹɬɢɞɥɹɦɚɫɫɢɜɚ  ɜɜɟɫɬɢɞɚɧɧɵɟɜɩɚɦɹɬɶ Ɉɩɢɫɚɧɢɟ ɦɚɫɫɢɜɚ ɢɫɩɨɥɶɡɭɟɬ ɫɩɟɰɢɚɥɶɧɨɟ ɫɥɨɜɨ array (ɦɚɫɫɢɜ  ɩɨɫɥɟ ɤɨɬɨɪɨɝɨɜ ɤɜɚɞɪɚɬɧɵɯ ɫɤɨɛɤɚɯ ɱɟɪɟɡ ɞɜɟ ɬɨɱɤɢ ɭɤɚɡɵɜɚɟɬɫɹ ɞɢɚɩɚɡɨɧ ɢɡɦɟɧɟ ɧɢɹɧɨɦɟɪɨɜɷɥɟɦɟɧɬɨɜɡɚɬɟɦɫɥɨɜɨof (ɢɡ ɢɩɢɲɟɬɫɹɬɢɩɞɚɧɧɵɯɦɚɫɫɢɜɚɄɨ 73
ɝɞɚɬɪɚɧɫɥɹɬɨɪɜɫɬɪɟɱɚɟɬɨɩɢɫɚɧɢɟɦɚɫɫɢɜɚɨɧɨɬɜɨɞɢɬɞɥɹɧɟɝɨɫɬɨɥɶɤɨɩɨɫɥɟ ɞɨɜɚɬɟɥɶɧɵɯ ɹɱɟɟɤ ɫɤɨɥɶɤɨ ɭɤɚɡɚɧɨ ɜ ɤɜɚɞɪɚɬɧɵɯ ɫɤɨɛɤɚɯ ɢ ɬɚɤɨɝɨ ɮɨɪɦɚɬɚ ɤɚɤɨɜ ɬɢɩ ɞɚɧɧɵɯ ɦɚɫɫɢɜɚ ɗɬɭ ɩɚɦɹɬɶ ɜ ɩɪɨɝɪɚɦɦɟ ɦɨɠɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɜɫɸ ɢɥɢɱɚɫɬɢɱɧɨɜɵɱɢɫɥɹɹɡɧɚɱɟɧɢɹɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚɢɥɢɜɜɨɞɹɢɯɫɤɥɚɜɢɚɬɭ ɪɵ ɢɥɢ ɫ ɞɢɫɤɚ  ɑɚɳɟ ɜɫɟɝɨ ɧɨɦɟɪɚ ɷɥɟɦɟɧɬɨɜ ɦɟɧɹɸɬɫɹ ɨɬ  ɞɨ ɡɚɞɚɧɧɨɝɨ ɱɢɫɥɚnɁɧɚɱɟɧɢɟn ɦɨɠɧɨɭɤɚɡɚɬɶɜɪɚɡɞɟɥɟɤɨɧɫɬɚɧɬ const ɬɨɝɞɚɜɨɩɢɫɚɧɢɢ ɦɨɠɧɨ ɭɤɚɡɚɬɶ ɩɟɪɟɦɟɧɧɭɸ n ɜ ɤɚɱɟɫɬɜɟ ɩɨɫɥɟɞɧɟɝɨ ɡɧɚɱɟɧɢɹ ɜɟɪɯɧɟɣ ɝɪɚɧɢ ɰɵ ɧɨɦɟɪɚɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚ ɉɪɢɦɟɪ ɨɩɢɫɚɧɢɹ const Q  var Darray >Q@of real ɗɬɨ ɨɩɢɫɚɧɢɟ ɨɡɧɚɱɚɟɬ ɱɬɨ ɞɥɹ ɦɚɫɫɢɜɚ ɚ ɛɭɞɟɬ ɨɬɜɟɞɟɧɨ ɞɟɫɹɬɶ ɹɱɟɟɤ ɨɩɟɪɚɬɢɜɧɨɣɩɚɦɹɬɢɩɨɲɟɫɬɶɛɚɣɬɨɜɤɚɠɞɚɹɂɦɟɧɚɹɱɟɟɤɚ1ɚ2ɚɚɚɚ. ȼ ɉɚɫɤɚɥɟ ɷɬɢ ɢɦɟɧɚ ɛɭɞɭɬ ɡɚɩɢɫɚɧɵ ɫɥɟɞɭɸɳɢɦ ɨɛɪɚɡɨɦ D>@ D>@ D>@ D>@ D>@ D>@ ȼ ɨɩɢɫɚɧɢɢ ɩɨɫɥɟ ɢɦɟɧɢ ɦɚɫɫɢɜɚ ɚ ɫɬɚɜɢɬɫɹ ɞɜɨɟɬɨɱɢɟ ɩɨɫɥɟ ɤɨɬɨɪɨɝɨ ɭɤɚɡɵɜɚɟɬɫɹɬɢɩɞɚɧɧɨɝɨ– ɦɚɫɫɢɜȿɫɥɢɜɩɪɨɝɪɚɦɦɟɧɟɫɤɨɥɶɤɨɦɚɫɫɢɜɨɜɨɞɧɨ ɝɨɪɚɡɦɟɪɚɢɬɢɩɚɬɨɤɚɤɢɞɥɹɩɪɨɫɬɵɯɩɟɪɟɦɟɧɧɵɯɢɯɢɦɟɧɚɦɨɠɧɨɩɟɪɟɱɢɫ ɥɢɬɶɱɟɪɟɡɡɚɩɹɬɭɸɚɩɨɬɨɦɩɨɫɥɟɞɜɨɟɬɨɱɢɹɭɤɚɡɚɬɶɨɩɢɫɚɧɢɟɦɚɫɫɢɜɚ Ⱦɥɹ ɜɜɨɞɚ ɞɚɧɧɵɯ ɜ ɩɚɦɹɬɶ ɧɟɨɛɯɨɞɢɦɨ ɨɪɝɚɧɢɡɨɜɚɬɶ ɰɢɤɥ ɉɨɫɤɨɥɶɤɭ ɱɢɫɥɨ ɩɨɜɬɨɪɟɧɢɣ ɜɜɨɞɚ ɞɚɧɧɵɯ ɢɡɜɟɫɬɧɨ ɭɞɨɛɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɰɢɤɥ ³ɩɟɪɟ ɫɱɟɬ´ȼɜɨɞɨɩɢɫɚɧɧɨɝɨɦɚɫɫɢɜɚɚɦɨɠɟɬɢɦɟɬɶɜɢɞ for L to Qdo read D>L@  ȼɜɨɞɢɦɵɟɡɧɚɱɟɧɢɹɧɚɛɢɪɚɸɬɫɹɧɚɤɥɚɜɢɚɬɭɪɟɱɟɪɟɡɩɪɨɛɟɥɢɧɚɠɢɦɚɟɬ ɫɹ(QWHU Ɇɨɠɧɨ ɜɜɨɞ ɩɪɨɤɨɦɦɟɧɬɢɪɨɜɚɬɶ ɢ ɜɜɨɞɢɬɶ ɤɚɠɞɨɟ ɞɚɧɧɨɟ ɧɚ ɨɬɞɟɥɶɧɨɣ ɫɬɪɨɤɟɷɤɪɚɧɚ for L to Qdo begin write µD>µLµ@ µ  readln D>L@ end; ɉɪɢ ɨɛɪɚɛɨɬɤɟ ɦɚɫɫɢɜɨɜ ɪɟɲɟɧɢɹ ɦɧɨɝɢɯ ɡɚɞɚɱ ɨɫɧɨɜɵɜɚɸɬɫɹ ɧɚ ɫɥɟɞɭ ɸɳɢɯ ɛɨɥɟɟ ɩɪɨɫɬɵɯ ɡɚɞɚɱɚɯ ɜɵɱɢɫɥɟɧɢɟ ɫɭɦɦɵ ɩɪɨɢɡɜɟɞɟɧɢɹ  ɷɥɟɦɟɧɬɨɜ ɦɚɫɫɢɜɚɧɚɯɨɠɞɟɧɢɟɧɚɢɛɨɥɶɲɟɝɨ ɧɚɢɦɟɧɶɲɟɝɨ ɷɥɟɦɟɧɬɚɭɩɨɪɹɞɨɱɟɧɢɟɷɥɟ ɦɟɧɬɨɜɩɨ ɜɨɡɪɚɫɬɚɧɢɸɢɥɢɩɨɭɛɵɜɚɧɢɸɊɚɫɫɦɨɬɪɢɦɷɬɢɛɚɡɨɜɵɟɡɚɞɚɱɢ ȼɵɱɢɫɥɟɧɢɟɫɭɦɦɵɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚ ȼɵɱɢɫɥɟɧɢɟɫɭɦɦɵɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚɧɢɱɟɦɧɟɨɬɥɢɱɚɟɬɫɹɜɩɪɢɧɰɢɩɟ ɨɬɫɭɦɦɢɪɨɜɚɧɢɹɡɧɚɱɟɧɢɣɩɪɨɫɬɵɯɩɟɪɟɦɟɧɧɵɯ ɩɪɨɝɪɚɦɦɚȿ Ɋɟɲɟɧɢɟɡɚ 74
ɞɚɱɢɫɨɫɬɨɢɬɢɡɬɪɟɯɨɫɧɨɜɧɵɯɷɬɚɩɨɜ ɜɜɨɞɞɚɧɧɵɯ ɜɵɱɢɫɥɟɧɢɟɫɭɦɦɵ  ɩɟɱɚɬɶɪɟɡɭɥɶɬɚɬɨɜ program ( const Q  var D array >Q@of real6realLinteger begin write µɜɜɨɞɢɬɟɷɥɟɦɟɧɬɵɦɚɫɫɢɜɚ- ¶Qµɜɟɳɟɫɬɜɟɧɧɵɯɱɢɫɟɥɱɟɪɟɡ ɩɪɨɛɟɥ¶  for L  to Qdo read D>L@  6  for L  to Qdo 6 6D>L@ writeln; write µɫɭɦɦɚɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚ6 µ6 HQG ɇɚɯɨɠɞɟɧɢɟɧɚɢɛɨɥɶɲɟɝɨɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚ ȼɩɪɟɞɵɞɭɳɟɦɩɪɢɦɟɪɟɩɪɨɢɡɜɨɞɢɥɢɫɶɜɵɱɢɫɥɟɧɢɹɩɟɪɟɦɟɧɧɚɹ6ɦɟɧɹɥɚ ɫɜɨɢ ɡɧɚɱɟɧɢɹ ɜ ɩɪɨɰɟɫɫɟ ɪɟɲɟɧɢɹ ɡɚɞɚɱɢ Ɉɞɧɚɤɨ ɛɨɥɶɲɢɧɫɬɜɨ ɡɚɞɚɱ ɪɟɲɚɟ ɦɵɯɫɩɨɦɨɳɶɸɤɨɦɩɶɸɬɟɪɚɹɜɥɹɸɬɫɹɧɟɜɵɱɢɫɥɢɬɟɥɶɧɵɦɢɄɬɚɤɢɦɨɬɧɨɫɢɬɫɹ ɡɚɞɚɱɚɩɨɢɫɤɚɧɚɢɛɨɥɶɲɟɝɨɷɥɟɦɟɧɬɚɜɦɚɫɫɢɜɟ Ɍɪɭɞɧɨɫɬɶɩɪɢɪɚɡɪɚɛɨɬɤɟɚɥ ɝɨɪɢɬɦɚ ɪɟɲɟɧɢɹɡɚɤɥɸɱɚɟɬɫɹɜɬɨɦɱɬɨ ɧɚɞɨɡɚɩɢɫɚɬɶɜɜɢɞɟɤɨɦɚɧɞɤɨɦɩɶɸ ɬɟɪɭɩɪɢɜɵɱɧɵɟɞɥɹɱɟɥɨɜɟɤɚɞɟɣɫɬɜɢɹɜɵɞɟɥɟɧɢɟɛɨɥɶɲɟɝɨɢɡɩɨɫɥɟɞɨɜɚɬɟɥɶ ɧɨɫɬɢ ɱɢɫɟɥ ɑɬɨɛɵ ɥɭɱɲɟ ɩɪɟɞɫɬɚɜɢɬɶ ɤɚɤ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨ ɩɪɨɫɦɚɬɪɢɜɚɬɶ ɢ ɫɪɚɜɧɢɜɚɬɶ ɦɟɠɞɭ ɫɨɛɨɣ ɱɢɫɥɚ ɡɚɩɢɫɚɧɧɵɟ ɜ ɩɚɦɹɬɢ ɜɨɨɛɪɚɡɢɦ ɱɬɨ ɤɚɠɞɨɟ ɱɢɫɥɨ ɧɚɩɢɫɚɧɨ ɧɚ ɨɬɞɟɥɶɧɨɣ ɤɚɪɬɨɱɤɟ ɢ ɤɚɪɬɨɱɤɢ ɫɥɨɠɟɧɵ ɫɬɨɩɤɨɣ ȼ ɬɚɤɨɦ ɫɥɭɱɚɟɦɵɩɟɪɜɨɟɱɢɫɥɨɡɚɩɨɦɧɢɦɫɪɚɡɭɤɚɤ ɧɚɢɛɨɥɶɲɟɟɢɩɟɪɟɜɟɪɧɟɦɤɚɪɬɨɱ ɤɭ Ɍɟɩɟɪɶ ɜ ɧɚɲɟɦ ɪɚɫɩɨɪɹɠɟɧɢɢ ɞɜɚ ɱɢɫɥɚ ɨɞɧɨ ɜɢɞɢɦ ɞɪɭɝɨɟ – ɩɨɦɧɢɦ ɋɪɚɜɧɢɜɚɹɢɯɦɟɠɞɭɫɨɛɨɣɡɚɩɨɦɧɢɦɛɨɥɶɲɟɟɬɟ ɟɫɥɢɩɟɪɜɨɟɛɵɥɨɛɨɥɶɲɟ ɡɚɩɨɦɢɧɚɬɶɧɨɜɨɟɧɟɩɪɢɞɟɬɫɹɢɧɚɞɨɫɦɨɬɪɟɬɶɫɥɟɞɭɸɳɭɸɤɚɪɬɨɱɤɭȿɫɥɢɜɬɨ ɪɨɟɛɨɥɶɲɟɩɟɪɜɨɝɨɩɟɪɜɨɟɜɞɚɥɶɧɟɣɲɟɦɩɨɦɧɢɬɶɧɟɬɫɦɵɫɥɚɢɦɵɡɚɩɨɦɧɢɦ ɜɬɨɪɨɟɌɚɤɢɦɨɛɪɚɡɨɦɧɚɤɚɠɞɨɦɷɬɚɩɟɫɪɚɜɧɟɧɢɹɦɵɛɭɞɟɦɩɨɦɧɢɬɶɛɨɥɶɲɟɟ ɢɡ ɩɪɨɫɦɨɬɪɟɧɧɵɯ ɱɢɫɟɥ ɢ ɜ ɤɨɧɰɟ ɪɟɲɢɦ ɩɨɫɬɚɜɥɟɧɧɭɸ ɡɚɞɚɱɭ Ɂɚɩɢɫɚɜ ɩɪɢ ɜɟɞɟɧɧɵɟ ɪɚɫɫɭɠɞɟɧɢɹ ɜ ɜɢɞɟ ɨɩɟɪɚɬɨɪɨɜ ɩɨɥɭɱɢɦ ɩɪɨɝɪɚɦɦɭ ɧɚɯɨɠɞɟɧɢɹ ɧɚɢɛɨɥɶɲɟɝɨɡɧɚɱɟɧɢɹɉɪɨɦɟɠɭɬɨɱɧɵɟɡɧɚɱɟɧɢɹɢɨɬɜɟɬɫɨɞɟɪɠɢɬɩɟɪɟɦɟɧɧɚɹ max. program ( const Q  var Darray >Q@of integerPD[Linteger begin for L to Qdo 75
begin write µD>µLµ@ µ  readln D>L@ end; PD[ D>@ for L WRQdo if PD[!D>L@ then PD[ D>L@ write µɧɚɢɛɨɥɶɲɢɣɷɥɟɦɟɧɬɦɚɫɫɢɜɚPD[ µPD[  HQG ɍɩɨɪɹɞɨɱɟɧɢɟɦɚɫɫɢɜɚɩɨɜɨɡɪɚɫɬɚɧɢɸ ɍɩɨɪɹɞɨɱɟɧɢɹ ɦɚɫɫɢɜɨɜ ɦɨɝɭɬ ɨɫɭɳɟɫɬɜɥɹɬɶɫɹ ɩɨ ɤɚɤɨɦɭ-ɥɢɛɨ ɩɪɢɡɧɚɤɭ ɧɚɡɵɜɚɸɬɫɹɬɚɤɠɟɫɨɪɬɢɪɨɜɤɚɦɢ)ɋɭɳɟɫɬɜɭɸɬɪɚɡɥɢɱɧɵɟɦɟɬɨɞɵɫɨɪɬɢɪɨɜɨɤ ɨɧɢ ɪɚɡɥɢɱɚɸɬɫɹ ɜ ɨɫɧɨɜɧɨɦ ɩɨ ɫɤɨɪɨɫɬɢ ɩɨɥɭɱɟɧɢɹ ɪɟɡɭɥɶɬɚɬɚ Ɋɚɫɫɦɨɬɪɢɦ ɨɞɢɧɢɡɧɢɯ – ɦɟɬɨɞ©ɩɭɡɵɪɶɤɚªɉɭɫɬɶɢɦɟɟɬɫɹɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɱɢɫɟɥɚ1 ɚ2    ɚn ɤɨɬɨɪɭɸ ɧɟɨɛɯɨɞɢɦɨ ɭɩɨɪɹɞɨɱɢɬɶ ɩɨ ɜɨɡɪɚɫɬɚɧɢɸ Ɂɚɮɢɤɫɢɪɭɟɦ ɩɟɪɜɵɣɷɥɟɦɟɧɬɢɛɭɞɟɦɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɪɚɜɧɢɜɚɬɶɟɝɨɫɨɫɬɨɹɳɢɦɢɫɩɪɚɜɚ ȿɫɥɢɤɚɤɨɣ-ɬɨɢɡɷɥɟɦɟɧɬɨɜɫɩɪɚɜɚɨɤɚɠɟɬɫɹɦɟɧɶɲɟɩɟɪɜɨɝɨɦɵɩɨɦɟɧɹɟɦɦɟ ɫɬɚɦɢ ɷɬɨɬ ɷɥɟɦɟɧɬ ɫ ɩɟɪɜɵɦ ɢ ɩɪɨɞɨɥɠɢɦ ɫɪɚɜɧɟɧɢɟ ɭɠɟ ɧɨɜɨɝɨ ɷɥɟɦɟɧɬɚ ɫɬɨɹɳɟɝɨɧɚɩɟɪɜɨɦɦɟɫɬɟɫɨɫɬɚɜɲɢɦɢɫɹɫɩɪɚɜɚɱɢɫɥɚɦɢȿɫɥɢɫɧɨɜɚɜɵɹɜɢɬɫɹ ɷɥɟɦɟɧɬ ɦɟɧɶɲɢɣ ɡɚɮɢɤɫɢɪɨɜɚɧɧɨɝɨ ɩɨɜɬɨɪɢɦ ɩɟɪɟɫɬɚɧɨɜɤɭ ȼ ɪɟɡɭɥɶɬɚɬɟ ɩɟɪɜɨɝɨɩɪɨɫɦɨɬɪɚɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢɧɚɩɟɪɜɨɦɦɟɫɬɟɨɤɚɠɟɬɫɹɧɚɢɦɟɧɶɲɢɣ ɢɡɜɫɟɯɷɥɟɦɟɧɬɨɜɬɟ ɨɧɤɚɤɛɨɥɟɟ©ɥɟɝɤɢɣª ɤɚɤɛɵ©ɜɫɩɥɵɜɚɟɬª ɧɚɜɟɪɯɨɬ ɫɸɞɚ ɢ ɧɚɡɜɚɧɢɟ ɦɟɬɨɞɚ – ©ɦɟɬɨɞ ɩɭɡɵɪɶɤɚª Ɍɟɩɟɪɶ ɡɚɮɢɤɫɢɪɭɟɦ ɜɬɨɪɨɣ ɷɥɟ ɦɟɧɬ ɢ ɩɨɜɬɨɪɢɦ ɩɪɨɫɦɨɬɪ ɜɵɩɨɥɧɹɹ ɩɪɢ ɧɟɨɛɯɨɞɢɦɨɫɬɢ ɩɟɪɟɫɬɚɧɨɜɤɢ ɷɥɟ ɦɟɧɬɨɜɢɬɞ ɍɹɫɧɢɜɢɞɟɸɪɟɲɟɧɢɹɨɫɬɚɧɨɜɢɦɫɹɧɚɞɜɭɯɜɨɩɪɨɫɚɯɤɚɤɢɦɨɛ ɪɚɡɨɦɮɢɤɫɢɪɨɜɚɬɶɷɥɟɦɟɧɬɵɢɤɚɤɨɫɭɳɟɫɬɜɢɬɶɩɟɪɟɫɬɚɧɨɜɤɭɞɜɭɯɷɥɟɦɟɧɬɨɜ Ⱦɥɹɬɨɝɨɱɬɨɛɵɩɪɢɩɟɪɟɛɨɪɟɷɥɟɦɟɧɬɨɜɫɬɨɹɳɢɯɫɩɪɚɜɚɨɬɩɪɨɜɟɪɹɟɦɨɝɨɧɟ ɦɟɧɹɥɫɹ ɢɧɞɟɤɫ ɩɨɫɥɟɞɧɟɝɨ ɧɟɨɛɯɨɞɢɦɨ ɱɬɨɛɵ ɢɧɞɟɤɫɵ ɮɢɤɫɢɪɭɟɦɨɝɨ ɢ ɫɬɨ ɹɳɢɯɩɪɚɜɟɟɧɟɝɨɷɥɟɦɟɧɬɨɜɛɵɥɢɪɚɡɥɢɱɧɵi ɢjɂɧɞɟɤɫi ɢɡɦɟɧɹɟɬɫɹɨɬɞɨ n - ɢɧɞɟɤɫj ɜɫɟɝɞɚɧɚɛɨɥɶɲɟi ɢɩɪɨɛɟɝɚɟɬɜɫɟɡɧɚɱɟɧɢɹɨɬi ɞɨnȾɥɹ ɤɚɠɞɨɝɨɡɧɚɱɟɧɢɹi ɢɧɞɟɤɫj ɞɨɥɠɟɧɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɩɪɢɧɹɬɶɜɫɟɞɨɩɭɫɬɢɦɵɟ ɡɧɚɱɟɧɢɹ ɫɥɟɞɨɜɚɬɟɥɶɧɨ ɤɨɧɫɬɪɭɤɰɢɹ ɩɪɨɝɪɚɦɦɵ ɨɬɪɚɠɚɸɳɚɹ ɩɨɥɧɵɣ ɩɟɪɟ ɛɨɪ ɜɫɟɯ ɷɥɟɦɟɧɬɨɜ ɢ ɢɯ ɭɩɨɪɹɞɨɱɟɧɢɟ ɩɨ ɜɨɡɪɚɫɬɚɧɢɸ ɩɪɟɞɫɬɚɜɥɹɟɬ ɞɜɨɣɧɨɣ ɰɢɤɥɉɪɢɩɟɪɟɫɬɚɧɨɜɤɟɞɜɭɯɷɥɟɦɟɧɬɨɜɢɫɩɨɥɶɡɭɟɬɫɹɬɪɟɬɶɹɩɟɪɟɦɟɧɧɚɹɉɟɪɟ ɫɬɚɧɨɜɤɚɦɟɫɬɚɦɢ ɨɛɦɟɧɡɧɚɱɟɧɢɹɦɢɜɩɚɦɹɬɢ ɞɜɭɯɩɟɪɟɦɟɧɧɵɯɚ ɢb ɜɵɝɥɹ ɞɢɬɫɥɟɞɭɸɳɢɦɨɛɪɚɡɨɦ ɫ ɚ ɚ E E  ɫɉɪɨɝɪɚɦɦɚɫɨɪɬɢɪɨɜɤɢɦɟ ɬɨɞɨɦɩɭɡɵɪɶɤɚɢɦɟɟɬɜɢɞ program ( const Q  var Darray >Q@of realLMinteger Freal begin 76
for L to Qdo begin write µD>µLµ@ µ  readln D>L@ end; for L to Q- 1 do for M Lto Qdo if D>L@!D>M@ then begin F D>L@ D>L@ D>M@ D>M@ F end; writeln µɭɩɨɪɹɞɨɱɟɧɧɵɣɩɨɜɨɡɪɚɫɬɚɧɢɸɦɚɫɫɢɜµ  for L  to Qdo write D>L@ HQG ɉɨɢɫɤɷɥɟɦɟɧɬɚɜɦɚɫɫɢɜɟ Ɉɞɧɚɢɡɜɚɠɧɵɯɧɟɜɵɱɢɫɥɢɬɟɥɶɧɵɯɡɚɞɚɱ – ɩɨɢɫɤɞɚɧɧɨɝɨɡɧɚɱɟɧɢɹɫɪɟ ɞɢ ɷɥɟɦɟɧɬɨɜ ɦɚɫɫɢɜɚ Ɍɚɤɨɣ ɩɨɢɫɤ ɧɚɡɵɜɚɟɬɫɹ ɬɚɤɠɟ ɩɨɢɫɤɨɦ ɩɨ ɤɥɸɱɭ ɇɚ ɩɪɚɤɬɢɤɟɩɨɢɫɤɨɫɭɳɟɫɬɜɥɹɟɬɫɹɜɭɩɨɪɹɞɨɱɟɧɧɨɦɦɚɫɫɢɜɟɢɦɟɸɬɫɹɪɚɡɥɢɱɧɵɟ ɚɥɝɨɪɢɬɦɵ ɩɨɢɫɤɚ ȼ ɞɚɧɧɨɦ ɭɱɟɛɧɨɦ ɩɪɢɦɟɪɟ ɨɫɭɳɟɫɬɜɢɦ ɩɨɢɫɤ ɩɭɬɟɦ ɫɩɥɨɲɧɨɝɨɩɟɪɟɛɨɪɚȿɫɥɢɷɥɟɦɟɧɬɧɚɣɞɟɧɧɚɩɟɱɚɬɚɟɦɟɝɨɧɨɦɟɪɟɫɥɢɧɟɬɬɨ ɜɵɞɚɞɢɦ ɫɨɨɬɜɟɬɫɬɜɭɸɳɟɟ ɫɨɨɛɳɟɧɢɟ ɋɭɳɟɫɬɜɟɧɧɵɦ ɹɜɥɹɟɬɫɹ ɬɨ ɤɚɤɨɣ ɢɡ ɨɞɢɧɚɤɨɜɵɯ ɷɥɟɦɟɧɬɨɜ ɦɚɫɫɢɜɚ ɪɚɜɧɵɯ ɞɚɧɧɨɦɭ ɧɚɫ ɢɧɬɟɪɟɫɭɟɬ ɩɟɪɜɵɣ ɜɫɬɪɟɬɢɜɲɢɣɫɹ ɩɪɢ ɩɨɢɫɤɟ ɢɥɢ ɩɨɫɥɟɞɧɢɣ ȼ ɞɚɧɧɨɦ ɩɪɢɦɟɪɟ ɛɭɞɟɦ ɢɫɤɚɬɶ ɩɟɪɜɵɣɉɨɢɫɤɨɫɭɳɟɫɬɜɥɹɟɬɫɹɜɰɢɤɥɟɤɚɤɬɨɥɶɤɨɷɥɟɦɟɧɬɧɚɣɞɟɧɧɚɞɨɜɵɣɬɢ ɢɡɰɢɤɥɚȾɥɹɞɨɫɪɨɱɧɨɝɨɜɵɯɨɞɚɢɡɰɢɤɥɚfor ɢɫɩɨɥɶɡɭɟɦɨɩɟɪɚɬɨɪgotoȿɫɥɢ ɞɨɫɪɨɱɧɵɣ ɜɵɯɨɞ ɧɟ ɩɪɨɢɡɨɣɞɟɬ ɡɧɚɱɢɬ ɷɥɟɦɟɧɬ ɪɚɜɧɵɣ ɞɚɧɧɨɦɭ ɜ ɦɚɫɫɢɜɟ ɨɬɫɭɬɫɬɜɭɟɬȼɬɚɤɨɦɫɥɭɱɚɟɜɵɞɚɱɚɫɨɨɛɳɟɧɢɹɨɛɨɬɫɭɬɫɬɜɢɢɷɥɟɦɟɧɬɚɞɨɥɠɧɚ ɛɵɬɶɫɪɚɡɭɩɨɫɥɟɰɢɤɥɚɩɨɢɫɤɚɁɧɚɱɢɬɱɬɨɛɵɨɛɨɣɬɢɩɟɱɚɬɶɧɨɦɟɪɚɷɥɟɦɟɧɬɚ ɧɚɞɨɢɫɩɨɥɶɡɨɜɚɬɶɟɳɟɨɞɢɧɨɩɟɪɚɬɨɪJRWRɢɟɳɟɨɞɧɭɦɟɬɤɭɜɩɪɨɝɪɚɦɦɟ ɉɪɨɝɪɚɦɦɚɩɨɢɫɤɚɞɚɧɧɨɝɨɷɥɟɦɟɧɬɚɜɦɚɫɫɢɜɟ program ( label  const Q  var Darray >Q@of real[realLinteger begin writeln µɜɜɟɞɢɬɟɷɥɟɦɟɧɬɵɦɚɫɫɢɜɨɜ¶  for L to Qdo write D>L@  writeln 77
write µɜɜɟɞɢɬɟɱɢɫɥɨɞɥɹɩɨɢɫɤɚɜɦɚɫɫɢɜɟɯ µ  readln [  for L  to Qdo if D>L@ [then goto  writeln µɬɚɤɨɝɨɱɢɫɥɚɜɦɚɫɫɢɜɟɧɟɬ¶  goto   write µɧɨɦɟɪɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚɪɚɜɧɨɝɨɞɚɧɧɨɦɭµL   HQG ȿɫɥɢ ɢɫɤɚɬɶ ɧɟ ɩɟɪɜɵɣ ɩɨ ɩɨɪɹɞɤɭ ɪɚɜɧɵɣ ɤɥɸɱɭ ɷɥɟɦɟɧɬ ɚ ɩɨɫɥɟɞɧɢɣ ɬɨɧɚɞɨɢɫɩɨɥɶɡɨɜɚɬɶɰɢɤɥɨɛɪɚɬɧɨɝɨɩɟɪɟɫɱɟɬɚ for L Qdownto 1 GR ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ 1. ɑɟɦɨɬɥɢɱɚɟɬɫɹɦɚɫɫɢɜɨɬɮɚɣɥɚ" Ⱦɥɹɱɟɝɨɧɟɨɛɯɨɞɢɦɨɨɩɢɫɚɧɢɟɦɚɫɫɢɜɚ" ɑɬɨɧɚɞɨɫɞɟɥɚɬɶɱɬɨɛɵɧɚɱɚɬɶɪɟɲɚɬɶɧɚɤɨɦɩɶɸɬɟɪɟɡɚɞɚɱɭɮɨɪɦɭ ɥɢɪɨɜɤɚɤɨɬɨɪɨɣɧɚɱɢɧɚɟɬɫɹɫɨɫɥɨɜ©Ⱦɚɧɨn ɱɢɫɟɥª" Ɇɨɠɟɬɥɢɦɚɫɫɢɜɫɨɞɟɪɠɚɬɶɪɚɡɧɨɪɨɞɧɵɟɞɚɧɧɵɟ" Ɇɨɠɧɨɥɢɜɩɪɢɦɟɪɟɩɪɨɝɪɚɦɦɵȿɨɝɪɚɧɢɱɢɬɶɫɹɨɞɧɢɦɨɩɟɪɚɬɨɪɨɦ ɰɢɤɥɚ"  ɑɬɨ ɧɚɞɨ ɢɡɦɟɧɢɬɶ ɜ ɩɪɨɝɪɚɦɦɟ ȿ ɱɬɨɛɵ ɨɫɭɳɟɫɬɜɥɹɥɫɹ ɩɨɢɫɤ ɧɟ ɧɚɢɛɨɥɶɲɟɝɨ ɚɧɚɢɦɟɧɶɲɟɝɨɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚ" Ʉɚɤɢɟɢɡɦɟɧɟɧɢɹɜɩɪɨɝɪɚɦɦɭȿɧɚɞɨ ɜɧɟɫɬɢɱɬɨɛɵɨɞɧɨɜɪɟɦɟɧɧɨɫɨ ɡɧɚɱɟɧɢɟɦɧɚɢɛɨɥɶɲɟɝɨɱɢɫɥɚɨɩɪɟɞɟɥɹɥɫɹɟɝɨɩɨɪɹɞɤɨɜɵɣɧɨɦɟɪ" Ɉɛɴɹɫɧɢɬɟɪɚɛɨɬɭɞɜɨɣɧɨɝɨɰɢɤɥɚɜɩɪɨɝɪɚɦɦɟȿ ɂɡɦɟɧɢɬɟɩɪɨɝɪɚɦɦɭȿɬɚɤɱɬɨɛɵɜɦɟɫɬɨɰɢɤɥɚ©ɩɟɪɟɫɱɟɬª ɩɪɢɩɨ ɢɫɤɟɷɥɟɦɟɧɬɚɢɫɩɨɥɶɡɨɜɚɥɫɹɰɢɤɥ©ɩɨɤɚªɉɪɢɦɟɧɢɬɟɩɟɪɟɦɟɧɧɭɸ-ɮɥɚɠɨɤɤɨ ɬɨɪɚɹɞɨɰɢɤɥɚɢɦɟɥɚɛɵɧɭɥɟɜɨɟɡɧɚɱɟɧɢɟɚɜɫɥɭɱɚɟɧɚɯɨɠɞɟɧɢɹɧɟɨɛɯɨɞɢɦɨ ɝɨɷɥɟɦɟɧɬɚɢɡɦɟɧɢɥɚɛɵɡɧɚɱɟɧɢɟɧɚɄɚɤɩɪɢɷɬɨɦɨɛɨɣɬɢɫɶɛɟɡɨɩɟɪɚɬɨɪɨɜ goto" ȼɡɚɞɚɧɧɨɣɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢɰɟɥɵɯɱɢɫɟɥɨɩɪɟɞɟɥɢɬɶɤɨɥɢɱɟɫɬɜɨɢ ɫɭɦɦɭɷɥɟɦɟɧɬɨɜɤɪɚɬɧɵɯ Ⱦɚɧɨn ɱɢɫɟɥɇɚɣɬɢɫɭɦɦɭɱɢɫɟɥɛɨɥɶɲɢɯɡɚɞɚɧɧɨɝɨɱɢɫɥɚɚ. ȼɡɚɞɚɧɧɨɦɦɚɫɫɢɜɟɡɚɦɟɧɢɬɶɧɭɥɟɦɧɚɢɛɨɥɶɲɢɣɷɥɟɦɟɧɬ ɇɚɣɬɢɩɨɥɭɩɪɨɢɡɜɟɞɟɧɢɟɜɫɟɯɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚ ɇɚɣɬɢɫɭɦɦɭɤɜɚɞɪɚɬɨɜɧɟɨɬɪɢɰɚɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɢɤɨɥɢɱɟɫɬɜɨɩɨ ɥɨɠɢɬɟɥɶɧɵɯɱɢɫɟɥɜɡɚɞɚɧɧɨɦ ɰɟɥɨɱɢɫɥɟɧɧɨɦɨɞɧɨɦɟɪɧɨɦɦɚɫɫɢɜɟ ȼɡɚɞɚɧɧɨɣɜɟɳɟɫɬɜɟɧɧɨɣɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢɩɨɦɟɧɹɬɶɦɟɫɬɚɦɢɩɟɪ ɜɵɣɢɧɚɢɦɟɧɶɲɢɣɷɥɟɦɟɧɬɵ Ⱦɚɧɨn ɱɢɫɟɥɁɚɦɟɧɢɬɶɜɫɟ ɨɬɪɢɰɚɬɟɥɶɧɵɟɱɢɫɥɚɢɯɦɨɞɭɥɹɦɢ ȼɵɱɢɫɥɢɬɶɫɪɟɞɧɟɟɚɪɢɮɦɟɬɢɱɟɫɤɨɟɧɚɢɛɨɥɶɲɟɝɨɢɧɚɢɦɟɧɶɲɟɝɨɢɡn ɱɢɫɟɥ 78
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ7Ɉɛɪɚɛɨɬɤɚɨɞɧɨɦɟɪɧɵɯɦɚɫɫɢɜɨɜ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɨɛɪɚɛɨɬɤɢ ɨɞɧɨɦɟɪɧɵɯ ɦɚɫɫɢ ɜɨɜ ɁɚɞɚɧɢɟɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɧɚ ɨɫɧɨɜɟ ɡɚɞɚɧɧɵɯ ɬɪɟɯ ɱɢɫɥɨɜɵɯ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɟɣ a  b  c ɮɨɪɦɢɪɭɟɬ ɱɢɫ ɥɨɜɵɟ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ y  z ɩɨ ɨɩɪɟɞɟɥɟɧɧɨɦɭ ɩɪɚɜɢɥɭ ɑɢɫɥɨɜɵɟ ɩɨɫɥɟ ɞɨɜɚɬɟɥɶɧɨɫɬɢ a  b  c ɫɨɞɟɪɠɚɬɜɟɳɟɫɬɜɟɧɧɵɟɱɢɫɥɚɢɢɯɪɚɡɦɟɪɧɨɫɬɶ k ɡɚɞɚ ɟɬɫɹɜɩɪɨɝɪɚɦɦɟɜɜɢɞɟɤɨɧɫɬɚɧɬɵ k d 25 ). ɑɢɫɥɨɜɵɟɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢɡɚ ɞɚɸɬɫɹɜɜɢɞɟɦɚɫɫɢɜɨɜȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵ ɟɟɪɚɛɨɬɵ ɩɪɨɜɟɞɹɩɚɪɚɥɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ  ȼɚɪɢɚɧɬʋ 1. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ ɉɪɚɜɢɥɨɮɨɪɦɢɪɨɜɚɧɢɹɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɟɣ y  z yi 2a i 05bi  zi 2. yi 4 3. yi 4. yi 5. 6. 7. 8. 9. 10. 11. 12. 2bi  05c i  i 1 k ai ˜ 7  bi  zi 2 4 2 2 2 bi  2ci  i 1 k ai  2bi  zi 3a i bk  i 1  zi bi ˜ 7  ci  i 1 k 3bi  ck  i 1  i 1 k yi max^ a i  bi  h ` zi max^ b i  ci  h ` i 1 k  h – ɜɟɳɟɫɬɜɟɧɧɨɟɱɢɫɥɨɡɚɞɚɜɚɟɦɨɟɩɨɥɶɡɨɜɚɬɟɥɟɦɜɨɜɪɟɦɹ ɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ yi PLQ^ ai  bi ` zi PLQ^ bi  ci ` i 1 k . max^ai  2bi  h` max^bi  2ci  h`  zi  i 1 k  h – yi 3 3 ɜɟɳɟɫɬɜɟɧɧɨɟɱɢɫɥɨɡɚɞɚɜɚɟɦɨɟɩɨɥɶɡɨɜɚɬɟɥɟɦɜɨɜɪɟɦɹ ɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ yi max^2ai  3bi  2h` zi max^2bi  3ci  2h` i 1 k  h – ɜɟɳɟɫɬɜɟɧɧɨɟɱɢɫɥɨɡɚɞɚɜɚɟɦɨɟɩɨɥɶɡɨɜɚɬɟɥɟɦɜɨɜɪɟɦɹ ɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ yi ai  2bi 3  PLQ ai  max bi  i i zi bi  2ci 3  PLQ bi  max ci  i 1 k i yi ai  max ai  PLQ bi 2  zi i i i yi ai ˜ bi  4 yi ai  k ¦ i 1 k ¦a i 1 i  zi 2ai  bi 2 bi ˜ ci  4  zi 79 bi  bi  max bi  PLQ ci 2  i 1 k i i k ¦b i 1 k ¦ i 1 i  i 1 k 2bi  ci 2  i 1 k
ȼɚɪɢɚɧɬʋ 13. 14. 15. yi ɉɪɚɜɢɥɨɮɨɪɦɢɪɨɜɚɧɢɹɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɟɣ y  z max^ ai  bi ` max^ bi  ci `  zi  i 1 k PLQ^ ai  bi ` PLQ^ bi  ci ` yi PLQ^ ai  bk  i 1  h ` zi PLQ^bi  ck  i 1  h ` i 1 k  h – ɜɟɳɟɫɬɜɟɧɧɨɟɱɢɫɥɨɡɚɞɚɜɚɟɦɨɟɩɨɥɶɡɨɜɚɬɟɥɟɦɜɨɜɪɟɦɹ ɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ a i bi b i ci  zi  i 1 k yi k k ¦ ai ¦ bi i 1 16. yi i 1 ai  PLQ ai  PLQ bi 3  zi i i bi  PLQ bi  PLQ ci 3  i 1 k i i Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ Ɋɚɡɦɟɪɧɨɫɬɶ ɱɢɫɥɨɜɵɯ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɟɣ k ɡɚɞɚɟɬɫɹ ɜ ɩɪɨɝɪɚɦɦɟ ɜ ɜɢɞɟ ɤɨɧɫɬɚɧɬɵ ɑɢɫɥɨɜɵɟ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ ɡɚɞɚɸɬɫɹ ɜ ɜɢɞɟ ɨɞɧɨɦɟɪɧɵɯ ɦɚɫɫɢɜɨɜ ȼ ɪɚɡɞɟɥɟ ɨɩɢɫɚɧɢɹ ɩɟɪɟɦɟɧɧɵɯ var ɞɨɩɭɫɬɢɦɨ ɡɚɞɚɜɚɬɶ ɜɫɟ ɢɫɯɨɞ ɧɵɟ ɢ ɮɨɪɦɢɪɭɟɦɵɟ ɜ ɩɪɨɰɟɫɫɟ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ ɦɚɫɫɢɜɵ ɜ ɨɞɧɨɦ ɨɛɴɹɜɥɟ ɧɢɢɧɚɩɪɢɦɟɪ const k  var DEF\]array>N@of real ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ a  b  c ɜɜɨɞɹɬɫɹɩɨɥɶɡɨɜɚɬɟɥɟɦɩɪɨɝɪɚɦɦɵɫɤɥɚɜɢ ɚɬɭɪɵ Ⱦɥɹ ɷɬɨɝɨ ɩɪɢɦɟɧɹɸɬɫɹ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɟ ɰɢɤɥɵ FOR ɫ ɩɪɟɞɜɚɪɢɬɟɥɶ ɧɵɦ ɜɵɜɨɞɨɦ ɫɨɨɛɳɟɧɢɹ ɞɥɹ ɩɨɥɶɡɨɜɚɬɟɥɹ ɨ ɧɟɨɛɯɨɞɢɦɨɫɬɢ ɜɜɨɞɚ ɷɥɟɦɟɧɬɨɜ ɦɚɫɫɢɜɚ writeln µȼɜɟɞɢɬɟɷɥɟɦɟɧɬɵɦɚɫɫɢɜɚa ɪɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚk ¶k µ ¶  for L to k do readln D>L@  ɇɟɨɛɯɨɞɢɦɨɩɨɦɧɢɬɶɱɬɨɫɱɟɬɱɢɤɰɢɤɥɚɞɨɥɠɟɧɛɵɬɶɨɛɴɹɜɥɟɧɰɟɥɨɱɢɫ ɥɟɧɧɨɣɩɟɪɟɦɟɧɧɨɣ Ɂɚɩɢɫɶ yi max^ a i  bi  h ` ɨɡɧɚɱɚɟɬ ɱɬɨ i-ɹ ɩɟɪɟɦɟɧɧɚɹ ɦɚɫɫɢɜɚ y ɮɨɪɦɢ ɪɭɟɬɫɹ ɤɚɤ ɧɚɢɛɨɥɶɲɟɟ ɡɧɚɱɟɧɢɟ ɫɪɟɞɢ i-ɯ ɩɟɪɟɦɟɧɧɵɯ ɦɚɫɫɢɜɨɜ a ɢ b ɢ ɩɚɪɚ ɦɟɬɪɚh. Ɂɚɩɢɫɶ yi ai  PLQ ai  PLQ bi 3 ɨɡɧɚɱɚɟɬɱɬɨi-ɹɩɟɪɟɦɟɧɧɚɹɦɚɫɫɢɜɚ i i y ɮɨɪɦɢɪɭɟɬɫɹɤɚɤɫɭɦɦɚi-ɣɩɟɪɟɦɟɧɧɨɣɦɚɫɫɢɜɚa ɢɫɭɦɦɵɦɢɧɢɦɚɥɶɧɵɯɡɧɚ ɱɟɧɢɣɦɚɫɫɢɜɨɜaɢbɩɨɞɟɥɟɧɧɨɣɧɚɱɢɫɥɨ ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨɩɟ ɪɟɦɟɧɧɵɯ 80
Ʉɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢɤɨɦ ɦɟɧɬɚɪɢɹɦɢ ɉɪɢ ɜɵɜɨɞɟ ɪɟɡɭɥɶɬɚɬɨɜ ɜɵɱɢɫɥɟɧɢɣ ɧɚ ɷɤɪɚɧ ɧɚɪɹɞɭ ɫ ɜɵɜɨɞɨɦ ɜɵɯɨɞɧɵɯ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɟɣ ɠɟɥɚɬɟɥɶɧɨ ɜɵɜɨɞɢɬɶ ɢ ɢɫɯɨɞɧɵɟ ɩɨɫɥɟɞɨɜɚ ɬɟɥɶɧɨɫɬɢȼɵɜɨɞɪɟɡɭɥɶɬɚɬɨɜɧɚɷɤɪɚɧɞɨɥɠɟɧɩɪɟɞɜɚɪɹɬɶɫɹɫɨɨɬɜɟɬɫɬɜɭɸɳɢɦ ɫɨɨɛɳɟɧɢɟɦ ɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. Ⱦɥɹɩɪɨɜɟɪɤɢɤɨɪɪɟɤɬɧɨɫɬɢɫɨɫɬɚɜɥɟɧɧɨɣɩɪɨɝɪɚɦɦɵɪɟɤɨ ɦɟɧɞɭɟɬɫɹ ɩɪɨɜɟɫɬɢ ɩɚɪɚɥɥɟɥɶɧɵɟ ɪɚɫɱɟɬɵ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɫ ɩɪɢɦɟ ɧɟɧɢɟɦɦɟɬɨɞɚɚɜɬɨɡɚɩɨɥɧɟɧɢɹɢɩɪɢɧɟɨɛɯɨɞɢɦɨɫɬɢɜɫɬɪɨɟɧɧɵɯɦɚɬɟɦɚɬɢɱɟ ɫɤɢɯ ɮɭɧɤɰɢɣ  ȼ ɨɬɱɟɬ ɩɨ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɩɨɦɟɫɬɢɬɶ ɷɤɪɚɧɧɵɣɫɧɢɦɨɤɪɟɡɭɥɶɬɚɬɚɞɚɧɧɨɣɩɪɨɜɟɪɤɢ ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɨɛɪɚɛɨɬɤɢɨɞɧɨɦɟɪɧɵɯɦɚɫɫɢɜɨɜ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɧɚɨɫɧɨ ɜɟ ɡɚɞɚɧɧɵɯ ɬɪɟɯ ɱɢɫɥɨɜɵɯ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɟɣ a  b  c ɮɨɪɦɢɪɭɟɬ ɱɢɫɥɨɜɵɟ ɩɨ ɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ y  z ɩɨɫɥɟɞɭɸɳɢɦɩɪɚɜɢɥɚɦ yi ai  PLQ ai  PLQ bi 3  zi i i bi  PLQ bi  PLQ ci 3  i 1 k . i i ɑɢɫɥɨɜɵɟɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ a  b  c ɫɨɞɟɪɠɚɬɜɟɳɟɫɬɜɟɧɧɵɟɱɢɫɥɚɢɢɯɪɚɡ ɦɟɪɧɨɫɬɶ k ɡɚɞɚɟɬɫɹ ɜ ɩɪɨɝɪɚɦɦɟ ɜ ɜɢɞɟ ɤɨɧɫɬɚɧɬɵ k d 25 ). ɑɢɫɥɨɜɵɟ ɩɨɫɥɟɞɨɜɚ ɬɟɥɶɧɨɫɬɢ ɡɚɞɚɸɬɫɹ ɜ ɜɢɞɟ ɦɚɫɫɢɜɨɜ ȼɵɩɨɥɧɢɬɶ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶ ɪɟ ɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ɩɪɨɜɟɞɹɩɚɪɚɥɥɟɥɶɧɵɟɜɵɱɢɫɥɟɧɢɹɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ . Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODE_7 ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ7 ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const k 10^ɪɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚ` var aEc\]array>k@of real ^ɨɛɴɹɜɥɟɧɢɟɨɞɧɨɦɟɪɧɵɯɦɚɫɫɢɜɨɜ` L integer^ɫɱɟɬɱɢɤɰɢɤɥɚ` PLQPLQreal^ɜɫɩɨɦɨɝɚɬɟɥɶɧɵɟɩɟɪɟɦɟɧɧɵɟɞɥɹɧɚɯɨɠɞɟɧɢɹɦɢɧɢɦɚɥɶɧɵɯɡɧɚɱɟ ɧɢɣɢɫɯɨɞɧɵɯɦɚɫɫɢɜɨɜ` begin ^ȼɜɨɞɫɤɥɚɜɢɚɬɭɪɵɦɚɫɫɢɜɚa} writeln µȼɜɟɞɢɬɟɷɥɟɦɟɧɬɵɦɚɫɫɢɜɚa ɪɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚk ¶kµ ¶  for L to k do readln D>L@  ^ȼɜɨɞɫɤɥɚɜɢɚɬɭɪɵɦɚɫɫɢɜɚb} writeln µȼɜɟɞɢɬɟɷɥɟɦɟɧɬɵɦɚɫɫɢɜɚE ɪɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚk ¶kµ ¶  for L to k do readln E>L@  81
^ȼɜɨɞɫɤɥɚɜɢɚɬɭɪɵɦɚɫɫɢɜɚc} writeln µȼɜɟɞɢɬɟɷɥɟɦɟɧɬɵɦɚɫɫɢɜɚc ɪɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚk ¶kµ ¶  for L to k do readln F>L@  ^ɉɨɢɫɤɦɢɧɢɦɚɥɶɧɨɝɨɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚɚ` ^ɋɧɚɱɚɥɚ ɩɪɟɞɩɨɥɚɝɚɟɦ ɱɬɨ ɦɢɧɢɦɚɥɶɧɵɦ ɷɥɟɦɟɧɬɨɦ ɜ ɦɚɫɫɢɜɟ ɹɜɥɹɟɬɫɹ ɟɝɨ ɩɟɪɜɵɣɷɥɟɦɟɧɬ` PLQ a>@ ^ɇɚɱɢɧɚɟɦ ɫɪɚɜɧɢɜɚɬɶ ɩɟɪɟɦɟɧɧɭɸ min ɫɨ ɜɫɟɦɢ ɷɥɟɦɟɧɬɚɦɢ ɦɚɫɫɢɜɚ a ɢ ɟɫɥɢ ɨɤɚɠɟɬɫɹɱɬɨɨɧɚɛɨɥɶɲɟɤɚɤɨɝɨ-ɬɨɷɥɟɦɟɧɬɚ-ɡɚɩɢɫɵɜɚɟɦɜɧɟɟɡɧɚɱɟɧɢɟɞɚɧ ɧɨɝɨɷɥɟɦɟɧɬɚ` for L to k do if PLQ!D>L@then PLQ a>L@ ^ɉɨɢɫɤɦɢɧɢɦɚɥɶɧɨɝɨɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚb} ^ɋɧɚɱɚɥɚ ɩɪɟɞɩɨɥɚɝɚɟɦ ɱɬɨ ɦɢɧɢɦɚɥɶɧɵɦ ɷɥɟɦɟɧɬɨɦ ɜ ɦɚɫɫɢɜɟ ɹɜɥɹɟɬɫɹ ɟɝɨ ɩɟɪɜɵɣɷɥɟɦɟɧɬ` PLQ E>@ ^ɇɚɱɢɧɚɟɦ ɫɪɚɜɧɢɜɚɬɶ ɩɟɪɟɦɟɧɧɭɸ min ɫɨ ɜɫɟɦɢ ɷɥɟɦɟɧɬɚɦɢ ɦɚɫɫɢɜɚ b ɢ ɟɫɥɢ ɨɤɚɠɟɬɫɹɱɬɨɨɧɚɛɨɥɶɲɟɤɚɤɨɝɨ-ɬɨɷɥɟɦɟɧɬɚ-ɡɚɩɢɫɵɜɚɟɦɜɧɟɟɡɧɚɱɟɧɢɟɞɚɧ ɧɨɝɨɷɥɟɦɟɧɬɚ` for L to k do if PLQ!E>L@then PLQ E>L@ PLQ PLQPLQ ^ɮɨɪɦɢɪɭɟɦɩɟɪɜɨɟɫɥɚɝɚɟɦɨɟɦɚɫɫɢɜɚy} ^ɇɚɯɨɠɞɟɧɢɟɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚy} for L to k do \>L@ PLQa>L@ ^ɇɚ ɞɚɧɧɨɦ ɷɬɚɩɟ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ ɩɟɪɟɦɟɧɧɚɹ min ɫɨɞɟɪɠɢɬ ɦɢɧɢɦɚɥɶɧɨɟ ɡɧɚɱɟɧɢɟɦɚɫɫɢɜɚbɢɧɚɦɧɟɨɛɯɨɞɢɦɨɧɚɣɬɢɧɚɢɦɟɧɶɲɟɟɡɧɚɱɟɧɢɟɫɪɟɞɢɷɥɟɦɟɧ ɬɨɜɦɚɫɫɢɜɚcɢɩɨɦɟɫɬɢɬɶɟɝɨɜɩɟɪɟɦɟɧɧɭɸmin1} ^ɉɨɢɫɤɦɢɧɢɦɚɥɶɧɨɝɨɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚc} ^ɋɧɚɱɚɥɚ ɩɪɟɞɩɨɥɚɝɚɟɦ ɱɬɨ ɦɢɧɢɦɚɥɶɧɵɦ ɷɥɟɦɟɧɬɨɦ ɜ ɦɚɫɫɢɜɟ ɹɜɥɹɟɬɫɹ ɟɝɨ ɩɟɪɜɵɣɷɥɟɦɟɧɬ` PLQ c>@ ^ɇɚɱɢɧɚɟɦ ɫɪɚɜɧɢɜɚɬɶ ɩɟɪɟɦɟɧɧɭɸ min ɫɨ ɜɫɟɦɢ ɷɥɟɦɟɧɬɚɦɢ ɦɚɫɫɢɜɚ c ɢ ɟɫɥɢ ɨɤɚɠɟɬɫɹɱɬɨɨɧɚɛɨɥɶɲɟɤɚɤɨɝɨ-ɬɨɷɥɟɦɟɧɬɚ-ɡɚɩɢɫɵɜɚɟɦɜɧɟɟɡɧɚɱɟɧɢɟɞɚɧ ɧɨɝɨɷɥɟɦɟɧɬɚ` for L to k do if PLQ!F>L@then PLQ c>L@ PLQ PLQPLQ ^ɮɨɪɦɢɪɭɟɦɩɟɪɜɨɟɫɥɚɝɚɟɦɨɟɦɚɫɫɢɜɚz} ^ɇɚɯɨɠɞɟɧɢɟɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚz} for L to k do ]>L@ PLQE>L@ ^ȼɵɜɨɞɩɨɥɭɱɟɧɧɵɯɪɟɡɭɥɶɬɚɬɨɜɧɚɷɤɪɚɧ` writeln µɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɚ¶  82
for L to k do ^ɜɵɜɨɞɧɚɷɤɪɚɧɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚa} write D>L@  writeln writeln(‘ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ E¶  for L to k do ^ɜɵɜɨɞɧɚɷɤɪɚɧɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚb} write(E>L@  writeln writeln µɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶc¶  for L to k do ^ɜɵɜɨɞɧɚɷɤɪɚɧɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚc} write(c>L@  writeln writeln µɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ\¶  for L to k do ^ɜɵɜɨɞɧɚɷɤɪɚɧɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚy} write(\>L@  writeln writeln µɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ]¶  for L to k do ^ɜɵɜɨɞɧɚɷɤɪɚɧɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚz} write ]>L@  writeln readln end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal 83
ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ Ɋɟɡɭɥɶɬɚɬɵ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɢ ɩɪɨɜɟɞɟɧɢɹ ɩɚɪɚɥ ɥɟɥɶɧɵɯɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ k 1 2 3 4 5 6 7 8 9 10 ɇɚɛɨɪɞɚɧɧɵɯ a 3 7 6 4 8 2 1 0 3 7 b 6 5 4 10 0 12 3 2 1 3 c 4 5 10 12 16 3 7 8 9 10 Ɋɟɡɭɥɶɬɚɬɵɜɵɱɢɫɥɟɧɢɣ Ɋɟɞɚɤɬɨɪ3DVFDO Ɍɚɛɥɢɱɧɵɣɩɪɨɰɟɫɫɨɪ y z y z 3                                        ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫ ɪɟɡɭɥɶɬɚɬɚɦɢ ɪɚɫɱɟɬɨɜ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɦɨɠɧɨ ɝɨɜɨɪɢɬɶ ɨ ɬɨɦ ɱɬɨ ɩɪɨ ɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. Ⱦɚɣɬɟɨɩɪɟɞɟɥɟɧɢɟɩɨɧɹɬɢɹ©ɦɚɫɫɢɜª 2. Ɂɚɩɢɲɢɬɟ ɫɢɧɬɚɤɫɢɫ ɨɛɴɹɜɥɟɧɢɹ ɨɞɧɨɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɜ ɪɚɡɞɟɥɟ ɨɩɢɫɚ ɧɢɹɩɟɪɟɦɟɧɧɵɯ 3. ɑɬɨɬɚɤɨɟɢɧɞɟɤɫɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚ" 4. Ʉɚɤɦɨɠɧɨɨɛɪɚɬɢɬɶɫɹɤɨɩɪɟɞɟɥɟɧɧɨɦɭɷɥɟɦɟɧɬɭɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ" 5. ɇɚɩɢɲɢɬɟɫɢɧɬɚɤɫɢɫɜɜɨɞɚɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚɜɰɢɤɥɟFOR. 6. Ɇɨɠɟɬɥɢɨɞɧɨɦɟɪɧɵɣɦɚɫɫɢɜɫɨɫɬɨɹɬɶɢɡɪɚɡɧɨɪɨɞɧɵɯɷɥɟɦɟɧɬɨɜ" 7. Ɉɩɢɲɢɬɟ ɚɥɝɨɪɢɬɦ ɧɚɯɨɠɞɟɧɢɹ ɦɢɧɢɦɚɥɶɧɨɝɨ ɷɥɟɦɟɧɬɚ ɨɞɧɨɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ 84
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ8ɋɨɪɬɢɪɨɜɤɚɦɚɫɫɢɜɨɜ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɫɨɪɬɢɪɨɜɤɢɦɚɫɫɢɜɨɜ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɤɨɬɨɪɚɹ ɩɪɨɢɡɜɨɞɢɬ ɫɨɪɬɢɪɨɜɤɭ ɩɪɟɨɛɪɚɡɨɜɚɧɢɟ  ɷɥɟɦɟɧɬɨɜ ɰɟɥɨɱɢɫɥɟɧɧɨɝɨ ɨɞɧɨɦɟɪ ɧɨɝɨ ɦɚɫɫɢɜɚ ɪɚɡɦɟɪɧɨɫɬɢ Q (15 d n d 30  ɉɚɪɚɦɟɬɪ n ɡɚɞɚɟɬɫɹ ɜ ɩɪɨɝɪɚɦɦɟ ɜ ɜɢɞɟ ɤɨɧɫɬɚɧɬɵ ɗɥɟɦɟɧɬɵ ɦɚɫɫɢɜɚ ɞɨɥɠɧɵ ɜɜɨɞɢɬɶɫɹ ɫ ɤɥɚɜɢɚɬɭɪɵ ȼɵɩɨɥ ɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ Ɂɚɞɚɧɢɟ ɍɩɨɪɹɞɨɱɢɬɶɦɚɫɫɢɜɩɨɜɨɡɪɚɫɬɚɧɢɸ ɍɩɨɪɹɞɨɱɢɬɶɦɚɫɫɢɜɩɨɭɛɵɜɚɧɢɸ ɍɩɨɪɹɞɨɱɢɬɶɦɚɫɫɢɜɩɨɜɨɡɪɚɫɬɚɧɢɸɦɨɞɭɥɟɣɷɥɟɦɟɧɬɨɜ ɍɩɨɪɹɞɨɱɢɬɶɦɚɫɫɢɜɩɨɭɛɵɜɚɧɢɸɦɨɞɭɥɟɣɷɥɟɦɟɧɬɨɜ ɂɡɦɟɧɢɬɶɩɨɪɹɞɨɤɫɥɟɞɨɜɚɧɢɹɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚ ɧɚɨɛɪɚɬɧɵɣ ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɷɥɟɦɟɧɬɵɪɚɜɧɵɟɡɚɬɟɦ – ɨɫɬɚɥɶɧɵɟ ɗɥɟɦɟɧɬɵɪɚɜɧɵɟɪɚɫɩɨɥɨɠɢɬɶɩɨɫɥɟɜɫɟɯɨɫɬɚɥɶɧɵɯ ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɱɟɬɧɵɟɡɚɬɟɦ– ɧɟɱɟɬɧɵɟɷɥɟɦɟɧɬɵ ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɧɟɱɟɬɧɵɟɡɚɬɟɦ– ɱɟɬɧɵɟɷɥɟɦɟɧɬɵ ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɷɥɟɦɟɧɬɵɫɱɟɬɧɵɦɡɚɬɟɦ – ɫɧɟɱɟɬɧɵɦɢɧɞɟɤɫɨɦ ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɷɥɟɦɟɧɬɵɫɧɟɱɟɬɧɵɦɡɚɬɟɦ – ɫɱɟɬɧɵɦɢɧɞɟɤɫɨɦ ɍɞɚɥɢɬɶɢɡɦɚɫɫɢɜɚɷɥɟɦɟɧɬɵɦɨɞɭɥɶɤɨɬɨɪɵɯ ɧɟɩɪɟɜɵɲɚɟɬɈɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵ ɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ ɍɞɚɥɢɬɶɢɡɦɚɫɫɢɜɚɨɬɪɢɰɚɬɟɥɶɧɵɟɷɥɟɦɟɧɬɵ Ɉɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ ɍɞɚɥɢɬɶɢɡɦɚɫɫɢɜɚɩɨɥɨɠɢɬɟɥɶɧɵɟɷɥɟɦɟɧɬɵ Ɉɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ ɍɞɚɥɢɬɶɢɡɦɚɫɫɢɜɚɷɥɟɦɟɧɬɵc ɱɟɬɧɵɦɢɧɞɟɤɫɨɦ. Ɉɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ ɍɞɚɥɢɬɶ ɢɡ ɦɚɫɫɢɜɚ ɷɥɟɦɟɧɬɵ c ɧɟɱɟɬɧɵɦ ɢɧɞɟɤɫɨɦ. Ɉɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ Ɋɚɡɦɟɪɧɨɫɬɶ ɦɚɫɫɢɜɚ ɞɨɥɠɧɚ ɡɚɞɚɜɚɬɶɫɹ ɜ ɩɪɨɝɪɚɦɦɟ ɜ ɜɢɞɟ ɤɨɧɫɬɚɧɬɵ ɉɪɨɝɪɚɦɦɚɞɨɥɠɧɚɩɪɟɞɭɫɦɚɬɪɢɜɚɬɶɜɜɨɞɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚɫɤɥɚɜɢɚɬɭɪɵȾɥɹ ɷɬɨɝɨ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɢɫɩɨɥɶɡɨɜɚɬɶ ɰɢɤɥ FOR ɫ ɩɪɟɞɜɚɪɢɬɟɥɶɧɵɦ ɜɵɜɨɞɨɦ ɫɨ ɨɛɳɟɧɢɹɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹɨɧɟɨɛɯɨɞɢɦɨɫɬɢɜɜɨɞɚɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚ 85
ɋɱɟɬɱɢɤɰɢɤɥɚɞɨɥɠɟɧɛɵɬɶɨɛɴɹɜɥɟɧɰɟɥɨɱɢɫɥɟɧɧɨɣɩɟɪɟɦɟɧɧɨɣ ȼ ɩɪɨɰɟɫɫɟ ɜɵɩɨɥɧɟɧɢɹ ɡɚɞɚɧɢɹ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ɧɟɨɛɯɨɞɢɦɨ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɨɛɯɨɞɢɬɶɫɹ ɦɢɧɢɦɚɥɶɧɵɦ ɧɚɛɨɪɨɦ ɩɟɪɟɦɟɧɧɵɯ ɢ ɩɪɟɞɫɬɚɜɥɹɬɶ ɤɨɞɩɪɨɝɪɚɦɦɵɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɣɮɨɪɦɟȿɫɥɢɭɫɥɨɜɢɟɡɚɞɚɱɢɩɨɡɜɨɥɹɟɬ ɬɨɢɫɩɨɥɶɡɨɜɚɬɶɨɞɢɧɦɚɫɫɢɜ ɉɪɢɜɵɜɨɞɟɪɟɡɭɥɶɬɚɬɨɜɨɛɪɚɛɨɬɤɢɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚɧɚɷɤɪɚɧɧɚɪɹɞɭ ɫɜɵɜɨɞɨɦɜɵɯɨɞɧɨɣɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢɠɟɥɚɬɟɥɶɧɨɜɵɜɨɞɢɬɶɢɢɫɯɨɞɧɭɸɩɨ ɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ ȼɵɜɨɞ ɪɟɡɭɥɶɬɚɬɨɜ ɧɚ ɷɤɪɚɧ ɞɨɥɠɟɧ ɩɪɟɞɜɚɪɹɬɶɫɹ ɫɨɨɬɜɟɬ ɫɬɜɭɸɳɢɦɫɨɨɛɳɟɧɢɟɦɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɫɨɪɬɢɪɨɜɤɢɦɚɫɫɢɜɨɜ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɩɪɨɢɡɜɨ ɞɢɬ ɫɨɪɬɢɪɨɜɤɭ ɩɪɟɨɛɪɚɡɨɜɚɧɢɟ  ɷɥɟɦɟɧɬɨɜ ɰɟɥɨɱɢɫɥɟɧɧɨɝɨ ɨɞɧɨɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɪɚɡɦɟɪɧɨɫɬɢ Q (15 d n d 30  ɉɪɨɝɪɚɦɦɚ ɞɨɥɠɧɚ ɭɞɚɥɢɬɶ ɢɡ ɦɚɫɫɢɜɚ ɷɥɟɦɟɧɬɵ F ɧɟ ɱɟɬɧɵɦ ɢɧɞɟɤɫɨɦɨɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢɉɚɪɚɦɟɬɪ n ɡɚɞɚɟɬɫɹɜɩɪɨɝɪɚɦɦɟɜɜɢɞɟɤɨɧɫɬɚɧɬɵɗɥɟɦɟɧɬɵɦɚɫɫɢɜɚɞɨɥɠɧɵɜɜɨɞɢɬɶɫɹɫɤɥɚ ɜɢɚɬɭɪɵȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const Q ^ɡɚɞɚɟɦɪɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚɜɜɢɞɟɤɨɧɫɬɚɧɬɵ` var aEarray>Q@of integer^ɨɩɪɟɞɟɥɹɟɦɞɜɚɨɞɧɨɦɟɪɧɵɯɦɚɫɫɢɜɚɨɞɢɧ–ɢɫɯɨɞɧɵɣ ɜɬɨɪɨɣ–ɩɪɟɨɛɪɚɡɨɜɚɧɧɵɣɩɨɫɤɨɥɶɤɭɭɫɥɨɜɢɟɡɚɞɚɱɢɧɟɩɨɡɜɨɥɹɟɬɨɛɨɣɬɢɫɶɡɚɞɚɧɢ ɟɦɥɢɲɶɨɞɧɨɝɨɦɚɫɫɢɜɚ} Lk integer{i–ɫɱɟɬɱɢɤɰɢɤɥɚk–ɜɫɩɨɦɨɝɚɬɟɥɶɧɚɹɩɟɪɟɦɟɧɧɚɹɞɥɹɡɚɩɨɥɧɟɧɢɹɷɥɟ ɦɟɧɬɚɦɢɩɪɟɨɛɪɚɡɨɜɚɧɧɨɝɨɦɚɫɫɢɜɚ` begin ^ȼɜɨɞɢɫɯɨɞɧɨɝɨɦɚɫɫɢɜɚ` writeln ɜɜɟɞɢɬɟɦɚɫɫɢɜ  for L to Q do readln(a>L@  ^ɂɡɧɚɱɚɥɶɧɨɩɪɟɞɩɨɥɚɝɚɟɬɫɹɱɬɨɜɩɪɟɨɛɪɚɡɨɜɚɧɧɨɦɦɚɫɫɢɜɟɧɟɬɧɢɨɞɧɨɝɨ ɷɥɟɦɟɧɬɚ` k  ^Ɂɚɩɨɥɧɟɧɢɟɷɥɟɦɟɧɬɚɦɢɩɪɟɨɛɪɚɡɨɜɚɧɧɨɝɨɦɚɫɫɢɜɚɇɨɜɵɣɦɚɫɫɢɜɧɭɠɧɨɧɚɩɨɥ ɧɢɬɶ ɷɥɟɦɟɧɬɚɦɢ ɢɫɯɨɞɧɨɝɨ ɦɚɫɫɢɜɚ ɫ ɱɟɬɧɵɦɢ ɢɧɞɟɤɫɚɦɢ ɚ ɨɫɜɨɛɨɞɢɜɲɢɟɫɹ ɜ ɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ} for L to Q do 86
^ɉɪɨɜɟɪɹɟɦɨɱɟɪɟɞɧɨɣɷɥɟɦɟɧɬɦɚɫɫɢɜɚɧɚɱɟɬɧɨɫɬɶɢɧɞɟɤɫɚɟɫɥɢɭɫɥɨɜɢɟɜɵ ɩɨɥɧɹɟɬɫɹɡɧɚɱɢɬɷɥɟɦɟɧɬɢɫɯɨɞɧɨɝɨɦɚɫɫɢɜɚɢɦɟɟɬɱɟɬɧɵɣɩɨɪɹɞɤɨɜɵɣɧɨɦɟɪ ɢɞɚɧɧɵɣɷɥɟɦɟɧɬɧɭɠɧɨɜɤɥɸɱɢɬɶɜɧɨɜɵɣɦɚɫɫɢɜ` if L mod  then begin k k ^ɮɨɪɦɢɪɭɟɦɬɟɤɭɳɢɣɢɧɞɟɤɫɧɨɜɨɝɨɦɚɫɫɢɜɚ` ^Ɂɚɩɨɥɧɹɟɦɧɨɜɵɣɦɚɫɫɢɜɨɱɟɪɟɞɧɵɦɷɥɟɦɟɧɬɨɦɭɞɨɜɥɟɬɜɨɪɹɸɳɢɦ ɭɫɥɨɜɢɸ` E>k@ a>L@ end ^ȼɪɟɡɭɥɶɬɚɬɟɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɧɨɜɵɣɦɚɫɫɢɜɛɭɞɭɬɩɨɦɟɳɟɧɵɜɫɟ ɱɟɬɧɵɟɷɥɟɦɟɧɬɵɢɫɯɨɞɧɨɝɨɦɚɫɫɢɜɚ–ɪɨɜɧɨkɷɥɟɦɟɧɬɨɜ` ^ȼɧɨɜɵɣɦɚɫɫɢɜɧɚɱɢɧɚɹɫɧɨɦɟɪɚɷɥɟɦɟɧɬɚkɢɞɨɧɨɦɟɪɚnɧɭɠɧɨɩɨɦɟ ɫɬɢɬɶɱɢɫɥɨɧɨɥɶ` for L kto Q do E>L@  ^ȼɵɜɨɞɢɫɯɨɞɧɨɝɨɦɚɫɫɢɜɚɧɚɷɤɪɚɧɨɬɮɨɪɦɚɬɢɪɨɜɚɧɧɵɣɜɢɞ ɞɜɚɡɧɚɤɚɩɨɫɥɟ ɡɚɩɹɬɨɣ ` writeln('ɂɫɯɨɞɧɵɣ ɦɚɫɫɢɜ  for L to Qdo write(a>L@  ^ȼɵɜɨɞɩɪɟɨɛɪɚɡɨɜɚɧɧɨɝɨɦɚɫɫɢɜɚɧɚɷɤɪɚɧɨɬɮɨɪɦɚɬɢɪɨɜɚɧɧɵɣɜɢɞ ɞɜɚɡɧɚɤɚ ɩɨɫɥɟɡɚɩɹɬɨɣ ` writeln('ɇɨɜɵɣ ɦɚɫɫɢɜ  for L to Qdo write E>L@  readln end. ɊɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal Q 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ɂɫɯɨɞɧɵɣɦɚɫɫɢɜ 9 6 4 21 6 7 18 24 25 0 14 7 5 3 8 ɉɪɟɨɛɪɚɡɨɜɚɧɧɵɣɦɚɫɫɢɜ                87
ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫɪɟɡɭɥɶɬɚɬɚɦɢɫɨɪɬɢɪɨɜɤɢɜɪɭɱɧɭɸɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɩɪɨɝɪɚɦɦɚɫɨɫɬɚɜɥɟ ɧɚɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. Ⱦɚɣɬɟɨɩɪɟɞɟɥɟɧɢɟɩɨɧɹɬɢɹ©ɫɨɪɬɢɪɨɜɤɚª 2. Ʉɚɤɢɟ ɦɟɬɨɞɵ ɫɨɪɬɢɪɨɜɤɢ ɦɚɫɫɢɜɨɜ ȼɵ ɡɧɚɟɬɟ" ȼ ɱɟɦ ɡɚɤɥɸɱɚɟɬɫɹ ɢɯ ɫɭɬɶ" 3. Ɋɚɫɫɤɚɠɢɬɟɨɩɪɟɢɦɭɳɟɫɬɜɚɯɢɧɟɞɨɫɬɚɬɤɚɯɤɚɠɞɨɝɨɦɟɬɨɞɚɫɨɪɬɢɪɨɜɤɢ  Ⱥɥɝɨɪɢɬɦɵɨɛɪɚɛɨɬɤɢɬɚɛɥɢɰ Ⱦɜɭɦɟɪɧɵɣɦɚɫɫɢɜɢɥɢɩɪɹɦɨɭɝɨɥɶɧɚɹɬɚɛɥɢɰɚ%ɢɡn ɫɬɪɨɤɢm ɫɬɨɥɛɰɨɜ ɜ ɨɛɳɟɦɜɢɞɟɜɵɝɥɹɞɢɬɫɥɟɞɭɸɳɢɦɨɛɪɚɡɨɦ bb12E1m b21b22E2m  bn1bn2bnm  88
ɇɚ ɉɚɫɤɚɥɟ ɢɦɟɧɚ ɷɥɟɦɟɧɬɨɜ ɦɚɫɫɢɜɚ ɡɚɩɢɫɵɜɚɸɬɫɹ ɬɚɤ ɠɟ ɫ ɞɜɭɦɹ ɧɨ ɦɟɪɚɦɢ ɢɧɞɟɤɫɚɦɢ E  E  E P E  E   E ( P  E QP ȼɩɚɦɹɬɢɤɨɦɩɶɸɬɟɪɚɷɥɟɦɟɧɬɵɞɜɭɦɟɪɧɨɝɨɦɚɫɫɢɜɚɪɚɫ ɩɨɥɨɠɟɧɵ ɨɞɢɧ ɡɚ ɞɪɭɝɢɦ ɩɨɫɥɟ ɷɥɟɦɟɧɬɨɜ ɩɟɪɜɨɣ ɫɬɪɨɤɢ ɫɥɟɞɭɸɬ ɷɥɟɦɟɧɬɵ ɜɬɨɪɨɣɫɬɪɨɤɢɬɚɛɥɢɰɵɢɬɞ ȿɫɥɢɱɢɫɥɨɫɬɪɨɤɬɚɛɥɢɰɵɪɚɜɧɨɱɢɫɥɭɫɬɨɥɛɰɨɜ ɬɨɬɚɤɚɹɬɚɛɥɢɰɚɧɚɡɵɜɚɟɬɫɹɤɜɚɞɪɚɬɧɨɣȽɥɚɜɧɚɹɞɢɚɝɨɧɚɥɶɤɜɚɞɪɚɬɧɨɣɬɚɛɥɢ ɰɵɩɪɨɯɨɞɢɬɢɡɥɟɜɨɝɨɜɟɪɯɧɟɝɨɭɝɥɚɜɩɪɚɜɵɣɧɢɠɧɢɣ Ɋɚɫɫɦɨɬɪɢɦɡɚɞɚɱɢɨɛɪɚɛɨɬɤɢɬɚɛɥɢɰɢɚɥɝɨɪɢɬɦɵɢɯɪɟɲɟɧɢɹ ȼɵɱɢɫɥɟɧɢɟɫɭɦɦɵɷɥɟɦɟɧɬɨɜɝɥɚɜɧɨɣɞɢɚɝɨɧɚɥɢɤɜɚɞɪɚɬɧɨɣɬɚɛ ɥɢɰɵ. Ⱦɥɹɪɟɲɟɧɢɹɡɚɞɚɱɢɧɚɞɨɜɵɩɨɥɧɢɬɶɫɥɟɞɭɸɳɢɟɲɚɝɢ ɜɜɟɫɬɢɬɚɛɥɢɰɭ ɜ ɩɚɦɹɬɶ   ɧɚɣɬɢ ɫɭɦɦɭ ɷɥɟɦɟɧɬɨɜ ɝɥɚɜɧɨɣ ɞɢɚɝɨɧɚɥɢ   ɧɚɩɟɱɚɬɚɬɶ ɪɟɡɭɥɶ ɬɚɬɈɩɢɫɚɧɢɟɬɚɛɥɢɰɵɤɚɤɢɨɩɢɫɚɧɢɟɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚɢɫɩɨɥɶɡɭɟɬɫɹɞɥɹ ɪɟɡɟɪɜɢɪɨɜɚɧɢɹɩɚɦɹɬɢȼɨɩɢɫɚɧɢɢɬɚɛɥɢɰɵɭɤɚɡɵɜɚɸɬɫɹɞɢɚɩɚɡɨɧɵɞɥɹɞɜɭɯ ɧɨɦɟɪɨɜɫɬɪɨɤɢɫɬɨɥɛɰɨɜ const Q  var Earray >QQ@of realLMinteger ɉɪɢ ɨɛɪɚɛɨɬɤɟ ɦɚɫɫɢɜɨɜ ɜ ɪɚɡɞɟɥɟ ɩɟɪɟɦɟɧɧɵɯ ɩɪɨɝɪɚɦɦɵ ɩɨɹɜɥɹɸɬɫɹ ɢɦɟɧɚ ɢɧɞɟɤɫɨɜ ɷɥɟɦɟɧɬɨɜ ɞɥɹ ɨɞɧɨɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ – ɨɞɧɨɣ ɞɥɹ ɞɜɭɦɟɪɧɨ ɝɨ – ɞɜɭɯɰɟɥɨɱɢɫɥɟɧɧɵɯɩɟɪɟɦɟɧɧɵɯ ɉɪɢɜɵɱɢɫɥɟɧɢɢɫɭɦɦɵɷɥɟɦɟɧɬɨɜɞɢɚɝɨɧɚɥɢɫɥɟɞɭɟɬɨɛɪɚɬɢɬɶɜɧɢɦɚɧɢɟ ɧɚ ɢɦɟɧɚ ɫɭɦɦɢɪɭɟɦɵɯ ɷɥɟɦɟɧɬɨɜ ɨɛɚ ɢɧɞɟɤɫɚ ɢɦɟɸɬ ɨɞɢɧɚɤɨɜɵɟ ɡɧɚɱɟɧɢɹ ɬ ɟ ɜ ɨɛɳɟɦ ɜɢɞɟ ɢɦɹ ɷɥɟɦɟɧɬɚ ɞɢɚɝɨɧɚɥɢ E > L L @ ɗɬɨ ɨɡɧɚɱɚɟɬ ɱɬɨ ɦɨɠɧɨ ɪɚɫɫɦɚɬɪɢɜɚɬɶɞɢɚɝɨɧɚɥɶɤɚɤɨɞɧɨɦɟɪɧɵɣɦɚɫɫɢɜɢɢɫɩɨɥɶɡɨɜɚɬɶɨɞɢɧɰɢɤɥɞɥɹ ɜɵɱɢɫɥɟɧɢɣ ɉɪɨɝɪɚɦɦɚɢɦɟɟɬɜɢɞ program ( const Q  var Earray >QQ@of realLMinteger6real begin writeln µɜɜɟɞɢɬɟɡɧɚɱɟɧɢɹɷɥɟɦɟɧɬɨɜɬɚɛɥɢɰɵɩɨɫɬɪɨɤɚɦ¶  writeln µɜɤɨɧɰɟ ɤɚɠɞɨɣɫɬɪɨɤɢɧɚɠɢɦɚɣɬɟ(QWHU¶  for L to Qdo begin for M to QGR read E>LM@  writeln end; 6  for L  to Qdo 89
6 6E>LL@ write (‘ ɫɭɦɦɚ ɷɥɟɦɟɧɬɨɜ ɞɢɚɝɨɧɚɥɢ ɬɚɛɥɢɰɵ 6 µ6  HQG ɇɚɯɨɠɞɟɧɢɟɧɚɢɛɨɥɶɲɢɯɷɥɟɦɟɧɬɨɜɤɚɠɞɨɣɫɬɪɨɤɢɬɚɛɥɢɰɵ. Ʉɚɠɞɭɸɫɬɪɨɤɭɬɚɛɥɢɰɵɦɨɠɧɨɪɚɫɫɦɚɬɪɢɜɚɬɶɤɚɤɨɞɧɨɦɟɪɧɵɣɦɚɫɫɢɜɢ ɢɫɩɨɥɶɡɨɜɚɬɶ ɢɞɟɸ ɧɚɯɨɠɞɟɧɢɹ ɧɚɢɛɨɥɶɲɟɝɨ ɡɧɚɱɟɧɢɹ ɜ ɩɪɨɝɪɚɦɦɟ ȿ ɇɚɣɞɟɧɧɵɟ ɡɧɚɱɟɧɢɹ ɛɭɞɟɦ ɩɨɦɟɳɚɬɶ ɜ ɨɞɧɨɦɟɪɧɵɣ ɦɚɫɫɢɜ ɪɢɫ 8  ȼ ɩɪɨ ɝɪɚɦɦɟ ȿ ɞɥɹ ɤɚɠɞɨɣ ɫɬɪɨɤɢ ɬɚɛɥɢɰɵ ɩɟɪɟɦɟɧɧɚɹ D > L @ ɢɝɪɚɟɬ ɬɚɤɭɸ ɠɟ ɪɨɥɶɤɚɤɩɟɪɟɦɟɧɧɚɹPD[ɜɩɪɨɝɪɚɦɦɟȿȾɥɹɤɚɠɞɨɣɫɬɪɨɤɢ ɟɟɡɚɞɚɟɬɩɟɪɟ ɦɟɧɧɚɹ i  ɷɥɟɦɟɧɬ D > L @ ɩɨɥɭɱɚɟɬ ɡɧɚɱɟɧɢɟ ɩɟɪɜɨɝɨ ɷɥɟɦɟɧɬɚ ɫɬɪɨɤɢ Ɂɚɬɟɦ ɜɧɭɬɪɟɧɧɢɣɰɢɤɥɩɨɩɟɪɟɦɟɧɧɨɣMɩɨɡɜɨɥɹɟɬɩɪɨɫɦɨɬɪɟɬɶɜɫɟɷɥɟɦɟɧɬɵɞɚɧɧɨɣ ɫɬɪɨɤɢ ɢ ɟɫɥɢ ɫɪɟɞɢ ɧɢɯ ɜɫɬɪɟɬɢɬɫɹ ɷɥɟɦɟɧɬ ɡɧɚɱɟɧɢɟ ɤɨɬɨɪɨɝɨ ɛɨɥɶɲɟ ɱɟɦ ɡɚɩɨɦɧɟɧɧɨɟɜD>L@ɬɨɨɧɨɩɪɢɫɜɚɢɜɚɟɬɫɹD>L@Ⱦɥɹɪɚɫɩɟɱɚɬɤɢɪɟɡɭɥɶɬɚɬɨɜ ɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ– ɦɚɫɫɢɜɚɚ – ɢɫɩɨɥɶɡɭɟɬɫɹɰɢɤɥɂɫɩɨɥɶɡɭɟɦɵɣɜɩɪɨɝɪɚɦ ɦɟɤɨɦɦɟɧɬɚɪɢɣɡɚɤɥɸɱɟɧɧɵɣɜɮɢɝɭɪɧɵɟɫɤɨɛɤɢɩɨɡɜɨɥɹɟɬɩɪɢɱɬɟɧɢɢɩɪɨ ɝɪɚɦɦɵɜɵɞɟɥɢɬɶɨɫɧɨɜɧɭɸɟɟɱɚɫɬɶ Ɋɢɫ8ɉɪɢɦɟɪɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵȿ– ɧɚɯɨɠɞɟɧɢɟɧɚɢɛɨɥɶɲɢɯɷɥɟɦɟɧɬɨɜɫɬɪɨɤ ger program ( const Q  var Earray >QQ@of integerLMintegerDarray >Q@of intH begin writeln µɜɜɟɞɢɬɟɡɧɚɱɟɧɢɹɷɥɟɦɟɧɬɨɜɬɚɛɥɢɰɵɩɨɫɬɪɨɤɚɦ¶  writeln µɜɤɨɧɰɟ ɤɚɠɞɨɣɫɬɪɨɤɢɧɚɠɢɦɚɣɬɟ(QWHU¶  for L to Qdo begin for M to QGR read ( E>LM@  writeln end; 90
{ ɩɨɫɬɪɨɟɧɢɟɦɚɫɫɢɜɚɧɚɢɛɨɥɶɲɢɯɡɧɚɱɟɧɢɣɷɥɟɦɟɧɬɨɜɫɬɪɨɤɬɚɛɥɢɰɵ} for L  to Qdo begin D>L@ E>L@ for M  to Qdo if D>L@E>LM@ then D>L@ E>LM@ end; writeln µɧɚɢɛɨɥɶɲɢɟɱɢɫɥɚɫɬɪɨɤɬɚɛɥɢɰɵ¶  for L to Qdo write D>L@  HQG ɇɚɯɨɠɞɟɧɢɟɫɭɦɦɷɥɟɦɟɧɬɨɜɫɬɨɥɛɰɨɜɬɚɛɥɢɰɵ ɉɪɢ ɨɛɪɚɛɨɬɤɟ ɬɚɛɥɢɰ ɦɨɠɧɨ ɨɫɭɳɟɫɬɜɥɹɬɶ ɨɩɟɪɚɰɢɢ ɤɚɤ ɧɚɞ ɫɬɪɨɤɚɦɢ ɬɚɤɢɧɚɞɫɬɨɥɛɰɚɦɢɉɪɢɧɚɯɨɠɞɟɧɢɢɫɭɦɦɷɥɟɦɟɧɬɨɜɫɬɨɥɛɰɨɜɦɨɠɧɨɢɫɩɨɥɶ ɡɨɜɚɬɶɚɥɝɨɪɢɬɦɩɪɢɦɟɪɚȿȾɥɹɥɭɱɲɟɝɨɩɨɧɢɦɚɧɢɹɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɜɜɟ ɞɟɦ ɩɟɪɟɦɟɧɧɭɸ S ɞɥɹ ɜɵɱɢɫɥɟɧɢɹ ɫɭɦɦɵ ɚ ɡɚɬɟɦ ɞɥɹ ɤɚɠɞɨɝɨ ɫɬɨɥɛɰɚ ɡɚɩɢ ɲɟɦɩɨɥɭɱɟɧɧɵɣɪɟɡɭɥɶɬɚɬɜɦɚɫɫɢɜɚɬɟ ɩɪɢɫɜɨɢɦɟɝɨɩɟɪɟɦɟɧɧɨɣD>M@ɝɞɟ j – ɬɟɤɭɳɢɣ ɧɨɦɟɪ ɫɬɨɥɛɰɨɜ ɬɚɛɥɢɰɵ ɉɪɢɦɟɪ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɩɪɢɜɟ ɞɟɧɧɚɪɢɫ. Ɋɢɫɉɪɢɦɟɪɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵȿ– ɧɚɯɨɠɞɟɧɢɟɫɭɦɦɷɥɟɦɟɧɬɨɜɫɬɨɥɛɰɨɜɬɚɛɥɢɰɵ teger program ( const Q  var Earray >QQ@of integer6LMintegerDarray >Q@of iQ begin 91
writeln µɜɜɨɞɢɬɟɡɧɚɱɟɧɢɹɷɥɟɦɟɧɬɨɜɬɚɛɥɢɰɵɩɨɫɬɪɨɤɚɦ¶  writeln µɜɤɨɧɰɟ ɤɚɠɞɨɣɫɬɪɨɤɢɧɚɠɢɦɚɣɬɟ(QWHU¶  for L to Qdo begin for M to QGR read E>LM@  writeln end; { ɩɨɫɬɪɨɟɧɢɟɦɚɫɫɢɜɚɫɭɦɦ ɷɥɟɦɟɧɬɨɜɫɬɨɥɛɰɨɜɬɚɛɥɢɰɵ} for M  to Qdo begin 6  for L  to Qdo 6 6E>LM@ D>M@ 6 end; writeln (‘ɫɭɦɦɵ ɷɥɟɦɟɧɬɨɜɫɬɨɥɛɰɨɜɬɚɛɥɢɰɵ¶  for L to Qdo write D>L@  HQG ɉɟɪɟɫɬɚɧɨɜɤɚɫɬɪɨɤɬɚɛɥɢɰɵ ȼɩɪɹɦɨɭɝɨɥɶɧɨɣɬɚɛɥɢɰɟb ɢɡn ɫɬɪɨɤɢm ɫɬɨɥɛɰɨɜɬɪɟɛɭɟɬɫɹɩɨɦɟɧɹɬɶ ɦɟɫɬɚɦɢ ɞɜɟ ɫɬɪɨɤɢ ɉɪɢ ɪɟɲɟɧɢɢ ɷɬɨɣ ɡɚɞɚɱɢ ɦɨɠɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɚɥɝɨɪɢɬɦ ɨɛɦɟɧɚɡɧɚɱɟɧɢɹɦɢɞɜɭɯɩɟɪɟɦɟɧɧɵɯɢɡɩɪɨɝɪɚɦɦɵ ɫɨɪɬɢɪɨɜɤɢ ɩɪɢɦɟɪȿ  Ⱦɥɹ ɷɬɨɝɨ ɞɨɫɬɚɬɨɱɧɨ ɨɪɝɚɧɢɡɨɜɚɬɶ ɰɢɤɥ ɩɨ ɩɟɪɟɦɟɧɧɨɣ ɫɬɨɥɛɰɚ ɢ ɢɫɩɨɥɶɡɭɹ ɩɪɨɦɟɠɭɬɨɱɧɭɸ ɩɟɪɟɦɟɧɧɭɸ ɦɟɧɹɬɶ ɦɟɫɬɚɦɢ ɤɚɠɞɭɸ ɩɚɪɭ ɷɥɟɦɟɧɬɨɜ ɫɬɨɹ ɳɢɯ ɜ ɨɞɧɨɦ ɫɬɨɥɛɰɟ ɉɪɢ ɡɚɞɚɧɧɵɯ ɧɨɦɟɪɚɯ ɫɬɪɨɤ . ɢ / ɪɟɲɟɧɢɟ ɜɵɝɥɹɞɢɬ ɬɚɤ program ( const Q P  var Earray >QP@of realFrealL M./ integer begin write µɜɜɟɞɢɬɟɧɨɦɟɪɚɦɟɧɹɟɦɵɯɦɟɫɬɚɦɢɫɬɪɨɤɬɚɛɥɢɰɵ¶  readln ./  ^ɜɜɨɞɬɚɛɥɢɰɵ ` for L  to Qdo begin writeln Lµ- ɹɫɬɪɨɤɚɬɚɛɥɢɰɵ¶  for M  to m do read E>LM@ end; ^ɩɟɪɟɫɬɚɧɨɜɤɚɫɬɪɨɤ ` 92
for M  to m do begin F E>.M@ E>.M@ E>/M@ E>/M@ F end; ^ɩɟɱɚɬɶɪɟɡɭɥɶɬɚɬɨɜ` writeln writeln µɬɚɛɥɢɰɚɫɩɟɪHɫɬɚɜɥɟɧɧɵɦɢɫɬɪɨɤɚɦɢµ  for L to Qdo begin for M  to m do write E>LM@  writeln end HQG ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ ȼɤɜɚɞɪɚɬɧɨɣɬɚɛɥɢɰɟɧɟɫɨɞɟɪɠɚɳɟɣɨɬɪɢɰɚɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɧɚɣɬɢ ɤɨɪɟɧɶɤɜɚɞɪɚɬɧɵɣɢɡɩɪɨɢɡɜɟɞɟɧɢɹɞɢɚɝɨɧɚɥɶɧɵɯɷɥɟɦɟɧɬɨɜ ɇɚɣɬɢɧɚɢɛɨɥɶɲɢɣɷɥɟɦɟɧɬɤɜɚɞɪɚɬɧɨɣɬɚɛɥɢɰɵ ɇɚɣɬɢɧɚɢɦɟɧɶɲɢɣɷɥɟɦɟɧɬɤɜɚɞɪɚɬɧɨɣɬɚɛɥɢɰɵɢɡɚɦɟɧɢɬɶɟɝɨɧɭɥɟɦ ȼɩɪɹɦɨɭɝɨɥɶɧɨɣɬɚɛɥɢɰɟɡɚɦɟɧɢɬɶɜɫɟɷɥɟɦɟɧɬɵɢɯɤɜɚɞɪɚɬɚɦɢ ȼɰɟɥɨɱɢɫɥɟɧɧɨɣɩɪɹɦɨɭɝɨɥɶɧɨɣɬɚɛɥɢɰɟɭɜɟɥɢɱɢɬɶɧɚɜɫɟɨɬɪɢɰɚ ɬɟɥɶɧɵɟɷɥɟɦɟɧɬɵ ȼɤɜɚɞɪɚɬɧɨɣɬɚɛɥɢɰɟɧɚɣɬɢɧɚɢɛɨɥɶɲɢɣɷɥɟɦɟɧɬɞɢɚɝɨɧɚɥɢ ɉɟɪɟɫɬɚɜɢɬɶɦɟɫɬɚɦɢɩɟɪɜɭɸɢɩɨɫɥɟɞɧɸɸɫɬɪɨɤɢɩɪɹɦɨɭɝɨɥɶɧɨɣɬɚɛ ɥɢɰɵ ɇɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɹɷɥɟɦɟɧɬɨɜɫɬɪɨɤɩɪɹɦɨɭɝɨɥɶɧɨɣɬɚɛɥɢɰɵ 93
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ9 Ɉɛɪɚɛɨɬɤɚɞɜɭɦɟɪɧɵɯɦɚɫɫɢɜɨɜ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɨɛɪɚɛɨɬɤɢɞɜɭɦɟɪɧɵɯɦɚɫɫɢɜɨɜ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɤɨɬɨɪɚɹ ɩɪɨɢɡɜɨɞɢɬ ɨɛɪɚɛɨɬɤɭ ɞɜɭɦɟɪɧɨɝɨ ɱɢɫɥɨɜɨɝɨ ɦɚɫɫɢɜɚ ɦɚɬɪɢɰɵ  ɪɚɡɦɟɪɧɨɫɬɢ n×k ( 5 d n d 10  5 d k d 10 ɉɚɪɚɦɟɬɪɵ n ɢ k ɡɚɞɚɸɬɫɹɜɩɪɨɝɪɚɦɦɟɜɜɢɞɟɤɨɧ ɫɬɚɧɬ ɗɥɟɦɟɧɬɵ ɦɚɫɫɢɜɨɜ ɞɨɥɠɧɵ ɜɜɨɞɢɬɶɫɹ ɫ ɤɥɚɜɢɚɬɭɪɵ ȼɵɩɨɥɧɢɬɶ ɩɪɨ ɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ ɍɫɥɨɜɢɟ Ⱦɥɹɤɚɠɞɨɝɨɫɬɨɥɛɰɚɦɚɬɪɢɰɵɧɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɟɝɨ ɷɥɟɦɟɧɬɨɜɤɨɬɨɪɵɟɩɪɟɜɨɫɯɨɞɹɬɩɨɫɜɨɟɦɭɡɧɚɱɟɧɢɸɜɟɥɢ ɱɢɧɭ h ȼɟɥɢɱɢɧɚ h ɡɚɞɚɟɬɫɹɩɨɥɶɡɨɜɚɬɟɥɟɦɜɨɜɪɟɦɹ ɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ Ⱦɥɹɤɚɠɞɨɝɨɫɬɨɥɛɰɚɦɚɬɪɢɰɵɨɩɪɟɞɟɥɢɬɶɡɧɚɱɟɧɢɟ ɧɚɢɛɨɥɶɲɟɝɨɩɨɦɨɞɭɥɸɷɥɟɦɟɧɬɚɢɟɝɨɩɨɪɹɞɤɨɜɵɣɧɨɦɟɪ ȼɤɚɠɞɨɦɫɬɨɥɛɰɟɦɚɬɪɢɰɵɜɵɱɢɫɥɢɬɶɫɪɟɞɧɟɟɡɧɚɱɟɧɢɟɟɝɨ ɷɥɟɦɟɧɬɨɜ Ⱦɥɹɤɚɠɞɨɣ ɫɬɪɨɤɢɦɚɬɪɢɰɵɧɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɷɥɟɦɟɧɬɨɜ ɉɨɦɟɧɹɬɶɦɟɫɬɚɦɢɫɬɪɨɤɢɫɦɚɤɫɢɦɚɥɶɧɵɦɢɦɢɧɢɦɚɥɶɧɵɦ ɡɧɚɱɟɧɢɟɦɩɪɨɢɡɜɟɞɟɧɢɹ ȼɤɚɠɞɨɣɫɬɪɨɤɟɦɚɬɪɢɰɵɧɚɣɬɢɫɭɦɦɭɨɬɪɢɰɚɬɟɥɶɧɵɯ ɷɥɟɦɟɧɬɨɜɢɫɭɦɦɭɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜ ɗɥɟɦɟɧɬɵɤɚɠɞɨɣɫɬɪɨɤɢɦɚɬɪɢɰɵɪɚɡɞɟɥɢɬɶɧɚɡɧɚɱɟɧɢɟ ɦɢɧɢɦɚɥɶɧɨɝɨɷɥɟɦɟɧɬɚ ɜɫɬɪɨɤɟ Ⱦɥɹɤɚɠɞɨɝɨɫɬɨɥɛɰɚɦɚɬɪɢɰɵɧɚɣɬɢɫɭɦɦɭɤɜɚɞɪɚɬɨɜɟɝɨ ɷɥɟɦɟɧɬɨɜɉɨɦɟɧɹɬɶɦɟɫɬɚɦɢɫɬɨɥɛɰɵɫɦɚɤɫɢɦɚɥɶɧɵɦɢ ɦɢɧɢɦɚɥɶɧɵɦɡɧɚɱɟɧɢɟɦɫɭɦɦɵɤɜɚɞɪɚɬɨɜ ȼɤɚɠɞɨɣɫɬɪɨɤɟɦɚɬɪɢɰɵɨɩɪɟɞɟɥɢɬɶɤɨɥɢɱɟɫɬɜɨɩɨɥɨɠɢ ɬɟɥɶɧɵɯɢɨɬɪɢɰɚɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜ Ⱦɥɹɤɚɠɞɨɣɫɬɪɨɤɢɦɚɬɪɢɰɵɧɚɣɬɢɫɭɦɦɭɷɥɟɦɟɧɬɨɜɤɨɬɨ ɪɵɟɩɪɟɜɨɫɯɨɞɹɬɩɨɫɜɨɟɦɭɡɧɚɱɟɧɢɸɜɟɥɢɱɢɧɭ h ȼɟɥɢɱɢɧɚ h ɡɚɞɚɟɬɫɹɩɨɥɶɡɨɜɚɬɟɥɟɦɜɨɜɪɟɦɹɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ ȼɤɚɠɞɨɦɫɬɨɥɛɰɟɦɚɬɪɢɰɵɧɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɟɝɨɨɬɪɢɰɚ ɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɢɩɪɨɢɡɜɟɞɟɧɢɟɟɝɨɩɨɥɨɠɢɬɟɥɶɧɵɯ ɷɥɟɦɟɧɬɨɜ Ⱦɥɹɤɚɠɞɨɣɫɬɪɨɤɢɦɚɬɪɢɰɵɨɩɪɟɞɟɥɢɬɶɡɧɚɱɟɧɢɟɟɟ ɧɚɢɦɟɧɶɲɟɝɨɷɥɟɦɟɧɬɚɢɟɝɨɩɨɪɹɞɤɨɜɵɣɧɨɦɟɪ Ⱦɥɹɤɚɠɞɨɝɨɫɬɨɥɛɰɚɦɚɬɪɢɰɵɨɩɪɟɞɟɥɢɬɶɜɟɥɢɱɢɧɭɪɚɡɧɨ ɫɬɢɦɟɠɞɭɟɝɨɧɚɢɛɨɥɶɲɢɦɢɧɚɢɦɟɧɶɲɢɦɷɥɟɦɟɧɬɚɦɢ 94
ȼɚɪɢɚɧɬʋ 13. 14. 15. 16. ɍɫɥɨɜɢɟ ȼɤɚɠɞɨɣɫɬɪɨɤɟɦɚɬɪɢɰɵɨɩɪɟɞɟɥɢɬɶɤɨɥɢɱɟɫɬɜɨɷɥɟɦɟɧɬɨɜ ɤɨɬɨɪɵɟɩɪɟɜɨɫɯɨɞɹɬɩɨɫɜɨɟɦɭɡɧɚɱɟɧɢɸɫɪɟɞɧɟɟɡɧɚɱɟɧɢɟ ɜɫɟɯɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵ ȼɤɚɠɞɨɦɫɬɨɥɛɰɟɦɚɬɪɢɰɵɨɩɪɟɞɟɥɢɬɶɤɨɥɢɱɟɫɬɜɨɷɥɟɦɟɧ ɬɨɜɤɨɬɨɪɵɟɧɟɩɪɟɜɨɫɯɨɞɹɬɩɨɫɜɨɟɦɭɡɧɚɱɟɧɢɸɫɪɟɞɧɟɟ ɡɧɚɱɟɧɢɟɜɫɟɯɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵ Ⱦɥɹɤɚɠɞɨɝɨɫɬɨɥɛɰɚɦɚɬɪɢɰɵɧɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɷɥɟɦɟɧ ɬɨɜɉɨɦɟɧɹɬɶɦɟɫɬɚɦɢɫɬɨɥɛɰɵɫɦɚɤɫɢɦɚɥɶɧɵɦɢɦɢɧɢ ɦɚɥɶɧɵɦɡɧɚɱɟɧɢɟɦɩɪɨɢɡɜɟɞɟɧɢɹ ȼɤɚɠɞɨɦɫɬɨɥɛɰɟɦɚɬɪɢɰɵ ɧɚɣɬɢɫɭɦɦɭɨɬɪɢɰɚɬɟɥɶɧɵɯ ɷɥɟɦɟɧɬɨɜɢɫɭɦɦɭɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜ Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ Ɋɚɡɦɟɪɧɨɫɬɶ ɦɚɬɪɢɰɵ ɩɚɪɚɦɟɬɪɵ n ɢ k ) ɡɚɞɚɟɬɫɹ ɜ ɩɪɨɝɪɚɦɦɟ ɜ ɜɢɞɟ ɤɨɧɫɬɚɧɬɆɚɬɪɢɰɚ ɡɚɞɚɟɬɫɹɜɩɪɨɝɪɚɦɦɟɜɜɢɞɟɞɜɭɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ. Ⱦɜɭɦɟɪɧɵɣ ɦɚɫɫɢɜ ɜɜɨɞɢɬɫɹ ɩɨɥɶɡɨɜɚɬɟɥɟɦ ɩɪɨɝɪɚɦɦɵ ɫ ɤɥɚɜɢɚɬɭɪɵ Ⱦɥɹ ɷɬɨɝɨ ɩɪɢɦɟɧɹɟɬɫɹ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɣ ɜɥɨɠɟɧɧɵɣ ɞɜɨɣɧɨɣ ɰɢɤɥ FOR ɫ ɩɪɟɞɜɚɪɢɬɟɥɶɧɵɦɜɵɜɨɞɨɦɫɨɨɛɳɟɧɢɹɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹɨɧɟɨɛɯɨɞɢɦɨɫɬɢɜɜɨɞɚ ɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵ ɩɨɫɬɪɨɤɚɦɥɢɛɨɩɨɫɬɨɥɛɰɚɦ writeln µȼɜɟɞɢɬɟɷɥɟɦɟɧɬɵɦɚɬɪɢɰɵ ɪɚɡɦɟɪɧɨɫɬɢ¶Qµx¶ kµɩɨɫɬɪɨɤɚɦ¶  for L to Q do begin writeln Lµ-ɹ ɫɬɪɨɤɚ¶  for M to k do read D>LM@  writeln end ɋɱɟɬɱɢɤɢ ɰɢɤɥɨɜ ɞɨɥɠɧɵ ɛɵɬɶ ɨɛɴɹɜɥɟɧɵ ɤɚɤ ɰɟɥɨɱɢɫɥɟɧɧɵɟ ɩɟɪɟɦɟɧ ɧɵɟ. ɋɨɫɬɚɜɥɹɹɤɨɞɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬɩɨɦɧɢɬɶɱɬɨɞɥɹɨɛɪɚɳɟɧɢɹɤɨɩɪɟɞɟ ɥɟɧɧɨɦɭ ɷɥɟɦɟɧɬɭ ɞɜɭɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɧɭɠɧɵ ɞɜɚ ɢɧɞɟɤɫɚ ɧɚɩɪɢɦɟɪ a>L M@  ɉɟɪɜɵɣ ɢɧɞɟɤɫ ɯɚɪɚɤɬɟɪɢɡɭɟɬ ɧɨɦɟɪ ɫɬɪɨɤɢ ɚ ɜɬɨɪɨɣ ɢɧɞɟɤɫ – ɧɨɦɟɪ ɫɬɨɥɛɰɚ Ɉɛɪɚɛɨɬɤɚ ɞɜɭɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɫɤɨɪɟɟ ɜɫɟɝɨ ɩɨɬɪɟɛɭɟɬ ɫɨɡɞɚɧɢɹ ɜɥɨ ɠɟɧɧɨɝɨ ɰɢɤɥɚ FOR. ȼ ɩɪɨɰɟɫɫɟ ɨɛɪɚɛɨɬɤɢ ɞɜɭɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɩɨ ɫɬɪɨɤɚɦ ɜɧɟɲɧɢɣ ɰɢɤɥ FOR ɞɨɥɠɟɧ ɢɡɦɟɧɹɬɶ ɧɨɦɟɪ ɢɧɞɟɤɫ  ɫɬɪɨɤɢ ɚ ɜɧɭɬɪɟɧɧɢɣ ɰɢɤɥ – ɧɨɦɟɪ ɫɬɨɥɛɰɚ ɂ ɫɨɨɬɜɟɬɫɬɜɟɧɧɨ ɜ ɩɪɨɰɟɫɫɟ ɨɛɪɚɛɨɬɤɢ ɦɚɬɪɢɰɵ ɩɨ ɫɬɨɥɛɰɚɦ ɜɧɟɲɧɢɣ ɰɢɤɥ FOR ɞɨɥɠɟɧ ɢɡɦɟɧɹɬɶ ɧɨɦɟɪ ɫɬɨɥɛɰɚ ɚ ɜɧɭɬɪɟɧɧɢɣ ɰɢɤɥ – ɧɨɦɟɪɫɬɪɨɤɢ ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨɩɟ 95
ɪɟɦɟɧɧɵɯ Ʉɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢ ɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼɩɪɨɰɟɫɫɟɪɟɲɟɧɢɹɩɨɫɬɚɜɥɟɧɧɨɣɡɚɞɚɱɢɞɥɹɯɪɚɧɟɧɢɹɩɨɥɭ ɱɟɧɧɨɝɨ ɪɟɡɭɥɶɬɚɬɚ ɜ ɪɹɞɟ ɫɥɭɱɚɟɜ ɛɭɞɟɬ ɭɞɨɛɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɨɞɧɨɦɟɪɧɵɣ ɦɚɫɫɢɜ ɢɥɢɧɟɫɤɨɥɶɤɨɨɞɧɨɦɟɪɧɵɯɦɚɫɫɢɜɨɜ ɤɨɬɨɪɵɣɞɨɥɠɟɧɛɵɬɶɨɛɴɹɜɥɟɧ ɜɪɚɡɞɟɥɟɨɩɢɫɚɧɢɹɩɟɪɟɦɟɧɧɵɯvar. ɉɪɢɜɵɜɨɞɟɪɟɡɭɥɶɬɚɬɨɜɜɵɱɢɫɥɟɧɢɣɧɚɷɤɪɚɧɠɟɥɚɬɟɥɶɧɨɜɵɜɨɞɢɬɶɢɢɫ ɯɨɞɧɭɸ ɦɚɬɪɢɰɭ ȼɵɜɨɞ ɪɟɡɭɥɶɬɚɬɨɜ ɧɚ ɷɤɪɚɧ ɞɨɥɠɟɧ ɩɪɟɞɜɚɪɹɬɶɫɹ ɫɨɨɬɜɟɬ ɫɬɜɭɸɳɢɦɢ ɫɨɨɛɳɟɧɢɹɦɢ ɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. Ⱦɥɹɩɪɨɜɟɪɤɢɤɨɪɪɟɤɬɧɨɫɬɢɫɨɫɬɚɜɥɟɧɧɨɣɩɪɨɝɪɚɦɦɵɪɟɤɨ ɦɟɧɞɭɟɬɫɹɩɪɨɜɟɫɬɢɩɚɪɚɥɥɟɥɶɧɵɟɪɚɫɱɟɬɵɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟȼɨɬɱɟɬɩɨ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɩɨɦɟɫɬɢɬɶ ɷɤɪɚɧɧɵɣ ɫɧɢɦɨɤ ɪɟɡɭɥɶɬɚɬɚ ɞɚɧɧɨɣɩɪɨɜɟɪɤɢ ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɨɛɪɚɛɨɬɤɢɞɜɭɦɟɪɧɵɯɦɚɫɫɢɜɨɜ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɩɪɨɢɡɜɨ ɞɢɬ ɨɛɪɚɛɨɬɤɭ ɞɜɭɦɟɪɧɨɝɨ ɱɢɫɥɨɜɨɝɨ ɦɚɫɫɢɜɚ ɦɚɬɪɢɰɵ  ɪɚɡɦɟɪɧɨɫɬɢ Q×k ( 5 d n d 10  5 d k d 10  íɜɤɚɠɞɨɦɫɬɨɥɛɰɟɦɚɬɪɢɰɵɧɚɯɨɞɢɬɫɭɦɦɭɨɬɪɢɰɚɬɟɥɶ ɧɵɯ ɷɥɟɦɟɧɬɨɜ ɢ ɫɭɦɦɭ ɩɨɥɨɠɢɬɟɥɶɧɵɯ ɷɥɟɦɟɧɬɨɜ ɉɚɪɚɦɟɬɪɵ n ɢ k ɡɚɞɚɸɬɫɹ ɜ ɩɪɨɝɪɚɦɦɟ ɜ ɜɢɞɟ ɤɨɧɫɬɚɧɬ ɗɥɟɦɟɧɬɵ ɦɚɫɫɢɜɨɜ ɞɨɥɠɧɵ ɜɜɨɞɢɬɶɫɹ ɫ ɤɥɚɜɢɚɬɭɪɵ ȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODE_9 ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ9 ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const Q k 5 ^ɪɚɡɦɟɪɧɨɫɬɶɦɚɬɪɢɰɵ} var aDUUD\>1..Q1..k@of real^ɨɛɴɹɜɥɟɧɢɟɞɜɭɦɟɪɧɨɝɨɦɚɫɫɢɜɚ} E array>k@ of real ^ɨɞɧɨɦɟɪɧɵɣ ɦɚɫɫɢɜ ɞɥɹ ɯɪɚɧɟɧɢɹ ɫɭɦɦ ɨɬɪɢɰɚɬɟɥɶɧɵɯ ɢ ɩɨ ɥɨɠɢɬɟɥɶɧɵɯ ɷɥɟɦɟɧɬɨɜ ɤɚɠɞɨɝɨ ɫɬɨɥɛɰɚ ɦɚɬɪɢɰɵ ɟɝɨ ɪɚɡɦɟɪɧɨɫɬɶ ɪɚɜɧɚ ɱɢɫɥɭ ɫɬɨɥɛɰɨɜɦɚɬɪɢɰɵ} LM integer{ɫɱɟɬɱɢɤɢɰɢɤɥɚ} begin ^ȼɜɨɞɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵɫɤɥɚɜɢɚɬɭɪɵɩɨɫɬɪɨɤɚɦ` writeln µȼɜɟɞɢɬɟɷɥɟɦɟɧɬɵɦɚɬɪɢɰɵɪɚɡɦɟɪɧɨɫɬɢ¶Qµx¶kµɩɨɫɬɪɨɤɚɦ¶  for L to Qdo begin writeln Lµ-ɹɫɬɪɨɤɚ¶  for M to k do read D>LM@  writeln 96
end {ɇɚɯɨɠɞɟɧɢɟɫɭɦɦɨɬɪɢɰɚɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɜɤɚɠɞɨɦɫɬɨɥɛɰɟɦɚɬɪɢɰɵ} for M to k do ^ɫɱɟɬɱɢɤɜɧɟɲɧɟɝɨɰɢɤɥɚɫɨɨɬɜɟɬɫɬɜɭɟɬɢɧɞɟɤɫɭɫɬɨɥɛɰɚ` begin ^ɂɡɧɚɱɚɥɶɧɨ ɩɪɟɞɩɨɥɚɝɚɟɦ ɱɬɨ ɫɭɦɦɚ ɨɬɪɢɰɚɬɟɥɶɧɵɯ ɷɥɟɦɟɧɬɨɜ ɨɛɪɚ ɛɚɬɵɜɚɟɦɨɝɨɫɬɨɥɛɰɚɪɚɜɧɚɧɭɥɸ` E>M@  ^ɩɪɨɜɟɪɹɟɦ ɤɚɠɞɵɣ ɷɥɟɦɟɧɬ j-ɝɨ ɫɬɨɥɛɰɚ ɦɚɬɪɢɰɵ ɢ ɟɫɥɢ ɨɧ ɨɬɪɢɰɚ ɬɟɥɶɧɵɣɬɨɞɨɛɚɜɥɹɟɦɟɝɨɜɫɭɦɦɭ` for L to Qdo if D>LM@then E>M@ E>M@D>LM@ end ^ȼɵɜɨɞɧɚɷɤɪɚɧɢɫɯɨɞɧɨɣɦɚɬɪɢɰɵ` writeln('ɂɫɯɨɞɧɚɹ ɦɚɬɪɢɰɚ  for L to Qdo begin for M to k do write D>LM@  writeln end ^ȼɵɜɨɞɧɚɷɤɪɚɧɫɭɦɦɨɬɪɢɰɚɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɤɚɠɞɨɝɨɫɬɨɥɛɰɚɦɚɬɪɢɰɵ` writeln ɋɭɦɦɵɨɬɪɢɰɚɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɤɚɠɞɨɝɨɫɬɨɥɛɰɚɦɚɬɪɢɰɵ  for M to k do write E>M@  ^ɇɚɯɨɠɞɟɧɢɟɫɭɦɦɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɜɤɚɠɞɨɦɫɬɨɥɛɰɟɦɚɬɪɢɰɵ` for M to k do ^ɫɱɟɬɱɢɤɜɧɟɲɧɟɝɨɰɢɤɥɚɫɨɨɬɜɟɬɫɬɜɭɟɬɢɧɞɟɤɫɭɫɬɨɥɛɰɚ` begin ^ɂɡɧɚɱɚɥɶɧɨ ɩɪɟɞɩɨɥɚɝɚɟɦ ɱɬɨ ɫɭɦɦɚ ɩɨɥɨɠɢɬɟɥɶɧɵɯ ɷɥɟɦɟɧɬɨɜ ɨɛɪɚ ɛɚɬɵɜɚɟɦɨɝɨɫɬɨɥɛɰɚɪɚɜɧɚɧɭɥɸ` E>M@  ^ɩɪɨɜɟɪɹɟɦ ɤɚɠɞɵɣ ɷɥɟɦɟɧɬ j-ɝɨ ɫɬɨɥɛɰɚ ɦɚɬɪɢɰɵ ɢ ɟɫɥɢ ɨɧ ɩɨɥɨɠɢ ɬɟɥɶɧɵɣɬɨɞɨɛɚɜɥɹɟɦɟɝɨɜɫɭɦɦɭ` for L to Qdo if D>LM@!then E>M@ E>M@D>LM@ end writeln ^ȼɵɜɨɞɧɚɷɤɪɚɧɫɭɦɦɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɤɚɠɞɨɝɨɫɬɨɥɛɰɚɦɚɬɪɢɰɵ` writeln ɋɭɦɦɵɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɤɚɠɞɨɝɨɫɬɨɥɛɰɚɦɚɬɪɢɰɵ  for M to k do write E>M@  readln end. 97
ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ 98
ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫ ɪɟɡɭɥɶɬɚɬɚɦɢ ɪɚɫɱɟɬɨɜ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɦɨɠɧɨ ɝɨɜɨɪɢɬɶ ɨ ɬɨɦ ɱɬɨ ɩɪɨ ɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. ɇɚɩɢɲɢɬɟɫɢɧɬɚɤɫɢɫɨɛɴɹɜɥɟɧɢɹɞɜɭɦɟɪɧɨɝɨɦɚɫɫɢɜɚɜɪɚɡɞɟɥɟɨɩɢɫɚɧɢɹ ɩɟɪɟɦɟɧɧɵɯ 2. Ʉɚɤɦɨɠɧɨɨɛɪɚɬɢɬɶɫɹɤɨɩɪɟɞɟɥɟɧɧɨɦɭɷɥɟɦɟɧɬɭɞɜɭɦɟɪɧɨɝɨɦɚɫɫɢɜɚ" 3. ɇɚɩɢɲɢɬɟ ɫɢɧɬɚɤɫɢɫ ɜɜɨɞɚ ɷɥɟɦɟɧɬɨɜ ɞɜɭɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɫ ɤɥɚɜɢɚɬɭɪɵ ɩɨɫɬɨɥɛɰɚɦ 4. Ɇɨɠɟɬɥɢɞɜɭɦɟɪɧɵɣɦɚɫɫɢɜɫɨɫɬɨɹɬɶɢɡɪɚɡɧɨɪɨɞɧɵɯɷɥɟɦɟɧɬɨɜ" 5. Ɉɩɢɲɢɬɟɚɥɝɨɪɢɬɦɧɚɯɨɠɞɟɧɢɹɫɭɦɦɵ ɷɥɟɦɟɧɬɨɜ ɞɜɭɦɟɪɧɨɝɨɦɚɫɫɢɜɚ 99
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ10 ɉɪɟɨɛɪɚɡɨɜɚɧɢɟɢɩɨɫɬɪɨɟɧɢɟɦɚɬɪɢɰ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɨɩɪɟɞɟɥɟɧɢɹɢɧɞɟɤɫɨɜɷɥɟɦɟɧɬɨɜ ɦɚɬɪɢɰɵ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯ ɧɟɨɛɯɨɞɢɦɨɣ ɨɛɥɚɫɬɢ ɦɚɬɪɢɰɵ ɢ ɜɵɩɨɥɧɟɧɢɹ ɞɟɣ ɫɬɜɢɣɬɨɥɶɤɨɫɷɥɟɦɟɧɬɚɦɢɦɚɬɪɢɰɵɫɨɨɬɜɟɬɫɬɜɭɸɳɢɦɢɧɭɠɧɨɦɭɞɢɚɩɚɡɨɧɭ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɤɨɬɨɪɚɹ ɩɪɨɢɡɜɨɞɢɬ ɨɛɪɚɛɨɬɤɭ ɷɥɟɦɟɧɬɨɜ ɨɩɪɟɞɟɥɟɧɧɨɝɨ ɞɢɚɩɚɡɨɧɚ ɤɜɚɞɪɚɬɧɨɣ ɦɚɬɪɢ ɰɵ ɡɚɲɬɪɢɯɨɜɚɧɧɚɹɨɛɥɚɫɬɶ ɪɚɡɦɟɪɧɨɫɬɢn×n ( 5 d n d 10 ɉɚɪɚɦɟɬɪ n ɡɚɞɚɟɬ ɫɹɜɩɪɨɝɪɚɦɦɟɜɜɢɞɟɤɨɧɫɬɚɧɬɵɗɥɟɦɟɧɬɵɦɚɬɪɢɰɵɞɨɥɠɧɵɜɜɨɞɢɬɶɫɹɫɤɥɚ ɜɢɚɬɭɪɵȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ Ɉɛɥɚɫɬɶɦɚɬɪɢɰɵ Ɂɚɞɚɧɢɟ 1. ɇɚɣɬɢɧɚɢɛɨɥɶɲɢɣɢɡɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɱɚɫɬɢɦɚɬɪɢɰɵ 2. ɇɚɣɬɢɧɚɢɛɨɥɶɲɢɣɢɡɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɱɚɫɬɢɦɚɬɪɢɰɵ 3. ɇɚɣɬɢɧɚɢɛɨɥɶɲɢɣɢɡɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɱɚɫɬɢɦɚɬɪɢɰɵ 4. ɇɚɣɬɢɧɚɢɛɨɥɶɲɢɣɢɡɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɱɚɫɬɢɦɚɬɪɢɰɵ 100
ȼɚɪɢɚɧɬʋ Ɉɛɥɚɫɬɶɦɚɬɪɢɰɵ Ɂɚɞɚɧɢɟ 5. ɇɚɣɬɢɧɚɢɛɨɥɶɲɢɣɢɡɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɱɚɫɬɢɦɚɬɪɢɰɵ 6. ɇɚɣɬɢɧɚɢɛɨɥɶɲɢɣɢɡɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɱɚɫɬɢɦɚɬɪɢɰɵ 7. ɇɚɣɬɢɫɭɦɦɭɷɥɟɦɟɧɬɨɜɪɚɫɩɨɥɨ ɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣɱɚɫɬɢ ɦɚɬɪɢɰɵ 8. ɇɚɣɬɢɧɚɢɛɨɥɶɲɢɣɢɡɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɱɚɫɬɢɦɚɬɪɢɰɵ 9. ɇɚɣɬɢɧɚɢɛɨɥɶɲɢɣɢɡɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɱɚɫɬɢɦɚɬɪɢɰɵ 10. ɇɚɣɬɢɫɭɦɦɭɷɥɟɦɟɧɬɨɜɪɚɫɩɨɥɨ ɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣɱɚɫɬɢ ɦɚɬɪɢɰɵ 101
ȼɚɪɢɚɧɬʋ Ɉɛɥɚɫɬɶɦɚɬɪɢɰɵ Ɂɚɞɚɧɢɟ 11. ɇɚɣɬɢɫɭɦɦɭɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟ ɦɟɧɬɨɜɪɚɫɩɨɥɨɠɟɧɧɵɯɜ ɡɚɲɬɪɢɯɨ ɜɚɧɧɨɣɱɚɫɬɢɦɚɬɪɢɰɵ 12. ɇɚɣɬɢɫɭɦɦɭɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟ ɦɟɧɬɨɜɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨ ɜɚɧɧɨɣɱɚɫɬɢɦɚɬɪɢɰɵ 13. ɇɚɣɬɢɫɭɦɦɭɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟ ɦɟɧɬɨɜɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨ ɜɚɧɧɨɣɱɚɫɬɢɦɚɬɪɢɰɵ 14. ɇɚɣɬɢɫɭɦɦɭɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟ ɦɟɧɬɨɜɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨ ɜɚɧɧɨɣɱɚɫɬɢɦɚɬɪɢɰɵ 15. ɇɚɣɬɢɧɚɢɦɟɧɶɲɢɣɢɡɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɱɚɫɬɢɦɚɬɪɢɰɵ 16. ɇɚɣɬɢɫɭɦɦɭɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟ ɦɟɧɬɨɜɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨ ɜɚɧɧɨɣɱɚɫɬɢɦɚɬɪɢɰɵ 102
Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ Ɋɚɡɦɟɪɧɨɫɬɶɦɚɬɪɢɰɵ ɩɚɪɚɦɟɬɪ n ɡɚɞɚɟɬɫɹɜɩɪɨɝɪɚɦɦɟɜɜɢɞɟɤɨɧɫɬɚɧ ɬɵ Ⱦɜɭɦɟɪɧɵɣ ɦɚɫɫɢɜ ɜɜɨɞɢɬɫɹ ɩɨɥɶɡɨɜɚɬɟɥɟɦ ɩɪɨɝɪɚɦɦɵ ɫ ɤɥɚɜɢɚɬɭɪɵ Ⱦɥɹ ɷɬɨɝɨɩɪɢɦɟɧɹɟɬɫɹɫɨɨɬɜɟɬɫɬɜɭɸɳɢɣɜɥɨɠɟɧɧɵɣ ɞɜɨɣɧɨɣ ɰɢɤɥFOR ɫɩɪɟɞɜɚ ɪɢɬɟɥɶɧɵɦ ɜɵɜɨɞɨɦ ɫɨɨɛɳɟɧɢɹ ɞɥɹ ɩɨɥɶɡɨɜɚɬɟɥɹ ɨ ɧɟɨɛɯɨɞɢɦɨɫɬɢ ɜɜɨɞɚ ɷɥɟ ɦɟɧɬɨɜɦɚɬɪɢɰɵɩɨɫɬɪɨɤɚɦɥɢɛɨɩɨɫɬɨɥɛɰɚɦ ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨɩɟ ɪɟɦɟɧɧɵɯɄɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢ ɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼɩɪɨɰɟɫɫɟɧɚɩɢɫɚɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɦɨɠɧɨɩɪɢɦɟɧɹɬɶɪɚɡɥɢɱɧɵɟɩɨɞ ɯɨɞɵ ȼ ɱɚɫɬɧɨɫɬɢ ɦɨɠɧɨ ɩɪɢɦɟɧɢɬɶ ɚɥɝɨɪɢɬɦ ɡɚɤɥɸɱɚɸɳɢɣɫɹ ɜ ɩɟɪɟɛɨɪɟ ɜɫɟɯɷɥɟɦɟɧɬɨɜɤɜɚɞɪɚɬɧɨɣɦɚɬɪɢɰɵɢɩɪɨɜɟɪɤɟɤɚɠɞɨɝɨɷɥɟɦɟɧɬɚɧɚɡɚɞɚɧɧɨɟ ɭɫɥɨɜɢɟ ɂɧɞɟɤɫɵ ɷɥɟɦɟɧɬɨɜ ɦɚɬɪɢɰɵ ɪɚɫɩɨɥɨɠɟɧɧɵɯ ɧɢɠɟ ɝɥɚɜɧɨɣ ɞɢɚɝɨɧɚɥɢ ɫɨɨɬɜɟɬɫɬɜɭɸɬ ɭɫɥɨɜɢɸ i!j ɝɞɟ i – ɢɧɞɟɤɫ ɫɬɪɨɤɢ j – ɢɧɞɟɤɫ ɫɬɨɥɛɰɚ ɋɨɨɬ ɜɟɬɫɬɜɟɧɧɨɢɧɞɟɤɫɵɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵɪɚɫɩɨɥɨɠɟɧɧɵɯɜɵɲɟɝɥɚɜɧɨɣɞɢɚɝɨ ɧɚɥɢ ɫɨɨɬɜɟɬɫɬɜɭɸɬɭɫɥɨɜɢɸijɚɢɧɞɟɤɫɵɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵɪɚɫɩɨɥɨɠɟɧ ɧɵɯɧɚɝɥɚɜɧɨɣɞɢɚɝɨɧɚɥɢ ɫɨɨɬɜɟɬɫɬɜɭɸɬɭɫɥɨɜɢɸi j. ɂɧɞɟɤɫɵɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵɪɚɫɩɨɥɨɠɟɧɧɵɯɧɢɠɟɩɨɛɨɱɧɨɣɞɢɚɝɨɧɚɥɢ ɫɨɨɬɜɟɬɫɬɜɭɸɬɭɫɥɨɜɢɸij!nɝɞɟi – ɢɧɞɟɤɫɫɬɪɨɤɢj – ɢɧɞɟɤɫɫɬɨɥɛɰɚn – ɪɚɡɦɟɪɧɨɫɬɶ ɤɜɚɞɪɚɬɧɨɣ ɦɚɬɪɢɰɵ ɋɨɨɬɜɟɬɫɬɜɟɧɧɨ ɢɧɞɟɤɫɵ ɷɥɟɦɟɧɬɨɜ ɦɚɬɪɢ ɰɵ ɪɚɫɩɨɥɨɠɟɧɧɵɯ ɜɵɲɟ ɩɨɛɨɱɧɨɣ ɞɢɚɝɨɧɚɥɢ ɫɨɨɬɜɟɬɫɬɜɭɸɬ ɭɫɥɨɜɢɸ ijn ɚ ɢɧɞɟɤɫɵ ɷɥɟɦɟɧɬɨɜ ɦɚɬɪɢɰɵ ɪɚɫɩɨɥɨɠɟɧɧɵɯ ɧɚ ɩɨɛɨɱɧɨɣ ɞɢɚɝɨ ɧɚɥɢ ɫɨɨɬɜɟɬɫɬɜɭɸɬɭɫɥɨɜɢɸij n. Ɍɚɤ ɧɚɩɪɢɦɟɪ ɡɚɲɬɪɢɯɨɜɚɧɧɚɹ ɨɛɥɚɫɬɶ ɦɚɬɪɢɰɵ ɞɥɹ ɡɚɞɚɧɢɹ ɜɚɪɢɚɧɬɚ ɫɨɨɬɜɟɬɫɬɜɭɟɬɷɥɟɦɟɧɬɚɦɪɚɫɩɨɥɨɠɟɧɧɵɦɨɞɧɨɜɪɟɦɟɧɧɨɧɚɝɥɚɜɧɨɣɞɢɚɝɨ ɧɚɥɢɦɚɬɪɢɰɵɢɥɢ ɧɢɠɟɟɟɢɧɚɩɨɛɨɱɧɨɣɞɢɚɝɨɧɚɥɢɦɚɬɪɢɰɵɢɥɢ ɜɵɲɟɟɟ ȼɯɨɞɟɡɚɞɚɧɢɹɫɥɨɠɧɨɝɨɥɨɝɢɱɟɫɤɨɝɨɭɫɥɨɜɢɹɜɨɩɟɪɚɬɨɪɟIF ɧɟɨɛɯɨɞɢɦɨ ɩɨɦɧɢɬɶɱɬɨɫɨɫɬɚɜɧɵɟɱɚɫɬɢɞɚɧɧɨɝɨɭɫɥɨɜɢɹɞɨɥɠɧɵɡɚɤɥɸɱɚɬɶɫɹɜɤɪɭɝɥɵɟ ɫɤɨɛɤɢɢɫɨɟɞɢɧɹɬɶɫɹɥɨɝɢɱɟɫɤɢɦɢɫɨɸɡɚɦɢ ɇɚɩɪɢɦɟɪɞɥɹ 16 ɜɚɪɢɚɧɬɚ if L! M and LM Q and D>LM@! then … ȼɬɨɪɨɣ ɫɩɨɫɨɛ ɪɟɲɟɧɢɹ ɩɨɞɨɛɧɵɯ ɡɚɞɚɱ ɦɨɠɟɬ ɡɚɤɥɸɱɚɬɶɫɹ ɜ ɩɟɪɟɛɨɪɟ ɬɨɥɶɤɨ ɬɟɯ ɷɥɟɦɟɧɬɨɜ ɦɚɬɪɢɰɵ ɤɨɬɨɪɵɟ ɫɨɨɬɜɟɬɫɬɜɭɸɬ ɡɚɲɬɪɢɯɨɜɚɧɧɨɣ ɨɛɥɚ ɫɬɢɌɚɤɧɚɩɪɢɦɟɪɞɥɹɡɚɲɬɪɢɯɨɜɚɧɧɨɣɨɛɥɚɫɬɢ 103
ɩɟɪɟɛɨɪɜɫɟɯ ɷɥɟɦɟɧɬɨɜɦɨɠɧɨɜɵɩɨɥɧɢɬɶɫɩɨɦɨɳɶɸɨɩɟɪɚɬɨɪɨɜ for L to Qdo for M to Ldo … ɝɞɟ i – ɢɧɞɟɤɫɫɬɪɨɤɢj – ɢɧɞɟɤɫɫɬɨɥɛɰɚn – ɪɚɡɦɟɪɧɨɫɬɶɤɜɚɞɪɚɬɧɨɣɦɚɬɪɢɰɵ ɉɪɢɜɵɜɨɞɟɪɟɡɭɥɶɬɚɬɨɜɜɵɱɢɫɥɟɧɢɣɧɚɷɤɪɚɧɠɟɥɚɬɟɥɶɧɨɜɵɜɨɞɢɬɶɢɢɫ ɯɨɞɧɭɸ ɦɚɬɪɢɰɭ ȼɵɜɨɞ ɪɟɡɭɥɶɬɚɬɨɜ ɧɚ ɷɤɪɚɧ ɞɨɥɠɟɧ ɩɪɟɞɜɚɪɹɬɶɫɹ ɫɨɨɬɜɟɬ ɫɬɜɭɸɳɢɦɢɫɨɨɛɳɟɧɢɹɦɢɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɨɩɪɟɞɟɥɟɧɢɹɢɧɞɟɤɫɨɜɷɥɟɦɟɧɬɨɜɦɚɬ ɪɢɰɵ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯ ɧɟɨɛɯɨɞɢɦɨɣ ɨɛɥɚɫɬɢ ɦɚɬɪɢɰɵ ɢ ɜɵɩɨɥɧɟɧɢɹ ɞɟɣɫɬɜɢɣ ɬɨɥɶɤɨɫɷɥɟɦɟɧɬɚɦɢɦɚɬɪɢɰɵɫɨɨɬɜɟɬɫɬɜɭɸɳɢɦɢɧɭɠɧɨɦɭ ɞɢɚɩɚɡɨɧɭ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɩɪɨɢɡɜɨ ɞɢɬ ɨɛɪɚɛɨɬɤɭ ɷɥɟɦɟɧɬɨɜ ɨɩɪɟɞɟɥɟɧɧɨɝɨ ɞɢɚɩɚɡɨɧɚ ɤɜɚɞɪɚɬɧɨɣ ɦɚɬɪɢɰɵ ɡɚɲɬɪɢɯɨ ɜɚɧɧɚɹ ɨɛɥɚɫɬɶ  ɪɚɡɦɟɪɧɨɫɬɢ n×n ( 5 d n d 10 ) í ɧɚɯɨɞɢɬ ɫɭɦɦɭ ɩɨɥɨɠɢɬɟɥɶɧɵɯ ɷɥɟ ɦɟɧɬɨɜɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣɱɚɫɬɢɦɚɬɪɢɰɵ ɉɚɪɚɦɟɬɪ n ɡɚɞɚɟɬɫɹɜɩɪɨɝɪɚɦɦɟɜɜɢɞɟɤɨɧɫɬɚɧɬɵɗɥɟɦɟɧɬɵɦɚɬɪɢɰɵɞɨɥɠ ɧɵɜɜɨɞɢɬɶɫɹɫɤɥɚɜɢɚɬɭɪɵȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟ ɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODE_10 ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ10 ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const Q ^ɪɚɡɦɟɪɧɨɫɬɶɦɚɬɪɢɰɵ` var aarray>QQ@of real^ɨɛɴɹɜɥɟɧɢɟɞɜɭɦɟɪɧɨɝɨɦɚɫɫɢɜɚ` s real{ɩɟɪɟɦɟɧɧɚɹɞɥɹɧɚɯɨɠɞɟɧɢɹɫɭɦɦɵɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɪɚɫɩɨɥɨɠɟɧ ɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣɱɚɫɬɢɦɚɬɪɢɰɵ} 104
LM integer{ɫɱɟɬɱɢɤɢɰɢɤɥɚ} begin ^ȼɜɨɞɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵɫɤɥɚɜɢɚɬɭɪɵɩɨɫɬɪɨɤɚɦ` writeln µȼɜɟɞɢɬɟɷɥɟɦɟɧɬɵɦɚɬɪɢɰɵɪɚɡɦɟɪɧɨɫɬɢ¶Qµx¶Qµɩɨɫɬɪɨɤɚɦ¶  for L to Qdo begin writeln Lµ-ɹɫɬɪɨɤɚ¶  for M to Q do read D>LM@  writeln end ^ɇɚɯɨɠɞɟɧɢɟ ɫɭɦɦɵ ɩɨɥɨɠɢɬɟɥɶɧɵɯ ɷɥɟɦɟɧɬɨɜ ɪɚɫɩɨɥɨɠɟɧɧɵɯ ɜ ɡɚɲɬɪɢɯɨ ɜɚɧɧɨɣɱɚɫɬɢ ɦɚɬɪɢɰɵ ɧɭɠɧɵɟ ɷɥɟɦɟɧɬɵ ɪɚɫɩɨɥɨɠɟɧɵ ɨɞɧɨɜɪɟɦɟɧɧɨ ɧɚ ɝɥɚɜ ɧɨɣɞɢɚɝɨɧɚɥɢɦɚɬɪɢɰɵɢɥɢɧɢɠɟɟɟɢɧɚɩɨɛɨɱɧɨɣɞɢɚɝɨɧɚɥɢɦɚɬɪɢɰɵɢɥɢɜɵɲɟ ɟɟ} ^ɜɩɟɪɟɦɟɧɧɭɸsɩɪɢɫɜɚɢɜɚɟɦɬɨɱɢɫɥɨɤɨɬɨɪɨɟɧɟɦɟɧɹɟɬɡɧɚɱɟɧɢɟɫɭɦɦɵ` s  for L to Q do for M to Qdo ^ɟɫɥɢɨɩɪɟɞɟɥɟɧɧɵɣɷɥɟɦɟɧɬɦɚɬɪɢɰɵɪɚɫɩɨɥɨɠɟɧɨɞɧɨɜɪɟɦɟɧɧɨɧɚɝɥɚɜ ɧɨɣ ɞɢɚɝɨɧɚɥɢ ɦɚɬɪɢɰɵ ɢɥɢ ɧɢɠɟ ɟɟ ɢ ɧɚ ɩɨɛɨɱɧɨɣ ɞɢɚɝɨɧɚɥɢ ɦɚɬɪɢɰɵ ɢɥɢ ɜɵɲɟ ɟɟ ɢ ɹɜɥɹɟɬɫɹ ɩɨɥɨɠɢɬɟɥɶɧɵɦ ɬɨ ɟɝɨ ɡɧɚɱɟɧɢɟ ɧɭɠɧɨ ɞɨɛɚ ɜɢɬɶɜɢɫɤɨɦɭɸɫɭɦɦɭ` if L! M and (LM Q) and D>LM@! then s sa>LM@ ^ȼɵɜɨɞɧɚɷɤɪɚɧɢɫɯɨɞɧɨɣɦɚɬɪɢɰɵ` writeln('ɂɫɯɨɞɧɚɹ ɦɚɬɪɢɰɚ  for L to Qdo begin for M to Q do write D>LM@  writeln end ^ȼɵɜɨɞɧɚɷɤɪɚɧɧɚɣɞɟɧɧɨɣɫɭɦɦɵ} writeln ɋɭɦɦɚ ɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɪɚɫɩɨɥɨɠɟɧɧɵɯɜɡɚɲɬɪɢɯɨɜɚɧɧɨɣɱɚ ɫɬɢɦɚɬɪɢɰɵs ¶s  readln end. 105
ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫɪɟɡɭɥɶɬɚɬɚɦɢɪɚɫɱɟɬɨɜɜɪɭɱɧɭɸɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɩɪɨɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚ ɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. Ʉɚɤɢɟɚɥɝɨɪɢɬɦɵɨɛɪɚɛɨɬɤɢɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵɪɚɫɩɨɥɨɠɟɧɧɵɯɜɨɩɪɟ ɞɟɥɟɧɧɨɣɨɛɥɚɫɬɢɦɚɬɪɢɰɵ ȼɵɡɧɚɟɬɟ" 2. ɇɚɡɨɜɢɬɟɩɪɟɢɦɭɳɟɫɬɜɚɢɧɟɞɨɫɬɚɬɤɢɞɚɧɧɵɯɚɥɝɨɪɢɬɦɨɜ 3. Ʉɚɤɨɫɭɳɟɫɬɜɢɬɶɩɟɪɟɛɨɪɜɫɟɯɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵɪɚɫɩɨɥɨɠɟɧɧɵɯɧɢɠɟ ɝɥɚɜɧɨɣɞɢɚɝɨɧɚɥɢ" 4. Ʉɚɤɨɫɭɳɟɫɬɜɢɬɶɩɟɪɟɛɨɪɜɫɟɯɷɥɟɦɟɧɬɨɜɦɚɬɪɢɰɵɪɚɫɩɨɥɨɠɟɧɧɵɯɜɵɲɟ ɩɨɛɨɱɧɨɣ ɞɢɚɝɨɧɚɥɢ" 5. Ʉɚɤ ɧɚɣɬɢ ɫɭɦɦɭ ɷɥɟɦɟɧɬɨɜ ɦɚɬɪɢɰɵ ɪɚɫɩɨɥɨɠɟɧɧɵɯ ɧɚ ɩɨɛɨɱɧɨɣ ɞɢɚ ɝɨɧɚɥɢ" 6. Ʉɚɤɢɟ ɩɪɚɜɢɥɚ ɩɪɢɦɟɧɹɸɬɫɹ ɞɥɹ ɡɚɩɢɫɢ ɫɥɨɠɧɵɯ ɥɨɝɢɱɟɫɤɢɯ ɭɫɥɨɜɢɣ ɜ ɨɩɟɪɚɬɨɪɟIF" 7. Ʉɚɤɢɟɥɨɝɢɱɟɫɤɢɟɫɨɸɡɵȼɵɡɧɚɟɬɟ"ɄɚɤɨɧɢɡɚɩɢɫɵɜɚɸɬɫɹɧɚɹɡɵɤɟPascal" 106
Ɍɟɦɚ  ɈɉȿɊȺɌɈɊ ȼȺɊɂȺɇɌȺ ɍɫɥɨɜɧɵɣɨɩɟɪɚɬɨɪɩɨɡɜɨɥɹɟɬɨɫɭɳɟɫɬɜɢɬɶɜɟɬɜɥɟɧɢɟɩɪɨɝɪɚɦɦɵɬɨɥɶɤɨ ɩɨɞɜɭɦɧɚɩɪɚɜɥɟɧɢɹɦɨɞɧɨɢɡɤɨɬɨɪɵɯɫɨɨɬɜɟɬɫɬɜɭɟɬɜɵɩɨɥɧɟɧɢɸ ɩɪɨɜɟɪɹɟ ɦɨɝɨ ɭɫɥɨɜɢɹ ɚ ɞɪɭɝɨɟ – ɧɟɜɵɩɨɥɧɟɧɢɸ ɷɬɨɝɨ ɠɟ ɭɫɥɨɜɢɹ ȿɫɥɢ ɞɥɹ ɩɟɪɟɦɟɧ ɧɨɣ ɧɟɨɛɯɨɞɢɦɨ ɨɫɭɳɟɫɬɜɢɬɶ ɪɹɞ ɞɟɣɫɬɜɢɣ ɡɚɜɢɫɹɳɢɯ ɨɬ ɞɪɭɝɢɯ ɭɫɥɨɜɢɣ ɬɨ ɧɚɞɨ ɡɚɩɢɫɵɜɚɬɶ ɥɢɛɨ ɜɥɨɠɟɧɧɵɟ ɭɫɥɨɜɧɵɟ ɨɩɟɪɚɬɨɪɵ ɥɢɛɨ ɧɟɫɤɨɥɶɤɨ ɬɚɤɢɯ ɨɩɟɪɚɬɨɪɨɜɩɨɞɪɹɞȾɥɹɬɚɤɨɣɫɢɬɭɚɰɢɢɭɞɨɛɧɨɢɫɩɨɥɶɡɨɜɚɬɶɨɩɟɪɚɬɨɪɜɚɪɢɚɧ ɬɚ Ⱦɚɧɧɚɹ ɫɬɪɭɤɬɭɪɚ ɧɚɡɵɜɚɟɬɫɹ ɬɚɤɠɟ ɩɟɪɟɤɥɸɱɚɬɟɥɟɦ ɢ ɜɵɩɨɥɧɹɟɬɫɹ ɫɥɟɞɭ ɸɳɢɦ ɨɛɪɚɡɨɦ ɜɯɨɞ ɜ ɫɬɪɭɤɬɭɪɭ ɫɨɞɟɪɠɢɬ ɜɵɱɢɫɥɟɧɢɟ ɢɥɢ ɪɚɧɟɟ ɩɨɥɭɱɟɧɧɨɟ ɡɧɚɱɟɧɢɟ ɩɟɪɟɦɟɧɧɨɣ ɢɧɞɟɤɫɚ ɜɚɪɢɚɧɬɚ  ɗɬɨ ɡɧɚɱɟɧɢɟ ɦɨɠɟɬ ɫɨɜɩɚɫɬɶ ɫ ɦɟɬ ɤɨɣ ɫɬɨɹɳɟɣ ɩɟɪɟɞ ɨɩɟɪɚɬɨɪɨɦ ɧɚ ɨɞɧɨɣ ɢɡ ɜɟɬɜɟɣ ɩɟɪɟɤɥɸɱɚɬɟɥɹ ȼ ɬɚɤɨɦ ɫɥɭɱɚɟɜɵɩɨɥɧɹɟɬɫɹɨɩɟɪɚɬɨɪɩɨɦɟɱɟɧɧɵɣɷɬɨɣɦɟɬɤɨɣɢɩɪɨɢɫɯɨɞɢɬɜɵɯɨɞɢɡ ɫɬɪɭɤɬɭɪɵɈɩɟɪɚɬɨɪɦɨɠɟɬɛɵɬɶɩɪɨɫɬɵɦɢɥɢɫɨɫɬɚɜɧɵɦɨɝɪɚɧɢɱɟɧɧɵɦɨɩɟ ɪɚɬɨɪɧɵɦɢɫɤɨɛɤɚɦɢEHJLQHQG ȿɫɥɢɡɧɚɱɟɧɢɟɢɧɞɟɤɫɚɜɚɪɢɚɧɬɚɧɟɫɨɜɩɚɥɨ ɧɢɫɨɞɧɨɣɢɡɦɟɬɨɤɬɨɜɵɩɨɥɧɹɟɬɫɹɨɩɟɪɚɬɨɪɫɧɨɦɟɪɨɦQ ɢɡɫɬɪɨɤɢ else. ȿɫɥɢɨɩɟɪɚɬɨɪɜɚɪɢɚɧɬɚɫɨɞɟɪɠɢɬɫɬɪɨɤɭelseɬɨɷɬɨ– ɩɨɥɧɚɹɮɨɪɦɚɨɩɟɪɚɬɨɪɚ ɟɫɥɢɬɚɤɨɣɫɬɪɨɤɢɧɟɬɬɨɢɫɩɨɥɶɡɭɟɬɫɹɫɨɤɪɚɳɟɧɧɚɹɮɨɪɦɚɨɩɟɪɚɬɨɪɚɜɚɪɢɚɧɬɚ Ɇɟɬɤɢ ɨɩɟɪɚɬɨɪɚɜɚɪɢɚɧɬɚɦɨɝɭɬɛɵɬɶɤɨɧɫɬɚɧɬɚɦɢɥɸɛɨɝɨɬɢɩɚɢɯɬɢɩ ɞɨɥɠɟɧɫɨɜɩɚɞɚɬɶɫɩɟɪɟɦɟɧɧɨɣɢɧɞɟɤɫɚɜɚɪɢɚɧɬɚɂɧɞɟɤɫɜɚɪɢɚɧɬɚɦɨɠɟɬɛɵɬɶ ɤɚɤɢɦɟɧɟɦɩɟɪɟɦɟɧɧɨɣɬɚɤɢɜɵɪɚɠɟɧɢɟɦɫɨɨɬɜɟɬɫɬɜɭɸɳɟɝɨɬɢɩɚ ɇɚɹɡɵɤɟɉɚɫɤɚɥɶɨɩɟɪɚɬɨɪɜɚɪɢɚɧɬɚɢɦɟɟɬɜɢɞ case ɢɧɞɟɤɫɜɚɪɢɚɧɬɚ of ɦɟɬɤɚ  ɨɩɟɪɚɬɨɪ ɦɟɬɤɚ ɨɩɟɪɚɬɨɪ ... ɦɟɬɤɚQɨɩɟɪɚɬɨɪQ else ɨɩɟɪɚɬɨɪQ end ; ɉɪɢɜɟɞɟɦ ɩɪɢɦɟɪ ɩɪɨɝɪɚɦɦɵ ɫɨɞɟɪɠɚɳɟɣ ɨɩɟɪɚɬɨɪ ɜɚɪɢɚɧɬɚ Ɉɞɧɨɣ ɢɡ ɪɚɫɩɪɨɫɬɪɚɧɟɧɧɵɯ ɡɚɞɚɱ ɪɚɡɞɟɥɚ ɮɢɡɢɤɢ ©Ɇɨɥɟɤɭɥɹɪɧɨ-ɤɢɧɟɬɢɱɟɫɤɚɹ ɬɟɨɪɢɹª ɹɜɥɹɟɬɫɹɡɚɞɚɱɚɫɜɹɡɚɧɧɚɹɫɪɚɫɱɟɬɨɦɱɢɫɥɚɦɨɥɟɤɭɥɜɟɞɢɧɢɰɟɨɛɴɟɦɚɜɬɟɥɟɫ ɡɚɞɚɧɧɨɣ ɦɚɫɫɵ ɢ ɜ ɬɟɥɟ ɫ ɢɡɜɟɫɬɧɵɦ ɨɛɴɟɦɨɦ Ⱦɥɹ ɬɚɤɨɣ ɡɚɞɚɱɢ ɦɨɠɧɨ ɩɨ ɫɬɪɨɢɬɶɩɪɨɝɪɚɦɦɭ-ɪɟɲɚɬɟɥɶ ȾɚɧɨɦɨɥɹɪɧɚɹɦɚɫɫɚɜɟɳɟɫɬɜɚɆɩɥɨɬɧɨɫɬɶɞɚɧɧɨɝɨɜɟɳɟɫɬɜɚ Ɋɦɚɫɫɚ 5 ɢɥɢ ɨɛɴɟɦ ɞɚɧɧɨɝɨ ɬɟɥɚ 9 Ɍɪɟɛɭɟɬɫɹ ɧɚɣɬɢ ɱɢɫɥɨ ɦɨɥɟɤɭɥ Ʉ   ɜ ɟɞɢɧɢɰɟ ɦɚɫɫɵ ɜɟɳɟɫɬɜɚ   ɜ ɬɟɥɟ ɫ ɡɚɞɚɧɧɨɣ ɦɚɫɫɨɣ  ɜ ɟɞɢɧɢɰɟ ɨɛɴɟɦɚ ɜɟɳɟɫɬɜɚ 4 ɜɬɟɥɟɫɡɚɞɚɧɧɵɦɨɛɴɟɦɨɦȾɥɹɪɟɲɟɧɢɹɡɚɞɚɱɢɜɨɫɩɨɥɶɡɭɟɦɫɹɮɨɪɦɭɥɨɣ N$ . ----- R 0 107
ɝɞɟ1$  23 ɝɦɨɥɶ– ɱɢɫɥɨȺɜɨɝɚɞɪɨ. ɇɚɨɫɧɨɜɚɧɢɢ ɷɬɨɣɮɨɪɦɭɥɵɩɨɥɭɱɚɟɦɪɚɫɱɟɬɧɵɟɮɨɪɦɭɥɵɞɥɹɩɪɨɝɪɚɦ ɦɵ  . 1$0 . 1$50 . 1$ 390 . 1$ 30 ɉɪɨɝɪɚɦɦɚɢɦɟɟɬɜɢɞ program ( const 1$ ( var 1integer0539.real; begin writeln µɁɧɚɹɩɨɫɬɨɹɧɧɭɸȺɜɨɝɚɞɪɨɩɥɨɬɧɨɫɬɶɊɞɚɧɧɨɝɨɜɟɳɟɫɬɜɚ¶  writeln µɢɟɝɨɦɨɥɹɪɧɭɸɦɚɫɫɭɆɦɨɠɧɨɧɚɣɬɢɱɢɫɥɨɦɨɥɟɤɭɥɜ¶  writeln µȼɟɞɢɧɢɰɟɦɚɫɫɵɜɟɳɟɫɬɜɚ¶  writeln µȼɬɟɥɟɦɚɫɫɨɣ5¶  writeln µȼɟɞɢɧɢɰɟɨɛɴɟɦɚ¶  writeln µȼɬɟɥɟɨɛɴɟɦɨɦ9¶  write µȼɜɟɞɢɬɟɧɨɦɟɪɪɟɲɚɟɦɨɣɡɚɞɚɱɢ¶  readln 1  write µȼɜɟɞɢɬɟɢɫɯɨɞɧɵɟɞɚɧɧɵɟ0 ¶  readln 0  case N of . 1$ 0 begin write µ5 µ  readln 5  . 1$ 50 end begin write µɩɥɨɬɧɨɫɬɶɜɟɳɟɫɬɜɚ3 µ  readln 3  write µ9 µ  readln 9  . 1Ⱥ 3 90 end; begin write µɩɥɨɬɧɨɫɬɶɜɟɳɟɫɬɜɚ3 µ  readln 3  . 1Ⱥ 39 end; end; write (‘ɱɢɫɥɨ ɦɨɥɟɤɭɥ Ʉ µ.¶ HQG 108
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ11Ɉɩɟɪɚɬɨɪɜɚɪɢɚɧɬɚ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɜɵɛɨɪɚ ɢɡ ɩɪɨɢɡɜɨɥɶɧɨɝɨɱɢɫɥɚɢɦɟɸɳɢɯɫɹɜɚɪɢɚɧɬɨɜɫɩɪɢɦɟɧɟɧɢɟɦɨɩɟɪɚɬɨɪɚ&$6(. ɁɚɞɚɧɢɟɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɫɩɪɢɦɟɧɟ ɧɢɟɦ ɨɩɟɪɚɬɨɪɚ &$6( ȼɵɩɨɥɧɢɬɶ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶ ɪɟɡɭɥɶɬɚɬɵ ɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ1 ȼɚɪɢɚɧɬʋ Ɂɚɞɚɧɢɟ ȾɚɧɵɬɪɢɱɢɫɥɚaEcɭɞɨɜɥɟɬɜɨɪɹɸɳɢɟɚɤɫɢɨɦɟ ɬɪɟɭɝɨɥɶɧɢɤɚɢɱɢɫɥɨSȿɫɥɢS 1ɬɨɧɟɨɛɯɨɞɢɦɨɧɚɣɬɢ ɩɟɪɢɦɟɬɪɬɪɟɭɝɨɥɶɧɢɤɚɟɫɥɢS ɬɨɧɭɠɧɨɜɵɱɢɫɥɢɬɶ 1. ɩɥɨɳɚɞɶɬɪɟɭɝɨɥɶɧɢɤɚɟɫɥɢS ɬɨɧɟɨɛɯɨɞɢɦɨ ɨɩɪɟɞɟɥɢɬɶɭɝɨɥĮȼɞɪɭɝɢɯɫɥɭɱɚɹɯɧɭɠɧɨɜɵɜɟɫɬɢ ɧɚɷɤɪɚɧɫɥɨɜɨ©ɬɪɟɭɝɨɥɶɧɢɤª ȼɵɱɢɫɥɢɬɶɩɥɨɳɚɞɶɨɩɪɟɞɟɥɟɧɧɨɣɝɟɨɦɟɬɪɢɱɟɫɤɨɣ ɮɢɝɭɪɵ p ˜l ɟɫɥɢ k 1 ­ ° h p˜  ɟɫɥɢ k 2 ° 2 2. °° ɟɫɥɢ k 3 S ® 2S ˜ R ˜ h  ɟɫɥɢ k 4 ° 2S ˜ R ˜ l  2 ° ɟɫɥɢ k 5 S ˜R  ° °¯S ˜ R ˜ 2h  a  ɟɫɥɢ k 6. ȼɵɱɢɫɥɢɬɶɩɥɨɳɚɞɶɨɩɪɟɞɟɥɟɧɧɨɣɝɟɨɦɟɬɪɢɱɟɫɤɨɣ ɮɢɝɭɪɵ ɟɫɥɢ n 1 ­ a ˜ b ° h ɟɫɥɢ n 2 ° a˜  2 ° 3. ° h S ® a  b ˜  ɟɫɥɢ n 3 . 2 ° 2 ɟɫɥɢ n 4 ° S ˜R  a °S ˜ R 2 ˜  ɟɫɥɢ n 5. °¯ 360 ɇɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɩɨɧɨɦɟɪɭɚɜɬɨɦɨɛɢɥɹ 4. ɜɵɜɨɞɢɬɧɚɷɤɪɚɧɎ ɂ Ɉɟɝɨ ɜɥɚɞɟɥɶɰɚ ɞɥɹɚɜɬɨɦɨɛɢɥɟɣ 1 ɋɨɫɬɚɜɥɟɧɨɫɢɫɩɨɥɶɡɨɜɚɧɢɟɦɦɚɬɟɪɢɚɥɨɜ Ʉɨɦɚɪɨɜɚ ȿɋ ɉɪɚɤɬɢɤɭɦ ɩɨ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɸ ɧɚ ɹɡɵɤɟ ɉɚɫɤɚɥɶ  ȿɋ Ʉɨɦɚɪɨɜɚ – Ɇɨɫɤɜɚ  Ȼɟɪɥɢɧ  Ⱦɢɪɟɤɬ-Ɇɟɞɢɚ  – ɑ  – Ɋɟɠɢɦ ɞɨɫɬɭɩɚ ɩɨ ɩɨɞɩɢɫɤɟ – 85/ KWWSELEOLRFOXEUXLQGH[SKS"SDJH ERRN LG  109
ȼɚɪɢɚɧɬʋ 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. Ɂɚɞɚɧɢɟ ɉɨɧɨɦɟɪɭɞɧɹɧɟɞɟɥɢ « ɜɵɜɟɫɬɢɧɚɷɤɪɚɧ ɧɚɡɜɚɧɢɟɷɬɨɝɨɞɧɹɧɚɚɧɝɥɢɣɫɤɨɦɹɡɵɤɟɈɩɪɟɞɟɥɢɬɶ ɤɚɤɨɣɷɬɨɬɞɟɧɶ – ɪɚɛɨɱɢɣɢɥɢɜɵɯɨɞɧɨɣ ȼɡɚɜɢɫɢɦɨɫɬɢɨɬɜɪɟɦɟɧɢɝɨɞɚ ©ɡɢɦɚª©ɜɟɫɧɚª©ɥɟɬɨª ©ɨɫɟɧɶª ɨɯɚɪɚɤɬɟɪɢɡɨɜɚɬɶɩɨɝɨɞɧɵɟɭɫɥɨɜɢɹ ©ɨɱɟɧɶ ɯɨɥɨɞɧɨª©ɬɟɩɥɨª©ɠɚɪɤɨª©ɯɨɥɨɞɧɨª ȼɵɱɢɫɥɢɬɶɡɧɚɱɟɧɢɟɮɭɧɤɰɢɢ ɩɪɢ k 1 ­5 [ ° °7e [ ɩɪɢ k 2 °° 2 y ®VLQ [ ɩɪɢ k 3 ° ° 2 ° [  4 ɩɪɢ k 4. °¯ 3 ɇɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɩɨɨɩɪɟɞɟɥɟɧɧɨɦɭ ɝɨɞɭɢ ɧɨɦɟɪɭɦɟɫɹɰɚɜɵɜɨɞɢɬɧɚɷɤɪɚɧɤɨɥɢɱɟɫɬɜɨɞɧɟɣɜɷɬɨɦ ɦɟɫɹɰɟ Ⱦɥɹɜɜɟɞɟɧɧɨɣɫɤɥɚɜɢɚɬɭɪɵɰɢɮɪɵ – ɜɵɜɟɫɬɢɧɚɷɤɪɚɧ ɟɟɧɚɡɜɚɧɢɟɧɚɚɧɝɥɢɣɫɤɨɦɹɡɵɤɟ ɇɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɩɨɜɜɟɞɟɧɧɨɦɭɧɨɦɟɪɭ ɟɞɢɧɢɰɵɢɡɦɟɪɟɧɢɹ  – ɤɢɥɨɝɪɚɦɦ – ɦɢɥɥɢɝɪɚɦɦ 3 – ɝɪɚɦɦ – ɬɨɧɧɚ – ɰɟɧɬɧɟɪ ɢɦɚɫɫɟ0 ɜɵɱɢɫɥɹɥɚ ɫɨɨɬɜɟɬɫɬɜɭɸɳɟɟɡɧɚɱɟɧɢɟɦɚɫɫɵɜɤɢɥɨɝɪɚɦɦɚɯ ɇɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɩɨɜɜɟɞɟɧɧɨɦɭɧɨɦɟɪɭ ɜɪɟɦɟɧɢɝɨɞɚɜɵɜɨɞɢɥɚɧɚɷɤɪɚɧɧɚɡɜɚɧɢɟɦɟɫɹɰɟɜɟɦɭ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯɢɤɨɥɢɱɟɫɬɜɨɞɧɟɣɜɤɚɠɞɨɦɦɟɫɹɰɟ ȾɥɹɰɟɥɨɝɨɱɢɫɥɚN ɨɬɞɨ ɜɵɜɟɫɬɢɧɚɷɤɪɚɧ ɫɨɨɛɳɟɧɢɟ©ȽɪɚɠɞɚɧɢɧɭN ɥɟɬªɁɞɟɫɶɧɟɨɛɯɨɞɢɦɨ ɭɱɢɬɵɜɚɬɶɱɬɨɩɪɢɨɩɪɟɞɟɥɟɧɧɵɯɡɧɚɱɟɧɢɹɯN ɫɥɨɜɨ©ɥɟɬª ɧɭɠɧɨɡɚɦɟɧɢɬɶɫɥɨɜɨɦ©ɝɨɞªɢɥɢ©ɝɨɞɚªɇɚɩɪɢɦɟɪ ɥɟɬɝɨɞɚɝɨɞ ɇɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɩɨɜɜɟɞɟɧɧɨɦɭɧɨɦɟɪɭ ɟɞɢɧɢɰɵɢɡɦɟɪɟɧɢɹ  – ɞɟɰɢɦɟɬɪ – ɤɢɥɨɦɟɬɪ – ɦɟɬɪ 4 – ɦɢɥɥɢɦɟɬɪ – ɫɚɧɬɢɦɟɬɪ ɢɡɚɞɚɧɧɨɣɞɥɢɧɟɨɬɪɟɡɤɚL ɜɵɱɢɫɥɹɥɚɫɨɨɬɜɟɬɫɬɜɭɸɳɭɸɞɥɢɧɭɨɬɪɟɡɤɚɜɦɟɬɪɚɯ ɋɨɫɬɚɜɢɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɩɨɜɜɨɞɢɦɨɦɭɫɤɥɚɜɢɚɬɭɪɵ ɧɨɦɟɪɭɤɥɚɫɫɚ ɱɢɫɥɭk ɨɬɞɨ ɜɵɜɨɞɢɥɚɧɚɷɤɪɚɧ ɫɨɨɬɜɟɬɫɬɜɭɸɳɟɟɩɪɢɜɟɬɫɬɜɢɟ©Ɂɞɪɚɜɫɬɜɭɣk-ɤɥɚɫɫɧɢɤª ɇɚɩɪɢɦɟɪɟɫɥɢk 1ɬɨ – ©Ɂɞɪɚɜɫɬɜɭɣɩɟɪɜɨɤɥɚɫɫɧɢɤª Ⱦɚɧɵɞɜɚɞɟɣɫɬɜɢɬɟɥɶɧɵɯɩɨɥɨɠɢɬɟɥɶɧɵɯɱɢɫɥɚx ɢ\. Ⱥɪɢɮɦɟɬɢɱɟɫɤɢɟɨɩɟɪɚɰɢɢɧɚɞɱɢɫɥɚɦɢɩɪɨɧɭɦɟɪɨɜɚɧɵ ɫɥɟɞɭɸɳɢɦɨɛɪɚɡɨɦ – ɫɥɨɠɟɧɢɟ – ɜɵɱɢɬɚɧɢɟ 110
ȼɚɪɢɚɧɬʋ 16. Ɂɚɞɚɧɢɟ 3 – ɭɦɧɨɠɟɧɢɟ – ɞɟɥɟɧɢɟɇɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹ ɩɨɜɜɟɞɟɧɧɨɦɭɧɨɦɟɪɭɚɪɢɮɦɟɬɢɱɟɫɤɨɣɨɩɟɪɚɰɢɢ ɜɵɩɨɥɧɹɟɬɫɨɨɬɜɟɬɫɬɜɭɸɳɟɟɦɚɬɟɦɚɬɢɱɟɫɤɨɟɞɟɣɫɬɜɢɟɧɚɞ ɱɢɫɥɚɦɢ ɇɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɤɨɬɨɪɚɹɞɥɹɜɜɟɞɟɧɧɨɝɨɫɤɥɚɜɢɚɬɭɪɵ ɱɢɫɥɚ  –  ɜɵɜɨɞɢɬɧɚɷɤɪɚɧɫɨɨɬɜɟɬɫɬɜɭɸɳɟɟɧɚɡɜɚɧɢɟ ɜɪɟɦɟɧɢɝɨɞɚɧɚɚɧɝɥɢɣɫɤɨɦɹɡɵɤɟ Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ȼ ɩɪɨɰɟɫɫɟ ɜɵɩɨɥɧɟɧɢɹ ɞɚɧɧɨɣ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ɫɥɟɞɭɟɬ ɩɨɦɧɢɬɶ ɱɬɨ í ɨɩɟɪɚɬɨɪ &$6( ɩɪɢɦɟɧɹɟɬɫɹ ɞɥɹ ɜɵɛɨɪɚ ɨɩɪɟɞɟɥɟɧɧɨɝɨ ɧɚɩɪɚɜɥɟɧɢɹ ɞɚɥɶɧɟɣɲɟɝɨɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵɢɡɧɟɫɤɨɥɶɤɢɯɜɚɪɢɚɧɬɨɜ í ɜɵɛɨɪɨɩɪɟɞɟɥɟɧɧɨɝɨɧɚɩɪɚɜɥɟɧɢɹɯɨɞɚɩɪɨɝɪɚɦɦɵ ɢɧɫɬɪɭɤɰɢɢɢɥɢ ɫɨ ɜɨɤɭɩɧɨɫɬɢ ɢɧɫɬɪɭɤɰɢɣ  ɩɪɨɢɫɯɨɞɢɬ ɜɨ ɜɪɟɦɹ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɢ ɡɚɜɢɫɢɬ ɨɬ ɪɚɜɟɧɫɬɜɚ ɡɧɚɱɟɧɢɹ ɩɟɪɟɦɟɧɧɨɣ-ɫɟɥɟɤɬɨɪɚ ɤɨɧɫɬɚɧɬɟ ɭɤɚɡɚɧ ɧɨɣɩɟɪɟɞɨɩɪɟɞɟɥɟɧɧɨɣɢɧɫɬɪɭɤɰɢɟɣ ɢɥɢɝɪɭɩɩɨɣɢɧɫɬɪɭɤɰɢɣ  í ɟɫɥɢɜɪɟɡɭɥɶɬɚɬɟɫɨɜɩɚɞɟɧɢɹɩɟɪɟɦɟɧɧɨɣ-ɫɟɥɟɤɬɨɪɚɢɨɩɪɟɞɟɥɟɧɧɨɣɤɨɧ ɫɬɚɧɬɵɞɨɥɠɧɵɛɵɬɶɜɵɩɨɥɧɟɧɵɫɪɚɡɭɧɟɫɤɨɥɶɤɨɨɩɟɪɚɬɨɪɨɜ íɢɯɫɥɟɞɭ ɟɬɡɚɤɥɸɱɚɬɶɜɨɩɟɪɚɬɨɪɧɵɟɫɤɨɛɤɢbegin … end í ɩɟɪɟɦɟɧɧɨɣ-ɫɟɥɟɤɬɨɪɨɦ ɦɨɠɟɬ ɹɜɥɹɬɶɫɹ ɩɟɪɟɦɟɧɧɚɹ ɰɟɥɨɝɨ ɧɚɩɪɢɦɟɪ integer ɢɥɢɫɢɦɜɨɥɶɧɨɝɨɬɢɩɚ ɬɢɩɞɚɧɧɵɯchar). ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨɩɟ ɪɟɦɟɧɧɵɯɄɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢ ɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɜɵɛɨɪɚ ɢɡ ɩɪɨɢɡ ɜɨɥɶɧɨɝɨɱɢɫɥɚɢɦɟɸɳɢɯɫɹɜɚɪɢɚɧɬɨɜɫɩɪɢɦɟɧɟɧɢɟɦɨɩɟɪɚɬɨɪɚ&$6(. Ɂɚɞɚɧɢɟ ȼ ɪɟɞɚɤɬɨɪɟ 3DVFDO ɧɟɨɛɯɨɞɢɦɨ ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɨɩɟɪɚɬɨɪɚ&$6(ɤɨɬɨɪɚɹ ɞɥɹɜɜɟɞɟɧɧɨɝɨɫɤɥɚɜɢɚɬɭɪɵɱɢɫɥɚ – ɜɵɜɨɞɢɬɧɚɷɤɪɚɧ ɫɨɨɬɜɟɬɫɬɜɭɸɳɟɟɧɚɡɜɚɧɢɟɜɪɟɦɟɧɢɝɨɞɚ ɧɚɚɧɝɥɢɣɫɤɨɦɹɡɵɤɟ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` 111
var PRQWK integer^ɧɨɦɟɪɦɟɫɹɰɚ` begin ^ȼɵɜɨɞɫɨɨɛɳɟɧɢɹɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹɨɧɟɨɛɯɨɞɢɦɨɫɬɢɜɜɨɞɚɢɫɯɨɞɧɵɯɞɚɧɧɵɯ` writeln ȼɜɟɞɢɬɟɧɨɦɟɪɦɟɫɹɰɚ-  write('-!  readln(PRQWK  ^ɜɜɨɞɢɫɯɨɞɧɵɯɞɚɧɧɵɯɫɤɥɚɜɢɚɬɭɪɵ` case PRQWK of {ɁɚɞɚɧɢɟɭɫɥɨɜɢɣɜɵɛɨɪɚɜɨɩɟɪɚɬɨɪɟCASE} ^ȿɫɥɢɩɟɪɟɦɟɧɧɚɹ-ɫɟɥɟɤɬɨɪɪɚɜɧɚɬɨɧɚɷɤɪɚɧɛɭɞɟɬɜɵɜɟɞɟɧɨɫɨɨɛ ɳɟɧɢɟ³Winter´-Ɂɢɦɚ` writeln(':LQWHU  ^ȿɫɥɢɩɟɪɟɦɟɧɧɚɹ-ɫɟɥɟɤɬɨɪɪɚɜɧɚɬɨɧɚɷɤɪɚɧɛɭɞɟɬɜɵɜɟɞɟɧɨɫɨɨɛɳɟ ɧɢɟ³Spring´-ȼɟɫɧɚ` writeln('6SULQJ  ^ȿɫɥɢɩɟɪɟɦɟɧɧɚɹ-ɫɟɥɟɤɬɨɪɪɚɜɧɚɬɨɧɚɷɤɪɚɧɛɭɞɟɬɜɵɜɟɞɟɧɨɫɨɨɛɳɟ ɧɢɟ³Summer´-Ʌɟɬɨ` writeln('6XPPHU  ^ȿɫɥɢɩɟɪɟɦɟɧɧɚɹ-ɫɟɥɟɤɬɨɪɪɚɜɧɚɬɨɧɚɷɤɪɚɧɛɭɞɟɬɜɵɜɟɞɟɧɨɫɨɨɛ ɳɟɧɢɟ³Autumn´-Ɉɫɟɧɶ` writeln('$XWXPQ  ^ȿɫɥɢ ɩɨɥɶɡɨɜɚɬɟɥɶ ɜɜɟɥ ɱɢɫɥɨ ɤɨɬɨɪɨɟ ɧɟ ɩɪɢɧɚɞɥɟɠɢɬ ɞɢɚɩɚɡɨɧɭ - ɬɨ ɩɪɨɝɪɚɦɦɚɜɵɞɚɫɬɫɨɨɛɳɟɧɢɟɨɛɨɲɢɛɤɟɜɜɨɞɚ` else writeln Ɉɲɢɛɤɚɜɜɨɞɚ ɨɬɞɨ  end ^ɜɨɩɟɪɚɬɨɪɟCASEɩɟɪɟɞɫɥɭɠɟɛɧɵɦɫɥɨɜɨɦ³else´ɬɨɱɤɚɫɡɚɩɹɬɨɣ  ɫɬɚɜɢɬ ɫɹ` readln end. ɗɤɪɚɧɧɵɟ ɫɧɢɦɤɢ ɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal 112
ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵ ɫɨɜɩɚɥɢ ɫɪɟɡɭɥɶɬɚɬɚɦɢɪɚɫɱɟɬɨɜɜɪɭɱɧɭɸɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɩɪɨɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚ ɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. 2. 3. 4. ȼɤɚɤɢɯɫɥɭɱɚɹɯɰɟɥɟɫɨɨɛɪɚɡɧɨɩɪɢɦɟɧɹɬɶɨɩɟɪɚɬɨɪ&$6(" ɇɚɩɢɲɢɬɟɫɢɧɬɚɤɫɢɫɨɩɟɪɚɬɨɪɚ&$6( ɩɨɥɧɨɣɢɫɨɤɪɚɳɟɧɧɨɣɮɨɪɦɵ  Ʉɚɤɪɚɛɨɬɚɟɬɨɩɟɪɚɬɨɪ&$6(" Ʉɚɤ ɩɨɫɬɭɩɢɬɶ ɟɫɥɢ ɜ ɪɟɡɭɥɶɬɚɬɟ ɫɨɜɩɚɞɟɧɢɹ ɩɟɪɟɦɟɧɧɨɣ-ɫɟɥɟɤɬɨɪɚ ɢ ɨɩɪɟɞɟɥɟɧɧɨɣ ɤɨɧɫɬɚɧɬɵ ɜ ɨɩɟɪɚɬɨɪɟ &$6( ɞɨɥɠɧɵ ɛɵɬɶ ɜɵɩɨɥɧɟɧɵ ɫɪɚɡɭɧɟɫɤɨɥɶɤɨɨɩɟɪɚɬɨɪɨɜ" 5. Ʉɚɤɨɣɬɢɩɞɚɧɧɵɯɦɨɠɟɬɛɵɬɶɭɩɟɪɟɦɟɧɧɨɣ-ɫɟɥɟɤɬɨɪɚ" 113
Ɍɟɦɚ  ɉɈȾɉɊɈȽɊȺɆɆɕ ɉɪɢ ɪɚɡɪɚɛɨɬɤɟ ɩɪɨɝɪɚɦɦɵ ɢɧɨɝɞɚ ɩɨɹɜɥɹɸɬɫɹ ɩɨɜɬɨɪɹɟɦɵɟ ɝɪɭɩɩɵ ɞɟɣ ɫɬɜɢɣɢɥɢɜɨɡɧɢɤɚɟɬɧɟɨɛɯɨɞɢɦɨɫɬɶɪɚɫɱɥɟɧɢɬɶɩɪɨɝɪɚɦɦɭɧɚɮɭɧɤɰɢɨɧɚɥɶɧɵɟ ɦɨɞɭɥɢɫɞɟɥɚɬɶɟɟɫɬɪɭɤɬɭɪɭɢɟɪɚɪɯɢɱɟɫɤɨɣȾɥɹɷɬɨɝɨɜɨɜɫɟɯɹɡɵɤɚɯɩɪɨɝɪɚɦ ɦɢɪɨɜɚɧɢɹɫɭɳɟɫɬɜɭɸɬɫɪɟɞɫɬɜɚɨɪɝɚɧɢɡɚɰɢɢɩɨɞɩɪɨɝɪɚɦɦɉɪɢɪɟɲɟɧɢɢɫɥɨɠ ɧɨɣɡɚɞɚɱɢɪɟɤɨɦɟɧɞɭɟɬɫɹɫɧɚɱɚɥɚɚɥɝɨɪɢɬɦɚɡɚɬɟɦɢɩɪɨɝɪɚɦɦɭɪɚɡɪɚɛɚɬɵɜɚɬɶ ©ɫɜɟɪɯɭɜɧɢɡªɨɬɛɨɥɟɟɨɛɳɟɝɨɩɥɚɧɚɤɞɟɬɚɥɶɧɨɦɭȼɬɚɤɨɦɜɢɞɟɝɥɚɜɧɚɹɩɪɨ ɝɪɚɦɦɚɫɨɨɬɜɟɬɫɬɜɭɟɬɭɤɪɭɩɧɟɧɧɨɦɭɩɥɚɧɭɪɟɲɟɧɢɹɡɚɞɚɱɢɚɟɟɤɨɦɚɧɞɵ– ɜɵ ɡɨɜɭɫɨɨɬɜɟɬɫɬɜɭɸɳɟɣɩɨɞɡɚɞɚɱɢɪɟɚɥɢɡɨɜɚɧɧɨɣɜɜɢɞɟɩɨɞɩɪɨɝɪɚɦɦɵɂɞɹɩɨ ɬɚɤɨɦɭ ɩɭɬɢ ɫɨɡɞɚɧɢɹ ɩɪɨɝɪɚɦɦɵ ɦɨɠɧɨ ɨɬɞɟɥɶɧɵɟ ɦɟɥɤɢɟ ɮɭɧɤɰɢɢ ɪɟɚɥɢɡɨ ɜɵɜɚɬɶ ɫɧɚɱɚɥɚ ɜ ɜɢɞɟ ɧɟɛɨɥɶɲɢɯ ɩɨɞɩɪɨɝɪɚɦɦ ɩɪɨɜɟɪɹɬɶ ɢɯ ɧɚ ɤɨɧɬɪɨɥɶɧɵɯ ɩɪɢɦɟɪɚɯ ɢ ɬɨɥɶɤɨ ɭɛɟɞɢɜɲɢɫɶ ɜ ɩɪɚɜɢɥɶɧɨɫɬɢ ɪɚɛɨɬɵ ɜɤɥɸɱɚɬɶ ɜ ɫɨɫɬɚɜ ɨɫ ɧɨɜɧɨɣ ɩɪɨɝɪɚɦɦɵ ɗɬɨ ɭɞɨɛɧɟɟ ɩɪɨɞɟɥɵɜɚɬɶ ɢɦɟɹ ɜ ɪɚɫɩɨɪɹɠɟɧɢɢ ɹɡɵɤ ɩɨɡ ɜɨɥɹɸɳɢɣɩɨɥɧɨɫɬɶɸɜɵɞɟɥɢɬɶɩɨɞɩɪɨɝɪɚɦɦɭɢɡɬɟɤɫɬɚɨɫɧɨɜɧɨɣɩɪɨɝɪɚɦɦɵɜ ɜɢɞɟ ɨɬɞɟɥɶɧɨɝɨ ɦɨɞɭɥɹ ɂɫɩɨɥɶɡɨɜɚɧɢɟ ɩɨɞɩɪɨɝɪɚɦɦ ɩɨɡɜɨɥɹɟɬ ɪɚɡɪɚɛɚɬɵɜɚɬɶ ɩɪɨɝɪɚɦɦɭ ɩɨ ɱɚɫɬɹɦ ɩɨɪɭɱɚɬɶ ɪɟɚɥɢɡɚɰɢɸ ɛɨɥɶɲɢɯ ɩɪɨɟɤɬɨɜ ɝɪɭɩɩɚɦ ɪɚɡɪɚ ɛɨɬɱɢɤɨɜȼɫɨɫɬɚɜɬɚɤɢɯɝɪɭɩɩɜɯɨɞɹɬɫɩɟɰɢɚɥɢɫɬɵɞɚɧɧɨɣɧɚɭɤɢɢɥɢɩɪɨɢɡɜɨɞ ɫɬɜɚɢɡɨɛɥɚɫɬɢɤɨɬɨɪɨɣɪɟɲɚɟɬɫɹɡɚɞɚɱɚɤɨɦɩɶɸɬɟɪɧɵɟɚɧɚɥɢɬɢɤɢɪɚɡɪɚɛɚɬɵ ɜɚɸɳɢɟ ɚɥɝɨɪɢɬɦ ɢ ɫɬɪɭɤɬɭɪɢɪɭɸɳɢɟ ɞɚɧɧɵɟ ɚ ɬɚɤɠɟ ɩɪɨɝɪɚɦɦɢɫɬɵ ɨɛɴɟɞɢ ɧɹɸɳɢɟɚɥɝɨɪɢɬɦɢɞɚɧɧɵɟɜɩɪɨɝɪɚɦɦɟɞɥɹɤɨɦɩɶɸɬɟɪɚ. ȼ ɉɚɫɤɚɥɟ ɩɨɞɩɪɨɝɪɚɦɦɚ ɹɜɥɹɟɬɫɹ ɱɚɫɬɶɸ ɨɫɧɨɜɧɨɣ ɩɪɨɝɪɚɦɦɵ ɟɟ ɨɩɢ ɫɚɧɢɟɪɚɫɩɨɥɚɝɚɟɬɫɹɦɟɠɞɭɪɚɡɞɟɥɨɦvar ɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵɢɟɟɩɪɨɝɪɚɦɦɧɵɦ ɛɥɨɤɨɦ ɩɟɪɜɵɦbegin ɉɨɞɩɪɨɝɪɚɦɦɦɨɠɟɬɛɵɬɶɧɟɫɤɨɥɶɤɨɢɯɨɩɢɫɚɧɢɹɪɚɫ ɩɨɥɚɝɚɸɬɫɹɜɩɪɨɢɡɜɨɥɶɧɨɦɩɨɪɹɞɤɟɨɞɧɨɡɚɞɪɭɝɢɦɈɩɢɫɚɧɢɟɩɨɞɩɪɨɝɪɚɦɦɵ ɦɨɠɧɨɫɪɚɜɧɢɬɶɫɡɚɩɢɫɵɜɚɟɦɨɣɜɦɚɬɟɦɚɬɢɤɟɮɨɪɦɭɥɨɣ©ɜɨɛɳɟɦɜɢɞɟªɜɤɨ ɬɨɪɭɸɩɪɢɪɚɫɱɟɬɚɯɩɨɞɫɬɚɜɥɹɸɬɫɹɤɨɧɤɪɟɬɧɵɟɡɧɚɱɟɧɢɹɉɨɫɤɨɥɶɤɭɞɚɥɟɤɨɧɟ ɤɚɠɞɭɸ ɡɚɞɚɱɭ ɦɨɠɧɨ ɫɜɟɫɬɢ ɤ ɧɟɤɨɬɨɪɨɣ ɮɨɪɦɭɥɟ ɧɨ ɦɨɠɧɨ ɡɚɩɢɫɚɬɶ ɚɥɝɨ ɪɢɬɦɟɟɪɟɲɟɧɢɹɩɨɞɩɪɨɝɪɚɦɦɚ– ɷɬɨɬɚɠɟɢɧɫɬɪɭɤɰɢɹɩɨɪɟɲɟɧɢɸɧɟɤɨɬɨɪɨɣ ɡɚɞɚɱɢɄɚɤɢɮɨɪɦɭɥɭɩɨɞɩɪɨɝɪɚɦɦɭɦɨɠɧɨɢɫɩɨɥɶɡɨɜɚɬɶɞɥɹɪɚɡɥɢɱɧɵɯɞɚɧ ɧɵɯɩɟɪɟɞɚɜɚɟɦɵɯɢɡɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵɢɥɢɞɪɭɝɢɯɩɨɞɩɪɨɝɪɚɦɦ ɉɨɞɩɪɨɝɪɚɦɦɚ – ɷɬɨ ɫɩɟɰɢɚɥɶɧɵɦ ɨɛɪɚɡɨɦ ɨɮɨɪɦɥɟɧɧɵɣ ɚɥɝɨɪɢɬɦ ɤɨɬɨɪɵɣ ɦɨɠɟɬ ɦɧɨɝɨɤɪɚɬɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶɫɹ ɩɪɢ ɪɟɲɟɧɢɢ ɛɨɥɟɟ ɨɛɳɟɣ ɡɚɞɚɱɢ. ȼ ɉɚɫɤɚɥɟ ɪɚɡɥɢɱɚɸɬ ɞɜɚ ɜɢɞɚ ɩɨɞɩɪɨɝɪɚɦɦ ɩɪɨɰɟɞɭɪɵ ɢ ɮɭɧɤɰɢɢ Ɉɫ ɧɨɜɧɨɟɪɚɡɥɢɱɢɟɦɟɠɞɭɧɢɦɢɡɚɤɥɸɱɚɟɬɫɹɜɬɨɦɱɬɨɩɪɨɰɟɞɭɪɚɩɨɥɭɱɚɟɬɜɪɟ ɡɭɥɶɬɚɬɟɫɜɨɟɣɪɚɛɨɬɵɥɸɛɨɟɤɨɥɢɱɟɫɬɜɨɞɚɧɧɵɯɚɮɭɧɤɰɢɹ– ɬɨɥɶɤɨɨɞɧɨɡɧɚ ɱɟɧɢɟ ɉɨɞɩɪɨɝɪɚɦɦɵ ɢɦɟɸɬ ɫɬɪɭɤɬɭɪɭ ɚɧɚɥɨɝɢɱɧɭɸ ɝɥɚɜɧɨɣ ɩɪɨɝɪɚɦɦɟ Ɉɧɢ ɫɨɞɟɪɠɚɬɡɚɝɨɥɨɜɨɤɫɨɫɩɟɰɢɚɥɶɧɵɦɫɥɨɜɨɦ– ɩɪɢɡɧɚɤɨɦɩɨɞɩɪɨɝɪɚɦɦɵɢɦɹɢ ɩɪɢɧɟɨɛɯɨɞɢɦɨɫɬɢɫɩɢɫɤɢɩɟɪɟɞɚɜɚɟɦɵɯɧɚɨɛɪɚɛɨɬɤɭɢɩɨɥɭɱɚɟɦɵɯɢɡɩɨɞ ɩɪɨɝɪɚɦɦɵ ɞɚɧɧɵɯ Ɂɚɬɟɦ ɦɨɝɭɬ ɪɚɫɩɨɥɚɝɚɬɶɫɹ ɜɫɟ ɪɚɡɞɟɥɵ ɨɩɢɫɚɧɢɣ ɢɦɟɸ 114
ɳɢɟɫɹɜɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɟɦɟɬɨɤɤɨɧɫɬɚɧɬɬɢɩɨɜɢɩɟɪɟɦɟɧɧɵɯȼɷɬɢɯɪɚɡ ɞɟɥɚɯ ɨɩɢɫɵɜɚɸɬɫɹ ɞɚɧɧɵɟ ɢɫɩɨɥɶɡɭɟɦɵɟ ɬɨɥɶɤɨ ɜɧɭɬɪɢ ɩɨɞɩɪɨɝɪɚɦɦɵ ɢ ɹɜ ɥɹɸɳɢɟɫɹ ɩɪɨɦɟɠɭɬɨɱɧɵɦɢ ɩɪɢ ɟɟ ɜɵɩɨɥɧɟɧɢɢ Ɍɚɤɢɟ ɞɚɧɧɵɟ ɢɫɩɨɥɶɡɭɟɦɵɟ ɬɨɥɶɤɨɜɩɨɞɩɪɨɝɪɚɦɦɟɧɚɡɵɜɚɸɬɫɹɥɨɤɚɥɶɧɵɦɢȼɩɨɞɩɪɨɝɪɚɦɦɟɦɨɝɭɬɭɱɚɫɬ ɜɨɜɚɬɶɩɟɪɟɦɟɧɧɵɟɨɩɢɫɚɧɧɵɟɜɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɟɌɚɤɢɟɞɚɧɧɵɟɧɚɡɵɜɚɸɬɫɹ ɝɥɨɛɚɥɶɧɵɦɢ ɢɯ ɡɧɚɱɟɧɢɹ ɢ ɩɨɞɩɪɨɝɪɚɦɦɚ ɢ ɝɥɚɜɧɚɹ ɩɪɨɝɪɚɦɦɚ ɛɟɪɭɬ ɢɡ ɨɛ ɳɟɣɩɚɦɹɬɢ ɉɪɢɪɚɛɨɬɟɫɩɨɞɩɪɨɝɪɚɦɦɨɣɜɫɟɝɞɚɜɵɞɟɥɹɟɬɫɹɞɜɚɷɬɚɩɚɨɩɢɫɚɧɢɟɩɨɞ ɩɪɨɝɪɚɦɦɵɬɟ ɡɚɩɢɫɶɚɥɝɨɪɢɬɦɚɪɟɲɟɧɢɹɡɚɞɚɱɢɜɫɩɟɰɢɚɥɶɧɨɣɮɨɪɦɟɢɜɵ ɡɨɜɩɨɞɩɪɨɝɪɚɦɦɵ– ɩɟɪɟɞɚɱɚɟɣɞɚɧɧɵɯɧɚɨɛɪɚɛɨɬɤɭɢɡɜɵɡɵɜɚɟɦɨɣɩɪɨɝɪɚɦ ɦɵɤɨɬɨɪɚɹɜɫɜɨɸɨɱɟɪɟɞɶɦɨɠɟɬɛɵɬɶɩɨɞɩɪɨɝɪɚɦɦɨɣɢɩɨɥɭɱɟɧɢɟɨɛɪɚɬɧɨ ɪɟɡɭɥɶɬɚɬɨɜ Ɋɚɫɫɦɨɬɪɢɦɫɩɨɫɨɛɵɨɪɝɚɧɢɡɚɰɢɢɩɨɞɩɪɨɝɪɚɦɦɜɉɚɫɤɚɥɟ  ɉɪɨɰɟɞɭɪɵ ɉɪɨɰɟɞɭɪɚ – ɩɨɞɩɪɨɝɪɚɦɦɚ ɢɦɟɸɳɚɹ ɥɸɛɨɟ ɤɨɥɢɱɟɫɬɜɨ ɜɯɨɞɧɵɯ ɢ ɜɵ ɯɨɞɧɵɯɞɚɧɧɵɯɉɪɨɰɟɞɭɪɚɦɨɠɟɬɛɵɬɶɨɩɢɫɚɧɚɛɟɡɩɚɪɚɦɟɬɪɨɜɢɫɩɚɪɚɦɟɬɪɚ ɦɢɉɚɪɚɦɟɬɪɵ– ɷɬɨɞɚɧɧɵɟɢɡɡɚɝɨɥɨɜɤɚɩɪɨɰɟɞɭɪɵɤɚɤɩɟɪɟɞɚɜɚɟɦɵɟ ɟɣ ɧɚ ɨɛɪɚɛɨɬɤɭ ɬɚɤ ɢ ɩɨɥɭɱɚɟɦɵɟ ɜ ɜɢɞɟ ɪɟɡɭɥɶɬɚɬɨɜ Ɍɚɤɢɦ ɨɛɪɚɡɨɦ ɫ ɩɨɦɨɳɶɸ ɩɚɪɚɦɟɬɪɨɜ ɩɪɨɢɫɯɨɞɢɬɨɛɦɟɧɢɧɮɨɪɦɚɰɢɟɣɦɟɠɞɭɩɪɨɰɟɞɭɪɨɣɢɜɵɡɵɜɚɸɳɟɣ ɟɟɩɪɨɝɪɚɦɦɨɣ ɉɪɨɰɟɞɭɪɵɛɟɡɩɚɪɚɦɟɬɪɨɜ Ɉɩɢɫɚɧɢɟɩɪɨɰɟɞɭɪɵɢɦɟɟɬɜɢɞ procedure ɢɦɹ ^ɨɩɢɫɚɧɢɟɥɨɤɚɥɶɧɵɯɩɟɪɟɦɟɧɧɵɯ` begin ^ɨɩɟɪɚɬɨɪɵ` end; ɉɪɨɰɟɞɭɪɚ ɛɟɡ ɩɚɪɚɦɟɬɪɨɜ ɦɨɠɟɬ ɪɟɚɥɢɡɨɜɵɜɚɬɶ ɥɸɛɨɣ ɚɥɝɨɪɢɬɦ ȼɫɟ ɩɟɪɟɦɟɧɧɵɟ ɧɚɞ ɤɨɬɨɪɵɦɢ ɩɪɨɢɡɜɨɞɹɬ ɞɟɣɫɬɜɢɹ ɨɩɟɪɚɬɨɪɵ ɩɪɨɰɟɞɭɪɵ ɨɩɪɟ ɞɟɥɹɸɬɫɹ ɜ ɜɵɡɵɜɚɸɳɟɣ ɩɪɨɝɪɚɦɦɟ ɢɦ ɩɪɢɫɜɚɢɜɚɸɬɫɹ ɧɟɨɛɯɨɞɢɦɵɟ ɞɥɹ ɜɵ ɩɨɥɧɟɧɢɹɩɪɨɰɟɞɭɪɵɡɧɚɱɟɧɢɹ  Ɋɚɫɫɦɨɬɪɢɦ ɩɪɢɦɟɪ ɜɵɱɢɫɥɟɧɢɹ ɧɚɢɦɟɧɶɲɟɝɨ ɨɛɳɟɝɨ ɤɪɚɬɧɨɝɨ ɞɜɭɯ ɧɚɬɭɪɚɥɶɧɵɯ ɱɢɫɟɥ ɇɈɄ ; <  ɤɨɬɨɪɨɟ ɦɨɠɧɨ ɜɵɱɢɫɥɢɬɶ ɢɫɩɨɥɶɡɭɹ ɧɚɢɛɨɥɶɲɢɣɨɛɳɢɣɞɟɥɢɬɟɥɶɷɬɢɯɱɢɫɟɥɩɨɮɨɪɦɭɥɟ ɏ < +2. ;<  ----------------ɇɈȾ ;< 115
ɉɪɢɫɨɫɬɚɜɥɟɧɢɢɩɪɨɝɪɚɦɦɵɨɮɨɪɦɢɦ ɤɚɤɩɪɨɰɟɞɭɪɭɛɟɡɩɚɪɚɦɟɬɪɨɜɩɪɨ ɝɪɚɦɦɭ ȿ – ɜɵɱɢɫɥɟɧɢɟ ɇɈȾ ɩɨ ɚɥɝɨɪɢɬɦɭ ȿɜɤɥɢɞɚ Ɋɟɡɭɥɶɬɚɬ ɪɚɛɨɬɵ ɩɪɨɰɟ ɞɭɪɵ ɛɭɞɟɬ ɡɚɧɨɫɢɬɶɫɹ ɜ ɹɱɟɣɤɭ ɫ ɢɦɟɧɟɦ Ɇ ɩɟɪɟɦɟɧɧɚɹ Ɇ ɨɩɢɫɚɧɚ ɤɚɤ ɝɥɨ ɛɚɥɶɧɵɣ ɩɚɪɚɦɟɬɪ ɨɧɚ ɢɫɩɨɥɶɡɭɟɬɫɹ ɢ ɝɥɚɜɧɨɣ ɩɪɨɝɪɚɦɦɨɣ ɢ ɩɪɨɰɟɞɭɪɨɣ ȼ ɩɪɨɝɪɚɦɦɟɛɭɞɟɦɜɵɱɢɫɥɹɬɶɇɈɄɧɟɫɤɨɥɶɤɢɯɱɢɫɟɥɡɚɧɟɫɹɢɯɜɦɚɫɫɢɜɋɗɬɨɬ ɦɚɫɫɢɜ ɮɨɪɦɢɪɭɟɬɫɹɜɪɚɡɞɟɥɟɤɨɧɫɬɚɧɬɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵȿɫɥɢɞɚɧɧɵɟɨɩɪɟ ɞɟɥɹɸɬɫɹ ɜɪɚɡɞɟɥɟ ɤɨɧɫɬɚɧɬ ɨɧɢɧɟɬɪɟɛɭɸɬɞɨɩɨɥɧɢɬɟɥɶɧɨɝɨɨɩɢɫɚɧɢɹɜɪɚɡ ɞɟɥɟɩɟɪɟɦɟɧɧɵɯ var ɉɟɪɟɦɟɧɧɚɹɏɫɧɚɱɚɥɚɫɨɞɟɪɠɢɬɡɧɚɱɟɧɢɟɩɟɪɜɨɝɨɱɢɫɥɚ ɚ ɡɚɬɟɦ ɟɣ ɩɪɢɫɜɚɢɜɚɟɬɫɹ ɪɟɡɭɥɶɬɚɬ – ɇɈɄ ɞɜɭɯ ɩɟɪɜɵɯ ɱɢɫɟɥ ɉɟɪɟɦɟɧɧɚɹ < ɢɦɟɟɬ ɫɜɨɢɦ ɡɧɚɱɟɧɢɟ ɜɬɨɪɨɟ ɱɢɫɥɨ ɢɡ ɤɚɠɞɨɣ ɩɚɪɵ ɞɥɹ ɤɨɬɨɪɨɣ ɜɵɱɢɫɥɹɟɬɫɹ ɧɚɢɦɟɧɶɲɟɟɨɛɳɟɟɤɪɚɬɧɨɟɌɚɤɢɦɨɛɪɚɡɨɦɩɪɢɤɚɠɞɨɦɲɚɝɟɰɢɤɥɚɜɵɱɢɫɥɹɟɬ ɫɹ ɇɈɄɞɜɭɯɱɢɫɟɥɩɟɪɜɨɟɢɡɤɨɬɨɪɵɯɏɫɨɞɟɪɠɢɬɪɟɡɭɥɶɬɚɬɩɪɟɞɵɞɭɳɟɝɨɲɚɝɚ. ȼɵɡɨɜ ɩɪɨɰɟɞɭɪɵ 12' ɜɵɱɢɫɥɟɧɢɹ ɧɚɢɛɨɥɶɲɟɝɨ ɨɛɳɟɝɨ ɞɟɥɢɬɟɥɹ ɨɫɭ ɳɟɫɬɜɥɹɟɬɫɹɬɨɥɶɤɨɩɨɢɦɟɧɢ NOD; Ɍɟɤɫɬɩɪɨɝɪɚɦɦɵɢɦɟɟɬɜɢɞ program ( const FDUUD\>@of integer    var [\LPinteger procedure 12'^ɡɚɝɨɥɨɜɨɤɩɪɨɰɟɞɭɪɵ` var DEinteger^ɨɩɢɫɚɧɢɟɥɨɤɚɥɶɧɵɯɩɟɪɟɦɟɧɧɵɯ` begin D [E \^ɫɨɯɪɚɧɟɧɢɟɢɫɯɨɞɧɵɯɞɚɧɧɵɯ` while D!E do if D!Ethen a  D- E else E E- D P  D^ ɪɟɡɭɥɶɬɚɬɪɚɛɨɬɵɩɪɨɰɟɞɭɪɵɩɪɢɫɜɚɢɜɚɟɬɫɹɝɥɨɛɚɥɶɧɨɣɩɟ ɪɟɦɟɧɧɨɣ` end; ^ɤɨɧɟɰɩɪɨɰɟɞɭɪɵ` begin ^ɧɚɱɚɥɨɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` [ F>@ for L  to 5 do begin \  c >L @ 12'^ɜɵɡɨɜɩɪɨɰɟɞɭɪɵɛɟɡɩɚɪɚɦɟɬɪɨɜ` [ [ \div P^GLY- ɞɟɥɟɧɢɟɧɚɰɟɥɨɞɥɹɰɟɥɨɱɢɫɥɟɧɧɵɯ ɞɚɧɧɵɯ` end; write µɇɈɄ µ[ HQG ^ɤɨɧɟɰɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` 116
ɉɪɨɰɟɞɭɪɵɫɩɚɪɚɦɟɬɪɚɦɢȾɥɹɭɞɨɛɫɬɜɚɩɟɪɟɞɚɱɢɞɚɧɧɵɯɜɩɪɨɰɟɞɭɪɭ ɢɩɨɥɭɱɟɧɢɹɢɡɧɟɟɪɟɡɭɥɶɬɚɬɚɢɫɩɨɥɶɡɭɸɬɫɹɮɨɪɦɚɥɶɧɵɟɢɮɚɤɬɢɱɟɫɤɢɟɩɚɪɚ ɦɟɬɪɵ. Ɏɨɪɦɚɥɶɧɵɟ – ɭɫɥɨɜɧɵɟɨɛɨɡɧɚɱɟɧɢɹɜɨɩɢɫɚɧɢɢɩɪɨɰɟɞɭɪɵ – ɨɩɢɫɵ ɜɚɸɬɫɹɜɟɟɡɚɝɨɥɨɜɤɟɎɚɤɬɢɱɟɫɤɢɟ – ɫɤɨɬɨɪɵɦɢɬɪɟɛɭɟɬɫɹɜɵɩɨɥɧɢɬɶɩɪɨɰɟ ɞɭɪɭ – ɩɟɪɟɱɢɫɥɹɸɬɫɹ ɩɪɢ ɜɵɡɨɜɟ ɩɪɨɰɟɞɭɪɵ Ɏɨɪɦɚɥɶɧɵɟ ɢ ɮɚɤɬɢɱɟɫɤɢɟ ɩɚ ɪɚɦɟɬɪɵ ɞɨɥɠɧɵ ɫɨɨɬɜɟɬɫɬɜɨɜɚɬɶ ɩɨ ɤɨɥɢɱɟɫɬɜɭ ɬɢɩɭ ɢ ɩɨɪɹɞɤɭ ɫɥɟɞɨɜɚɧɢɹ Ɏɨɪɦɚɥɶɧɵɟ ɩɚɪɚɦɟɬɪɵ ɨɩɢɫɚɧɧɵɟ ɜ ɡɚɝɨɥɨɜɤɟ ɩɪɨɰɟɞɭɪɵ ɛɨɥɶɲɟ ɧɢɝɞɟ ɧɟ ɨɩɢɫɵɜɚɸɬɫɹɂɯɨɩɢɫɚɧɢɟɩɨɯɨɠɟɧɚɨɩɢɫɚɧɢɟɞɚɧɧɵɯɜɪɚɡɞɟɥɟɩɟɪɟɦɟɧɧɵɯ ɢɦɨɠɟɬɬɚɤɠɟɫɨɞɟɪɠɚɬɶɫɥɨɜɨYDU ɋɥɨɜɨvar ɜɡɚɝɨɥɨɜɤɟɩɪɨɰɟɞɭɪɵɫɬɚɜɢɬɫɹ ɩɟɪɟɞ ɬɟɦɢ ɩɚɪɚɦɟɬɪɚɦɢ ɢɦɟɧɚ ɤɨɬɨɪɵɯ ɫɨɨɬɜɟɬɫɬɜɭɸɬ ɜɵɯɨɞɧɵɦ ɞɚɧɧɵɦ Ɏɚɤɬɢɱɟɫɤɢɟɩɚɪɚɦɟɬɪɵɫɨɨɬɜɟɬɫɬɜɭɸɳɢɟɮɨɪɦɚɥɶɧɵɦɩɟɪɟɞɤɨɬɨɪɵɦɢɫɬɨɢɬ ɫɥɨɜɨ var ɦɨɝɭɬ ɛɵɬɶ ɬɨɥɶɤɨ ɢɦɟɧɚɦɢ ɩɟɪɟɦɟɧɧɵɯ ɉɟɪɟɞ ɢɦɟɧɚɦɢ ɮɨɪɦɚɥɶ ɧɵɯ ɩɟɪɟɦɟɧɧɵɯ ɹɜɥɹɸɳɢɦɢɫɹ ɜɯɨɞɧɵɦɢ ɞɚɧɧɵɦɢ ɩɪɨɰɟɞɭɪɵ ɦɨɠɧɨ ɫɥɨɜɨ var ɧɟɭɤɚɡɵɜɚɬɶȿɫɥɢɩɟɪɟɞɮɨɪɦɚɥɶɧɵɦɩɚɪɚɦɟɬɪɨɦɜɡɚɝɨɥɨɜɤɟɩɪɨɰɟɞɭɪɵ ɧɟɬɫɥɨɜɚvarɬɨɟɦɭɦɨɠɟɬɫɨɨɬɜɟɬɫɬɜɨɜɚɬɶɮɨɪɦɚɥɶɧɵɣɩɚɪɚɦɟɬɪɢɦɟɸɳɢɣ ɜɢɞ ɜɵɪɚɠɟɧɢɹ ɫɨɨɬɜɟɬɫɬɜɭɸɳɟɝɨ ɬɢɩɚ ȿɫɥɢ ɞɥɹ ɜɯɨɞɧɵɯ ɞɚɧɧɵɯ ɩɪɨɰɟɞɭɪɵ ɩɪɢɨɩɢɫɚɧɢɢɮɨɪɦɚɥɶɧɵɯɩɚɪɚɦɟɬɪɨɜɭɤɚɡɚɧɨɫɥɨɜɨvarɬɨɢɦɬɚɤɠɟɫɨɨɬɜɟɬ ɫɬɜɭɸɬɮɚɤɬɢɱɟɫɤɢɟɩɚɪɚɦɟɬɪɵ – ɢɦɟɧɚɩɟɪɟɦɟɧɧɵɯ  ɇɚɩɪɢɦɟɪɩɪɨɰɟɞɭɪɚ12'ɫɩɚɪɚɦɟɬɪɚɦɢɦɨɠɟɬɢɦɟɬɶɡɚɝɨɥɨɜɨɤ procedure 12' DE integervar Ninteger  ȼɵɡɨɜɷɬɨɣɩɪɨɰɟɞɭɪɵ12' [\P  ɢɥɢ12' P  ɉɟɪɟɦɟɧɧɵɟ ɜ ɡɚɝɨɥɨɜɤɟ ɩɪɨɰɟɞɭɪɵ – ɮɨɪɦɚɥɶɧɵɟ ɩɚɪɚɦɟɬɪɵ ɡɚɦɟɧɹɟ ɦɵɟɩɪɢɜɵɩɨɥɧɟɧɢɢɩɪɨɰɟɞɭɪɵɧɚɤɨɧɤɪɟɬɧɵɟɡɧɚɱɟɧɢɹɩɟɪɟɦɟɧɧɵɯ[ ɢy ɢɥɢ ɱɢɫɥɚ  ɢ  ȼ ɡɚɝɨɥɨɜɤɟ ɩɪɨɰɟɞɭɪɵ 12' ɨɩɢɫɚɧɵ ɮɨɪɦɚɥɶɧɵɟ ɩɚɪɚɦɟɬɪɵ a ɢb – ɜɯɨɞɧɵɟɞɚɧɧɵɟɞɥɹɤɨɬɨɪɵɯɧɚɯɨɞɢɬɫɹɧɚɢɛɨɥɶɲɢɣɨɛɳɢɣɞɟɥɢɬɟɥɶ k – ɪɟɡɭɥɶɬɚɬɪɚɛɨɬɵɩɪɨɰɟɞɭɪɵɉɪɢɜɵɡɨɜɟɩɪɨɰɟɞɭɪɵɩɟɪɟɦɟɧɧɚɹɚ ɩɪɢɦɟɬ ɡɧɚɱɟɧɢɟ[ɚ ɩɟɪɟɦɟɧɧɚɹb – ɡɧɚɱɟɧɢɟyɊɟɡɭɥɶɬɚɬɪɚɛɨɬɵɩɪɨɰɟɞɭɪɵɩɪɢɜɵ ɡɨɜɟ ɩɨɩɚɞɟɬ ɜ ɹɱɟɣɤɭ ɫ ɢɦɟɧɟɦ m ɤɨɬɨɪɨɣ ɫɨɨɬɜɟɬɫɬɜɭɟɬ ɮɨɪɦɚɥɶɧɵɣ ɩɚɪɚ ɦɟɬɪk. ɉɪɨɝɪɚɦɦɚɩɪɢɢɫɩɨɥɶɡɨɜɚɧɢɢɩɪɨɰɟɞɭɪɵɫɩɚɪɚɦɟɬɪɚɦɢɩɪɢɦɟɬɜɢɞ program ( const Farray >@of integer    var [\LPinteger procedure 12' DEinteger var Ninteger ^ɡɚɝɨɥɨɜɨɤ ɩɪɨɰɟɞɭɪɵ` begin while D!E do if D!Ethen D D- E else E E- D N D^ɡɧɚɱɟɧɢɟɩɟɪɟɦɟɧɧɨɣN- ɪɟɡɭɥɶɬɚɬɪɚɛɨɬɵɩɪɨɰɟɞɭɪɵ` end; ^ɤɨɧɟɰɩɪɨɰɟɞɭɪɵ` 117
begin ^ɧɚɱɚɥɨɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` [ F>@ for L  to 5 do begin \ F>L@ 12' [\P ^ɜɵɡɨɜɩɪɨɰɟɞɭɪɵɫɮɚɤɬɢɱɟɫɤɢɦɢɩɚɪɚ ɦɟɬɪɚɦɢ` [ [ \div m end; write µɇɈɄ µ[ HQG ^ɤɨɧɟɰɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ`  Ɋɚɫɫɦɨɬɪɢɦ ɟɳɟ ɨɞɢɧ ɩɪɢɦɟɪ ɢɫɩɨɥɶɡɨɜɚɧɢɹ ɩɪɨɰɟɞɭɪɵ ɫ ɩɚɪɚɦɟɬɪɚ ɦɢ ɇɚɣɞɟɦ ɫ ɩɨɦɨɳɶɸ ɩɪɨɰɟɞɭɪɵ ɫɪɟɞɧɟɟ ɚɪɢɮɦɟɬɢɱɟɫɤɨɟ ɧɚɢɛɨɥɶɲɢɣ ɢ ɧɚɢɦɟɧɶɲɢɣɷɥɟɦɟɧɬɵɦɚɫɫɢɜɚ program ( const Q  type 5 array >Q@of real var <5$%& realL integer procedure 6WDW ;5var 6PLQPD[ real  begin 6 PLQ [>@PD[ [>@ for L  to Qdo begin 6 6[>L@ if [>L@PLQthen PLQ [>L@ if [>L@!PD[then PD[ [>L@ end 6 6Q end; begin ^ɝɥɚɜɧɚɹ ɩɪɨɝɪɚɦɦɚ ` for L to Qdo read <>L@  6WDW <$%& ^ɜɵɡɨɜ ɩɪɨɰɟɞɭɪɵ ` writeln; write µɫɪɟɞɧɟɟ µ$µɧɚɢɦɟɧɶɲɟɟ µ%µɧɚɢɛɨɥɶɲɟɟ µ& HQG ȼɩɪɨɝɪɚɦɦɟȿɩɨɹɜɢɥɫɹɧɨɜɵɣɪɚɡɞɟɥɨɩɢɫɚɧɢɣ– ɪɚɡɞɟɥɬɢɩɨɜɞɚɧɧɵɯ typeȼɷɬɨɦɪɚɡɞɟɥɟɦɨɠɧɨɨɩɢɫɚɬɶɧɨɜɵɣɬɢɩɞɚɧɧɵɯɱɟɪɟɡɭɠɟɢɡɜɟɫɬɧɵɟɬɢ ɩɵ ɤɨɬɨɪɵɟ ɦɨɝɭɬ ɛɵɬɶ ɬɚɤ ɠɟ ɪɚɧɟɟ ɨɩɢɫɚɧɵ ɜ ɞɚɧɧɨɦ ɪɚɡɞɟɥɟ Ɍɢɩ ɞɚɧɧɵɯ R – ɷɬɨ ɦɚɫɫɢɜɵ ɢɡ n ɜɟɳɟɫɬɜɟɧɧɵɯ ɱɢɫɟɥ 5 – ɢɦɹ ɬɢɩɚ ȼ ɞɚɥɶɧɟɣɲɟɦ ɷɬɨɬ ɬɢɩ ɩɨɡɜɨɥɹɟɬ ɫɨɤɪɚɬɢɬɶ ɨɩɢɫɚɧɢɹ ɨɧ ɢɫɩɨɥɶɡɭɟɬɫɹ ɜ ɝɥɚɜɧɨɣ ɩɪɨɝɪɚɦɦɟ ɩɪɢ 118
ɨɩɢɫɚɧɢɢ ɢɫɯɨɞɧɨɝɨ ɦɚɫɫɢɜɚ < ɢ ɜ ɡɚɝɨɥɨɜɤɟ ɩɪɨɰɟɞɭɪɵ ɩɪɢ ɨɩɢɫɚɧɢɢ ɮɨɪ ɦɚɥɶɧɨɝɨɩɚɪɚɦɟɬɪɚ– ɦɚɫɫɢɜɚɏ Ƚɥɚɜɧɚɹ ɩɪɨɝɪɚɦɦɚ ɫɨɫɬɨɢɬ ɢɡ ɬɪɟɯ ɨɫɧɨɜɧɵɯ ɷɬɚɩɨɜ   ɜɜɨɞɚ ɞɚɧɧɵɯ – ɦɚɫɫɢɜɚ< ɜɵɡɨɜɚɩɪɨɰɟɞɭɪɵ6WDWFɮɚɤɬɢɱɟɫɤɢɦɢɩɚɪɚɦɟɬɪɚɦɢ– ɦɚɫɫɢɜɨɦ < ɢ ɩɨɥɭɱɚɟɦɵɦɢ ɪɟɡɭɥɶɬɚɬɚɦɢ ɩɨɩɚɞɚɸɳɢɦɢ ɫɨɨɬɜɟɬɫɬɜɟɧɧɨ ɜ ɹɱɟɣɤɢ Ⱥ (ɫɪɟɞɧɟɟ ɡɧɚɱɟɧɢɟ  ȼ  ɧɚɢɦɟɧɶɲɟɟ  ɢ ɋ ɧɚɢɛɨɥɶɲɟɟ    ɩɟɱɚɬɢ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ  ɉɨɞɩɪɨɝɪɚɦɦɵɮɭɧɤɰɢɢ ɉɨɞɩɪɨɝɪɚɦɦɚɢɦɟɸɳɚɹɟɞɢɧɫɬɜɟɧɧɵɣɪɟɡɭɥɶɬɚɬɦɨɠɟɬɛɵɬɶɨɮɨɪɦɥɟ ɧɚɤɚɤɮɭɧɤɰɢɹɈɩɢɫɚɧɢɟɮɭɧɤɰɢɢɢɦɟɟɬɜɢɞ function ɢɦɹBɮɭɧɤɰɢɢ  ɨɩɢɫɚɧɢɟ ɜɯɨɞɧɵɯ ɞɚɧɧɵɯ ɬɢɩBɪɟɡɭɥɶɬɚɬɚ ^ɨɩɢɫɚɧɢɹɥɨɤɚɥɶɧɵɯɩɟɪɟɦɟɧɧɵɯ` begin ^ɨɩɟɪɚɬɨɪɵ` ɢɦɹBɮɭɧɤɰɢɢ ɪɟɡɭɥɶɬɚɬ end;   ɉɨɫɥɟɨɩɢɫɚɧɢɹɮɨɪɦɚɥɶɧɵɯɩɚɪɚɦɟɬɪɨɜɤɨɬɨɪɵɟɹɜɥɹɸɬɫɹɚɪɝɭɦɟɧɬɚɦɢ ɮɭɧɤɰɢɢɜɡɚɝɨɥɨɜɤɟɭɤɚɡɵɜɚɟɬɫɹɬɢɩɪɟɡɭɥɶɬɚɬɚɬɟ ɬɢɩɫɚɦɨɣɮɭɧɤɰɢɢɗɬɨ ɨɩɢɫɚɧɢɟɨɬɧɨɫɢɬɫɹɤɢɦɟɧɢɮɭɧɤɰɢɢɤɨɬɨɪɨɦɭɧɟɨɛɯɨɞɢɦɨɩɪɢɫɜɨɢɬɶɡɧɚɱɟ ɧɢɟɪɟɡɭɥɶɬɚɬɚɪɚɛɨɬɵɩɨɞɩɪɨɝɪɚɦɦɵɄɚɤɢɩɪɨɰɟɞɭɪɚɮɭɧɤɰɢɹɦɨɠɟɬɫɨɞɟɪ ɠɚɬɶɜɫɟɱɟɬɵɪɟɪɚɡɞɟɥɚɨɩɢɫɚɧɢɣɥɨɤɚɥɶɧɵɯɩɟɪɟɦɟɧɧɵɯ ɂɦɹɮɭɧɤɰɢɢɧɟɥɶɡɹɢɫɩɨɥɶɡɨɜɚɬɶɞɥɹɩɪɨɦɟɠɭɬɨɱɧɵɯɜɵɱɢɫɥɟɧɢɣ Ɏɭɧɤɰɢɹɜɵɡɵɜɚɟɬɫɹɫɩɨɦɨɳɶɸɭɤɚɡɚɬɟɥɹɍɤɚɡɚɬɟɥɶ– ɷɬɨɢɦɹɮɭɧɤɰɢɢ ɩɨɫɥɟ ɤɨɬɨɪɨɝɨ ɜ ɤɪɭɝɥɵɯ ɫɤɨɛɤɚɯ ɩɟɪɟɱɢɫɥɟɧɵ ɮɚɤɬɢɱɟɫɤɢɟ ɩɚɪɚɦɟɬɪɵ – ɚɪ ɝɭɦɟɧɬɵɮɭɧɤɰɢɢɍɤɚɡɚɬɟɥɶɢɦɟɟɬɜɢɞ ɢɦɹBɮɭɧɤɰɢɢ ɫɩɢɫɨɤɮɚɤɬɢɱɟɫɤɢɯɩɚɪɚɦɟɬɪɨɜ ɍɤɚɡɚɬɟɥɶɦɨɠɟɬɩɨɹɜɢɬɶɫɹɜɜɵɪɚɠɟɧɢɢɫɨɨɬɜɟɬɫɬɜɭɸɳɟɝɨɬɢɩɚɜɭɫɥɨ ɜɢɹɯɨɩɟɪɚɬɨɪɨɜif , while ɢrepeat ɩɨɫɥɟɫɥɨɜɚuntilɚɬɚɤɠɟɜɨɩɟɪɚɬɨɪɟɩɟ ɱɚɬɢwriteɉɪɢɦɟɪɚɦɢɜɵɡɨɜɚɮɭɧɤɰɢɣɹɜɥɹɸɬɫɹɜɫɬɪɨɟɧɧɵɟɚɪɢɮɦɟɬɢɱɟɫɤɢɟ ɮɭɧɤɰɢɢɧɚɩɪɢɦɟɪ write VLQ [   Ɋɚɫɫɦɨɬɪɢɦ ɬɪɟɬɢɣ ɜɚɪɢɚɧɬ ɩɪɨɝɪɚɦɦɵ ɜɵɱɢɫɥɟɧɢɹ ɧɚɢɦɟɧɶɲɟɝɨ ɨɛ ɳɟɝɨɤɪɚɬɧɨɝɨɌɚɤɤɚɤ ɧɚɢɛɨɥɶɲɢɣɨɛɳɢɣɞɟɥɢɬɟɥɶɞɜɭɯɧɚɬɭɪɚɥɶɧɵɯɱɢɫɟɥ – ɟɞɢɧɫɬɜɟɧɧɨɟɱɢɫɥɨɬɨɜɵɱɢɫɥɹɸɳɭɸɟɝɨɩɨɞɩɪɨɝɪɚɦɦɭɦɨɠɧɨɨɮɨɪɦɢɬɶɤɚɤ ɮɭɧɤɰɢɸɉɪɨɝɪɚɦɦɚ ɢɦɟɟɬ ɜɢɞ 119
program ( const Farray >@of integer    var [\Linteger function 12' DEinteger) LQWHJHU^ɡɚɝɨɥɨɜɨɤ ɮɭɧɤɰɢɢ ` begin while D!E do if D!Ethen D D- E else E E- D 12' D^ɪɟɡɭɥɶɬɚɬɪɚɛɨɬɵɮɭɧɤɰɢɢɩɪɢɫɜɚɢɜɚɟɬɫɹɟɟɢɦɟɧɢ` end; ^ɤɨɧɟɰɨɩɢɫɚɧɢɹɮɭɧɤɰɢɢ` begin ^ɧɚɱɚɥɨɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` [ F>@ for L  to 5 do begin \ F>L@ [ [ \div 12' [\ ^ɜɵɡɨɜ ɮɭɧɤɰɢɢ ` end; write µɇɈɄ µ[ HQG ^ɤɨɧɟɰɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ`  Ɉɞɧɚ ɩɨɞɩɪɨɝɪɚɦɦɚ ɦɨɠɟɬ ɜɵɡɵɜɚɬɶ ɞɪɭɝɭɸ Ɋɚɫɫɦɨɬɪɢɦ ɩɪɨɝɪɚɦɦɭ ɭɬɨɱɧɟɧɢɹ ɤɨɪɧɹ ɭɪɚɜɧɟɧɢɹ ɦɟɬɨɞɨɦ ɞɟɥɟɧɢɹ ɨɬɪɟɡɤɚ ɩɨɩɨɥɚɦ ɩɪɢɦɟɪ ȿ  ɜɤɥɸɱɚɸɳɭɸɞɜɟɩɨɞɩɪɨɝɪɚɦɦɵɉɟɪɜɚɹɩɨɞɩɪɨɝɪɚɦɦɚ– ɩɪɨɰɟɞɭɪɚɪɟɚɥɢɡɭ ɸɳɚɹ ɦɟɬɨɞ ɩɨɥɨɜɢɧɧɨɝɨ ɞɟɥɟɧɢɹ ɜɬɨɪɚɹ – ɩɨɞɩɪɨɝɪɚɦɦɚ-ɮɭɧɤɰɢɹ ɜɵɱɢɫɥɹ ɸɳɚɹɡɧɚɱɟɧɢɹɮɭɧɤɰɢɢɜɬɪɟɛɭɟɦɵɯɬɨɱɤɚɯ program ( var DEH\real^DE– ɤɨɧɰɵɨɬɪɟɡɤɚɟ– ɬɨɱɧɨɫɬɶɭ– ɪɟɡɭɥɶɬɚɬ ɜɵɱɢɫɥɟɧɢɣ` procedure SUHFLVH DEHSV realvar F real ^ɩɪɨɰɟɞɭɪɚ ɭɬɨɱɧɟɧɢɹ ɤɨɪ ɧɹ` begin while DEV E- D !HSVdo begin F  DE  if I D  I F ! then D F else E F end; F  DE  end^ɤɨɧɟɰ ɩɪɨɰɟɞɭɪɵ ` function I [real real; ^ɡɚɝɨɥɨɜɨɤ ɮɭɧɤɰɢɢ ` begin I [ [- FRV [  end; ^ɤɨɧɟɰɨɩɢɫɚɧɢɹɮɭɧɤɰɢɢ` 120
begin ^ɧɚɱɚɥɨɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` write µɜɜɟɞɢɬɟɡɧɚɱɟɧɢɹɤɨɧɰɨɜɨɬɪɟɡɤɚµ  readln DE  write (‘ ɜɜɟɞɢɬɟ ɬɨɱɧɨɫɬɶµ  readln H  SUHFLVH DEH\  write µɤɨɪɟɧɶI [ ɧɚɨɬɪɟɡɤɟµDµ¶Eµɪɚɜɟɧ¶\ end^ɤɨɧɟɰɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ ɑɬɨɬɚɤɨɟɩɨɞɩɪɨɝɪɚɦɦɚɢɞɥɹɱɟɝɨɨɧɚɢɫɩɨɥɶɡɭɟɬɫɹ" Ɉɛɴɹɫɧɢɬɟɧɚɡɧɚɱɟɧɢɟɥɨɤɚɥɶɧɵɯɢɝɥɨɛɚɥɶɧɵɯɩɟɪɟɦɟɧɧɵɯ Ʉɚɤɩɪɨɢɫɯɨɞɢɬɨɛɦɟɧɞɚɧɧɵɦɢɫɩɪɨɰɟɞɭɪɨɣɛɟɡɩɚɪɚɦɟɬɪɨɜ" ɑɬɨɬɚɤɨɟɮɨɪɦɚɥɶɧɵɟɢɮɚɤɬɢɱɟɫɤɢɟɩɚɪɚɦɟɬɪɵ"  Ʉ ɱɟɦɭ ɨɬɧɨɫɢɬɫɹ ɨɩɢɫɚɧɢɟ ɬɢɩɚ ɜ ɤɨɧɰɟ ɡɚɝɨɥɨɜɤɚ ɩɨɞɩɪɨɝɪɚɦɦɵɮɭɧɤɰɢɢ" ɑɟɦɨɬɥɢɱɚɟɬɫɹɜɵɡɨɜɮɭɧɤɰɢɢɨɬɜɵɡɨɜɚɩɪɨɰɟɞɭɪɵ"  Ʉɚɤ ɡɚɞɚɬɶ ɡɧɚɱɟɧɢɹ ɷɥɟɦɟɧɬɨɜ ɦɚɫɫɢɜɚ ɛɟɡ ɢɫɩɨɥɶɡɨɜɚɧɢɹ ɨɩɟɪɚɬɨɪɚ ɜɜɨɞɚ"  ɉɪɢɦɟɪɵ ɩɪɨɝɪɚɦɦ ɩɪɟɞɵɞɭɳɢɯ ɩɚɪɚɝɪɚɮɨɜ ɤɪɨɦɟ ɪɚɫɫɦɨɬɪɟɧɧɵɯ ɜ ɞɚɧɧɨɦɨɮɨɪɦɢɬɶɫɢɫɩɨɥɶɡɨɜɚɧɢɟɦɩɪɨɰɟɞɭɪ 121
ɅɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟɉɨɞɩɪɨɝɪɚɦɦɵɎɭɧɤɰɢɢ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɨ ɫɨɡɞɚɧɢɸ ɢ ɩɪɢɦɟɧɟɧɢɸ ɩɨɞɩɪɨɝɪɚɦɦ-ɮɭɧɤɰɢɣ ɁɚɞɚɧɢɟɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɜɵɱɢɫɥɟɧɢɹ ɡɧɚɱɟɧɢɣɜɟɥɢɱɢɧɵ y Ⱦɥɹɧɚɯɨɠɞɟɧɢɹɫɭɦɦɫɨɡɞɚɬɶɩɨɞɩɪɨɝɪɚɦɦɭ-ɮɭɧɤɰɢɸ h – ɜɟɳɟɫɬɜɟɧɧɨɟ ɱɢɫɥɨ ɡɚɞɚɜɚɟɦɨɟ ɩɨɥɶɡɨɜɚɬɟɥɟɦ ɜɨ ɜɪɟɦɹ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦ ɦɵȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ Ɂɚɞɚɧɢɟ k 10  ¦ 7i 2  3 i  11 y 1. i 1 n 3  ¦ 4i 2  2  h i 2 k y 2. 2 i 2  5i  7  h ¦ i 3 n 17  ¦ i 2  2h i 1 k 3 h  3 ˜ ¦ i 3  18 y 3. i 1 n 3 18  ¦ 2 i  i 2  7i  4 i 4 k 4. 3  2 ˜ ¦ 3 i 2  i  12 y i 2 n k 2 8  ¦ 4 i  24  7 ˜ ¦ 7i  1 i 3 i 1 k 5. y 2 2 11  ¦ i  h  3 2 i 2 n h 2  ¦ 3i 2  2 i  1 2 i 1 k y 6. 2  ¦ 5i 3  i  7 i 3 n 4  ¦ 3i 2  3i  h i 1 k 7. y 3h  ¦ 3 i 3  2 i 2  4 i 2 n 14  ¦ 7i 2  2h  7 i 1 122
ȼɚɪɢɚɧɬʋ Ɂɚɞɚɧɢɟ k 3  ¦ i3  i2  1 y 8. i 1 n h  5 ˜ ¦ 8 i 2  16 i 3 k y 9. 4 i 2  3i  h ¦ i 2 n 14  ¦ 5i 2  i i 1 k ¦ 6i y 10. 2  2i  h 3 i 1 n ¦ 3i 2  21 3 i 1 k 2 11. h  2 ˜ ¦ 5 i 2  4 i  10 y i 3 n 2  ¦ 10 i 2  h i 2 k 12. 7  ¦ 3 i 3  7i  2 y i 1 n h  ¦ 5 i 3  10 i 2  21 i 4 k 13. 11  ¦ 4 i 2  5 i y i 1 n 20  ¦ i 2  i  h  1 i 3 k 2 h  ¦ 3 i 2  18 y 14. i 2 n 4  ¦ 2 i 2  7i  h i 4 k 15. y 5h  ¦ 2 i 3  i 2  24 i 1 n 7  ¦ i3  i2  i  h i 3 k 16. 14  ¦ i 3  i  21 y i 3 n 2h  ¦ 0.5 i 3  2 i  h i 1 123
Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ Ʉɚɠɞɚɹ ɢɡ ɮɨɪɦɭɥ ɞɥɹ ɜɵɱɢɫɥɟɧɢɹ ɡɧɚɱɟɧɢɹ ɜɟɥɢɱɢɧɵ y ɫɨɞɟɪɠɢɬ ɧɟ ɫɤɨɥɶɤɨɩɨɯɨɠɢɯɜɵɪɚɠɟɧɢɣ – ɫɭɦɦ ɉɨɷɬɨɦɭ ɫɨɡɞɚɜɚɹ ɤɨɞɩɪɨɝɪɚɦɦɵɰɟɥɟ ɫɨɨɛɪɚɡɧɨ ɧɚɩɢɫɚɬɶ ɩɨɥɶɡɨɜɚɬɟɥɶɫɤɭɸ ɮɭɧɤɰɢɸ ɤɨɬɨɪɚɹ ɛɭɞɟɬ ɨɩɪɟɞɟɥɹɬɶ ɞɚɧɧɵɟɫɭɦɦɵ ɋɥɟɞɭɟɬɩɨɦɧɢɬɶɱɬɨɢɦɟɧɚɮɭɧɤɰɢɣɮɨɪɦɢɪɭɸɬɫɹɩɨɬɟɦɠɟɩɪɚɜɢɥɚɦ ɱɬɨɢɢɦɟɧɚɩɟɪɟɦɟɧɧɵɯɌɨɟɫɬɶɨɧɢɦɨɝɭɬɫɨɫɬɨɹɬɶ ɢɡɥɚɬɢɧɫɤɢɯɛɭɤɜɰɢɮɪɢ ɧɢɠɧɟɝɨ ɡɧɚɤɚ ɩɨɞɱɟɪɤɢɜɚɧɢɹ ɢ ɨɛɹɡɚɬɟɥɶɧɨ ɧɚɱɢɧɚɸɬɫɹ ɫ ɛɭɤɜɵ ȼ ɤɚɱɟɫɬɜɟ ɢɦɟɧɮɭɧɤɰɢɣɧɟɥɶɡɹɢɫɩɨɥɶɡɨɜɚɬɶɫɥɭɠɟɛɧɵɟɫɥɨɜɚ ɉɪɢɫɬɭɩɚɹ ɤ ɪɚɛɨɬɟ ɧɚɞ ɡɚɞɚɧɢɟɦ ɩɟɪɜɨɧɚɱɚɥɶɧɨ ɧɟɨɛɯɨɞɢɦɨ ɡɚɩɢɫɚɬɶ ɜɵɪɚɠɟɧɢɟ ɞɥɹ ɜɵɱɢɫɥɟɧɢɹ ɫɭɦɦɵ ɜ ɨɛɳɟɦ ɜɢɞɟ ɤɨɬɨɪɨɟ ɩɨɞɨɣɞɟɬ ɞɥɹ ɜɫɟɯ ɜɯɨɞɹɳɢɯɜɮɨɪɦɭɥɭɫɨɫɬɚɜɧɵɯɷɥɟɦɟɧɬɨɜ – ɫɭɦɦ Ɋɚɫɫɦɨɬɪɢɦ ɡɚɞɚɱɭ ɜɚɪɢɚɧɬɚ  Ɋɚɫɱɟɬɧɚɹ ɮɨɪɦɭɥɚ ɞɥɹ ɷɬɨɝɨ ɜɚɪɢɚɧɬɚ ɩɪɟɞɫɬɚɜɥɟɧɚɜɵɪɚɠɟɧɢɟɦ k y 14  ¦ i 3  i  21 i 3 n . 2h  ¦ 0.5 i 3  2 i  h i 1 ɉɪɟɞɫɬɚɜɥɟɧɧɚɹ ɜɵɲɟ ɮɨɪɦɭɥɚ ɩɪɟɞɩɨɥɚɝɚɟɬ ɧɚɯɨɠɞɟɧɢɟ ɡɧɚɱɟɧɢɣ ɫɥɟ ɞɭɸɳɢɯɞɜɭɯɫɭɦɦ S1 k n i 3 i 1 ¦ i 3  i  21  S 2 ¦ 0.5 i 3  2 i  h . ɉɨɷɬɨɦɭ ɢɫɤɨɦɨɟɜɵɪɚɠɟɧɢɟɞɥɹɧɚɯɨɠɞɟɧɢɹ ɫɭɦɦɵɦɨɠɟɬɛɵɬɶɡɚɩɢɫɚ ɧɨ ɫɥɟɞɭɸɳɢɦɨɛɪɚɡɨɦ sum(k1 k 2 a3 a 2 a1 a 0) k2 ¦ a3 ˜ i 3  a 2 ˜ i 2  a1 ˜ i  a0 . i k1 ɋɭɦɦɚ6ɦɨɠɟɬɛɵɬɶɧɚɣɞɟɧɚ ɫɩɨɦɨɳɶɸɫɥɟɞɭɸɳɟɝɨɜɵɡɨɜɚɮɭɧɤɰɢɢ sum(3k1021)Ⱥ ɫɭɦɦɭ S2 ɦɨɠɧɨɨɩɪɟɞɟɥɢɬɶɫɩɨɦɨɳɶɸɜɵɡɨɜɚɮɭɧɤɰɢɢ sum(1n0.5 h). ɉɪɟɞɟɥɵɫɭɦɦɢɪɨɜɚɧɢɹɦɨɠɧɨɡɚɞɚɜɚɬɶ ɜɩɪɨɝɪɚɦɦɟɜɜɢɞɟɤɨɧɫɬɚɧɬ ɇɟɨɛɯɨɞɢɦɨ ɩɨɦɧɢɬɶ ɱɬɨ ɩɪɢ ɫɨɡɞɚɧɢɢ ɮɭɧɤɰɢɢ ɩɟɪɟɞ ɡɚɜɟɪɲɟɧɢɟɦ ɟɟ ɨɩɢɫɚɧɢɹ ɩɟɪɟɞ end) ɢɦɟɧɢɮɭɧɤɰɢɢɨɛɹɡɚɬɟɥɶɧɨɧɭɠɧɨɩɪɢɫɜɨɢɬɶɪɟɡɭɥɶɬɚɬ ɪɚɛɨɬɵ ɮɭɧɤɰɢɢ Ɍɚɤɠɟ ɧɭɠɧɨ ɭɱɢɬɵɜɚɬɶ ɱɬɨ ɢɦɹ ɮɭɧɤɰɢɢ ɧɟɥɶɡɹ ɢɫɩɨɥɶɡɨ ɜɚɬɶɞɥɹɩɪɨɦɟɠɭɬɨɱɧɵɯɜɵɱɢɫɥɟɧɢɣ Ʉɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢɤɨɦ ɦɟɧɬɚɪɢɹɦɢ ȼɵɜɨɞ ɪɟɡɭɥɶɬɚɬɨɜ ɧɚ ɷɤɪɚɧ ɞɨɥɠɟɧ ɩɪɟɞɜɚɪɹɬɶɫɹ ɫɨɨɬɜɟɬɫɬɜɭɸ ɳɢɦɢɫɨɨɛɳɟɧɢɹɦɢɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹ 124
ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascalȾɥɹɩɪɨɜɟɪɤɢɤɨɪɪɟɤɬɧɨɫɬɢɫɨɫɬɚɜɥɟɧɧɨɣɩɪɨɝɪɚɦɦɵɪɟɤɨ ɦɟɧɞɭɟɬɫɹɩɪɨɜɟɫɬɢɩɚɪɚɥɥɟɥɶɧɵɟɪɚɫɱɟɬɵɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟȼɨɬɱɟɬɩɨ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɩɨɦɟɫɬɢɬɶ ɷɤɪɚɧɧɵɣ ɫɧɢɦɨɤ ɪɟɡɭɥɶɬɚɬɚ ɞɚɧɧɨɣɩɪɨɜɟɪɤɢ ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɨ ɫɨɡɞɚɧɢɸ ɢ ɩɪɢɦɟɧɟɧɢɸ ɩɨɞɩɪɨ ɝɪɚɦɦ-ɮɭɧɤɰɢɣ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɜɵɱɢɫɥɟɧɢɹɡɧɚ ɱɟɧɢɣɜɟɥɢɱɢɧɵ k y 14  ¦ i 3  i  21 i 3 n . 2h  ¦ 0.5 i 3  2 i  h i 1 Ⱦɥɹɧɚɯɨɠɞɟɧɢɹɫɭɦɦɫɨɡɞɚɬɶɩɨɞɩɪɨɝɪɚɦɦɭ-ɮɭɧɤɰɢɸ h – ɜɟɳɟɫɬɜɟɧɧɨɟɱɢɫ ɥɨ ɡɚɞɚɜɚɟɦɨɟ ɩɨɥɶɡɨɜɚɬɟɥɟɦ ɜɨ ɜɪɟɦɹ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ ȼɵɩɨɥɧɢɬɶ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` uses Crt const Q N  var \Kreal {ɋɨɡɞɚɟɦɮɭɧɤɰɢɸ} function sum NNintegerDDDDreal real var Linteger {ɫɱɟɬɱɢɤɰɢɤɥɚ} sreal^ɜɫɩɨɦɨɝɚɬɟɥɶɧɚɹɩɟɪɟɦɟɧɧɚɹɞɥɹɧɚɤɨɩɥɟɧɢɹɜɟɥɢɱɢɧɵɢɫɤɨɦɨɣɫɭɦɦɵ` begin ^ɜ ɩɟɪɟɦɟɧɧɭɸ s ɩɨɦɟɳɚɟɦ ɬɨ ɡɧɚɱɟɧɢɟ ɤɨɬɨɪɨɟ ɧɟ ɦɟɧɹɟɬ ɪɟɡɭɥɶɬɚɬ ɫɭɦɦɢɪɨɜɚ ɧɢɹ` s  {Ɉɩɪɟɞɟɥɟɧɢɟɫɭɦɦɵ} for L Nto k2 do V VD VTU L LD VTU L D LD VXP s^ɢɦɟɧɢɮɭɧɤɰɢɢɩɪɢɫɜɚɢɜɚɟɦɪɟɡɭɥɶɬɚɬɟɟɜɵɩɨɥɧɟɧɢɹ` end begin ^ɧɚɱɚɥɨɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ`  ^ȼɜɨɞɞɚɧɧɵɯ` write(‘ȼɜɟɞɢɬɟɩɚɪɚɦɟɬɪK ¶  readln(K  125
^ɇɚɯɨɠɞɟɧɢɟɡɧɚɱɟɧɢɹɢɫɤɨɦɨɣɜɟɥɢɱɢɧɵyɫɩɨɦɨɳɶɸɜɵɡɨɜɚɫɨɡɞɚɧɧɨɣɮɭɧɤɰɢɢ sum} \  4 sXP 3k11   K sXP 1Q0.5K  ^ȼɵɜɨɞɪɟɡɭɥɶɬɚɬɚɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ` writeln(‘\ ¶\   readln end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɜɵɱɢɫɥɟɧɢɣɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ ȼɵɜɨɞɵ. ɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫ ɪɟɡɭɥɶɬɚɬɚɦɢ ɪɚɫɱɟɬɨɜ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɦɨɠɧɨ ɝɨɜɨɪɢɬɶ ɨ ɬɨɦ ɱɬɨ ɩɪɨ ɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ 126
Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. ɑɬɨɬɚɤɨɟɩɨɞɩɪɨɝɪɚɦɦɚ-ɮɭɧɤɰɢɹɜɹɡɵɤɟɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹPascal" 2. Ʉɚɤɢɟɭɞɨɛɫɬɜɚɩɪɟɞɨɫɬɚɜɥɹɟɬɩɨɞɩɪɨɝɪɚɦɦɚ-ɮɭɧɤɰɢɹɪɚɡɪɚɛɨɬɱɢɤɭ ɩɪɨ ɝɪɚɦɦ" 3. ɇɚɩɢɲɢɬɟɫɢɧɬɚɤɫɢɫɨɩɢɫɚɧɢɹɩɨɞɩɪɨɝɪɚɦɦɵ-ɮɭɧɤɰɢɢɜɪɚɡɞɟɥɟvar. 4. ɉɨɤɚɤɢɦɩɪɚɜɢɥɚɦɮɨɪɦɢɪɭɸɬɫɹɢɦɟɧɚɩɨɞɩɪɨɝɪɚɦɦ-ɮɭɧɤɰɢɣ" 5. Ʉɚɤɦɨɠɧɨɜɵɡɜɚɬɶɩɨɞɩɪɨɝɪɚɦɦɭ-ɮɭɧɤɰɢɸɜɨɫɧɨɜɧɨɣɩɪɨɝɪɚɦɦɟ" 6. Ɇɨɠɧɨɥɢɢɦɹɮɭɧɤɰɢɢɢɫɩɨɥɶɡɨɜɚɬɶɞɥɹɩɪɨɦɟɠɭɬɨɱɧɵɯɜɵɱɢɫɥɟɧɢɣ" 7. Ɉɩɢɲɢɬɟ ɚɥɝɨɪɢɬɦ ɩɪɢɦɟɧɟɧɧɵɣ ɜ ɪɚɦɤɚɯ ɜɵɩɨɥɧɟɧɢɹ ɞɚɧɧɨɣ ɥɚɛɨɪɚ ɬɨɪɧɨɣɪɚɛɨɬɵ 127
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟɉɪɨɰɟɞɭɪɵɢɮɭɧɤɰɢɢ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɨ ɫɨɡɞɚɧɢɸ ɢ ɩɪɢɦɟɧɟɧɢɸ ɩɨɞɩɪɨɝɪɚɦɦ – ɩɪɨɰɟɞɭɪɢɮɭɧɤɰɢɣ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɨɛɪɚɛɨɬɤɢ ɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚɪɚɡɦɟɪɧɨɫɬɢn ɫɩɪɢɦɟɧɟɧɢɟɦɩɪɨɰɟɞɭɪɢɮɭɧɤɰɢɣ ɜɜɨɞ ɢɜɵɜɨɞɦɚɫɫɢɜɨɜɧɭɠɧɨɨɮɨɪɦɢɬɶɜɜɢɞɟɩɪɨɰɟɞɭɪɚɜɵɱɢɫɥɟɧɢɹɢɩɪɟɨɛɪɚɡɨ ɜɚɧɢɹɜɦɚɫɫɢɜɟ – ɜɜɢɞɟɮɭɧɤɰɢɣ ȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶ ɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. 5. 6. 7. 8. 9. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ Ɂɚɞɚɧɢɟ 1. ɇɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɩɨɫɥɟɦɢɧɢɦɚɥɶɧɨɝɨɩɨɦɨɞɭɥɸɷɥɟɦɟɧɬɚ 2. ɍɩɨɪɹɞɨɱɢɬɶɦɚɫɫɢɜɩɨɜɨɡɪɚɫɬɚɧɢɸ 1. ɇɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɩɨɫɥɟɦɚɤɫɢɦɚɥɶɧɨɝɨɩɨɦɨɞɭɥɸɷɥɟɦɟɧɬɚ 2. ɍɩɨɪɹɞɨɱɢɬɶɦɚɫɫɢɜɩɨɭɛɵɜɚɧɢɸ 1. ɇɚɣɬɢɫɭɦɦɭɤɜɚɞɪɚɬɨɜɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɩɨɫɥɟɦɢɧɢɦɚɥɶɧɨɝɨɷɥɟɦɟɧɬɚ 2. ɍɩɨɪɹɞɨɱɢɬɶ ɦɚɫɫɢɜɩɨɜɨɡɪɚɫɬɚɧɢɸɦɨɞɭɥɟɣɷɥɟɦɟɧɬɨɜ 1. ɇɚɣɬɢɫɭɦɦɭɤɜɚɞɪɚɬɨɜɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɩɨɫɥɟɦɚɤɫɢɦɚɥɶɧɨɝɨɷɥɟɦɟɧɬɚ 2. ɍɩɨɪɹɞɨɱɢɬɶɦɚɫɫɢɜɩɨɭɛɵɜɚɧɢɸɦɨɞɭɥɟɣɷɥɟɦɟɧɬɨɜ 1. ɇɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɦɟɠɞɭɦɚɤɫɢɦɚɥɶɧɵɦɢɦɢɧɢɦɚɥɶɧɵɦ ɷɥɟɦɟɧɬɚɦɢ 2. ɍɞɚɥɢɬɶɢɡɦɚɫɫɢɜɚɷɥɟɦɟɧɬɵc ɧɟɱɟɬɧɵɦɢɧɞɟɤɫɨɦ Ɉɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ 1. ɇɚɣɬɢɫɭɦɦɭɦɨɞɭɥɟɣɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɩɨɫɥɟɩɟɪɜɨɝɨɨɬɪɢɰɚɬɟɥɶɧɨɝɨɷɥɟɦɟɧɬɚ 2. ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɷɥɟɦɟɧɬɵɪɚɜɧɵɟɡɚɬɟɦ – ɨɫɬɚɥɶɧɵɟ 1. ɇɚɣɬɢɫɭɦɦɭɤɜɚɞɪɚɬɨɜɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɩɨɫɥɟɩɟɪɜɨɝɨɧɭɥɟɜɨɝɨɷɥɟɦɟɧɬɚ 2. ɗɥɟɦɟɧɬɵɪɚɜɧɵɟɪɚɫɩɨɥɨɠɢɬɶɩɨɫɥɟɜɫɟɯɨɫɬɚɥɶɧɵɯ 1. ɇɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɦɟɠɞɭɩɟɪɜɵɦɢɜɬɨɪɵɦɩɨɥɨɠɢɬɟɥɶɧɵɦɢ ɷɥɟɦɟɧɬɚɦɢ 2. ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɱɟɬɧɵɟɡɚɬɟɦ – ɧɟɱɟɬɧɵɟɷɥɟɦɟɧɬɵ 1. ɇɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɦɟɠɞɭɩɟɪɜɵɦɢɜɬɨɪɵɦɨɬɪɢɰɚɬɟɥɶɧɵɦɢ ɷɥɟɦɟɧɬɚɦɢ 2. ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɧɟɱɟɬɧɵɟɡɚɬɟɦ– ɱɟɬɧɵɟɷɥɟɦɟɧɬɵ 128
ȼɚɪɢɚɧɬʋ 10. 11. 12. 13. 14. 15. 16. í í í í Ɂɚɞɚɧɢɟ 1. ɇɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɦɟɠɞɭɩɟɪɜɵɦɢɜɬɨɪɵɦɧɭɥɟɜɵɦɢ ɷɥɟɦɟɧɬɚɦɢ. 2. ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɷɥɟɦɟɧɬɵɫɱɟɬɧɵɦɡɚɬɟɦ – ɫɧɟɱɟɬɧɵɦɢɧɞɟɤɫɨɦ 1. ɇɚɣɬɢɫɭɦɦɭɤɭɛɨɜɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɦɟɠɞɭɩɟɪɜɵɦɢɩɨɫɥɟɞɧɢɦ ɩɨɥɨɠɢɬɟɥɶɧɵɦɢɷɥɟɦɟɧɬɚɦɢ 2. ȼɧɚɱɚɥɟɪɚɫɩɨɥɨɠɢɬɶɷɥɟɦɟɧɬɵɫɧɟɱɟɬɧɵɦɡɚɬɟɦ – ɫɱɟɬɧɵɦɢɧɞɟɤɫɨɦ 1. ɇɚɣɬɢɫɭɦɦɭɤɭɛɨɜɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɞɨɩɨɫɥɟɞɧɟɝɨɩɨɥɨɠɢɬɟɥɶɧɨɝɨɷɥɟɦɟɧɬɚ 2. ɍɞɚɥɢɬɶɢɡɦɚɫɫɢɜɚɷɥɟɦɟɧɬɵɦɨɞɭɥɶɤɨɬɨɪɵɯ ɧɟɩɪɟɜɵɲɚɟɬɈɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵ ɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ 1. ɇɚɣɬɢɫɭɦɦɭɤɭɛɨɜɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɦɟɠɞɭɩɟɪɜɵɦɢɩɨɫɥɟɞɧɢɦ ɨɬɪɢɰɚɬɟɥɶɧɵɦɢɷɥɟɦɟɧɬɚɦɢ 2. ɍɞɚɥɢɬɶɢɡɦɚɫɫɢɜɚɨɬɪɢɰɚɬɟɥɶɧɵɟɷɥɟɦɟɧɬɵ Ɉɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ 1. ɇɚɣɬɢɫɭɦɦɭɤɜɚɞɪɚɬɨɜɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɦɟɠɞɭɩɟɪɜɵɦɢɩɨɫɥɟɞɧɢɦɧɭɥɟɜɵɦɢ ɷɥɟɦɟɧɬɚɦɢ 2. ɍɞɚɥɢɬɶɢɡɦɚɫɫɢɜɚɩɨɥɨɠɢɬɟɥɶɧɵɟɷɥɟɦɟɧɬɵ Ɉɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ 1. ɇɚɣɬɢɩɪɨɢɡɜɟɞɟɧɢɟɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɦɟɠɞɭɦɚɤɫɢɦɚɥɶɧɵɦɢɦɢɧɢɦɚɥɶɧɵɦ ɩɨɦɨɞɭɥɸɷɥɟɦɟɧɬɚɦɢ 2. ɍɞɚɥɢɬɶɢɡɦɚɫɫɢɜɚɷɥɟɦɟɧɬɵ ɫɱɟɬɧɵɦɢɧɞɟɤɫɨɦ. Ɉɫɜɨɛɨɞɢɜɲɢɟɫɹɜɤɨɧɰɟɷɥɟɦɟɧɬɵɡɚɩɨɥɧɢɬɶɧɭɥɹɦɢ 1. ɇɚɣɬɢɫɭɦɦɭɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ ɪɚɫɩɨɥɨɠɟɧɧɵɯɩɨɫɥɟɩɟɪɜɨɝɨɩɨɥɨɠɢɬɟɥɶɧɨɝɨɷɥɟɦɟɧɬɚ 2. ɂɡɦɟɧɢɬɶɩɨɪɹɞɨɤɫɥɟɞɨɜɚɧɢɹɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚ ɧɚɨɛɪɚɬɧɵɣ Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨ ɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ɉɪɨɝɪɚɦɦɚ ɞɨɥɠɧɚɩɪɟɞɭɫɦɚɬɪɢɜɚɬɶɜɵɩɨɥɧɟɧɢɟɫɥɟɞɭɸɳɢɯɞɟɣɫɬɜɢɣ ɡɚɩɨɥɧɟɧɢɟɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚɪɚɡɦɟɪɧɨɫɬɢn ɫɥɭɱɚɣɧɵɦɢɱɢɫɥɚɦɢ ɜɵɱɢɫɥɟɧɢɟɜɢɫɯɨɞɧɨɦ ɦɚɫɫɢɜɟ ɩɭɧɤɬɡɚɞɚɧɢɹ  ɩɪɟɨɛɪɚɡɨɜɚɧɢɟɢɫɯɨɞɧɨɝɨɦɚɫɫɢɜɚ ɩɭɧɤɬɡɚɞɚɧɢɹ  ɜɵɜɨɞ ɧɚ ɷɤɪɚɧ ɞɥɹ ɩɨɥɶɡɨɜɚɬɟɥɹ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ ɪɟɤɨ ɦɟɧɞɭɟɬɫɹɬɚɤɠɟɜɵɜɨɞɢɬɶɢɫɯɨɞɧɵɣɦɚɫɫɢɜ  129
Ɂɚɩɨɥɧɟɧɢɟɢɜɵɜɨɞɦɚɫɫɢɜɨɜɨɮɨɪɦɥɹɟɬɫɹɜɜɢɞɟɩɨɞɩɪɨɝɪɚɦɦ-ɩɪɨɰɟɞɭɪ (ɜ ɤɚɱɟɫɬɜɟ ɩɚɪɚɦɟɬɪɚ ɩɟɪɟɞɚɟɬɫɹ ɦɚɫɫɢɜ  ɚ ɜɵɱɢɫɥɟɧɢɟ ɢ ɩɪɟɨɛɪɚɡɨɜɚɧɢɟ ɧɟɨɛɯɨɞɢɦɨ ɪɟɚɥɢɡɨɜɚɬɶ ɜ ɜɢɞɟ ɩɨɞɩɪɨɝɪɚɦɦ-ɮɭɧɤɰɢɣ ɜ ɤɚɱɟɫɬɜɟ ɩɚɪɚɦɟɬɪɚ ɩɟɪɟɞɚɟɬɫɹɦɚɫɫɢɜ). Ɋɚɡɦɟɪɧɨɫɬɶ ɨɞɧɨɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɩɚɪɚɦɟɬɪ n  ɡɚɞɚɟɬɫɹ ɜ ɩɪɨɝɪɚɦɦɟ ɜ ɜɢɞɟɤɨɧɫɬɚɧɬɵ Ⱦɥɹɭɞɨɛɫɬɜɚɨɩɢɫɚɧɢɹɢɫɨɤɪɚɳɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɪɟɤɨɦɟɧɞɭɟɬɫɹɫɨ ɡɞɚɬɶɜɪɚɡɞɟɥɟtype ɩɨɥɶɡɨɜɚɬɟɥɶɫɤɢɣɬɢɩɞɚɧɧɵɯɨɩɢɫɵɜɚɸɳɢɣɨɞɧɨɦɟɪɧɵɣ ɦɚɫɫɢɜɜɟɳɟɫɬɜɟɧɧɵɯɱɢɫɟɥɤɨɬɨɪɵɣɡɚɬɟɦɩɪɢɦɟɧɹɬɶɜɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɟɢ ɩɨɞɩɪɨɝɪɚɦɦɚɯ ɩɪɨɰɟɞɭɪɚɯɢɮɭɧɤɰɢɹɯ ɞɥɹɨɩɢɫɚɧɢɹɦɚɫɫɢɜɨɜɇɚɩɪɢɦɟɪ const Q ^ɪɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚ` type PDV array>Q@ of real ^ɫɨɡɞɚɟɦ ɧɨɜɵɣ ɬɢɩ ɞɚɧɧɵɯ – ɨɞɧɨɦɟɪɧɵɣ ɦɚɫɫɢɜɪɚɡɦɟɪɧɨɫɬɢQɫɨɞɟɪɠɚɳɢɣɜɟɳɟɫɬɜɟɧɧɵɟɱɢɫɥɚ` var DE PDV^ɢɫɯɨɞɧɵɣɢɩɪɟɨɛɪɚɡɨɜɚɧɧɵɣɦɚɫɫɢɜɵ` … procedure YXYRG F PDV  var L integer begin for L to Qdo write F>L@  writeln end ɉɟɪɟɞɝɟɧɟɪɢɪɨɜɚɧɢɟɦɫɥɭɱɚɣɧɵɯɱɢɫɟɥ ɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚ ɧɟɨɛɯɨɞɢɦɨ ɩɪɢɦɟɧɢɬɶɩɪɨɰɟɞɭɪɭrandomize. ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨɩɟ ɪɟɦɟɧɧɵɯɄɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢ ɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼɵɜɨɞ ɪɟɡɭɥɶɬɚɬɨɜ ɧɚ ɷɤɪɚɧ ɞɨɥɠɟɧ ɩɪɟɞɜɚɪɹɬɶɫɹ ɫɨɨɬɜɟɬ ɫɬɜɭɸɳɢɦɢɫɨɨɛɳɟɧɢɹɦɢɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɩɨ ɫɨɡɞɚɧɢɸ ɢ ɩɪɢɦɟɧɟɧɢɸ ɩɨɞɩɪɨ ɝɪɚɦɦ – ɩɪɨɰɟɞɭɪɢɮɭɧɤɰɢɣ. Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɨɛɪɚɛɨɬɤɢɨɞɧɨ ɦɟɪɧɨɝɨɦɚɫɫɢɜɚɪɚɡɦɟɪɧɨɫɬɢn ɫɩɪɢɦɟɧɟɧɢɟɦɩɪɨɰɟɞɭɪɢɮɭɧɤɰɢɣ ɇɚɣɬɢɫɭɦɦɭɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚɪɚɫɩɨɥɨɠɟɧɧɵɯɩɨɫɥɟɩɟɪɜɨɝɨ ɩɨɥɨɠɢɬɟɥɶɧɨɝɨɷɥɟɦɟɧɬɚ ɂɡɦɟɧɢɬɶɩɨɪɹɞɨɤɫɥɟɞɨɜɚɧɢɹɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚɧɚɨɛɪɚɬɧɵɣ 130
ȼɜɨɞɢɜɵɜɨɞɦɚɫɫɢɜɨɜɧɭɠɧɨɨɮɨɪɦɢɬɶɜɜɢɞɟɩɪɨɰɟɞɭɪɚɜɵɱɢɫɥɟɧɢɹɢɩɪɟ ɨɛɪɚɡɨɜɚɧɢɹɜɦɚɫɫɢɜɟ – ɜɜɢɞɟɮɭɧɤɰɢɣȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶ ɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ⱦɥɹɪɟɲɟɧɢɹɞɚɧɧɨɣɡɚɞɚɱɢɧɚɦɩɨɧɚɞɨɛɹɬɫɹ 1. ɉɪɨɰɟɞɭɪɚɜɜɨɞɚ ɫɥɭɱɚɣɧɵɦɨɛɪɚɡɨɦ ɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ 2. ɉɪɨɰɟɞɭɪɚɜɵɜɨɞɚɧɚɷɤɪɚɧɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚ 3. Ɏɭɧɤɰɢɹ ɤɨɬɨɪɚɹ ɨɩɪɟɞɟɥɹɟɬ ɜ ɦɚɫɫɢɜɟ ɧɨɦɟɪ ɩɟɪɜɨɝɨ ɩɨɥɨɠɢɬɟɥɶɧɨɝɨ ɷɥɟ ɦɟɧɬɚ 4. Ɏɭɧɤɰɢɹ ɤɨɬɨɪɚɹ ɫɭɦɦɢɪɭɟɬ ɷɥɟɦɟɧɬɵ ɨɞɧɨɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɜ ɨɩɪɟɞɟɥɟɧɧɨɦ ɞɢɚɩɚɡɨɧɟ 5. ɉɪɨɰɟɞɭɪɚɤɨɬɨɪɚɹɦɟɧɹɟɬɩɨɪɹɞɨɤɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚɧɚɨɛɪɚɬɧɵɣ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODE_13 ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const Q ^ɪɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚ` ^ɋɨɡɞɚɟɦɧɨɜɵɣɬɢɩɞɚɧɧɵɯ–ɨɞɧɨɦɟɪɧɵɣɦɚɫɫɢɜɪɚɡɦɟɪɧɨɫɬɢnɫɨɞɟɪɠɚɳɢɣɜɟ ɳɟɫɬɜɟɧɧɵɟɱɢɫɥɚ` type PDV array>Q@of real var aE mas^ɢɫɯɨɞɧɵɣɢɩɪɟɨɛɪɚɡɨɜɚɧɧɵɣɦɚɫɫɢɜɵ` VXP_HOHP real ^ɢɬɨɝɨɜɚɹ ɩɟɪɟɦɟɧɧɚɹ ɯɪɚɧɹɳɚɹ ɩɨɥɭɱɟɧɧɭɸ ɫɭɦɦɭ ɷɥɟɦɟɧɬɨɜ ɦɚɫ ɫɢɜɚ` k integer^ɧɨɦɟɪɩɟɪɜɨɝɨɩɨɥɨɠɢɬɟɥɶɧɨɝɨɷɥɟɦɟɧɬɚɜɦɚɫɫɢɜɟ` ^ɉɪɨɰɟɞɭɪɚɤɨɬɨɪɚɹɡɚɩɨɥɧɹɟɬɨɞɧɨɦɟɪɧɵɣɦɚɫɫɢɜɫɥɭɱɚɣɧɵɦɢɱɢɫɥɚɦɢɦɚɫɫɢɜɩɟ ɪɟɞɚɟɬɫɹɜɩɪɨɰɟɞɭɪɭɜɤɚɱɟɫɬɜɟɩɚɪɚɦɟɬɪɚ} procedure YYRG YDUF PDV  var L integer{ɫɱɟɬɱɢɤɰɢɤɥɚ} begin randomize {ɞɚɧɧɚɹɩɪɨɰɟɞɭɪɚɧɟɨɛɯɨɞɢɦɚɞɥɹɨɛɟɫɩɟɱɟɧɢɹɤɨɪɪɟɤɬɧɨɣɝɟɧɟɪɚɰɢɢ ɫɥɭɱɚɣɧɵɯɱɢɫɟɥ} ^ɝɟɧɟɪɢɪɭɟɦnɫɥɭɱɚɣɧɵɯɱɢɫɟɥɢɡɚɩɨɥɧɹɟɦɢɦɢɨɞɧɨɦɟɪɧɵɣɦɚɫɫɢɜ` for L to Qdo F>L@ random(100)-random   end ^ɡɚɜɟɪɲɟɧɢɟɨɩɢɫɚɧɢɹɩɪɨɰɟɞɭɪɵ` ^ɉɪɨɰɟɞɭɪɚɤɨɬɨɪɚɹɜɵɜɨɞɢɬɨɞɧɨɦɟɪɧɵɣɦɚɫɫɢɜɧɚɷɤɪɚɧɦɚɫɫɢɜɩɟɪɟɞɚɟɬɫɹɜ ɩɪɨɰɟɞɭɪɭɜɤɚɱɟɫɬɜɟɩɚɪɚɦɟɬɪɚ} procedure YXYRG F PDV  var L integer {ɫɱɟɬɱɢɤɰɢɤɥɚ} begin for L to Qdo write(c>L@  ^ɜɵɜɨɞɧɚɷɤɪɚɧɨɱɟɪɟɞɧɨɝɨɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚ` writeln end ^Ɏɭɧɤɰɢɹɤɨɬɨɪɚɹɨɩɪɟɞɟɥɹɟɬɜɦɚɫɫɢɜɟɧɨɦɟɪɩɟɪɜɨɝɨɩɨɥɨɠɢɬɟɥɶɧɨɝɨɷɥɟɦɟɧɬɚ` 131
function QXPEHU F PDV integer var W integer^ɜɫɩɨɦɨɝɚɬɟɥɶɧɚɹɩɟɪɟɦɟɧɧɚɹɞɥɹɩɨɢɫɤɚɧɨɦɟɪɚɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚ` ^ɫɧɚɱɚɥɚɩɪɟɞɩɨɥɨɠɢɦɱɬɨɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɜɦɚɫɫɢɜɟɧɟɬɢflag ɚɤɨ ɝɞɚɩɨɥɨɠɢɬɟɥɶɧɵɣɷɥɟɦɟɧɬɛɭɞɟɬɧɚɣɞɟɧflag ɢɜɵɯɨɞɢɦɢɡɰɢɤɥɚ` IODJ integer L integer{ɫɱɟɬɱɢɤɰɢɤɥɚ} begin L ^ɩɟɪɟɦɟɧɧɚɹɤɨɬɨɪɚɹɧɟɨɛɯɨɞɢɦɚɞɥɹɜɵɯɨɞɚɢɡɰɢɤɥɚɱɬɨɛɵɧɟɛɵɥɨɡɚ ɰɢɤɥɢɜɚɧɢɹɟɫɥɢɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɧɟɨɤɚɠɟɬɫɹɜɨɜɫɟ` IODJ  W ^ɩɪɟɞɩɨɥɚɝɚɟɦɱɬɨɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɜɦɚɫɫɢɜɟɧɟɬ` while IODJ! and L!Q do begin if F>L@!then begin IODJ  W L^ɡɚɩɨɦɢɧɚɟɦɧɨɦɟɪɩɟɪɜɨɝɨɩɨɥɨɠɢɬɟɥɶɧɨɝɨɷɥɟɦɟɧɬɚɦɚɫɫɢ ɜɚ` end L L^ɞɥɹɬɨɝɨɱɬɨɛɵɩɟɪɟɣɬɢɤɫɥɟɞɭɸɳɟɦɭɷɥɟɦɟɧɬɭɦɚɫɫɢɜɚɩɪɢ ɧɟɨɛɯɨɞɢɦɨɫɬɢ` end QXPEHU W^ɡɧɚɱɟɧɢɟɦɮɭɧɤɰɢɢɛɭɞɟɬɥɢɛɨɧɨɦɟɪɩɟɪɜɨɝɨɩɨɥɨɠɢɬɟɥɶɧɨɝɨɷɥɟ ɦɟɧɬɚɦɚɫɫɢɜɚɥɢɛɨ–ɤɨɝɞɚɩɨɥɨɠɢɬɟɥɶɧɵɯɷɥɟɦɟɧɬɨɜɜɦɚɫɫɢɜɟɧɟɬ` end{ɡɚɜɟɪɲɟɧɢɟɮɭɧɤɰɢɢ` ^Ɏɭɧɤɰɢɹɤɨɬɨɪɚɹɫɭɦɦɢɪɭɟɬɷɥɟɦɟɧɬɵɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚɜɨɩɪɟɞɟɥɟɧɧɨɦɞɢɚ ɩɚɡɨɧɟɨɬnɞɨn2} function VXPPD F PDVQQ integer  real var L integer{ɫɱɟɬɱɢɤɰɢɤɥɚ} s real^ɜɫɩɨɦɨɝɚɬɟɥɶɧɚɹɩɟɪɟɦɟɧɧɚɹɞɥɹɧɚɤɨɩɥɟɧɢɹɫɭɦɦɵ` begin s ^ɫɧɚɱɚɥɚɫɭɦɦɚɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚɪɚɜɧɚɧɭɥɸ` for L Q1 to Q2 do s sc>L@^ɩɨɫɥɟɷɬɨɝɨɰɢɤɥɚɜɩɟɪɟɦɟɧɧɨɣsɛɭɞɟɬɧɚɯɨɞɢɬɶɫɹɫɭɦɦɚɷɥɟɦɟɧ ɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚɨɬnɞɨn2} VXPPD s^ɩɪɢɫɜɚɢɜɚɟɦɢɦɟɧɢɮɭɧɤɰɢɢɢɬɨɝɨɜɨɟɡɧɚɱɟɧɢɟ` end{ɡɚɜɟɪɲɟɧɢɟɮɭɧɤɰɢɢ` ^ɉɪɨɰɟɞɭɪɚɤɨɬɨɪɚɹɦɟɧɹɟɬɩɨɪɹɞɨɤɪɚɫɩɨɥɨɠɟɧɢɹɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚɧɚɨɛɪɚɬ ɧɵɣ` procedure SRULDGRN F PDVvar G PDV  var L integer{ɫɱɟɬɱɢɤɰɢɤɥɚ} begin for L to Qdo G>L@ c>Q-L@^ɩɨɫɥɟɪɚɛɨɬɵɞɚɧɧɨɣɩɪɨɰɟɞɭɪɵɜɦɚɫɫɢɜdɛɭɞɟɬɡɚɩɢɫɚɧɦɚɫ ɫɢɜcɜɨɛɪɚɬɧɨɦɩɨɪɹɞɤɟ` end ^ɡɚɜɟɪɲɟɧɢɟɩɪɨɰɟɞɭɪɵ` 132
begin ^ɧɚɱɚɥɨɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` ^ȼɵɡɵɜɚɟɦɮɭɧɤɰɢɸvvodɤɨɬɨɪɚɹɫɝɟɧɟɪɢɪɭɟɬɦɚɫɫɢɜɚ` YYRG(a ^ɜɪɟɡɭɥɶɬɚɬɟɦɚɫɫɢɜɚɞɨɥɠɟɧɡɚɩɨɥɧɢɬɶɫɹɫɥɭɱɚɣɧɵɦɢɱɢɫɥɚɦɢ` ^ȼɵɜɨɞɢɦɫɝɟɧɟɪɢɪɨɜɚɧɧɵɣɦɚɫɫɢɜɧɚɷɤɪɚɧɫɩɨɦɨɳɶɸɩɪɨɰɟɞɭɪɵvuvod} writeln('ɂɫɯɨɞɧɵɣɦɚɫɫɢɜ  YXYRG(a  ^ɋɩɨɦɨɳɶɸɮɭɧɤɰɢɢnumberɨɩɪɟɞɟɥɹɟɦɢɡɚɩɢɫɵɜɚɟɦɜɩɟɪɟɦɟɧɧɭɸkɧɨɦɟɪɩɟɪ ɜɨɝɨɩɨɫɱɟɬɭɩɨɥɨɠɢɬɟɥɶɧɨɝɨɷɥɟɦɟɧɬɚɜɦɚɫɫɢɜɟ` k QXPEHU(a  ^ɇɚɯɨɞɢɦɫɭɦɦɭɷɥɟɦɟɧɬɨɜɨɞɧɨɦɟɪɧɨɝɨɦɚɫɫɢɜɚɪɚɫɩɨɥɨɠɟɧɧɵɯɩɨɫɥɟɩɟɪɜɨɝɨ ɩɨɥɨɠɢɬɟɥɶɧɨɝɨɷɥɟɦɟɧɬɚɩɪɢɦɟɧɹɹɮɭɧɤɰɢɸsumma} VXPBHOHP VXPPD DNQ  ^ȼɵɜɨɞɢɦɩɨɥɭɱɟɧɧɨɟɡɧɚɱɟɧɢɟɧɚɷɤɪɚɧ` writeln ɋɭɦɦɚɷɥɟɦɟɧɬɨɜ VXP_HOHP  ^Ɇɟɧɹɟɦ ɩɨɪɹɞɨɤ ɪɚɫɩɨɥɨɠɟɧɢɹ ɷɥɟɦɟɧɬɨɜ ɦɚɫɫɢɜɚ ɚ ɧɚ ɨɛɪɚɬɧɵɣ Ɋɟɡɭɥɶɬɚɬ ɩɨɦɟɳɚɟɦɜɦɚɫɫɢɜbɉɪɢɦɟɧɹɟɦɩɪɨɰɟɞɭɪɭporiadok} SRULDGRN(aE  ^ȼɵɜɨɞɢɦɧɨɜɵɣɦɚɫɫɢɜɧɚɷɤɪɚɧɫɩɨɦɨɳɶɸɩɪɨɰɟɞɭɪɵvuvod} writeln ɉɪɟɨɛɪɚɡɨɜɚɧɧɵɣɦɚɫɫɢɜ  YXYRG(E  readln end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal 133
ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫɪɟɡɭɥɶɬɚɬɚɦɢɪɚɫɱɟɬɨɜ ɜɪɭɱɧɭɸɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɩɪɨɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚ ɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. ȼ ɱɟɦ ɨɫɧɨɜɧɵɟ ɨɬɥɢɱɢɹ ɩɨɞɩɪɨɝɪɚɦɦɵ-ɩɪɨɰɟɞɭɪɵ ɨɬ ɩɨɞɩɪɨɝɪɚɦɦɵɮɭɧɤɰɢɢ" 2. ɇɚɩɢɲɢɬɟɫɢɧɬɚɤɫɢɫɨɩɢɫɚɧɢɹɩɪɨɰɟɞɭɪɵɜɪɚɡɞɟɥɟvar. 3. ɉɨɤɚɤɢɦɩɪɚɜɢɥɚɦɮɨɪɦɢɪɭɸɬɫɹɢɦɟɧɚɩɪɨɰɟɞɭɪ" 4. Ʉɚɤɦɨɠɧɨɜɵɡɜɚɬɶɩɪɨɰɟɞɭɪɭɜɨɫɧɨɜɧɨɣɩɪɨɝɪɚɦɦɟ" 5. Ɇɨɠɟɬɥɢɩɪɨɰɟɞɭɪɚɧɟɫɨɞɟɪɠɚɬɶɩɚɪɚɦɟɬɪɵ" 6. Ʉɚɤɢɟɬɢɩɵ ɩɚɪɚɦɟɬɪɨɜɩɪɨɰɟɞɭɪȼɵɡɧɚɟɬɟ" 134
Ɍɟɦɚ  ɈȻɊȺȻɈɌɄȺɋɌɊɈɄ ȼɩɚɦɹɬɢɤɨɦɩɶɸɬɟɪɚɦɨɝɭɬɯɪɚɧɢɬɶɫɹɱɢɫɥɚɢɫɢɦɜɨɥɵɄɚɠɞɵɣɫɢɦɜɨɥ ɡɚɧɢɦɚɟɬ ɨɞɢɧɛɚɣɬɩɚɦɹɬɢ Ⱦɥɹɞɚɧɧɨɝɨɫɨɨɬɜɟɬɫɬɜɭɸɳɟɝɨɨɞɢɧɨɱɧɨɦɭɫɢɦ ɜɨɥɭ ɢɫɩɨɥɶɡɭɟɬɫɹ ɨɩɢɫɚɬɟɥɶ char ɋɢɦɜɨɥɵ ɦɨɝɭɬ ɨɛɴɟɞɢɧɹɬɶɫɹ ɜ ɦɚɫɫɢɜɵ Ʉɚɠɞɨɦɭɷɥɟɦɟɧɬɭɦɚɫɫɢɜɚɤɚɤɢɞɥɹɱɢɫɥɨɜɵɯɞɚɧɧɵɯɫɨɨɬɜɟɬɫɬɜɭɟɬɩɨɪɹɞ ɤɨɜɵɣɧɨɦɟɪ ɚɢɦɹɷɥɟɦɟɧɬɚɫɨɫɬɨɢɬɢɡɢɦɟɧɢɜɫɟɝɨɦɚɫɫɢɜɚɢɟɝɨɧɨɦɟɪɚ ȼ ɬɟɤɫɬɟ ɩɪɨɝɪɚɦɦɵ ɧɟ ɜɫɟɝɞɚ ɦɨɠɧɨ ɨɩɪɟɞɟɥɢɬɶ ɤɚɤɨɣ ɦɚɫɫɢɜ ɨɛɪɚɛɚɬɵɜɚɟɬɫɹ ɱɢɫɥɨɜɨɣ ɢɥɢ ɫɢɦɜɨɥɶɧɵɣ ɷɬɨ ɦɨɠɧɨ ɩɨɧɹɬɶ ɬɨɥɶɤɨ ɩɨ ɨɩɢɫɚɧɢɸ ɦɚɫɫɢɜɚ Ɂɧɚɱɟɧɢɟɫɢɦɜɨɥɶɧɨɝɨɞɚɧɧɨɝɨ– ɥɸɛɨɣɫɢɦɜɨɥɤɥɚɜɢɚɬɭɪɵɤɨɦɩɶɸɬɟɪɚɨɝɪɚ ɧɢɱɟɧɧɵɣɚɩɨɫɬɪɨɮɚɦɢɇɚɩɪɢɦɟɪ µ$¶µ"¶µ¶– ɡɧɚɱɟɧɢɹɫɢɦɜɨɥɶɧɵɯɜɟɥɢ ɱɢɧɉɪɢɦɟɪɵ ɨɩɢɫɚɧɢɣ var Darray >@of char[\char Ɇɚɫɫɢɜɚɦɨɠɟɬɫɨɫɬɨɹɬɶɢɡɫɢɦɜɨɥɨɜɟɦɭɨɬɜɨɞɢɬɫɹɩɪɢɬɪɚɧɫɥɹɰɢɢ ɩɪɨɝɪɚɦɦɵɛɚɣɬɨɜɩɚɦɹɬɢɗɥɟɦɟɧɬɵɦɚɫɫɢɜɚD>@D>@D>@ɉɟɪɟɦɟɧ ɧɵɟ[ɢy – ɩɪɨɫɬɵɟɢɯɡɧɚɱɟɧɢɹ– ɨɞɢɧɨɱɧɵɟɫɢɦɜɨɥɵȾɥɹɜɜɨɞɚɫɢɦɜɨɥɶɧɨɝɨ ɦɚɫɫɢɜɚɧɟɨɛɯɨɞɢɦɨɢɫɩɨɥɶɡɨɜɚɬɶɰɢɤɥ for L  to Q do read( a>L @  ɉɪɢɜɜɨɞɟɬɚɤɨɝɨɦɚɫɫɢɜɚɦɨɠɧɨɧɚɛɪɚɬɶɫɬɪɨɤɭɢɡn ɫɢɦɜɨɥɨɜɢɜɤɨɧɰɟ ɧɚɠɚɬɶ(QWHU Ɇɨɠɧɨɨɛɴɹɜɢɬɶ ɜɨɩɢɫɚɧɢɢɬɚɛɥɢɰɭɫɢɦɜɨɥɨɜɢɞɥɹɟɟɜɜɨɞɚɢɫɩɨɥɶɡɨ ɜɚɬɶɞɜɨɣɧɨɣɰɢɤɥ const Q P  var Earray >QP@of charLMinteger begin for L to Q do begin for M to m do read E>LM@  writeln end; HQG ȼɩɪɢɦɟɪɟɢɫɩɨɥɶɡɭɟɬɫɹb – ɬɚɛɥɢɰɚɢɡɫɬɪɨɤɩɨɫɢɦɜɨɥɨɜɤɚɠɞɚɹ ɉɪɢ ɟɟ ɜɜɨɞɟ ɧɟɨɛɯɨɞɢɦɨ ɧɚɛɢɪɚɬɶ ɫɬɪɨɤɢ ɩɨ  ɫɢɦɜɨɥɨɜ ɢ ɧɚɠɢɦɚɬɶ (QWHU ɇɟɭɞɨɛɫɬɜɨ ɬɚɤɨɝɨ ɜɜɨɞɚ ɡɚɤɥɸɱɚɟɬɫɹ ɜ ɬɨɦ ɱɬɨ ɜɫɟ ɫɬɪɨɤɢ ɞɨɥɠɧɵ ɛɵɬɶ ɩɨ 135
ɫɢɦɜɨɥɨɜɬɟ ɟɫɥɢɧɚɛɢɪɚɸɬɫɹɫɥɨɜɚɬɨɨɧɢɧɟɞɨɥɠɧɵɛɵɬɶɛɨɥɟɟɱɟɦɢɡ ɛɭɤɜɚɞɥɹɤɨɪɨɬɤɢɯɫɥɨɜɧɚɞɨɞɨɛɚɜɥɹɬɶɩɪɨɛɟɥɵ ɉɪɢɨɛɪɚɛɨɬɤɟɫɢɦɜɨɥɶɧɵɯɦɚɫɫɢɜɨɜɢɫɩɨɥɶɡɭɸɬɫɹɬɚɤɢɟɠɟɚɥɝɨɪɢɬɦɵ ɤɚɤɢɞɥɹɱɢɫɥɨɜɵɯɇɚɩɪɢɦɟɪɬɪɟɛɭɟɬɫɹɫɥɨɜɨɡɚɞɚɧɧɨɟɤɚɤɦɚɫɫɢɜɫɢɦɜɨɥɨɜ ɡɚɩɢɫɚɬɶ ɜ ɨɛɪɚɬɧɨɦ ɩɨɪɹɞɤɟ ɬ ɟ ɫɩɪɚɜɚ ɧɚɥɟɜɨ ɉɪɢ ɪɚɡɪɚɛɨɬɤɟ ɚɥɝɨɪɢɬɦɚ ɦɨɠɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɬɚɤɭɸ ɩɨɫɬɚɧɨɜɤɭ ɡɚɞɚɱɢ ɞɚɧɧɵɣ ɱɢɫɥɨɜɨɣ ɦɚɫɫɢɜ ɩɟɪɟ ɩɢɫɚɬɶɬɚɤɱɬɨɛɵɩɨɫɥɟɞɧɢɣɷɥɟɦɟɧɬɜɫɬɚɥɧɚɩɟɪɜɨɟɦɟɫɬɨɩɪɟɞɩɨɫɥɟɞɧɢɣɧɚ ɜɬɨɪɨɟɢɬɞɚɩɟɪɜɵɣ– ɧɚɩɨɫɥɟɞɧɟɟɌ Hɧɟɨɛɯɨɞɢɦɨɢɡɦɚɫɫɢɜɚa1a2an ɩɨɥɭɱɢɬɶanan-1a1ɤɨɬɨɪɵɣɛɭɞɟɬɧɚɯɨɞɢɬɶɫɹɜɦɚɫɫɢɜɟb. Ɏɨɪɦɭɥɚɩɟɪɟɫɱɟɬɚɢɧɞɟɤɫɚ: n – i + 1 ɤɨɝɞɚɭɦɚɫɫɢɜɚɚ ɧɨɦɟɪɚɩɟɪɟɱɢɫ ɥɹɸɬɫɹɜɩɪɹɦɨɦɩɨɪɹɞɤɟɬɟ ɬɟɤɭɳɢɣɢɧɞɟɤɫɷɥɟɦɟɧɬɚɦɚɫɫɢɜɚɢɡɦɟɧɹɟɬɫɹɨɬ ɞɨnɬɨɭɷɥɟɦɟɧɬɨɜɦɚɫɫɢɜɚb ɢɧɞɟɤɫɵɞɨɥɠɧɵɦɟɧɹɬɶɫɹɨɬn ɞɨɌɚɤɨɟɢɡ ɦɟɧɟɧɢɟɢɨɛɟɫɩɟɱɢɜɚɟɬɞɚɧɧɚɹɮɨɪɦɭɥɚɨɧɚɩɪɢɜɟɞɟɧɚɞɥɹɢɧɞɟɤɫɨɜɦɚɫɫɢɜɚ bɉɪɨɝɪɚɦɦɚ(29 ɩɪɨɢɡɜɨɞɢɬɩɟɪɟɦɟɳɟɧɢɟɷɥɟɦɟɧɬɨɜɜɨɛɪɚɬɧɨɦɩɨɪɹɞɤɟɞɥɹ ɫɢɦɜɨɥɶɧɵɯɞɚɧɧɵɯɨɧɚɧɚɡɵɜɚɟɬɫɹɩɪɨɝɪɚɦɦɨɣɨɛɪɚɳɟɧɢɹɫɥɨɜɚ program E29 const Q  var DEarray >Q@of charLinteger begin for L to Qdo begin read D>L@  E>Q- L@ D>L@ end; for L to Q do write E>L@ HQG ɇɟɫɤɨɥɶɤɨɩɨɞɪɹɞɡɚɩɢɫɚɧɧɵɯɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɬɫɬɪɨɤɭ. ɋɬɪɨɤɚ–ɷɬɨɨɝɪɚɧɢɱɟɧɧɚɹɚɩɨɫɬɪɨɮɚɦɢɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɥɸɛɵɯ ɫɢɦɜɨɥɨɜ. Ⱦɥɢɧɚɫɬɪɨɤɢɨɛɪɚɛɚɬɵɜɚɟɦɨɣɜɉɚɫɤɚɥɟɧɟɞɨɥɠɧɚɩɪɟɜɵɲɚɬɶɫɢɦ ɜɨɥɨɜ ɚɩɨɫɬɪɨɮɵɧɟɫɱɢɬɚɸɬɫɹ ɗɬɨɫɜɹɡɚɧɨɫɬɟɦ ɱɬɨɜɤɨɧɰɟ ɫɬɪɨɤɢɜɞɨ ɩɨɥɧɢɬɟɥɶɧɨɦ ɛɚɣɬɟ ɯɪɚɧɢɬɫɹ ɟɟ ɞɥɢɧɚ – ɤɨɥɢɱɟɫɬɜɨ ɫɢɦɜɨɥɨɜ ɚ ɧɚɢɛɨɥɶɲɟɟ ɰɟɥɨɟɱɢɫɥɨɤɨɬɨɪɨɟɦɨɠɟɬɛɵɬɶɡɚɩɢɫɚɧɨɜɛɚɣɬɟ– ȿɫɥɢɬɪɟɛɭɟɬɫɹɨɛɪɚ ɛɨɬɚɬɶɬɟɤɫɬɞɥɢɧɚɤɨɬɨɪɨɝɨɛɨɥɶɲɟɟɡɧɚɤɨɜɬɨɧɚɞɨɢɫɩɨɥɶɡɨɜɚɬɶɦɚɫɫɢɜ ɫɬɪɨɤ Ɉɩɢɫɚɧɢɟ ɫɬɪɨɤɢɢɦɟɟɬɜɢɞ var [ string >@ ɋɬɪɨɤɚɯ ɞɨɥɠɧɚɛɵɬɶɧɟɛɨɥɟɟɱɟɦɢɡɫɢɦɜɨɥɨɜɟɫɥɢɨɧɚɦɟɧɶɲɟɬɨ ɛɭɞɟɬ ɡɚɧɢɦɚɬɶ ɜ ɩɚɦɹɬɢ ɫɬɨɥɶɤɨ ɛɚɣɬɨɜ ɫɤɨɥɶɤɨ ɡɧɚɤɨɜ ɨɧɚ ɫɨɞɟɪɠɢɬ 136
ɩɥɸɫɛɚɣɬ– ɞɥɢɧɚ ɉɨɷɬɨɦɭɩɪɢɜɜɨɞɟɫɬɪɨɤɧɟɬɧɟɨɛɯɨɞɢɦɨɫɬɢɞɨɩɨɥɧɹɬɶ ɢɯɞɨɭɤɚɡɚɧɧɨɣɜɨɩɢɫɚɧɢɢɞɥɢɧɵ Ⱦɥɹɨɛɪɚɛɨɬɤɢɫɬɪɨɤɢɫɩɨɥɶɡɭɸɬɫɹɫɩɟɰɢɚɥɶɧɵɟɨɩɟɪɚɰɢɢɢɫɨɛɪɚɧɧɵɟɜ ɫɩɟɰɢɚɥɶɧɭɸ ɛɢɛɥɢɨɬɟɤɭ ɩɨɞɩɪɨɝɪɚɦɦɵ Ɉɩɟɪɚɰɢɢ ɩɨɡɜɨɥɹɸɬ ɪɚɛɨɬɚɬɶ ɫɨ ɫɬɪɨɤɚɦɢɤɚɤɫɰɟɥɶɧɵɦɢɨɛɴɟɤɬɚɦɢɚɩɨɞɩɪɨɝɪɚɦɦɵɜɨɫɧɨɜɧɨɦ – ɫ ɨɬɞɟɥɶ ɧɵɦɢ ɫɢɦɜɨɥɚɦɢ ɢɥɢ ɱɚɫɬɹɦɢ ɫɬɪɨɤ Ɉɩɟɪɚɰɢɢ ɧɚɞ ɫɬɪɨɤɚɦɢ – ɷɬɨ ɨɛɴɟɞɢɧɟ ɧɢɟɫɪɚɜɧɟɧɢɟɢɩɪɢɫɜɚɢɜɚɧɢɟ Ɉɛɴɟɞɢɧɟɧɢɟ ɫɬɪɨɤ ɗɬɚ ɨɩɟɪɚɰɢɹ ɩɨɡɜɨɥɹɟɬ ɨɛɴɟɞɢɧɢɬɶ ɞɜɟ ɫɬɪɨɤɢ ɜ ɨɞɧɭɩɪɢɫɨɟɞɢɧɢɜɧɚɱɚɥɨɜɬɨɪɨɣɫɬɪɨɤɢɤɤɨɧɰɭɩɟɪɜɨɣɈɛɴɟɞɢɧɟɧɢɟɨɛɨɡɧɚ ɱɚɟɬɫɹɡɧɚɤɨɦ©ªɇɚɩɪɢɦɟɪ var [\]string >@ begin: [ µɬɟɩɥɨ¶ \ µɯɨɞµ ] [\ write ] HQG ɉɟɪɟɦɟɧɧɵɦ [ ɢ y ɩɪɢɫɜɚɢɜɚɸɬɫɹ ɡɧɚɱɟɧɢɹ ɫɬɪɨɤ ɚ ɩɟɪɟɦɟɧɧɨɣ z – ɪɟ ɡɭɥɶɬɚɬ ɨɛɴɟɞɢɧɟɧɢɹ ɷɬɢɯ ɫɬɪɨɤ ɜ ɨɞɧɭ ©ɬɟɩɥɨɯɨɞª ɉɪɢ ɩɟɱɚɬɢ ɫɬɪɨɤɢ ɛɭɞɟɬ ɜɵɞɚɧɨɫɨɞɟɪɠɢɦɨɟɨɛɥɚɫɬɢɩɚɦɹɬɢɧɚɡɵɜɚɟɦɨɣz. Ɉɱɟɜɢɞɧɨɱɬɨɨɩɟɪɚɰɢɹɨɛɴɟɞɢɧɟɧɢɹɫɬɪɨɤɧɟɤɨɦɦɭɬɚɬɢɜɧɚɬɟ ɞɥɹɧɟɟ a+b <>b+a ɩɨɷɬɨɦɭɩɪɢɢɫɩɨɥɶɡɨɜɚɧɢɢɨɛɴɟɞɢɧɟɧɢɹɧɟɨɛɯɨɞɢɦɨɩɪɟɞɭɫɦɚɬɪɢɜɚɬɶɫɤɚɤɨɣ ɫɬɨɪɨɧɵɤɞɚɧɧɨɣɫɬɪɨɤɟɩɪɢɫɨɟɞɢɧɹɟɬɫɹɞɪɭɝɚɹɫɥɟɜɚɢɥɢɫɩɪɚɜɚ Ʉɚɤ ɢ ɞɥɹ ɚɪɢɮɦɟɬɢɱɟɫɤɢɯ ɨɩɟɪɚɰɢɣ ɞɥɹ ɞɚɧɧɨɣ ɨɩɟɪɚɰɢɢ ɫɨ ɫɬɪɨɤɚɦɢ ɫɭɳɟɫɬɜɭɟɬ ɧɟɣɬɪɚɥɶɧɵɣ ɷɥɟɦɟɧɬ ɧɟ ɜɥɢɹɸɳɢɣ ɧɚ ɟɟ ɪɟɡɭɥɶɬɚɬ ɗɬɨ – ɫɬɪɨɤɚ ɧɭɥɟɜɨɣɞɥɢɧɵ ɩɭɫɬɚɹɫɬɪɨɤɚ ɨɛɨɡɧɚɱɚɟɦɚɹɞɜɭɦɹɪɹɞɨɦɫɬɨɹɳɢɦɢɚɩɨɫɬɪɨ ɮɚɦɢ µ¶ Ɍɚɤɭɸɫɬɪɨɤɭɦɨɠɧɨɩɪɢɫɨɟɞɢɧɢɬɶɤɥɸɛɨɣɫɬɪɨɤɟɫɥɟɜɚɢɥɢɫɩɪɚɜɚ ɢɫɬɪɨɤɚɧɟɢɡɦɟɧɢɬɫɹ ɋɪɚɜɧɟɧɢɟ ɫɬɪɨɤ Ⱦɥɹ ɫɬɪɨɤ ɢɫɩɨɥɶɡɭɸɬɫɹ ɬɚɤɢɟ ɠɟ ɨɩɟɪɚɰɢɢ ɨɬɧɨɲɟ ɧɢɹɤɚɤɢɞɥɹɱɢɫɟɥɧɨɨɧɢɢɦɟɸɬɧɟɫɤɨɥɶɤɨɞɪɭɝɨɣɫɦɵɫɥȿɫɥɢɫɬɪɨɤɢɫɪɚɜ ɧɢɜɚɬɶɧɚ©ɪɚɜɧɨª (  ɬɨɜɵɩɨɥɧɟɧɢɟɪɚɜɟɧɫɬɜɚ ɨɡɧɚɱɚɟɬɩɨɫɢɦɜɨɥɶɧɨɟɫɨɜ ɩɚɞɟɧɢɟɫɬɪɨɤɋɨɨɬɜɟɬɫɬɜɟɧɧɨ©ɧɟɪɚɜɧɨª ! ɨɡɧɚɱɚɟɬɧɟɫɨɜɩɚɞɟɧɢɟɯɨɬɹɛɵ ɜɨɞɧɨɦɡɧɚɤɟɈɫɬɚɥɶɧɵɟɨɬɧɨɲɟɧɢɹ  ! ! ɨɬɧɨɫɹɬɫɹɤɞɥɢɧɚɦɫɬɪɨɤ ɬɟ ɫɪɚɜɧɢɜɚɸɬɫɹɧɟɫɢɦɜɨɥɵɫɬɪɨɤɚɢɯɤɨɥɢɱɟɫɬɜɚȿɫɥɢɡɚɩɢɫɚɬɶ µD¶µE¶µF¶ ɬɨɫɧɚɱɚɥɚɜɵɩɨɥɧɹɟɬɫɹɨɛɴɟɞɢɧɟɧɢɟɫɬɪɨɤ ɷɬɚɨɩɟɪɚɰɢɹɢɦɟɟɬɛɨɥɟɟɜɵɫɨɤɢɣ ɩɪɢɨɪɢɬɟɬ ɚɡɚɬɟɦɫɪɚɜɧɟɧɢɟɞɥɢɧȼɞɚɧɧɨɦɫɥɭɱɚɟɭɫɥɨɜɢɟɜɵɩɨɥɧɹɟɬɫɹɬ ɤ ɫɬɪɨɤɚɢɡɨɞɧɨɝɨɫɢɦɜɨɥɚɦɟɧɶɲɟ ɩɨɞɥɢɧɟ ɱɟɦɫɬɪɨɤɚɢɡɞɜɭɯɫɢɦɜɨɥɨɜ 137
ɉɪɢɫɜɚɢɜɚɧɢɟ Ɉɩɟɪɚɬɨɪɩɪɢɫɜɚɢɜɚɧɢɹɞɥɹɫɬɪɨɤɨɜɵɯɞɚɧɧɵɯɢɦɟɟɬɜɢɞ ɢɦɹBɫɬɪɨɤɨɜɨɣBɩɟɪɟɦɟɧɧɨɣ ɫɬɪɨɤɨɜɨɟɜɵɪɚɠɟɧɢɟ  ɂɦɹɫɬɪɨɤɨɜɨɣɩɟɪɟɦɟɧɧɨɣɦɨɠɟɬɛɵɬɶɩɪɨɫɬɨɟɢɥɢɫɢɧɞɟɤɫɨɦ ɷɥɟɦɟɧ ɬɨɦ ɦɚɫɫɢɜɚ ɫɬɪɨɤ  ȿɫɥɢ ɜ ɪɟɡɭɥɶɬɚɬɟ ɜɵɩɨɥɧɟɧɢɹ ɜɫɟɯ ɨɩɟɪɚɰɢɣ ɫɬɪɨɤɨɜɨɝɨ ɜɵɪɚɠɟɧɢɹɩɨɥɭɱɚɟɬɫɹɫɬɪɨɤɚɞɥɢɧɚɤɨɬɨɪɨɣɩɪɟɜɵɲɚɟɬɞɥɢɧɭɜɨɩɢɫɚɧɢɢɩɟ ɪɟɦɟɧɧɨɣ ɫɬɨɹɳɟɣ ɫɥɟɜɚ ɨɬ ɡɧɚɤɚ ɩɪɢɫɜɚɢɜɚɧɢɹ ɬɨ ɩɨɥɭɱɟɧɧɚɹ ɫɬɪɨɤɚ ɭɤɨɪɚ ɱɢɜɚɟɬɫɹɫɩɪɚɜɚɞɨɞɨɩɭɫɬɢɦɨɣɞɥɢɧɵ var [string >@ begin [ µɦɢɦ¶µɨɡɚɛɨɱɟɧɧɵɣ¶ write ( x ) HQG ȼ ɪɟɡɭɥɶɬɚɬɟ ɪɚɛɨɬɵ ɷɬɨɣ ɩɪɨɝɪɚɦɦɵ ɛɭɞɟɬ ɧɚɩɟɱɚɬɚɧɨ ɫɥɨɜɨ ©ɦɢɦɨɡɚª ɬ ɤɞɨɩɭɫɬɢɦɚɹɞɥɢɧɚ ɯ –  ɫɢɦɜɨɥɨɜɬɨɡɧɚɱɟɧɢɟɜɵɪɚɠɟɧɢɹ ɫɩɪɚɜɚɨɬɩɪɢ ɫɜɚɢɜɚɧɢɹ©ɦɢɦɨɡɚɛɨɱɟɧɧɵɣªɫɨɤɪɚɬɢɬɫɹɞɨ©ɦɢɦɨɡɚªɨɫɬɚɥɶɧɵɟɫɢɦɜɨɥɵɛɭ ɞɭɬɨɬɛɪɨɲɟɧɵ ȾɥɢɧɚɫɬɪɨɤɢɎɭɧɤɰɢɹɞɥɢɧɵɫɬɪɨɤɢɜɵɞɚɟɬɤɨɥɢɱɟɫɬɜɨɫɢɦɜɨɥɨɜɫɬɪɨɤɢ OHQJWK ɫɬɪɨɤɨɜɨɟBɜɵɪɚɠɟɧɢɟ  ɇɚɩɪɢɦɟɪ program E30 var [\ string >@NOQinteger begin writeln µɜɜɟɞɢɬɟɞɜɟɫɬɪɨɤɢ¶  readln [  readln \  N OHQJWK [ O OHQJWK \ Q OHQJWK [\  writeln µɞɥɢɧɚɩɟɪɜɨɣɫɬɪɨɤɢµµɞɥɢɧɚɜɬɨɪɨɣɫɬɪɨɤɢµ  writeln NO  writeln [\µɞɥɢɧɚ ɫɬɪɨɤɢ µQ end. ȼ ɩɪɨɝɪɚɦɦɟ ȿ ɢɫɩɨɥɶɡɭɟɬɫɹ ɜɵɜɨɞ ɫ ɮɨɪɦɚɬɢɪɨɜɚɧɢɟɦ ɪɟɡɭɥɶɬɚɬɚ ɉɟɪɜɵɣɪɚɡɮɨɪɦɚɬ  ɭɤɚɡɚɧɩɨɫɥɟɫɬɪɨɤɢ ɜɵɜɨɞɢɦɨɣɧɚɷɤɪɚɧ µɞɥɢɧɚ ɩɟɪɜɨɣ ɫɬɪɨɤɢ¶  ɗɬɨ ɨɡɧɚɱɚɟɬ ɱɬɨ ɞɥɹ ɞɚɧɧɨɣ ɫɬɪɨɤɢ ɨɬɜɨɞɢɬɫɹ  ɩɨɡɢɰɢɣ ɷɤɪɚɧɚɬ ɤɜɵɜɨɞɢɦɵɣɬɟɤɫɬɤɨɪɨɱɟ ɫɢɦɜɨɥɨɜ ɬɨɨɧɞɨɩɨɥɧɢɬɫɹɜɧɚɱɚɥɟ ɩɪɨɛɟɥɚɦɢɬɟ ɛɭɞɟɬɩɪɚɜɨɭɫɬɚɧɨɜɥɟɧɧɵɦɜɨɬɜɟɞɟɧɧɨɦɟɦɭɩɨɥɟȺɧɚɥɨɝɢɱ ɧɨɪɚɫɩɨɥɨɠɚɬɫɹɜɨɬɜɨɞɢɦɨɦɞɥɹɧɢɯɦɟɫɬɟɷɤɪɚɧɚɰɟɥɵɟɱɢɫɥɚ– ɞɥɢɧɵɫɬɪɨɤ Ɍɚɤɢɦɨɛɪɚɡɨɦɪɟɡɭɥɶɬɚɬɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵɦɨɠɟɬɢɦɟɬɶɜɢɞ 138
ɞɥɢɧɚɩɟɪɜɨɣɫɬɪɨɤɢɞɥɢɧɚɜɬɨɪɨɣɫɬɪɨɤɢ 7 10 ɋ ɩɨɦɨɳɶɸ ɮɨɪɦɚɬɢɪɨɜɚɧɢɹ ɦɨɠɧɨ ɪɚɫɩɨɥɚɝɚɬɶ ɜɵɜɨɞɢɦɵɟ ɞɚɧɧɵɟ ɜ ɫɬɨɥɛɰɚɯɫɬɪɨɢɬɶɧɚɷɤɪɚɧɟɞɢɫɩɥɟɹɬɚɛɥɢɰɵ Ʉɨɩɢɪɨɜɚɧɢɟ ɫɬɪɨɤɢ ɢɥɢ ɟɟ ɱɚɫɬɢ Ɏɭɧɤɰɢɹ ɤɨɩɢɪɨɜɚɧɢɹ ɧɚɡɵɜɚɟɬɫɹ ɬɚɤɠɟ ©ɜɵɪɟɡɤɨɣª Ɉɧɚ ɩɨɡɜɨɥɹɟɬ ɫɤɨɩɢɪɨɜɚɬɶ ɨɞɧɭɨɛɥɚɫɬɶ ɩɚɦɹɬɢ ɜ ɞɪɭɝɭɸ Ⱦɥɹɤɨɩɢɪɨɜɚɧɢɹɧɟɨɛɯɨɞɢɦɨɭɤɚɡɚɬɶɫɬɪɨɤɨɜɨɟɜɵɪɚɠɟɧɢɟɢɡɡɧɚɱɟɧɢɹɤɨɬɨ ɪɨɝɨɜɵɞɟɥɹɟɬɫɹɱɚɫɬɶɚɬɚɤɠɟɧɚɱɚɥɶɧɵɣɧɨɦɟɪɫɢɦɜɨɥɚɢɤɨɥɢɱɟɫɬɜɨɫɢɦɜɨ ɥɨɜɤɨɩɢɪɭɟɦɨɣɱɚɫɬɢ FRS\ ɫɬɪɨɤɨɜɨɟɜɵɪɚɠɟɧɢɟɧɚɱɚɥɶɧɵɣɧɨɦɟɪɫɢɦɜɨɥɚ ɤɨɥɢɱɟɫɬɜɨɫɢɦɜɨɥɨɜ   ɇɚɩɪɢɦɟɪɪɟɡɭɥɶɬɚɬɨɦɪɚɛɨɬɵɮɭɧɤɰɢɢ FRS\ µɢɧɮɨɪɦɚɬɢɤɚµ) ɛɭɞɟɬɫɥɨɜɨµɮɨɪɦɚµ ɉɪɢɦɟɧɢɦ ɞɚɧɧɭɸ ɮɭɧɤɰɢɸ ɞɥɹ ɪɚɡɪɚɛɨɬɤɢ ɜɬɨɪɨɣ ɜɟɪɫɢɢ ɩɪɨɝɪɚɦɦɵ ɨɛɪɚɳɟɧɢɹ ɫɥɨɜɚ Ȼɭɞɟɦ ɨɛɪɚɛɚɬɵɜɚɬɶ ɫɥɨɜɨ ɜɵɞɟɥɹɹ ɢɡ ɧɟɝɨ ɛɭɤɜɵ ɢ ɩɪɢɫɨ ɟɞɢɧɹɹɤɪɟɡɭɥɶɬɚɬɭɫɥɟɜɚɉɟɪɟɦɟɧɧɨɣyɫɨɞɟɪɠɚɳɟɣɪɟɡɭɥɶɬɚɬɫɧɚɱɚɥɚɩɪɢ ɫɜɚɢɜɚɟɬɫɹɡɧɚɱɟɧɢɟɩɭɫɬɨɣɫɬɪɨɤɢɉɟɪɟɦɟɧɧɚɹɰɢɤɥɚɢɡɦɟɧɹɟɬɫɜɨɢɡɧɚɱɟɧɢɹ ɨɬ  ɩɟɪɜɨɝɨ ɫɢɦɜɨɥɚ ɫɥɨɜɚ  ɞɨ ɞɥɢɧɵ ɜɜɨɞɢɦɨɣ ɫɬɪɨɤɢ ɧɨɦɟɪɚ ɩɨɫɥɟɞɧɟɝɨ ɫɢɦɜɨɥɚɫɥɨɜɚ  program E 31 var [\string >@Linteger begin write ( ‘ɜɜɟɞɢɬɟ ɫɥɨɜɨ µ  readln [  \ µ¶^ɩɪɢɫɜɚɢɜɚɧɢɟɪɟɡɭɥɶɬɚɬɭɧɚɱɚɥɶɧɨɝɨɡɧɚɱɟɧɢɹ– ɩɭɫɬɨɝɨɫɥɨ ɜɚ` for L to OHQJWK [ do \ FRS\ [L \^ ɩɪɢɫɨɟɞɢɧɟɧɢɟɤɨɩɢɪɭɟɦɨɣɛɭɤɜɵɫɥɟɜɚ` writeln; write \ HQG ɉɨɢɫɤ ɩɨɞɫɬɪɨɤɢ ɜ ɫɬɪɨɤɟ Ɏɭɧɤɰɢɹ ɩɨɢɫɤɚ ɨɩɪɟɞɟɥɹɟɬ ɫ ɤɚɤɨɣ ɩɨɡɢ ɰɢɢ ɧɨɦɟɪɚ ɫɢɦɜɨɥɚ  ɨɞɧɚ ɫɬɪɨɤɚ ɩɨɞɫɬɪɨɤɚ  ɫɨɞɟɪɠɢɬɫɹ ɜ ɞɪɭɝɨɣ ɞɚɧɧɨɣ ɫɬɪɨɤɟ  ȿɫɥɢ ɬɚɤɨɟ ɜɯɨɠɞɟɧɢɟ ɩɨɞɫɬɪɨɤɢ ɜ ɫɬɪɨɤɭ ɢɦɟɟɬ ɦɟɫɬɨ ɬɨ ɪɟɡɭɥɶɬɚɬ ɪɚɛɨɬɵ ɮɭɧɤɰɢɢ – ɧɨɦɟɪ ɫɢɦɜɨɥɚ ɜ ɢɫɯɨɞɧɨɣ ɫɬɪɨɤɟ ɫ ɤɨɬɨɪɨɝɨ ɧɚɱɢɧɚɟɬɫɹ 139
ɩɨɞɫɬɪɨɤɚȿɫɥɢɜɯɨɠɞɟɧɢɹɧɟɬɬɨɪɟɡɭɥɶɬɚɬ– ɧɨɥɶȺɪɝɭɦɟɧɬɵɮɭɧɤɰɢɢɦɨɝɭɬ ɛɵɬɶɫɬɪɨɤɨɜɵɦɢɜɵɪɚɠɟɧɢɹɦɢ SRV ɩɨɞɫɬɪɨɤɚɢɫɯɨɞɧɚɹɫɬɪɨɤɚ   ȼɫɬɚɜɤɚɜɫɬɪɨɤɭȼɨɞɧɭɫɬɪɨɤɭɦɨɠɧɨɜɫɬɚɜɢɬɶɞɪɭɝɭɸɫɬɪɨɤɭɭɤɚɡɚɜ ɧɨɦɟɪ ɫɢɦɜɨɥɚ ɧɚɱɢɧɚɹ ɫ ɤɨɬɨɪɨɝɨ ɨɫɭɳɟɫɬɜɥɹɟɬɫɹ ɜɫɬɚɜɤɚ ȼɯɨɞɧɵɟ ɞɚɧɧɵɟ ɩɪɨɰɟɞɭɪɵ– ɜɫɬɚɜɥɹɟɦɚɹɫɬɪɨɤɚɢɫɯɨɞɧɚɹɫɬɪɨɤɚɢɰɟɥɨɱɢɫɥɟɧɧɨɟɜɵɪɚɠɟɧɢɟ ɡɚɞɚɸɳɟɟɩɨɡɢɰɢɸɜɫɬɚɜɤɢɋɬɪɨɤɢɬɚɤɠɟɦɨɝɭɬɛɵɬɶɡɚɞɚɧɵɫɬɪɨɤɨɜɵɦɢɜɵ ɪɚɠɟɧɢɹɦɢɊɟɡɭɥɶɬɚɬɪɚɛɨɬɵɩɪɨɰɟɞɭɪɵɩɨɦɟɳɚɟɬɫɹɜɢɫɯɨɞɧɭɸɫɬɪɨɤɭɫɬɪɨ ɤɚɩɪɢɷɬɨɦ©ɪɚɫɲɢɪɹɟɬɫɹª. ȿɫɥɢɞɥɢɧɚɜɫɬɚɜɤɢɫɨɜɦɟɫɬɧɨɫɞɥɢɧɨɣɢɫɯɨɞɧɨɣ ɫɬɪɨɤɢ ɩɪɟɜɵɲɚɟɬ ɞɨɩɭɫɬɢɦɭɸ ɞɥɢɧɭ ɢɫɯɨɞɧɨɣ ɫɬɪɨɤɢ ɬɨ ɜɫɬɚɜɤɚ ɭɤɨɪɚɱɢɜɚ ɟɬɫɹɫɩɪɚɜɚɞɨɞɨɩɭɫɬɢɦɨɣɞɥɢɧɵ LQVHUW ɜɫɬɚɜɥɹɟɦɚɹɫɬɪɨɤɚɢɫɯɨɞɧɚɹɫɬɪɨɤɚɰɟɥɨɱɢɫɥɟɧɧɨɟɜɵɪɚɠɟɧɢɟ   ɍɞɚɥɟɧɢɟ ɱɚɫɬɢ ɫɬɪɨɤɢ ɑɚɫɬɶ ɫɬɪɨɤɢ ɦɨɠɧɨ ɭɞɚɥɢɬɶ ɫɬɪɨɤɚ ɩɪɢ ɷɬɨɦ ©ɫɠɢɦɚɟɬɫɹªȾɥɹɭɞɚɥɟɧɢɹɧɟɨɛɯɨɞɢɦɨɭɤɚɡɚɬɶɫɬɪɨɤɭ ɜɜɢɞɟɫɬɪɨɤɨɜɨɝɨɜɵ ɪɚɠɟɧɢɹ  ɧɚɱɚɥɶɧɵɣ ɧɨɦɟɪ ɭɞɚɥɹɟɦɨɣ ɱɚɫɬɢ ɫɬɪɨɤɢ ɤɨɥɢɱɟɫɬɜɨ ɭɞɚɥɹɟɦɵɯ ɫɢɦɜɨɥɨɜɉɪɨɰɟɞɭɪɚɭɞɚɥɟɧɢɹɜɵɡɵɜɚɟɬɫɹɫɥɟɞɭɸɳɢɦɨɛɪɚɡɨɦ GHOHWH ɫɬɪɨɤɚɧɚɱɚɥɶɧɵɣɧɨɦɟɪɤɨɥɢɱɟɫɬɜɨɫɢɦɜɨɥɨɜ   Ɋɚɫɫɦɨɬɪɢɦ ɩɪɢɦɟɪ ɡɚɦɟɧɵ ɛɭɤɜɵ ɜ ɫɥɨɜɟ ɋɞɟɥɚɟɦ ɢɡ ɫɥɨɜɚ ©ɮɨɪɦɚª ɫɥɨɜɨ©ɮɢɪɦɚª. program E32 var [string >@ begin [ µɮɨɪɦɚ¶ insert (µɢ¶[ ^ɜɫɬɚɜɤɚɛɭɤɜɵ³ɢ´ɩɨɥɭɱɢɥɨɫɶɫɥɨɜɨ³ɮɢɨɪɦɚ´` delete [ ^ɭɞɚɥɟɧɢɟɬɪɟɬɶɟɣɛɭɤɜɵ– ɛɭɤɜɵ³ɨ´` write ( x ) HQG ɉɪɢɦɟɪ ɩɪɨɝɪɚɦɦɵ ɩɨɫɥɨɜɧɨɝɨ ɩɟɪɟɜɨɞɚ ɫ ɚɧɝɥɢɣɫɤɨɝɨ ɹɡɵɤɚ ɉɭɫɬɶ ɬɪɟɛɭɟɬɫɹ ɩɨɫɬɪɨɢɬɶ ɩɪɨɝɪɚɦɦɭ-ɩɟɪɟɜɨɞɱɢɤ ɤɨɬɨɪɚɹ ɛɵ ɧɟ ɭɱɢɬɵɜɚɹ ɩɪɚɜɢɥ ɝɪɚɦɦɚɬɢɤɢ ɩɪɨɫɬɨ ɩɟɪɟɜɨɞɢɥɚ ɤɚɠɞɨɟ ɫɥɨɜɨ ɜɜɨɞɢɦɨɝɨ ɩɪɟɞɥɨɠɟɧɢɹ ɉɨ ɫɤɨɥɶɤɭ ɩɪɨɝɪɚɦɦɚ ɞɟɦɨɧɫɬɪɚɰɢɨɧɧɚɹ ɫɥɨɜɚɪɢ ɧɟɛɨɥɶɲɢɟ ɫɨɞɟɪɠɚɬ ɩɨ  ɫɥɨɜ Ɉɞɧɚɤɨ ɜ ɫɥɭɱɚɟ ɪɚɫɲɢɪɟɧɢɹ ɫɥɨɜɚɪɟɣ ɩɪɨɝɪɚɦɦɭ ɦɨɠɧɨ ɢɫɩɨɥɶɡɨ ɜɚɬɶɢɞɥɹɪɟɚɥɶɧɨɝɨɩɨɫɥɨɜɧɨɝɨɩɟɪɟɜɨɞɚɂɞɟɹɜɵɞɟɥɟɧɢɹɫɥɨɜɢɡɜɜɨɞɢɦɨɝɨ ɩɪɟɞɥɨɠɟɧɢɹɨɫɧɨɜɚɧɚɧɚɬɨɦɱɬɨɫɥɨɜɚɪɚɡɞɟɥɹɸɬɫɹɤɚɤɨɛɵɱɧɨɩɪɨɛɟɥɚɦɢ ɢɜɵɪɟɡɚɟɬɫɹɫɥɨɜɨɦɟɠɞɭɞɜɭɦɹɩɪɨɛɟɥɚɦɢȾɚɥɟɟɩɪɢɨɛɪɚɳɟɧɢɢɤɫɥɨɜɚɪɸ ɢɳɟɬɫɹ ɫɨɜɩɚɞɟɧɢɟ ɜɵɞɟɥɟɧɧɨɝɨ ɫɥɨɜɚ ɫɨ ɫɥɨɜɚɦɢ ɫɥɨɜɚɪɹ ɉɪɢ ɧɚɯɨɠɞɟɧɢɢ 140
ɬɚɤɨɝɨɫɨɜɩɚɞɟɧɢɹɢɡɫɥɨɜɚɪɹɩɟɪɟɜɨɞɨɜɩɟɱɚɬɚɟɬɫɹɫɥɨɜɨɫɬɚɤɢɦɠɟɢɧɞɟɤɫɨɦ ɷɥɟɦɟɧɬɚɤɚɤɢɜɢɫɯɨɞɧɨɦɫɥɨɜɚɪɟɚɧɝɥɢɣɫɤɢɯɫɥɨɜɌɚɤɚɹɢɞɟɹɩɨɢɫɤɚɦɨɠɟɬ ɛɵɬɶɢɫɩɨɥɶɡɨɜɚɧɚɢɜɞɪɭɝɢɯɬɚɛɥɢɰɚɯɤɨɝɞɚɧɚɩɪɢɦɟɪɩɨɧɚɡɜɚɧɢɸɯɢɦɢɱɟ ɫɤɨɝɨɷɥɟɦɟɧɬɚɢɳɟɬɫɹɟɝɨɦɚɫɫɚ Ɋɚɫɫɦɨɬɪɢɦ ɷɬɚɩɵ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɧɚ ɩɪɢɦɟɪɟ ɩɟɪɟɜɨɞɚ ɩɪɟɞɥɨ ɠɟɧɢɹ ©, OLNH D FDWª Ⱦɥɹ ɜɵɞɟɥɟɧɢɹ ɫɥɨɜ ɢɡ ɩɪɟɞɥɨɠɟɧɢɹ ɛɭɞɟɦ ɢɫɩɨɥɶɡɨɜɚɬɶ ɞɜɚ ɭɤɚɡɚɬɟɥɹ ɉɟɪɜɵɣ ɢɡ ɧɢɯ – ɩɟɪɟɦɟɧɧɚɹ m ɟɟ ɡɧɚɱɟɧɢɟ ɜɫɟɝɞɚ  ɬ ɤ ɨɧɚ ɩɨɤɚɡɵɜɚɟɬɧɚɩɟɪɜɵɣɫɢɦɜɨɥɜɵɪɟɡɚɟɦɨɝɨ ɤɨɩɢɪɭɟɦɨɝɨ ɢɡɩɪɟɞɥɨɠɟɧɢɹɫɥɨ ɜɚȼɬɨɪɨɣɭɤɚɡɚɬɟɥɶ– ɡɧɚɱɟɧɢɟɩɟɪɟɦɟɧɧɨɣk – ɜɫɟɝɞɚɩɨɤɚɡɵɜɚɟɬɧɚɩɨɡɢɰɢɸ ɩɪɨɛɟɥɚɡɚɜɵɞɟɥɹɟɦɵɦɫɥɨɜɨɦɹɜɥɹɹɫɶɟɝɨɧɨɦɟɪɨɦȾɥɹɩɟɪɜɨɝɨɫɥɨɜɚɩɪɟɞ ɥɨɠɟɧɢɹ ɩɟɪɜɨɟ ɡɧɚɱɟɧɢɟ ɩɟɪɟɦɟɧɧɨɣ k – ɷɬɨ  Ɏɭɧɤɰɢɹ ɩɨɢɫɤɚ ɩɨɞɫɬɪɨɤɢ ɜ ɫɬɪɨɤɟɪɚɛɨɬɚɟɬɬɚɤɢɦɨɛɪɚɡɨɦɱɬɨɩɨɢɫɤɜɯɨɠɞɟɧɢɹɜɫɟɝɞɚ ɨɫɭɳɟɫɬɜɥɹɟɬɫɹɫ ɩɟɪɜɨɣɩɨɡɢɰɢɢɢɫɯɨɞɧɨɣɫɬɪɨɤɢɉɨɷɬɨɦɭɟɫɥɢɦɵɧɟɛɭɞɟɦɢɡɦɟɧɹɬɶɢɫɯɨɞ ɧɭɸɫɬɪɨɤɭɬɨɛɭɞɟɦɜɫɟɝɞɚɧɚɯɨɞɢɬɶɩɟɪɜɵɣɩɪɨɛɟɥɉɨɷɬɨɦɭɩɨɫɥɟɤɚɠɞɨɝɨ ɜɵɞɟɥɟɧɢɹ ɫɥɨɜɚ ɢɡ ɫɬɪɨɤɢ ɫɬɪɨɤɭ ɧɟɨɛɯɨɞɢɦɨ ©ɭɫɟɤɚɬɶª ɨɫɬɚɜɥɹɹ ɬɨɥɶɤɨ ɧɟɨɛɪɚɛɨɬɚɧɧɭɸɱɚɫɬɶɫɬɪɨɤɢɌɚɤɨɟ©ɭɫɟɱɟɧɢɟª ɩɪɨɢɡɜɨɞɢɬɨɩɟɪɚɬɨɪ D FRS\ DNQ- N  ɝɞɟQ–N ɞɥɢɧɚɨɫɬɚɜɲɟɣɫɹɩɨɫɥɟɜɵɞɟɥɟɧɢɹɨɱɟɪɟɞɧɨɝɨɫɥɨɜɚɱɚɫɬɢɫɬɪɨɤɢ Ɍɚɤɩɨɫɥɟɜɵɞɟɥɟɧɢɹɩɟɪɜɨɝɨɫɥɨɜɚɢɡɩɪɟɞɥɨɠɟɧɢɹ ɫɥɨɜɚ©,ª ɤɨɬɨɪɨɟɛɭɞɟɬ ɩɪɢɫɜɨɟɧɨɩɟɪɟɦɟɧɧɨɣɯɫɬɪɨɤɚɚ ɩɪɢɦɟɬɜɢɞ©OLNHDFDWªɉɪɢɩɨɢɫɤɟɜɫɥɨɜɚɪɟ ɚɧɝɥɢɣɫɤɢɯɫɥɨɜ ɦɚɫɫɢɜɟ ɡɧɚɱɟɧɢɟɩɟɪɟɦɟɧɧɨɣɯ ɫɪɚɜɧɢɜɚɟɬɫɹɫɤɚɠɞɵɦɫɥɨ ɜɨɦɫɥɨɜɚɪɹȿɫɥɢɩɪɨɢɡɨɲɥɨɫɨɜɩɚɞɟɧɢɟɬɨɩɟɱɚɬɚɟɬɫɹ ɫɥɨɜɨɢɡɫɥɨɜɚɪɹɪɭɫ ɫɤɢɯɫɥɨɜ ɦɚɫɫɢɜr ɫɬɚɤɢɦɠɟɩɨɪɹɞɤɨɜɵɦɧɨɦɟɪɨɦ ɤɚɤɜɚɧɝɥɢɣɫɤɨɦɫɥɨɜɚ ɪɟȿɫɥɢɜɟɫɶɫɥɨɜɚɪɶɩɪɨɫɦɨɬɪɟɧɧɨɫɥɨɜɨɧɟɧɚɣɞɟɧɨɬɨɩɟɱɚɬɚɟɬɫɹɫɨɨɛɳɟ ɧɢɟ©ɫɥɨɜɚɜɫɥɨɜɚɪɟɧɟɬªɉɪɨɝɪɚɦɦɚɨɛɪɚɛɚɬɵɜɚɟɬɨɩɪɟɞɟɥɟɧɧɵɣɢɧɟɨɩɪɟɞɟ ɥɟɧɧɵɣ ɚɪɬɢɤɥɢ ɨɧɢ ɜ ɫɥɨɜɚɪɟ ɧɟ ɢɳɭɬɫɹ ɩɪɨɢɫɯɨɞɢɬ ɩɟɪɟɯɨɞ ɤ ɨɛɪɚɛɨɬɤɟ ɫɥɟɞɭɸɳɟɝɨɫɥɨɜɚɩɪɟɞɥɨɠɟɧɢɹɉɪɨɝɪɚɦɦɚɢɦɟɟɬɜɢɞ program E33 label  const S ^ɤɨɥɢɱɟɫɬɜɨɫɥɨɜɜɤɚɠɞɨɦɫɥɨɜɚɪɟ` var HUarray >S@of string >@[string >@LNPQintegerDE string>@ begin ^ɮɨɪɦɢɪɨɜɚɧɢɟɫɥɨɜɚɪɟɣ` writeln µɜɜɟɞɢɬɟµSµɫɥɨɜɚɧɝɥɢɣɫɤɢɯµ  for L WRSdo readln H>L@  writeln ( ‘ɜɜɟɞɢɬɟ ɪɭɫɫɤɢɟ ɫɥɨɜɚ µ  for L  to S do UHDGOQ U>L@  ^ɜɜɨɞɢɜɵɞɟɥɟɧɢɟɫɥɨɜɢɡɩɪɟɞɥɨɠɟɧɢɹ` 141
writeln µɜɜɟɞɢɬɟɩɪɟɞɥɨɠɟɧɢɟµ  readln E  E D^ɫɨɯɪɚɧɟɧɢɟɢɫɯɨɞɧɨɝɨɩɪɟɞɥɨɠɟɧɢɹ` P Q OHQJWK D ^Q- ɞɥɢɧɚɩɪɟɞɥɨɠɟɧɢɹ` N SRV µµD ^ɩɨɢɫɤɩɪɨɛɟɥɚ` if N then N Q^ɜɵɫɬɚɜɥɟɧɢɟɩɪɨɛɟɥɚɩɨɫɥɟɩɨɫɥɟɞɧɟɝɨɫɥɨɜɚ` [ FRS\ DPN- P ^ɜɵɪɟɡɤɚɫɥɨɜɚɞɥɢɧɨɣN- P` if [ µD¶ or [ µWKH¶ then goto ^ɨɛɪɚɛɨɬɤɚ ɚɪɬɢɤɥɟɣ ` ^ɩɨɢɫɤɫɥɨɜɚɜɫɥɨɜɚɪɟ` for L  to Sdo LIH>L@ [then goto  writeln; writeln µɫɥɨɜɚɜɫɥɨɜɚɪɟɧɟɬ¶  goto  writeln U>L@ ^ɜɵɞɚɱɚɫɥɨɜɚɢɡɪɭɫɫɤɨɝɨɫɥɨɜɚɪɹ` N N^ɩɟɪɟɯɨɞɤɫɥɟɞɭɸɳɟɦɭɫɥɨɜɭɜɩɪɟɞɥɨɠɟɧɢɢ` D FRS\ DNQ- N  if D!µµthen goto  HQG ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ 1. ɑɟɦɨɬɥɢɱɚɟɬɫɹɫɢɦɜɨɥɶɧɵɣɬɢɩɞɚɧɧɵɯɨɬɫɬɪɨɤɨɜɵɯ" ɂɫɩɨɥɶɡɭɹɫɢɦɜɨɥɶɧɵɣɦɚɫɫɢɜ ɨɩɪɟɞɟɥɢɬɟɫɤɨɥɶɤɨɫɥɨɜɜɞɚɧɧɨɦɬɟɤ ɫɬɟ ɂɫɩɨɥɶɡɭɹɫɢɦɜɨɥɶɧɵɣɦɚɫɫɢɜɩɨɫɱɢɬɚɣɬɟ ɫɤɨɥɶɤɨɛɭɤɜ©ɚª ɜɞɚɧɧɨɦ ɫɥɨɜɟ ɂɫɩɨɥɶɡɭɹɫɪɟɞɫɬɜɚɨɛɪɚɛɨɬɤɢɫɬɪɨɤɢɫɩɪɚɜɶɬɟɫɥɨɜɨ©ɜɵɥɵɫɵɩɵɞɵɫ ɬɵª.  ɂɫɩɨɥɶɡɭɹ ɢɞɟɸ ɩɪɨɝɪɚɦɦɵ ɨɛɪɚɳɟɧɢɹ ɫɥɨɜɚ ȿ ɭɞɜɨɣɬɟ ɤɚɠɞɭɸ ɛɭɤɜɭɜɞɚɧɧɨɦɫɥɨɜɟ  ɂɫɩɨɥɶɡɭɹ ɩɪɨɝɪɚɦɦɭ ɨɛɪɚɳɟɧɢɹ ɫɥɨɜɚ ȿ ɨɩɪɟɞɟɥɢɬɟ ɹɜɥɹɟɬɫɹ ɥɢ ɞɚɧɧɨɟ ɫɥɨɜɨ ɩɚɥɢɧɞɪɨɦɨɦ ©ɩɟɪɟɜɟɪɬɵɲɟɦª ɧɚɩɪɢɦɟɪ ©ɤɚɡɚɤª ©ɩɨɬɨɩª ©ɤɨɤª ɢɬɞ). Ⱦɚɧɚɫɬɪɨɤɚɫɧɟɫɤɨɥɶɤɢɦɢɡɚɩɹɬɵɦɢɉɨɥɭɱɢɬɶɫɥɨɜɨɦɟɠɞɭɩɟɪɜɨɣɢ ɜɬɨɪɨɣ ɡɚɩɹɬɵɦɢ Ɋɟɲɢɬɶ ɡɚɞɚɱɭ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɦɚɫɫɢɜɚ ɫɢɦɜɨɥɨɜ ɢ ɫɬɪɨɤɢ ɫɢɦɜɨɥɨɜ 142
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ4ɋɢɦɜɨɥɶɧɵɣɬɢɩɞɚɧɧɵɯ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɨɛɪɚɛɨɬɤɢ ɦɚɫɫɢɜɨɜ ɫɢɦɜɨɥɨɜ ɬɢɩɞɚɧɧɵɯchar). ɁɚɞɚɧɢɟɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɫɩɪɢɦɟɧɟ ɧɢɟɦ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯ ɢɧɫɬɪɭɦɟɧɬɨɜ ɨɛɪɚɛɨɬɤɢ ɫɢɦɜɨɥɨɜ ȼɵɩɨɥɧɢɬɶ ɩɪɨ ɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ Ɂɚɞɚɧɢɟ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ȼɵɜɟɫɬɢɧɚɷɤɪɚɧɜɫɟɫɥɨɜɚɧɚɱɢɧɚɸɳɢɟɫɹɧɚ ɨɩɪɟɞɟɥɟɧɧɭɸɛɭɤɜɭ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜɇɚɣɬɢ ɜɧɟɦɫɢɦɦɟɬɪɢɱɧɨɟɫɥɨɜɨ ɩɚɥɢɧɞɪɨɦ ɦɚɤɫɢɦɚɥɶɧɨɣ ɞɥɢɧɵ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ɉɪɨɜɟɫɬɢɜɧɟɦɪɟɜɟɪɫɫɥɨɜɚɦɚɤɫɢɦɚɥɶɧɨɣɞɥɢɧɵ ɡɚɩɢɫɚɬɶɫɢɦɜɨɥɵɫɥɨɜɚɜɨɛɪɚɬɧɨɦɩɨɪɹɞɤɟ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ɍɞɚɥɢɬɶɢɡɤɚɠɞɨɝɨɫɥɨɜɚɜɫɟɩɨɫɥɟɞɭɸɳɢɟɜɯɨɠɞɟɧɢɹɟɝɨ ɩɟɪɜɨɣɛɭɤɜɵ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ɍɞɚɥɢɬɶɢɡɧɟɝɨɫɥɨɜɚɞɥɢɧɨɣɦɟɧɟɟɛɭɤɜ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ɍɞɚɥɢɬɶɢɡɧɟɝɨɜɫɟɫɥɨɜɚɦɚɤɫɢɦɚɥɶɧɨɣɞɥɢɧɵ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ɉɪɨɜɟɫɬɢɜɧɟɦɪɟɜɟɪɫɜɫɟɯɫɥɨɜ ɡɚɩɢɫɚɬɶɜɫɟɫɥɨɜɚɜ ɨɛɪɚɬɧɨɦɩɨɪɹɞɤɟ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ɉɨɞɫɱɢɬɚɬɶɜɧɟɦɤɨɥɢɱɟɫɬɜɨɛɭɤɜµɚ¶ȿɫɥɢɬɚɤɨɣɛɭɤɜɵ ɜɦɚɫɫɢɜɟɧɟɬ íɜɵɜɟɫɬɢɧɚɷɤɪɚɧɫɨɨɬɜɟɬɫɬɜɭɸɳɟɟ ɫɨɨɛɳɟɧɢɟ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ȼɵɜɟɫɬɢɧɚɷɤɪɚɧɫɥɨɜɨɫɦɚɤɫɢɦɚɥɶɧɵɦɤɨɥɢɱɟɫɬɜɨɦ ɝɥɚɫɧɵɯɛɭɤɜ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ Ɉɬɫɨɪɬɢɪɨɜɚɬɶɜɧɟɦɫɥɨɜɚɩɨɜɨɡɪɚɫɬɚɧɢɸɞɥɢɧɫɥɨɜ 2 ɋɨɫɬɚɜɥɟɧɨɫɢɫɩɨɥɶɡɨɜɚɧɢɟɦɦɚɬɟɪɢɚɥɨɜ Ⱥɧɞɪɢɚɧɨɜɚ Ⱥ Ⱥ Ⱥɥɝɨɪɢɬɦɢɡɚɰɢɹ ɢ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɟ ɉɪɚɤɬɢɤɭɦ ɭɱɟɛɧɨɟ ɩɨɫɨɛɢɟ  Ⱥ Ⱥ ȺɧɞɪɢɚɧɨɜɚɅɇɂɫɦɚɝɢɥɨɜɌɆɆɭɯɬɚɪɨɜɚ– ɋɉɛɂɡɞɚɬɟɥɶɫɬɜɨ©Ʌɚɧɶª– ɫ– Ɋɟɠɢɦɞɨɫɬɭɩɚɩɨɩɨɞɩɢɫɤɟ– KWWSVHODQERRNFRPERRN"FDWHJRU\  143
ȼɚɪɢɚɧɬʋ 11. 12. 13. 14. 15. 16. Ɂɚɞɚɧɢɟ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ȼɵɜɟɫɬɢɧɚɷɤɪɚɧɫɥɨɜɨɫɦɢɧɢɦɚɥɶɧɵɦɤɨɥɢɱɟɫɬɜɨɦ ɫɨɝɥɚɫɧɵɯɛɭɤɜ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ȼɵɜɟɫɬɢɧɚɷɤɪɚɧɜɫɟɫɥɨɜɚɧɚɱɢɧɚɸɳɢɟɫɹɧɚɝɥɚɫɧɭɸ ɛɭɤɜɭ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜɇɚɣɬɢ ɜɧɟɦɫɢɦɦɟɬɪɢɱɧɨɟɫɥɨɜɨ ɩɚɥɢɧɞɪɨɦ ɦɢɧɢɦɚɥɶɧɨɣ ɞɥɢɧɵ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ Ɂɚɩɢɫɚɬɶɜɫɟɫɥɨɜɚɫɩɪɨɩɢɫɧɨɣɛɭɤɜɵ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ɍɞɚɥɢɬɶɜɧɟɦɜɫɟɥɢɲɧɢɟɩɪɨɛɟɥɵ ɦɟɠɞɭɫɥɨɜɚɦɢ ɞɨɥɠɧɨɛɵɬɶɬɨɥɶɤɨɩɨɨɞɧɨɦɭɩɪɨɛɟɥɭ Ⱦɚɧɦɚɫɫɢɜɫɢɦɜɨɥɨɜɨɛɪɚɡɭɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜ ȼɵɜɟɫɬɢɧɚɷɤɪɚɧɤɨɥɢɱɟɫɬɜɨɫɥɨɜ Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨ ɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ȼ ɩɪɨɝɪɚɦɦɟ ɞɨɥɠɟɧ ɛɵɬɶ ɨɩɪɟɞɟɥɟɧ ɨɞɧɨɦɟɪɧɵɣ ɦɚɫɫɢɜ ɫɢɦɜɨɥɨɜ ɪɚɡ ɦɟɪɧɨɫɬɢ ” n” 50Ɋɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚɡɚɞɚɟɬɫɹɤɨɧɫɬɚɧɬɨɣ ȼɵɩɨɥɧɹɹ ɡɚɞɚɧɢɹɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵɫɥɟɞɭɟɬɩɨɦɧɢɬɶɱɬɨ í ɫɢɦɜɨɥɶɧɵɟ ɞɚɧɧɵɟ ɦɨɝɭɬ ɛɵɬɶ ɨɛɴɹɜɥɟɧɵ ɤɚɤ ɩɟɪɟɦɟɧɧɵɟ ɥɢɛɨ ɤɚɤ ɤɨɧɫɬɚɧɬɵ í ɡɧɚɱɟɧɢɹɦɢ ɩɟɪɟɦɟɧɧɨɣ ɥɢɛɨ ɤɨɧɫɬɚɧɬɵ  ɬɢɩɚ char ɦɨɝɭɬ ɹɜɥɹɬɶɫɹ ɜɫɟ ɫɢɦɜɨɥɵɤɨɬɨɪɵɟɜɵɫɜɟɱɢɜɚɸɬɫɹɧɚɷɤɪɚɧɟɞɢɫɩɥɟɹ í ɩɟɪɟɦɟɧɧɚɹ ɬɢɩɚ char ɦɨɠɟɬ ɩɪɢɧɢɦɚɬɶ ɡɧɚɱɟɧɢɟ ɥɢɲɶ ɨɞɧɨɝɨ ɫɢɦɜɨɥɚ ɤɨɬɨɪɨɟɦɨɠɧɨɩɪɢɫɜɨɢɬɶɟɣɫɩɨɦɨɳɶɸɨɩɟɪɚɬɨɪɚɜɜɨɞɚɢɥɢɠɟɫɩɨɦɨ ɳɶɸɨɩɟɪɚɬɨɪɚɩɪɢɫɜɚɢɜɚɧɢɹ í ɜɨɩɟɪɚɬɨɪɟɩɪɢɫɜɚɢɜɚɧɢɹɩɪɢɫɜɚɢɜɚɟɦɵɣɫɢɦɜɨɥɧɟɨɛɯɨɞɢɦɨɡɚɤɥɸɱɢɬɶ ɜɚɩɨɫɬɪɨɮɵɧɚɩɪɢɦɟɪx ¶ɜ¶ í ɤɚɠɞɨɦɭ ɫɢɦɜɨɥɭ ɫɨɨɬɜɟɬɫɬɜɭɟɬ ɨɩɪɟɞɟɥɟɧɧɵɣ ɤɨɞ – ɰɟɥɨɟ ɱɢɫɥɨ ɜ ɞɢɚ ɩɚɡɨɧɟ ɨɬ  ɞɨ  ɤɨɞ $6&,, ɚɧɝɥ $PHULFDQ 6WDQGDUG &RGH IRU ,QIRU PDWLRQ ,QWHUFKDQJH í ɚɦɟɪɢɤɚɧɫɤɢɣ ɫɬɚɧɞɚɪɬɧɵɣ ɤɨɞ ɞɥɹ ɨɛɦɟɧɚ ɢɧɮɨɪ ɦɚɰɢɟɣ). Ʉɞɚɧɧɵɦɬɢɩɚchar ɩɪɢɦɟɧɢɦɵɫɥɟɞɭɸɳɢɟɜɫɬɪɨɟɧɧɵɟɮɭɧɤɰɢɢ ord(x) – ɩɪɟɨɛɪɚɡɨɜɵɜɚɟɬɫɢɦɜɨɥɜɟɝɨɱɢɫɥɨɜɨɣɤɨɞ ɫɨɝɥɚɫɧɨ$6&,, (ɬɢɩ ɚɪɝɭɦɟɧɬɚ – ɫɢɦɜɨɥɶɧɵɣɬɢɩɪɟɡɭɥɶɬɚɬɚ – ɩɨɥɨɠɢɬɟɥɶɧɨɟɱɢɫɥɨɜɞɢɚɩɚɡɨɧɟɨɬ ɞɨ  pred(x) – ɜɨɡɜɪɚɳɚɟɬ ɩɪɟɞɲɟɫɬɜɭɸɳɢɣ ɫɢɦɜɨɥ ɨɬɧɨɫɢɬɟɥɶɧɨ x ɫɨɝɥɚɫɧɨ $6&,, ɬɢɩɚɪɝɭɦɟɧɬɚ – ɫɢɦɜɨɥɶɧɵɣɬɢɩɪɟɡɭɥɶɬɚɬɚ – ɫɢɦɜɨɥɶɧɵɣ  succ(x) – ɜɨɡɜɪɚɳɚɟɬ ɫɥɟɞɭɸɳɢɣ ɩɨ ɩɨɪɹɞɤɭ ɫɢɦɜɨɥ ɨɬɧɨɫɢɬɟɥɶɧɨ x ɫɨ ɝɥɚɫɧɨ$6&,, ɬɢɩɚɪɝɭɦɟɧɬɚ – ɫɢɦɜɨɥɶɧɵɣɬɢɩɪɟɡɭɥɶɬɚɬɚ – ɫɢɦɜɨɥɶɧɵɣ  144
chr(x) – ɩɪɟɨɛɪɚɡɭɟɬ ɜɵɪɚɠɟɧɢɟ ɬɢɩɚ byte ɜ ɫɢɦɜɨɥ ɢ ɜɨɡɜɪɚɳɚɟɬ ɷɬɨɬ ɫɢɦɜɨɥ ɜ ɤɚɱɟɫɬɜɟ ɫɜɨɟɝɨ ɡɧɚɱɟɧɢɹ ɫɨɝɥɚɫɧɨ $6&,, ɬɢɩ ɚɪɝɭɦɟɧɬɚ – byte ɬɢɩ ɪɟɡɭɥɶɬɚɬɚ – char). ȼPascal ɦɨɠɧɨɨɛɴɹɜɥɹɬɶɩɟɪɟɦɟɧɧɭɸɰɢɤɥɚɫɨɫɱɟɬɱɢɤɨɦɬɢɩɚcharȼ ɤɚɱɟɫɬɜɟ ɩɪɢɦɟɪɚ ɩɪɢɜɟɞɟɦ ɤɨɞ ɩɪɨɝɪɚɦɦɵ ɤɨɬɨɪɚɹ ɜɵɜɨɞɢɬ ɧɚ ɷɤɪɚɧ ɛɭɤɜɵ ɥɚɬɢɧɫɤɨɝɨ ɚɥɮɚɜɢɬɚɱɟɪɟɡɩɪɨɛɟɥɨɞɧɨɣɫɬɪɨɤɨɣ program DB] var L char begin for L µD¶to µ]¶do write Lµ¶  readln end. ȿɫɥɢɜɩɪɨɝɪɚɦɦɟɡɚɩɢɫɚɧɨɩɟɪɚɬɨɪɜɜɨɞɚɫɤɥɚɜɢɚɬɭɪɵreadɩɪɟɞɭɫɦɚɬ ɪɢɜɚɸɳɢɣ ɜɜɨɞ ɧɟɫɤɨɥɶɤɢɯ ɩɟɪɟɦɟɧɧɵɯ ɬɢɩɚ char ɬɨ ɜɜɨɞɹ ɞɚɧɧɵɟ ɦɨɠɧɨ ɜɜɟɫɬɢɫɢɦɜɨɥɵɫɥɢɬɧɨɢɜɤɨɧɰɟɧɚɠɚɬɶɤɥɚɜɢɲɭ(QWHUȼɪɟɡɭɥɶɬɚɬɟɤɚɠɞɵɣ ɫɢɦɜɨɥɛɭɞɟɬɩɨɦɟɳɟɧɜɫɜɨɸɹɱɟɣɤɭɩɚɦɹɬɢ ɇɚɩɪɢɦɟɪ read(x\]  ȿɫɥɢɜɩɪɨɰɟɫɫɟɜɜɨɞɚɞɚɧɧɵɯɩɨɥɶɡɨɜɚɬɟɥɶɧɚɠɚɥɧɚɤɥɚɜɢɚɬɭɪɟɛɟɡɩɪɨ ɛɟɥɚɬɪɢɤɥɚɜɢɲɢµaEF¶ɬɨɜɩɟɪɟɦɟɧɧɨɣ[ ɛɭɞɟɬɯɪɚɧɢɬɶɫɹɡɧɚɱɟɧɢɟµa¶ɜɩɟ ɪɟɦɟɧɧɨɣɭ – ɡɧɚɱɟɧɢɟµE¶ɚɜɩɟɪɟɦɟɧɧɨɣz – ɡɧɚɱɟɧɢɟµɫ¶ ȿɫɥɢ ɧɚɩɪɢɦɟɪ ɜ ɨɩɟɪɚɬɨɪɟ ɩɪɟɞɭɫɦɚɬɪɢɜɚɸɳɟɦ ɜɜɨɞ ɫɢɦɜɨɥɨɜ ɡɚɩɢ ɫɚɧɨread(x ɢɩɨɥɶɡɨɜɚɬɟɥɶɧɚɠɚɥɧɚɤɥɚɜɢɚɬɭɪɟɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɞɜɟɤɥɚɜɢ ɲɢµDE¶ɬɨɬɨɝɞɚɜɩɟɪɟɦɟɧɧɭɸ[ ɛɭɞɟɬɡɚɩɢɫɚɧɚɩɟɪɜɚɹɛɭɤɜɚ – ‘a¶ ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨɩɟ ɪɟɦɟɧɧɵɯɄɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢ ɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɨɛɪɚɛɨɬɤɢ ɦɚɫɫɢɜɨɜ ɫɢɦɜɨɥɨɜ ɬɢɩ ɞɚɧɧɵɯFKDU  Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ 3DVFDO ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯ ɢɧɫɬɪɭɦɟɧɬɨɜ ɨɛɪɚɛɨɬɤɢ ɫɢɦɜɨɥɨɜ ɞɚɧ ɦɚɫɫɢɜ ɫɢɦɜɨɥɨɜ ɨɛɪɚɡɭ ɸɳɢɣɧɟɫɤɨɥɶɤɨɫɥɨɜɜɵɜɟɫɬɢɧɚɷɤɪɚɧɤɨɥɢɱɟɫɬɜɨɫɥɨɜ 145
ȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const Q ^ɦɚɤɫɢɦɚɥɶɧɚɹɪɚɡɦɟɪɧɨɫɬɶɦɚɫɫɢɜɚ` var aarray>Q@of char^ɨɛɴɹɜɥɟɧɢɟɨɞɧɨɦɟɪɧɨɝɨɫɢɦɜɨɥɶɧɨɝɨɦɚɫɫɢɜɚ` NRO integer^ɩɟɪɟɦɟɧɧɚɹɞɥɹɧɚɯɨɠɞɟɧɢɹɤɨɥɢɱɟɫɬɜɚɜɜɟɞɟɧɧɵɯɫɥɨɜ` k integer ^ɜɫɩɨɦɨɝɚɬɟɥɶɧɚɹ ɩɟɪɟɦɟɧɧɚɹ ɞɥɹ ɯɪɚɧɟɧɢɹ ɤɨɥɢɱɟɫɬɜɚ ɜɜɟɞɟɧɧɵɯ ɫɢɦɜɨ ɥɨɜ` Linteger^ɫɱɟɬɱɢɤɰɢɤɥɚ` begin ^ȼɜɨɞɫɤɥɚɜɢɚɬɭɪɵɞɥɢɧɵɢɫɯɨɞɧɨɣɫɬɪɨɤɢ` writeln ɍɤɚɠɢɬɟ ɫɭɦɦɚɪɧɭɸ ɞɥɢɧɭ ɜɜɨɞɢɦɨɣ ɫɬɪɨɤɢ ɜɤɥɸɱɚɹ ɩɪɨɛɟɥɵ ɋɬɪɨɤɚ ɧɟɞɨɥɠɧɚɩɪɟɜɵɲɚɬɶ Q  ɫɢɦɜɨɥɨɜ  k  repeat ^ȼɜɨɞɢɦɨɝɪɚɧɢɱɟɧɢɟɧɚɜɜɨɞɢɦɨɟɡɧɚɱɟɧɢɟk} UHDGOQ N until N! and N  writeln ȼɜɟɞɢɬɟ ɫɬɪɨɤɭ ɢ ɜ ɤɨɧɰɟ ɧɚɠɦɢɬɟ ɤɥɚɜɢɲɭ (QWHU. Ɇɚɤɫɢɦɚɥɶɧɚɹ ɞɥɢɧɚ ɜɜɟɞɟɧɧɨɣ ɫɬɪɨɤɢ k  ɫɢɦɜɨɥɨɜɜɤɥɸɱɚɹɩɪɨɛɟɥɵ  {ȼɜɨɞɢɫɯɨɞɧɨɣɫɬɪɨɤɢ} for L to k do read(a>L@  ^ɉɟɪɜɨɧɚɱɚɥɶɧɨɩɪɟɞɩɨɥɚɝɚɟɦɱɬɨɩɨɥɶɡɨɜɚɬɟɥɶɧɟɜɜɟɥɧɢɨɞɧɨɝɨɫɥɨɜɚ` NRO  ^ȼɵɜɨɞɧɚɷɤɪɚɧɜɜɟɞɟɧɧɨɣɫɬɪɨɤɢ` writeln ɂɫɯɨɞɧɚɹɫɬɪɨɤɚ  for L to k do write(a>L@  writeln ^ɉɨɞɫɱɟɬɤɨɥɢɱɟɫɬɜɚɫɥɨɜɜɫɬɪɨɤɟ` for L to k do if D>L@  and D>L-@!  and L! or D>L@!  and L N then NRO NRO ^ȼɵɜɨɞɪɟɡɭɥɶɬɚɬɚɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ` writeln Ʉɨɥɢɱɟɫɬɜɨɫɥɨɜɪɚɜɧɨ NRO  readln end. 146
ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫɪɟɡɭɥɶɬɚɬɚɦɢɪɚɫɱɟɬɨɜɜɪɭɱɧɭɸɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɩɪɨɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚ ɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. Ⱦɥɹɱɟɝɨɫɥɭɠɢɬɬɢɩɞɚɧɧɵɯchar" 2. Ʉɚɤɢɟɞɚɧɧɵɟɦɨɠɟɬɫɨɞɟɪɠɚɬɶɩɟɪɟɦɟɧɧɚɹɬɢɩɚchar" 3. Ʉɚɤɩɪɢɫɜɨɢɬɶɩɟɪɟɦɟɧɧɨɣɬɢɩɚchar ɨɩɪɟɞɟɥɟɧɧɨɟɡɧɚɱɟɧɢɟɫɤɥɚɜɢɚɬɭ ɪɵ" 4. Ʉɚɤ ɡɚɞɚɬɶ ɩɟɪɟɦɟɧɧɨɣ ɬɢɩɚ char ɨɩɪɟɞɟɥɟɧɧɨɟ ɡɧɚɱɟɧɢɟ ɜ ɨɩɟɪɚɬɨɪɟ ɩɪɢɫɜɚɢɜɚɧɢɹ" 5. Ʉɚɤɢɟɜɫɬɪɨɟɧɧɵɟɮɭɧɤɰɢɢɦɨɠɧɨɩɪɢɦɟɧɢɬɶɞɥɹɨɛɪɚɛɨɬɤɢɫɢɦɜɨɥɶɧɵɯ ɩɟɪɟɦɟɧɧɵɯ" 6. Ʉɚɤɦɨɠɧɨɩɪɟɨɛɪɚɡɨɜɚɬɶɜɵɪɚɠɟɧɢɟɬɢɩɚbyte ɜɫɢɦɜɨɥ" 7. ɑɬɨɬɚɤɨɟɤɨɞ$6&,," 147
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ5Ɉɛɪɚɛɨɬɤɚɫɬɪɨɤ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɨɛɪɚɛɨɬɤɢ ɫɬɪɨɤ ɬɢɩ ɞɚɧɧɵɯ string). ɁɚɞɚɧɢɟɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɫɩɪɢɦɟɧɟ ɧɢɟɦɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯɩɪɨɰɟɞɭɪɢɮɭɧɤɰɢɣɨɛɪɚɛɨɬɤɢɫɬɪɨɤȼɵɩɨɥɧɢɬɶɩɪɨ ɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ Ɂɚɞɚɧɢɟ Ɉɩɪɟɞɟɥɢɬɶɤɨɥɢɱɟɫɬɜɨɫɥɨɜɜɨɜɜɟɞɟɧɧɨɣɫɤɥɚɜɢɚɬɭɪɵ ɫɬɪɨɤɟ ȾɚɧɚɫɬɪɨɤɚɧɚɚɧɝɥɢɣɫɤɨɦɹɡɵɤɟɈɩɪɟɞɟɥɢɬɶɫɤɨɥɶɤɨ ɜɧɟɣɛɭɤɜaoei ȾɚɧɚɫɬɪɨɤɚɫɨɫɬɨɹɳɚɹɢɡɧɟɫɤɨɥɶɤɢɯɫɥɨɜɈɩɪɟɞɟɥɢɬɶ ɞɥɢɧɭɫɚɦɨɝɨɤɨɪɨɬɤɨɝɨɢɫɚɦɨɝɨɞɥɢɧɧɨɝɨɫɥɨɜɚɜɞɚɧɧɨɣ ɫɬɪɨɤɟ Ⱦɚɧɚɫɬɪɨɤɚɫɢɦɜɨɥɨɜɫɪɟɞɢɤɨɬɨɪɵɯɩɪɢɫɭɬɫɬɜɭɟɬ ɞɜɨɟɬɨɱɢɟ : ɉɨɞɫɱɢɬɚɬɶɤɨɥɢɱɟɫɬɜɨɫɢɦɜɨɥɨɜɤɨɬɨɪɵɟ ɟɦɭɩɪɟɞɲɟɫɬɜɭɸɬ ȾɚɧɚɫɬɪɨɤɚɁɚɦɟɧɢɬɶɜɧɟɣɜɫɟɬɨɱɤɢ  ɧɚɞɜɨɟɬɨɱɢɟ :) ȾɚɧɚɫɬɪɨɤɚɈɩɪɟɞɟɥɢɬɶɫɤɨɥɶɤɨɪɚɡɜɯɨɞɢɬɜɧɟɟ ɫɨɱɟɬɚɧɢɟɛɭɤɜabc Ⱦɚɧɚɫɬɪɨɤɚɫɢɦɜɨɥɨɜɫɪɟɞɢɤɨɬɨɪɵɯɟɫɬɶɨɞɧɚ ɨɬɤɪɵɜɚɸɳɚɹɫɹɢɨɞɧɚɡɚɤɪɵɜɚɸɳɚɹɫɹɫɤɨɛɤɚȼɵɜɟɫɬɢɧɚ ɷɤɪɚɧɜɫɟɫɢɦɜɨɥɵɧɚɯɨɞɹɳɢɟɫɹɜɧɭɬɪɢɞɚɧɧɵɯɫɤɨɛɨɤ Ⱦɚɧɚɫɬɪɨɤɚȼɵɜɟɫɬɢɧɚɷɤɪɚɧɬɟɫɥɨɜɚɤɨɬɨɪɵɟɫɨɞɟɪɠɚɬ ɯɨɬɹɛɵɨɞɧɭɛɭɤɜɭɚ ȼɫɬɪɨɤɟɦɟɠɞɭɫɥɨɜɚɦɢɜɫɬɚɜɢɬɶɜɦɟɫɬɨɩɪɨɛɟɥɚɡɚɩɹɬɭɸ ɢɩɪɨɛɟɥ ɉɨɞɫɱɢɬɚɬɶɫɤɨɥɶɤɨɪɚɡɜɨɜɜɟɞɟɧɧɨɣɫɤɥɚɜɢɚɬɭɪɵɫɬɪɨɤɟ ɜɫɬɪɟɱɚɟɬɫɹɨɩɪɟɞɟɥɟɧɧɨɟɫɥɨɜɨ ɋɬɪɨɤɚɫɨɞɟɪɠɢɬɨɞɧɨɫɥɨɜɨɉɪɨɜɟɪɢɬɶɹɜɥɹɟɬɫɹɥɢɨɧɨ ɩɚɥɢɧɞɪɨɦɨɦ ɱɢɬɚɟɬɫɹɥɢɨɧɨɨɞɢɧɚɤɨɜɨɫɥɟɜɚɧɚɩɪɚɜɨ ɢɫɩɪɚɜɚɧɚɥɟɜɨ ȼɨɜɜɟɞɟɧɧɨɣɫɤɥɚɜɢɚɬɭɪɵɫɬɪɨɤɟɫɥɨɜɚɡɚɲɢɮɪɨɜɚɧɵ ɡɚɩɢɫɚɧɵɧɚɨɛɨɪɨɬ ɇɟɨɛɯɨɞɢɦɨɪɚɫɲɢɮɪɨɜɚɬɶ ɫɨɨɛɳɟɧɢɟ 3 ɋɨɫɬɚɜɥɟɧɨɫɢɫɩɨɥɶɡɨɜɚɧɢɟɦɦɚɬɟɪɢɚɥɨɜ Ʉɨɦɚɪɨɜɚ ȿɋ ɉɪɚɤɬɢɤɭɦ ɩɨ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɸ ɧɚ ɹɡɵɤɟ ɉɚɫɤɚɥɶ  ȿɋ Ʉɨɦɚɪɨɜɚ – ɆɨɫɤɜɚȻɟɪɥɢɧȾɢɪɟɤɬ-Ɇɟɞɢɚ– ɑ– ɫ. – Ɋɟɠɢɦɞɨɫɬɭɩɚɩɨɩɨɞɩɢɫɤɟ– 85/ KWWSELEOLRFOXEUXLQGH[SKS"SDJH ERRN LG . 148
ȼɚɪɢɚɧɬʋ 13. 14. 15. 16. Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɩɪɨɜɟɪɢɬɶɨɞɢɧɚɤɨɜɨɟɥɢɱɢɫɥɨ ɨɬɤɪɵɜɚɸɳɢɯɫɹɢɡɚɤɪɵɜɚɸɳɢɯɫɹɫɤɨɛɨɤɫɨɞɟɪɠɢɬɫɹ ɜɨɜɜɟɞɟɧɧɨɣɫɤɥɚɜɢɚɬɭɪɵɫɬɪɨɤɟ ȼɜɟɞɟɧɧɚɹɫɤɥɚɜɢɚɬɭɪɵɫɬɪɨɤɚɫɨɞɟɪɠɢɬɬɟɤɫɬɧɚɪɭɫɫɤɨɦ ɹɡɵɤɟɈɩɪɟɞɟɥɢɬɶɤɚɤɢɟɛɭɤɜɵɜɧɟɦɩɪɟɨɛɥɚɞɚɸɬ – ɝɥɚɫɧɵɟɢɥɢɫɨɝɥɚɫɧɵɟ ɇɟɨɛɯɨɞɢɦɨɜɨɜɜɟɞɟɧɧɨɣɫɤɥɚɜɢɚɬɭɪɵɫɬɪɨɤɟɭɞɚɥɢɬɶ ɱɚɫɬɶɬɟɤɫɬɚɪɚɫɩɨɥɨɠɟɧɧɨɝɨɜɧɭɬɪɢɤɪɭɝɥɵɯɫɤɨɛɨɤ ɜɦɟɫɬɟɫɨɫɤɨɛɤɚɦɢ ɇɭɠɧɨɜɫɬɪɨɤɟɜɜɟɞɟɧɧɨɣɫɤɥɚɜɢɚɬɭɪɵɫɞɟɥɚɬɶ ɜɫɬɚɜɤɢíɩɨɫɥɟɫɨɱɟɬɚɧɢɹɛɭɤɜkg ɧɟɨɛɯɨɞɢɦɨɜɫɬɚɜɢɬɶ ɬɨɱɤɭɟɫɥɢɟɟɬɚɦɧɟɬ Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨ ɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ɉɪɨɝɪɚɦɦɚɞɨɥɠɧɚɩɪɟɞɭɫɦɚɬɪɢɜɚɬɶɜɜɨɞɢɫɯɨɞɧɨɣɫɬɪɨɤɢɫɤɥɚɜɢɚɬɭɪɵ ɇɟɠɟɥɚɬɟɥɶɧɨ ɜɜɨɞɢɬɶ ɢɫɯɨɞɧɭɸ ɫɬɪɨɤɭ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɨɩɟɪɚɬɨɪɚ ɩɪɢɫɜɚɢɜɚ ɧɢɹ ȼɵɩɨɥɧɹɹ ɡɚɞɚɧɢɹɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵɫɥɟɞɭɟɬɩɨɦɧɢɬɶɱɬɨ í ɩɟɪɟɦɟɧɧɚɹɬɢɩɚstring ɦɨɠɟɬɫɨɞɟɪɠɚɬɶɞɨɫɢɦɜɨɥɨɜ í ɜɪɚɡɞɟɥɟɨɛɴɹɜɥɟɧɢɹɩɟɪɟɦɟɧɧɵɯvar ɞɥɢɧɭɫɬɪɨɤɢɦɨɠɧɨɡɚɞɚɜɚɬɶɹɜɧɨ ɜɤɜɚɞɪɚɬɧɵɯɫɤɨɛɤɚɯɩɨɫɥɟɫɥɭɠɟɛɧɨɝɨɫɥɨɜɚstringɧɚɩɪɢɦɟɪ var s string>@ í ɤ ɨɩɪɟɞɟɥɟɧɧɨɦɭ ɫɢɦɜɨɥɭ ɜ ɫɬɪɨɤɟ ɦɨɠɧɨ ɨɛɪɚɬɢɬɶɫɹ ɭɤɚɡɚɜ ɜ ɤɜɚɞɪɚɬ ɧɵɯ ɫɤɨɛɤɚɯ ɪɹɞɨɦ ɫ ɢɦɟɧɟɦ ɫɨɨɬɜɟɬɫɬɜɭɸɳɟɣ ɫɬɪɨɤɨɜɨɣ ɩɟɪɟɦɟɧɧɨɣ ɢɧɞɟɤɫɫɢɦɜɨɥɚɜɫɬɪɨɤɟɧɚɩɪɢɦɟɪs>@ í ɟɫɥɢɮɚɤɬɢɱɟɫɤɚɹɞɥɢɧɚɫɬɪɨɤɢɡɚɧɢɦɚɟɬk ɫɢɦɜɨɥɨɜɬɨɷɥɟɦɟɧɬɵɞɚɧɧɨɣ ɫɬɪɨɤɢɢɦɟɸɬɧɨɦɟɪɚɨɬɞɨk ɜɤɥɸɱɢɬɟɥɶɧɨ í ɟɫɥɢ ɜ ɩɪɨɰɟɫɫɟ ɨɛɴɟɞɢɧɟɧɢɹ ɫɬɪɨɤ ɞɥɢɧɚ ɪɟɡɭɥɶɬɢɪɭɸɳɟɣ ɫɬɪɨɤɢ ɩɪɟ ɜɵɫɢɬɫɢɦɜɨɥɨɜɬɨɥɢɲɧɢɟɫɢɦɜɨɥɵɛɭɞɭɬɨɬɛɪɨɲɟɧɵ í ɦɨɠɧɨɩɪɢɫɜɚɢɜɚɬɶɞɪɭɝɞɪɭɝɭɡɧɚɱɟɧɢɹɫɬɪɨɤɪɚɡɧɨɝɨɪɚɡɦɟɪɚɧɨɜɩɪɨ ɰɟɫɫɟɩɪɢɫɜɚɢɜɚɧɢɹɪɚɡɦɟɪɵɫɬɪɨɤɧɟɤɨɧɬɪɨɥɢɪɭɸɬɫɹɢɥɢɲɧɢɟɫɢɦɜɨɥɵ ɛɭɞɭɬɨɬɛɪɨɲɟɧɵ ȼɯɨɞɟɜɵɩɨɥɧɟɧɢɹɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵɦɨɝɭɬɩɨɧɚɞɨɛɢɬɶɫɹɜɫɬɪɨɟɧɧɵɟ ɩɪɨɰɟɞɭɪɵ ɢ ɮɭɧɤɰɢɢ ɨɛɪɚɛɨɬɤɢ ɫɬɪɨɤ copy delete insert pos length ɢ ɞɪ  ɉɪɢɦɟɧɹɹɜɫɬɪɨɟɧɧɵɟɩɪɨɰɟɞɭɪɵɢɮɭɧɤɰɢɢɫɥɟɞɭɟɬɜɧɢɦɚɬɟɥɶɧɨɡɚɞɚɜɚɬɶɢɯ ɚɪɝɭɦɟɧɬɵ ȿɫɥɢ ɜ ɩɪɨɰɟɞɭɪɟ delete ɜ ɤɚɱɟɫɬɜɟ ɧɨɦɟɪɚ ɩɨɡɢɰɢɢ ɩɟɪɜɨɝɨ ɭɞɚɥɹɟɦɨɝɨ ɫɢɦɜɨɥɚɭɤɚɡɚɧɨɱɢɫɥɨɤɨɬɨɪɨɟɩɪɟɜɵɲɚɟɬɞɥɢɧɭɫɬɪɨɤɢɬɨɢɡɢɫɯɨɞɧɨɣɫɬɪɨ ɤɢɫɢɦɜɨɥɵɭɞɚɥɟɧɵɧɟɛɭɞɭɬ 149
ȼɫɬɚɜɤɚ ɜ ɧɚɱɚɥɨ ɢɥɢ ɤɨɧɟɰ ɫɬɪɨɤɢ ɩɨɞɫɬɪɨɤɢ ɫ ɩɨɦɨɳɶɸ ɩɪɨɰɟɞɭɪɵ insert ɪɚɜɧɨɡɧɚɱɧɚɨɩɟɪɚɰɢɢɫɥɨɠɟɧɢɹ ɫɥɢɹɧɢɹ ɫɬɪɨɤ Ⱦɥɹ ɨɛɴɟɞɢɧɟɧɢɹ ɧɟɫɤɨɥɶɤɢɯ ɫɬɪɨɤ ɭɞɨɛɧɨ ɩɪɢɦɟɧɹɬɶ ɮɭɧɤɰɢɸcoQ cat(VWU VWU VWU«  ɂɬɨɝɨɦ ɪɚɛɨɬɵ ɞɚɧɧɨɣ ɮɭɧɤɰɢɢ ɛɭɞɟɬ ɫɬɪɨɤɚ ɩɪɟɞɫɬɚɜ ɥɹɸɳɚɹɫɨɛɨɣɨɛɴɟɞɢɧɟɧɢɟɫɬɪɨɤɡɚɞɚɧɧɵɯɜɤɚɱɟɫɬɜɟɩɚɪɚɦɟɬɪɨɜɮɭɧɤɰɢɢ ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨɩɟ ɪɟɦɟɧɧɵɯɄɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢ ɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɨɛɪɚɛɨɬɤɢɫɬɪɨɤ ɬɢɩɞɚɧɧɵɯstring). Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ 3DVFDO ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɫ ɩɪɢɦɟɧɟɧɢɟɦ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯɩɪɨɰɟɞɭɪɢɮɭɧɤɰɢɣɨɛɪɚɛɨɬɤɢɫɬɪɨɤɧɭɠɧɨɜɫɬɪɨɤɟɜɜɟɞɟɧɧɨɣɫ ɤɥɚɜɢɚɬɭɪɵɫɞɟɥɚɬɶɜɫɬɚɜɤɢíɩɨɫɥɟɫɨɱɟɬɚɧɢɹɛɭɤɜkg ɧɟɨɛɯɨɞɢɦɨɜɫɬɚɜɢɬɶɬɨɱɤɭ ɟɫɥɢɟɟɬɚɦɧɟɬ ȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` var s string^ɢɫɯɨɞɧɚɹɫɬɪɨɤɚ` Ll integer^ɜɫɩɨɦɨɝɚɬɟɥɶɧɵɟɩɟɪɟɦɟɧɧɵɟɞɥɹɯɪɚɧɟɧɢɹɢɧɞɟɤɫɨɜ` x\] char ^ɜɫɩɨɦɨɝɚɬɟɥɶɧɵɟɩɟɪɟɦɟɧɧɵɟɞɥɹɯɪɚɧɟɧɢɹɡɧɚɱɟɧɢɣɬɪɟɯɪɚɫɩɨɥɨɠɟɧ ɧɵɯɪɹɞɨɦɫɢɦɜɨɥɨɜɢɫɯɨɞɧɨɣɫɬɪɨɤɢ` begin writeln ȼɜɟɞɢɬɟɫɬɪɨɤɭ  readln(s ^ɜɜɨɞɫɤɥɚɜɢɚɬɭɪɵɢɫɯɨɞɧɨɣɫɬɪɨɤɢ` ^Ɉɩɪɟɞɟɥɹɟɦɞɥɢɧɭɜɜɟɞɟɧɧɨɣɩɨɥɶɡɨɜɚɬɟɥɟɦɫɬɪɨɤɢɢɡɚɩɢɫɵɜɚɟɦɟɟɜl} O length(s  L  while L O-1) do {ɡɚɞɚɟɦɭɫɥɨɜɢɟɜɵɯɨɞɚɢɡɰɢɤɥɚ} begin x s>L@ \ s>L@ ] s>L@ ^ɉɪɨɜɟɪɹɟɦɟɫɬɶɥɢɫɨɱɟɬɚɧɢɟɫɢɦɜɨɥɨɜkgɛɟɡɬɨɱɤɢɜɤɨɧɰɟɟɫɥɢɟɫɬɶ ɬɨɞɨɛɚɜɥɹɟɦɬɨɱɤɭ` if [ N and \ J and ]!  then begin 150
insert  VL  l l^ɩɨɫɤɨɥɶɤɭɛɵɥɚɞɨɛɚɜɥɟɧɚɬɨɱɤɚɞɥɢɧɚɫɬɪɨɤɢɭɜɟɥɢɱɢɥɚɫɶ ɧɚɫɢɦɜɨɥɢɷɬɨɧɭɠɧɨɭɱɟɫɬɶɜɩɟɪɟɦɟɧɧɨɣl} L L ^ɤɨɪɪɟɤɬɢɪɭɟɦ ɡɧɚɱɟɧɢɟ ɢɧɞɟɤɫɚ i ɞɥɹ ɨɫɭɳɟɫɬɜɥɟɧɢɹ ɩɟɪɟ ɯɨɞɚɤɫɥɟɞɭɸɳɟɣɝɪɭɩɩɟɫɢɦɜɨɥɨɜ` end ^ɩɟɪɟɞelseɜɨɩɟɪɚɬɨɪɟIFɬɨɱɤɭɫɡɚɩɹɬɨɣɫɬɚɜɢɬɶɧɟɥɶɡɹ` else L L ^ɤɨɪɪɟɤɬɢɪɭɟɦ ɡɧɚɱɟɧɢɟ ɢɧɞɟɤɫɚ i ɞɥɹ ɨɫɭɳɟɫɬɜɥɟɧɢɹ ɩɟɪɟɯɨɞɚ ɤ ɫɥɟɞɭɸɳɟɣ ɝɪɭɩɩɟɫɢɦɜɨɥɨɜ` end ^ɉɪɨɜɟɪɹɟɦɞɜɚɩɨɫɥɟɞɧɢɯɫɢɦɜɨɥɚɜɫɬɪɨɤɟȿɫɥɢɨɧɢɪɚɜɧɵkgɬɨɩɨɫɥɟɧɢɯɞɨ ɛɚɜɥɹɟɦɬɨɱɤɭ` if V>O-@ N and V>O@ J then insert  VO  writeln ɉɪɟɨɛɪɚɡɨɜɚɧɧɚɹɫɬɪɨɤɚ  write(s  ^ɜɵɜɨɞɢɦɩɪɟɨɛɪɚɡɨɜɚɧɧɭɸɫɬɪɨɤɭɧɚɷɤɪɚɧ` readln; end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal 151
ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫɪɟɡɭɥɶɬɚɬɚɦɢɪɚɫɱɟɬɨɜɜɪɭɱɧɭɸɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɩɪɨɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚ ɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. Ⱦɚɣɬɟɨɩɪɟɞɟɥɟɧɢɟɩɨɧɹɬɢɸ©ɫɬɪɨɤɚªɫɬɨɱɤɢɡɪɟɧɢɹɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ 2. Ʉɚɤɨɜɚɦɚɤɫɢɦɚɥɶɧɚɹɞɥɢɧɚɨɛɪɚɛɚɬɵɜɚɟɦɨɣɫɬɪɨɤɢ" 3. ɇɚɩɢɲɢɬɟɫɢɧɬɚɤɫɢɫɨɩɢɫɚɧɢɹɫɬɪɨɤɢɜɪɚɡɞɟɥɟvarɜɬɨɦɱɢɫɥɟɜɫɢɬɭɚ ɰɢɢɹɜɧɨɝɨɡɚɞɚɧɢɹɪɚɡɦɟɪɚɫɬɪɨɤɢ 4. Ʉɚɤɦɨɠɧɨɨɛɪɚɬɢɬɶɫɹɤɨɩɪɟɞɟɥɟɧɧɨɦɭɫɢɦɜɨɥɭɜɫɬɪɨɤɟ" 5. ɑɬɨȼɵɡɧɚɟɬɟɨɛɨɩɟɪɚɰɢɢɨɛɴɟɞɢɧɟɧɢɹɫɬɪɨɤ" 6. ɑɬɨɩɪɨɢɡɨɣɞɟɬɟɫɥɢɜɩɪɨɰɟɫɫɟɨɛɴɟɞɢɧɟɧɢɹɫɬɪɨɤɞɥɢɧɚɪɟɡɭɥɶɬɢɪɭɸ ɳɟɣɫɬɪɨɤɢɩɪɟɜɵɫɢɬɫɢɦɜɨɥɨɜ" 7. Ʉɚɤɨɫɭɳɟɫɬɜɥɹɟɬɫɹɫɪɚɜɧɟɧɢɟɫɬɪɨɤ" 8. Ɋɚɫɫɤɚɠɢɬɟɨɛɨɫɨɛɟɧɧɨɫɬɹɯɩɪɢɦɟɧɟɧɢɹɨɩɟɪɚɬɨɪɚɩɪɢɫɜɚɢɜɚɧɢɹ ɤɞɚɧ ɧɵɦɫɬɪɨɤɨɜɨɝɨɬɢɩɚ 9. Ʉɚɤɦɨɠɧɨɨɩɪɟɞɟɥɢɬɶɞɥɢɧɭɫɬɪɨɤɢ" 10. ɇɚɩɢɲɢɬɟ ɫɢɧɬɚɤɫɢɫ ɮɭɧɤɰɢɢ ɤɨɩɢɪɨɜɚɧɢɹ ɫɬɪɨɤɢ ɢɥɢ ɟɟ ɱɚɫɬɢ ɢ ɨɩɢ ɲɢɬɟɤɚɤɨɧɚɪɚɛɨɬɚɟɬ 11. ɋ ɩɨɦɨɳɶɸ ɤɚɤɨɣ ɮɭɧɤɰɢɢ ɦɨɠɧɨ ɧɚɣɬɢ ɨɩɪɟɞɟɥɟɧɧɭɸ ɩɨɞɫɬɪɨɤɭ ɜ ɫɬɪɨɤɟ"ɇɚɩɢɲɢɬɟɟɟɫɢɧɬɚɤɫɢɫ 12. Ʉɚɤɨɫɭɳɟɫɬɜɢɬɶɜɫɬɚɜɤɭɜɫɬɪɨɤɭ" 13. Ʉɚɤɦɨɠɧɨɭɞɚɥɢɬɶɱɚɫɬɶɫɬɪɨɤɢ"ɑɬɨɩɪɨɢɫɯɨɞɢɬɫɞɥɢɧɨɣɫɬɪɨɤɢɩɨɫɥɟ ɭɞɚɥɟɧɢɹɱɚɫɬɢɫɬɪɨɤɢ" 14. Ʉɚɤ ɥɟɝɤɨ ɨɛɴɟɞɢɧɢɬɶ ɧɟɫɤɨɥɶɤɨ ɫɬɪɨɤ" ɇɚɩɢɲɢɬɟ ɫɢɧɬɚɤɫɢɫ ɫɨɨɬɜɟɬ ɫɬɜɭɸɳɟɣɮɭɧɤɰɢɢɢɩɨɹɫɧɢɬɟɤɚɤɨɧɚɪɚɛɨɬɚɟɬ 15. ɑɬɨɩɪɨɢɡɨɣɞɟɬɟɫɥɢɜɩɪɨɰɟɞɭɪɟdelete ɜɤɚɱɟɫɬɜɟɧɨɦɟɪɚɩɨɡɢɰɢɢɩɟɪ ɜɨɝɨɭɞɚɥɹɟɦɨɝɨɫɢɦɜɨɥɚɭɤɚɡɚɧɨɱɢɫɥɨɤɨɬɨɪɨɟɩɪɟɜɵɲɚɟɬɞɥɢɧɭɫɬɪɨ ɤɢ" 152
Ɍɟɦɚ 7 ɁȺɉɂɋɂ Ɋɚɧɟɟɡɚɩɢɫɶɛɵɥɚɨɩɪɟɞɟɥɟɧɚɤɚɤɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɛɚɣɬɨɜɧɚɧɨɫɢɬɟ ɥɟɨɝɪɚɧɢɱɟɧɧɚɹɫɞɜɭɯɫɬɨɪɨɧɫɩɟɰɢɚɥɶɧɵɦɢɩɪɢɡɧɚɤɚɦɢɌɚɤɨɟɨɩɪɟɞɟɥɟɧɢɟ ɞɚɟɬɩɪɟɞɫɬɚɜɥɟɧɢɟɨ ɡɚɩɢɫɢɤɚɤɨɟɞɢɧɢɰɟɨɛɦɟɧɚɦɟɠɞɭɜɧɟɲɧɟɣɢɨɩɟɪɚɬɢɜ ɧɨɣ ɩɚɦɹɬɶɸ ɤɨɦɩɶɸɬɟɪɚ Ɉɞɧɚɤɨ ɫɚɦɚ ɡɚɩɢɫɶ ɦɨɠɟɬ ɛɵɬɶ ɫɥɨɠɧɨɣ ɫɬɪɭɤɬɭ ɪɨɣ ɫɨɞɟɪɠɚɳɟɣ ɪɚɡɧɵɟ ɞɚɧɧɵɟ Ɂɚɩɢɫɶ ɦɨɠɟɬ ɧɚɩɪɢɦɟɪ ɫɨɨɬɜɟɬɫɬɜɨɜɚɬɶ ɫɬɪɨɤɟ ɜɟɞɨɦɨɫɬɢ ɡɚɪɚɛɨɬɧɨɣ ɩɥɚɬɵ ɜ ɤɨɬɨɪɨɣ ɭɤɚɡɚɧɵ ɮɚɦɢɥɢɹ ɢ ɧɟɫɤɨɥɶɤɨ ɱɢɫɟɥɢɥɢɫɬɪɨɤɟɤɥɚɫɫɧɨɝɨɠɭɪɧɚɥɚ ɝɞɟɬɚɤɠɟɫɨɞɟɪɠɚɬɫɹɮɚɦɢɥɢɹɢɨɰɟɧɤɢ Ɍɚɤɢɦɨɛɪɚɡɨɦɡɚɩɢɫɶɩɨɧɢɦɚɟɬɫɹɤɚɤɫɥɨɠɧɚɹɤɨɧɫɬɪɭɤɰɢɹɉɨɷɬɨɦɭɜɉɚɫɤɚ ɥɟɢɞɪɭɝɢɯɩɪɨɝɪɚɦɦɧɵɯɫɢɫɬɟɦɚɯɫɥɨɜɨ©ɡɚɩɢɫɶª ɢɦɟɟɬɞɜɨɣɧɨɣɫɦɵɫɥɷɬɨɢ ɫɥɨɠɧɚɹɫɬɪɭɤɬɭɪɚ ɢɟɞɢɧɢɰɚɞɚɧɧɵɯɧɚɧɨɫɢɬɟɥɟ ɧɚɩɪɢɦɟɪɞɢɫɤɟ  Ɂɚɩɢɫɶ–ɷɬɨɫɨɜɨɤɭɩɧɨɫɬɶɪɚɡɧɨɪɨɞɧɵɯɞɚɧɧɵɯɨɩɢɫɵɜɚɟɦɵɯɢɨɛɪɚ ɛɚɬɵɜɚɟɦɵɯɤɚɤɟɞɢɧɨɟɰɟɥɨɟ Ⱦɚɧɧɵɟ ɢɡ ɤɨɬɨɪɵɯ ɫɨɫɬɨɢɬ ɡɚɩɢɫɶ ɧɚɡɵɜɚɸɬɫɹ ɟɟ ɩɨɥɹɦɢ ɉɨɥɹ ɦɨɝɭɬ ɛɵɬɶ ɩɪɨɫɬɵɦɢ ɞɚɧɧɵɦɢ ɢɥɢ ɫɨɫɬɚɜɧɵɦɢ ɧɚɩɪɢɦɟɪ ɦɚɫɫɢɜɚɦɢ ɢɥɢ ɡɚɩɢɫɹɦɢ ɋɩɨɦɨɳɶɸɡɚɩɢɫɟɣɭɞɨɛɧɨɨɩɢɫɵɜɚɬɶɫɜɨɣɫɬɜɚɨɛɴɟɤɬɨɜɯɪɚɧɢɬɶɢɯɫɨɜɦɟɫɬɧɨ ɂɡɡɚɩɢɫɟɣɫɨɫɬɨɹɬɛɚɡɵɞɚɧɧɵɯɜɤɥɸɱɚɸɳɢɟɨɩɢɫɚɧɢɟɧɟɫɤɨɥɶɤɢɯɨɛɴɟɤɬɨɜ Ɉɩɢɫɚɧɢɟɡɚɩɢɫɢɫɨɫɬɨɢɬɢɡɤɥɸɱɟɜɨɝɨɫɥɨɜɚrecordɩɨɫɥɟɤɨɬɨɪɨɝɨɭɤɚ ɡɵɜɚɸɬɫɹ ɢɦɟɧɚɩɨɥɟɣɢɬɢɩɤɚɠɞɨɝɨɩɨɥɹɌɢɩɩɨɥɹɨɬɞɟɥɹɟɬɫɹɨɬɢɦɟɧɢɞɜɨɟ ɬɨɱɢɟɦɈɩɢɫɚɧɢɟɡɚɩɢɫɢɡɚɤɚɧɱɢɜɚɟɬɫɹɫɥɨɜɨɦend ɢɬɨɱɤɨɣɫɡɚɩɹɬɨɣɁɚɩɢɫɢ ɨɩɢɫɵɜɚɸɬɫɹ ɜ ɪɚɡɞɟɥɟ ɬɢɩɨɜ ɞɚɧɧɵɯ type ȼ ɷɬɨɦ ɪɚɡɞɟɥɟ ɭɤɚɡɵɜɚɟɬɫɹ ɢɦɹ ɤɥɚɫɫɚɨɛɴɟɤɬɨɜ ɢɦɹɬɢɩɚ ɢɨɩɢɫɚɧɢɟɷɬɨɝɨɤɥɚɫɫɚȾɥɹɤɚɠɞɨɝɨɨɛɴɟɤɬɚɤɥɚɫ ɫɚɢɦɟɟɬɫɹɫɜɨɟɢɦɹɜɪɚɡɞɟɥɟɩɟɪɟɦɟɧɧɵɯvar ɫɨɩɢɫɚɧɢɟɦɞɚɧɧɨɝɨɬɢɩɚɗɬɨ ɢɦɹɢɫɩɨɥɶɡɭɟɬɫɹɜɞɚɥɶɧɟɣɲɟɦɜɩɪɨɝɪɚɦɦɟ ɉɪɢɦɟɪ  Ɉɛɴɟɤɬ– ɮɢɡɢɱɟɫɤɨɟɬɟɥɨɫɢɡɦɟɪɟɧɢɹɦɢabc – ɞɥɢɧɚɲɢɪɢ ɧɚɢɜɵɫɨɬɚɈɩɢɫɚɧɢɟɦɨɠɟɬɢɦɟɬɶɜɢɞɚ ɤɨɝɞɚɞɥɹɤɚɠɞɨɝɨɩɨɥɹɭɤɚɡɚɧɬɢɩ ɞɚɧɧɨɝɨɢɥɢɛ ɤɨɝɞɚɩɨɞɪɹɞɢɞɭɳɢɟɨɞɧɨɬɢɩɧɵɟɩɨɥɹɨɩɢɫɚɧɵɫɨɜɦɟɫɬɧɨ a) type ] record ɛ) type ] record Dinteger; DEF integer Einteger; end; Finteger var [] end; var [] ɉɪɢɦɟɪ . Ɉɛɴɟɤɬ– ɬɨɜɚɪɯɚɪɚɤɬɟɪɢɡɭɟɬɫɹɧɚɡɜɚɧɢɟɦɢɰɟɧɨɣ type WRYDU record VLJQstring >@ SULFH real end; 153
ɉɪɢɦɟɪ Ɉɛɴɟɤɬ– ɞɚɬɚɪɨɠɞɟɧɢɹɞɟɧɶɦɟɫɹɰɝɨɞȾɟɧɶɦɨɠɧɨɭɤɚɡɚɬɶ ɤɚɤ ɞɢɚɩɚɡɨɧ ɡɧɚɱɟɧɢɣ ɬɚɤɨɣ ɬɢɩ ɞɚɧɧɵɯ ɧɚɡɵɜɚɟɬɫɹ ɢɧɬɟɪɜɚɥɶɧɵɦ Ɉɧ ɭɠɟ ɜɫɬɪɟɱɚɥɫɹɩɪɢɨɩɢɫɚɧɢɢɦɚɫɫɢɜɨɜɜɭɤɚɡɚɧɢɢɝɪɚɧɢɰɧɨɦɟɪɨɜɷɥɟɦɟɧɬɨɜɗɬɨɬ ɬɢɩɦɨɠɧɨɢɫɩɨɥɶɡɨɜɚɬɶɞɥɹɰɟɥɨɱɢɫɥɟɧɧɵɯɢɫɢɦɜɨɥɶɧɵɯɞɚɧɧɵɯɜɨɩɢɫɚɧɢ ɹɯɚɬɚɤɠɟɤɚɤɦɟɬɤɭɨɩɟɪɚɬɨɪɚɜɚɪɢɚɧɬɚɂɧɬɟɪɜɚɥɶɧɵɦɬɢɩɨɦɦɨɠɧɨɡɚɞɚɜɚɬɶ ɡɧɚɱɟɧɢɹɤɨɧɫɬɚɧɬɜɪɚɡɞɟɥɟconst. type GDWHBRIBELUWK record GD\ PRQWKstring >@ \HDUinteger end; var GDWHGDWHBRIBELUWK ɁɚɩɢɫɢɦɨɝɭɬɨɛɴɟɞɢɧɹɬɶɫɹɜɦɚɫɫɢɜɵɆɚɫɫɢɜɡɚɩɢɫɟɣɦɨɠɟɬɛɵɬɶɨɩɢ ɫɚɧɜɪɚɡɞɟɥɟtype ɢɥɢvar. Ⱦɥɹɩɪɢɦɟɪɚɪɚɡɞɟɥɩɟɪɟɦɟɧɧɵɯɦɨɠɟɬɢɦɟɬɶɜɢɞ var xarray >@of WRYDU\WRYDU x – ɦɚɫɫɢɜɡɚɩɢɫɟɣɤɤɚɠɞɨɦɭɟɝɨɷɥɟɦɟɧɬɭɢɫɩɨɥɶɡɭɟɬɫɹɨɛɵɱɧɨɟɨɛɪɚɳɟɧɢɟ ɧɚɩɪɢɦɟɪ[>L@\– ɩɪɨɫɬɚɹɩɟɪɟɦɟɧɧɚɹ Ⱦɥɹ ɨɛɪɚɳɟɧɢɹ ɤ ɩɨɥɸ ɡɚɩɢɫɢ ɢɫɩɨɥɶɡɭɟɬɫɹ ɫɥɨɠɧɨɟ ɢɦɹ ɫɨɫɬɨɹɳɟɟ ɢɡ ɞɜɭɯ ɢɦɟɧ ɪɚɡɞɟɥɟɧɧɵɯ ɬɨɱɤɨɣ ɉɟɪɜɨɟ ɢɡ ɷɬɢɯ ɢɦɟɧ – ɢɦɹ ɩɟɪɟɦɟɧɧɨɣ ɬɢɩɚ ɡɚɩɢɫɶɢɡɪɚɡɞɟɥɚvar, ɜɬɨɪɨɟ– ɢɦɹɩɨɥɹɷɬɨɣɡɚɩɢɫɢɢɡɪɚɡɞɟɥɚtype. Ɍɚɤɞɥɹ ɬɨɜɚɪɨɜ ɢɦɟɧɚɩɨɥɟɣɜɩɪɨɝɪɚɦɦɟɢɦɟɸɬ ɜɢɞ \ . VLJQ \ . SULFHx >@VLJQx >L @SULFH ɉɪɢɦɟɪ 4 ɉɭɫɬɶ ɬɪɟɛɭɟɬɫɹ ɨɩɢɫɚɬɶ ɫɜɟɞɟɧɢɹ ɨ ɪɚɛɨɬɧɢɤɟ ɩɪɟɞɩɪɢɹɬɢɹ ɮɚɦɢɥɢɸ ɞɨɥɠɧɨɫɬɶ ɞɚɬɭ ɪɨɠɞɟɧɢɹ ɢ ɡɚɪɩɥɚɬɭ Ⱦɥɹ ɤɚɠɞɨɝɨ ɩɨɥɹ ɡɚɩɢɫɢ ɧɟɨɛɯɨɞɢɦɨ ɫɧɚɱɚɥɚ ɩɪɢɞɭɦɚɬɶ ɢɦɹ ɡɚɬɟɦ ɨɩɪɟɞɟɥɢɬɶ ɤɚɤɨɣ ɬɢɩ ɧɚɢɛɨɥɟɟ ɭɞɨɛɟɧ ɞɥɹ ɨɛɪɚɛɨɬɤɢ ɷɬɢɯ ɞɚɧɧɵɯ Ɉɩɢɫɵɜɚɟɦɵɟ ɫɜɟɞɟɧɢɹ ɜɤɥɸɱɚɸɬ ɜ ɜɢɞɟ ɩɨɥɹɞɚɬɵɪɨɠɞɟɧɢɹɫɬɪɭɤɬɭɪɭɬɢɩɚɡɚɩɢɫɶɟɟɬɚɤɠɟɬɪɟɛɭɟɬɫɹɭɬɨɱɧɢɬɶɢɨɩɢ ɫɚɬɶɜɪɚɡɞɟɥɟɬɢɩɨɜɪɚɧɶɲɟɱɟɦɡɚɩɢɫɶɪɚɛɨɬɧɢɤɚ ȼ ɨɩɢɫɚɧɢɢ ɞɚɧɧɨɣ ɡɚɩɢɫɢ ɢɫɩɨɥɶɡɭɟɬɫɹ ɬɢɩ ©ɞɟɧɶ ɪɨɠɞɟɧɢɹª (GDWHBRIBELUWK ɢɡɩɪɢɦɟɪɚɈɛɳɟɟ ɨɩɢɫɚɧɢɟ ɡɚɩɢɫɢ ɢɦɟɟɬ ɜɢɞ W\SHGDWHBRIBELUWK record GD\ PRQWKstring >@ \HDUinteger end; ZRUNHU record QDPHstring >@ 154
SRVLWLRQstring >@ GDWHGDWHBRIBELUWK VDODU\real end var [array >@of ZRUNHUZZRUNHU ɉɨɥɟ ɡɚɩɢɫɢ GDWH ɫɨɞɟɪɠɢɬ ɡɚɩɢɫɶ ɢɡ ɬɪɟɯ ɩɨɥɟɣ ɉɪɢ ɮɨɪɦɢɪɨɜɚɧɢɢ ɢɦɟɧɢ ɩɨɥɹ ɷɬɨɣ ɜɧɭɬɪɟɧɧɟɣ ɡɚɩɢɫɢ ɧɟɨɛɯɨɞɢɦɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɬɪɨɣɧɨɟ ɢɦɹ ɢɦɹ ɩɟɪɟɦɟɧɧɨɣ ɪɚɡɞɟɥɚ var ɢɦɹ ɩɨɥɹ ɡɚɩɢɫɢ ZRUNHU ɢ ɢɦɹ ɩɨɥɹ ɡɚɩɢɫɢ GDWHBRIBELUWK ɇɚɩɪɢɦɟɪ ɞɥɹ ɩɟɪɟɦɟɧɧɨɣ w ɨɛɪɚɳɟɧɢɟ ɤ ɦɟɫɹɰɭ ɪɨɠɞɟɧɢɹ ɪɚ ɛɨɬɧɢɤɚɜɩɪɨɝɪɚɦɦɟɛɭɞɟɬɢɦɟɬɶɜɢɞ ZGDWHPRQWK ȼɩɪɨɝɪɚɦɦɟɜɜɨɞɢɜɵɜɨɞɡɚɩɢɫɢɩɪɨɢɡɜɨɞɢɬɫɹɩɨɩɨɥɹɦɧɨɦɨɠɧɨɩɪɢ ɫɜɨɢɬɶɨɞɧɨɣɡɚɩɢɫɢɡɧɚɱɟɧɢɟɞɪɭɝɨɣɩɪɢɷɬɨɦɩɪɨɢɫɯɨɞɢɬɤɨɩɢɪɨɜɚɧɢɟɨɛɥɚ ɫɬɢɩɚɦɹɬɢ [>@ Z ɈɩɟɪɚɬɨɪɩɪɢɫɨɟɞɢɧɟɧɢɹȾɥɹɨɛɪɚɛɨɬɤɢɡɚɩɢɫɢɢɫɩɨɥɶɡɭɟɬɫɹɨɩɟɪɚɬɨɪ withɤɨɬɨɪɵɣɩɨɡɜɨɥɹɟɬɭɤɚɡɚɬɶɨɞɢɧɪɚɡɢɦɹɡɚɩɢɫɢɢɡɪɚɡɞɟɥɚɩɟɪɟɦɟɧɧɵɯɚ ɡɚɬɟɦɜɨɜɫɟɣɨɛɥɚɫɬɢɞɟɣɫɬɜɢɹɨɩɟɪɚɬɨɪɚɭɤɚɡɵɜɚɬɶɬɨɥɶɤɨɢɦɟɧɚɩɨɥɟɣɷɬɨɣ ɡɚɩɢɫɢɢɡɪɚɡɞɟɥɚtype. ɉɨɫɥɟɫɥɨɜɚwith ɦɨɠɧɨɧɚɩɢɫɚɬɶɧɟɫɤɨɥɶɤɨɢɦɟɧɩɨɥɟɣ ɢɡɪɚɡɞɟɥɚɩɟɪɟɦɟɧɧɵɯ Ɉɩɟɪɚɬɨɪɩɪɢɫɨɟɞɢɧɟɧɢɹɢɦɟɟɬɜɢɞ with ɫɩɢɫɨɤɢɦɟɧɡɚɩɢɫɟɣdo ɨɩɟɪɚɬɨɪ Ɉɩɟɪɚɬɨɪ ɦɨɠɟɬ ɛɵɬɶ ɩɪɨɫɬɵɦ ɢɥɢ ɫɨɫɬɚɜɧɵɦ ɨɝɪɚɧɢɱɟɧɧɵɦ ɨɩɟɪɚɬɨɪ ɧɵɦɢɫɤɨɛɤɚɦɢɋɩɢɫɨɤɢɦɟɧɡɚɩɢɫɟɣɦɨɠɟɬɫɨɫɬɨɹɬɶɢɡɨɞɧɨɝɨɢɦɟɧɢ ɉɪɢɦɟɪ 5 Ⱦɚɧ ɦɚɫɫɢɜ ɡɚɩɢɫɟɣ ɫɨɞɟɪɠɚɳɢɣ ɫɜɟɞɟɧɢɹ ɨ ɪɚɛɨɬɧɢɤɚɯ ɩɪɟɞɩɪɢɹɬɢɹ ɩɪɢɦɟɪ ɇɚɩɟɱɚɬɚɬɶ  ɫɩɢɫɨɤɛɭɯɝɚɥɬɟɪɨɜ  ɫɩɢɫɨɤɪɚɛɨɬɧɢɤɨɜɨɬɞɨɥɟɬ  ɫɪɟɞɧɸɸɡɚɪɚɛɨɬɧɭɸɩɥɚɬɭɩɨɩɪɟɞɩɪɢɹɬɢɸ Ʉɚɤɢɜɞɪɭɝɢɯɡɚɞɚɱɚɯɝɞɟɫɤɚɡɚɧɨɱɬɨ©ɞɚɧɨn ɱɢɫɟɥª ɢɥɢɱɬɨ-ɥɢɛɨɞɪɭ ɝɨɟɢɫɯɨɞɧɵɟɞɚɧɧɵɟɧɟɨɛɯɨɞɢɦɨɨɩɢɫɚɬɶɢɜɜɟɫɬɢɜɤɨɦɩɶɸɬɟɪȾɥɹɡɚɩɢɫɟɣ ɷɬɨɣɡɚɞɚɱɢɨɩɪɟɞɟɥɹɸɬɫɹɢɯɫɬɪɭɤɬɭɪɚɢɦɟɧɚɢɬɢɩɵɩɨɥɟɣ ɩɪɢɦɟɪ Ɂɚɬɟɦ ɨɩɪɟɞɟɥɹɟɬɫɹɢɦɹɦɚɫɫɢɜɚɡɚɩɢɫɟɣɤɨɬɨɪɵɣɢɫɩɨɥɶɡɭɟɬɫɹɜɩɪɨɝɪɚɦɦɟɢɜɫɩɨ ɦɨɝɚɬɟɥɶɧɵɟɩɟɪɟɦɟɧɧɵɟɚɬɚɤɠɟɢɦɟɧɚɪɟɡɭɥɶɬɚɬɨɜ 155
ɉɪɨɝɪɚɦɦɚɪɟɲɟɧɢɹɡɚɞɚɱɢ program E34 const Q  type GDWHBRIBELUWK record GD\ PRQWKstring >@ \HDUinteger end; ZRUNHU record QDPHstring >@ SRVLWLRQstring >@ GDWHGDWHBRIBELUWK VDODU\real end var [ array > Q@ of ZRUNHU Z  ZRUNHU L  M J  integer 6  real S string >@ begin ^ɮɨɪɦɢɪɨɜɚɧɢɟɦɚɫɫɢɜɚɡɚɩɢɫɟɣ` for L to Qdo with [>L@do EHJLQ writeln(‘ɫɜɟɞɟɧɢɹ ɨ µLµɪɚɛɨɬɧɢɤɟ µ  writeln (‘ ɮɚɦɢɥɢɹɢɧɢɰɢɚɥɵµ  UHDGOQ QDPH  writeln (‘ ɞɨɥɠɧɨɫɬɶµ  readln SRVLWLRQ  writeln µɱɢɫɥɨɦɟɫɹɰ ɫɥɨɜɨɦ ɢɝɨɞɪɨɠɞɟɧɢɹµ  readln GDWHGD\GDWHPRQWKGDWH\HDU  writeln (‘ ɡɚɪɩɥɚɬɚµ  readln VDODU\  end; ^ɪɟɲɟɧɢɟɩɨɞɡɚɞɚɱɢ – ɩɟɱɚɬɚɧɢɟɫɩɢɫɤɚɛɭɯɝɚɥɬɟɪɨɜ` S µɛɭɯɝɚɥɬɟɪµ M ^ɫɱɟɬɱɢɤɫɬɪɨɤɫɩɢɫɤɚ– ɤɨɥɢɱɟɫɬɜɨɛɭɯɝɚɥɬɟɪɨɜ` for L to Qdo with [>L@do if S SRVLWLRQ then begin M M writeln  M µ¶  QDPH  ^ɩɨɫɥɟ ɧɨɦɟɪɚ ɜ ɫɩɢɫɤɟ ɩɟɱɚɬɚɟɬɫɹ ɬɨɱɤɚɢɢɦɹ` end; 156
^ɪɟɲɟɧɢɟɩɨɞɡɚɞɚɱɢ ɫɩɢɫɨɤɪɚɛɨɬɧɢɤɨɜɨɬɞɨɥɟɬ` writeln µɫɩɢɫɨɤɪɚɛɨɬɧɢɤɨɜɨɬɞɨɥɟɬµ  M  write µɜɜɟɞɢɬɟɬɟɤɭɳɢɣɝɨɞɜɜɢɞɟɱɟɬɵɪɟɯɡɧɚɱɧɨɝɨɱɢɫɥɚ¶  readln J  for L to Qdo with [> L@do if J- GDWH\HDU and J- GDWH\HDU! then begin M M writeln MµµQDPH end; ^ɪɟɲɟɧɢɟɩɨɞɡɚɞɚɱɢ – ɜɵɱɢɫɥɟɧɢɟɫɪɟɞɧɟɣɡɚɪɩɥɚɬɵ` 6  for L  to Q do 6 6[>L@VDODU\ write (‘ cɪɟɞɧɹɹ ɡɚɪɩɥɚɬɚ µ6Q HQG ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ Ʉɚɤɜɢɧɮɨɪɦɚɬɢɤɟɩɨɧɢɦɚɟɬɫɹɫɭɳɟɫɬɜɢɬɟɥɶɧɨɟ©ɡɚɩɢɫɶª" Ʉɚɤɨɛɪɚɬɢɬɶɫɹɜɩɪɨɝɪɚɦɦɟɤɩɨɥɸɡɚɩɢɫɢ" ɑɬɨɧɟɨɛɯɨɞɢɦɨɫɞɟɥɚɬɶ ɱɬɨɛɵɨɩɢɫɚɬɶɜɩɪɨɝɪɚɦɦɟɨɛɴɟɤɬɯɚɪɚɤɬɟ ɪɢɫɬɢɤɢɤɨɬɨɪɨɝɨ– ɪɚɡɧɨɬɢɩɧɵɟɞɚɧɧɵɟ" Ʉɚɤɨɜɨɢɦɹɞɚɧɧɨɝɨɫɨɞɟɪɠɚɳɟɝɨɫɜɟɞɟɧɢɹɨɬɨɦɤɚɤɨɝɨɱɢɫɥɚɪɨɞɢɥ ɫɹɪɚɛɨɬɧɢɤɩɪɟɞɩɪɢɹɬɢɹ"  Ɉɛɴɹɫɧɢɬɟ ɱɬɨ ɨɡɧɚɱɚɸɬ ɢɦɟɧɚ   [ >  @SRVLWLRQ  [ >  @GDWHPRQWK ZQDPH Ⱦɥɹɱɟɝɨɢɫɩɨɥɶɡɭɟɬɫɹɨɩɟɪɚɬɨɪwith" Ɉɩɢɲɢɬɟɨɛɴɟɤɬ©ɭɱɟɧɢɤɤɥɚɫɫɚªɢɫɩɨɥɶɡɭɹɡɚɩɢɫɶ ɋɨɡɞɚɣɬɟɛɚɡɭɞɚɧɧɵɯɞɥɹɫɜɨɟɝɨɤɥɚɫɫɚɢɫɟɟɩɨɦɨɳɶɸɩɨɥɭɱɢɬɟɫɜɟ ɞɟɧɢɹ ɚ ɨɫɚɦɨɦɫɬɚɪɲɟɦɭɱɟɧɢɤɟɜɤɥɚɫɫɟ ɛ ɨɫɚɦɨɦɦɥɚɞɲɟɦɭɱɟɧɢɤɟ ɜ ɨɛɨɰɟɧɤɚɯɞɥɹɤɚɠɞɨɝɨɭɱɟɧɢɤɚɩɨɢɡɭɱɚɟɦɵɦɜɤɥɚɫɫɟɩɪɟɞɦɟɬɚɦ ɝ ɨɛɨɬɥɢɱɧɢɤɚɯ ɞ ɨɫɚɦɨɦɨɬɫɬɚɸɳɟɦɭɱɟɧɢɤɟ ɟ ɨɫɪɟɞɧɟɦɛɚɥɥɟɞɥɹɤɚɠɞɨɝɨɭɱɟɧɢɤɚɩɨɨɰɟɧɤɚɦɩɨɫɥɟɞɧɟɣɱɟɬɜɟɪɬɢ ɠ ɨɫɪɟɞɧɟɣɭɫɩɟɜɚɟɦɨɫɬɢɤɥɚɫɫɚɩɨɜɫɟɦɩɪɟɞɦɟɬɚɦ ɡ ɨɬɟɯɤɬɨɩɪɨɩɭɫɤɚɟɬɭɪɨɤɢɱɚɳɟɱɟɦɪɚɡɜɧɟɞɟɥɸ ɍɤɚɡɚɧɢɹɤɚɤɫɨɯɪɚɧɢɬɶɜɫɟɞɚɧɧɵɟɧɚɞɢɫɤɟɧɚɩɢɫɚɧɨɜɫɥɟɞɭɸɳɟɦɩɚ ɪɚɝɪɚɮɟɚɜɞɚɧɧɨɣɡɚɞɚɱɟɧɚɩɢɲɢɬɟɭɩɪɚɜɥɹɸɳɢɟɩɪɨɝɪɚɦɦɵɩɨɨɛɪɚɡɰɭȿ4. 157
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ6Ɂɚɩɢɫɢ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɪɚɛɨɬɵɫɨɫɬɪɭɤɬɭɪɢɪɨɜɚɧɧɵɦɢ ɬɢɩɚɦɢɞɚɧɧɵɯ ɁɚɞɚɧɢɟɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɩɪɟɞɩɨɥɚ ɝɚɸɳɭɸɨɛɪɚɛɨɬɤɭɡɚɩɢɫɟɣȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶ ɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. 5. 6. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ Ɂɚɞɚɧɢɟ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɝɪɚɠɞɚɧɚɯ ɨɛɫɥɭɠɢɜɚɟɦɵɯɩɨɥɢɤɥɢɧɢɤɨɣ ɎɂɈɝɨɞɪɨɠɞɟɧɢɹ ɚɞɪɟɫɩɪɨɠɢɜɚɧɢɹɦɟɫɬɨɪɚɛɨɬɵɞɚɬɚɩɪɨɯɨɠɞɟɧɢɹ ɮɥɸɨɪɨɝɪɚɮɢɢ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɎɂɈ ɥɢɰɤɨɬɨɪɵɟɩɪɨɲɥɢɮɥɸɨɪɨɝɪɚɮɢɸɛɨɥɟɟɝɨɞɚɧɚɡɚɞ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɛɚɜɬɨɦɨɛɢɥɹɯ ɧɨɦɟɪɦɨɞɟɥɶɦɚɲɢɧɵɰɜɟɬɎɂɈɜɥɚɞɟɥɶɰɚɞɚɬɚ ɩɪɨɯɨɠɞɟɧɢɹɬɟɯɨɫɦɨɬɪɚ ȼɵɜɟɫɬɢɧɚɷɤɪɚɧɧɨɦɟɪɚ ɦɚɲɢɧɢɎɂɈɜɥɚɞɟɥɶɰɟɜɞɥɹɬɟɯɚɜɬɨɦɨɛɢɥɟɣɤɨɬɨɪɵɟ ɧɟ ɩɪɨɲɥɢɬɟɯɨɫɦɨɬɪɜɬɟɤɭɳɟɦɝɨɞɭ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɛɚɜɬɨɦɨɛɢɥɹɯ ɧɨɦɟɪɦɨɞɟɥɶɦɚɲɢɧɵɰɜɟɬɎɂɈɜɥɚɞɟɥɶɰɚɞɚɬɚ ɩɪɨɯɨɠɞɟɧɢɹɬɟɯɨɫɦɨɬɪɚ ȼɵɜɟɫɬɢɧɚɷɤɪɚɧɎɂɈ ɜɥɚɞɟɥɶɰɟɜɚɜɬɨɦɨɛɢɥɟɣɜɚɥɮɚɜɢɬɧɨɦɩɨɪɹɞɤɟɢ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɟɧɨɦɟɪɚɚɜɬɨɦɨɛɢɥɟɣ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɝɪɚɠɞɚɧɚɯ ɨɛɫɥɭɠɢɜɚɟɦɵɯɩɨɥɢɤɥɢɧɢɤɨɣ ɎɂɈɝɨɞɪɨɠɞɟɧɢɹ ɚɞɪɟɫɩɪɨɠɢɜɚɧɢɹɦɟɫɬɨɪɚɛɨɬɵɞɚɬɚɩɪɨɯɨɠɞɟɧɢɹ ɮɥɸɨɪɨɝɪɚɮɢɢ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɜɫɟ ɫɜɟɞɟɧɢɹɨɝɪɚɠɞɚɧɚɯɪɨɞɢɜɲɢɯɫɹɜɨɩɪɟɞɟɥɟɧɧɨɦɝɨɞɭ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɜɵɫɬɚɜɥɟɧɧɵɯɧɚ ɩɪɨɞɚɠɭɤɜɚɪɬɢɪɚɯ ɤɨɥɢɱɟɫɬɜɨɤɨɦɧɚɬɨɛɳɚɹɩɥɨɳɚɞɶ ɩɥɨɳɚɞɶɡɚɥɚɩɥɨɳɚɞɶɤɭɯɧɢɧɚɥɢɱɢɟɛɚɥɤɨɧɚɷɬɚɠ ɫɬɨɢɦɨɫɬɶɚɞɪɟɫ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɚɞɪɟɫɚ ɜɫɟɯɬɪɟɯɤɨɦɧɚɬɧɵɯɤɜɚɪɬɢɪɫɬɨɢɦɨɫɬɶɤɨɬɨɪɵɯɧɟ ɩɪɟɜɵɲɚɟɬɧɟɤɨɬɨɪɨɟɩɨɪɨɝɨɜɨɟɡɧɚɱɟɧɢɟ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɜɵɫɬɚɜɥɟɧɧɵɯɧɚ ɩɪɨɞɚɠɭɤɜɚɪɬɢɪɚɯ ɤɨɥɢɱɟɫɬɜɨɤɨɦɧɚɬɨɛɳɚɹɩɥɨɳɚɞɶ ɩɥɨɳɚɞɶɡɚɥɚɩɥɨɳɚɞɶɤɭɯɧɢɧɚɥɢɱɢɟɛɚɥɤɨɧɚɷɬɚɠ ɫɬɨɢɦɨɫɬɶɚɞɪɟɫ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɜɫɟ ɫɜɟɞɟɧɢɹɨɤɜɚɪɬɢɪɚɯɭɤɨɬɨɪɵɯɟɫɬɶɥɨɞɠɢɹɢɤɨɬɨɪɵɟ ɪɚɫɩɨɥɨɠɟɧɵɧɚɜɬɨɪɨɦɷɬɚɠɟ 158
ȼɚɪɢɚɧɬʋ 7. 8. 9. 10. 11. 12. 13. 14. Ɂɚɞɚɧɢɟ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɜɵɫɬɚɜɥɟɧɧɵɯɧɚ ɩɪɨɞɚɠɭɤɜɚɪɬɢɪɚɯ ɤɨɥɢɱɟɫɬɜɨɤɨɦɧɚɬɨɛɳɚɹɩɥɨɳɚɞɶ ɩɥɨɳɚɞɶɡɚɥɚɩɥɨɳɚɞɶɤɭɯɧɢɧɚɥɢɱɢɟɛɚɥɤɨɧɚɷɬɚɠ ɫɬɨɢɦɨɫɬɶɚɞɪɟɫ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɜɫɟ ɫɜɟɞɟɧɢɹɨɤɜɚɪɬɢɪɚɯɜɩɨɪɹɞɤɟɜɨɡɪɚɫɬɚɧɢɹɢɯɫɬɨɢɦɨɫɬɢ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɪɚɡɜɢɜɚɸɳɢɯ ɢɝɪɚɯɞɥɹɞɟɬɟɣ ɧɚɡɜɚɧɢɟɢɝɪɵɫɬɨɢɦɨɫɬɶɢɜɨɡɪɚɫɬɧɵɟ ɝɪɚɧɢɰɵɞɟɬɟɣɤɨɬɨɪɵɦɛɭɞɟɬɢɧɬɟɪɟɫɧɚɞɚɧɧɚɹɢɝɪɚ  ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɧɚɡɜɚɧɢɹɪɚɡɜɢɜɚɸɳɢɯɢɝɪ ɤɨɬɨɪɵɟɩɨɞɯɨɞɹɬɞɟɬɹɦɞɨɜɨɡɪɚɫɬɚN ɢɫɬɨɢɦɨɫɬɶ ɤɨɬɨɪɵɯɧɟɩɪɟɜɵɲɚɟɬɩɨɪɨɝ. Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɪɚɡɜɢɜɚɸɳɢɯ ɢɝɪɚɯɞɥɹɞɟɬɟɣ ɧɚɡɜɚɧɢɟɢɝɪɵɫɬɨɢɦɨɫɬɶɢɜɨɡɪɚɫɬɧɵɟ ɝɪɚɧɢɰɵɞɟɬɟɣɤɨɬɨɪɵɦɛɭɞɟɬɢɧɬɟɪɟɫɧɚɞɚɧɧɚɹɢɝɪɚ  ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɜɫɟɫɜɟɞɟɧɢɹɨɪɚɡɜɢɜɚɸɳɢɯ ɢɝɪɚɯɜɩɨɪɹɞɤɟɜɨɡɪɚɫɬɚɧɢɹɢɯɰɟɧɵɤɨɬɨɪɵɟɩɨɞɯɨɞɹɬ ɞɟɬɹɦɞɨ. ɥɟɬ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɫɬɭɞɟɧɬɚɯ ɭɧɢɜɟɪɫɢɬɟɬɚ ɎɂɈɤɭɪɫɧɚɩɪɚɜɥɟɧɢɟɩɨɞɝɨɬɨɜɤɢ ɲɢɮɪɝɪɭɩɩɵɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ  ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɎɂɈɢɲɢɮɪɵɝɪɭɩɩ ɥɭɱɲɢɯɫɬɭɞɟɧɬɨɜɭɧɢɜɟɪɫɢɬɟɬɚ ɭɱɚɬɫɹɧɚ©ɨɬɥɢɱɧɨªɢ ©ɯɨɪɨɲɨªɢɩɨɫɭɦɦɟɩɨɥɭɱɟɧɧɵɯɛɚɥɥɨɜɧɟɭɫɬɭɩɚɸɬ ɞɪɭɝɢɦɫɬɭɞɟɧɬɚɦɭɧɢɜɟɪɫɢɬɟɬɚ) Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ ɎɂɈɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ  ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɧɚɡɜɚɧɢɟɩɪɟɞɦɟɬɚɤɨɬɨɪɵɣ ɛɵɥɫɞɚɧɧɚɢɛɨɥɟɟɭɫɩɟɲɧɨ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ ɎɂɈɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ  ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɩɪɨɰɟɧɬɫɬɭɞɟɧɬɨɜɤɨɬɨɪɵɣ ɫɞɚɥɜɫɟɷɤɡɚɦɟɧɵɛɟɡɬɪɨɟɤ ɢɫɬɪɨɣɤɚɦɢ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɫɬɭɞɟɧɬɚɯ ɭɧɢɜɟɪɫɢɬɟɬɚ ɎɂɈɩɨɥɧɚɩɪɚɜɥɟɧɢɟɩɨɞɝɨɬɨɜɤɢɤɭɪɫ  ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɧɚɡɜɚɧɢɟɧɚɩɪɚɜɥɟɧɢɹ ɩɨɞɝɨɬɨɜɤɢɧɚɤɨɬɨɪɨɦɭɱɢɬɫɹɧɚɢɛɨɥɶɲɢɣɩɪɨɰɟɧɬ ɦɭɠɱɢɧ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɫɬɭɞɟɧɬɚɯ ɭɧɢɜɟɪɫɢɬɟɬɚ ɎɂɈɩɨɥɧɚɩɪɚɜɥɟɧɢɟɩɨɞɝɨɬɨɜɤɢɤɭɪɫ ɪɨɫɬ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɎɂɈɜɫɟɯ ɫɬɭɞɟɧɬɨɜɱɟɣɪɨɫɬɜɵɲɟɫɪɟɞɧɟɝɨɩɨɭɧɢɜɟɪɫɢɬɟɬɭ ɨɬɞɟɥɶɧɨɞɥɹɦɭɠɱɢɧɢɠɟɧɳɢɧ 159
ȼɚɪɢɚɧɬʋ 15. 16. Ɂɚɞɚɧɢɟ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ ɎɂɈɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ  ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɫɜɟɞɟɧɢɹɨɫɪɟɞɧɟɦɛɚɥɥɟ ɤɚɠɞɨɝɨɫɬɭɞɟɧɬɚ ɎɂɈ – ɫɪɟɞɧɢɣɛɚɥɥ Ⱦɚɧɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ ɎɂɈɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ  ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɎɂɈɫɬɭɞɟɧɬɨɜɜɩɨɪɹɞɤɟ ɢɯɭɫɩɟɜɚɟɦɨɫɬɢ ɭɫɩɟɜɚɟɦɨɫɬɶɨɩɪɟɞɟɥɹɟɬɫɹɫɭɦɦɨɣ ɛɚɥɥɨɜɩɨɜɫɟɦɷɤɡɚɦɟɧɚɦ Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨ ɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ Ɋɚɡɦɟɪɧɨɫɬɶ ɦɚɫɫɢɜɚ ɩɚɪɚɦɟɬɪ n) ɞɨɥɠɧɚ ɡɚɞɚɜɚɬɶɫɹ ɤɨɧɫɬɚɧɬɨɣ Ⱦɥɹ ɭɞɨɛɫɬɜɚ ɩɪɨɜɟɪɤɢ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ ɪɚɡɦɟɪɧɨɫɬɶ ɦɚɫɫɢɜɚ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɡɚ ɞɚɜɚɬɶɧɟɛɨɥɶɲɨɣ  ” n ”7). Ɋɚɛɨɬɚɹ ɧɚɞ ɡɚɞɚɧɢɟɦ ɥɚɛɨɪɚɬɨɪɧɨɣ ɧɟɨɛɯɨɞɢɦɨ ɩɨɦɧɢɬɶ ɱɬɨ ɡɚɩɢɫɢ ɨɩɢɫɵɜɚɸɬɫɹ ɜ ɪɚɡɞɟɥɟ type. ɂ ɞɚɥɟɟ ɜ ɪɚɡɞɟɥɟ ɨɩɢɫɚɧɢɹ ɩɟɪɟɦɟɧɧɵɯ var ɫɨ ɡɞɚɸɬɫɹ ɬɚɤ ɧɚɡɵɜɚɟɦɵɟ ©ɷɤɡɟɦɩɥɹɪɵ ɡɚɩɢɫɢª ɡɚɩɢɫɢ-ɩɟɪɟɦɟɧɧɵɟ  ɤɨɬɨɪɵɟ ɭɠɟɦɨɠɧɨɨɛɪɚɛɚɬɵɜɚɬɶɜɬɟɥɟɩɪɨɝɪɚɦɦɵ ɉɨɥɹ ɷɤɡɟɦɩɥɹɪɨɜ ɡɚɩɢɫɟɣ ɞɨɥɠɧɵ ɡɚɩɨɥɧɹɬɶɫɹ ɫ ɤɥɚɜɢɚɬɭɪɵ Ⱦɚɧɧɵɟ ɞɟɣɫɬɜɢɹ ɭɞɨɛɧɨ ɤɨɦɩɚɤɬɧɨ ɡɚɩɢɫɚɬɶ ɫ ɩɨɦɨɳɶɸ ɨɩɟɪɚɬɨɪɚ ɩɪɢɫɨɟɞɢɧɟɧɢɹ ɢ ɰɢɤɥɚFOR for L to Qdo with <ɢɦɹ_ɡɚɩɢɫɢ! do begin readln(<ɢɦɹ_ɩɨɥɹB!  readln((<ɢɦɹ_ɩɨɥɹB!  … readln((<ɢɦɹ_ɩɨɥɹBN!  end ɂɦɟɧɚɩɟɪɟɦɟɧɧɵɯ-ɡɚɩɢɫɟɣɢɩɨɥɟɣɤɨɬɨɪɵɟɭɤɚɡɚɧɵɜɡɚɝɨɥɨɜɤɟɨɩɟɪɚ ɬɨɪɚWITHɦɨɠɧɨɧɟɭɤɚɡɵɜɚɬɶɩɪɢɨɛɪɚɳɟɧɢɢɤɤɨɦɩɨɧɟɧɬɚɦɡɚɩɢɫɟɣɜɨɛɥɚ ɫɬɢɞɟɣɫɬɜɢɹɨɩɟɪɚɬɨɪɚɩɪɢɫɨɟɞɢɧɟɧɢɹ Ɉɛɪɚɬɢɬɶɫɹɤɨɩɪɟɞɟɥɟɧɧɨɦɭɩɨɥɸɡɚɩɢɫɢɦɨɠɧɨɭɤɚɡɚɜɢɦɹɩɟɪɟɦɟɧɧɨɣ ɬɢɩɚ ɡɚɩɢɫɶ ɢ ɢɦɹ ɫɨɨɬɜɟɬɫɬɜɭɸɳɟɝɨ ɩɨɥɹ ɉɪɢ ɨɛɪɚɛɨɬɤɟ ɦɚɫɫɢɜɚ ɡɚɩɢɫɟɣ ɬɚɤɠɟ ɧɟɨɛɯɨɞɢɦɨ ɭɤɚɡɵɜɚɬɶ ɢɧɞɟɤɫ ɤɨɧɤɪɟɬɧɨɝɨ ɷɥɟɦɟɧɬɚ ɞɚɧɧɨɝɨ ɦɚɫɫɢɜɚ ɧɚɩɪɢɦɟɪ[>L@PDUN Ɉɩɪɟɞɟɥɟɧɧɨɣɩɟɪɟɦɟɧɧɨɣ-ɡɚɩɢɫɢɦɨɠɧɨɩɪɢɫɜɨɢɬɶɡɧɚɱɟɧɢɟɞɪɭɝɨɣɩɟ ɪɟɦɟɧɧɨɣ-ɡɚɩɢɫɢɬɚɤɨɝɨɠɟɬɢɩɚɇɚɩɪɢɦɟɪ type VWXGHQW record 160
VXUQDPHstring>@ VBQDPHstring>@ PDUN PDUN end var [\student begin with x do begin readln VXUQDPH  readln VBQDPH  readln PDUN  readln PDUN  end \ [ … Ⱦɚɧɧɚɹ ɜɨɡɦɨɠɧɨɫɬɶ ɜɨ ɦɧɨɝɢɯ ɫɥɭɱɚɹɯ ɨɛɥɟɝɱɚɟɬ ɨɛɪɚɛɨɬɤɭ ɦɚɫɫɢɜɨɜ ɡɚɩɢɫɟɣɜɱɚɫɬɧɨɫɬɢɢɯɫɨɪɬɢɪɨɜɤɭ ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨɩɟ ɪɟɦɟɧɧɵɯɄɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢ ɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɪɚɛɨɬɵɫɨɫɬɪɭɤɬɭɪɢɪɨɜɚɧɧɵɦɢɬɢɩɚ ɦɢɞɚɧɧɵɯ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ 3DVFDO ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɩɪɟɞɩɨɥɚɝɚɸ ɳɭɸ ɨɛɪɚɛɨɬɤɭ ɡɚɩɢɫɟɣ. Ⱦɚɧ ɦɚɫɫɢɜ ɫɨɞɟɪɠɚɳɢɣ ɢɧɮɨɪɦɚɰɢɸ ɨ ɫɬɭɞɟɧɬɚɯ ɝɪɭɩɩɵ ɎɂɈ ɨɰɟɧɤɢ ɩɨ  ɷɤɡɚɦɟɧɚɦ ɩɨɫɥɟɞɧɟɣ ɫɟɫɫɢɢ  ɇɟɨɛɯɨɞɢɦɨ ɜɵɜɟɫɬɢ ɧɚ ɷɤɪɚɧ ɎɂɈ ɫɬɭɞɟɧɬɨɜ ɜ ɩɨɪɹɞɤɟ ɢɯ ɭɫɩɟɜɚɟɦɨɫɬɢ ɭɫɩɟɜɚɟɦɨɫɬɶ ɨɩɪɟɞɟɥɹɟɬɫɹ ɫɭɦɦɨɣ ɛɚɥɥɨɜɩɨɜɫɟɦɷɤɡɚɦɟɧɚɦ  ȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟ ɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const Q ^ɤɨɥɢɱɟɫɬɜɨɫɬɭɞɟɧɬɨɜɜɝɪɭɩɩɟ` 161
^Ɉɩɢɫɚɧɢɟ ɡɚɩɢɫɢ ɤɨɬɨɪɚɹ ɛɭɞɟɬ ɫɨɞɟɪɠɚɬɶ ɎɂɈ ɫɬɭɞɟɧɬɚ ɢ ɪɟɡɭɥɶɬɚɬɵ ɟɝɨ ɭɫɩɟɜɚɟɦɨɫɬɢɩɨɷɤɡɚɦɟɧɚɦ` type VWXGHQW record VXUQDPHstring>@^ɮɚɦɢɥɢɹ` VBQDPHstring>@^ɢɦɹ` SDWURQ\PLFstring>@^ɨɬɱɟɫɬɜɨ` PDUN^ɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦ` PDUN PDUN PDUN end var xarray>Q@of VWXGHQW^ɨɩɪɟɞɟɥɹɟɦɦɚɫɫɢɜɫɨɫɬɨɹɳɢɣɢɡnɷɤɡɟɦɩɥɹɪɨɜɡɚɩɢɫɢ student} LM integer^ɫɱɟɬɱɢɤɢɰɢɤɥɨɜ` a integer^ɜɫɩɨɦɨɝɚɬɟɥɶɧɚɹɛɭɮɟɪɧɚɹɩɟɪɟɦɟɧɧɚɹɧɟɨɛɯɨɞɢɦɚɹɞɥɹɜɪɟɦɟɧɧɨɝɨɯɪɚ ɧɟɧɢɹɞɚɧɧɵɯ` E VWXGHQW^ɜɫɩɨɦɨɝɚɬɟɥɶɧɚɹɛɭɮɟɪɧɚɹɩɟɪɟɦɟɧɧɚɹɧɟɨɛɯɨɞɢɦɚɹɞɥɹɜɪɟɦɟɧɧɨɝɨɯɪɚ ɧɟɧɢɹɞɚɧɧɵɯ` s array>Q@ of integer ^ɦɚɫɫɢɜ ɞɥɹ ɯɪɚɧɟɧɢɹ ɫɭɦɦɚɪɧɨɝɨ ɛɚɥɥɚ ɤɚɠɞɨɝɨ ɫɬɭɞɟɧɬɚ ɩɨ-ɦɷɤɡɚɦɟɧɚɦ` begin writeln ȼɜɟɞɢɬɟɢɧɮɨɪɦɚɰɢɸɨ Q ɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ  ^Ɏɨɪɦɢɪɨɜɚɧɢɟɦɚɫɫɢɜɚɫɢɧɮɨɪɦɚɰɢɟɣɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ` for L to Qdo with [>L@do begin writeln ɫɜɟɞɟɧɢɹɨ L -ɦɫɬɭɞɟɧɬɟ  writeln ɮɚɦɢɥɢɹ  readln VXUQDPH  writeln ɢɦɹ  readln VBQDPH  writeln ɨɬɱɟɫɬɜɨ  readln SDWURQ\PLF  writeln Ɉɰɟɧɤɢ ɩɨ  ɷɤɡɚɦɟɧɚɦ ɩɨɫɥɟɞɧɟɣ ɫɟɫɫɢɢ ɨɬ  ɞɨ  ɛɚɥ ɥɨɜ   readln PDUN  readln PDUN  readln PDUN  readln(PDUN  end writeln ^Ɉɩɪɟɞɟɥɹɟɦ ɭɫɩɟɜɚɟɦɨɫɬɶ ɤɚɠɞɨɝɨ ɫɬɭɞɟɧɬɚ ɤɚɤ ɫɭɦɦɭ ɛɚɥɥɨɜ ɩɨ -ɦ ɷɤɡɚɦɟ ɧɚɦ` for L to Qdo V>L@ [>L@PDUN[>L@PDUN[>L@PDUN[>L@PDUN 162
^ɋɨɪɬɢɪɭɟɦɦɚɫɫɢɜɵ[ɢsɩɨɭɫɥɨɜɢɸɭɛɵɜɚɧɢɹɫɭɦɦɚɪɧɨɣɨɰɟɧɤɢɩɨɜɫɟɦɷɤɡɚ ɦɟɧɚɦ` for L to Q-1 do for M Lto Qdo if V>L@V>M@then begin D V>L@ V>L@ V>M@ V>M@ D E [>L@ [>L@ [>M@ [>M@ E end ^ȼɵɜɨɞɧɚɷɤɪɚɧɫɩɢɫɤɚɫɬɭɞɟɧɬɨɜɜɩɨɪɹɞɤɟɭɛɵɜɚɧɢɹɢɯɭɫɩɟɜɚɟɦɨɫɬɢ` writeln ɋɩɢɫɨɤɫɬɭɞɟɧɬɨɜɜɩɨɪɹɞɤɟɭɛɵɜɚɧɢɹɢɯɭɫɩɟɜɚɟɦɨɫɬɢ  for L to Qdo writeln [>L@VXUQDPH  [>L@VBQDPH  V>L@  readln end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫɪɟɡɭɥɶɬɚɬɚɦɢɪɚɫɱɟɬɨɜɜɪɭɱɧɭɸɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɩɪɨɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚ ɜɟɪɧɨ 163
Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. ȼ ɤɚɤɢɯ ɫɥɭɱɚɹɯ ɜ ɩɪɨɰɟɫɫɟ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɰɟɥɟɫɨɨɛɪɚɡɧɨ ɢɫɩɨɥɶɡɨ ɜɚɬɶɡɚɩɢɫɢ" 2. ɇɚɩɢɲɢɬɟ ɫɢɧɬɚɤɫɢɫ ɨɩɢɫɚɧɢɹ ɡɚɩɢɫɢ ɜ ɪɚɡɞɟɥɟ ɫɨɡɞɚɧɢɹ ɬɢɩɨɜ ɞɚɧɧɵɯ type. 3. Ⱦɥɹ ɱɟɝɨ ɫɨɡɞɚɸɬɫɹ ɷɤɡɟɦɩɥɹɪɵ ɡɚɩɢɫɟɣ ɡɚɩɢɫɢ-ɩɟɪɟɦɟɧɧɵɟ ɜ ɪɚɡɞɟɥɟ ɨɩɢɫɚɧɢɹɩɟɪɟɦɟɧɧɵɯvar" 4. Ʉɚɤɦɨɠɧɨɨɛɪɚɬɢɬɶɫɹɤɨɩɪɟɞɟɥɟɧɧɨɦɭɩɨɥɸɡɚɩɢɫɢ" 5. ɇɚɩɢɲɢɬɟ ɫɢɧɬɚɤɫɢɫ ɨɛɪɚɳɟɧɢɹ ɤ ɨɩɪɟɞɟɥɟɧɧɨɦɭ ɩɨɥɸ ɨɞɧɨɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚɡɚɩɢɫɟɣ 6. Ʉɚɤɨɝɨɬɢɩɚɦɨɝɭɬɛɵɬɶɩɨɥɹɡɚɩɢɫɢ" 7. Ʉɚɤɨɛɪɚɛɚɬɵɜɚɸɬɫɹɩɨɥɹɡɚɩɢɫɢ" 8. Ɉɯɚɪɚɤɬɟɪɢɡɭɣɬɟ ɧɚɡɧɚɱɟɧɢɟ ɨɩɟɪɚɬɨɪɚ WITH ɢ ɧɚɩɢɲɢɬɟ ɫɢɧɬɚɤɫɢɫ ɞɚɧɧɨɝɨɨɩɟɪɚɬɨɪɚ 9. Ɇɨɠɧɨ ɥɢ ɨɩɪɟɞɟɥɟɧɧɨɣ ɩɟɪɟɦɟɧɧɨɣ-ɡɚɩɢɫɢ ɩɪɢɫɜɨɢɬɶ ɡɧɚɱɟɧɢɟ ɞɪɭɝɨɣ ɩɟɪɟɦɟɧɧɨɣ-ɡɚɩɢɫɢɬɚɤɨɝɨɠɟɬɢɩɚ" 164
Ɍɟɦɚ  ɎȺɃɅɕ ɋ ɩɨɧɹɬɢɟɦ ɮɚɣɥɚ ɩɨɥɶɡɨɜɚɬɟɥɶ ɤɨɦɩɶɸɬɟɪɚ ɫɬɚɥɤɢɜɚɟɬɫɹ ɩɨɫɬɨɹɧɧɨ əɡɵɤ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɉɚɫɤɚɥɶ ɩɨɡɜɨɥɹɟɬ ɪɚɛɨɬɚɬɶ ɫ ɤɨɦɩɨɧɟɧɬɚɦɢ ɮɚɣɥɚ – ɡɚɩɢɫɹɦɢ ɢ ɤɚɤ ɛɵɥɨ ɩɨɤɚɡɚɧɨ ɜ ɩɪɟɞɵɞɭɳɟɦ ɩɚɪɚɝɪɚɮɟ ɫ ɩɨɥɹɦɢ ɡɚɩɢɫɟɣ ɩɪɟɞɫɬɚɜɥɹɸɳɢɦɢɤɨɧɟɱɧɵɦɢɨɛɪɚɛɚɬɵɜɚɟɦɵɦɢɞɚɧɧɵɦɢ Ɏɚɣɥɜɉɚɫɤɚɥɟɫɨɫɬɨɢɬɢɡɨɞɧɨɬɢɩɧɵɯɞɚɧɧɵɯɋɞɚɧɧɵɦɢɮɚɣɥɚɦɨɠɧɨ ɩɪɨɢɡɜɨɞɢɬɶ ɞɜɟ ɨɩɟɪɚɰɢɢ ɡɚɩɢɫɶ ɢɥɢ ɱɬɟɧɢɟ ȼ ɉɚɫɤɚɥɟ ɩɪɨɢɡɜɨɞɢɬɫɹ ɨɛɪɚ ɛɨɬɤɚ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɵɯ ɮɚɣɥɨɜ ɜ ɤɨɬɨɪɵɯ ɞɚɧɧɵɟ ɡɚɩɢɫɵɜɚɸɬɫɹ ɢɥɢ ɫɱɢɬɵ ɜɚɸɬɫɹɨɞɧɨɡɚɞɪɭɝɢɦɁɚɩɢɫɶɦɨɠɧɨɩɪɨɱɟɫɬɶ ɦɢɧɭɹɩɪɟɞɵɞɭɳɢɟɟɫɥɢɢɡɜɟ ɫɬɟɧɟɟɩɨɪɹɞɤɨɜɵɣɧɨɦɟɪɜɮɚɣɥɟȾɥɹɬɨɝɨɱɬɨɛɵɫɞɚɧɧɵɦɢɮɚɣɥɚɩɪɨɢɡɜɨ ɞɢɬɶɞɟɣɫɬɜɢɹɮɚɣɥɧɟɨɛɯɨɞɢɦɨɨɬɤɪɵɬɶɞɥɹɫɨɨɬɜɟɬɫɬɜɭɸɳɟɣɨɩɟɪɚɰɢɢ Ɋɚɫɫɦɨɬɪɢɦɷɬɚɩɵɤɨɬɨɪɵɟɧɟɨɛɯɨɞɢɦɨɜɵɩɨɥɧɢɬɶɞɥɹɤɚɠɞɨɣɨɩɟɪɚɰɢɢ ɩɪɢɪɚɛɨɬɟɫɮɚɣɥɨɦ ɈɩɟɪɚɰɢɹɡɚɩɢɫɢɁɚɩɢɫɶɜɮɚɣɥɨɡɧɚɱɚɟɬɩɨɦɟɳɟɧɢɟɜɧɟɝɨɧɨɜɵɯɞɚɧ ɧɵɯɎɚɣɥɪɚɡɦɟɳɚɟɬɫɹɧɚɧɨɫɢɬɟɥɟɤɚɤɩɪɚɜɢɥɨɧɚɦɚɝɧɢɬɧɨɦɞɢɫɤɟȾɚɧɧɨɟ ɞɥɹɡɚɧɟɫɟɧɢɹɜɮɚɣɥɮɨɪɦɢɪɭɟɬɫɹɜɨɩɟɪɚɬɢɜɧɨɣɩɚɦɹɬɢɤɚɤɡɧɚɱɟɧɢɟɧɟɤɨɬɨ ɪɨɣɩɟɪɟɦɟɧɧɨɣɈɩɟɪɚɰɢɟɣɡɚɩɢɫɢɜɮɚɣɥɷɬɨɞɚɧɧɨɟɤɨɩɢɪɭɟɬɫɹɢɡɨɩɟɪɚɬɢɜ ɧɨɣ ɩɚɦɹɬɢ ɜɨ ɜɧɟɲɧɸɸ ɋɥɟɞɨɜɚɬɟɥɶɧɨ ɮɨɪɦɚ ɩɪɟɞɫɬɚɜɥɟɧɢɹ ɞɚɧɧɨɝɨ ɟɝɨ ɬɢɩɢɫɬɪɭɤɬɭɪɚ ɞɨɥɠɧɵɛɵɬɶɨɞɢɧɚɤɨɜɵɢɞɥɹɡɚɩɢɫɟɣɮɚɣɥɚ ɢɞɥɹɩɟɪɟɦɟɧ ɧɨɣɢɡɤɨɬɨɪɨɣɷɬɨɞɚɧɧɨɟɤɨɩɢɪɭɟɬɫɹ 1. ɈɩɢɫɚɧɢɟɮɚɣɥɚɈɩɢɫɚɧɢɟɮɚɣɥɚɦɨɠɟɬɛɵɬɶɜɪɚɡɞɟɥɟɬɢɩɨɜɢɥɢɜɪɚɡ ɞɟɥɟɩɟɪɟɦɟɧɧɵɯɉɭɫɬɶɮɚɣɥf ɫɨɫɬɨɢɬɢɡɰɟɥɵɯɱɢɫɟɥȿɝɨɨɩɢɫɚɧɢɟɢɦɟɟɬɜɢɞ var Ifile of integerDinteger ɝɞɟɚ – ɤɨɦɩɨɧɟɧɬɚɮɚɣɥɚɞɚɧɧɨɝɨɬɨɝɨɠɟɬɢɩɚɱɬɨɢɡɚɩɢɫɢɮɚɣɥɚɌɢɩɞɚɧ ɧɵɯ ɮɚɣɥɚ ɭɤɚɡɵɜɚɟɬɫɹ ɩɨɫɥɟ ɫɥɨɜɚ of ɜ ɨɩɢɫɚɧɢɢ ɷɬɨ ɦɨɠɟɬ ɛɵɬɶ ɱɢɫɥɨɜɨɣ ɢɥɢ ɫɢɦɜɨɥɶɧɵɣ ɬɢɩ ɦɚɫɫɢɜ ɢɥɢ ɡɚɩɢɫɶ ɋɥɨɠɧɵɣ ɬɢɩ ɡɚɩɢɫɢ ɮɚɣɥɚ ɧɟɨɛɯɨ ɞɢɦɨɩɪɟɞɜɚɪɢɬɟɥɶɧɨɨɩɢɫɚɬɶɜɪɚɡɞɟɥɟ type. ɍɫɬɚɧɨɜɥɟɧɢɟɫɨɨɬɜɟɬɫɬɜɢɹɦɟɠɞɭɥɨɝɢɱɟɫɤɢɦɢɮɢɡɢɱɟɫɤɢɦɢɦɟ ɧɚɦɢɮɚɣɥɚɅɨɝɢɱɟɫɤɨɟɢɦɹ– ɢɦɹɩɟɪɟɦɟɧɧɨɣ ɢɡɪɚɡɞɟɥɚvarɩɨɞɷɬɢɦɢɦɟ ɧɟɦɮɚɣɥɩɪɢɫɭɬɫɬɜɭɟɬɜɩɪɨɝɪɚɦɦɟɎɢɡɢɱɟɫɤɨɟɢɦɹ– ɢɦɹɢɡɤɚɬɚɥɨɝɚɨɝɥɚɜ ɥɟɧɢɹɞɢɫɤɚ. Ɉɩɟɪɚɬɨɪɭɫɬɚɧɨɜɥɟɧɢɹɫɨɨɬɜɟɬɫɬɜɢɹɦɟɠɞɭɢɦɟɧɚɦɢɮɚɣɥɨɜ DVVLJQ(ɥɨɝɢɱɟɫɤɨɟɢɦɹɮɚɣɥɚɮɢɡɢɱɟɫɤɨɟɢɦɹ  Ⱦɥɹɩɪɢɜɟɞɟɧɧɨɝɨɨɩɢɫɚɧɢɹɷɬɨɬɨɩɟɪɚɬɨɪɢɦɟɟɬɜɢɞ assign Iµ)'$7¶  Ɏɢɡɢɱɟɫɤɨɟ ɢɦɹ ɡɚɤɥɸɱɟɧɨ ɜ ɚɩɨɫɬɪɨɮɵ ɨɧɨ ɩɨɹɜɢɬɫɹ ɜ ɨɝɥɚɜɥɟɧɢɢ ɜ ɬɨɦɠɟɝɞɟɧɚɯɨɞɢɬɫɹɮɚɣɥWXUERH[H. 165
 Ɉɬɤɪɵɬɢɟɮɚɣɥɚɞɥɹɨɩɟɪɚɰɢɢ©ɡɚɩɢɫɶªɗɬɨɞɟɣɫɬɜɢɟɜɵɩɨɥɧɹɟɬɫɹ ɨɩɟɪɚɬɨɪɨɦ UHZULWH I  ɉɪɢ ɨɬɤɪɵɬɢɢ ɮɚɣɥɚ ɞɥɹ ɡɚɧɟɫɟɧɢɹ ɜ ɧɟɝɨ ɞɚɧɧɵɯ ɧɚ ɞɢɫɤɟ ɩɨɹɜɥɹɸɬɫɹ ɞɜɟɫɩɟɰɢɚɥɶɧɵɟɡɚɩɢɫɢɧɚɱɚɥɨɮɚɣɥɚɫɨɞɟɪɠɚɳɟɟɮɢɡɢɱɟɫɤɨɟɢɦɹ ɢɩɪɢɡɧɚɤ ɤɨɧɰɚɮɚɣɥɚɄɚɠɞɨɟɨɬɤɪɵɬɢɟɮɚɣɥɚɞɥɹɡɚɩɢɫɢɨɡɧɚɱɚɟɬɫɨɡɞɚɧɢɟɮɚɣɥɚȿɫ ɥɢ ɞɥɹ ɨɩɟɪɚɰɢɢ ©ɡɚɩɢɫɶª ɨɬɤɪɵɬɶ ɮɚɣɥ ɫ ɭɠɟ ɢɦɟɸɳɢɦɢɫɹ ɞɚɧɧɵɦɢ ɬɨ ɜɫɟ ɞɚɧɧɵɟɮɚɣɥɚɩɪɨɩɚɞɭɬɉɨɷɬɨɦɭɨɬɤɪɵɜɚɬɶɞɥɹɡɚɩɢɫɢɦɨɠɧɨɬɨɥɶɤɨɮɚɣɥɵɫ ɧɨɜɵɦɢɢɦɟɧɚɦɢ ɮɢɡɢɱɟɫɤɢɦɢ  ɉɪɢ ɡɚɧɟɫɟɧɢɢ ɞɚɧɧɵɯ ɜ ɮɚɣɥ ɨɧɢ ɛɭɞɭɬ ɪɚɡɦɟɳɚɬɶɫɹ ɦɟɠɞɭ ɢɦɟɧɟɦ ɢ ɩɪɢɡɧɚɤɨɦɤɨɧɰɚɮɚɣɥɚɤɚɠɞɨɟɧɨɜɨɟɞɚɧɧɨɟɛɭɞɟɬɪɚɡɦɟɳɚɬɶɫɹɩɟɪɟɞɩɪɢɡɧɚ ɤɨɦɤɨɧɰɚɮɚɣɥɚ Ɏɚɣɥ ɦɨɠɟɬ ɫɨɞɟɪɠɚɬɶ ɩɪɨɢɡɜɨɥɶɧɨɟ ɤɨɥɢɱɟɫɬɜɨ ɞɚɧɧɵɯ Ɉɝɪɚɧɢɱɟɧɢɟ ɪɚɡɦɟɪɚɮɚɣɥɚɧɢɤɚɤɜ ɩɪɨɝɪɚɦɦɟɧɟɨɝɨɜɚɪɢɜɚɟɬɫɹȼɨɩɟɪɚɬɢɜɧɨɣɩɚɦɹɬɢɞɨ ɫɬɚɬɨɱɧɨɨɞɧɨɣɨɛɥɚɫɬɢɫɨɜɩɚɞɚɸɳɟɣɩɨɮɨɪɦɚɬɭɫɡɚɩɢɫɹɦɢɮɚɣɥɚɚɧɚɞɢɫɤɟ ɮɚɣɥɦɨɠɟɬɛɵɬɶɬɚɤɨɝɨɪɚɡɦɟɪɚɫɤɨɥɶɤɨɢɦɟɟɬɫɹɫɜɨɛɨɞɧɨɝɨɩɪɨɫɬɪɚɧɫɬɜɚɧɚ ɦɨɦɟɧɬɟɝɨɫɨɡɞɚɧɢɹ Ɂɚɩɢɫɶɞɚɧɧɵɯɜɮɚɣɥɩɪɨɢɡɜɨɞɢɬɨɩɟɪɚɬɨɪ write ID  ɉɪɢɦɟɪ  ɉɭɫɬɶ ɬɪɟɛɭɟɬɫɹɫɨɡɞɚɬɶ ɮɚɣɥɢɡɰɟɥɵɯɱɢɫɟɥɉɪɨɝɪɚɦɦɚ ɢɦɟɟɬɜɢɞ program E35 var Ifile of integerDLinteger begin assign Iµ)'$7¶  rewrite I  writeln µɜɜɟɞɢɬɟɰɟɥɵɯɱɢɫɟɥɩɨɫɥɟɤɚɠɞɨɝɨɧɚɠɢɦɚɣɬɟ(QWHU¶  for L WRdo begin readln D  write ID end HQG ȿɫɥɢɫɨɡɞɚɬɶɮɚɣɥ ɢɧɢɤɚɤɢɯɛɨɥɶɲɟ ɞɟɣɫɬɜɢɣ ɧɟɩɪɨɢɡɜɨɞɢɬɶɬɨ ɧɢɤɚ ɤɨɣɜɨɡɦɨɠɧɨɫɬɢɩɪɨɫɦɨɬɪɟɬɶɞɚɧɧɵɟɮɚɣɥɵɜɧɟɩɪɨɝɪɚɦɦɵɩɪɚɤɬɢɱɟɫɤɢɧɟɬ ɉɨɷɬɨɦɭ ɛɨɥɶɲɢɧɫɬɜɨ ɡɚɞɚɱ ɨɛɪɚɛɨɬɤɢ ɮɚɣɥɨɜ ɧɚɱɢɧɚɸɬɫɹ ɫɥɨɜɚɦɢ ©Ⱦɚɧ ɮɚɣɥªɈɱɟɜɢɞɧɨɤɚɤɢɞɥɹɞɪɭɝɢɯɡɚɞɚɱɫɩɨɞɨɛɧɵɦɧɚɱɚɥɨɦɮɚɣɥɧɟɨɛɯɨɞɢ 166
ɦɨɫɧɚɱɚɥɚɫɨɡɞɚɬɶɬɟ ɜɵɩɨɥɧɢɬɶɨɩɢɫɚɧɧɵɟɱɟɬɵɪɟɷɬɚɩɚȾɥɹɪɚɛɨɬɵɫɞɚɧ ɧɵɦɢɮɚɣɥɚɢɯɧɟɨɛɯɨɞɢɦɨɩɪɟɠɞɟɜɫɟɝɨɩɪɨɱɟɫɬɶɨɬɤɪɵɬɶɮɚɣɥɞɥɹɱɬɟɧɢɹ ɈɩɟɪɚɰɢɹɱɬɟɧɢɹȾɥɹɱɬɟɧɢɹɞɚɧɧɵɯɢɡɮɚɣɥɚɟɝɨɧɟɨɛɯɨɞɢɦɨɨɩɢɫɚɬɶ ɭɫɬɚɧɨɜɢɬɶɫɨɨɬɜɟɬɫɬɜɢɟɦɟɠɞɭɥɨɝɢɱɟɫɤɢɦɢɮɢɡɢɱɟɫɤɢɦɢɦɟɧɟɦɨɬɤɪɵɬɶɞɥɹ ɱɬɟɧɢɹɢɫɱɢɬɵɜɚɬɶɞɚɧɧɵɟɉɟɪɜɵɟɞɜɚɲɚɝɚ– ɨɩɢɫɚɧɢɟɢɭɫɬɚɧɨɜɥɟɧɢɟɫɨɨɬ ɜɟɬɫɬɜɢɹ ɢɦɟɧ– ɬɚɤɢɟɠɟɤɚɤɢɞɥɹɨɩɟɪɚɰɢɢɡɚɩɢɫɢȿɫɥɢɫɮɚɣɥɨɦɜɵɩɨɥɧɹ ɸɬɫɹ ɪɚɡɥɢɱɧɵɟ ɨɩɟɪɚɰɢɢ ɬɨ ɩɟɪɟɞ ɜɵɩɨɥɧɟɧɢɟɦ ɫɥɟɞɭɸɳɟɣ ɟɝɨ ɧɟɨɛɯɨɞɢɦɨ ɡɚɤɪɵɬɶ ɨɩɟɪɚɬɨɪɨɦ close I  Ɉɬɤɪɵɬɢɟɮɚɣɥɚ ɞɥɹɱɬɟɧɢɹ ɩɪɨɢɡɜɨɞɢɬɫɹɨɩɟɪɚɬɨɪɨɦ UHVHW I  ɑɢɬɚɬɶɞɚɧɧɵɟɢɡɮɚɣɥɚ ɩɨɡɜɨɥɹɟɬɨɩɟɪɚɬɨɪ read ID  ɉɨɫɥɟ ɫɨɡɞɚɧɢɹ ɮɚɣɥɚ ɢ ɧɟɫɤɨɥɶɤɢɯ ɩɪɟɨɛɪɚɡɨɜɚɧɢɣ ɦɨɠɟɬ ɛɵɬɶ ɧɟɢɡ ɜɟɫɬɧɨ ɤɨɥɢɱɟɫɬɜɨ ɟɝɨ ɡɚɩɢɫɟɣ ɉɨɷɬɨɦɭ ɩɪɢ ɱɬɟɧɢɢ ɞɚɧɧɵɯ ɢɡ ɮɚɣɥɚ ɭɞɨɛɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɫɩɟɰɢɚɥɶɧɭɸ ɮɭɧɤɰɢɸ ɤɨɧɬɪɨɥɢɪɭɸɳɭɸ ɩɪɢɡɧɚɤ ɤɨɧɰɚ ɮɚɣɥɚ ɗɬɚɮɭɧɤɰɢɹɩɪɢɧɢɦɚɟɬɡɧɚɱɟɧɢɟ©ɢɫɬɢɧɚªɟɫɥɢɜɫɬɪɟɱɟɧɩɪɢɡɧɚɤɤɨɧɰɚɮɚɣ ɥɚɢ©ɥɨɠɶªɟɫɥɢɩɪɨɱɢɬɚɧɚɞɪɭɝɚɹɡɚɩɢɫɶɌ ɤɩɪɢɨɬɤɪɵɬɢɢɮɚɣɥɚɞɥɹɱɬɟ ɧɢɹ ɭɠɟ ɫɱɢɬɵɜɚɟɬɫɹ ɩɟɪɜɚɹ ɟɝɨ ɡɚɩɢɫɶ ɫɨɞɟɪɠɚɳɚɹ ɢɦɹ ɮɚɣɥɚ ɬɨ ɦɨɠɧɨ ɩɨ ɫɬɚɜɢɬɶɤɨɧɬɪɨɥɶɩɪɢɡɧɚɤɚɤɨɧɰɚɮɚɣɥɚɞɚɠɟɧɟɫɱɢɬɚɜɧɢɨɞɧɨɣɡɚɩɢɫɢɨɩɟɪɚ ɬɨɪɨɦUHDG ID  Ɏɭɧɤɰɢɹɨɛɪɚɛɨɬɤɢɩɪɢɡɧɚɤɚɤɨɧɰɚɮɚɣɥɚ HRI I ɉɨɫɤɨɥɶɤɭ ɤɨɥɢɱɟɫɬɜɨ ɡɚɩɢɫɟɣ ɜ ɮɚɣɥɟ ɧɟɢɡɜɟɫɬɧɨ ɬɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɩɪɢ ɱɬɟɧɢɢɞɚɧɧɵɯɮɚɣɥɚɰɢɤɥ-ɩɟɪɟɫɱɟɬɧɟɥɶɡɹɢɫɩɨɥɶɡɭɟɬɫɹɰɢɤɥ-ɩɨɤɚȿɝɨɡɚɝɨ ɥɨɜɨɤ ZKLOHQRW HRI I do ɧɚɞɨ ɩɨɧɢɦɚɬɶ ɬɚɤ ɩɨɤɚ ɧɟ ɜɫɬɪɟɬɢɥɫɹ ɩɪɢɡɧɚɤ ɤɨɧɰɚ ɮɚɣɥɚ ɜɵɩɨɥɧɹɬɶ ɰɢɤɥ ɉɪɢɦɟɪ Ⱦɚɧɮɚɣɥɰɟɥɵɯɱɢɫɟɥɉɨɫɱɢɬɚɬɶɤɨɥɢɱɟɫɬɜɨɩɨɥɨɠɢɬɟɥɶɧɵɯ ɨɬɪɢɰɚɬɟɥɶɧɵɯɢɧɭɥɟɜɵɯɷɥɟɦɟɧɬɨɜɮɚɣɥɚɂɫɩɨɥɶɡɭɟɦɜɞɚɧɧɨɦɩɪɢɦɟɪɟɩɪɨ ɝɪɚɦɦɭɫɨɡɞɚɧɢɹɮɚɣɥɚɰɟɥɵɯɱɢɫɟɥȿ. program E36 const N  167
var Ifile of integerDLQS]integer begin assign Iµ)'$7¶  rewrite I ^ɫɨɡɞɚɧɢɟɮɚɣɥɚ` writeln µɜɜɟɞɢɬɟ¶Nµɰɟɥɵɯɱɢɫɟɥɩɨɫɥɟɤɚɠɞɨɝɨɧɚɠɢɦɚɣɬɟ(QWHU¶  for L WRQdo begin readln D  write ID end; close I ^ɡɚɤɪɵɬɢɟɮɚɣɥɚɞɥɹɨɩɟɪɚɰɢɢɡɚɩɢɫɢ` ^ɪɟɲɟɧɢɟɡɚɞɚɱɢ– ɩɨɞɫɱɟɬɪɚɡɥɢɱɧɵɯɷɥɟɦɟɧɬɨɜ` Q S ] ^Q– ɨɬɪɢɰɚɬɟɥɶɧɵɟS– ɩɨɥɨɠɢɬɟɥɶɧɵɟ]– ɧɭɥɢ` reset I  while not HRI I do begin read ID  if D then ] ] if a < 0 then Q Q if D!then S S end; write µQ µQµ] µ]µS µS HQG ɉɪɢɦɟɪɉɭɫɬɶɬɪɟɛɭɟɬɫɹɪɚɫɲɢɪɢɬɶɞɚɧɧɵɣɮɚɣɥɞɨɛɚɜɢɜɜɧɟɝɨɧɨ ɜɵɟ ɞɚɧɧɵɟ Ʉɚɤ ɢɡɜɟɫɬɧɨ ɮɚɣɥ ɫ ɞɚɧɧɵɦɢ ɧɟɥɶɡɹ ɨɬɤɪɵɜɚɬɶ ɞɥɹ ɡɚɩɢɫɢ ɩɨ ɷɬɨɦɭɞɥɹɪɟɲɟɧɢɹɩɨɞɨɛɧɵɯɡɚɞɚɱɧɟɨɛɯɨɞɢɦɨɢɫɩɨɥɶɡɨɜɚɬɶɜɫɩɨɦɨɝɚɬɟɥɶɧɵɣ ɮɚɣɥ Ɋɟɲɟɧɢɟɡɚɞɚɱɢɪɚɫɲɢɪɟɧɢɹɮɚɣɥɚɫɤɥɚɞɵɜɚɟɬɫɹɢɡɫɥɟɞɭɸɳɢɯɷɬɚɩɨɜ  ɨɬɤɪɵɬɶɞɚɧɧɵɣɮɚɣɥf ɞɥɹɱɬɟɧɢɹɚɜɫɩɨɦɨɝɚɬɟɥɶɧɵɣg – ɞɥɹɡɚɩɢɫɢ 2 ɱɢɬɚɬɶɞɚɧɧɨɟɢɡɢɫɯɨɞɧɨɝɨɮɚɣɥɚf ɢɡɚɩɢɫɵɜɚɬɶɟɝɨɬɭɬɠɟɜɮɚɣɥg  ɩɨɫɥɟɨɤɨɧɱɚɧɢɹɩɟɪɟɩɢɫɵɜɚɧɢɹɞɚɧɧɵɯɡɚɤɪɵɬɶɮɚɣɥf  ɜɜɨɞɢɬɶɧɨɜɵɟɞɚɧɧɵɟɫɤɥɚɜɢɚɬɭɪɵɢɡɚɩɢɫɵɜɚɬɶɢɯɜɮɚɣɥgɞɨɛɚɜ ɥɹɹɤɭɠɟɢɦɟɸɳɢɦɫɹɬɚɦɞɚɧɧɵɦɮɚɣɥɚf  ɡɚɤɪɵɬɶɮɚɣɥg 6) ɨɬɤɪɵɬɶɮɚɣɥf ɞɥɹɡɚɩɢɫɢɚɮɚɣɥg – ɞɥɹɱɬɟɧɢɹ  ɱɢɬɚɬɶɞɚɧɧɵɟɢɡɮɚɣɥɚg ɢɡɚɩɢɫɵɜɚɬɶɢɯɜɮɚɣɥf. Ɍɚɤɢɦɨɛɪɚɡɨɦɜɮɚɣɥɟf ɤɫɬɚɪɵɦɞɚɧɧɵɦɞɨɛɚɜɹɬɫɹɧɨɜɵɟȿɫɥɢɬɪɟɛɭ ɟɬɫɹɜɫɬɚɜɢɬɶɧɨɜɵɟɞɚɧɧɵɟɜɫɟɪɟɞɢɧɭɮɚɣɥɚɬɨɧɚɞɨɜɨɜɬɨɪɨɦɩɭɧɤɬɟɪɟɲɟ ɧɢɹ ɤɨɧɬɪɨɥɢɪɨɜɚɬɶ ɫɱɢɬɵɜɚɟɦɵɟ ɞɚɧɧɵɟ ɢ ɞɨɣɞɹ ɞɨ ɦɟɫɬɚ ɜɫɬɚɜɤɢ ɩɪɢɨɫɬɚ ɧɨɜɢɬɶ ɱɬɟɧɢɟ ɡɚɩɢɫɚɬɶ ɬɪɟɛɭɟɦɵɟ ɞɚɧɧɵɟ ɜ ɮɚɣɥ g ɚ ɡɚɬɟɦ ɞɨɩɢɫɚɬɶ ɬɭɞɚ ɨɫɬɚɜɲɢɟɫɹɢɡɢɫɯɨɞɧɨɝɨɮɚɣɥɚ ɩɭɧɤɬɵɢ ɞɚɥɟɟɜɵɩɨɥɧɢɬɶɩɭɧɤɬɵ 168
ɉɪɨɝɪɚɦɦɚ ɞɨɛɚɜɥɟɧɢɹ ɞɚɧɧɵɯ ɜ ɮɚɣɥ ɢɫɩɨɥɶɡɭɟɦ ɝɨɬɨɜɵɣ ɮɚɣɥ f ɢɡ ɩɪɢɦɟɪɚȿ  program E37 var IJfile of integerDinteger begin assign Iµ)'$7¶  assign Jµ*'$7¶  ^ɩɟɪɟɡɚɩɢɫɶɞɚɧɧɵɯɢɡɢɫɯɨɞɧɨɝɨɮɚɣɥɚɜɜɫɩɨɦɨɝɚɬɟɥɶɧɵɣ` reset I rewrite J  while not HRI I do begin read ID  write JD  end; close I  ^ɞɨɛɚɜɥɟɧɢɟɞɚɧɧɵɯɜɜɫɩɨɦɨɝɚɬɟɥɶɧɵɣɮɚɣɥ` readln D  while D! do ^ɩɪɢɡɧɚɤɨɤɨɧɱɚɧɢɹɜɜɨɞɚɧɨɜɵɯɞɚɧɧɵɯ– ɧɨɥɶ` begin write JD  readln ( a ) end; ɫlose J  reset J rewrite I  ^ɩɟɪɟɡɚɩɢɫɶɞɚɧɧɵɯɧɚɡɚɞɜɢɫɯɨɞɧɵɣɮɚɣɥ` while not HRI J do begin read JD  write ID end end. ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ Ʉɚɤɢɟɨɩɟɪɚɰɢɢɦɨɠɧɨɩɪɨɢɡɜɨɞɢɬɶɫɞɚɧɧɵɦɢɮɚɣɥɚ" ɉɨɱɟɦɭɜɬɨɪɨɣɩɚɪɚɦɟɬɪɚ ɨɩɟɪɚɬɨɪɨɜZULWH ID ɢUHDG ID ɞɨɥɠɟɧ ɛɵɬɶɬɚɤɨɝɨɠɟɬɢɩɚɤɚɤɢɞɚɧɧɵɟɮɚɣɥɚ"  ɑɬɨ ɬɚɤɨɟ ɮɢɡɢɱɟɫɤɨɟ ɢɦɹ ɮɚɣɥɚ ɱɟɦ ɨɧɨ ɨɬɥɢɱɚɟɬɫɹ ɨɬ ɥɨɝɢɱɟɫɤɨɝɨ ɢɦɟɧɢ" Ʉɚɤɨɬɤɪɵɬɶɮɚɣɥɞɥɹɡɚɩɢɫɢ" ɑɬɨɛɭɞɟɬɟɫɥɢɪɚɧɟɟɫɨɡɞɚɧɧɵɣɮɚɣɥɫɞɚɧɧɵɦɢɨɬɤɪɵɬɶɞɥɹɡɚɩɢɫɢ" ɑɟɦɨɝɪɚɧɢɱɟɧɨɤɨɥɢɱɟɫɬɜɨɞɚɧɧɵɯɜɮɚɣɥɟ" 7. ɑɟɦɨɬɥɢɱɚɟɬɫɹɮɚɣɥɨɬɦɚɫɫɢɜɚ" 169
Ʉɚɤɩɪɨɱɟɫɬɶɞɚɧɧɵɟɢɡɮɚɣɥɚ ɧɟɡɧɚɹɤɨɥɢɱɟɫɬɜɚɷɬɢɯɞɚɧɧɵɯ" Ʉɚɤɞɨɛɚɜɢɬɶɞɚɧɧɵɟɜɢɦɟɸɳɢɣɫɹɮɚɣɥ" Ⱦɥɹɰɟɥɨɱɢɫɥɟɧɧɨɝɨɮɚɣɥɚɧɚɣɬɢɧɚɢɛɨɥɶɲɢɣɷɥɟɦɟɧɬɞɚɧɧɵɯ  Ⱦɥɹ ɮɚɣɥɚ ɰɟɥɵɯ ɱɢɫɟɥ ɩɟɪɟɩɢɫɚɬɶ ɩɨɥɨɠɢɬɟɥɶɧɵɟ ɜ ɨɞɢɧ ɞɨɩɨɥɧɢ ɬɟɥɶɧɵɣɮɚɣɥɚɨɬɪɢɰɚɬɟɥɶɧɵɟ– ɜɞɪɭɝɨɣ  Ⱦɥɹ ɡɚɞɚɱɢ  ɩɪɟɞɵɞɭɳɟɝɨ ɩɚɪɚɝɪɚɮɚ ɫɨɡɞɚɣɬɟ ɮɚɣɥ ɫ ɡɚɩɢɫɹɦɢ ɨɛ ɭɱɟɧɢɤɚɯɤɥɚɫɫɚɢɜɵɩɨɥɧɢɬɟɜɫɟɩɭɧɤɬɵɡɚɞɚɧɢɹɢɫɩɨɥɶɡɭɹɞɚɧɧɵɟɮɚɣɥɚ 170
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ17Ɋɚɛɨɬɚɫɮɚɣɥɚɦɢ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɪɚɛɨɬɵ ɫ ɬɢɩɢɡɢɪɨɜɚɧɧɵɦɢ ɮɚɣɥɚɦɢ ɁɚɞɚɧɢɟɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟPascal ɧɚɩɢɫɚɬɶɩɪɨɝɪɚɦɦɭɩɪɟɞɩɨɥɚ ɝɚɸɳɭɸ ɨɛɪɚɛɨɬɤɭ ɦɚɫɫɢɜɨɜ ɯɪɚɧɹɳɢɯɫɹ ɜ ɮɚɣɥɚɯ ȼɵɩɨɥɧɢɬɶ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. 5. 6. ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ Ɂɚɞɚɧɢɟ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɝɪɚɠɞɚɧɚɯɨɛɫɥɭɠɢɜɚɟɦɵɯɩɨɥɢɤɥɢɧɢɤɨɣ ɎɂɈɝɨɞ ɪɨɠɞɟɧɢɹɚɞɪɟɫɩɪɨɠɢɜɚɧɢɹɦɟɫɬɨɪɚɛɨɬɵɞɚɬɚ ɩɪɨɯɨɠɞɟɧɢɹɮɥɸɨɪɨɝɪɚɮɢɢ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚ ɷɤɪɚɧɎɂɈɥɢɰɤɨɬɨɪɵɟɩɪɨɲɥɢɮɥɸɨɪɨɝɪɚɮɢɸɛɨɥɟɟ ɝɨɞɚ ɧɚɡɚɞ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɛɚɜɬɨɦɨɛɢɥɹɯ ɧɨɦɟɪɦɨɞɟɥɶɦɚɲɢɧɵɰɜɟɬɎɂɈ ɜɥɚɞɟɥɶɰɚɞɚɬɚɩɪɨɯɨɠɞɟɧɢɹɬɟɯɨɫɦɨɬɪɚ ȼɵɜɟɫɬɢ ɧɚɷɤɪɚɧɧɨɦɟɪɚɦɚɲɢɧɢɎɂɈɜɥɚɞɟɥɶɰɟɜɞɥɹɬɟɯ ɚɜɬɨɦɨɛɢɥɟɣɤɨɬɨɪɵɟɧɟɩɪɨɲɥɢɬɟɯɨɫɦɨɬɪɜɬɟɤɭɳɟɦɝɨɞɭ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɛɚɜɬɨɦɨɛɢɥɹɯ ɧɨɦɟɪɦɨɞɟɥɶɦɚɲɢɧɵɰɜɟɬɎɂɈ ɜɥɚɞɟɥɶɰɚɞɚɬɚɩɪɨɯɨɠɞɟɧɢɹɬɟɯɨɫɦɨɬɪɚ ȼɵɜɟɫɬɢ ɧɚɷɤɪɚɧɎɂɈɜɥɚɞɟɥɶɰɟɜɚɜɬɨɦɨɛɢɥɟɣɜɚɥɮɚɜɢɬɧɨɦ ɩɨɪɹɞɤɟɢɫɨɨɬɜɟɬɫɬɜɭɸɳɢɟɧɨɦɟɪɚɚɜɬɨɦɨɛɢɥɟɣ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɝɪɚɠɞɚɧɚɯɨɛɫɥɭɠɢɜɚɟɦɵɯɩɨɥɢɤɥɢɧɢɤɨɣ ɎɂɈɝɨɞ ɪɨɠɞɟɧɢɹɚɞɪɟɫɩɪɨɠɢɜɚɧɢɹɦɟɫɬɨɪɚɛɨɬɵɞɚɬɚ ɩɪɨɯɨɠɞɟɧɢɹɮɥɸɨɪɨɝɪɚɮɢɢ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢ ɧɚɷɤɪɚɧɜɫɟɫɜɟɞɟɧɢɹɨɝɪɚɠɞɚɧɚɯ ɪɨɞɢɜɲɢɯɫɹ ɜɨɩɪɟɞɟɥɟɧɧɨɦɝɨɞɭ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɜɵɫɬɚɜɥɟɧɧɵɯɧɚɩɪɨɞɚɠɭɤɜɚɪɬɢɪɚɯ ɤɨɥɢɱɟɫɬɜɨɤɨɦɧɚɬ ɨɛɳɚɹɩɥɨɳɚɞɶɩɥɨɳɚɞɶɡɚɥɚɩɥɨɳɚɞɶɤɭɯɧɢɧɚɥɢɱɢɟ ɛɚɥɤɨɧɚɷɬɚɠɫɬɨɢɦɨɫɬɶɚɞɪɟɫ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢ ɧɚɷɤɪɚɧɚɞɪɟɫɚɜɫɟɯɬɪɟɯɤɨɦɧɚɬɧɵɯɤɜɚɪɬɢɪɫɬɨɢɦɨɫɬɶ ɤɨɬɨɪɵɯɧɟɩɪɟɜɵɲɚɟɬɧɟɤɨɬɨɪɨɟɩɨɪɨɝɨɜɨɟɡɧɚɱɟɧɢɟ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɜɵɫɬɚɜɥɟɧɧɵɯɧɚɩɪɨɞɚɠɭɤɜɚɪɬɢɪɚɯ ɤɨɥɢɱɟɫɬɜɨɤɨɦɧɚɬ ɨɛɳɚɹɩɥɨɳɚɞɶɩɥɨɳɚɞɶɡɚɥɚɩɥɨɳɚɞɶɤɭɯɧɢɧɚɥɢɱɢɟ ɛɚɥɤɨɧɚɷɬɚɠɫɬɨɢɦɨɫɬɶɚɞɪɟɫ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢ ɧɚɷɤɪɚɧɜɫɟɫɜɟɞɟɧɢɹɨɤɜɚɪɬɢɪɚɯɭɤɨɬɨɪɵɯɟɫɬɶɥɨɞɠɢɹ ɢɤɨɬɨɪɵɟɪɚɫɩɨɥɨɠɟɧɵɧɚɜɬɨɪɨɦɷɬɚɠɟ 171
ȼɚɪɢɚɧɬʋ 7. 8. 9. 10. 11. 12. 13. 14. Ɂɚɞɚɧɢɟ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɜɵɫɬɚɜɥɟɧɧɵɯɧɚɩɪɨɞɚɠɭɤɜɚɪɬɢɪɚɯ ɤɨɥɢɱɟɫɬɜɨɤɨɦɧɚɬ ɨɛɳɚɹɩɥɨɳɚɞɶɩɥɨɳɚɞɶɡɚɥɚɩɥɨɳɚɞɶɤɭɯɧɢɧɚɥɢɱɢɟ ɛɚɥɤɨɧɚɷɬɚɠɫɬɨɢɦɨɫɬɶɚɞɪɟɫ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢ ɧɚɷɤɪɚɧɜɫɟɫɜɟɞɟɧɢɹɨɤɜɚɪɬɢɪɚɯɜɩɨɪɹɞɤɟɜɨɡɪɚɫɬɚɧɢɹ ɢɯɫɬɨɢɦɨɫɬɢ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɪɚɡɜɢɜɚɸɳɢɯɢɝɪɚɯɞɥɹɞɟɬɟɣ ɧɚɡɜɚɧɢɟɢɝɪɵɫɬɨɢɦɨɫɬɶ ɢɜɨɡɪɚɫɬɧɵɟɝɪɚɧɢɰɵɞɟɬɟɣɤɨɬɨɪɵɦɛɭɞɟɬɢɧɬɟɪɟɫɧɚ ɞɚɧɧɚɹɢɝɪɚ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɧɚɡɜɚɧɢɹ ɪɚɡɜɢɜɚɸɳɢɯɢɝɪɤɨɬɨɪɵɟɩɨɞɯɨɞɹɬɞɟɬɹɦɞɨɜɨɡɪɚɫɬɚN ɢɫɬɨɢɦɨɫɬɶɤɨɬɨɪɵɯɧɟɩɪɟɜɵɲɚɟɬɩɨɪɨɝ. ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɪɚɡɜɢɜɚɸɳɢɯɢɝɪɚɯɞɥɹɞɟɬɟɣ ɧɚɡɜɚɧɢɟɢɝɪɵɫɬɨɢɦɨɫɬɶ ɢɜɨɡɪɚɫɬɧɵɟɝɪɚɧɢɰɵɞɟɬɟɣɤɨɬɨɪɵɦɛɭɞɟɬɢɧɬɟɪɟɫɧɚ ɞɚɧɧɚɹɢɝɪɚ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɜɫɟɫɜɟɞɟɧɢɹ ɨɪɚɡɜɢɜɚɸɳɢɯɢɝɪɚɯɜɩɨɪɹɞɤɟɜɨɡɪɚɫɬɚɧɢɹɢɯɰɟɧɵ ɤɨɬɨɪɵɟɩɨɞɯɨɞɹɬɞɟɬɹɦɞɨ. ɥɟɬ ȼɮɚɣɥɟ ɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɫɬɭɞɟɧɬɚɯɭɧɢɜɟɪɫɢɬɟɬɚ ɎɂɈɤɭɪɫɧɚɩɪɚɜɥɟɧɢɟ ɩɨɞɝɨɬɨɜɤɢɲɢɮɪɝɪɭɩɩɵɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦ ɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɎɂɈ ɢɲɢɮɪɵɝɪɭɩɩɥɭɱɲɢɯɫɬɭɞɟɧɬɨɜɭɧɢɜɟɪɫɢɬɟɬɚ ɭɱɚɬɫɹ ɧɚ©ɨɬɥɢɱɧɨªɢ©ɯɨɪɨɲɨªɢɩɨɫɭɦɦɟɩɨɥɭɱɟɧɧɵɯɛɚɥɥɨɜ ɧɟɭɫɬɭɩɚɸɬɞɪɭɝɢɦɫɬɭɞɟɧɬɚɦɭɧɢɜɟɪɫɢɬɟɬɚ) ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ ɎɂɈɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦ ɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɎɂɈ ɫɬɭɞɟɧɬɨɜɜɩɨɪɹɞɤɟɢɯɭɫɩɟɜɚɟɦɨɫɬɢ ɭɫɩɟɜɚɟɦɨɫɬɶ ɨɩɪɟɞɟɥɹɟɬɫɹɫɭɦɦɨɣɛɚɥɥɨɜɩɨɜɫɟɦɷɤɡɚɦɟɧɚɦ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ ɎɂɈɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦ ɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɧɚɡɜɚɧɢɟ ɩɪɟɞɦɟɬɚɤɨɬɨɪɵɣɛɵɥɫɞɚɧɧɚɢɛɨɥɟɟɭɫɩɟɲɧɨ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ ɎɂɈɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦ ɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɩɪɨɰɟɧɬ ɫɬɭɞɟɧɬɨɜɤɨɬɨɪɵɣɫɞɚɥɜɫɟɷɤɡɚɦɟɧɵɛɟɡɬɪɨɟɤɢɫɬɪɨɣɤɚɦɢ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɫɬɭɞɟɧɬɚɯɭɧɢɜɟɪɫɢɬɟɬɚ ɎɂɈɩɨɥɧɚɩɪɚɜɥɟɧɢɟ ɩɨɞɝɨɬɨɜɤɢɤɭɪɫ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɧɚɡɜɚɧɢɟ ɧɚɩɪɚɜɥɟɧɢɹɩɨɞɝɨɬɨɜɤɢɧɚɤɨɬɨɪɨɦɭɱɢɬɫɹɧɚɢɛɨɥɶɲɢɣ ɩɪɨɰɟɧɬɦɭɠɱɢɧ 172
ȼɚɪɢɚɧɬʋ 15. 16. Ɂɚɞɚɧɢɟ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɫɬɭɞɟɧɬɚɯɭɧɢɜɟɪɫɢɬɟɬɚ ɎɂɈɩɨɥɧɚɩɪɚɜɥɟɧɢɟ ɩɨɞɝɨɬɨɜɤɢɤɭɪɫɪɨɫɬ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧ ɎɂɈɜɫɟɯɫɬɭɞɟɧɬɨɜɱɟɣɪɨɫɬɜɵɲɟɫɪɟɞɧɟɝɨ ɩɨɭɧɢɜɟɪɫɢɬɟɬɭ ɨɬɞɟɥɶɧɨɞɥɹɦɭɠɱɢɧɢɠɟɧɳɢɧ ȼɮɚɣɥɟɯɪɚɧɢɬɫɹɦɚɫɫɢɜɫɨɞɟɪɠɚɳɢɣɢɧɮɨɪɦɚɰɢɸ ɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ ɎɂɈɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦ ɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ ɇɟɨɛɯɨɞɢɦɨɜɵɜɟɫɬɢɧɚɷɤɪɚɧɫɜɟɞɟɧɢɹ ɨɫɪɟɞɧɟɦɛɚɥɥɟɤɚɠɞɨɝɨɫɬɭɞɟɧɬɚ ɎɂɈ – ɫɪɟɞɧɢɣɛɚɥɥ Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨ ɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ȼɨɜɫɟɯɡɚɞɚɱɚɯɞɚɧɧɨɣɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵɩɟɪɜɨɧɚɱɚɥɶɧɨɧɟɨɛɯɨɞɢɦɨ ɫɨɡɞɚɬɶ ɮɚɣɥ ɢ ɜɧɟɫɬɢ ɜ ɧɟɝɨ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɟ ɞɚɧɧɵɟ Ⱦɥɹ ɯɪɚɧɟɧɢɹ ɞɚɧɧɵɯ ɧɟɨɛɯɨɞɢɦɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɡɚɩɢɫɢ. Ʉɨɥɢɱɟɫɬɜɨ ɡɚɩɢɫɟɣ ɯɪɚɧɹɳɢɯɫɹ ɜ ɮɚɣɥɟ ɪɟɤɨɦɟɧɞɭɟɬɫɹɡɚɞɚɜɚɬɶɜɜɢɞɟɤɨɧɫɬɚɧɬɵȾɥɹɭɞɨɛɫɬɜɚɩɪɨɜɟɪɤɢɪɚɛɨɬɵɩɪɨ ɝɪɚɦɦɵɷɬɨɱɢɫɥɨ ɞɨɥɠɧɨɛɵɬɶ ɧɟɛɨɥɶɲɢɦ (3 ” n ”  Ɂɚɬɟɦ ɡɚɩɢɫɢ ɯɪɚɧɹɳɢɟɫɹ ɜ ɞɚɧɧɨɦ ɮɚɣɥɟ ɧɭɠɧɨ ɨɛɪɚɛɨɬɚɬɶ ɢ ɜɵɜɟɫɬɢ ɧɚɷɤɪɚɧɞɥɹɩɨɥɶɡɨɜɚɬɟɥɹɪɟɡɭɥɶɬɚɬɵɪɚɛɨɬɵɩɪɨɝɪɚɦɦɵ ȼ ɩɪɨɰɟɫɫɟ ɧɚɩɢɫɚɧɢɹ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɧɟɨɛɯɨɞɢɦɨ ɩɨɦɧɢɬɶ ɩɨɫɥɟɞɨɜɚ ɬɟɥɶɧɨɫɬɶɞɟɣɫɬɜɢɣɞɥɹɫɨɡɞɚɧɢɹɧɨɜɨɝɨɮɚɣɥɚɢɜɧɟɫɟɧɢɹɜɧɟɝɨɢɧɮɨɪɦɚɰɢɢ 1) ɫɨɡɞɚɧɢɟ ɮɚɣɥɨɜɨɣ ɩɟɪɟɦɟɧɧɨɣ 2) ɭɫɬɚɧɨɜɥɟɧɢɟ ɫɜɹɡɢ ɮɚɣɥɨɜɨɣ ɩɟɪɟɦɟɧɧɨɣ ɫ ɮɢɡɢɱɟɫɤɢɦ ɮɚɣɥɨɦ ɨɩɟɪɚ ɬɨɪassign  3) ɨɬɤɪɵɬɢɟ ɮɚɣɥɚ ɞɥɹɡɚɩɢɫɢ ɨɩɟɪɚɬɨɪrewrite  4) ɜɧɟɫɟɧɢɟ ɢɧɮɨɪɦɚɰɢɢ ɜɮɚɣɥ ɨɩɟɪɚɬɨɪwrite  5) ɡɚɤɪɵɬɢɟ ɮɚɣɥɚ (ɨɩɟɪɚɬɨɪclose). ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ ɞɟɣɫɬɜɢɣ ɞɥɹ ɫɱɢɬɵɜɚɧɢɹ ɢɧɮɨɪɦɚɰɢɢ ɢɡ ɪɚɧɟɟ ɫɨ ɡɞɚɧɧɨɝɨɮɚɣɥɚ 1) ɫɨɡɞɚɧɢɟ ɮɚɣɥɨɜɨɣ ɩɟɪɟɦɟɧɧɨɣ 2) ɭɫɬɚɧɨɜɥɟɧɢɟ ɫɜɹɡɢ ɮɚɣɥɨɜɨɣ ɩɟɪɟɦɟɧɧɨɣ ɫ ɮɢɡɢɱɟɫɤɢɦ ɮɚɣɥɨɦ ɨɩɟɪɚ ɬɨɪassign  3) ɨɬɤɪɵɬɢɟ ɮɚɣɥɚ ɞɥɹɱɬɟɧɢɹ ɨɩɟɪɚɬɨɪreset  4) ɫɱɢɬɵɜɚɧɢɟ ɧɟɨɛɯɨɞɢɦɨɣ ɢɧɮɨɪɦɚɰɢɢ ɢɡɮɚɣɥɚ ɨɩɟɪɚɬɨɪread  5) ɡɚɤɪɵɬɢɟ ɮɚɣɥɚ (ɨɩɟɪɚɬɨɪclose). ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨɩɟ ɪɟɦɟɧɧɵɯɄɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢ ɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼɨɬɱɟɬɧɟɨɛɯɨɞɢɦɨɜɤɥɸɱɢɬɶɷɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ ɜɪɟɞɚɤɬɨɪɟPascal. 173
ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɪɚɛɨɬɵɫɬɢɩɢɡɢɪɨɜɚɧɧɵɦɢɮɚɣɥɚɦɢ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ 3DVFDO ɧɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɩɪɟɞɩɨɥɚɝɚɸ ɳɭɸɨɛɪɚɛɨɬɤɭɦɚɫɫɢɜɨɜɯɪɚɧɹɳɢɯɫɹɜɮɚɣɥɚɯ ȼ ɮɚɣɥɟ ɯɪɚɧɢɬɫɹ ɦɚɫɫɢɜ ɫɨɞɟɪɠɚɳɢɣ ɢɧɮɨɪɦɚɰɢɸ ɨ ɫɬɭɞɟɧɬɚɯ ɝɪɭɩɩɵ ɎɂɈ ɨɰɟɧɤɢ ɩɨ  ɷɤɡɚɦɟɧɚɦ ɩɨɫɥɟɞɧɟɣ ɫɟɫɫɢɢ  ɇɟɨɛɯɨɞɢɦɨ ɜɵɜɟɫɬɢ ɧɚ ɷɤɪɚɧ ɫɜɟɞɟɧɢɹɨɫɪɟɞɧɟɦɛɚɥɥɟɤɚɠɞɨɝɨɫɬɭɞɟɧɬɚ ɎɂɈ– ɫɪɟɞɧɢɣɛɚɥɥ  ȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODE_17 ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚ7 ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` const Q ^ɤɨɥɢɱɟɫɬɜɨɫɬɭɞɟɧɬɨɜɜɝɪɭɩɩɟ` ^Ɉɩɢɫɚɧɢɟ ɡɚɩɢɫɢ ɤɨɬɨɪɚɹ ɛɭɞɟɬ ɫɨɞɟɪɠɚɬɶ ɎɂɈ ɫɬɭɞɟɧɬɚ ɢ ɪɟɡɭɥɶɬɚɬɵ ɟɝɨ ɭɫɩɟɜɚɟɦɨɫɬɢɩɨɷɤɡɚɦɟɧɚɦ` type VWXGHQW record VXUQDPHstring>@{ɮɚɦɢɥɢɹ} VBQDPHstring>@{ɢɦɹ} SDWURQ\PLFstring>@{ɨɬɱɟɫɬɜɨ} PDUN^ɨɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦ` PDUN PDUN PDUN end var ]file of VWXGHQW{ɫɨɡɞɚɧɢɟɮɚɣɥɨɜɨɣɩɟɪɟɦɟɧɧɨɣz} var [array>Q@of student{ɨɩɪɟɞɟɥɹɟɦɦɚɫɫɢɜɫɨɫɬɨɹɳɢɣɢɡQɷɤɡɟɦɩɥɹɪɨɜɡɚɩɢɫɢ student} LM integer{ɫɱɟɬɱɢɤɢɰɢɤɥɨɜ} a integer^ɜɫɩɨɦɨɝɚɬɟɥɶɧɚɹɛɭɮɟɪɧɚɹɩɟɪɟɦɟɧɧɚɹɧɟɨɛɯɨɞɢɦɚɹɞɥɹɜɪɟɦɟɧɧɨɝɨɯɪɚ ɧɟɧɢɹɞɚɧɧɵɯ` E student^ɜɫɩɨɦɨɝɚɬɟɥɶɧɚɹɛɭɮɟɪɧɚɹɩɟɪɟɦɟɧɧɚɹɧɟɨɛɯɨɞɢɦɚɹɞɥɹɜɪɟɦɟɧɧɨɝɨɯɪɚ ɧɟɧɢɹɞɚɧɧɵɯ` s array>Q@ of integer ^ɦɚɫɫɢɜ ɞɥɹ ɯɪɚɧɟɧɢɹ ɫɭɦɦɚɪɧɨɝɨ ɛɚɥɥɚ ɤɚɠɞɨɝɨ ɫɬɭɞɟɧɬɚ ɩɨ-ɦɷɤɡɚɦɟɧɚɦ` begin ^ɍɫɬɚɧɨɜɥɟɧɢɟɫɜɹɡɢɮɚɣɥɨɜɨɣɩɟɪɟɦɟɧɧɨɣɫɮɢɡɢɱɟɫɤɢɦɮɚɣɥɨɦ` assign(] SU.GDW  rewrite(] {ɨɬɤɪɵɬɢɟɮɚɣɥɚɞɥɹɡɚɩɢɫɢ} writeln ȼɜɟɞɢɬɟɢɧɮɨɪɦɚɰɢɸɨ Q ɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ  174
^Ɏɨɪɦɢɪɨɜɚɧɢɟɡɚɩɢɫɟɣɮɚɣɥɚɫɢɧɮɨɪɦɚɰɢɟɣɨɫɬɭɞɟɧɬɚɯɝɪɭɩɩɵ` for L to Qdo begin with E do begin writeln('ɫɜɟɞɟɧɢɹ ɨ L -ɦ ɫɬɭɞɟɧɬɟ  writeln ɮɚɦɢɥɢɹ  readln VXUQDPH  writeln ɢɦɹ  readln VBQDPH  writeln ɨɬɱɟɫɬɜɨ  readln SDWURQ\PLF  writeln Ɉɰɟɧɤɢɩɨɷɤɡɚɦɟɧɚɦɩɨɫɥɟɞɧɟɣɫɟɫɫɢɢ ɨɬɞɨɛɚɥ ɥɨɜ   readln PDUN  readln PDUN  readln PDUN  readln PDUN  end write(]E {ɜɧɟɫɟɧɢɟɢɧɮɨɪɦɚɰɢɢɜɮɚɣɥ} end close(] {ɡɚɤɪɵɬɢɟɮɚɣɥɚ} reset(] {ɨɬɤɪɵɬɢɟɮɚɣɥɚɞɥɹɱɬɟɧɢɹ} for L to Qdo begin read(] x>L@  {ɫɱɢɬɵɜɚɧɢɟ ɫɨɨɬɜɟɬɫɬɜɭɸɳɟɣ ɡɚɩɢɫɢ ɢɡ ɮɚɣɥɚ ɜ ɨɞɧɨɦɟɪ ɧɵɣɦɚɫɫɢɜ[ɫɨɫɬɨɹɳɢɣɢɡɡɚɩɢɫɟɣ} s>L@  x>L@PDUNx>L@PDUNx>L@PDUNx>L@PDUN ^ɨɩɪɟɞɟɥɹɟɦ ɭɫɩɟɜɚɟ ɦɨɫɬɶɤɚɠɞɨɝɨɫɬɭɞɟɧɬɚɤɚɤɫɭɦɦɭɛɚɥɥɨɜɩɨ-ɦɷɤɡɚɦɟɧɚɦ` end ^ɋɨɪɬɢɪɭɟɦɦɚɫɫɢɜɵ[ɢsɩɨɭɫɥɨɜɢɸɭɛɵɜɚɧɢɹɫɭɦɦɚɪɧɨɣɨɰɟɧɤɢɩɨɜɫɟɦɷɤɡɚ ɦɟɧɚɦ` for L to Q-1 do for M Lto Qdo if V>L@V>M@then begin D V>L@ V>L@ V>M@ V>M@ D E [>L@ [>L@ [>M@ [>M@ E end ^ȼɵɜɨɞɧɚɷɤɪɚɧɫɩɢɫɤɚɫɬɭɞɟɧɬɨɜɜɩɨɪɹɞɤɟɭɛɵɜɚɧɢɹɢɯɭɫɩɟɜɚɟɦɨɫɬɢ` writeln ɋɩɢɫɨɤɫɬɭɞɟɧɬɨɜɜɩɨɪɹɞɤɟɭɛɵɜɚɧɢɹɢɯɭɫɩɟɜɚɟɦɨɫɬɢ  for L to Qdo writeln [>L@VXUQDPH  [>L@VBQDPH  V>L@  175
close ]  {ɡɚɤɪɵɬɢɟɮɚɣɥɚ} readln end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal ȼɵɜɨɞɵɉɨɫɤɨɥɶɤɭɪɟɡɭɥɶɬɚɬɵɜɵɩɨɥɧɟɧɢɹɪɚɡɪɚɛɨɬɚɧɧɨɣɩɪɨɝɪɚɦɦɵɫɨɜɩɚɥɢ ɫɪɟɡɭɥɶɬɚɬɚɦɢɪɚɫɱɟɬɨɜɜɪɭɱɧɭɸɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɩɪɨɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚ ɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. Ⱦɚɣɬɟɨɩɪɟɞɟɥɟɧɢɟɩɨɧɹɬɢɸ©ɮɚɣɥª. 2. ɇɚɡɨɜɢɬɟɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɞɟɣɫɬɜɢɣɞɥɹɫɨɡɞɚɧɢɹɧɨɜɨɝɨɮɚɣɥɚɢɜɧɟ ɫɟɧɢɹɜɧɟɝɨɢɧɮɨɪɦɚɰɢɢ 3. ɇɚɡɨɜɢɬɟ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ ɞɟɣɫɬɜɢɣ ɞɥɹ ɫɱɢɬɵɜɚɧɢɹ ɢɧɮɨɪɦɚɰɢɢ ɢɡ ɪɚɧɟɟɫɨɡɞɚɧɧɨɝɨɮɚɣɥɚ 4. ȼɤɚɤɨɦɪɚɡɞɟɥɟɩɪɨɝɪɚɦɦɵɦɨɠɧɨɨɩɢɫɚɬɶɮɚɣɥ" 5. Ʉɚɤɢɟɞɚɧɧɵɟɦɨɝɭɬɯɪɚɧɢɬɶɫɹɜɮɚɣɥɟ" 176
6. Ɂɚɱɟɦɭɫɬɚɧɚɜɥɢɜɚɬɶɫɨɨɬɜɟɬɫɬɜɢɟɦɟɠɞɭɥɨɝɢɱɟɫɤɢɦɢɮɢɡɢɱɟɫɤɢɦɢɦɟ ɧɚɦɢɮɚɣɥɚ" 7. ɇɚɩɢɲɢɬɟ ɫɢɧɬɚɤɫɢɫ ɨɩɟɪɚɬɨɪɨɜ ɞɥɹ ɪɚɛɨɬɵ ɫ ɮɚɣɥɚɦɢ assign rewrite writecloseresetread. 8. ɑɬɨȼɵɡɧɚɟɬɟɨɮɭɧɤɰɢɢeof" 177
Ɍɟɦɚ  ȽɊȺɎɂɄȺ ɋɪɟɞɫɬɜɚ ɹɡɵɤɚ ɉɚɫɤɚɥɶ ɩɨɡɜɨɥɹɸɬ ɫɪɨɢɬɶ ɢɡɨɛɪɚɠɟɧɢɹ ɧɚ ɷɤɪɚɧɟ ɞɢɫ ɩɥɟɹ Ⱦɥɹ ɷɬɨɝɨ ɢɫɩɨɥɶɡɭɟɬɫɹ ɫɩɟɰɢɚɥɶɧɚɹ ɛɢɛɥɢɨɬɟɤɚ ɩɨɞɩɪɨɝɪɚɦɦ ɧɚɡɵɜɚɟ ɦɚɹ*UDSKȼɧɟɟɜɯɨɞɹɬɝɪɚɮɢɱɟɫɤɢɟɩɪɨɰɟɞɭɪɵɢɮɭɧɤɰɢɢɞɥɹɜɵɞɚɱɢɪɚɡɥɢɱ ɧɵɯɩɨɮɨɪɦɟɮɢɝɭɪɢɥɢɧɢɣɚɬɚɤɠɟɫɪɟɞɫɬɜɚɨɪɝɚɧɢɡɚɰɢɢɝɪɚɮɢɱɟɫɤɨɝɨɪɟ ɠɢɦɚ ɗɬɢ ɫɪɟɞɫɬɜɚ ɩɪɟɞɧɚɡɧɚɱɟɧɵ ɞɥɹ ɚɧɚɥɢɡɚ ɜɨɡɦɨɠɧɨɫɬɟɣ ɢɫɩɨɥɶɡɭɟɦɨɝɨ ɞɢɫɩɥɟɹ ɪɚɡɛɢɟɧɢɟ ɩɨɥɹ ɷɤɪɚɧɚ ɧɚ ɪɚɡɥɢɱɧɨɟ ɱɢɫɥɨ ɦɟɥɤɢɯ ɤɜɚɞɪɚɬɢɤɨɜ ɤɚɠ ɞɵɣɢɡɤɨɬɨɪɵɯ ɫɱɢɬɚɟɬɫɹɨɬɞɟɥɶɧɨɣɬɨɱɤɨɣɢɡɨɛɪɚɠɟɧɢɹɢɧɚɡɵɜɚɟɬɫɹɩɢɤɫɟ ɥɨɦ Ⱦɥɹ ɞɢɫɩɥɟɹ ɬɢɩɚ 9*$ ɱɢɫɥɨ ɬɨɱɟɤ ɦɨɠɟɬ ɛɵɬɶ  ×  ɚ ɤɨɥɢɱɟɫɬɜɨ ɢɫɩɨɥɶɡɭɟɦɵɯɰɜɟɬɨɜ – Ɉɞɧɚɤɨɛɨɥɟɟɫɥɨɠɧɵɟɧɟɪɚɫɫɦɚɬɪɢɜɚɟɦɵɟɡɞɟɫɶ ɫɪɟɞɫɬɜɚɉɚɫɤɚɥɹɩɨɡɜɨɥɹɸɬɭɜɟɥɢɱɢɬɶɤɨɥɢɱɟɫɬɜɨɰɜɟɬɨɜɞɨɐɜɟɬɤɚɤɢ ɤɨɨɪɞɢɧɚɬɵɷɤɪɚɧɧɨɣɬɨɱɤɢɡɚɞɚɟɬɫɹɰɟɥɵɦɱɢɫɥɨɦɇɚɱɚɥɨɤɨɨɪɞɢɧɚɬɷɤɪɚɧɚ ɧɚɯɨɞɢɬɫɹ ɜ ɥɟɜɨɦ ɜɟɪɯɧɟɦ ɭɝɥɭ ɬɨɱɤɚ   ɨɫɶ Ɉɯ ɧɚɩɪɚɜɥɟɧɚ ɜɩɪɚɜɨ 2\– ɜɧɢɡɗɬɭɨɫɨɛɟɧɧɨɫɬɶɧɚɩɪɚɜɥɟɧɧɨɫɬɢɨɫɢ2\ɧɟɨɛɯɨɞɢɦɨɭɱɢɬɵɜɚɬɶɩɪɢ ɩɨɫɬɪɨɟɧɢɢ ɢɡɨɛɪɚɠɟɧɢɣ ɨɫɨɛɟɧɧɨ ɝɪɚɮɢɤɨɜ ɮɭɧɤɰɢɣ ɢ ɞɢɚɝɪɚɦɦ Ⱦɥɹ ɩɨ ɫɬɪɨɟɧɢɹ ɨɤɪɭɠɧɨɫɬɢɧɟɨɛɯɨɞɢɦɨɭɤɚɡɵɜɚɬɶɤɨɨɪɞɢɧɚɬɵɰɟɧɬɪɚɢɪɚɞɢɭɫɞɥɹ ɩɪɹɦɨɭɝɨɥɶɧɢɤɚ – ɤɨɨɪɞɢɧɚɬɵ ɩɪɨɬɢɜɨɩɨɥɨɠɧɵɯ ɜɟɪɲɢɧ ɧɚɩɪɢɦɟɪ Ⱥ ɢ ' . Ʉɚɠɞɨɟ ɢɡɨɛɪɚɠɟɧɢɟ ɦɨɠɧɨ ɬɚɤɠɟ ɩɨɫɬɪɨɢɬɶ ɩɨ ɬɨɱɤɚɦ ɭɤɚɡɚɜ ɞɥɹ ɤɚɠɞɨɣ ɬɨɱɤɢɟɟɤɨɨɪɞɢɧɚɬɵɢɰɜɟɬ ɉɪɢɩɨɫɬɪɨɟɧɢɢɢɡɨɛɪɚɠɟɧɢɣɢɫɩɨɥɶɡɭɸɬɫɹɬɚɤɧɚɡɵɜɚɟɦɵɟɝɪɚɮɢɱɟɫɤɢɟ ɩɪɢɦɢɬɢɜɵ– ɛɚɡɨɜɵɟɤɨɧɫɬɪɭɤɰɢɢɢɢɯɦɨɞɢɮɢɤɚɰɢɢɄɝɪɚɮɢɱɟɫɤɢɦɩɪɢɦɢ ɬɢɜɚɦɨɬɧɨɫɹɬɫɹɬɨɱɤɚɨɬɪɟɡɨɤɞɭɝɚ ɌɨɱɤɚȾɥɹɜɵɞɚɱɢɬɨɱɤɢɧɚɷɤɪɚɧɢɫɩɨɥɶɡɭɟɬɫɹɜɵɡɨɜɩɪɨɰɟɞɭɪɵ 3XW3L[HO [\ɧɨɦɟɪBɰɜɟɬɚ   ɝɞɟ[ y – ɤɨɨɪɞɢɧɚɬɵɬɨɱɤɢ ɋɩɨɦɨɳɶɸɷɬɨɝɨɨɩɟɪɚɬɨɪɚɦɨɠɧɨɩɨɫɬɪɨɢɬɶɝɪɚɮɢɤɮɭɧɤɰɢɢ ɉɨɫɬɪɨɟɧɢɟ ɝɪɚɮɢɤɚ ɮɭɧɤɰɢɢ Ⱦɥɹ ɬɨɝɨ ɱɬɨɛɵ ɩɨɫɬɪɨɢɬɶ ɝɪɚɮɢɤ ɧɟɨɛɯɨɞɢɦɨɫɧɚɱɚɥɚɡɚɞɚɬɶɨɬɪɟɡɨɤɨɛɥɚɫɬɢɨɩɪɟɞɟɥɟɧɢɹɧɚɤɨɬɨɪɨɦɮɭɧɤɰɢɹ ɫɭɳɟɫɬɜɭɟɬɢɨɬɨɛɪɚɡɢɬɶɷɬɨɬɨɬɪɟɡɨɤɧɚɨɫɶ2[ɷɤɪɚɧɚɞɢɫɩɥɟɹɌɨɱɤɟɯ ɨɬɪɟɡ ɤɚ > a b @ ɢɡ ɨɛɥɚɫɬɢ ɨɩɪɟɞɟɥɟɧɢɹ ɮɭɧɤɰɢɢ ɞɨɥɠɧɚ ɫɨɨɬɜɟɬɫɬɜɨɜɚɬɶ ɬɨɱɤɚ ɯ1 ɷɤɪɚɧɚ ɞɢɫɩɥɟɹ ɚ ɬɨɱɤɟ ɭ  I  [ – ɡɧɚɱɟɧɢɸ ɮɭɧɤɰɢɢ – ɬɨɱɤɚ ɭ1 ɷɤɪɚɧɚ ɪɢɫ10 Ɍɚɤɢɦɨɛɪɚɡɨɦɩɪɨɢɫɯɨɞɢɬɦɚɫɲɬɚɛɢɪɨɜɚɧɢɟɝɪɚɮɢɤɚɜɨɡɦɨɠɧɨɫɬɶ ɨɬɨɛɪɚɠɚɬɶ ɧɚ ɷɤɪɚɧ ɥɸɛɨɣ ɨɬɪɟɡɨɤ ɨɛɥɚɫɬɢ ɨɩɪɟɞɟɥɟɧɢɹ Ɂɞɟɫɶ ɛɟɡɭɫɥɨɜɧɨ ɧɟɨɛɯɨɞɢɦɨ ɭɱɢɬɵɜɚɬɶ ɪɚɡɪɟɲɚɸɳɭɸ ɜɨɡɦɨɠɧɨɫɬɶ ɷɤɪɚɧɚ ɱɬɨɛɵ ɦɚɫɲɬɚɛ ɩɨɡɜɨɥɢɥɭɜɢɞɟɬɶɤɚɱɟɫɬɜɟɧɧɨɟɩɨɜɟɞɟɧɢɟɮɭɧɤɰɢɢɌɨɱɤɢ ɧɚɷɤɪɚɧɟɜɨɬɥɢɱɢɟ ɨɬ ɬɨɱɟɤ ɝɟɨɦɟɬɪɢɱɟɫɤɨɣ ɩɪɹɦɨɣ ɢɦɟɸɬ ɞɢɫɤɪɟɬɧɵɟ ɡɧɚɱɟɧɢɹ Ɍɨɱɤɢ ɨɫɢ Ɉɯ ɧɭɦɟɪɭɸɬɫɹɨɬɞɨɬɟ ɯ  178
Ɋɢɫ10. ɍɫɬɚɧɨɜɥɟɧɢɟɫɨɨɬɜɟɬɫɬɜɢɹɦɟɠɞɭɬɨɱɤɚɦɢ ɨɬɪɟɡɤɚ>a b @ɢɨɫɶɸɈɯ ɷɤɪɚɧɚɞɢɫɩɥɟɹ ɂɡɩɪɨɩɨɪɰɢɢ [- D  E- D   [-   -  ɩɨɥɭɱɢɦɪɚɫɱɟɬɧɭɸ ɮɨɪɦɭɥɭɞɥɹɜɵɱɢɫɥɟɧɢɹɚɪɝɭɦɟɧɬɚɮɭɧɤɰɢɢɫɨɨɬɜɟɬɫɬɜɭɸɳɟɝɨɡɚɞɚɧɧɨɣɬɨɱ ɤɟɷɤɪɚɧɚ x = a + x1 * ( b  a ) / xmax ɝɞɟ[PD[ ɞɥɹɞɢɫɩɥɟɟɜɬɢɩɚ9*$Ⱦɥɹɩɨɥɭɱɚɟɦɨɝɨɡɧɚɱɟɧɢɹɚɪɝɭɦɟɧ ɬɚɜɵɱɢɫɥɹɟɬɫɹɡɧɚɱɟɧɢɟɮɭɧɤɰɢɢ y = f ( x ). Ɍɟɩɟɪɶɧɟɨɛɯɨɞɢɦɨɭɦɧɨɠɢɬɶɩɨɥɭɱɟɧɧɨɟɡɧɚɱɟɧɢɟɮɭɧɤɰɢɢɧɚɤɨɷɮɮɢ ɰɢɟɧɬ ɦɚɫɲɬɚɛɢɪɨɜɚɧɢɹ ɩɨɤɚɡɵɜɚɸɳɢɣ ɫɤɨɥɶɤɨ ɩɢɤɫɟɥɨɜ ɮɢɡɢɱɟɫɤɢɯ ɬɨɱɟɤ ɷɤɪɚɧɚ ɫɨɞɟɪɠɢɬɫɹɜɜɵɛɪɚɧɧɨɣɟɞɢɧɢɰɟɦɚɫɲɬɚɛɚ k = xmax / ( b  a ). ɉɨɥɭɱɚɟɦ ɡɧɚɱɟɧɢɟ ɭ – ɤɨɨɪɞɢɧɚɬɭ ɞɥɹ ɜɵɞɚɱɢ ɪɚɫɫɱɢɬɚɧɧɨɣ ɬɨɱɤɢ ɝɪɚ ɮɢɤɚɮɭɧɤɰɢɢɧɚɷɤɪɚɧ y1 = y * xmax / ( b  a ). ɌɟɩɟɪɶɫɥɟɞɭɟɬɭɱɟɫɬɶɨɫɨɛɟɧɧɨɫɬɶɪɚɫɩɨɥɨɠɟɧɢɹɨɫɢɈɭ ɧɚɷɤɪɚɧɟɢ©ɩɟ ɪɟɜɟɪɧɭɬɶª ɝɪɚɮɢɤɪɚɫɫɱɢɬɚɧɧɵɣɧɚɬɪɚɞɢɰɢɨɧɧɨɟɩɨɥɨɠɟɧɢɟɨɫɟɣɤɨɨɪɞɢɧɚɬɚ ɬɚɤɠɟɞɨɛɚɜɢɬɶɫɦɟɳɟɧɢɟɱɬɨɛɵɝɪɚɮɢɤɪɚɫɩɨɥɚɝɚɥɫɹɩɨɰɟɧɬɪɭɷɤɪɚɧɚ \ \PD[ y1. & ɩɨɥɭɱɟɧɧɵɦɢ ɤɨɨɪɞɢɧɚɬɚɦɢ ɯ ɢ ɭ ɬɨɱɤɚ ɜɵɜɨɞɢɬɫɹ ɧɚ ɷɤɪɚɧ ɉɨ ɫɤɨɥɶɤɭɪɟɚɥɶɧɵɟɤɨɨɪɞɢɧɚɬɵɝɪɚɮɢɤɚɮɭɧɤɰɢɢɫɤɨɬɨɪɵɦɢ ɨɧɚɜɵɱɢɫɥɹɟɬɫɹ 179
ɜɟɳɟɫɬɜɟɧɧɵɟɱɢɫɥɚɚɤɨɨɪɞɢɧɚɬɵɬɨɱɟɤɷɤɪɚɧɚ– ɰɟɥɵɟɬɨɜɮɨɪɦɭɥɟɜɵɱɢɫ ɥɟɧɢɹ \ ɩɪɢ ɢɫɩɨɥɶɡɨɜɚɧɢɢ ɟɟ ɜ ɩɪɨɝɪɚɦɦɟ ɧɟɨɛɯɨɞɢɦɨ ɨɤɪɭɝɥɢɬɶ ɩɨɥɭɱɚɟ ɦɵɣ ɪɟɡɭɥɶɬɚɬ ɞɨ ɛɥɢɠɚɣɲɟɝɨ ɰɟɥɨɝɨ ɱɢɫɥɚ Ɉɤɪɭɝɥɟɧɢɟ ɩɪɨɢɡɜɨɞɢɬ ɮɭɧɤɰɢɹ truncɚɪɝɭɦɟɧɬɤɨɬɨɪɨɣ– ɜɵɪɚɠɟɧɢɟɜɟɳɟɫɬɜɟɧɧɨɝɨɬɢɩɚ y1 := trunc ( y * xmax / ( b  a )); ɉɪɨɝɪɚɦɦɚ ɩɨɫɬɪɨɟɧɢɹ ɝɪɚɮɢɱɟɫɤɢɯ ɢɡɨɛɪɚɠɟɧɢɣ ɞɨɥɠɧɚ ɧɚɱɢɧɚɬɶɫɹ ɫ ɨɩɟɪɚɬɨɪɚɩɨɞɤɥɸɱɟɧɢɹɛɢɛɥɢɨɬɟɤɢɝɪɚɮɢɱɟɫɤɢɯɩɪɨɰɟɞɭɪ ɢɫɩɟɰɢɚɥɶɧɨɣɛɢɛ ɥɢɨɬɟɤɢɩɨɡɜɨɥɹɸɳɟɣɢɫɩɨɥɶɡɨɜɚɬɶɮɭɧɤɰɢɢɨɩɟɪɚɰɢɨɧɧɨɣɫɢɫɬɟɦɵ ɛɢɛɥɢɨ ɬɟɤɢ&UW ɗɬɨɬɨɩɟɪɚɬɨɪɪɚɫɩɨɥɚɝɚɟɬɫɹɫɪɚɡɭɡɚɡɚɝɨɥɨɜɤɨɦɩɪɨɝɪɚɦɦɵɢɢɦɟɟɬ ɜɢɞ uses Graph, Crt; ɋɚɦɚɩɪɨɝɪɚɦɦɚɫɨɫɬɨɢɬɢɡɨɩɢɫɚɧɢɣɩɪɨɰɟɞɭɪɩɨɫɬɪɨɟɧɢɹɢɡɨɛɪɚɠɟɧɢɣ ɨɩɢɫɚɧɢɹɮɭɧɤɰɢɢɞɥɹɤɨɬɨɪɨɣɫɬɪɨɢɬɫɹɝɪɚɮɢɤɢɨɩɢɫɚɧɢɹɫɩɟɰɢɚɥɶɧɨɣɩɪɨ ɰɟɞɭɪɵ ɭɫɬɚɧɨɜɤɢ ɝɪɚɮɢɱɟɫɤɨɝɨ ɪɟɠɢɦɚ Ƚɥɚɜɧɚɹ ɩɪɨɝɪɚɦɦɚ ɩɪɢ ɷɬɨɦ ɫɨɞɟɪ ɠɢɬ ɨɩɟɪɚɬɨɪɵ ɜɵɡɨɜɚ ɷɬɢɯ ɩɪɨɰɟɞɭɪ ɢ ɨɩɟɪɚɬɨɪɚ ɡɚɞɟɪɠɤɢ ɢɡɨɛɪɚɠɟɧɢɹ ɧɚ ɷɤɪɚɧɟ ɩɨɫɥɟɩɨɫɬɪɨɟɧɢɹɩɨɫɥɟɞɧɟɣɬɨɱɤɢɢɡɨɛɪɚɠɟɧɢɟɢɫɱɟɡɚɟɬ  repeat until keypressed^ɜɵɩɨɥɧɹɬɶɩɭɫɬɨɣɰɢɤɥɞɨɧɚɠɚɬɢɹɥɸɛɨɣɤɥɚɜɢɲɢ` ɉɪɨɝɪɚɦɦɚɩɨɫɬɪɨɟɧɢɹɝɪɚɮɢɤɚɮɭɧɤɰɢɢ y = sin ( x) ɧɚɨɬɪɟɡɤɟ>-SS@. program E38 uses *UDSK&UW procedure ,QLW^ɭɫɬɚɧɨɜɤɚɝɪɚɮɢɱɟɫɤɨɝɨɪɟɠɢɦɚ` var JUJP integer begin JU ^ɚɜɬɨɦɚɬɢɱɟɫɤɨɟɪɚɫɩɨɡɧɚɜɚɧɢɟɬɢɩɚɞɢɫɩɥɟɹ` ,QLW*UDSK JUJPµµ ^ɮɚɣɥHJDYJDEJLɧɚɯɨɞɢɬɫɹɜɨɞɧɨɦɤɚɬɚɥɨɝɟɫ WXUERH[H` if *UDSK5HVXOW!JU2Nthen +DOW  ^ɨɛɪɚɛɨɬɤɚɪɟɡɭɥɶɬɚɬɚɭɫɬɚɧɨɜɤɢ ` end; function I [real real^ɜɵɱɢɫɥɟɧɢɟ ɮɭɧɤɰɢɢ I [ ` begin I VLQ [ end; 180
procedure JUDILF var [PD[\PD[[\LQWHJHU[\DEUHDO begin [PD[ \PD[ D - E  for [ to xmax do begin [ D[  E- D [PD[ \ I [ ^ɜɵɡɨɜɩɨɞɩɪɨɝɪɚɦɦɵ-ɮɭɧɤɰɢɢ` \ WUXQF \ [PD[ E- D  \ \PD[GLY- \ 3XW3L[HO [\ ^ɜɵɞɚɱɚ ɬɨɱɤɢ ɡɟɥɟɧɵɦ ɰɜɟɬɨɦ` end end; begin ^ɝɥɚɜɧɚɹɩɪɨɝɪɚɦɦɚ` ,QLW^ɜɵɡɨɜɩɪɨɰɟɞɭɪɵɭɫɬɚɧɨɜɤɢɝɪɚɮɢɱɟɫɤɨɝɨɪɟɠɢɦɚ` *UDILF^ɜɵɡɨɜɩɪɨɰɟɞɭɪɵɩɨɫɬɪɨɟɧɢɹɝɪɚɮɢɤɚɮɭɧɤɰɢɢ` repeat until NH\SUHVVHG HQG ɉɪɢ ɩɨɫɬɪɨɟɧɢɢ ɫɥɨɠɧɵɯ ɪɢɫɭɧɤɨɜ ɜɵɞɚɜɚɟɦɵɯ ɩɨ ɬɨɱɤɚɦ ɦɨɠɧɨ ɢɫ ɩɨɥɶɡɨɜɚɬɶɩɪɢɟɦɦɨɡɚɢɤɢɧɚɪɢɫɨɜɚɬɶɪɢɫɭɧɨɤɩɨɤɥɟɬɨɱɤɚɦɢɡɚɩɨɥɧɢɬɶɬɚɛ ɥɢɰɭɰɟɥɵɯɱɢɫɟɥɤɚɠɞɨɟɱɢɫɥɨɫɨɨɬɜɟɬɫɬɜɭɟɬɧɨɦɟɪɭɰɜɟɬɚɫɨɨɬɜɟɬɫɬɜɭɸɳɟɣ ɤɥɟɬɨɱɤɢ ɚ ɤɨɨɪɞɢɧɚɬɵ ɤɥɟɬɨɱɤɢ ɫɨɨɬɜɟɬɫɬɜɭɸɬ ɢɧɞɟɤɫɚɦ ɷɥɟɦɟɧɬɨɜ ɬɚɛɥɢɰɵ ɪɢɫ11). Ɋɢɫ11Ɋɢɫɭɧɨɤɩɨɤɥɟɬɨɱɤɚɦɢɫɨɨɬɜɟɬɫɬɜɭɸɳɚɹɬɚɛɥɢɰɚ Ɂɚɞɚɧɢɟ ɰɜɟɬɚ ɇɟɤɨɬɨɪɵɟ ɝɪɚɮɢɱɟɫɤɢɟ ɨɩɟɪɚɬɨɪɵ ɬɚɤɢɟ ɤɚɤ ɩɨɫɬɪɨɟ ɧɢɟ ɬɨɱɤɢ ɜɤɥɸɱɚɸɬ ɩɚɪɚɦɟɬɪ ɰɜɟɬɚ ɧɨ ɞɥɹ ɦɧɨɝɢɯ ɞɪɭɝɢɯ ɢɫɩɨɥɶɡɭɟɬɫɹ ɬɟ ɤɭɳɢɣɰɜɟɬɨɩɪɟɞɟɥɟɧɧɵɣɩɨɫɥɟɞɧɢɦɨɩɟɪɚɬɨɪɨɦɡɚɞɚɧɢɹɰɜɟɬɚ 6HW&RORU ɰɜɟɬ  ɇɢɠɟɩɪɢɜɟɞɟɧɵɤɨɞɵɰɜɟɬɨɜɤɚɠɞɵɣɰɜɟɬɦɨɠɟɬɛɵɬɶɡɚɞɚɧɤɚɤɧɨɦɟ ɪɨɦɬɚɤɢɫɥɨɜɨɦ ɧɚɚɧɝɥ  181
ɱɟɪɧɵɣ– ɫɢɧɢɣ– ɡɟɥɟɧɵɣ– ɛɢɪɸɡɨɜɵɣ– ɤɪɚɫɧɵɣ– 4; ɦɚɥɢɧɨɜɵɣ– ɤɨɪɢɱɧɟɜɵɣ– ɫɟɪɵɣɫ– ɫɟɪɵɣɬ– 8; ɝɨɥɭɛɨɣ– 9; ɡɟɥɟɧɵɣɫ– 10; ɛɢɪɸɡɨɜɵɣɫ– ɤɪɚɫɧɵɣɫ–  ɦɚɥɢɧɨɜɵɣɫ–  ɠɟɥɬɵɣ– ɛɟɥɵɣ–  (ɫ– ɫɨɤɪɚɳɟɧɧɨ©ɫɜɟɬɥɵɣªɬ– ©ɬɟɦɧɵɣª) Ɉɬɪɟɡɨɤ Ⱦɥɹ ɩɨɫɬɪɨɟɧɢɹ ɨɬɪɟɡɤɚ ɧɟɨɛɯɨɞɢɦɨ ɭɤɚɡɚɬɶ ɤɨɨɪɞɢɧɚɬɵ ɟɝɨ ɤɨɧɰɨɜɈɬɪɟɡɨɤɫɬɪɨɢɬɫɹɬɟɤɭɳɢɦɰɜɟɬɨɦɈɩɟɪɚɬɨɪɩɨɫɬɪɨɟɧɢɹɨɬɪɟɡɤɚ /LQH [\[\  ɉɪɢɩɨɫɬɪɨɟɧɢɢɢɡɨɛɪɚɠɟɧɢɹɤɨɦɩɶɸɬɟɪɤɚɤɛɵɪɢɫɭɟɬɥɭɱɨɦɅɭɱɨɫɬɚ ɧɚɜɥɢɜɚɟɬɫɹɜɩɨɫɥɟɞɧɟɣɬɨɱɤɟɢɡɨɛɪɚɠɟɧɢɹɤɨɨɪɞɢɧɚɬɵɤɨɬɨɪɨɣɡɚɩɨɦɢɧɚɸɬ ɫɹɆɨɠɧɨɩɨɫɬɪɨɢɬɶɨɬɪɟɡɨɤɭɤɚɡɚɜɥɢɛɨɫɦɟɳɟɧɢɟɨɬɷɬɨɣɬɨɱɤɢɩɨɨɫɹɦɯ ɢ ɭɥɢɛɨɤɨɨɪɞɢɧɚɬɵɤɨɧɰɚɨɬɪɟɡɤɚ ɧɚɱɚɥɨ ɬɚɦɝɞɟɨɫɬɚɧɨɜɢɥɫɹɥɭɱ ɋɦɟɳɟɧɢɟ ɭɤɚɡɵɜɚɟɬɫɹɜɜɢɞɟ ɰɟɥɨɝɨɱɢɫɥɚɩɨɥɨɠɢɬɟɥɶɧɨɟɨɡɧɚɱɚɟɬɭɜɟɥɢɱɟɧɢɟɩɨɫɥɟɞ ɧɟɣ ɤɨɨɪɞɢɧɚɬɵ ɧɚ ɜɟɥɢɱɢɧɭ ɫɦɟɳɟɧɢɹ ɨɬɪɢɰɚɬɟɥɶɧɨɟ – ɫɨɨɬɜɟɬɫɬɜɟɧɧɨɟ ɭɦɟɧɶɲɟɧɢɟɤɨɨɪɞɢɧɚɬɵɋɦɟɳɟɧɢɟɭɞɨɛɧɨɢɫɩɨɥɶɡɨɜɚɬɶɞɥɹɩɨɫɬɪɨɟɧɢɹɢɡɨɛ ɪɚɠɟɧɢɹ ɜ ɨɬɧɨɫɢɬɟɥɶɧɵɯ ɤɨɨɪɞɢɧɚɬɚɯ ɤɨɝɞɚ ɞɨɫɬɚɬɨɱɧɨ ɭɤɚɡɚɬɶ ɤɨɨɪɞɢɧɚɬɵ ɩɟɪɜɨɣ ɬɨɱɤɢ ɚ ɨɫɬɚɥɶɧɵɟ ɛɭɞɭɬ ɩɟɪɟɫɱɢɬɚɧɵ ɢ ɬɚɤɢɦ ɨɛɪɚɡɨɦ ɦɨɠɧɨ ɩɟɪɟ ɦɟɳɚɬɶɤɚɪɬɢɧɤɭɩɨɷɤɪɚɧɭ Ɉɩɟɪɚɬɨɪɩɨɫɬɪɨɟɧɢɹɨɬɪɟɡɤɚɫɭɤɚɡɚɧɢɟɦɫɦɟɳɟɧɢɹ /LQH5HO G[G\   Ɉɩɟɪɚɬɨɪɩɨɫɬɪɨɟɧɢɹɨɬɪɟɡɤɚɫɭɤɚɡɚɧɢɟɦɩɨɫɥɟɞɧɟɣɟɝɨɬɨɱɤɢ /LQH7R [\   ɗɬɨɬ ɨɩɟɪɚɬɨɪ ɭɞɨɛɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɞɥɹ ɩɨɫɬɪɨɟɧɢɹ ɝɪɚɮɢɤɚ ɮɭɧɤɰɢɢ ɤɨɬɨɪɚɹɥɢɛɨɪɟɡɤɨɜɨɡɪɚɫɬɚɟɬɥɢɛɨɪɟɡɤɨɭɛɵɜɚɟɬȼɷɬɨɦɫɥɭɱɚɟɢɡɨɛɪɚɠɟɧɢɟ ɩɨɫɬɪɨɟɧɧɨɟɩɨɬɨɱɤɚɦɬɟɪɩɢɬɪɚɡɪɵɜɬ ɤɞɥɹɞɜɭɯɫɨɫɟɞɧɢɯɚɪɝɭɦɟɧɬɨɜɞɜɚ ɡɧɚɱɟɧɢɹɮɭɧɤɰɢɢɧɚɯɨɞɹɬɫɹɞɚɥɟɤɨɞɪɭɝɨɬɞɪɭɝɚɉɟɪɜɭɸɬɨɱɤɭɝɪɚɮɢɤɚɧɚɞɨ ɜɵɞɚɬɶ ɨɩɟɪɚɬɨɪɨɦ PutPixel ɚ ɨɫɬɚɥɶɧɵɟ ɜɵɱɢɫɥɹɟɦɵɟ ɢ ɫɬɪɨɹɳɢɟɫɹ ɜ ɰɢɤɥɟ– ɨɩɟɪɚɬɨɪɨɦLineTo. Ʌɭɱ ɫɬɪɨɹɳɢɣ ɢɡɨɛɪɚɠɟɧɢɹ ɦɨɠɟɬ ɩɟɪɟɦɟɳɚɬɶɫɹ ɛɟɡ ɫɥɟɞɚ ɗɬɨ ɩɨɡɜɨ ɥɹɸɬɞɟɥɚɬɶɨɩɟɪɚɬɨɪɵɚɧɚɥɨɝɢɱɧɵɟɞɜɭɦɩɨɫɥɟɞɧɢɦ 0RYH5HO G[G\  0RYH7R [\   Ⱥɧɚɥɨɝɢɱɧɨ ɨɬɪɟɡɤɭ ɫɬɪɨɢɬɫɹ ɩɪɹɦɨɭɝɨɥɶɧɢɤ ɞɥɹ ɩɨɫɬɪɨɟɧɢɹ ɤɨɬɨɪɨɝɨ ɧɟɨɛɯɨɞɢɦɨɭɤɚɡɚɬɶɤɨɨɪɞɢɧɚɬɵɤɨɧɰɨɜɥɸɛɨɣɞɢɚɝɨɧɚɥɢɉɪɹɦɨɭɝɨɥɶɧɢɤɦɨ 182
ɠɟɬ ɛɵɬɶ ɩɨɫɬɪɨɟɧ ɜ ɜɢɞɟ ɤɨɧɬɭɪɚ ɢɥɢ ɜ ɜɢɞɟ ɡɚɤɪɚɲɟɧɧɨɣ ɮɢɝɭɪɵ Ⱦɥɹ ɤɨɧ ɬɭɪɧɨɝɨɢɡɨɛɪɚɠɟɧɢɹɩɪɹɦɨɭɝɨɥɶɧɢɤɚɢɫɩɨɥɶɡɭɟɬɫɹɨɩɟɪɚɬɨɪ 5HFWDQJOH [\[\  ɞɥɹɡɚɤɪɚɲɟɧɧɨɝɨ %DU [\[\   ɉɨɫɬɪɨɟɧɢɟ ɫɬɨɥɛɱɚɬɨɣ ɞɢɚɝɪɚɦɦɵ ɇɚ ɪɢɫ 2 ɩɪɟɞɫɬɚɜɥɟɧɚ ɫɬɨɥɛɱɚ ɬɚɹ ɥɢɧɟɣɧɚɹ ɞɢɚɝɪɚɦɦɚɩɚɞɟɧɢɹɭɫɩɟɜɚɟɦɨɫɬɢɧɟɤɨɬɨɪɨɝɨɭɱɚɳɟɝɨɫɹɩɨɱɟɬ ɜɟɪɬɹɦɭɱɟɛɧɨɝɨɝɨɞɚȼɩɟɪɜɨɣɱɟɬɜɟɪɬɢɭɫɩɟɜɚɟɦɨɫɬɶɫɨɫɬɚɜɢɥɚ %ɜɨɜɬɨ ɪɨɣ– 50 %ɜɬɪɟɬɶɟɣ– 25 ɉɨɫɬɪɨɢɦɬɚɤɭɸɞɢɚɝɪɚɦɦɭɫɩɨɦɨɳɶɸɩɪɨɝɪɚɦ ɦɵɪɚɫɩɨɥɨɠɢɜɫɚɦɵɣɜɵɫɨɤɢɣɫɬɨɥɛɟɰɜɰɟɧɬɪɚɥɶɧɨɣɱɚɫɬɢɷɤɪɚɧɚ ɟɝɨɞɥɢ ɧɚ–  ɩɢɤɫɟɥɨɜ ɢɪɚɫɫɱɢɬɚɜɨɫɬɚɥɶɧɵɟɩɪɨɩɨɪɰɢɨɧɚɥɶɧɨɢɯɡɧɚɱɟ ɧɢɹɦ ɨɬɧɨɫɢɬɟɥɶɧɨ ɷɬɨɝɨ ɪɚɡɦɟɪɚ ɉɨ ɲɢɪɢɧɟ ɜɫɹ ɞɢɚɝɪɚɦɦɚ ɡɚɧɢɦɚɟɬ ɬɚɤɠɟ ɱɚɫɬɶɬɟ ɩɟɪɜɨɧɚɱɚɥɶɧɨɟɡɧɚɱɟɧɢɟɤɨɨɪɞɢɧɚɬɵɯɪɚɜɧɨɩɢɤɫɟɥɨɜɲɢ ɪɢɧɚɫɬɨɥɛɰɨɜɩɨɢɪɚɫɫɬɨɹɧɢɟɦɟɠɞɭɧɢɦɢɬɚɤɠɟɩɢɤɫɟɥɨɜȾɥɹɪɚɫɱɟɬɚ ɜɵɫɨɬɵɜɬɨɪɨɝɨɫɬɨɥɛɰɚɫɨɫɬɚɜɢɦɩɪɨɩɨɪɰɢɸ ɯɈɬɫɸɞɚɯ  (ɫ ɨɤɪɭɝɥɟɧɢɟɦ ɞɨ ɰɟɥɨɝɨ  ȼɵɫɨɬɚ ɜɬɨɪɨɝɨ ɫɬɨɥɛɰɚ  ɩɢɤɫɟɥɚ Ɍ ɤ ɧɢɠɧɢɟ ɨɫɧɨɜɚɧɢɹɩɪɹɦɨɭɝɨɥɶɧɢɤɨɜɧɚɯɨɞɹɬɫɹɧɚɨɞɧɨɦɭɪɨɜɧɟɧɚɤɨɬɨɪɨɦɭ ɬɨ ɪɚɫɱɟɬ ɜɬɨɪɵɯ ɤɨɨɪɞɢɧɚɬ ɩɨ ɨɫɢ ɭ  ɩɪɨɢɡɜɨɞɢɬɫɹ ɜɵɱɢɬɚɧɢɟɦ ɢɡ  ɜɵɫɨɬɵ ɫɨɨɬɜɟɬɫɬɜɭɸɳɟɝɨɫɬɨɥɛɰɚ Ɋɢɫ ɋɬɨɥɛɱɚɬɚɹɞɢɚɝɪɚɦɦɚɭɫɩɟɜɚɟɦɨɫɬɢɭɱɚɳɟɝɨɫɹɩɨɱɟɬɜɟɪɬɹɦ Ɋɚɡɦɟɳɟɧɢɟɬɟɤɫɬɚɧɚɢɡɨɛɪɚɠɟɧɢɢɩɪɨɢɡɜɨɞɢɬɫɹɫɩɨɦɨɳɶɸɨɩɟɪɚɬɨɪɚ 2XW7H[W;< [\µɬɟɤɫɬµ   ɝɞɟɯɭ – ɤɨɨɪɞɢɧɚɬɵɧɚɱɢɧɚɹɫɤɨɬɨɪɵɯɛɭɞɟɬɜɵɞɚɧɬɟɤɫɬ ɉɪɨɝɪɚɦɦɚɩɨɫɬɪɨɟɧɢɹɫɬɨɥɛɱɚɬɨɣɞɢɚɝɪɚɦɦɵɢɦɟɟɬɬɚɤɭɸɠɟɫɬɪɭɤɬɭɪɭ ɤɚɤɢɩɪɨɝɪɚɦɦɚȿ. 183
program E39 uses *UDSK&UW procedure ,QLW^ɭɫɬɚɧɨɜɤɚɝɪɚɮɢɱɟɫɤɨɝɨɪɟɠɢɦɚ` var JUJP integer begin JU ^ɚɜɬɨɦɚɬɢɱɟɫɤɨɟɪɚɫɩɨɡɧɚɜɚɧɢɟɬɢɩɚɞɢɫɩɥɟɹ` ,QLW*UDSK JUJPµµ ^ɮɚɣɥHJDYJDEJLɧɚɯɨɞɢɬɫɹɜɨɞɧɨɦɤɚɬɚɥɨɝɟɫ WXUERH[H` if *UDSK5HVXOW!JU2Nthen +DOW  ^ɨɛɪɚɛɨɬɤɚɪɟɡɭɥɶɬɚɬɚɭɫɬɚɧɨɜɤɢ ` end; procedure 'LDJUDP var [\[\[\integer begin 6HW&RORU  %DU   6HW&RORU  %DU  -   6HW&RORU  %DU  -    2XW7H[W;< µɍɫɩɟɜɚɟɦɨɫɬɶɩɨɱɟɬɜɟɪɬɹɦ¶  end; begin ,QLW 'LDJUDP repeat until NH\SUHVVHG HQG ɉɨɫɬɪɨɟɧɢɟ ɞɭɝɢ Ⱦɥɹ ɩɨɫɬɪɨɟɧɢɹ ɞɭɝɢ ɧɟɨɛɯɨɞɢɦɨ ɭɤɚɡɚɬɶ ɰɟɧɬɪ ɫɨɨɬ ɜɟɬɫɬɜɭɸɳɟɣɨɤɪɭɠɧɨɫɬɢ ɯ ɢɭ ɧɚɱɚɥɶɧɵɣɭɝɨɥɤɨɧɟɱɧɵɣɭɝɨɥɞɭɝɢɢɪɚɞɢ ɭɫ ɍɝɥɵ ɨɬɫɱɢɬɵɜɚɸɬɫɹ ɩɪɨɬɢɜ ɱɚɫɨɜɨɣ ɫɬɪɟɥɤɢ ɢɯ ɜɟɥɢɱɢɧɚ ɭɤɚɡɵɜɚɟɬɫɹ ɜ ɝɪɚɞɭɫɚɯɟɟɡɧɚɱɟɧɢɹɨɬɞɨɈɬɫɱɟɬɭɝɥɚɩɪɨɢɡɜɨɞɢɬɫɹɨɬɧɚɩɪɚɜɥɟɧɧɨɝɨ ɜɩɪɚɜɨɩɨɝɨɪɢɡɨɧɬɚɥɢɪɚɞɢɭɫɚɈɩɟɪɚɬɨɪɩɨɫɬɪɨɟɧɢɹɞɭɝɢɢɦɟɟɬɜɢɞ $UF [\ɧɚɱɚɥɶɧɵɣBɭɝɨɥɤɨɧɟɱɧɵɣBɭɝɨɥɪɚɞɢɭɫ  Ⱦɥɹ ɡɚɤɪɚɲɟɧɧɨɝɨ ɫɟɤɬɨɪɚ ɢɫɩɨɥɶɡɭɟɬɫɹ ɫɥɟɞɭɸɳɢɣ ɨɩɟɪɚɬɨɪ ɫ ɬɚɤɢɦɢ ɠɟɩɚɪɚɦɟɬɪɚɦɢ 3LH6OLFH [\ɧɚɱɚɥɶɧɵɣBɭɝɨɥɤɨɧɟɱɧɵɣBɭɝɨɥɪɚɞɢɭɫ  ȿɫɥɢɭɤɚɡɚɬɶɡɧɚɱɟɧɢɹɭɝɥɨɜɫɨɨɬɜɟɬɫɬɜɟɧɧɨɢɬɨɩɨɥɭɱɢɦɨɤɪɭɠ ɧɨɫɬɶɢɥɢɡɚɤɪɚɲɟɧɧɵɣɬɟɤɭɳɢɦɰɜɟɬɨɦɤɪɭɝɈɤɪɭɠɧɨɫɬɶɦɨɠɧɨɬɚɤɠɟɢɡɨɛ ɪɚɡɢɬɶɨɩɟɪɚɬɨɪɨɦ &LUFOH [\U   Ɋɚɫɫɦɨɬɪɢɦ ɩɪɢɦɟɪ ɩɨɫɬɪɨɟɧɢɹ ©ɪɨɝɚ ɢɡɨɛɢɥɢɹª ɩɨɫɬɪɨɟɧɧɨɝɨ ɢɡ ɨɤɪɭɠɧɨɫɬɟɣ ɐɟɧɬɪɵ ɨɤɪɭɠɧɨɫɬɟɣ ɩɟɪɟɦɟɳɚɸɬɫɹ ɩɨ ɨɤɪɭɠɧɨɫɬɢ ɡɚɞɚɜɚɟɦɨɣ 184
ɤɚɤɬɪɚɟɤɬɨɪɢɹɬɨɱɤɢɨɞɧɚɤɨɨɪɞɢɧɚɬɚɤɨɬɨɪɨɣɡɚɞɚɟɬɫɹɤɨɫɢɧɭɫɨɦɚɞɪɭɝɚɹ – ɫɢɧɭɫɨɦɨɞɧɨɝɨɢɬɨɝɨɠɟɭɝɥɚɯNɉɪɢk ɩɨɥɭɱɚɟɬɫɹɡɚɦɤɧɭɬɵɣɤɪɭɝ k – ɞɜɚɤɪɭɝɚk – ɩɨɥɭɤɪɭɝ program E40 uses *UDSK&UW procedure ,QLW^ɭɫɬɚɧɨɜɤɚɝɪɚɮɢɱɟɫɤɨɝɨɪɟɠɢɦɚ` var JUJP integer begin JU ^ɚɜɬɨɦɚɬɢɱɟɫɤɨɟɪɚɫɩɨɡɧɚɜɚɧɢɟɬɢɩɚɞɢɫɩɥɟɹ` ,QLW*UDSK JUJPµµ ^ɮɚɣɥHJDYJDEJLɧɚɯɨɞɢɬɫɹɜɨɞɧɨɦɤɚɬɚɥɨɝɟɫ WXUERH[H` if *UDSK5HVXOW!JU2Nthen +DOW   end; procedure 5RJ var [PD[\PD[[\[\Uinteger begin [PD[ \PD[  for [ to 125 do begin [ WUXQF [PD[\PD[ FRV [  \ WUXQF \PD[[PD[ VLQ [  U WUXQF \PD[- [  &LUFOH [\U end end; begin ,QLW 5RJ repeat until NH\SUHVVHG HQG ɉɨɫɬɪɨɟɧɢɟ ɤɪɭɝɨɜɨɣ ɞɢɚɝɪɚɦɦɵ Ⱦɢɚɝɪɚɦɦɵ ɬɚɤɨɝɨ ɬɢɩɚ ɩɪɟɞɫɬɚɜɥɹ ɸɬ ɫɨɛɨɣ ɤɪɭɝɢ ɪɚɡɞɟɥɟɧɧɵɟ ɧɚ ɫɟɤɬɨɪɵ ɪɚɡɧɨɣ ɩɥɨɳɚɞɢ ɪɢɫ 3  ɉɥɨɳɚɞɶ ɤɚɠɞɨɝɨɫɟɤɬɨɪɚɫɨɨɬɜɟɬɫɬɜɭɟɬɧɟɤɨɬɨɪɨɣɱɚɫɬɢɤɚɤɩɪɚɜɢɥɨɜɩɪɨɰɟɧɬɧɨɦɨɬ ɧɨɲɟɧɢɢɚɡɚɟɞɢɧɢɰɭ ɰɟɥɨɟ ɩɪɢɧɢɦɚɟɬɫɹɩɥɨɳɚɞɶɜɫɟɝɨɤɪɭɝɚȼɦɟɫɬɨɩɥɨ ɳɚɞɢ ɫɟɤɬɨɪɚ ɦɨɠɧɨ ɪɚɫɫɱɢɬɚɬɶ ɞɥɢɧɭ ɞɭɝɢ ɉɨɫɬɪɨɢɦ ɤɪɭɝɨɜɭɸ ɞɢɚɝɪɚɦɦɭ ɢɡɦɟɧɟɧɢɹɭɫɩɟɜɚɟɦɨɫɬɢ 185
ɊɢɫɄɪɭɝɨɜɚɹɞɢɚɝɪɚɦɦɚɭɫɩɟɜɚɟɦɨɫɬɢ ɉɪɨɝɪɚɦɦɚɢɦɟɟɬɜɢɞ program E41 uses *UDSK&UW procedure ,QLW^ɭɫɬɚɧɨɜɤɚɝɪɚɮɢɱɟɫɤɨɝɨɪɟɠɢɦɚ` var JUJP integer begin JU ^ɚɜɬɨɦɚɬɢɱɟɫɤɨɟɪɚɫɩɨɡɧɚɜɚɧɢɟɬɢɩɚɞɢɫɩɥɟɹ` ,QLW*UDSK JUJPµµ ^ɮɚɣɥHJDYJDEJLɧɚɯɨɞɢɬɫɹɜɨɞɧɨɦɤɚɬɚɥɨɝɟɫ WXUERH[H` if *UDSK5HVXOW!JU2Nthen +DOW  ^ɨɛɪɚɛɨɬɤɚɪɟɡɭɥɶɬɚɬɚɭɫɬɚɧɨɜɤɢ ` end; procedure 'LDJUDP var [PD[\PD[[\[\U integer begin xmax  \PD[   x  \  U  ^ɤɨɨɪɞɢɧɚɬɵɰɟɧɬɪɚɢɪɚɞɢɭɫɞɢɚɝɪɚɦɦɵ` [ WUXQF   ^ɪɚɫɱɟɬɞɥɢɧɵɩɟɪɜɨɣɞɭɝɢ` 6HW&RORU  3LH6OLFH [\[U  \ WUXQF    6HW&RORU  3LH6OLFH [\[\U ^ɜɬɨɪɚɹ ɞɭɝɚ ɩɟɪɜɚɹ ` 6HWɋRORU  3LH6OLFH [\\U ^ɡɚɦɵɤɚɧɢɟ ɤɪɭɝɚ ` end; begin ,QLW 'LDJUDP repeat until NH\SUHVVHG HQG 186
ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ Ʉɚɤɪɚɫɩɨɥɨɠɟɧɵɨɫɢɤɨɨɪɞɢɧɚɬɧɚɷɤɪɚɧɟɞɢɫɩɥɟɹ" ɑɬɨɬɚɤɨɟɝɪɚɮɢɱɟɫɤɢɟɩɪɢɦɢɬɢɜɵ" Ʉɚɤɡɚɤɪɚɫɢɬɶɨɞɢɧɩɢɤɫɟɥɷɤɪɚɧɚ" Ʉɚɤɨɬɨɛɪɚɡɢɬɶɨɬɪɟɡɨɤ>ab @ɧɚɜɫɸɲɢɪɢɧɭɷɤɪɚɧɚ"  ɋɤɨɥɶɤɨ ɩɢɤɫɟɥɨɜ ɛɭɞɟɬ ɫɨɞɟɪɠɚɬɶ ɟɞɢɧɢɰɚ ɢɡɦɟɪɟɧɢɹ ɧɚ ɨɬɨɛɪɚɠɚɟ ɦɨɦɧɚɷɤɪɚɧɟɨɬɪɟɡɤɟ>ab @" ɄɚɤɪɚɫɩɨɥɨɠɢɬɶɝɪɚɮɢɤɧɚɷɤɪɚɧɟɫɭɱɟɬɨɦɧɚɩɪɚɜɥɟɧɧɨɫɬɢɨɫɢɈɭ ɜ ɩɪɨɬɢɜɨɩɨɥɨɠɧɭɸɨɬɬɪɚɞɢɰɢɨɧɧɨɝɨɧɚɩɪɚɜɥɟɧɢɹɫɬɪɨɧɭ" Ʉɚɤɨɝɨɬɢɩɚɞɚɧɧɵɟɫɨɨɬɜɟɬɫɬɜɭɸɬɷɤɪɚɧɧɵɦɤɨɨɪɞɢɧɚɬɚɦ" ȼɤɚɤɨɣɛɢɛɥɢɨɬɟɤɟɉɚɫɤɚɥɹɫɨɞɟɪɠɚɬɫɹɝɪɚɮɢɱɟɫɤɢɟ ɩɨɞɩɪɨɝɪɚɦɦɵɢ ɤɚɤɩɨɞɤɥɸɱɢɬɶɷɬɭɛɢɛɥɢɨɬɟɤɭɩɪɢɜɵɩɨɥɧɟɧɢɢɩɪɨɝɪɚɦɦɵ" Ʉɚɤɡɚɞɟɪɠɚɬɶɢɡɨɛɪɚɠɟɧɢɟɧɚɷɤɪɚɧɟɩɨɫɥɟɩɨɥɧɨɝɨɟɝɨɩɨɫɬɪɨɟɧɢɹ" Ʉɚɤɡɚɞɚɬɶɰɜɟɬɞɥɹɩɨɫɬɪɨɟɧɢɹɥɢɧɢɣɩɪɹɦɨɭɝɨɥɶɧɢɤɨɜɢɞɭɝ"  Ʉɚɤɨɣ ɨɩɟɪɚɬɨɪ ɩɨɡɜɨɥɹɟɬ ɩɨɫɬɪɨɢɬɶ ɨɬɪɟɡɨɤ ɢɫɩɨɥɶɡɭɹ ɬɨɥɶɤɨ ɨɞɧɭ ɩɚɪɭɤɨɨɪɞɢɧɚɬ" Ʉɚɤɩɟɪɟɦɟɫɬɢɬɶɪɢɫɭɸɳɢɣɥɭɱɩɨɷɤɪɚɧɭɬɚɤɱɬɨɛɵɧɟɛɵɥɨɫɥɟɞɚ" Ʉɚɤɩɨɫɬɪɨɢɬɶɝɪɚɮɢɤɮɭɧɤɰɢɢɤɨɬɨɪɚɹɪɟɡɤɨɜɨɡɪɚɫɬɚɟɬɢɥɢɭɛɵɜɚ ɟɬ"  Ʉɚɤ ɩɨɫɬɪɨɢɬɶ ɢɡɨɛɪɚɠɟɧɢɟ ɤɨɬɨɪɨɟ ɦɨɠɧɨ ɩɟɪɟɦɟɳɚɬɶ ɩɨ ɷɤɪɚɧɭ ɡɚɞɚɜɚɹɤɨɨɪɞɢɧɚɬɵɬɨɥɶɤɨɩɟɪɜɨɣɟɝɨɬɨɱɤɢ"  Ʉɚɤɢɟ ɨɩɟɪɚɬɨɪɵ ɩɨɡɜɨɥɹɸɬ ɩɨɫɬɪɨɢɬɶ ɤɨɧɬɭɪɧɵɣ ɢ ɡɚɤɪɚɲɟɧɧɵɣ ɩɪɹɦɨɭɝɨɥɶɧɢɤɢ" Ʉɚɤɩɨɫɬɪɨɢɬɶɥɢɧɟɣɧɭɸɞɢɚɝɪɚɦɦɭ" Ʉɚɤɩɨɞɩɢɫɚɬɶɪɢɫɭɧɨɤ" Ʉɚɤɩɨɫɬɪɨɢɬɶɞɭɝɭɨɤɪɭɠɧɨɫɬɢ"Ʉɚɤɫɩɨɦɨɳɶɸɨɩɟɪɚɬɨɪɚɩɨɫɬɪɨɟ ɧɢɹɞɭɝɢɩɨɫɬɪɨɢɬɶɨɤɪɭɠɧɨɫɬɶ" Ʉɚɤɢɡɨɛɪɚɡɢɬɶɡɚɤɪɚɲɟɧɧɵɣɫɟɤɬɨɪ" Ⱦɥɹɱɟɝɨɢɫɩɨɥɶɡɭɟɬɫɹɮɭɧɤɰɢɹtrunc" 2ɑɬɨɬɚɤɨɟɤɪɭɝɨɜɚɹɞɢɚɝɪɚɦɦɚ" ȼɩɪɨɝɪɚɦɦɭɩɨɫɬɪɨɟɧɢɹɝɪɚɮɢɤɚɮɭɧɤɰɢɢɞɨɛɚɜɢɬɶɜɵɞɚɱɭɧɚɷɤɪɚɧ ɤɨɨɪɞɢɧɚɬɧɵɯɨɫɟɣɢɨɬɦɟɬɤɭɧɚɧɢɯɟɞɢɧɢɰɵɢɡɦɟɪɟɧɢɹ.  ɋ ɩɨɦɨɳɶɸ ɩɪɨɝɪɚɦɦɵ ɩɨɫɬɪɨɟɧɢɹ ɝɪɚɮɢɤɚ ɮɭɧɤɰɢɢ ɩɨɫɬɪɨɢɬɶ ɝɪɚ ɮɢɤɢORJ2[WJ[FRV[ɧɚɪɚɡɥɢɱɧɵɯɭɱɚɫɬɤɚɯɨɛɥɚɫɬɟɣɨɩɪɟɞɟɥɟɧɢɹɷɬɢɯɮɭɧɤ ɰɢɣ  ɉɪɨɝɪɚɦɦɭ ɩɨɫɬɪɨɟɧɢɹ ɫɬɨɥɛɱɚɬɨɣ ɞɢɚɝɪɚɦɦɵ ɞɨɩɨɥɧɢɬɶ ɬɚɤ ɱɬɨɛɵ ɧɚɢɡɨɛɪɚɠɟɧɢɢɛɵɥɢɜɫɟɩɨɞɩɢɫɢɤɚɤɧɚɪɢɫ12.  ɉɨɞɩɢɫɚɬɶ ɤɪɭɝɨɜɭɸ ɞɢɚɝɪɚɦɦɭ ɜɵɞɟɥɢɜ ɜ ɤɚɠɞɨɦ ɫɟɤɬɨɪɟ ɩɪɹɦɨ ɭɝɨɥɶɧɢɤɛɟɥɨɝɨɰɜɟɬɚɢɩɨɦɟɫɬɢɜɜɧɟɝɨɧɟɨɛɯɨɞɢɦɵɣɬɟɤɫɬ 26 ɉɨɫɬɪɨɢɬɶ ɤɨɧɰɟɧɬɪɢɱɟɫɤɢɟ ɨɤɪɭɠɧɨɫɬɢ ɡɚɤɪɚɫɢɜ ɤɚɠɞɭɸ ɧɨɜɵɦ ɰɜɟɬɨɦ 27 ɉɨɫɬɪɨɢɬɶ ɟɥɨɱɤɭ ɢɡ n ɬɪɟɭɝɨɥɶɧɢɤɨɜ ɨɩɪɟɞɟɥɢɜ ɟɟ ɩɪɟɞɜɚɪɢɬɟɥɶɧɨ ɪɟɤɭɪɫɢɜɧɨɢɢɫɩɨɥɶɡɨɜɚɜɜɩɪɨɝɪɚɦɦɟɪɟɤɭɪɫɢɜɧɭɸɝɪɚɮɢɱɟɫɤɭɸɩɪɨɰɟɞɭɪɭ 187
28. ɂɫɩɨɥɶɡɭɹ ɢɞɟɸ ɞɟɬɫɤɨɣ ɢɝɪɵ ©ɦɨɡɚɢɤɚª ɩɨɫɬɪɨɢɬɶ ɢɡɨɛɪɚɠɟɧɢɟ ɪɚɡɧɨɰɜɟɬɧɨɣɛɚɛɨɱɤɢɫɨɯɪɚɧɢɜɟɝɨɩɪɟɞɜɚɪɢɬɟɥɶɧɨɜɜɢɞɟɬɚɛɥɢɰɵɰɟɥɵɯɱɢ ɫɟɥ ɡɧɚɱɟɧɢɣɰɜɟɬɨɜ ɢɜɵɞɚɜɚɹ ɡɚɬɟɦɷɬɭɬɚɛɥɢɰɭɩɨɬɨɱɤɚɦɧɚɷɤɪɚɧɩɪɢɦɟ ɧɹɹɞɜɨɣɧɨɣɰɢɤɥ 29 ɉɨɫɬɪɨɢɬɶ ɩɨ ɬɨɱɤɚɦ ɩɢɤɬɨɝɪɚɦɦɵ ɝɪɚɮɢɱɟɫɤɨɝɨ ɪɟɞɚɤɬɨɪɚ ɫɨɡɞɚɜ ɩɪɟɞɜɚɪɢɬɟɥɶɧɨɬɚɛɥɢɰɭɜɤɨɬɨɪɨɣɤɚɠɞɚɹɬɨɱɤɚɢɡɨɛɪɚɠɟɧɢɹɩɪɢɫɭɬɫɬɜɨɜɚɥɚ ɛɵɡɧɚɱɟɧɢɟɦɫɜɨɟɝɨɰɜɟɬɚ 188
Ʌɚɛɨɪɚɬɨɪɧɨɟɡɚɞɚɧɢɟ18Ʉɨɦɩɶɸɬɟɪɧɚɹɝɪɚɮɢɤɚ ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟ ɩɪɚɤɬɢɱɟɫɤɢɯ ɧɚɜɵɤɨɜ ɪɚɛɨɬɵ ɫ ɝɪɚɮɢɱɟɫɤɢɦɢ ɨɛɴɟɤ ɬɚɦɢ Ɂɚɞɚɧɢɟ  ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɧɚɪɢɫɨɜɚɬɶ ɝɨɫɭɞɚɪɫɬɜɟɧɧɵɣ ɮɥɚɝɨɩɪɟɞɟɥɟɧɧɨɣɫɬɪɚɧɵȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶ ɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ4 ɋɬɪɚɧɚ ȼɚɪɢɚɧɬʋ 1. ɊɨɫɫɢɣɫɤɚɹɎɟɞɟɪɚɰɢɹ 2. Ȼɚɯɪɟɣɧ 3. ȻɚɝɚɦɫɤɢɟɈɫɬɪɨɜɚ 4. Ƚɪɟɰɢɹ 5. Ƚɚɦɛɢɹ 6. Ⱦɚɧɢɹ 4 ɋɨɫɬɚɜɥɟɧɨɫɢɫɩɨɥɶɡɨɜɚɧɢɟɦɦɚɬɟɪɢɚɥɨɜ ɋɩɢɫɨɤɝɨɫɭɞɚɪɫɬɜɟɧɧɵɯɮɥɚɝɨɜ – 85/KWWSVUXZLNLSHGLDRUJ . 189 ȼɢɞɮɥɚɝɚ
ȼɚɪɢɚɧɬʋ ɋɬɪɚɧɚ ȼɢɞɮɥɚɝɚ 7. ɊɟɫɩɭɛɥɢɤɚɄɨɧɝɨ 8. ɊɟɫɩɭɛɥɢɤɚɅɢɛɟɪɢɹ 9. Ʌɚɨɫ 10. ɆɚɥɶɞɢɜɫɤɚɹɊɟɫɩɭɛɥɢɤɚ 11. Ɋɟɫɩɭɛɥɢɤɚɋɟɣɲɟɥɶɫɤɢɟ Ɉɫɬɪɨɜɚ 12. Ɏɪɚɧɰɢɹ 13. Ɉɛɴɟɞɢɧɟɧɧɚɹ ɊɟɫɩɭɛɥɢɤɚɌɚɧɡɚɧɢɹ 14. ɋɟɧɬ-Ʌɸɫɢɹ 190
ȼɚɪɢɚɧɬʋ ɋɬɪɚɧɚ 15. ɋɟɧɬ-ȼɢɧɫɟɧɬ ɢȽɪɟɧɚɞɢɧɵ 16. Ʉɭɜɟɣɬ ȼɢɞɮɥɚɝɚ Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨ ɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ɉɟɪɟɞ ɧɚɱɚɥɨɦ ɫɨɡɞɚɧɢɹ ɩɪɨɝɪɚɦɦɵ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɧɚɣɬɢ ɧɭɠɧɵɟ ɤɨɨɪ ɞɢɧɚɬɵɝɟɨɦɟɬɪɢɱɟɫɤɢɯɮɢɝɭɪɫɨɫɬɚɜɥɹɸɳɢɯɩɨɥɨɬɧɨɮɥɚɝɚɧɚɥɢɫɬɟɛɭɦɚɝɢ Ƚɨɫɭɞɚɪɫɬɜɟɧɧɵɣ ɮɥɚɝ ɫɬɪɚɧɵ ɞɨɥɠɟɧ ɪɚɫɩɨɥɚɝɚɬɶɫɹ ɜ ɰɟɧɬɪɟ ɷɤɪɚɧɚ ɢ ɡɚɧɢɦɚɬɶ ɧɟ ɦɟɧɟɟ   ɩɥɨɳɚɞɢ ɷɤɪɚɧɚ ɉɪɢ ɩɨɫɬɪɨɟɧɢɢ ɮɥɚɝɚ ɠɟɥɚɬɟɥɶɧɨ ɦɚɤɫɢɦɚɥɶɧɨɫɨɛɥɸɞɚɬɶɩɪɨɩɨɪɰɢɢɷɥɟɦɟɧɬɨɜɮɥɚɝɚ ɧɚɩɪɢɦɟɪɭɩɨɥɨɬɧɚɮɥɚ ɝɚ Ʉɭɜɟɣɬɚ ɲɢɪɢɧɚ ɡɟɥɟɧɨɣ ɛɟɥɨɣ ɢ ɤɪɚɫɧɨɣ ɩɨɥɨɫ ɨɞɢɧɚɤɨɜɚ). ɉɪɢ ɜɵɛɨɪɟ ɰɜɟɬɚ ɠɟɥɚɬɟɥɶɧɨ ɩɨɞɛɢɪɚɬɶ ɰɜɟɬɚ ɧɚɢɛɨɥɟɟ ɛɥɢɡɤɢɟ ɤ ɨɪɢɝɢɧɚɥɭ ɧɚɩɪɢɦɟɪ ɫɜɟɬɥɨ-ɝɨɥɭɛɨɣɬɟɦɧɨ-ɫɢɧɢɣɢɬɞ). Ʉɨɞ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɜ ɧɚɢɛɨɥɟɟ ɤɨɦ ɩɚɤɬɧɨɦ ɜɢɞɟ ɢɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼɨɬɱɟɬ ɧɟɨɛɯɨɞɢɦɨ ɜɤɥɸɱɢɬɶ ɷɤɪɚɧɧɵɣ ɫɧɢɦɨɤ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɜ ɪɟɞɚɤɬɨɪɟ Pascal. ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ 16 ɐɟɥɶ – ɩɨɥɭɱɟɧɢɟɩɪɚɤɬɢɱɟɫɤɢɯɧɚɜɵɤɨɜɪɚɛɨɬɵɫɝɪɚɮɢɱɟɫɤɢɦɢɨɛɴɟɤɬɚɦɢ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟ3DVFDOɧɚɪɢɫɨɜɚɬɶɝɨɫɭɞɚɪɫɬɜɟɧɧɵɣɮɥɚɝɄɭ ɜɟɣɬɚȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEBB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚɡɚɞɚɧɢɟ ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉɉ` uses graphabc ^ɩɪɨɝɪɚɦɦɭɛɭɞɟɦɜɵɩɨɥɧɹɬɶɜPascalABCɩɨɷɬɨɦɭɭɤɚɡɵɜɚɟɦɫɨɨɬ ɜɟɬɫɬɜɭɸɳɭɸɛɢɛɥɢɨɬɟɤɭgraphabc} begin setwindowsize  ^ɡɚɞɚɟɦɪɚɡɦɟɪɵɨɤɧɚ` rectangle  ^ɫɬɪɨɢɦɩɪɹɦɨɭɝɨɥɶɧɢɤɹɜɥɹɸɳɢɣɫɹɤɨɧɬɭɪɨɦɮɥɚɝɚ` rectangle  ^ɫɬɪɨɢɦɛɟɥɵɣɩɪɹɦɨɭɝɨɥɶɧɢɤ` 191
line   line   FloodFill clBlack ^ɡɚɤɪɚɲɢɜɚɟɦɩɨɫɬɪɨɟɧɧɭɸɬɪɚɩɟɰɢɸɜɱɟɪɧɵɣɰɜɟɬ` FloodFill FO*UHHQ ^ɡɚɤɪɚɲɢɜɚɟɦɜɟɪɯɧɸɸ ɱɚɫɬɶɮɥɚɝɚɜɡɟɥɟɧɵɣɰɜɟɬ` FloodFill FO5HG ^ɡɚɤɪɚɲɢɜɚɟɦɧɢɠɧɸɸɱɚɫɬɶɮɥɚɝɚɜɤɪɚɫɧɵɣɰɜɟɬ` readln end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal $%& ȼɵɜɨɞɵ ɉɨɫɤɨɥɶɤɭ ɫɨɡɞɚɧɧɚɹ ɩɪɨɝɪɚɦɦɚ ɪɢɫɭɟɬ ɮɥɚɝ Ʉɭɜɟɣɬɚ ɩɪɚɜɢɥɶɧɨ ɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɨɧɚ ɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ y Ɂɚɞɚɧɢɟ  ɇɟɨɛɯɨɞɢɦɨ ɜ ɪɟɞɚɤɬɨɪɟ Pascal ɩɨɫɬɪɨɢɬɶ ɝɪɚɮɢɤ ɮɭɧɤɰɢɢ f [ ȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ ȼɚɪɢɚɧɬɵɡɚɞɚɧɢɣ5 ȼɚɪɢɚɧɬʋ 1. 2. 3. 4. 5. 6. y y f [ [2  4[  3 y 2 VLQ 3[ y [3 y 3 FRV 2 [ y 2[  1  3 y tg [ 5 ɋɨɫɬɚɜɥɟɧɨɫɢɫɩɨɥɶɡɨɜɚɧɢɟɦɦɚɬɟɪɢɚɥɨɜ Ʌɭɧɝɭ Ʉ ɇ ɋɛɨɪɧɢɤ ɡɚɞɚɱ ɩɨ ɜɵɫɲɟɣ ɦɚɬɟɦɚɬɢɤɟ  ɤɭɪɫ  Ʉ ɇ Ʌɭɧɝɭ Ⱦ Ɍ ɉɢɫɶɦɟɧɧɵɣ ɋ ɇ Ɏɟɞɢɧɘ Ⱥ ɒɟɜɱɟɧɤɨ – 7-ɟɢɡɞ – ɆȺɣɪɢɫ-ɩɪɟɫɫ – 576 ɫ 192
ȼɚɪɢɚɧɬʋ 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. y y f [ 2 [  6 [  11 y 3[  5 y 2 VLQ [  7 y [2  2[ y OQ [ 2 y [ 3  3[ 2  3[  1 y [3  [ y 3  5 FRV [ y [ 2  8 [  20 y [3 Ɇɟɬɨɞɢɱɟɫɤɢɟɭɤɚɡɚɧɢɹɩɨ ɜɵɩɨɥɧɟɧɢɸɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɵ ɉɟɪɟɞ ɧɚɱɚɥɨɦ ɫɨɡɞɚɧɢɹ ɩɪɨɝɪɚɦɦɵ ɪɟɤɨɦɟɧɞɭɟɬɫɹ ɫɧɚɱɚɥɚ ɩɨɫɬɪɨɢɬɶ ɩɨ ɬɨɱɤɚɦ  ɝɪɚɮɢɤ ɮɭɧɤɰɢɢ ɜ ɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɧɚɩɪɢɦɟɪ ɜ (;&(/ . ɗɬɨ ɩɨɡɜɨɥɢɬ ɫɨɤɪɚɬɢɬɶ ɜɪɟɦɹ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɢ ɤɨɥɢɱɟɫɬɜɨ ɞɨɩɭɳɟɧɧɵɯ ɨɲɢɛɨɤ ɩɨɫɤɨɥɶɤɭɩɪɟɞɨɫɬɚɜɢɬɜɨɡɦɨɠɧɨɫɬɶɜɵɛɪɚɬɶɩɪɚɜɢɥɶɧɵɣɦɚɫɲɬɚɛɩɨ ɫɬɪɨɟɧɢɹ ɝɪɚɮɢɤɚɢɟɝɨɪɚɫɩɨɥɨɠɟɧɢɟ. Ƚɪɚɮɢɤ ɮɭɧɤɰɢɢ ɞɨɥɠɟɧ ɪɚɡɦɟɳɚɬɶɫɹ ɩɨ ɰɟɧɬɪɭ ɷɤɪɚɧɚ ɢ ɡɚɧɢɦɚɬɶ ɧɟ ɦɟɧɟɟ ɩɥɨɳɚɞɢɷɤɪɚɧɚ ɈɫɢɝɪɚɮɢɤɚɞɨɥɠɧɵɛɵɬɶɩɨɞɩɢɫɚɧɵɌɚɤɠɟɪɟ ɤɨɦɟɧɞɭɟɬɫɹɨɬɪɚɡɢɬɶ ɢɩɨɞɩɢɫɚɬɶ ɧɚɝɪɚɮɢɤɟɰɟɧɭɞɟɥɟɧɢɹ Ɉɫɢ ɤɨɨɪɞɢɧɚɬ ɢ ɩɨɞɩɢɫɢ ɤ ɝɪɚɮɢɤɭ ɧɟɨɛɯɨɞɢɦɨ ɪɢɫɨɜɚɬɶ ɱɟɪɧɵɦ ɰɜɟ ɬɨɦ ɚ ɰɜɟɬ ɫɚɦɨɝɨ ɝɪɚɮɢɤɚ ɦɨɠɟɬ ɛɵɬɶ ɥɸɛɵɦ ɟɞɢɧɫɬɜɟɧɧɨɟ ɬɪɟɛɨɜɚɧɢɟ – ɝɪɚɮɢɤɞɨɥɠɟɧɛɵɬɶɯɨɪɨɲɨɜɢɞɟɧ  ɉɪɢ ɧɚɩɢɫɚɧɢɢ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɫɥɟɞɭɟɬ ɩɨ ɜɨɡɦɨɠɧɨɫɬɢ  ɩɪɟɞɫɬɚɜɥɹɬɶ ɟɝɨɜɧɚɢɛɨɥɟɟɤɨɦɩɚɤɬɧɨɦɜɢɞɟɢɧɟɢɫɩɨɥɶɡɨɜɚɬɶɢɡɛɵɬɨɱɧɨɟɤɨɥɢɱɟɫɬɜɨ ɩɟ ɪɟɦɟɧɧɵɯɄɨɞɩɪɨɝɪɚɦɦɵɧɟɨɛɯɨɞɢɦɨɫɨɩɪɨɜɨɠɞɚɬɶɤɪɚɬɤɢɦɢɩɨɹɫɧɹɸɳɢɦɢ ɤɨɦɦɟɧɬɚɪɢɹɦɢ ȼ ɨɬɱɟɬ ɧɟɨɛɯɨɞɢɦɨ ɜɤɥɸɱɢɬɶ ɷɤɪɚɧɧɵɣ ɫɧɢɦɨɤ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascalɚɬɚɤɠɟɝɪɚɮɢɤɮɭɧɤɰɢɢɩɨɫɬɪɨɟɧɧɵɣɜɬɚɛɥɢɱɧɨɦ ɩɪɨɰɟɫɫɨɪɟ ɉɪɢɦɟɪɨɮɨɪɦɥɟɧɢɹɨɬɱɟɬɚɩɨɥɚɛɨɪɚɬɨɪɧɨɣɪɚɛɨɬɟ ȼɚɪɢɚɧɬʋ Ɂɚɞɚɧɢɟ ɇɟɨɛɯɨɞɢɦɨɜɪɟɞɚɤɬɨɪɟ3DVFDOɩɨɫɬɪɨɢɬɶɝɪɚɮɢɤɮɭɧɤɰɢɢ y ȼɵɩɨɥɧɢɬɶɩɪɨɝɪɚɦɦɭɢɩɪɨɚɧɚɥɢɡɢɪɨɜɚɬɶɪɟɡɭɥɶɬɚɬɵɟɟɪɚɛɨɬɵ Ɋɟɲɟɧɢɟ Ʉɨɞɩɪɨɝɪɚɦɦɵ program ODEBB ^Ʌɚɛɨɪɚɬɨɪɧɚɹɪɚɛɨɬɚɡɚɞɚɧɢɟ 193 [3 .
ɨɛɭɱɚɸɳɟɝɨɫɹɝɪɭɩɩɵȻɂ-ɛ-ɨ-201 ɉɟɬɪɨɜɚɉ.ɉ.} uses graphABC var J[J\[\N[\Linteger [\real begin J[ {ɡɚɞɚɟɦɲɢɪɢɧɭɷɤɪɚɧɚ} J\ {ɡɚɞɚɟɦɜɵɫɨɬɭɷɤɪɚɧɚ` k ^ɡɚɞɚɟɦɦɚɫɲɬɚɛɝɪɚɮɢɤɚ` setwindowssize(J[J\ ^ɡɚɞɚɟɦɪɚɡɦɟɪɵɨɤɧɚ` x J[ div ^ɩɨɢɫɤɰɟɧɬɪɚɨɤɧɚɤɨɨɪɞɢɧɚɬɚ[} \ J\ div  ^ɩɨɢɫɤɰɟɧɬɪɚɨɤɧɚɤɨɨɪɞɢɧɚɬɚy} ^ɉɨɫɬɪɨɟɧɢɟɨɫɟɣɤɨɨɪɞɢɧɚɬ` ^Ɉɫɶ[} line  \ J[ \  line J[ \ J[- \  line J[ \ J[- \-  textout(J[- \ ¶;¶ ^ɩɨɞɩɢɫɵɜɚɟɦɨɫɶ[} ^Ɉɫɶ\` line [  [ J\  line [  x0-   line [  [   textout(x ¶Y¶ ^ɩɨɞɩɢɫɵɜɚɟɦɨɫɶy} ^ɐɢɤɥɞɥɹɫɨɡɞɚɧɢɹɰɟɧɵɞɟɥɟɧɢɹɨɫɟɣ[ɢy} L - while Ldo begin ^ɐɟɧɚɞɟɥɟɧɢɹ[} line [L N \[L N\-  textout [L N \ inttostr L  ^ɨɩɟɪɚɬɨɪ LQWWRVWU ɩɪɟɜɪɚɳɚɟɬ ɱɢɫɥɨ ɜ ɫɬɪɨɤɭ` ^ɐɟɧɚɞɟɥɟɧɢɹy} if L!then begin line [ \L N[-\L N  textout [\-L N inttostr L  end inc(L ^ɭɜɟɥɢɱɢɜɚɟɦɡɧɚɱɟɧɢɟiɧɚɟɞɢɧɢɰɭ` end ^ɉɨɫɬɪɨɟɧɢɟɝɪɚɮɢɤɚɮɭɧɤɰɢɢ` x - while x<5 do begin \ VTU [ [ x xURXQG(x k ^ɤɨɨɪɞɢɧɚɬɚ[ɨɬɧɨɫɢɬɟɥɶɧɨɰɟɧɬɪɚ` \ \0-URXQG(\ k ^ɤɨɨɪɞɢɧɚɬɚyɨɬɧɨɫɢɬɟɥɶɧɨɰɟɧɬɪɚ` setpencolor(FOUHG ^ɡɚɞɚɟɦɰɜɟɬ-ɤɪɚɫɧɵɣ` 194
circle [ \   floodfill [ \ FOUHG  [ [ end readln end. ɗɤɪɚɧɧɵɣɫɧɢɦɨɤɜɵɩɨɥɧɟɧɢɹɤɨɞɚɩɪɨɝɪɚɦɦɵɜɪɟɞɚɤɬɨɪɟPascal $%& Ƚɪɚɮɢɤ ɮɭɧɤɰɢɢ ɩɨɫɬɪɨɟɧɧɵɣ ɜɬɚɛɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟ 195
ȼɵɜɨɞɵ ɉɨɫɤɨɥɶɤɭ ɝɪɚɮɢɤ ɮɭɧɤɰɢɢ ɩɨɫɬɪɨɟɧɧɵɣ ɜ ɪɟɡɭɥɶɬɚɬɟ ɜɵɩɨɥɧɟɧɢɹ ɪɚɡɪɚɛɨɬɚɧɧɨɣ ɩɪɨɝɪɚɦɦɵ ɫɨɜɩɚɥ ɫ ɝɪɚɮɢɤɨɦ ɞɚɧɧɨɣ ɮɭɧɤɰɢɢ ɩɨɫɬɪɨɟɧɧɵɦ ɜ ɬɚɛ ɥɢɱɧɨɦɩɪɨɰɟɫɫɨɪɟɦɨɠɧɨɝɨɜɨɪɢɬɶɨɬɨɦɱɬɨɩɪɨɝɪɚɦɦɚɫɨɫɬɚɜɥɟɧɚɜɟɪɧɨ Ʉɨɧɬɪɨɥɶɧɵɟɜɨɩɪɨɫɵ 1. 2. 3. 4. 5. 6. Ɉɩɢɲɢɬɟɚɥɝɨɪɢɬɦɩɨɫɬɪɨɟɧɢɹɝɪɚɮɢɤɚɮɭɧɤɰɢɢɩɨɬɨɱɤɚɦ ɋɩɨɦɨɳɶɸɤɚɤɨɝɨɨɩɟɪɚɬɨɪɚɦɨɠɧɨɭɫɬɚɧɨɜɢɬɶɪɚɡɦɟɪɵɨɤɧɚ" Ʉɚɤɜɵɱɢɫɥɢɬɶɰɟɧɬɪɷɤɪɚɧɚ" Ʉɚɤɫɨɡɞɚɬɶɰɟɧɭɞɟɥɟɧɢɹɨɫɟɣɤɨɨɪɞɢɧɚɬ" Ⱦɥɹɱɟɝɨɫɥɭɠɢɬɨɩɟɪɚɬɨɪinttostr" Ʉɚɤɢɟɞɟɣɫɬɜɢɹɜɵɩɨɥɧɹɟɬɨɩɟɪɚɬɨɪtextout" 196
Ɍɟɦɚ  ɊȿɄɍɊɋɂə ȿɫɥɢɩɨɫɬɚɜɢɬɶɞɜɚɡɟɪɤɚɥɚɧɚɩɪɨɬɢɜɞɪɭɝɞɪɭɝɚɢɦɟɠɞɭɧɢɦɢɩɨɦɟɫɬɢɬɶ ɩɪɟɞɦɟɬɬɨɩɨɥɭɱɢɬɫɹɛɟɫɤɨɧɟɱɧɨɟɦɧɨɠɟɫɬɜɨɢɡɨɛɪɚɠɟɧɢɣɤɚɠɞɨɟɢɡɤɨɬɨɪɵɯ ɫɨɞɟɪɠɢɬɫɜɨɟɫɨɛɫɬɜɟɧɧɨɟɄɚɠɞɨɟɢɡɷɬɢɯɢɡɨɛɪɚɠɟɧɢɣɦɨɠɧɨɪɚɫɫɦɚɬɪɢɜɚɬɶ ɤɚɤ ɪɟɤɭɪɫɢɜɧɵɣ ɨɛɴɟɤɬ ɤɨɬɨɪɵɣ ɱɚɫɬɢɱɧɨ ɫɨɫɬɨɢɬ ɢɥɢ ɨɩɪɟɞɟɥɹɟɬɫɹ ɫ ɩɨɦɨ ɳɶɸɫɚɦɨɝɨɫɟɛɹɊɟɤɭɪɫɢɜɧɵɟɨɛɴɟɤɬɵɨɛɥɚɞɚɸɬɧɟɫɤɨɥɶɤɢɦɢɫɜɨɣɫɬɜɚɦɢ - ɩɪɨɫɬɨɬɨɣɩɨɫɬɪɨɟɧɢɹ - ɧɟɫɯɨɠɟɫɬɶɸɤɨɧɟɱɧɨɝɨɪɟɡɭɥɶɬɚɬɚɫɧɚɱɚɥɶɧɵɦɢɞɚɧɧɵɦɢ - ɜɧɭɬɪɟɧɧɢɦɫɚɦɨɩɨɞɨɛɢɟɦ ȼɦɚɬɟɦɚɬɢɤɟɜɫɬɪɟɱɚɸɬɫɹɪɟɤɭɪɫɢɜɧɵɟɨɩɪɟɞɟɥɟɧɢɹɩɨɡɜɨɥɹɸɳɢɟɨɩɢ ɫɚɬɶ ɨɛɴɟɤɬɵ ɱɟɪɟɡ ɫɚɦɢɯ ɫɟɛɹ Ʉ ɬɚɤɢɦ ɨɩɪɟɞɟɥɟɧɢɹɦ ɨɬɧɨɫɢɬɫɹ ɧɚɩɪɢɦɟɪ ɨɩɪɟɞɟɥɟɧɢɟɧɚɬɭɪɚɥɶɧɨɝɨɱɢɫɥɚ  ɟɞɢɧɢɰɚɟɫɬɶɧɚɬɭɪɚɥɶɧɨɟɱɢɫɥɨ  ɱɢɫɥɨɫɥɟɞɭɸɳɟɟɡɚɧɚɬɭɪɚɥɶɧɵɦɟɫɬɶɧɚɬɭɪɚɥɶɧɨɟɱɢɫɥɨ Ɉɩɪɟɞɟɥɟɧɢɟɤɨɬɨɪɨɟɡɚɞɚɟɬ ɧɟɤɨɬɨɪɵɣɨɛɴɟɤɬɜɬɟɪɦɢɧɚɯɛɨɥɟɟɩɪɨɫɬɨ ɝɨɫɥɭɱɚɹɷɬɨɝɨɠɟɨɛɴɟɤɬɚɧɚɡɵɜɚɟɬɫɹɪɟɤɭɪɫɢɜɧɵɦɨɩɪɟɞɟɥɟɧɢɟɦ. Ɇɨɳɧɨɫɬɶ ɪɟɤɭɪɫɢɜɧɨɝɨ ɨɩɪɟɞɟɥɟɧɢɹ ɡɚɤɥɸɱɚɟɬɫɹ ɜ ɬɨɦ ɱɬɨ ɨɧɨ ɩɨɡɜɨ ɥɹɟɬ ɫ ɩɨɦɨɳɶɸ ɤɨɧɟɱɧɨɝɨ ɜɵɫɤɚɡɵɜɚɧɢɹ ɨɩɪɟɞɟɥɢɬɶ ɛɟɫɤɨɧɟɱɧɨɟ ɦɧɨɠɟɫɬɜɨ ɨɛɴɟɤɬɨɜɄɚɤ ɢɰɢɤɥɪɟɤɭɪɫɢɜɧɨɟɨɩɪɟɞɟɥɟɧɢɟɫɨɞɟɪɠɢɬɩɨɜɬɨɪɟɧɢɹɧɨɤɚɠ ɞɵɣɪɚɡɩɪɢɷɬɨɦɢɫɩɨɥɶɡɭɸɬɫɹɧɨɜɵɟɞɚɧɧɵɟɬɟ ɩɨɜɬɨɪɟɧɢɹɧɟɹɜɥɹɸɬɫɹɹɜ ɧɵɦɢ Ɋɟɤɭɪɫɢɹ – ɷɬɨ ɫɩɨɫɨɛ ɨɩɢɫɚɧɢɹ ɮɭɧɤɰɢɣ ɢɥɢ ɩɪɨɰɟɫɫɨɜ ɱɟɪɟɡ ɫɚɦɢɯ ɫɟɛɹ ɉɪɨɰɟɫɫ ɦɨɠɟɬ ɛɵɬɶ ɨɩɢɫɚɧ ɧɟɤɨɬɨɪɵɦ ɚɥɝɨɪɢɬɦɨɦ ɧɚɡɵɜɚɟɦɵɦ ɜ ɞɚɧ ɧɨɦ ɫɥɭɱɚɟ ɪɟɤɭɪɫɢɜɧɵɦ ȼ ɬɚɤɢɯ ɚɥɝɨɪɢɬɦɚɯ ɜɵɞɟɥɹɟɬɫɹ ɞɜɚ ɷɬɚɩɚ ɜɵɩɨɥɧɟ ɧɢɹ   ©ɩɨɝɪɭɠɟɧɢɟª ɚɥɝɨɪɢɬɦɚ ɜ ɫɟɛɹ ɬ ɟ ɩɪɢɦɟɧɟɧɢɟ ɨɩɪɟɞɟɥɟɧɢɹ ©ɜ ɨɛ ɪɚɬɧɭɸɫɬɨɪɨɧɭªɩɨɤɚɧɟɛɭɞɟɬɧɚɣɞɟɧɨɧɚɱɚɥɶɧɨɟɨɩɪɟɞɟɥɟɧɢɟɧɟɹɜɥɹɸɳɟɟ ɫɹɪɟɤɭɪɫɢɜɧɵɦ 2) ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɟɩɨɫɬɪɨɟɧɢɟɨɬɧɚɱɚɥɶɧɨɝɨɨɩɪɟɞɟɥɟɧɢɹɞɨɨɩɪɟɞɟɥɟ ɧɢɹɫɜɜɟɞɟɧɧɵɦɜɚɥɝɨɪɢɬɦɡɧɚɱɟɧɢɟɦ Ɋɚɫɫɦɨɬɪɢɦɩɪɢɦɟɪɵɪɟɤɭɪɫɢɜɧɵɯɚɥɝɨɪɢɬɦɨɜɱɚɫɬɨɨɮɨɪɦɥɹɟɦɵɯɜɜɢ ɞɟɩɪɨɰɟɞɭɪɢɮɭɧɤɰɢɣ  ɇɚɢɛɨɥɟɟ ɪɚɫɩɪɨɫɬɪɚɧɟɧɧɵɦ ɪɟɤɭɪɫɢɜɧɵɦ ɨɩɪɟɞɟɥɟɧɢɟɦ ɹɜɥɹɟɬɫɹ ɨɩɪɟɞɟɥɟɧɢɟ ɮɚɤɬɨɪɢɚɥɚ ɧɟɪɟɤɭɪɫɢɜɧɨɟ ɜɵɱɢɫɥɟɧɢɟ ɮɚɤɬɨɪɢɚɥɚ ɩɪɢɜɟɞɟɧɨ ɜ ɩɪɢɦɟɪɟȿ  D   E Q!Q Q  Q-   197
ɇɚ ɨɫɧɨɜɟ ɷɬɨɝɨ ɨɩɪɟɞɟɥɟɧɢɹ ɦɨɠɧɨ ɡɚɩɢɫɚɬɶ ɩɪɨɝɪɚɦɦɭ ɜɵɱɢɫɥɟɧɢɹ ɮɚɤɬɨɪɢɚɥɚɢɫɩɨɥɶɡɭɸɳɭɸɪɟɤɭɪɫɢɜɧɭɸɮɭɧɤɰɢɸ program E42 var Q\integer; function ) [integer  integer^ɨɩɢɫɚɧɢɟ ɪɟɤɭɪɫɢɜɧɨɣ ɮɭɧɤɰɢɢ ` begin if [  then ) ^ɜɵɡɨɜɞɥɹɧɚɱɚɥɶɧɨɝɨɨɩɪɟɞɟɥɟɧɢɹ` else ) [ ) [-  ^ɜɵɡɨɜɞɥɹɩɪɟɞɵɞɭɳɟɝɨɨɩɪɟɞɟɥɟɧɢɹ` end^ɤɨɧɟɰɨɩɢɫɚɧɢɹɮɭɧɤɰɢɢ` begin ^ɧɚɱɚɥɨɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` readln Q  < ) Q ^ɜɵɡɨɜɮɭɧɤɰɢɢɜɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɟ` write µQ µ< end^ɤɨɧɟɰɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` ȼɵɩɨɥɧɢɦɩɪɨɝɪɚɦɦɭȿ ɞɥɹn Ɋɟɤɭɪɫɢɜɧɚɹɮɭɧɤɰɢɹɛɭɞɟɬɪɚɛɨɬɚɬɶ ɫɥɟɞɭɸɳɢɦ ɨɛɪɚɡɨɦ (ɩɪɢ ɜɵɡɨɜɟ ɮɭɧɤɰɢɢ ɡɧɚɱɟɧɢɟ n ɛɭɞɟɬ ɩɪɢɫɜɨɟɧɨ ɩɟɪɟ ɦɟɧɧɨɣɯ ɋɧɚɱɚɥɚɨɫɭɳɟɫɬɜɥɹɟɬɫɹ©ɩɨɝɪɭɠɟɧɢɟªɪɚɛɨɬɚɟɬɨɩɟɪɚɬɨɪɜɟɬɜɢelse ɭɫɥɨɜɧɨɝɨɨɩɟɪɚɬɨɪɚ 1-ɣ ɲɚɝ   [     [ -    ɜɵɩɨɥɧɹɟɬɫɹ ɩɪɨɦɟɠɭɬɨɱɧɨɟ ɜɵɱɢɫɥɟɧɢɟ    2-ɣ ɲɚɝ    ɯ     ɯ -    ɜɵɩɨɥɧɹɟɬɫɹ ɩɪɨɦɟɠɭɬɨɱɧɨɟ ɜɵɱɢɫɥɟɧɢɟ    3-ɣ ɲɚɝ    ɯ     ɯ -    ɜɵɩɨɥɧɹɟɬɫɹ ɩɪɨɦɟɠɭɬɨɱɧɨɟ ɜɵɱɢɫɥɟɧɢɟ 2    4-ɣɲɚɝ ɩɨɫɥɟɞɧɢɣ  ɩɨɧɚɱɚɥɶɧɨɦɭɨɩɪɟɞɟɥɟɧɢɸɪɚɛɨɬɚɟɬɨɩɟɪɚ ɬɨɪ) ɜɟɬɜɢWKHQɭɫɥɨɜɧɨɝɨɨɩɟɪɚɬɨɪɚ ɋɥɟɞɭɸɳɢɣ ɷɬɚɩ ɜɵɩɨɥɧɟɧɢɹ ɪɟɤɭɪɫɢɜɧɨɝɨ ɚɥɝɨɪɢɬɦɚ – ɩɨɫɬɪɨɟɧɢɟ «ɩɪɹɦɨɝɨª ɨɩɪɟɞɟɥɟɧɢɹ ɨɬ ɧɚɱɚɥɶɧɨɝɨ ɞɨ ɩɨɥɭɱɟɧɢɹ ɪɟɡɭɥɶɬɚɬɚ ɫ ɢɫɯɨɞɧɵɦɢ ɞɥɹ ɚɥɝɨɪɢɬɦɚ ɞɚɧɧɵɦɢ ɱɢɫɥɨɦ   ɉɪɢ ɷɬɨɦ ɨɫɭɳɟɫɬɜɥɹɟɬɫɹ ɩɨɞɫɬɚɧɨɜɤɚ ɩɪɟɞɵɞɭɳɢɯɜɵɱɢɫɥɟɧɢɣ ɛɨɥɟɟɩɨɡɞɧɢɯɲɚɝɨɜ ɜɛɨɥɟɟɪɚɧɧɢɟ 5-ɣɲɚɝ    6-ɣɲɚɝ    7-ɣɲɚɝ   – ɩɨɥɭɱɟɧɪɟɡɭɥɶɬɚɬɨɧɜɨɡɜɪɚɳɚɟɬɫɹɜɝɥɚɜɧɭɸ ɩɪɨɝɪɚɦɦɭɢɩɪɢɫɜɚɢɜɚɟɬɫɹɩɟɪɟɦɟɧɧɨɣ<  ȼɵɱɢɫɥɟɧɢɟ ɫɬɟɩɟɧɢ ɫ ɧɚɬɭɪɚɥɶɧɵɦ ɩɨɤɚɡɚɬɟɥɟɦ ɦɨɠɧɨ ɨɩɪɟɞɟɥɢɬɶ ɪɟɤɭɪɫɢɜɧɨ (a) x0  E N![k [ [k-1 198
ɗɬɨɦɭ ɨɩɪɟɞɟɥɟɧɢɸ ɫɨɨɬɜɟɬɫɬɜɭɟɬ ɪɟɤɭɪɫɢɜɧɚɹ ɮɭɧɤɰɢɹ SRZHU  N [  ɉɪɨɝɪɚɦɦɚ ɢɦɟɟɬ ɜɢɞ program E43 var \realQinteger function SRZHU Ninteger [real  real^ɨɩɢɫɚɧɢɟ ɪɟɤɭɪɫɢɜɧɨɣ ɮɭɧɤ ɰɢɢ` begin if N  then SRZHU ^ɧɚɱɚɥɶɧɨɟɨɩɪɟɞɟɥɟɧɢɟ` else SRZHU [ SRZHU N- [ ^ɪɟɤɭɪɫɢɜɧɨɟɨɩɪɟɞɟɥɟɧɢɟ` end; ^ɤɨɧɟɰɨɩɢɫɚɧɢɹɮɭɧɤɰɢɢ` begin ^ɧɚɱɚɥɨɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ` write µRFɧɨɜɚɧɢɟɫɬɟɩɟɧɢɯ µ  readln \  write µɩɨɤɚɡɚɬɟɥɶɫɬɟɩɟɧɢN µ  readln Q  write µ [ ɜ ɫɬɟɩɟɧɢ  N µ SRZHU  Q \  ^ ɜɵɡɨɜ ɮɭɧɤɰɢɢ ɢ ɩɟɱɚɬɶ ɪɟ ɡɭɥɶɬɚɬɚ` HQG ^ɤɨɧɟɰɝɥɚɜɧɨɣɩɪɨɝɪɚɦɦɵ`  ȼɵɱɢɫɥɟɧɢɟ ɱɢɫɟɥ Ɏɢɛɨɧɚɱɱɢ ɂɬɚɥɶɹɧɫɤɢɣ ɦɚɬɟɦɚɬɢɤ Ɏɢɛɨɧɚɱɱɢ ɩɪɢɞɭɦɚɥɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɧɚɬɭɪɚɥɶɧɵɯɱɢɫɟɥɉɟɪɜɵɟ ɞɜɚ ɱɥɟɧɚ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢ ɪɚɜɧɵ ɟɞɢɧɢɰɟ ɚ ɤɚɠɞɵɣ ɧɚɱɢɧɚɹ ɫ ɬɪɟɬɶɟɝɨ ɪɚɜɟɧɫɭɦɦɟɞɜɭɯɩɪɟɞɵɞɭɳɢɯȾɥɹɱɢɫɟɥɎɢɛɨɧɚɱɱɢɜɟɪɧɨɫɨɨɬɧɨɲɟɧɢɟ FN )k-1)k-  Ɋɟɤɭɪɫɢɜɧɚɹɩɪɨɰɟɞɭɪɚɩɨɥɭɱɟɧɢɹɡɧɚɱɟɧɢɹn-ɝɨɱɢɫɥɚɎɢɛɨɧɚɱɱɢɢɦɟɟɬ ɜɢɞ function )LE Q integer integer begin if k < 3 then )LE  else )LE )LE Q-  )LE Q- 2 ) end; Ⱦɥɹ ɱɢɫɟɥ Ɏɢɛɨɧɚɱɱɢ ɢɫɩɨɥɶɡɭɟɬɫɹ ɫɥɟɞɭɸɳɟɟ ɪɟɤɭɪɫɢɜɧɨɟ ɨɩɪɟɞɟɥɟ ɧɢɟ D Q Q ILE Q   E Q!ILE Q  ILE Q-  ILE Q- 1) 199
ȾɥɹɬɨɝɨɱɬɨɛɵɨɩɪɟɞɟɥɢɬɶILE  ɩɪɢɦɟɧɹɹɞɚɧɧɨɟɪɟɤɭɪɫɢɜɧɨɟɨɩɪɟɞɟ ɥɟɧɢɟɧɚɞɨɜɵɱɢɫɥɢɬɶ ILE   ILE  ILE   ILE  ILE  ILE   ILE  ILE   ILE  ILE  ILE  ILE   ILE  ILE   ILE  ILE  ILE   ILE   ILE  ILE   ILE  ILE     Ʉɨɥɢɱɟɫɬɜɨɞɟɣɫɬɜɢɣɜɞɚɧɧɵɯɜɵɱɢɫɥɟɧɢɹɩɪɢɢɫɩɨɥɶɡɨɜɚɧɢɢɪɟɤɭɪɫɢɜ ɧɨɝɨɨɩɪɟɞɟɥɟɧɢɹɱɢɫɟɥɎɢɛɨɧɚɱɱɢɪɟɡɤɨɜɨɡɪɚɫɬɚɟɬɩɨɬɨɦɭɱɬɨɷɬɨɨɩɪɟɞɟɥɟ ɧɢɟ ɫɫɵɥɚɟɬɫɹ ɫɚɦɨ ɧɚ ɫɟɛɹ ɞɜɚɠɞɵ ɉɪɢ ɜɵɱɢɫɥɟɧɢɢ ɮɚɤɬɨɪɢɚɥɚ ɤɨɥɢɱɟɫɬɜɨ ɞɟɣɫɬɜɢɣ ɩɪɢ ɜɵɩɨɥɧɟɧɢɢ ɩɪɨɝɪɚɦɦɵ ɫ ɪɟɤɭɪɫɢɜɧɨɣ ɮɭɧɤɰɢɟɣ ɢ ɩɪɢɦɟɪɚ ȿ ɨɞɢɧɚɤɨɜɨ  Ɋɟɤɭɪɫɢɜɧɵɟ ɚɥɝɨɪɢɬɦɵ ɦɨɝɭɬ ɛɵɬɶ ɨɮɨɪɦɥɟɧɵ ɢ ɜ ɜɢɞɟ ɩɪɨɰɟɞɭɪ ɉɪɢɦɟɪɨɦɬɚɤɨɣɩɪɨɰɟɞɭɪɵɹɜɥɹɟɬɫɹɪɟɲɟɧɢɟɡɚɞɚɱɢɨɏɚɧɨɣɫɤɢɯɛɚɲɧɹɯ. Ɋɢɫ14 ɏɚɧɨɣɫɤɢɟɛɚɲɧɢ ɗɬɚ ɡɚɞɚɱɚ ɫɜɹɡɚɧɚ ɫ ɥɟɝɟɧɞɨɣ ɨ ɬɨɦ ɱɬɨ ɜ ɨɞɧɨɦ ɢɡ ɜɨɫɬɨɱɧɵɯ ɯɪɚɦɨɜ ɧɚɯɨɞɢɬɫɹɛɪɨɧɡɨɜɚɹɩɥɢɬɚɫɬɪɟɦɹɚɥɦɚɡɧɵɦɢɫɬɟɪɠɧɹɦɢɇɚɨɞɢɧɢɡɧɢɯȻɨɝ ɩɪɢɫɨɬɜɨɪɟɧɢɢɦɢɪɚɧɚɧɢɡɚɥɞɢɫɤɚɢɡɱɢɫɬɨɝɨɡɨɥɨɬɚɬɚɤɤɚɤɩɨɤɚɡɚɧɨɧɚ ɪɢɫ 14ɀɪɟɰɵɞɨɥɠɧɵɩɟɪɟɧɨɫɢɬɶɞɢɫɤɢɫɨɞɧɨɝɨɫɬɟɪɠɧɹɧɚ ɞɪɭɝɨɣɫɥɟɞɭɹ ɫɥɟɞɭɸɳɢɦɡɚɤɨɧɚɦ  ɞɢɫɤɢɦɨɠɧɨɩɟɪɟɦɟɳɚɬɶɬɨɥɶɤɨɩɨɨɞɧɨɦɭ  ɧɟɥɶɡɹɤɥɚɫɬɶɛɨɥɶɲɢɣɞɢɫɤɧɚɦɟɧɶɲɢɣ 200
ɋɨɝɥɚɫɧɨɥɟɝɟɧɞɟɤɨɝɞɚɜɫɟɞɢɫɤɢɛɭɞɭɬɩɟɪɟɧɟɫɟɧɵɫɨɞɧɨɝɨɫɬɟɪɠɧɹɧɚ ɞɪɭɝɨɣɧɚɫɬɭɩɢɬɤɨɧɟɰɫɜɟɬɚ Ɋɟɲɟɧɢɟ ɷɬɨɣ ɡɚɞɚɱɢ ɪɟɚɥɢɡɨɜɚɧɨ ɜ ɜɢɞɟ ɪɟɤɭɪɫɢɜɧɨɝɨ ɚɥɝɨɪɢɬɦɚ ɤɨɬɨ ɪɵɣ ɩɪɟɞɫɬɚɜɥɹɟɬ ɫɨɛɨɣ ɢɧɫɬɪɭɤɰɢɸ ɩɨ ɩɟɪɟɦɟɳɟɧɢɸ ɞɢɫɤɨɜ ɋɮɨɪɦɭɥɢɪɭɟɦ ɡɚɞɚɱɭɩɪɢɫɜɨɢɜɢɦɟɧɚɫɬɟɪɠɧɹɦ Ⱥȼ ɋ ɢɧɨɦɟɪɚɞɢɫɤɚɦ ɨɬɞɨn ɇɚɞɨ ɩɟɪɟɧɟɫɬɢ ɞɢɫɤɢ ɫɨ ɫɬɟɪɠɧɹ Ⱥ ɧɚ ɫɬɟɪɠɟɧɶ ɋ ɢɫɩɨɥɶɡɭɹ ȼ ɤɚɤ ɜɫɩɨɦɨɝɚɬɟɥɶ ɧɵɣɢɫɥɟɞɭɹɩɪɢɜɟɞɟɧɧɵɦɜɵɲɟɩɪɚɜɢɥɚɦɩɟɪɟɧɨɫɚɞɢɫɤɨɜ Ⱥɥɝɨɪɢɬɦɧɚɟɫɬɟɫɬɜɟɧɧɨɦɹɡɵɤɟɢɦɟɟɬɜɢɞ ȿɫɥɢn ɨɫɬɚɧɨɜɢɬɶɫɹ ɉɟɪɟɦɟɫɬɢɬɶɜɟɪɯɧɢɟn - ɞɢɫɤɨɜɫɨɫɬɟɪɠɧɹȺɧɚɫɬɟɪɠɟɧɶȼɢɫɩɨɥɶ ɡɭɹɫɬɟɪɠɟɧɶɋɤɚɤɜɫɩɨɦɨɝɚɬɟɥɶɧɵɣ ɉɟɪɟɦɟɫɬɢɬɶɨɫɬɚɜɲɢɣɫɹɞɢɫɤɫɨɫɬɟɪɠɧɹȺɧɚɋ ɉɟɪɟɦɟɫɬɢɬɶn - ɞɢɫɤɨɜɫɨɫɬɟɪɠɧɹȼɧɚɫɬɟɪɠɟɧɶɋɢɫɩɨɥɶɡɭɹɫɬɟɪ ɠɟɧɶȺɤɚɤɜɫɩɨɦɨɝɚɬɟɥɶɧɵɣ program E44 var N integer procedure +DQR\ Qinteger2QH7ZR7KUHHchar  begin if Q! then begin +DQR\ Q-2QH7KUHH7ZR  write µɩɟɪɟɦɟɫɬɢɬɶɞɢɫɤµQµɫɨɫɬɟɪɠɧɹµ2QHµɧɚɫɬɟɪɠɟɧɶµ 7ZR  +DQR\ Q- 7ZR2QH7KUHH end; end; begin write µɜɜɟɞɢɬɟɤɨɥɢɱɟɫɬɜɨɞɢɫɤɨɜ¶  readln N  +DQR\ Nµ$¶µ%¶µ&¶ HQG Ɋɟɡɭɥɶɬɚɬ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ ɞɥɹ n   – ɷɬɨ ɢɧɫɬɪɭɤɰɢɹ ɢɡ  ɩɭɧɤɬɨɜ (Q  – ɢɧɫɬɪɭɤɰɢɹɢɡɩɭɧɤɬɨɜ  ɩɟɪɟɦɟɫɬɢɬɶɞɢɫɤɫɨɫɬɟɪɠɧɹȺɧɚɫɬɟɪɠɟɧɶɋ ɩɟɪɟɦɟɫɬɢɬɶɞɢɫɤɫɨɫɬɟɪɠɧɹȺɧɚɫɬɟɪɠɟɧɶȼ ɩɟɪɟɦɟɫɬɢɬɶɞɢɫɤ ɫɨɫɬɟɪɠɧɹɋɧɚɫɬɟɪɠɟɧɶȼ ɩɟɪɟɦɟɫɬɢɬɶɞɢɫɤɫɨɫɬɟɪɠɧɹȺɧɚɫɬɟɪɠɟɧɶɋ ɩɟɪɟɦɟɫɬɢɬɶɞɢɫɤɫɨɫɬɟɪɠɧɹȼɧɚɫɬɟɪɠɟɧɶȺ ɩɟɪɟɦɟɫɬɢɬɶɞɢɫɤɫɨɫɬɟɪɠɧɹȼɧɚɫɬɟɪɠɟɧɶɋ ɩɟɪɟɦɟɫɬɢɬɶɞɢɫɤɫɨɫɬɟɪɠɧɹȺɧɚɫɬɟɪɠɟɧɶɋ 201
ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ ɑɬɨɬɚɤɨɟɪɟɤɭɪɫɢɜɧɵɣɨɛɴɟɤɬ ɢɤɚɤɨɜɵɟɝɨɫɜɨɣɫɬɜɚ" ɉɪɢɜɟɞɢɬɟɩɪɢɦɟɪɵɪɟɤɭɪɫɢɜɧɨɝɨɨɩɪɟɞɟɥɟɧɢɹɜɦɚɬɟɦɚɬɢɤɟ ɑɬɨɬɚɤɨɟɪɟɤɭɪɫɢɹ" Ʉɚɤɜɵɩɨɥɧɹɟɬɫɹɪɟɤɭɪɫɢɜɧɵɣɚɥɝɨɪɢɬɦ"  ɉɨɹɫɧɢɬɟ ɜɵɩɨɥɧɟɧɢɹ ɪɟɤɭɪɫɢɜɧɨɣ ɮɭɧɤɰɢɢ ɜɵɱɢɫɥɟɧɢɹ ɫɬɟɩɟɧɢ ɫ ɧɚɬɭɪɚɥɶɧɵɦɩɨɤɚɡɚɬɟɥɟɦ 6. ɇɚɩɢɲɢɬɟɝɥɚɜɧɭɸɩɪɨɝɪɚɦɦɭɞɥɹɜɵɱɢɫɥɟɧɢɹn - ɝɨɱɢɫɥɚɎɢɛɨɧɚɱɱɢ  ɉɨɱɟɦɭ ɢɫɩɨɥɶɡɨɜɚɬɶ ɪɟɤɭɪɫɢɜɧɵɣ ɚɥɝɨɪɢɬɦ ɜɵɱɢɫɥɟɧɢɹ n - ɝɨ ɱɢɫɥɚ Ɏɢɛɨɧɚɱɱɢɧɟɜɵɝɨɞɧɨ" ɇɚɩɢɲɢɬɟɧɟɪɟɤɭɪɫɢɜɧɭɸɩɪɨɝɪɚɦɦɭɜɵɱɢɫɥɟɧɢɹn - ɝɨɱɢɫɥɚɎɢɛɨɧɚ ɱɱɢɢɫɩɨɥɶɡɭɹɬɪɢɩɟɪɟɦɟɧɧɵɟ. Ɉɩɪɟɞɟɥɢɬɟɪɟɤɭɪɫɢɜɧɨɭɦɧɨɠɟɧɢɟɤɚɤɫɥɨɠɟɧɢɟɢɞɟɥɟɧɢɟɤɚɤɜɵɱɢ ɬɚɧɢɟɢɨɮɨɪɦɢɬɟɚɥɝɨɪɢɬɦɵɜɜɢɞɟɪɟɤɭɪɫɢɜɧɵɯɮɭɧɤɰɢɣɫɜɵɡɨɜɨɦɢɡɝɥɚɜ ɧɵɯɩɪɨɝɪɚɦɦ 202
Ɍɟɦɚ 11 ȾɂɇȺɆɂɑȿɋɄɂȿɋɌɊɍɄɌɍɊɕ ȾȺɇɇɕɏ ɋɫɵɥɤɢ ȼɫɸɩɚɦɹɬɶɤɨɦɩɶɸɬɟɪɚɦɨɠɧɨɭɫɥɨɜɧɨɪɚɡɞɟɥɢɬɶɧɚɬɪɢɱɚɫɬɢ ɜɩɟɪɜɨɣɧɚɯɨɞɹɬɫɹɫɥɭɠɟɛɧɵɟɩɪɨɝɪɚɦɦɵɜɨɜɬɨɪɨɣ– ɩɪɨɝɪɚɦɦɚɩɨɥɶɡɨɜɚɬɟ ɥɹɝɨɬɨɜɚɹɤɜɵɩɨɥɧɟɧɢɸɢɟɟɞɚɧɧɵɟɚɬɪɟɬɶɹ– ɫɜɨɛɨɞɧɚɹɨɛɥɚɫɬɶɉɪɨɝɪɚɦ ɦɚ ɩɨɥɶɡɨɜɚɬɟɥɹ ɜɫɟɝɞɚ ɪɚɫɩɨɥɚɝɚɟɬɫɹ ɫ ɮɢɤɫɢɪɨɜɚɧɧɨɝɨ ɚɞɪɟɫɚ ɩɚɦɹɬɢ ɞɚɧɧɵɟ – ɫɥɟɞɨɦ ɡɚ ɩɪɨɝɪɚɦɦɨɣ ɉɨɷɬɨɦɭ ɫɜɨɛɨɞɧɚɹ ɨɛɥɚɫɬɶ ɩɚɦɹɬɢ ɦɨɠɟɬ ɛɵɬɶ ɪɚɡɧɨɝɨɪɚɡɦɟɪɚ ɉɚɦɹɬɶ ɡɚɧɢɦɚɟɦɚɹ ɩɪɨɝɪɚɦɦɨɣ ɢ ɞɚɧɧɵɦɢ ɧɚɡɵɜɚɟɬɫɹ ɫɬɚɬɢɱɟɫɤɨɣ ɟɟ ɪɚɡɦɟɪ ɢɡɜɟɫɬɟɧ ɬɪɚɧɫɥɹɬɨɪɭ ɞɨ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɋɜɨɛɨɞɧɚɹ ɨɛɥɚɫɬɶ ɩɚɦɹɬɢ ɧɚɡɵɜɚɟɬɫɹ ɞɢɧɚɦɢɱɟɫɤɨɣ ɨɧɚ ɫɥɭɠɢɬ ɞɥɹ ɪɚɫɩɨɥɨɠɟɧɢɹ ɞɚɧɧɵɯ ɢ ɫɥɨɠɧɵɯɫɬɪɭɤɬɭɪɫɨɡɞɚɜɚɟɦɵɯɜɩɪɨɰɟɫɫɟɜɵɩɨɥɧɟɧɢɹɩɪɨɝɪɚɦɦɵ 1 – ̵̨̪̥̯̣̭̣̱̙̖̦̼̪̬̬̥̥̌́̽̔́̍̐̌ •̶̨̨̨̨̨̨̨̛̛̛̛̯̜̪̥̯̬̭̪̣̙̖̦̼̪̬̬̥̥̼̪̖̬̦̦̜̭̭̯̖̥̼̏̾̌́̌̐̌̌ ̡̨̛̛̬̱̖̯̦̼̖̪̬̬̥̥̼̔̐̌̏̐̌ 2 – ̨̨̨̨̡̛̪̬̬̥̥̪̣̯̖̣̦̥̹̦̦̥̼̖͕̐̌̌̽̏̌́̌̌́̚̚ ̨̨̡̨̛̛̯̼̪̣̦̖̦͕̖̖̦̦̼̖̐̏̌́̏̀̔̌ •̨̨̨̨̨̨̛̛̭̖̬̭̪̣̖̯̭̭̦̯̙̖̥̖̭̯̪̥̯̏̐̔̌̌̌̐̌́̔̐̐̌̌́;̬̖̭̌̔̌Ϳ 3 – ̸̵̵̨̨̡̛̛̛̭̦̪̥̯̣̦̥̖̭̦̦̼̏̍̔̌́̌́̽̔́̔̌̔̌ •̸̡̡̨̛̛̛̛̥̖̖̯̬̦̼̜̬̥̖̬̯̙̖̦̼̖̯̭̦̥̖̭̜̪̥̯̌̌̌̌̏̌́̔̌̌́̽̀̚̚̚ Ɋɢɫ 15 ɍɫɥɨɜɧɨɟɪɚɡɞɟɥɟɧɢɟɩɚɦɹɬɢɤɨɦɩɶɸɬɟɪɚ ɢ– ɫɬɚɬɢɱɟɫɤɚɹ – ɞɢɧɚɦɢɱɟɫɤɚɹ Ⱦɥɹ ɢɫɩɨɥɶɡɨɜɚɧɢɹ ɞɢɧɚɦɢɱɟɫɤɨɣ ɩɚɦɹɬɢ ɜ ɉɚɫɤɚɥɟ ɢɦɟɟɬɫɹ ɫɫɵɥɨɱɧɵɣ ɬɢɩɞɚɧɧɵɯ ɋɫɵɥɤɚ – ɷɬɨɚɞɪɟɫɫɜɨɛɨɞɧɨɣɩɚɦɹɬɢɩɨɤɨɬɨɪɨɦɭɦɨɠɧɨɡɚɩɢɫɚɬɶɞɚɧ ɧɨɟɢɥɢɫɬɪɭɤɬɭɪɭɞɚɧɧɵɯ ɡɚɩɢɫɶ ɋɫɵɥɤɚ ɭɤɚɡɚɬɟɥɶ ɪɚɫɩɨɥɨɠɟɧɚɜɨɛɥɚɫɬɢ ɞɚɧɧɵɯɩɪɨɝɪɚɦɦɵɟɟɡɧɚɱɟɧɢɟ– ɚɞɪɟɫȾɚɧɧɨɟɟɝɨɡɧɚɱɟɧɢɟɪɚɫɩɨɥɨɠɟɧɨɜ ɞɢɧɚɦɢɱɟɫɤɨɣɩɚɦɹɬɢ ɉɟɪɟɦɟɧɧɵɟ ɹɜɥɹɸɳɢɟɫɹ ɞɚɧɧɵɦɢ ɫɫɵɥɨɱɧɨɝɨ ɬɢɩɚ ɬɚɤɠɟ ɧɚɡɵɜɚɸɬ ɞɢɧɚɦɢɱɟɫɤɢɦɢɢɥɢɭɤɚɡɚɬɟɥɹɦɢɈɧɢɨɩɢɫɵɜɚɸɬɫɹɜɪɚɡɞɟɥɟɞɚɧɧɵɯtype. 203
Ɉɩɢɫɚɧɢɟ type Z AUHDO ɨɡɧɚɱɚɟɬɱɬɨɬɢɩɞɚɧɧɵɯɫɫɵɥɨɱɧɵɣɟɝɨɢɦɹZ ɢɩɨɚɞɪɟɫɭɤɨɬɨɪɵɣɛɭ ɞɟɬ ɡɧɚɱɟɧɢɟɦ ɞɥɹ ɷɬɨɝɨ ɬɢɩɚ ɞɚɧɧɵɯ ɪɚɫɩɨɥɨɠɟɧ ɮɨɪɦɚɬ ɞɥɹ ɜɟɳɟɫɬɜɟɧɧɨɣ ɩɟɪɟɦɟɧɧɨɣ Ⱦɥɹ ɬɨɝɨ ɱɬɨɛɵ ɷɬɚ ɩɟɪɟɦɟɧɧɚɹ ɩɨɥɭɱɢɥɚ ɡɧɚɱɟɧɢɟ ɧɚɞɨ ɜɨ-ɩɟɪɜɵɯ ɜ ɪɚɡɞɟɥɟɩɟɪɟɦɟɧɧɵɯɞɚɬɶɟɣɢɦɹɧɚɩɪɢɦɟɪɚɜɨ-ɜɬɨɪɵɯɩɨɥɭɱɢɬɶɫɩɨɦɨɳɶɸ ɫɩɟɰɢɚɥɶɧɨɣ ɩɪɨɰɟɞɭɪɵ new ɚ  ɚɞɪɟɫ ɫɜɨɛɨɞɧɨɣ ɨɛɥɚɫɬɢ ɩɚɦɹɬɢ ɷɬɨ ɞɟɥɚɟɬ ɬɪɚɧɫɥɹɬɨɪ ɩɨ ɫɩɟɰɢɚɥɶɧɨɦɭ ɚɥɝɨɪɢɬɦɭ  ɢ ɜ-ɬɪɟɬɶɢɯ ɩɪɢɫɜɨɢɬɶ ɡɧɚɱɟɧɢɟ ɱɬɨɛɵɜɞɢɧɚɦɢɱɟɫɤɨɣɩɚɦɹɬɢɜɨɬɜɟɞɟɧɧɨɦɲɚɛɥɨɧɟɩɨɹɜɢɥɨɫɶɱɢɫɥɨɢɥɢɞɪɭ ɝɚɹɤɨɧɫɬɚɧɬɚ ɡɚɩɢɫɶ  var aZ^Z – ɩɟɪɟɦɟɧɧɚɹɫɫɵɥɨɱɧɨɝɨɬɢɩɚɢɫɩɨɥɶɡɭɟɦɚɹɜɩɪɨ ɝɪɚɦɦɟ` begin QHZ(a      ^ɩɟɪɟɦɟɧɧɚɹ ɚ ɩɨɥɭɱɚɟɬ ɡɧɚɱɟɧɢɟ – ɚɞɪɟɫ ɜ ɫɜɨɛɨɞɧɨɣ ɩɚɦɹɬɢ` aA ^ɡɧɚɤAɨɡɧɚɱɚɟɬɭɤɚɡɚɬɟɥɶɫɫɵɥɤɭɩɨɤɨɬɨɪɨɦɭ ɡɚɩɢɫɚɬɶɡɧɚɱɟɧɢɟ` ZULWH (aA ^ɩɟɱɚɬɚɟɬɡɧɚɱɟɧɢɟɢɡɫɜɨɛɨɞɧɨɣɩɚɦɹɬɢɩɨɭɤɚɡɚɬɟɥɸɚɞɪɟɫɭ` end ɋɭɳɟɫɬɜɭɟɬ ɧɭɥɟɜɚɹ ɫɫɵɥɤɚ nil ɨɧɚ ɡɚɩɢɫɚɧɚ ɜ ɹɱɟɣɤɟ ɞɨ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɰɟɞɭɪɵQHZ a  Ⱦɥɹ ɭɧɢɱɬɨɠɟɧɢɹ ɫɫɵɥɤɢ ɢɦɟɟɬɫɹ ɩɪɨɰɟɞɭɪɚ dispose a  ɨɧɚ ɪɚɡɪɵɜɚɟɬ ɫɜɹɡɶɦɟɠɞɭɚɞɪɟɫɨɦɢɩɟɪɟɦɟɧɧɨɣɤɨɬɨɪɚɹɛɵɥɚɫɮɨɪɦɢɪɨɜɚɧɚɩɨɷɬɨɦɭɚɞɪɟ ɫɭɜɬɨɪɨɣɪɚɡɨɞɢɧɢɬɨɬɠɟɚɞɪɟɫɧɟɜɵɞɚɟɬɫɹɬɟ ɩɪɨɰɟɞɭɪɚQHZ a ɤɚɠɞɵɣ ɪɚɡɝɟɧɟɪɢɪɭɟɬɧɨɜɭɸɫɫɵɥɤɭ. Ɋɢɫ 16 ɋɜɹɡɶɦɟɠɞɭɩɟɪɟɦɟɧɧɨɣɫɫɵɥɨɱɧɨɝɨɬɢɩɚ ɢɩɟɪɟɦɟɧɧɨɣɜɞɢɧɚɦɢɱɟɫɤɨɣɩɚɦɹɬɢ ɊɚɫɫɦɨɬɪɢɦɩɪɢɦɟɪɩɪɨɝɪɚɦɦɵɌɢɩw – ɫɫɵɥɨɱɧɵɣɷɬɨɢɦɹɬɢɩɚɜɪɚɡ ɞɟɥɟtype, ɫɫɵɥɤɚɧɚɜɟɳɟɫɬɜɟɧɧɭɸɩɟɪɟɦɟɧɧɭɸȼɪɚɡɞɟɥɟɩɟɪɟɦɟɧɧɵɯɞɜɟɩɟ ɪɟɦɟɧɧɵɯa ɢb – ɞɥɹɧɢɯɬɪɚɧɫɥɹɬɨɪɪɟɡɟɪɜɢɪɭɟɬɦɟɫɬɨɜɩɚɦɹɬɢɞɥɹɞɚɧɧɵɯ ɪɚɫɩɨɥɨɠɟɧɧɨɣ ɫɪɚɡɭ ɡɚ ɬɟɤɫɬɨɦ ɩɪɨɝɪɚɦɦɵ ɧɚ ɦɚɲɢɧɧɨɦ ɹɡɵɤɟ ɜ ɫɬɚɬɢɱɧɨɣ ɨɛɥɚɫɬɢɪɢɫ 15 ɉɪɨɰɟɞɭɪɵnew(a new(E ɩɨɥɭɱɚɸɬɚɞɪɟɫɚɫɜɨɛɨɞɧɨɣɩɚ ɦɹɬɢɢɩɨɦɟɳɚɸɬɢɯɜɹɱɟɣɤɢɫɢɦɟɧɚɦɢɚɢEDAɢEAí ɷɬɨɢɦɟɧɚɜɫɜɨɛɨɞɧɨɣ ɩɚɦɹɬɢɩɟɪɟɦɟɧɧɵɟɬɢɩɚrealɈɧɢɩɨɥɭɱɚɸɬɡɧɚɱɟɧɢɹɢɭɱɚɫɬɜɭɸɬɜɨɩɟɪɚɬɨ 204
ɪɟɩɪɢɫɜɚɢɜɚɧɢɹɩɪɢɪɚɫɩɟɱɚɬɵɜɚɧɢɢɨɧɢɦɨɝɭɬɬɚɤɠɟɛɵɬɶɨɬɮɨɪɦɚɬɢɪɨɜɚɧɵ ɋɫɵɥɤɢɦɨɠɧɨɩɪɢɫɜɚɢɜɚɬɶɞɪɭɝɞɪɭɝɭɤɚɤɜɨɩɟɪɚɬɨɪɟE aɩɨɫɥɟɟɝɨɫɪɚɛɚ ɬɵɜɚɧɢɹɨɛɟɫɫɵɥɤɢɩɨɤɚɡɵɜɚɸɬɧɚɨɞɧɨɢɬɨɠɟɦɟɫɬɨɞɢɧɚɦɢɱɟɫɤɨɣɩɚɦɹɬɢ ɬ ɟ ɤɭɞɚ ɭɤɚɡɵɜɚɥɚ ɫɫɵɥɤɚ ɚ ɱɢɫɥɨ   Ɋɟɡɭɥɶɬɚɬ ɩɨɥɭɱɟɧɧɵɣ ɨɩɟɪɚɬɨɪɨɦ EA aA ɱɢɫɥɨ ɭɬɟɪɹɧɢɧɟɞɨɫɬɭɩɟɧɞɥɹɞɚɥɶɧɟɣɲɟɣɪɚɛɨɬɵɩɨɫɤɨɥɶɤɭ ɟɫɥɢɫɧɨɜɚɧɚɩɢɫɚɬɶnew(E ɷɬɨɛɭɞɟɬɭɠɟɞɪɭɝɨɣɚɞɪɟɫ program E45 type Z Areal var DE Z begin new D new E  DA  EA DA write DAEA  writeln E D write DAEA  readln end. Ɉɞɧɚ ɫɫɵɥɤɚ ɦɨɠɟɬ ɭɤɚɡɵɜɚɬɶ ɧɚ ɞɪɭɝɭɸ Ɇɨɞɢɮɢɰɢɪɭɟɦ ɩɪɨɝɪɚɦɦɭ ɜɜɟɞɟɦɬɢɩɞɚɧɧɵɯɫɫɵɥɨɱɧɵɣɫɢɦɟɧɟɦv ɢɫɨɨɬɜɟɬɫɬɜɭɸɳɭɸɩɟɪɟɦɟɧɧɭɸɫ ɜ ɩɪɨɝɪɚɦɦɟ program E46 type Z ArealY AZ var DEZFY begin new D new E new F  DA  EA DA write DAEA  writeln FA E E D write DAEAFAA  readln end. ɉɟɪɟɦɟɧɧɚɹ ɫA í ɷɬɨ ɫɫɵɥɤɚ ɧɚ ɫɫɵɥɤɭ E ɱɬɨɛɵ ©ɞɨɛɪɚɬɶɫɹª ɞɨ ɱɢɫɥɚ ɧɚɞɨɡɚɩɢɫɚɬɶɢɦɹcAAɉɨɥɭɱɚɟɦ ɫ ɚɞɪɟɫɜɞɢɧɚɦɢɱɟɫɤɨɣɩɚɦɹɬɢ Æ cA ɞɪɭɝɨɣɚɞɪɟɫ ɜɞɢɧɚɦɢɱɟɫɤɨɣɩɚɦɹɬɢ Æ cAA ɱɢɫɥɨ 205
ɑɚɫɬɨɫɫɵɥɤɢɜɩɪɨɝɪɚɦɦɟɢɦɟɸɬɢɦɟɧɚp ɨɬɫɥɨɜɚSRLQWHU – ɭɤɚɡɚɬɟɥɶ ɢ qɊɚɫɫɦɨɬɪɢɦɩɪɢɦɟɪɇɚɪɢɫ 17 ɩɨɤɚɡɚɧɚɪɚɛɨɬɚɩɪɨɝɪɚɦɦɵE47. program E47 type SLQW Ainteger var LintegerSTSLQW begin new S new T  L  SA  TA SA-L L L SA TAL T S write TA  readln end Ɋɢɫ 17 Ɋɚɛɨɬɚɩɪɨɝɪɚɦɦɵ( ɋɩɢɫɤɢ Ɉɫɧɨɜɧɨɣɫɬɪɭɤɬɭɪɨɣɫɨɡɞɚɜɚɟɦɨɣɜɞɢɧɚɦɢɱɟɫɤɨɣɩɚɦɹɬɢ ɹɜ ɥɹɟɬɫɹɫɩɢɫɨɤ ɋɩɢɫɨɤ– ɷɬɨɫɨɜɨɤɭɩɧɨɫɬɶɨɛɴɟɤɬɨɜɭɩɨɪɹɞɨɱɟɧɧɵɯɫɩɨɦɨɳɶɸɫɫɵɥɨɤ ɋɩɢɫɨɤ ɫɨɫɬɨɢɬ ɢɡ ɡɚɩɢɫɟɣ ɨɞɧɨ ɢɡ ɩɨɥɟɣ ɤɨɬɨɪɨɝɨ ɫɫɵɥɨɱɧɨɝɨ ɬɢɩɚ ɢ ɫɨɞɟɪɠɢɬɫɫɵɥɤɭɧɚɫɥɟɞɭɸɳɢɣɡɚɧɢɦɷɥɟɦɟɧɬɉɨɫɥɟɞɧɢɣɷɥɟɦɟɧɬɫɨɞɟɪɠɢɬ ɧɭɥɟɜɭɸɫɫɵɥɤɭQLOɇɚɤɚɠɞɵɣɷɥɟɦɟɧɬɫɩɢɫɤɚɤɪɨɦɟɩɟɪɜɨɝɨɢɦɟɟɬɫɹɫɫɵɥɤɚ ɬɨɥɶɤɨɨɬɨɞɧɨɝɨɷɥɟɦɟɧɬɚ– ɩɪɟɞɲɟɫɬɜɭɸɳɟɝɨȼɦɟɫɬɟɫɤɚɠɞɵɦɫɩɢɫɤɨɦɪɚɫ ɫɦɚɬɪɢɜɚɟɬɫɹ ɩɟɪɟɦɟɧɧɚɹ ɡɧɚɱɟɧɢɟ ɤɨɬɨɪɨɣ ɹɜɥɹɟɬɫɹ ɫɫɵɥɤɚ ɧɚ ɩɟɪɜɵɣ ɷɥɟ ɦɟɧɬ ɫɩɢɫɤɚ ȿɫɥɢ ɫɩɢɫɨɤ ɩɭɫɬɨɣ ɬɨ ɡɧɚɱɟɧɢɟ ɷɬɨɣ ɩɟɪɟɦɟɧɧɨɣ QLO ȿɫɥɢ ɷɬɭ ɫɫɵɥɤɭɭɧɢɱɬɨɠɢɬɶɬɨɬɟɪɹɟɬɫɹɞɨɫɬɭɩɤɨɜɫɟɦɭɫɩɢɫɤɭ 206
Ⱦɥɹɨɩɢɫɚɧɢɹɫɩɢɫɤɚɜɪɚɡɞɟɥɟtype ɫɧɚɱɚɥɚɧɚɞɨɨɩɢɫɚɬɶɫɫɵɥɤɭɧɚɷɥɟ ɦɟɧɬɫɩɢɫɤɚ– ɡɚɩɢɫɶɚɡɚɬɟɦɫɚɦɭɡɚɩɢɫɶɤɨɬɨɪɚɹɫɨɫɬɨɢɬɦɢɧɢɦɚɥɶɧɨɢɡɞɜɭɯ ɩɨɥɟɣ – ɢɧɮɨɪɦɚɰɢɨɧɧɨɝɨ ɢ ɫɫɵɥɨɱɧɨɝɨ ȼ ɫɥɟɞɭɸɳɢɯ ɩɪɢɦɟɪɚɯ ɢɧɮɨɪɦɚɰɢ ɨɧɧɨɟɩɨɥɟɧɚɡɨɜɟɦinfɚɫɫɵɥɨɱɧɨɟ– sled. Ɋɚɫɫɦɨɬɪɢɦ ɩɪɢɦɟɪ ɩɨɫɬɪɨɟɧɢɹ ɫɩɢɫɤɚ ɢɡ ɬɪɟɯ ɷɥɟɦɟɧɬɨɜ ɱɢɫɟɥ    –8. Ⱦɥɹɟɝɨɫɨɡɞɚɧɢɹɩɨɬɪɟɛɭɟɬɫɹɞɜɟɫɫɵɥɤɢp ɢq. ɋɫɵɥɤɚɪ ɜɫɟɝɞɚɛɭɞɟɬɩɨɤɚ ɡɵɜɚɬɶɧɚɩɟɪɜɵɣɷɥɟɦɟɧɬɫɩɢɫɤɚq – ɞɥɹɜɵɞɟɥɟɧɢɹɦɟɫɬɚɜɩɚɦɹɬɢɞɥɹɧɨɜɨɝɨ ɷɥɟɦɟɧɬɚɋɩɢɫɨɤɧɚɱɢɧɚɟɬɫɨɡɞɚɜɚɬɶɫɹɫɩɨɫɥɟɞɧɟɝɨɷɥɟɦɟɧɬɚ–8. type SRLQW AHOHP HOHP record LQIinteger VOHGSRLQW end var STSRLQW Ɋɢɫ 18 ɋɩɢɫɨɤɫɭɤɚɡɚɬɟɥɟɦɧɚɩɟɪɜɵɣɷɥɟɦɟɧɬɪ ɇɚɪɢɫ18 ɩɨɤɚɡɚɧɫɩɢɫɨɤɫɨɫɬɨɹɳɢɣɢɡɡɚɩɢɫɟɣɄɚɠɞɚɹɡɚɩɢɫɶɫɨɫɬɨɢɬ ɢɡɞɜɭɯɩɨɥɟɣ– ɢɧɮɨɪɦɚɰɢɨɧɧɨɝɨinf ɢɫɫɵɥɨɱɧɨɝɨsledɂɦɹɩɟɪɜɨɣɡɚɩɢɫɢSA ɫɨɨɬɜɟɬɫɬɜɟɧɧɨɢɦɟɧɚɟɟɩɨɥɟɣɫɨɫɬɚɜɥɹɸɬɫɹɩɨɩɪɚɜɢɥɭ ɢɦɹɡɚɩɢɫɢɢɡɪɚɡɞɟɥɚvar ɢɦɹɩɨɥɹɢɡɪɚɡɞɟɥɚtype ɇɚɫɥɟɞɭɸɳɭɸɡɚɩɢɫɶɩɨɤɚɡɵɜɚɟɬɫɫɵɥɤɚɢɡɩɟɪɜɨɣɡɚɩɢɫɢɩɨɷɬɨɦɭɢɦɹ ɷɬɨɣɡɚɩɢɫɢSAVOHGAɚɟɟɩɨɥɟɣɫɨɨɬɜɟɬɫɬɜɟɧɧɨSAVOHGALQI ɢSAVOHGAVOHGɈɱɟ ɜɢɞɧɨ ɱɬɨ ɬɚɤɨɟ ɩɨɫɬɪɨɟɧɢɟ ɢɦɟɧ ɷɥɟɦɟɧɬɨɜ ɫɩɢɫɤɚ ɦɨɠɧɨ ɫɬɪɨɢɬɶ ɫɬɨɥɶɤɨ ɫɤɨɥɶɤɨ ɷɥɟɦɟɧɬɨɜ ɜ ɫɩɢɫɤɟ ɧɨ ɷɬɨ ɧɟɭɞɨɛɧɨ ɩɨɷɬɨɦɭ ɢɫɩɨɥɶɡɭɸɬ ɧɟ ɛɨɥɟɟ ɞɜɭɯɩɨɥɟɣ-ɫɫɵɥɨɤɢɜɫɩɨɦɨɝɚɬɟɥɶɧɵɟɫɫɵɥɤɢ Ⱦɥɹɡɚɧɟɫɟɧɢɹɩɟɪɜɨɝɨɷɥɟɦɟɧɬɚɜɫɩɢɫɨɤɡɚɧɟɫɟɦɩɭɫɬɭɸɫɫɵɥɤɭɜɪ S QLO ^`QHZ(q qALQI -qAVOHG SS q^ɧɚɩɟɪɜɵɣɷɥɟɦɟɧɬɩɨɤɚɡɵɜɚɸɬ ɫɫɵɥɤɢɪɢq ` ^`QHZ T TALQI TAVOHG SS T ^`QHZ T TALQI TAVOHG SS T 207
Ʉɚɤ ɜɢɞɧɨ ɩɪɨɢɡɜɨɞɹɬɫɹ ɨɞɧɨɬɢɩɧɵɟ ɞɟɣɫɬɜɢɹ ɫ ©ɩɟɪɟɤɨɦɦɭɬɚɰɢɟɣª ɫɫɵɥɨɤ ɪɢɫ19). Ɋɢɫ 19 ɗɬɚɩɵɫɨɡɞɚɧɢɹɫɩɢɫɤɚɢɡɬɪɟɯɷɥɟɦɟɧɬɨɜ Ɋɚɫɫɦɨɬɪɢɦ ɩɪɢɦɟɪ ɩɪɨɝɪɚɦɦɵ ɫɨɡɞɚɧɢɹ ɫɩɢɫɤɚ ɷɥɟɦɟɧɬɵ ɤɨɬɨɪɨɝɨ ɫɨ ɞɟɪɠɚɬ ɤɜɚɞɪɚɬɵ ɱɢɫɟɥ    « n2 ɋɥɟɞɭɟɬ ɨɛɪɚɬɢɬɶ ɜɧɢɦɚɧɢɟ ɱɬɨ ɫɩɢɫɨɤ ɮɨɪɦɢɪɭɟɬɫɹɫɩɨɫɥɟɞɧɟɝɨɷɥɟɦɟɧɬɚn. program E48 type SRLQW AHOHP HOHP record LQIinteger VOHGSRLQW end var STSRLQWLQinteger begin ^ɫɨɡɞɚɧɢɟɫɩɢɫɤɚ` write Q  readln Q  S QLO for L Qdownto 1 do begin new T  TALQI L L TAVOHG S S T end ^ɩɟɱɚɬɶ ɫɩɢɫɤɚ` T S while T!QLOdo begin writeln TALQI  208
T TAVOHG end readln end. ɋɨ ɫɩɢɫɤɨɦ ɦɨɠɧɨ ɫɨɜɟɪɲɚɬɶ ɨɩɟɪɚɰɢɢ ɜɤɥɸɱɟɧɢɹ ɧɨɜɵɯ ɷɥɟɦɟɧɬɨɜ ɢ ɢɫɤɥɸɱɟɧɢɹɷɥɟɦɟɧɬɚ Ⱦɥɹ ɩɪɨɫɦɨɬɪɚ ɫɩɢɫɤɚ ɢ ɩɨɢɫɤɚ ɧɟɨɛɯɨɞɢɦɨɝɨ ɷɥɟɦɟɧɬɚ ɢɫɩɨɥɶɡɭɟɬɫɹ ɨɩɟɪɚɬɨɪ q qAVOHG ɤɚɤɷɬɨɫɞɟɥɚɧɨɜɜɵɜɨɞɟɧɚɩɟɱɚɬɶɷɥɟɦɟɧɬɨɜɜɩɪɢɦɟɪɟɩɪɨɝɪɚɦɦɵ(. ȼɤɥɸɱɟɧɢɟ ɜ ɫɩɢɫɨɤ ɉɭɫɬɶ ɩɨɫɥɟ ɱɢɫɥɚ  ɪɢɫ 20  ɧɚɞɨ ɜ ɫɩɢɫɨɤ ɜɫɬɚ ɜɢɬɶ ɱɢɫɥɨ  ɉɨɧɚɞɨɛɹɬɫɹ ɬɚɤɠɟ ɫɫɵɥɤɢ ɪ ɧɚ ɧɚɱɚɥɨ ɫɩɢɫɤɚ ɢ q ɧɚ ɷɥɟɦɟɧɬ ɩɨɫɥɟɤɨɬɨɪɨɝɨɧɚɞɨɫɞɟɥɚɬɶɜɫɬɚɜɤɭɂɫɩɨɥɶɡɭɟɦɟɳɟɨɞɧɭɫɫɵɥɤɭɱɬɨɛɵɫɨ ɡɞɚɬɶɡɚɩɢɫɶɫɱɢɫɥɨɦɜɢɧɮɨɪɦɚɰɢɨɧɧɨɦɩɨɥɟ QHZ(U  UALQI  UAVOHG qAVOHG^ɧɨɜɵɣɷɥɟɦɟɧɬɩɨɤɚɡɵɜɚɟɬɧɚɫɥɟɞɭɸɳɢɣɡɚɱɢɫɥɨɦ ` TAVOHG U Ɋɢɫ  ɋɨɫɬɨɹɧɢɟɫɩɢɫɤɚɢɫɫɵɥɨɤ ɩɨɫɥɟɜɫɬɚɜɤɢɱɢɫɥɚɜɫɩɢɫɨɤ ɂɫɤɥɸɱɟɧɢɟ ɢɡ ɫɩɢɫɤɚ. ɇɟɨɛɯɨɞɢɦɨ ɢɫɤɥɸɱɢɬɶ ɷɥɟɦɟɧɬ ɫɥɟɞɭɸɳɢɣ ɡɚ ɬɟɦɧɚɤɨɬɨɪɵɣɩɨɤɚɡɵɜɚɟɬɫɫɵɥɤɚqɢɫɤɥɸɱɢɦɱɢɫɥɨ. ɉɨɫɥɟɨɩɟɪɚɬɨɪɚqAVOHG Uɫɫɵɥɤɚq ɩɨɤɚɡɵɜɚɟɬɧɚɱɢɫɥɨ ɂɫɯɨɞɧɚɹɫɢɬɭɚɰɢɹɩɨɤɚɡɚɧɚɧɚɪɢɫ21. 209
Ɋɢɫ  ɋɨɫɬɨɹɧɢɟɫɩɢɫɤɚɩɟɪɟɞɢɫɤɥɸɱɟɧɢɟɦɱɢɫɥɚ ^ɜɜɨɞɢɦɫɫɵɥɤɭɧɚɢɫɤɥɸɱɚɟɦɵɣɷɥɟɦɟɧɬ` U qAVOHG ^ɨɛɪɵɜɚɟɦ ɫɜɹɡɶ ɦɟɠɞɭ ɢɫɤɥɸɱɚɟɦɵɦ ɷɥɟɦɟɧɬɨɦ ɢ ɟɝɨ ɩɪɟɞɲɟɫɬɜɟɧɧɢ ɤɨɦ` TAVOHG TAVOHGAVOHG ^ɨɛɧɭɥɹɟɦ ɜɫɩɨɦɨɝɚɬɟɥɶɧɭɸ ɫɫɵɥɤɭ ɱɬɨɛɵ ɱɟɪɟɡ ɧɟɟ ɧɟɥɶɡɹ ɛɵɥɨ ɩɨ ɩɚɫɬɶɜɫɩɢɫɨɤ` UAVOHG QLO ȼɤɥɸɱɟɧɢɟɧɨɜɨɝɨɷɥɟɦɟɧɬɚɜɧɚɱɚɥɨɫɩɢɫɤɚ QHZ U  UALQI  UAVOHG S S U ɂɫɤɥɸɱɟɧɢɟɩɟɪɜɨɝɨɷɥɟɦɟɧɬɚɢɡɫɩɢɫɤɚ U S S SAVOHG UAVOHG QLO ȼɨɩɪɨɫɵɢɡɚɞɚɧɢɹ 1. ɑɬɨȼɵɡɧɚɟɬɟɨɛɭɫɥɨɜɧɨɦɪɚɡɞɟɥɟɧɢɢɩɚɦɹɬɢɤɨɦɩɶɸɬɟɪɚ" 2. Ⱦɚɣɬɟɨɩɪɟɞɟɥɟɧɢɟɩɨɧɹɬɢɸ©ɫɫɵɥɤɚª 3. Ʉɚɤɜɹɡɵɤɟɉɚɫɤɚɥɶɨɩɢɫɵɜɚɸɬɫɹɩɟɪɟɦɟɧɧɵɟɹɜɥɹɸɳɢɟɫɹɞɚɧɧɵɦɢ ɫɫɵɥɨɱɧɨɝɨɬɢɩɚ" 4. Ⱦɥɹɱɟɝɨɫɥɭɠɢɬɩɪɨɰɟɞɭɪɚnew ɚ " 5. Ʉɚɤɚɹɩɪɨɰɟɞɭɪɚɩɪɢɦɟɧɹɟɬɫɹɞɥɹɭɧɢɱɬɨɠɟɧɢɹɫɫɵɥɤɢ" 6. Ⱦɚɣɬɟɨɩɪɟɞɟɥɟɧɢɟɩɨɧɹɬɢɸ©ɫɩɢɫɨɤª 7. Ʉɪɚɬɤɨɨɯɚɪɚɤɬɟɪɢɡɭɣɬɟɫɬɪɭɤɬɭɪɭɫɩɢɫɤɚ 8. Ʉɚɤɨɩɢɫɵɜɚɸɬɫɹɫɩɢɫɤɢɜɉɚɫɤɚɥɶ" 9. ɑɬɨ ȼɵ ɡɧɚɟɬɟ ɨɛ ɨɩɟɪɚɰɢɹɯ ɜɤɥɸɱɟɧɢɹ ɧɨɜɨɝɨ ɷɥɟɦɟɧɬɚ ɜ ɫɩɢɫɨɤ ɢ ɢɫɤɥɸɱɟɧɢɹɷɥɟɦɟɧɬɚɢɡɫɩɢɫɤɚ" 10. ȼɵɩɨɥɧɢɬɶɩɪɢɜɟɞɟɧɧɵɟɩɪɨɝɪɚɦɦɵ. 210
11. ©ɋɨɛɪɚɬɶª ɩɪɨɝɪɚɦɦɭ ɞɥɹ ɫɥɭɱɚɹ ɫɨɡɞɚɧɢɹ ɫɩɢɫɤɚ ɢɡ ɱɢɫɟɥ   – ɪɚɫɩɟɱɚɬɚɬɶɫɩɢɫɨɤɜɜɢɞɟ –8. 12. Ⱦɨɛɚɜɢɬɶɜɩɪɨɝɪɚɦɦɭɜɫɬɚɜɤɭɜɫɩɢɫɨɤɱɢɫɥɚɪɚɫɩɟɱɚɬɚɬɶɫɩɢɫɨɤ 13. Ⱦɨɛɚɜɢɬɶ ɜ ɩɪɨɝɪɚɦɦɭ ɢɫɤɥɸɱɟɧɢɟ ɢɡ ɫɩɢɫɤɚ ɱɢɫɥɚ  ɪɚɫɩɟɱɚɬɚɬɶ ɫɩɢɫɨɤ 14. Ɉɛɨɛɳɢɬɶɩɨɥɭɱɟɧɧɭɸɩɪɨɝɪɚɦɦɭɞɥɹɫɨɡɞɚɧɢɹɫɩɢɫɤɚɢɡɩɪɨɢɡɜɨɥɶ ɧɵɯn ɰɟɥɵɯɱɢɫɟɥɜɜɟɫɬɢɱɢɫɥɨɞɥɹɜɫɬɚɜɤɢɢɩɨɫɥɟɤɚɤɨɝɨɱɢɫɥɚɛɭ ɞɟɬɜɫɬɚɜɤɚɊɚɫɩɟɱɚɬɚɬɶɫɩɢɫɨɤ 15. Ⱦɨɛɚɜɢɬɶɜɩɪɨɝɪɚɦɦɭɢɫɤɥɸɱɟɧɢɟɡɚɞɚɧɧɨɝɨɜɜɨɞɨɦɱɢɫɥɚɢɡɫɩɢɫɤɚ ɢɩɨɫɥɟɤɚɤɨɝɨɱɢɫɥɚɛɭɞɟɬɢɫɤɥɸɱɟɧɢɟɪɚɫɩɟɱɚɬɚɬɶɫɩɢɫɨɤ 211
ɅɂɌȿɊȺɌɍɊȺ 1. Ƚɪɚɰɢɚɧɨɜɚ Ɍɘ ɉɪɨɝɪɚɦɦɢɪɨɜɚɧɢɟ ɜ ɩɪɢɦɟɪɚɯ ɢ ɡɚɞɚɱɚɯ ɭɱɟɛɧɨɟ ɩɨɫɨɛɢɟ  Ɍɘ Ƚɪɚɰɢɚɧɨɜɚ – 6-ɟ ɢɡɞ ɷɥ  – Ɇɨɫɤɜɚ Ʌɚɛɨɪɚɬɨɪɢɹ ɡɧɚɧɢɣ  –  ɫ – Ɋɟɠɢɦ ɞɨɫɬɭɩɚ ɩɨ ɩɨɞɩɢɫɤɟ – 85/KWWSVELEOLRFOXEUXLQGH[SKS"SDJH ERRN LG  2. Ʉɨɥɨɤɨɥɶɧɢɤɨɜɚ Ⱥɂ ɉɪɚɤɬɢɤɭɦ ɩɨ ɢɧɮɨɪɦɚɬɢɤɟ ɨɫɧɨɜɵ ɚɥɝɨɪɢɬɦɢɡɚ ɰɢɢ ɢ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ  Ⱥɂ Ʉɨɥɨɤɨɥɶɧɢɤɨɜɚ – Ɇɨɫɤɜɚ Ȼɟɪɥɢɧ Ⱦɢɪɟɤɬ-Ɇɟɞɢɚ  –  ɫ – Ɋɟɠɢɦ ɞɨɫɬɭɩɚ ɩɨ ɩɨɞɩɢɫɤɟ – 85/KWWSVELEOLRFOXEUXLQGH[SKS"SDJH ERRN LG  3. Ʉɨɦɚɪɨɜɚȿɋɉɪɚɤɬɢɤɭɦɩɨɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɸɧɚɹɡɵɤɟɉɚɫɤɚɥɶɭɱɟɛ ɧɨɟ ɩɨɫɨɛɢɟ  ȿɋ Ʉɨɦɚɪɨɜɚ – Ɇɨɫɤɜɚ Ȼɟɪɥɢɧ Ⱦɢɪɟɤɬ-Ɇɟɞɢɚ 2015. – ɑ 1. –  ɫ – Ɋɟɠɢɦ ɞɨɫɬɭɩɚ ɩɨ ɩɨɞɩɢɫɤɟ – 85/KWWSVELEOLRFOXEUXLQGH[SKS"SDJH ERRN LG  4. Ʉɨɦɚɪɨɜɚȿɋɉɪɚɤɬɢɤɭɦɩɨɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɸɧɚɹɡɵɤɟɉɚɫɤɚɥɶɭɱɟɛ ɧɨɟ ɩɨɫɨɛɢɟ  ȿɋ Ʉɨɦɚɪɨɜɚ – Ɇɨɫɤɜɚ Ȼɟɪɥɢɧ Ⱦɢɪɟɤɬ-Ɇɟɞɢɚ 2015. – ɑ 2. –  ɫ – Ɋɟɠɢɦ ɞɨɫɬɭɩɚ ɩɨ ɩɨɞɩɢɫɤɟ – 85/KWWSVELEOLRFOXEUXLQGH[SKS"SDJH ERRN LG  5. Ɇɢɬɢɧɚ ɈȺ ɉɪɨɝɪɚɦɦɢɪɨɜɚɧɢɟ ɦɟɬɨɞɢɱɟɫɤɢɟ ɭɤɚɡɚɧɢɹ  ɈȺ Ɇɢɬɢɧɚ ɌɅ Ȼɨɪɡɭɧɨɜɚ Ɇɢɧɢɫɬɟɪɫɬɜɨ ɬɪɚɧɫɩɨɪɬɚ Ɋɨɫɫɢɣɫɤɨɣ Ɏɟɞɟɪɚɰɢɢ Ɇɨɫ ɤɨɜɫɤɚɹ ɝɨɫɭɞɚɪɫɬɜɟɧɧɚɹ ɚɤɚɞɟɦɢɹ ɜɨɞɧɨɝɨ ɬɪɚɧɫɩɨɪɬɚ – Ɇɨɫɤɜɚ Ⱥɥɶɬɚɢɪ ɆȽȺȼɌ  –  ɫ – Ɋɟɠɢɦ ɞɨɫɬɭɩɚ ɩɨ ɩɨɞɩɢɫɤɟ – 85/KWWSVELEOLRFOXEUXLQGH[SKS"SDJH ERRN LG  6. ɐɚɪɟɜ Ɋ ɘ Ⱥɥɝɨɪɢɬɦɵ ɢ ɫɬɪɭɤɬɭɪɵ ɞɚɧɧɵɯ &',2   Ɋɘ ɐɚɪɟɜ Ⱥȼ ɉɪɨɤɨɩɟɧɤɨ Ɇɢɧɢɫɬɟɪɫɬɜɨ ɨɛɪɚɡɨɜɚɧɢɹ ɢ ɧɚɭɤɢ Ɋɨɫɫɢɣɫɤɨɣ Ɏɟɞɟɪɚɰɢɢ ɋɢɛɢɪɫɤɢɣ Ɏɟɞɟɪɚɥɶɧɵɣ ɭɧɢɜɟɪɫɢɬɟɬ – Ʉɪɚɫɧɨɹɪɫɤ ɋɎɍ  –  ɫ – Ɋɟɠɢɦ ɞɨɫɬɭɩɚ ɩɨ ɩɨɞɩɢɫɤɟ – 85/KWWSELEOLRFOXEUXLQGH[SKS"SDJH ERRN LG  212



ɍɱɟɛɧɨɟɢɡɞɚɧɢɟ ɇɚɬɚɥɶɹȼɥɚɞɢɦɢɪɨɜɧɚȺɩɚɬɨɜɚ ɆɚɪɢɹȺɥɟɤɫɚɧɞɪɨɜɧɚȻɚɤɭɦɟɧɤɨ ȺɅȽɈɊɂɌɆɂɁȺɐɂəɂɉɊɈȽɊȺɆɆɂɊɈȼȺɇɂȿ ɍɱɟɛɧɨɟɩɨɫɨɛɢɟ ɉɨɞɩɢɫɚɧɨɜɩɟɱɚɬɶ28.06.2024 Ɏɨɪɦɚɬ×ɍɫɥɩɟɱɥɉɟɱɚɬɶɩɨɬɪɟɛɨɜɚɧɢɸ Ȼɭɦɚɝɚɨɮɫɟɬɧɚɹ Ƚɚɪɧɢɬɭɪɚ©Ɍɚɣɦɫª ɂɡɞɚɬɟɥɶɫɬɜɨ©ɂɧɮɪɚ-ɂɧɠɟɧɟɪɢɹª ɝȼɨɥɨɝɞɚɭɥɄɨɡɥɟɧɫɤɚɹɞ Ɍɟɥ  -66-01 E-PDLOERRNLQJ@LQIUD-H.UX KWWSVLQIUD-HUX ɂɡɞɚɬɟɥɶɫɬɜɨɩɪɢɝɥɚɲɚɟɬ ɤɫɨɬɪɭɞɧɢɱɟɫɬɜɭɚɜɬɨɪɨɜ ɧɚɭɱɧɨ-ɬɟɯɧɢɱɟɫɤɨɣɥɢɬɟɪɚɬɭɪɵ 213