1 - 9 - 20.3.18. Ž–…„“€ LINETO..............................131 20.3.19. Ž–…„“€ MOVEREL.............................131 20.3.20. Ž–…„“€ MOVETO..............................131 20.3.21. Ž–…„“€ OUTTEXT.............................131 20.3.22. Ž–…„“€ OUTTEXTXY...........................132 20.3.23. Ž–…„“€ PRINTSCREEN.........................132 20.3.24. Ž–…„“€ PUTIMAGE............................132 20.3.25. Ž–…„“€ PUTPIXEL............................132 20.3.26. Ž–…„“€ RECTANGLE...........................133 20.3.27. Ž–…„“€ SETBKCOLOR..........................133 20.3.28. Ž–…„“€ SETCOLOR............................133 20.3.29. Ž–…„“€ SETFILLPATTERN......................133 20.3.30. Ž–…„“€ SETFILLSTYLE........................134 20.3.31. Ž–…„“€ SETGRAPHMODE........................134 20.3.32. Ž–…„“€ SETLINESTYLE........................134 20.3.33. Ž–…„“€ SETTEXTSTYLE........................135 20.4. ˆŒ… Žƒ€ŒŒ›, ˆ‘Ž‹œ‡“ž™…‰ ŒŽ„“‹œ GRAPH......135 21. ŒŽ„“‹œ DOS..........................................137 21.1. …ŠŽŒ…„€–ˆˆ Ž “‘’€Ž‚Š… ˆ ˆ‘Ž‹œ‡Ž‚€ˆž ŒŽ„“‹Ÿ DOS.......................................137 21.2. Žˆ‘€ˆ… ˆ’…”…‰‘Ž‰ —€‘’ˆ ŒŽ„“‹Ÿ DOS...........138 21.2.1. ŠŽ‘’€’› …„Ž…„…‹…›… ‚ ŒŽ„“‹… DOS.......138 21.2.1.1. ŠŽ‘’€’›, Ž…„…‹…›… Š€Š Œ€‘Šˆ ’ˆ€ ”€‰‹€.138 21.2.1.2. ŠŽ‘’€’›, Ž…„…‹…›… Š€Š ŠŽ„› Ž˜ˆŽŠ ‚Ž‡‚€™€…Œ›• Ž–…„“€Œˆ ˆ ”“Š–ˆŸŒˆ ŒŽ„“‹Ÿ DOS...........................................138 21.2.2. ……Œ…›…, …„Ž…„…‹…›… ‚ ŒŽ„“‹… DOS.....139 21.2.3. ’ˆ›, …„Ž…„…‹…›… ‚ ŒŽ„“‹… DOS...........139 21.3. Žˆ‘€ˆ… Ž–…„“ ˆ ”“Š–ˆ‰ ŒŽ„“‹Ÿ DOS...........140 21.3.1. Ž–…„“€ FINDFIRST...........................140 21.3.2. Ž–…„“€ FINDNEXT............................140 21.3.3. Ž–…„“€ GETDATE.............................141 21.3.4. Ž–…„“€ UNPACKDATE..........................141 21.3.5. Ž–…„“€ GETTIME.............................141 21.3.6. Ž–…„“€ SETTIME.............................142 21.3.7. Ž–…„“€ SETDATE.............................142 21.3.8. ”“Š–ˆŸ DISKSIZEBLK...........................142 21.3.9. ”“Š–ˆŸ DISKFREEBLK...........................143 21.3.10. ”“Š–ˆŸ DISKMAXFREEBLK........................143 21.4. ˆŒ… Žƒ€ŒŒ›, ˆ‘Ž‹œ‡“ž™…‰ ŒŽ„“‹œ DOS........143 ˆ‹Ž†…ˆ… 1. K€’Šˆ‰ ‘€‚Ž—ˆŠ ŠŽŒ€„ …„€Š’Ž€..... 146 ˆ‹Ž†…ˆ… 2. ’€‹ˆ–€ ŠŽ„€ ŠŽˆ-8...................... 148 ˆ‹Ž†…ˆ… 3. Š€’ŠŽ… Žˆ‘€ˆ… ‘ˆ‘’…Œ› ŠŽŒ€„ ‚Œ..... 153 1. ˆŸ’›… “‘‹Ž‚›… ŽŽ‡€—…ˆŸ ˆ ‘ŽŠ€™…ˆŸ..........153 2. ‘ˆ‘’…Œ€ ŠŽŒ€„......................................154 2.1. P…ƒˆ‘’ ‘Ž‘’ŽŸˆŸ O–…‘‘Ž€ (PS)................154 1 - 10 - 2.2. ”ŽŒ€’ Ž„Ž€„…‘›• ŠŽŒ€„.......................155 2.3. ”ŽŒ€’ „‚“•€„…‘›• ŠŽŒ€„.......................155 2.4. Œ…’Ž„› €„…‘€–ˆˆ.................................155 2.5. Œ…’Ž„› €„…‘€–ˆˆ ‘ ˆ‘Ž‹œ‡Ž‚€ˆ…Œ ‘—…’—ˆŠ€ ŠŽŒ€„...........................................156 2.6. €Ž ˆ‘’“Š–ˆ‰ ‚ €‹”€‚ˆ’ŽŒ ŽŸ„Š… Œ…ŒŽ- ˆŠ..............................................157 1 - 11 - 1. ‚‚…„…ˆ…. ‘ˆ‘’…Œ€ Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST …„€‡€—…€ „‹Ÿ €‡€Ž’Šˆ ˆ ˆ‘Ž‹…ˆŸ Žƒ€ŒŒ € Ÿ‡›Š… PASCAL/FAST ‚ ‘…- „… Ž‘ RT-11, € ’€Š†… „‹Ÿ ‘Ž‡„€ˆŸ ‡€ƒ“‡Ž—›• ŒŽ„“‹…‰ ˆ- ƒŽ„›• „‹Ÿ ‚›Ž‹…ˆŸ Ž„ “€‚‹…ˆ…Œ Ž‘ RT-11. ‘ˆ‘’…Œ€ Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST €‡€€’›‚€‹€‘œ Ž„ ‚‹ˆŸˆ…Œ ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL-TURBO V.3 ”ˆŒ› BORLAND INTERNATIONAL, INC., €Ž’€ž™…‰ € ‚Œ ‘ Ž–…‘‘Ž€- Œˆ Z-80 ˆ IAPX86. ’Ž ˆ‚…‹Ž Š „Ž‚Ž‹œŽ ‚›‘ŽŠŽ‰ ‘’……ˆ ……Ž‘ˆŒŽ‘’ˆ Žƒ€ŒŒ ˆ‡ Ž„Ž‰ ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ ‚ „“ƒ“ž. Ž„€ŠŽ ‘ˆ‘’…Œ€ PASCAL/FAST Ÿ‚‹Ÿ…’‘Ÿ Ž‹Ž‘’œž Žˆƒˆ- €‹œŽ‰ €‡€Ž’ŠŽ‰ (T.K. "€„€’€–ˆŸ" Š€ŠŽƒŽ-‹ˆŽ ŠŽŒˆ‹Ÿ’Ž- € € Œ€˜ˆ“ ‘ „“ƒŽ‰ ‘ˆ‘’…ŒŽ‰ ŠŽŒ€„ Ÿ‚‹Ÿ…’‘Ÿ €Š’ˆ—…‘Šˆ …‚Ž‡ŒŽ†Ž‰) ˆ …—œ ˆ„…’ ’Ž‹œŠŽ Ž ‡€ˆŒ‘’‚Ž‚€ˆˆ …ŠŽ’Ž›• ˆ„…‰ ˆ Ž‘Ž…Ž‘’…‰ ‘ˆ‘’…Œ›, A ’€Š†… Ž ’ŽŒ, —’Ž Ž„Ž‰ ˆ‡ –…‹…‰ ›‹€ ……Ž‘ˆŒŽ‘’œ Žƒ€ŒŒ, €‡€Ž’€›• ‚ €ŒŠ€• ’ˆ• ‘ˆ‘’…Œ. ‘ˆ‘’…Œ€ PASCAL/FAST €ˆ‘€€ € Ÿ‡›Š… MACRO-11. ‘ˆ‘’…Œ€ PASCAL/FAST Ž…‘…—ˆ‚€…’ ‚›‘ŽŠ“ž ‘ŠŽŽ‘’œ ’€‘‹Ÿ–ˆˆ Žƒ€ŒŒ (Ž’ 15 „Ž 100 ‘’ŽŠ ‚ ‘…Š“„“), ‚Ž‡ŒŽ†- Ž‘’œ ˆ‘Ž‹œ‡Ž‚€ˆŸ ‚‘’Ž…ŽƒŽ …„€Š’Ž€, ‘’›ŠŽ‚Š“ ‘ Žƒ- €ŒŒ€Œˆ, €ˆ‘€›Œˆ € Ÿ‡›Š… €‘‘…Œ‹…€ ˆ „. Œ€Š‘ˆŒ€‹œ›‰ Ž'…Œ Žƒ€ŒŒ, Ž€€’›‚€…Œ›• ‘ˆ‘’…ŒŽ‰ Žƒ€ŒŒˆŽ‚€ˆŸ, -- „Ž 2500 ‘’ŽŠ ˆ‘•Ž„ŽƒŽ ’…Š‘’€ (ˆ Žœ…Œ… Ž‡“ 56 Š€‰’), € Ž„ “€‚‹…ˆ…Œ ‘ˆ‘’…Œ› €”Ž‘/NTS -- „Ž 3000 ‘’ŽŠ. „‹Ÿ ‘ˆ‘’…Œ› PASCAL/FAST, ˆ‘Ž‹œ‡“…ŒŽ‰ € ‚Œ Š0011Œ €‡€Ž’€ €Š…’ ƒ€”ˆ—…‘Šˆ• Ž„Žƒ€ŒŒ. ’€Š†… €‡€Ž’€ €Š…’ Ž„Žƒ€ŒŒ, ŠŽ’Ž›‰ Ž…‘…—ˆ- ‚€…’ ‚‡€ˆŒŽ„…‰‘’‚ˆ… ‘ Ž‘ RT11 (Ž€Ž’Š€ Š€’€‹ŽƒŽ‚, ‘ˆ‘’…Œ- ŽƒŽ ‚…Œ…ˆ, „€’› ˆ „.). Ÿ‡›Š Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST Ÿ‚‹Ÿ…’‘Ÿ „ˆ€‹…Š’ŽŒ Ÿ‡›Š€ PASCAL ˆ Ž’‹ˆ—€…’‘Ÿ Ž’ …ƒŽ …ŠŽ’Ž›Œˆ Žƒ€ˆ—…ˆŸŒˆ ˆ ŒŽƒŽ—ˆ‘‹…›Œˆ €‘˜ˆ…ˆŸŒˆ, ŠŽ’Ž›… Žˆ‘€› ‚ „€ŽŒ “ŠŽ- ‚Ž„‘’‚…. „‹Ÿ €Ž’› ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST …Ž•Ž- „ˆŒ€ Ž‘ RT-11 ‚…‘ˆˆ … ˆ†… 5.0 ˆ ‚Œ ’ˆ€ Š0011Œ. ‘“™…‘’‚“…’ ‚€ˆ€’ ‘ˆ‘’…Œ›, ˆƒŽ„›‰ „‹Ÿ €Ž’› €Š- 1 - 12 - ’ˆ—…‘Šˆ € ‚‘…• ’ˆ€• ‚Œ ‘ ‘ˆ‘’…ŒŽ‰ ŠŽŒ€„ PDP-11, Ž„€ŠŽ ˆ‡-‡€ ’ŽƒŽ, —’Ž ‚ …Œ ˆ‘Ž‹œ‡“…’‘Ÿ Žƒ€ŒŒ€Ÿ Œ“‹Ÿ–ˆŸ €ˆ”Œ…’ˆ—…‘Šˆ• ŠŽŒ€„ ˆ ˆ‘“’‘’‚“ž’ Ž‘Ž…Ž‘’ˆ Ž’Ž‘Ÿ™ˆ…‘Ÿ ŠŽ ‚‘…Œ ’ˆ€Œ ‚Œ ‘€‡“, …ƒŽ €‡Œ… € 1.5 K€‰’ Ž‹œ˜… Ž‘’€‹œ›• ‚€ˆ€’Ž‚, € ‘ŠŽŽ‘’œ €Ž’› Žƒ€ŒŒ (Ž‘Ž…Ž ˆ‘Ž‹œ‡“ž™ˆ• ‚…™…‘’‚…“ž €ˆ”Œ…’ˆŠ“) ‡€—ˆ’…‹œŽ ˆ†…. „‹Ÿ €Ž’› ‚ ‘ˆ‘’…Œ… €”Ž‘/NTS …Ž•Ž„ˆŒŽ ˆŒ…’œ Ž‘Ž“ž ‚…‘ˆž ‘ˆ‘’…Œ›, Ž’‹ˆ—€ž™“ž‘Ÿ „€†… Ž’ “ˆ‚…‘€‹œŽƒŽ ‚€ˆ€- ’€. 2. ‡€“‘Š ˆ ˆ‘Ž‹œ‡Ž‚€ˆ… ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ. 2.1. ‘Ž‘’€‚ ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ. ‚ ‘Ž‘’€‚ ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ ‚•Ž„Ÿ’: 1. ŠŽŒˆ‹Ÿ’Ž ‘ Ÿ‡›Š€ PASCAL/FAST 2. ‚‘’Ž…›‰ …„€Š’Ž ’…Š‘’€ 3. ‘ˆ‘’…Œ€ Ž„„…†Šˆ ˆ‘Ž‹…ˆŸ Žƒ€ŒŒ 4. “€‚‹Ÿž™€Ÿ ‘ˆ‘’…Œ€, Ž…‘…—ˆ‚€ž™€Ÿ ‚‡€ˆŒŽ„…‰‘’‚ˆ… „“ƒˆ• ŠŽŒŽ…’ Œ…†„“ ‘ŽŽ‰ ˆ ‘ Ž‹œ‡Ž‚€’…‹…Œ ‚‘… ’ˆ ŠŽŒŽ…’› ‘Ž„…†€’‘Ÿ ‚ ”€‰‹… PAS.SAV ˆ ‡€ˆ- Œ€ž’ ŽŠŽ‹Ž 30KB. 2.2. “‘’€Ž‚Š€ ˆ ‡€“‘Š ‘ˆ‘’…Œ›. „‹Ÿ “‘’€Ž‚Šˆ ‘ˆ‘’…Œ› …Ž•Ž„ˆŒŽ ……ˆ‘€’œ ”€‰‹ PAS.SAV € ‘ˆ‘’…ŒŽ… “‘’Ž‰‘’‚Ž "SY" ˆ €‡€—ˆ’œ ’ŽŒ“ “‘’- Ž‰‘’‚“ ‹Žƒˆ—…‘ŠŽ… ˆŒŸ "PAS" : .ASS SY PAS <‚Š> __ˆ_Œ_…_—_€__ˆ_…: ”€‰‹ PAS.SAV „Ž‹†… ›’œ €‘Ž‹Ž- †… ˆŒ…Ž € ‘ˆ‘’…ŒŽŒ “‘’Ž‰‘’‚… ˆ ˆŒ…Ž Ž„ ’ˆŒ ˆŒ……Œ. „‹Ÿ ‡€“‘Š€ ‘ˆ‘’…Œ› …Ž•Ž„ˆŒŽ €€’œ ŠŽŒ€„“ .PAS <‚Š> 1 - 13 - Ž‘‹… ’ŽƒŽ Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›„€…’‘Ÿ Œ…ž: PASCAL/FAST, V 1.0 (C) 1989, OCT ŒŽ‘Š€‹œ €.…. Ž‘Ž‚Ž… Œ…ž —’…ˆ… …„€Š’ˆŽ‚€ˆ… ‡€ˆ‘œ ’€‘‹Ÿ–ˆŸ ŠŽ…– €Ž’› ‚›Ž‹…ˆ… „ŽŽ‹ˆ’…‹œŽ… Œ…ž ˆŒŸ Žƒ€ŒŒ› : NONAME > ‡€Š ">" (‚ ‘‹“—€… Ž’‘“’‘’‚ˆŸ Œ…ž € Š€…) Ÿ‚‹Ÿ…’‘Ÿ ˆ‡€ŠŽŒ ’ŽƒŽ, —’Ž ‘ˆ‘’…Œ€ Žƒ€ŒŒˆŽ‚€ˆŸ €•Ž„ˆ’‘Ÿ ‚ …†ˆŒ… Ž‘Ž‚ŽƒŽ Œ…ž (">>" -- „ŽŽ‹ˆ’…‹œŽ… Œ…ž) ˆ †„…’ ‚‚Ž„€ ŠŽŒ€„›. ˆ €†€’ˆˆ <‚Š> ˆ‹ˆ Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›„€…’‘Ÿ Œ…ž. ‚ Š€—…‘’‚… ŠŽŒ€„› „Ž‹†€ ›’œ ˆ‘Ž‹œ‡Ž‚€€ …‚€Ÿ “Š- ‚€ Ž„ŽƒŽ ˆ‡ ‘‹Ž‚, ……—ˆ‘‹…›• ‚ Œ…ž. “Š‚€ … Ž’Ž€- †€…’‘Ÿ € Š€…. „…‰‘’‚ˆ…, ‘ŽŽ’‚…’‘’‚“ž™…… ŠŽŒ€„…, Žˆ‡- ‚Ž„ˆ’‘Ÿ …Œ…„‹…Ž. ˆ ‚›Ž‹…ˆˆ ŠŽŒ€„› € Š€ ŒŽƒ“’ ‚›„€‚€’œ‘Ÿ ‡€Ž- ‘›, ’…“ž™ˆ… “’‚…„ˆ’…‹œŽƒŽ ˆ‹ˆ Ž’ˆ–€’…‹œŽƒŽ Ž’‚…’€. „‹Ÿ Ž’‚…’€ € ˆ• …Ž•Ž„ˆŒŽ €†€’œ Ž„“ ˆ‡ Š‹€‚ˆ˜ '„', 'D', '›', 'Y' -- „‹Ÿ “’‚…„ˆ’…‹œŽƒŽ Ž’‚…’€, ˆ‹ˆ '', 'N' -- „‹Ÿ Ž’ˆ–€’…‹œŽƒŽ. ’€Š†… ŒŽƒ“’ ‚›„€‚€’œ‘Ÿ ‡€Ž‘›, ’…“ž™ˆ… ‚‚Ž„€ ˆ‹ˆ ŠŽ…Š–ˆˆ ‘’ŽŠˆ. ˆ ’ŽŒ ŒŽ†Ž Ž‹œ‡Ž‚€’œ‘Ÿ Š‹€- ‚ˆ˜€Œˆ …„€Š’ˆŽ‚€ˆŸ ‘’ŽŠˆ, Žˆ‘€›Œˆ ‚ ˆ‹Ž†…ˆˆ. ˆ €Ž’… ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ € “‘’Ž‰‘’‚… "DK:" ‘Ž‡„€…’‘Ÿ ”€‰‹ PASCAL.INI, ‚ ŠŽ’ŽŽŒ ‘ˆ‘’…Œ€ ‘Ž•€Ÿ…’ ‘‚Ž… ’…Š“™…… ‘Ž‘’ŽŸˆ… ˆ ŽŠŽ—€ˆˆ ‘…€‘€. 1 - 14 - 3. ŠŽŒ€„› ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ. 3.1. ŠŽŒ€„€ "„ŽŽ‹ˆ’…‹œŽ… Œ…ž". ŠŽŒ€„€ "„ŽŽ‹ˆ’…‹œŽ… Œ…ž" Ž‡‚Ž‹Ÿ…’ ‚€Œ ……‰’ˆ ‚ …†ˆŒ „ŽŽ‹ˆ’…‹œŽƒŽ Œ…ž. Ž ’Ž‰ ŠŽŒ€„… Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›„€…’‘Ÿ „ŽŽ‹ˆ’…‹œŽ… Œ…ž. PASCAL/FAST V 1.0 (C) 1989, OCT. „ŽŽ‹ˆ’…‹œŽ… Œ…ž ‘Œ…€ ˆŒ…ˆ Š€’€‹Žƒ „ˆ‘Š€ ‚›•Ž„ ‚ Ž‘Ž‚Ž… Œ…ž Ž„’‚…†„…ˆ… ‡€ˆ‘ˆ : „€ ˆŒŸ Žƒ€ŒŒ› : NONAME ’…Š‘’ Žƒ€ŒŒ› : ‚ €ŒŸ’ˆ Ž'…Š’›‰ ŠŽ„ : € „ˆ‘Š… >> ‡€Š ">>" (‚ ‘‹“—€… Ž’‘“’‘’‚ˆŸ Œ…ž € Š€…) Ÿ‚‹Ÿ…’‘Ÿ ˆ‡€ŠŽŒ ’ŽƒŽ, —’Ž ‘ˆ‘’…Œ€ Žƒ€ŒŒˆŽ‚€ˆŸ €•Ž„ˆ’‘Ÿ ‚ …†ˆŒ… „ŽŽ‹ˆ’…‹œŽƒŽ Œ…ž (">" -- Ž‘Ž‚Ž… Œ…ž) ˆ †„…’ ‚‚Ž„€ ŠŽŒ€„›. ˆ €†€’ˆˆ Š‹€‚ˆ˜ˆ <‚Š> ˆ‹ˆ Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›„€…’‘Ÿ „ŽŽ‹ˆ’…‹œŽ… Œ…ž. 3.2. ŠŽŒ€„€ "ˆŒŸ Žƒ€ŒŒ›". ŠŽŒ€„€ "ˆŒŸ Žƒ€ŒŒ›" Ž‡‚Ž‹Ÿ…’ ‚€Œ ……‰’ˆ Š €Ž’… ‘ „“ƒŽ‰ Žƒ€ŒŒŽ‰. ŠŽŒ€„€ Ž„ˆ€ŠŽ‚Ž ‚›Ž‹Ÿ…’‘Ÿ ‚ Ž‘Ž‚- ŽŒ ˆ „ŽŽ‹ˆ’…‹œŽŒ Œ…ž. Ž ’Ž‰ ŠŽŒ€„… ‚›„€…’‘Ÿ Ž„‘Š€‡- Š€: "ˆŒŸ Žƒ€ŒŒ›: XXX" ƒ„… "XXX" -- ˆŒŸ Žƒ€ŒŒ›, ‘ ŠŽ’ŽŽ‰ ‚› €Ž’€…’… ‚ €‘’ŽŸ™ˆ‰ ŒŽŒ…’. ‚› ŒŽ†…’… ˆ‘€‚ˆ’œ …ƒŽ ˆ‹ˆ Ž‹Ž‘’œž ‡€Œ…ˆ’œ Ž‹œ‡“Ÿ‘œ Š‹€‚ˆ˜€Œˆ …„€Š’ˆŽ‚€ˆŸ ‘’ŽŠˆ. …‘‹ˆ ‚› ›’€…’…‘œ ‡€„€’œ “‘’Ž… ˆŒŸ Žƒ€ŒŒ›, ’Ž ‘ˆ‘’…Œ€ ‡€€˜ˆ- ‚€…’: ŠŽ…– €Ž’› ? ˆ “’‚…„ˆ’…‹œŽŒ Ž’‚…’… Ž€ ‡€‚…˜€…’ €Ž’“ … ‘Ž‡- 1 - 15 - „€‚€Ÿ ”€‰‹€ "PASCAL.INI". ˆ Ž’ˆ–€’…‹œŽŒ ‚Ž‚œ ‚›•Ž„ˆ’ € ‡€Ž‘ ˆŒ…ˆ. ˆŒŸ Žƒ€ŒŒ› ‘Ž•€Ÿ…’‘Ÿ Ž’ ‘…€‘€ Š ‘…€‘“ ‚ ”€‰‹… PASCAL.INI € “‘’Ž‰‘’‚… DK:. …‘‹ˆ ’Ž’ ”€‰‹ … €‰„…, ’Ž Ž “ŒŽ‹—€ˆž ……’‘Ÿ ˆŒŸ "NONAME". 3.3. ŠŽŒ€„€ "—’…ˆ…" (Ž‘Ž‚Ž… Œ…ž). ’€ ŠŽŒ€„€ Žˆ‡‚Ž„ˆ’ —’…ˆ… ’…Š‘’€ Žƒ€ŒŒ› ‘ „ˆ‘Š€ ‚ Ž…€’ˆ‚“ž €ŒŸ’œ ‚Œ. ˆ ’ŽŒ ‘’€Ž… ‘Ž„…†ˆŒŽ… ’…Š‘’Ž- ‚ŽƒŽ “”…€ “ˆ—’Ž†€…’‘Ÿ. ’€Š Š€Š —’…ˆ… ’…Š‘’€ ‚ €ŒŸ’œ ‚ ‘‹“—€… …Ž•Ž„ˆŒŽ‘’ˆ Žˆ‡‚Ž„ˆ’‘Ÿ €‚’ŽŒ€’ˆ—…‘Šˆ, ’Ž …Ž•Ž„ˆŒŽ‘’ˆ ‚ ˆ‘Ž‹œ‡Ž‚€ˆˆ ’Ž‰ ŠŽŒ€„› €Š’ˆ—…‘Šˆ …’. Ž€ ŒŽ†…’ ›’œ Ž‹…‡€, €ˆ- Œ…, „‹Ÿ ‚Ž‘‘’€Ž‚‹…ˆŸ ˆ‘Ž—…ŽƒŽ ˆ …„€Š’ˆŽ‚€ˆˆ ’…Š‘’€ ˆ ’.. 3.4. ŠŽŒ€„€ "‡€ˆ‘œ" (Ž‘Ž‚Ž… Œ…ž). ŠŽŒ€„€ "‡€ˆ‘œ" Žˆ‡‚Ž„ˆ’ ‘Ž‘ ’…Š‘’Ž‚ŽƒŽ “”…€ € „ˆ‘Š. ’Ž’ ‘Ž‘ „…‹€…’‘Ÿ €‚’ŽŒ€’ˆ—…‘Šˆ (‘ ‡€Ž‘ŽŒ Ž„’- ‚…†„…ˆŸ) ‚Ž ‚‘…• ‘‹“—€Ÿ•, ŠŽƒ„€ ’Ž …Ž•Ž„ˆŒŽ, ’€Š —’Ž ’€ ŠŽŒ€„€ Ž‹…‡€ ‹ˆ˜œ „‹Ÿ …„Ž’‚€™…ˆŸ Ž’…ˆ …‡“‹œ’€- ’Ž‚ …„€Š’ˆŽ‚€ˆŸ ˆ ‘ŽŸ• €€€’“› ‹ˆŽ ˆ €‡“˜…ˆˆ Ž…€–ˆŽŽ‰ ‘ˆ‘’…Œ› ‚ …‡“‹œ’€’… Ž˜ˆŽŠ ‚ Ž’‹€†ˆ‚€…ŒŽ‰ Žƒ€ŒŒ…. 3.5. ŠŽŒ€„€ "…„€Š’ˆŽ‚€ˆ…" (Ž‘Ž‚Ž… Œ…ž). Ž ŠŽŒ€„… "…„€Š’ˆŽ‚€ˆ…" Žˆ‡‚Ž„ˆ’‘Ÿ ‚•Ž„ ‚ ’…Š‘’Ž- ‚›‰ …„€Š’Ž, ŠŽ’Ž›‰ Žˆ‘€ ‚ ƒ‹€‚… 4 „€ŽƒŽ „ŽŠ“Œ…’€. ˆ …Ž•Ž„ˆŒŽ‘’ˆ ’…Š‘’ Žƒ€ŒŒ› ‘—ˆ’›‚€…’‘Ÿ ‘ „ˆ‘Š€. 1 - 16 - 3.6. ŠŽŒ€„€ "ŠŽ…– €Ž’›" (Ž‘Ž‚Ž… Œ…ž). Ž ’Ž‰ ŠŽŒ€„… Žˆ‡‚Ž„ˆ’‘Ÿ ‘Ž•€…ˆ… (‚ ‘‹“—€… …Ž- •Ž„ˆŒŽ‘’ˆ) ’…Š‘’€ Žƒ€ŒŒ› € „ˆ‘Š…, ‡€ˆ‘œ ’…Š“™…ƒŽ ‘Ž‘- ’ŽŸˆŸ ‘ˆ‘’…Œ› (ˆŒŸ Žƒ€ŒŒ›, €€Œ…’› ’€‘‹Ÿ–ˆˆ, ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ‚ “”…… …„€Š’Ž€ ˆ ’..) ‚ ”€‰‹ PASCAL.INI € “‘’- Ž‰‘’‚… DK: ˆ ‚›•Ž„ ‚ ‘…„“ Ž…€–ˆŽŽ‰ ‘ˆ‘’…Œ› RT-11. 3.7. ŠŽŒ€„€ "’€‘‹Ÿ–ˆŸ" (Ž‘Ž‚Ž… Œ…ž). ŠŽŒ€„€ "’€‘‹Ÿ–ˆŸ" ‘‹“†ˆ’ „‹Ÿ ’€‘‹Ÿ–ˆˆ Žƒ€ŒŒ› € PASCAL. Ž Œ…… ’€‘‹Ÿ–ˆˆ € Š€ ‚›„€ž’‘Ÿ ŽŒ…€ ’€‘‹ˆ- “…Œ›• ‘’ŽŠ, € ‚ ŠŽ–… ’€‘‹Ÿ–ˆˆ (…‘‹ˆ … Ž€“†…Ž Ž˜ˆ- ŽŠ) ‚›„€…’‘Ÿ ‘’€’ˆ‘’ˆŠ€: > ’€‘‹Ÿ–ˆŸ: 475 ’…Š‘’: •••• €‰’ ’€‹ˆ–›: •••• €‰’ ŠŽ„: •••• €‰’ ‘‚ŽŽ„Ž: •••• €‰’ > ‚ ‘‹“—€… Ž€“†…ˆŸ Ž˜ˆŠˆ ‚›„€…’‘Ÿ ‘ŽŽ™…ˆ… Ž …‰, ˆ Ž‘‹… €†€’ˆŸ ‹žŽ‰ Š‹€‚ˆ˜ˆ, ‘ˆ‘’…Œ€ ‚•Ž„ˆ’ ‚ …„€Š’Ž, “‘’€€‚‹ˆ‚€Ÿ ’…Š“™“ž Ž‡ˆ–ˆž ‚ Œ…‘’…, ƒ„… Ž€“†…€ Ž˜ˆŠ€. 3.8. ŠŽŒ€„€ "‚›Ž‹…ˆ…" (Ž‘Ž‚Ž… Œ…ž). ŠŽŒ€„€ "‚›Ž‹…ˆ…" …„€‡€—…€ „‹Ÿ ‡€“‘Š€ Žƒ€Œ- Œ› € ˆ‘Ž‹…ˆ…. …‘‹ˆ Ž€ … ›‹€ ……„ ’ˆŒ Ž’’€‘‹ˆŽ‚€- €, ’Ž Žƒ€ŒŒ€ ’€‘‹ˆ“…’‘Ÿ, ˆ Ž‘‹… ’ŽƒŽ ‡€“‘Š€…’‘Ÿ. …‘‹ˆ ˆ ˆ‘Ž‹…ˆˆ Žƒ€ŒŒ› … ›‹Ž Ž€“†…Ž Ž˜ˆ- ŽŠ, ’Ž ˆ ‡€‚…˜…ˆˆ ˆ‘Ž‹…ˆŸ ‚›„€…’‘Ÿ ‘ŽŽ™…ˆ… "[‘’Ž]" ˆ ‘ˆ‘’…Œ€ ‚›•Ž„ˆ’ € Ž„‘Š€‡Š“ ">". …‘‹ˆ Ž˜ˆŠˆ ›‹ˆ (ˆ‹ˆ …‘‹ˆ ˆ‘Ž‹…ˆ… ›‹Ž …‚€Ž €†€’ˆ…Œ Š‹€‚ˆ˜ˆ ) ‚›„€…’‘Ÿ ‘ŽŽ™…ˆ… Ž Ž˜ˆŠ… ‚ˆ„€: .... …›‚€ˆ…. PC=76256 ……Ž‹…ˆ… ‘ ‹€‚€ž™…‰ ’Ž—ŠŽ‰. „‹Ÿ Žˆ‘Š€ €†Œˆ’… <‘“/Y> …‘‹ˆ €†€’œ Š‹€‚ˆ˜“ <‘“/Y>, ’Ž Žˆ‡‚Ž„ˆ’‘Ÿ Žˆ‘Š Œ…‘’€ ŽŸ‚‹…ˆŸ Ž˜ˆŠˆ ˆ ‚•Ž„ ‚ …„€Š’Ž, ‚ ‘‹“—€… ‚‚Ž„€ 1 - 17 - ‹žŽƒŽ „“ƒŽƒŽ ‘ˆŒ‚Ž‹€ -- Žˆ‘Š … Žˆ‡‚Ž„ˆ’‘Ÿ ˆ ‘ˆ‘’…Œ€ ‚›•Ž„ˆ’ € Ž„‘Š€‡Š“ ">". …‘‹ˆ €„…‘ Ž˜ˆŠˆ … ‹…†ˆ’ ‚ …„…‹€• Žƒ€ŒŒ› Ž‹œ‡Ž- ‚€’…‹Ÿ (’Ž ŒŽ†…’ ›’œ €ˆŒ… ˆ Ž˜ˆŠ€• ‚ ˆ‘Ž‹œ‡Ž‚€ˆˆ ŠŽ„Ž‚›• ‚‘’€‚ŽŠ ˆ ’..), ’Ž ‚›„€…’‘Ÿ ’Ž‹œŠŽ €„…‘ Ž˜ˆŠˆ ˆ …… ˆ—ˆ€ ˆ ‘ˆ‘’…Œ€ ‘€‡“ ‚›•Ž„ˆ’ € Ž„‘Š€‡Š“. ˆ ‚Ž‡ˆŠŽ‚…ˆˆ Ž˜ˆŠˆ ‚Ž ‚…ŒŸ ˆ‘Ž‹…ˆŸ ‡€ƒ“‡Ž—- ŽƒŽ ŒŽ„“‹Ÿ, ‘Ž‡„€ŽƒŽ ‘ˆ‘’…ŒŽ‰ Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST, Ž„ “€‚‹…ˆ…Œ …Ž‘…„‘’‚…Ž Ž‘ RT-11, Žˆ‘Š Œ…‘’€ Ž˜ˆŠˆ ’€Š†… … Žˆ‡‚Ž„ˆ’‘Ÿ ˆ “€‚‹…ˆ… ……„€…’‘Ÿ Ž…€–ˆŽŽ‰ ‘ˆ‘’…Œ…. 3.9. ŠŽŒ€„€ "‘Œ…€ ˆŒ…ˆ" („ŽŽ‹ˆ’…‹œŽ… Œ…ž). ŠŽŒ€„€ "‘Œ…€ ˆŒ…ˆ" Ž‡‚Ž‹Ÿ…’ ‚€Œ ˆ‡Œ…ˆ’œ ˆŒŸ ˆ‘•Ž„- ŽƒŽ ”€‰‹€, €•Ž„Ÿ™…ƒŽ‘Ÿ ‚ ’…Š‘’Ž‚ŽŒ “”…… ‘ˆ‘’…Œ› PASCAL/FAST. ‚ „€‹œ…‰˜…Œ, €ˆŒ…, ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ ŠŽŒ€„› "‡€ˆ‘œ" (Ž‘Ž‚Ž… Œ…ž) € “‘’Ž‰‘’‚… “„…’ ‘Ž‡„€ ”€‰‹ ‘ ˆŒ……Œ, Ž‹“—…›Œ Ž ŠŽŒ€„… "‘Œ…€ ˆŒ…ˆ". ’Ž „€…’ ‚Ž‡ŒŽ†Ž‘’œ ‘Ž•€…ˆŸ € “‘’Ž‰‘’‚… Ž„ €‡›Œˆ ˆŒ…€Œˆ €—€‹œŽƒŽ ˆ‘•Ž„ŽƒŽ ’…Š‘’€ ˆ Ž’…„€Š’ˆŽ‚€ŽƒŽ ’…Š‘’€. 3.10. ŠŽŒ€„€ "Š€’€‹Žƒ „ˆ‘Š€" („ŽŽ‹ˆ’…‹œŽ… Œ…ž). ŠŽŒ€„€ "Š€’€‹Žƒ „ˆ‘Š€" ‘‹“†ˆ’ „‹Ÿ Ž‘ŒŽ’€ Š€’€‹Žƒ€ „ˆ‘Š€. Ž ’Ž‰ ŠŽŒ€„… ‚›„€…’‘Ÿ ‡€Ž‘ ‚ˆ„€: Ž€‡…–: *.PAS ŠŽ’Ž›‰ ŒŽ†Ž Ž’…„€Š’ˆŽ‚€’œ ‘ ŽŒŽ™œž Š‹€‚ˆ˜ …„€Š’ˆ- Ž‚€ˆŸ ‘’ŽŠˆ. Ž‘‹… ‚‚Ž„€ Ž’…„€Š’ˆŽ‚€ŽƒŽ Ž€‡–€ ‚›„€…’‘Ÿ Š€’€‹Žƒ „ˆ‘ŠŽ‚ŽƒŽ “‘’Ž‰‘’‚€. ˆŒ…: >> Ž€‡…– : *.PAS Š€’€‹Žƒ „ˆ‘Š€: GRAPHM.PAS 16 QUEENS.PAS 29 ‘‚ŽŽ„Ž ‹ŽŠŽ‚: 431 €ˆŽ‹œ˜ˆ‰ ‘‚ŽŽ„›‰ “—€‘’ŽŠ: 239 >> 1 - 18 - 3.11. ŠŽŒ€„€ "‚›•Ž„ ‚ Ž‘Ž‚Ž… Œ…ž" („ŽŽ‹ˆ- ’…‹œŽ… Œ…ž). ŠŽŒ€„€ "‚›•Ž„ ‚ Ž‘Ž‚Ž… Œ…ž" Ž‡‚Ž‹Ÿ…’ ……‰’ˆ ‚ …†ˆŒ Ž‘Ž‚ŽƒŽ Œ…ž. Ž ’Ž‰ ŠŽŒ€„… Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›‚Ž„ˆ’‘Ÿ Ž‘Ž‚Ž… Œ…ž. 3.12. ŠŽŒ€„€ "Ž„’‚…†„…ˆ… ‡€ˆ‘ˆ" („ŽŽ‹ˆ’…‹œ- Ž… Œ…ž). €ƒ“Œ…’ŽŒ ŠŽŒ€„› Ÿ‚‹Ÿ…’‘Ÿ ‘’ŽŠ€ "„€" ˆ‹ˆ "…’". €ƒ“Œ…’ ˆ‡Œ…Ÿ…’ ‘‚Ž… ‡€—…ˆ… ˆ €†€’ˆˆ Š‹€‚ˆ˜ "" ˆ‹ˆ "P". ˆ ‚›Ž‹…ˆˆ ŠŽŒ€„ €Ž’› ‘ ”€‰‹€Œˆ, ‡€—…ˆ… „€Ž‰ ŠŽŒ€„› ˆ‘Ž‹œ‡“…’‘Ÿ ‚ ˆ• Ž “ŒŽ‹—€ˆž. 3.13. ŠŽŒ€„› "’…Š‘’ Žƒ€ŒŒ›" ˆ "Ž'…Š’›‰ ŠŽ„" („ŽŽ‹ˆ’…‹œŽ… Œ…ž). €ƒ“Œ…’ŽŒ ŠŽŒ€„ Ÿ‚‹Ÿ…’‘Ÿ ‘’ŽŠ€ "‚ €ŒŸ’ˆ" ˆ‹ˆ "€ „ˆ‘Š…". €ƒ“Œ…’ ˆ‡Œ…Ÿ…’ ‘‚Ž… ‡€—…ˆ… ˆ €†€’ˆˆ Š‹€‚ˆ˜ "’" „‹Ÿ ŠŽŒ€„› "’…Š‘’ Žƒ€ŒŒ›" ˆ "Ž" „‹Ÿ ŠŽŒ€„› "Ž'…Š’- ›‰ ŠŽ„". ’ˆ ŠŽŒ€„› Ž‡‚Ž‹Ÿž’ ‡€„€’œ ‘Ž‘Ž Ž€Ž’Šˆ ˆ‘•Ž„ŽƒŽ ’…Š‘’€ Žƒ€ŒŒ› ˆ Ž'…Š’ŽƒŽ ŠŽ„€ ‚Ž ‚…ŒŸ €Ž’› ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ. ˆ‘•Ž„›‰ ’…Š‘’ Žƒ€ŒŒ› ŒŽ†…’ ›’œ Ž‘’ŽŸŽ €‘Ž‹Ž- †… ‚ €ŒŸ’ˆ ‚Œ, ‹ˆŽ •€ˆ’œ‘Ÿ € „ˆ‘Š… ˆ ‘—ˆ’›‚€’œ‘Ÿ ‚ €ŒŸ’œ ‚Œ ˆ …Ž•Ž„ˆŒŽ‘’ˆ. …†ˆŒ Ž‘’ŽŸŽƒŽ •€…ˆŸ ’…Š‘’€ ‚ Ž…€’ˆ‚Ž‰ €ŒŸ’ˆ “‘ŠŽŸ…’ €Ž’“ ‘ˆ‘’…Œ›, Ž “Œ…œ˜€…’ Œ€Š‘ˆŒ€‹œ›‰ Ž'…Œ Žƒ€ŒŒ, Ž€€’›‚€…Œ›• ‘ˆ‘’…- ŒŽ‰. ’€‘‹Ÿ’Ž ŒŽ†…’ ƒ……ˆŽ‚€’œ Ž'…Š’›‰ ŠŽ„ ‹ˆŽ ‚ €ŒŸ’ˆ, ‹ˆŽ ‡€ˆ‘›‚€’œ …ƒŽ Ž Œ…… ’€‘‹Ÿ–ˆˆ € „ˆ‘Š ‚ ‚ˆ„… ”€‰‹€ ’ˆ€ .SAV. ‚’ŽŽ‰ …†ˆŒ Œ…„‹………, Ž Ž ‡€—ˆ- ’…‹œŽ “‚…‹ˆ—ˆ‚€…’ Œ€Š‘ˆŒ€‹œ›‰ Ž'…Œ Žƒ€ŒŒ›, Ž€€’›- ‚€…ŒŽ‰ ‘ˆ‘’…ŒŽ‰. ŠŽŒ… ’ŽƒŽ, Ž Ž‡‚Ž‹Ÿ…’ ‘Ž‡„€‚€’œ ‡€ƒ“- ‡Ž—›‰ ŒŽ„“‹œ, ˆƒŽ„›‰ „‹Ÿ ‘€ŒŽ‘’ŽŸ’…‹œŽƒŽ ˆ‘Ž‹…ˆŸ …‡ ‘ˆ‘’…Œ› PASCAL/FAST. €ˆŽ‹…… ›‘’›‰ …†ˆŒ €Ž’› (€ŒŸ’œ -> €ŒŸ’œ) Ž…‘- …—ˆ‚€…’ ‘ŠŽŽ‘’œ ’€‘‹Ÿ–ˆˆ ŽŠŽ‹Ž 100 ‘’ŽŠ/‘…Š ˆ Œ€Š‘ˆ- Œ€‹œ›‰ Ž'…Œ ˆ‘•Ž„ŽƒŽ ’…Š‘’€ Žƒ€ŒŒ› 400-500 ‘’ŽŠ. €ˆŽ‹…… Œ…„‹…›‰ …†ˆŒ („ˆ‘Š -> „ˆ‘Š) Ž…‘…—ˆ‚€…’ ‘ŠŽŽ‘’œ ’€‘‹Ÿ–ˆˆ ŽŠŽ‹Ž 15 ‘’ŽŠ/‘…Š (‘ ƒˆŠˆŒ „ˆ‘ŠŽŒ ’ˆ€ 1 - 19 - MX:) ˆ Œ€Š‘ˆŒ€‹œ›‰ Ž'…Œ Žƒ€ŒŒ› „Ž 2500 ‘’ŽŠ ˆ‘•Ž„ŽƒŽ ’…Š‘’€. ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ Ž‹…… ›‘’ŽƒŽ „ˆ‘ŠŽ‚Ž„€ ‘ŠŽŽ‘’œ ’€‘‹Ÿ–ˆˆ Ž‚›˜€…’‘Ÿ „Ž 35-50 ‘’ŽŠ/‘…Š. 4. Š€›‰ …„€Š’Ž ’…Š‘’€. Š€›‰ …„€Š’Ž ’…Š‘’€ …„€‡€—… „‹Ÿ ‘Ž‡„€ˆŸ ’…Š‘’€ Žƒ€ŒŒ› ˆ ‚…‘…ˆŸ ‚ …ƒŽ ˆ‡Œ……ˆ‰. ˆ„…Ž‹ŽƒˆŸ €Ž’› ‘ ’…Š‘’Ž‚›Œ “”…ŽŒ ‚ …„€Š’Ž… ‹ˆ‡Š€ Š ˆ„…Ž‹Žƒˆˆ …„€Š’Ž€ K-52, Ž„€ŠŽ Ž …‘ŠŽ‹œŠŽ …„…… Ž ‚Ž‡ŒŽ†Ž‘’ŸŒ ˆ ˆŒ……’ „“ƒˆ… “€‚‹Ÿž™ˆ… Š‹€‚ˆ˜ˆ. ’…Š‘’ ˆ €Ž’… ‚ …„€Š’Ž… €‘‘Œ€’ˆ‚€…’‘Ÿ Š€Š ……- ›‚€Ÿ Ž‘‹…„Ž‚€’…‹œŽ‘’œ ‹ˆ’…, €‡ˆ’€Ÿ € ‘’ŽŠˆ ‘ˆŒ‚Ž‹€- Œˆ ŠŽ–€ ‘’ŽŠˆ. ‚ ’…Š‘’… …‘’œ Ž‡ˆ–ˆŸ, €‡›‚€…Œ€Ÿ "’…Š“- ™…‰". Ž€ €‘Ž‹€ƒ€…’‘Ÿ Œ_…_†_„_“ Š€ŠˆŒˆ-‹ˆŽ „‚“ŒŸ ‘Ž‘…„ˆ- Œˆ ‘ˆŒ‚Ž‹€Œˆ. ˆ €Ž’… ‚ …„€Š’Ž… Š“‘Ž ‚‘…ƒ„€ €•Ž„ˆ’‘Ÿ € “Ž‚- … „‚…€„–€’Ž‰ ‘’ŽŠˆ Š€€ ‘€‚€ Ž’ ’…Š“™…‰ Ž‡ˆ–ˆˆ, € Š€… Ž’Ž€†… ’…Š‘’ …„€Š’ˆ“…ŒŽƒŽ ”€‰‹€. ‚‘… ˆ‡Œ……ˆŸ ‚ ’…Š‘’… …Œ…„‹…Ž Ž’Ž€†€ž’‘Ÿ € Š€…. ˆ €Ž’… ‘ ’…Š‘’ŽŒ ‚…‘œ ’…Š‘’ €•Ž„ˆ’‘Ÿ ‚ Ž…€’ˆ‚Ž‰ €ŒŸ’ˆ, Ž’ŽŒ“ €‡Œ… ˆ‘•Ž„ŽƒŽ ’…Š‘’€ Žƒ€ŒŒ› … „Ž‹†… …‚›˜€’œ Ž'…Œ „Ž‘’“Ž‰ Ž…€’ˆ‚Ž‰ €ŒŸ’ˆ (’Ž ‘Ž‘’€‚‹Ÿ…’ ˆŒ…Ž 800 ‘’ŽŠ ’…Š‘’€). ˆ €Ž’… ‘ Žƒ€ŒŒ€Œˆ Ž‹œ˜…- ƒŽ Ž'…Œ€ ˆ• ’…Š‘’ …Ž•Ž„ˆŒŽ €‡ˆ‚€’œ € —€‘’ˆ, ˆ‘Ž‹œ‡“Ÿ „ˆ…Š’ˆ‚“ ŠŽŒˆ‹Ÿ’Ž€ "$I" (‚‘’€‚Š€ ’…Š‘’€ ˆ‡ ”€‰‹€). ‚› ˆŒ……’… ‚Ž‡ŒŽ†Ž‘’œ, Ž‹œ‡“Ÿ‘œ Š‹€‚ˆ˜€Œˆ …„€Š’ˆŽ‚€- ˆŸ, ……Œ…™€’œ‘Ÿ ‚ …„…‹€• ’…Š“™…‰ ‘’ŽŠˆ. ˆ Ž›’Š… ‚›‰’ˆ ‡€ ‹…‚›‰ ˆ‹ˆ €‚›‰ Š€‰ ‘’ŽŠˆ Žˆ‡‚Ž„ˆ’‘Ÿ ……•Ž„ € €—€‹Ž ‘‹…„“ž™…‰ ˆ‹ˆ ŠŽ…– …„›„“™…‰ ‘’ŽŠˆ. …„€Š’Ž €Ž’€…’ ‘ Ž‘’ŽŸŽ ‚Š‹ž—…›Œ …†ˆŒŽŒ ‚‘’€‚- Šˆ. Œ€Š‘ˆŒ€‹œ€Ÿ „‹ˆ€ ‘’ŽŠˆ ’…Š‘’€, „Ž“‘’ˆŒ€Ÿ ‚ …„€Š’Ž- …, -- 127 ‹ˆ’…, Ž„€ŠŽ € Š€… Ž’Ž€†€ž’‘Ÿ ’Ž‹œŠŽ …- ‚›… 80 ‹ˆ’…. …„€Š’Ž ’…Š‘’€ … ˆ‘Ž‹œ‡“…’ …†ˆŒ „ŽŽ‹ˆ’…‹œŽ‰ Š‹€- ‚ˆ€’“› „ˆ‘‹…Ÿ 15ˆ-00-013-01. 1 - 20 - 4.1. “€‚‹Ÿž™ˆ… Š‹€‚ˆ˜ˆ …„€Š’Ž€. Š “€‚‹Ÿž™ˆŒ Š‹€‚ˆ˜€Œ …„€Š’Ž€ Ž’Ž‘Ÿ’‘Ÿ: ‘’…‹Š€ ‚€‚Ž -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> ‘’…‹Š€ ‚‹…‚Ž -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> ‘’…‹Š€ ‚ˆ‡ -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> ‘’…‹Š€ ‚‚…• -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> Š‹€‚ˆ˜€ <‚Š> -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> Š‹€‚ˆ˜€ <‘“/Y> -- <‚›•Ž„ ˆ‡ …„€Š’Ž€> Š‹€‚ˆ˜€ <‘“/^> -- <……Š‹ž—…ˆ… €Ž€ ‘ˆŒ‚Ž‹Ž‚ “‘/‹€’> Š‹€‚ˆ˜€ -- <Š‹€‚ˆ˜€ "Ž‚’"> ’€ Š‹€‚ˆ˜€ ‚›Ž‹Ÿ…’ ”“Š–ˆˆ …”ˆŠ‘Ž‰ Š‹€‚ˆ˜ˆ, ˆ‡Œ…- ŸŸ „…‰‘’‚ˆ… Š‹€‚ˆ˜ˆ, ……„ ŠŽ’ŽŽ‰ Ž€ ›‹€ €†€’€. Š‹€‚ˆ˜€ -- <Š‹€‚ˆ˜€ "‹ŽŠ …„" € ‚…•…Œ Ÿ„… Š‹€- ‚ˆ€’“› Š-11Œ> <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> Š‹€‚ˆ˜€ <‘“/W>--<…ƒ……€–ˆŸ Š€€> 4.1.1. Š‹€‚ˆ˜ˆ ……Œ…™…ˆŸ Ž ’…Š‘’“. 4.1.1.1. Š‹€‚ˆ˜€ "‘’…‹Š€ ‚€‚Ž". €†€’ˆ… € ’“ Š‹€‚ˆ˜“ ……Œ…™€…’ ’…Š“™“ž Ž‡ˆ–ˆž € Ž„ˆ ‘ˆŒ‚Ž‹ ‚……„ Ž ’…Š‘’“. …‘‹ˆ „Ž‘’ˆƒ“’ ŠŽ…– ”€‰‹€, ’Ž ˆŠ€Šˆ• „…‰‘’‚ˆ‰ … Žˆ‡‚Ž„ˆ’‘Ÿ. ˆ ……•Ž„… —……‡ ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ Žˆ‡‚Ž„ˆ’‘Ÿ ‘„‚ˆƒ ’…Š‘’€ € Š€… ‚‚…•. 1 - 21 - 4.1.1.2. Š‹€‚ˆ˜€ "‘’…‹Š€ ‚‹…‚Ž". €†€’ˆ… € ’“ Š‹€‚ˆ˜“ ……Œ…™€…’ ’…Š“™“ž Ž‡ˆ–ˆž € Ž„ˆ ‘ˆŒ‚Ž‹ €‡€„ Ž ’…Š‘’“. …‘‹ˆ „Ž‘’ˆƒ“’Ž €—€‹Ž ”€‰‹€, ’Ž ˆŠ€Šˆ• „…‰‘’‚ˆ‰ … Žˆ‡‚Ž„ˆ’‘Ÿ. ˆ ……•Ž„… —……‡ ‘ˆŒ- ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ Žˆ‡‚Ž„ˆ’‘Ÿ ‘„‚ˆƒ ’…Š‘’€ € Š€… ‚ˆ‡. 4.1.1.3. Š‹€‚ˆ˜€ "‘’…‹Š€ ‚‚…•". ’€ Š‹€‚ˆ˜€ ˆ‚Ž„ˆ’ Š ……Œ…™…ˆž ’…Š“™…‰ Ž‡ˆ–ˆˆ € Ž‡ˆ–ˆž ‚ …„›„“™…‰ ‘’ŽŠ…, Ž’‘’ŽŸ™“ž Ž’ €—€‹€ ‘’ŽŠˆ € ‘’Ž‹œŠŽ †… ‡€ŠŽ‚, € ‘ŠŽ‹œŠŽ Ž’‘’ŽŸ‹€ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ Ž’ €—€‹€ ’…Š“™…‰ ‘’ŽŠˆ „Ž €†€’ˆŸ Š‹€‚ˆ˜ˆ. …‘‹ˆ …„›„“™€Ÿ ‘’ŽŠ€ ‘‹ˆ˜ŠŽŒ ŠŽŽ’Š€ „‹Ÿ ’ŽƒŽ, ’Ž ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €‡Œ…- ™€…’‘Ÿ ‚ ŠŽ–… …„›„“™…‰ ‘’ŽŠˆ. …‘‹ˆ ’…Š“™€Ÿ ‘’ŽŠ€ ›‹€ …‚Ž‰ ‚ ”€‰‹…, ’Ž ’…Š“™…‰ Ž‡ˆ–ˆ…‰ ‘’€Ž‚ˆ’‘Ÿ €—€‹Ž ”€‰‹€. ‘ˆŒ‚Ž‹ ’€“‹Ÿ–ˆˆ €‘‘Œ€’ˆ‚€…’‘Ÿ ˆ Ž„‘—…’… Ž‡ˆ–ˆˆ Š€Š ‘ŽŽ’‚…’‘’‚“ž™…… ŠŽ‹ˆ—…‘’‚Ž Ž…‹Ž‚. 4.1.1.4. Š‹€‚ˆ˜€ "‘’…‹Š€ ‚ˆ‡". ’€ Š‹€‚ˆ˜€ ˆ‚Ž„ˆ’ Š ……Œ…™…ˆž ’…Š“™…‰ Ž‡ˆ–ˆˆ € Ž‡ˆ–ˆž ‚ ‘‹…„“ž™…‰ ‘’ŽŠ…, Ž’‘’ŽŸ™“ž Ž’ €—€‹€ ‘’ŽŠˆ € ‘’Ž‹œŠŽ †… ‡€ŠŽ‚, € ‘ŠŽ‹œŠŽ Ž’‘’ŽŸ‹€ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ Ž’ €—€‹€ ’…Š“™…‰ ‘’ŽŠˆ „Ž €†€’ˆŸ Š‹€‚ˆ˜ˆ. …‘‹ˆ ‘‹…„“ž™€Ÿ ‘’ŽŠ€ ‘‹ˆ˜ŠŽŒ ŠŽŽ’Š€ „‹Ÿ ’ŽƒŽ, ’Ž ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €‡Œ…- ™€…’‘Ÿ ‚ …… ŠŽ–…. …‘‹ˆ ’…Š“™€Ÿ ‘’ŽŠ€ ›‹€ Ž‘‹…„…‰ ‚ ”€‰- ‹…, ’Ž ’…Š“™…‰ Ž‡ˆ–ˆ…‰ ‘’€Ž‚ˆ’‘Ÿ ŠŽ…– ”€‰‹€. ‘ˆŒ‚Ž‹ ’€“- ‹Ÿ–ˆˆ €‘‘Œ€’ˆ‚€…’‘Ÿ ˆ Ž„‘—…’… Ž‡ˆ–ˆˆ Š€Š ‘ŽŽ’‚…’‘’‚“ž- ™…… ŠŽ‹ˆ—…‘’‚Ž Ž…‹Ž‚. 4.1.1.5. Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚€‚Ž". ‚‚Ž„ ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ ˆ‚Ž„ˆ’ Š “‘’€Ž‚- Š… ’…Š“™…‰ Ž‡ˆ–ˆˆ € ŠŽ…– ’…Š“™…‰ ‘’ŽŠˆ (…‘‹ˆ Ž€ ’€Œ … €•Ž„ˆ‹€‘œ) ˆ Š “‘’€Ž‚Š… € ŠŽ…– ‘‹…„“ž™…‰ ‘’ŽŠˆ, …‘‹ˆ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ “†… €•Ž„ˆ‹€‘œ ‚ ŠŽ–… ‘’ŽŠˆ. 1 - 22 - 4.1.1.6. Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚‹…‚Ž". ‚‚Ž„ ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ ˆ‚Ž„ˆ’ Š “‘’€Ž‚- Š… ’…Š“™…‰ Ž‡ˆ–ˆˆ € €—€‹Ž ’…Š“™…‰ ‘’ŽŠˆ (…‘‹ˆ Ž€ ’€Œ … €•Ž„ˆ‹€‘œ) ˆ Š “‘’€Ž‚Š… € €—€‹Ž …„›„“™…‰ ‘’ŽŠˆ, …‘‹ˆ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ “†… €•Ž„ˆ‹€‘œ ‚ €—€‹… ‘’ŽŠˆ. 4.1.1.7. Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚‚…•". ‚‚Ž„ ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ Š‚ˆ‚€‹…’… „‚…- €„–€’ˆ €†€’ˆŸŒ Ž„ˆŽ—Ž‰ Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚‚…•". 4.1.1.8. Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚ˆ‡". ‚‚Ž„ ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ Š‚ˆ‚€‹…’… „‚…- €„–€’ˆ €†€’ˆŸŒ Ž„ˆŽ—Ž‰ Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚ˆ‡". 4.1.1.9. Š‹€‚ˆ˜ˆ "4". €†€’ˆ… Š‹€‚ˆ˜ "4" “‘’€€‚‹ˆ‚€…’ ’…Š“™“ž Ž‡ˆ–ˆž € ŠŽ…– ”€‰‹€. 4.1.1.10. Š‹€‚ˆ˜ˆ "5". €†€’ˆ… Š‹€‚ˆ˜ "5" “‘’€€‚‹ˆ‚€…’ ’…Š“™“ž Ž‡ˆ–ˆž € €—€‹Ž ”€‰‹€. 1 - 23 - 4.1.2. Š‹€‚ˆ˜ˆ ŠŽ…Š’ˆŽ‚Šˆ ’…Š‘’€. 4.1.2.1. Š‹€‚ˆ˜€ <‡>. €†€’ˆ… € Š‹€‚ˆ˜“ <‡> ˆ‚Ž„ˆ’ Š “„€‹…ˆž ‹ˆ’…› ‘‹…- ‚€ Ž’ ’…Š“™…‰ Ž‡ˆ–ˆˆ. …‘‹ˆ “„€‹Ÿ…Œ€Ÿ ‹ˆ’…€ -- ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ (’Ž …‘’œ, ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €•Ž„ˆ’‘Ÿ ‚ €—€‹… ‘’ŽŠˆ), ’Ž Žˆ‘•Ž„ˆ’ "‘Š‹…‰Š€" ’…Š“™…‰ ˆ …„›„“™…‰ ‘’ŽŠ ’…Š‘’€. €†€’ˆ… Š‹€‚ˆ˜ˆ <‡> ‚ €—€‹… ’…Š‘’€ ˆƒŽˆ“…’‘Ÿ. 4.1.2.2. Š‹€‚ˆ˜€ . €†€’ˆ… € Š‹€‚ˆ˜“ ˆ‚Ž„ˆ’ Š “„€‹…ˆž ‹ˆ’…› ‘€‚€ Ž’ ’…Š“™…‰ Ž‡ˆ–ˆˆ. …‘‹ˆ “„€‹Ÿ…Œ€Ÿ ‹ˆ’…€ -- ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ (’Ž …‘’œ, ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €•Ž„ˆ’‘Ÿ ‚ ŠŽ–… ‘’ŽŠˆ), ’Ž Žˆ‘•Ž„ˆ’ "‘Š‹…‰Š€" ’…Š“™…‰ ˆ ‘‹…„“ž™…‰ ‘’ŽŠ ’…Š‘’€. €†€’ˆ… Š‹€‚ˆ˜ˆ ‚ ŠŽ–… ’…Š‘’€ ˆƒŽˆ“…’‘Ÿ. 4.1.2.3. Š‹€‚ˆ˜€ <‚Š>. €†€’ˆ… € Š‹€‚ˆ˜“ <‚Š> ˆ‚Ž„ˆ’ Š ‚‘’€‚Š… ‘ˆŒ‚Ž‹€ ŠŽ- –€ ‘’ŽŠˆ ‘‹…‚€ Ž’ ’…Š“™…‰ Ž‡ˆ–ˆˆ. ’Ž ˆ‚Ž„ˆ’ Š "€‡…‡€- ˆž" ’…Š“™…‰ ‘’ŽŠˆ € „‚…, ˆ‹ˆ, …‘‹ˆ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €•Ž- „ˆ’‘Ÿ ‚ €—€‹… ˆ‹ˆ ŠŽ–… ‘’ŽŠˆ, Š ŽŸ‚‹…ˆž “‘’Ž‰ ‘’ŽŠˆ. 4.1.2.4. Š‹€‚ˆ˜ˆ <‡>. €†€’ˆ… ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ ˆ‚Ž„ˆ’ Š “„€- ‹…ˆž ‚‘…• ‘ˆŒ‚Ž‹Ž‚ ‚ ’…Š“™…‰ ‘’ŽŠ… ‘€‚€ Ž’ ’…Š“™…‰ Ž‡ˆ- –ˆˆ ˆ “„€‹…ˆž ‘ˆŒ‚Ž‹€ ŠŽ–€ ‘’ŽŠˆ, ‘‹…„“ž™…ƒŽ ‡€ ˆŒˆ. 1 - 24 - 4.1.2.5. Š‹€‚ˆ˜ˆ . €†€’ˆ… ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ ˆ‚Ž„ˆ’ Š “„€- ‹…ˆž ‚‘…• ‘ˆŒ‚Ž‹Ž‚ ‚ ’…Š“™…‰ ‘’ŽŠ… ‘€‚€ Ž’ ’…Š“™…‰ Ž‡ˆ- –ˆˆ. ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ, ‘‹…„“ž™ˆ‰ ‡€ ˆŒˆ, … “„€‹Ÿ…’‘Ÿ. 4.2. „“ƒˆ… ‚Ž‡ŒŽ†Ž‘’ˆ …„€Š’Ž€. Š „“ƒˆŒ ‚Ž‡ŒŽ†Ž‘’ŸŒ …„€Š’Ž€ Ž’Ž‘Ÿ’‘Ÿ: 1. €Ž’€ ‘ “—€‘’Š€Œˆ ’…Š‘’€. 2. Žˆ‘Š Ž€‡–€ Ž ’…Š‘’“. 3. ‚•Ž„ ‚ …„€Š’ˆŽ‚€ˆ… „“ƒŽƒŽ ”€‰‹€. 4. €Ž’€ ‘ “‘‘ŠˆŒˆ ˆ ‹€’ˆ‘ŠˆŒˆ ‘ˆŒ‚Ž‹€Œˆ. 5. …ƒ……€–ˆŸ Š€€. 4.2.1. €Ž’€ ‘ “—€‘’Š€Œˆ ’…Š‘’€. ‚ …„€Š’Ž… ˆŒ……’‘Ÿ ‚Ž‡ŒŽ†Ž‘’œ €Ž’› ‘ “—€‘’Š€Œˆ ’…Š‘’€. “—€‘’ŽŠ ’…Š‘’€ ‡€„€…’‘Ÿ ˆ†…‰ ˆ ‚…•…‰ ƒ€ˆ–€Œˆ. ˆ ’ŽŒ ˆ†ŸŸ ƒ€ˆ–€ “—€‘’Š€ „Ž‹†€ €•Ž„ˆ’‘Ÿ Ž‘‹… ‚…•- …‰. …„€Š’Ž Ž‡‚Ž‹Ÿ…’ ‘ŠŽˆŽ‚€’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ‚ „“ƒŽ… Œ…‘’Ž, “„€‹ˆ’œ …ƒŽ ˆ‹ˆ ……Œ…‘’ˆ’œ ‚ „“ƒŽ… Œ…‘’Ž ’…Š‘’€. 4.2.1.1. "‚" -- Ž’Œ…’ˆ’œ €—€‹Ž “—€‘’Š€ ’…Š‘’€. Ž ’Ž‰ ŠŽŒ€„… ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ’…Š‘’€ “‘’€€‚‹ˆ‚€…’‘Ÿ €—€‹ŽŒ “—€‘’Š€. …„›„“™€Ÿ Ž’Œ…’Š€ €—€‹€ “—€‘’Š€ Ž’Œ…Ÿ…’- ‘Ÿ. ‚Œ…‘’Ž “Š‚› "‚" ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ "W". 1 - 25 - 4.2.1.2. "" -- Ž’Œ…’ˆ’œ ŠŽ…– “—€‘’Š€ ’…Š‘’€. Ž ’Ž‰ ŠŽŒ€„… ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ’…Š‘’€ “‘’€€‚‹ˆ‚€…’‘Ÿ ‚ Š€—…‘’‚… ŠŽ–€ “—€‘’Š€. …„›„“™€Ÿ Ž’Œ…’Š€ ŠŽ–€ “—€‘’Š€ Ž’Œ…Ÿ…’‘Ÿ. ‚Œ…‘’Ž “Š‚› "" ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ "N". 4.2.1.3. "“" -- “„€‹ˆ’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ’€ ŠŽŒ€„€ “„€‹Ÿ…’ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€. ƒ€ˆ–› “—€‘’Š€ „Ž‹†› ›’œ ‡€„€› ŠŽ…Š’Ž. ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ‚ ŒŽŒ…’ ‚›Ž‹…ˆŸ ŠŽŒ€„› „Ž‹†€ €•Ž„ˆ’œ‘Ÿ ‡€ …„…‹€Œˆ Ž’Œ…—…ŽƒŽ “—€‘’Š€ ’…Š‘’€. ‚Œ…‘’Ž “Š‚› "“" ŒŽ†…’ ›’œ ˆ‘Ž‹œ‡Ž‚€€ “Š‚€ "U". 4.2.1.4. "Š" -- ‘ŠŽˆŽ‚€’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ‚ ’…Š“™“ž Ž‡ˆ–ˆž. ’€ ŠŽŒ€„€ ŠŽˆ“…’ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ‚ ’…Š“- ™“ž Ž‡ˆ–ˆž. ƒ€ˆ–› “—€‘’Š€ „Ž‹†› ›’œ ‡€„€› ŠŽ…Š’Ž. ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ‚ ŒŽŒ…’ ‚›Ž‹…ˆŸ ŠŽŒ€„› „Ž‹†€ €•Ž„ˆ’œ- ‘Ÿ ‡€ …„…‹€Œˆ Ž’Œ…—…ŽƒŽ “—€‘’Š€ ’…Š‘’€. ‚Œ…‘’Ž “Š‚› "Š" ŒŽ†…’ ›’œ ˆ‘Ž‹œ‡Ž‚€€ “Š‚€ "K"(‹€’.). 4.2.1.5. "" -- ……Œ…‘’ˆ’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ‚ ’…Š“™“ž Ž‡ˆ–ˆž. ’€ ŠŽŒ€„€ ……Œ…™€…’ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ‚ ’…Š“™“ž Ž‡ˆ–ˆž. ƒ€ˆ–› “—€‘’Š€ „Ž‹†› ›’œ ‡€„€› ŠŽ…Š’- Ž. ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ‚ ŒŽŒ…’ ‚›Ž‹…ˆŸ ŠŽŒ€„› „Ž‹†€ €•Ž- „ˆ’œ‘Ÿ ‡€ …„…‹€Œˆ Ž’Œ…—…ŽƒŽ “—€‘’Š€ ’…Š‘’€. ‚Œ…‘’Ž “Š‚› "" ŒŽ†…’ ›’œ ˆ‘Ž‹œ‡Ž‚€€ “Š‚€ "P". 1 - 26 - 4.2.1.6. "‘" -- ‘Ž‘ Ž’Œ…’ŽŠ ƒ€ˆ–. ’€ ŠŽŒ€„€ …„€Š’Ž€ Ž’Œ…Ÿ…’ ‘„…‹€›… Ž’Œ…’Šˆ ƒ€ˆ– “—€‘’Š€. ‚Œ…‘’Ž “Š‚› "‘" ‚ ŠŽŒ€„… ŒŽ†…’ ›’œ ˆ‘Ž‹œ‡Ž‚€€ “Š‚€ "S". 4.2.2. Žˆ‘Š Ž€‡–€ Ž ’…Š‘’“. „‹Ÿ Žˆ‘Š€ Ž‡–€ …Ž•Ž„ˆŒŽ ‚‚…‘’ˆ Ž‘‹…„Ž‚€’…‹œŽ‘’œ Š‹€‚ˆ˜ "8". Ž‘‹… ’Ž ‚ ˆ†…‰ ‘’ŽŠ… Š€€ ‚›„€…’‘Ÿ ‡€Ž‘: Žˆ‘Š: ‚ Ž’‚…’ € ŠŽ’Ž›‰ …Ž•Ž„ˆŒŽ ‚‚…‘’ˆ Ž€‡…– „‹Ÿ Žˆ‘- Š€. Ž‘‹… €†€’ˆŸ Š‹€‚ˆ˜ˆ <‚Š> ˆ‹ˆ <‘“/Y> Žˆ‡‚Ž„ˆ’‘Ÿ Žˆ‘Š ‡€„€ŽƒŽ Ž€‡–€. …‘‹ˆ Ž€‡…– … ›‹ €‰„…, ’Ž ’…Š“™€Ÿ Ž‡ˆ–ˆŸ “‘’€€‚‹ˆ‚€…’‘Ÿ € ŠŽ…– ”€‰‹€. …„€Š’Ž ŽŒˆ’ Ž€‡…– ˆ ˆ Ž‚’ŽŽŒ €†€’ˆˆ . 4.2.3. …„€Š’ˆŽ‚€ˆ… „“ƒŽƒŽ ”€‰‹€. …„€Š’Ž ˆŒ……’ ‚Ž‡ŒŽ†Ž‘’œ …„€Š’ˆ“Ÿ ’…Š‘’ ‚›‡‚€’œ „‹Ÿ …„€Š’ˆŽ‚€ˆŸ „“ƒŽ‰ ’…Š‘’ ‘ „ˆ‘Š€, ‚…‘’ˆ ‚ …ƒŽ …Ž•Ž„ˆ- Œ›… ˆ‡Œ……ˆŸ, Ž‘‹… —…ƒŽ Ž„Ž‹†ˆ’œ €Ž’“ ‘ …‚Ž€—€‹œ›Œ ’…Š‘’ŽŒ. „‹Ÿ ’ŽƒŽ …Ž•Ž„ˆŒŽ €†€’œ Ž‘‹…„Ž‚€’…‹œŽ‘’œ Š‹€- ‚ˆ˜ "7". Ž‘‹… ’ŽƒŽ ‚ ˆ†…‰ ‘’ŽŠ… ‚›„€…’‘Ÿ ‡€Ž‘: ˆŒŸ ”€‰‹€: ‚ Ž’‚…’ € ŠŽ’Ž›‰ …Ž•Ž„ˆŒŽ ‚‚…‘’ˆ ˆŒŸ ”€‰‹€, ‚›‡›- ‚€…ŒŽƒŽ „‹Ÿ …„€Š’ˆŽ‚€ˆŸ. ‚‚Ž„ “‘’Ž‰ ‘’ŽŠˆ ‚›‡›‚€…’ Ž’Œ…“ ŠŽŒ€„›. Ž‘‹… ‚‚Ž„€ ˆŒ…ˆ ”€‰‹€ Žˆ‡‚Ž„ˆ’‘Ÿ ‘—ˆ’›- ‚€ˆ… ’…Š‘’€ ‘ „ˆ‘Š€ ˆ ‚•Ž„ ‚ …ƒŽ …„€Š’ˆŽ‚€ˆ…. ˆ …„€Š- ’ˆŽ‚€ˆˆ ‚ ’ŽŒ …†ˆŒ… „Ž“‘’ˆŒŽ ˆ‘Ž‹œ‡Ž‚€ˆ… ‚‘…• ‘…„‘’‚ …„€Š’ˆŽ‚€ˆŸ, ‚Š‹ž—€Ÿ ˆ ’Ž‹œŠŽ —’Ž Žˆ‘€“ž ŠŽŒ€„“. ‡€‚…˜…ˆ… …„€Š’ˆŽ‚€ˆŸ ’…Š“™…ƒŽ ”€‰‹€ Žˆ‡‚Ž„ˆ’‘Ÿ Ž ŠŽŒ€„… <‘“/Y>. ˆ ‡€‚…˜…ˆˆ …„€Š’ˆŽ‚€ˆŸ ”€‰‹€, …‘‹ˆ ‚ …ƒŽ ›‹ˆ ‚…‘…› ˆ‡Œ……ˆŸ, Žˆ‡‚Ž„ˆ’‘Ÿ …ƒŽ ‡€ˆ‘œ € „ˆ‘Š. ‘‹…„“…’ Ž’Œ…’ˆ’œ, —’Ž ˆ €Ž’… ‚ ’ŽŒ …†ˆŒ… ‚ €ŒŸ’ˆ ‚Œ €•Ž„Ÿ’‘Ÿ ’…Š‘’› …‘ŠŽ‹œŠˆ• …„€Š’ˆ“…Œ›• ‚ ’Ž’ ŒŽŒ…’ ”€‰‹Ž‚, ’€Š —’Ž …•‚€’Š€ €ŒŸ’ˆ ‘’€Ž‚ˆ’‘Ÿ Ž‹…… ‚…ŽŸ’Ž‰. 1 - 27 - 4.2.4. €Ž’€ ‘ “‘‘ŠˆŒˆ ˆ ‹€’ˆ‘ŠˆŒˆ ‘ˆŒ‚Ž‹€Œˆ. …„€Š’Ž ˆŒ……’ ‚Ž‡ŒŽ†Ž‘’œ €Ž’› Š€Š ‘ “‘‘ŠˆŒˆ, ’€Š ˆ ‘ ‹€’ˆ‘ŠˆŒˆ ‘ˆŒ‚Ž‹€Œˆ.’€Š Š€Š Ž€Ž’Š€ ‚‚Ž„€-‚›‚Ž„€ …€‹ˆ- ‡“…’‘Ÿ Ž‘…„‘’‚ŽŒ Ž‘ ’-11, € „ˆ‘‹…Ÿ•, Ž€€’›‚€ž™ˆ• 4-• €‹”€‚ˆ’›… ˜ˆ”’›, … …ŠŽŒ…„“…’‘Ÿ ˆ‘Ž‹œ‡Ž‚€ˆ… Š‹€‚ˆ˜ ……Š‹ž—…ˆŸ €ŽŽ‚ (“‘,‹€’ € „ˆ‘‹…… 15ˆ-00-013-01), Ž’ŽŒ“ —’Ž ’ˆ Š‹€‚ˆ˜ˆ ŒŽƒ“’ ƒ……ˆŽ‚€’œ ŠŽ„ <‘“/O>, ŠŽ’Ž›‰ ˆ‘Ž‹œ‡“…’‘Ÿ ‚ Ž‘ RT-11 „‹Ÿ ‚…Œ…ŽƒŽ ‡€…™…ˆŸ ‚›‚Ž„€ € Š€. Ž‚’ŽŽ… €†€’ˆ… <‘“/O> ‚Ž‘‘’€€‚‹ˆ‚€…’ ‚›‚Ž„. ‚‘‹…„‘’‚ˆˆ ’ŽƒŽ ‚ PASCAL/FAST ……Š‹ž—…ˆ… …†ˆŒŽ‚ "“‘" ˆ "‹€’" Žˆ‡‚Ž„ˆ’‘Ÿ Ž„Ž‚…Œ…›Œ €†€’ˆ…Œ Š‹€‚ˆ˜ <‘“> ˆ "^". ˆ ’ŽŒ …„€Š’Ž ŒŽ†…’ €Ž’€’œ Š€Š ‘ ‡€ƒ‹€‚- ›Œˆ, ’€Š ˆ ‘ Žˆ‘›Œˆ ‘ˆŒ‚Ž‹€Œˆ. ……Š‹ž—…ˆ… ’ˆ• …†ˆ- ŒŽ‚ Žˆ‡‚Ž„ˆ’‘Ÿ Š‹€‚ˆ˜€Œˆ "‚" ˆ "". 4.2.5. …ƒ……€–ˆŸ Š€€. ˆ Ž„Ž‚…Œ…ŽŒ €†€’ˆˆ Š‹€‚ˆ˜ <‘“> "W" Žˆ‘•Ž„ˆ’ …ƒ……€–ˆŸ Š€€. ˆ ’ŽŒ Ž‡ˆ–ˆŸ Œ€Š…€ … ˆ‡Œ…Ÿ…’‘Ÿ. 5. Ž‘Ž‚›… ‹…Œ…’› Ÿ‡›Š€ 5.1. Ž‘Ž‚›… ‘ˆŒ‚Ž‹› Ž‘Ž‚Ž‰ ‘‹Ž‚€œ Ÿ‡›Š€ PASCAL/FAST ‘Ž‘’Žˆ’ ˆ‡ Ž‘Ž‚›• ‘ˆŒ‚Ž‹Ž‚, ŠŽ’Ž›… Ž„€‡„…‹Ÿž’‘Ÿ € : “Š‚›: Ž’ A „Ž Z; Ž’ € „Ž Ÿ ˆ ‡€Š _ (Ž„—…Šˆ‚€ˆ…) –ˆ”›: 0 1 2 3 4 5 6 7 8 9 ‘…–ˆ€‹œ›… ‘ˆŒ‚Ž‹›: + - * / = ^ < > ( ) [ ] . , : ; ' # $ ˆ ”ˆƒ“›… ‘ŠŽŠˆ ’€‘‹Ÿ’Ž Ÿ‡›Š€ PASCAL/FAST … „…‹€…’ €‡‹ˆ—ˆŸ Œ…†„“ Žˆ‘›Œˆ ˆ ‘’Ž—›Œˆ “Š‚€Œˆ. …ŠŽ’Ž›… Ž…€’Ž› ˆ €‡ƒ- €ˆ—ˆ’…‹ˆ ”ŽŒˆ“ž’‘Ÿ ˆ‡ „‚“• ‘…–ˆ€‹œ›• ‘ˆŒ‚Ž‹Ž‚: 1 - 28 - Ž…€’Ž ˆ‘‚€ˆ‚€ˆŸ: := Ž…€’Ž› Ž’Ž˜…ˆŸ: <= >= <> €‡ƒ€ˆ—ˆ’…‹œ „ˆ€€‡ŽŽ‚: .. ŠŽŒŒ…’€ˆ‰: ‚Œ…‘’Ž ”ˆƒ“›• ‘ŠŽŽŠ ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ Š“ƒ‹›… ‘ŠŽŠˆ ‘Ž ‡‚…‡„Ž—Š€Œˆ (* ˆ *) €ˆŒ…: (* ŠŽŒŒ…’€ˆ‰ *) 5.2. ‡€…‡…‚ˆŽ‚€›… ‘‹Ž‚€ ‡€…‡…‚ˆŽ‚€›… ‘‹Ž‚€ Ÿ‚‹Ÿž’‘Ÿ ‘Ž‘’€‚Ž‰ —€‘’œž Ÿ‡›Š€ PASCAL/FAST. ˆ• …‹œ‡Ÿ ……Ž…„…‹ˆ’œ, ˆ Ž’ŽŒ“ ˆ• …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ ‚ Š€—…‘’‚… ˆ„…’ˆ”ˆŠ€’ŽŽ‚, Ž…„…‹Ÿ…Œ›• Ž‹œ- ‡Ž‚€’…‹…Œ. ‡€…‡…‚ˆŽ‚€›… ‘‹Ž‚€ Ÿ‡›Š€ PASCAL/FAST: * ABSOLUTE * EXTERNAL NIL * SHL AND FILE NOT * SHR ARRAY FORWARD * STRING BEGIN FOR OF THEN CASE FUNCTION OR TYPE CONST GOTO PACKED TO DIV * INLINE PROCEDURE UNTIL DO IF PROGRAM VAR DOWNTO IN RECORD WHILE ELSE LABEL REPEAT WITH END MOD SET * XOR ‡‚…‡„Ž—Šˆ ŽŠŽ‹Ž …ŠŽ’Ž›• ‘‹Ž‚ Ž‡€—€ž’, —’Ž „€›… ‡€…‡…‚ˆŽ‚€›… ‘‹Ž‚€ ‚ ‘’€„€’ŽŒ Ÿ‡›Š… PASCAL … Ž…- „…‹…›. 5.3. ‘’€„€’›… ˆ„…’ˆ”ˆŠ€’Ž› ‚ Ÿ‡›Š… PASCAL/FAST …‘’œ …‘ŠŽ‹œŠŽ ‘’€„€’›• ˆ„…’ˆ- ”ˆŠ€’ŽŽ‚ „‹Ÿ ‡€€…… Ž…„…‹…›• ’ˆŽ‚, ŠŽ‘’€’, ……Œ…- ›•, Ž–…„“ ˆ ”“Š–ˆ‰. ‹žŽ‰ ˆ‡ ‘’€„€’›• ˆ„…’ˆ”ˆŠ€’Ž- Ž‚ ŒŽ†Ž ……Ž…„…‹ˆ’œ, Ž ‚ ’ŽŒ ‘‹“—€… ‚› “†… … ‘ŒŽ†…’… ˆ‘Ž‹œ‡Ž‚€’œ ’Ž’ ˆ„…’ˆ”ˆŠ€’Ž ’€Š, Š€Š ’Ž Ž…„…‹…Ž ‚ ‘ˆ‘’…Œ…, —’Ž ŒŽ†…’ ˆ‚…‘’ˆ Š “’€ˆ–…. Ž’ŽŒ“ ˆ‚Ž„ˆŒ›… ˆ†… ‘’€„€’›… ˆ„…’ˆ”ˆŠ€’Ž› ‹“—˜… … ……Ž…„…‹Ÿ’œ ˆ ˆ‘Ž‹œ‡Ž‚€’œ Ž €‡€—…ˆž: 1 - 29 - ABS DELAY LENGTH RENAME ADDR DELETE ARCTAN DISPOSE LN ASSIGN EOF LO RESET EOLN REWRITE ERASE LST ROUND EXIT SEEK BLOCKREAD EXITPROC MAXINT SIN BLOCKWRITE EXP MEM SIZEOF BOOLEAN FALSE MEMW SEEKEOF BUFLEN FILEPOS MEMAVAIL SEEKEOLN BYTE FILESIZE MOVE SQR FILLCHAR NEW SQRT CHAR FLUSH STR CHR FRAC ODD SUCC CLOSE FREEMEM ORD SWAP CLREOL GETMEM OUTPUT TEXT CLRSCR GOTOXY PI HALT POINTER TRUNC HI POS UPCASE CONCAT IORESULT PRED INPUT RANDOM COPY INSERT RANDOMIZE COS INT READ VAL INTEGER READKEY WRITE KBD READLN WRITELN KEYPRESSED REAL 5.4. €‡ƒ€ˆ—ˆ’…‹ˆ ‹…Œ…’› Ÿ‡›Š€ „Ž‹†› Ž’„…‹Ÿ’œ‘Ÿ „“ƒ Ž’ „“ƒ€ •Ž’Ÿ › Ž„ˆŒ ˆ‡ ‘‹…„“ž™ˆ• €‡ƒ€ˆ—ˆ’…‹…‰: Ž…‹, ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ ˆ‹ˆ ŠŽŒŒ…’€ˆ‰. 5.5. ‘’ŽŠˆ Žƒ€ŒŒ› Œ€Š‘ˆŒ€‹œ€Ÿ „‹ˆ€ ‘’ŽŠˆ Žƒ€ŒŒ› €‚Ÿ…’‘Ÿ 127 ‘ˆŒ- ‚Ž‹€Œ. …‘‹ˆ ‚ ‘’ŽŠ… Ž‹…… 127 ‘ˆŒ‚Ž‹Ž‚, ’Ž ‚‘… ‹ˆ˜ˆ… ‘ˆŒ- ‚Ž‹› ŠŽŒˆ‹Ÿ’ŽŽŒ ˆƒŽˆ“ž’‘Ÿ. Ž’ŽŒ“ …„€Š’Ž PASCAL/FAST €‡…˜€…’ ’Ž‹œŠŽ ‘’ŽŠˆ „‹ˆŽ‰ … Ž‹…… 127 ‘ˆŒ‚Ž‹Ž‚, •Ž’Ÿ ˆ‘•Ž„€Ÿ Žƒ€ŒŒ€, Ž„ƒŽ’Ž‚‹…€Ÿ ˆ ŽŒŽ™ˆ „“ƒŽƒŽ …„€Š- ’Ž€, ŒŽ†…’ ˆ‘Ž‹œ‡Ž‚€’œ ˆ Ž‹…… „‹ˆ›… ‘’ŽŠˆ. …‘‹ˆ ’€ŠŽ‰ ’…Š‘’ Ž€€’›‚€…’‘Ÿ …„€Š’ŽŽŒ PASCAL/FAST, ’Ž Ž €‚’ŽŒ€’ˆ- —…‘Šˆ ‚‘’€‚‹Ÿ…’ ‘ˆŒ‚Ž‹› Žƒ€ˆ—…ˆŸ ‘’ŽŠˆ (”ŽŒˆ“…’ ‘’ŽŠˆ „‹ˆŽ‰ … Ž‹……, —…Œ 127 ‘ˆŒ‚Ž‹Ž‚). 1 - 30 - 6. ‘’€„€’›… ’ˆ› ‘Š€‹ŸŽ‚ ’ˆ „€›• Ž…„…‹Ÿ…’ ŒŽ†…‘’‚Ž ‡€—…ˆ‰, ŠŽ’ŽŽ… ŒŽ†…’ ˆˆŒ€’œ ……Œ…€Ÿ. Š€†„Ž‰ ……Œ…Ž‰ ‚ Žƒ€ŒŒ… …Ž•Ž- „ˆŒŽ ‡€„€’œ Ž„ˆ, ˆ ’Ž‹œŠŽ Ž„ˆ, ’ˆ „€›•. •Ž’Ÿ PASCAL/FAST ŒŽ†…’ Ž€€’›‚€’œ „Ž‘’€’Ž—Ž ‘‹Ž†›… ’ˆ› „€- ›•, ‚‘… Žˆ ‘Ž‘’€‚‹Ÿž’‘Ÿ ˆ‡ Ž‘’›• (…‘’“Š’“ˆŽ‚€›•) ’ˆŽ‚. Ž‘’Ž‰ ’ˆ „€›• ŒŽ†…’ Ž…„…‹Ÿ’œ‘Ÿ ‘€ŒˆŒ Žƒ€ŒŒˆ‘- ’ŽŒ (‚ ’ŽŒ ‘‹“—€… Ž €‡›‚€…’‘Ÿ Žˆ‘€›Œ ‘Š€‹Ÿ›Œ ’ˆŽŒ), Ž ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ˆ ‘’€„€’›… ‘Š€‹Ÿ›… ’ˆ›: INTEGER (–…‹Ž—ˆ‘‹…›‰), REAL (‚…™…‘’‚…›‰), BOOLEAN (“‹…‚‘Šˆ‰ ˆ‹ˆ ‹Žƒˆ—…‘Šˆ‰), CHAR (‘ˆŒ‚Ž‹œ›‰ ˆ‹ˆ ‹ˆ’…›‰) ˆ BYTE (€‰’Ž- ‚›‰). ˆ†… „€…’‘Ÿ Žˆ‘€ˆ… ’ˆ• Ÿ’ˆ ‘’€„€’›• ‘Š€‹Ÿ›• ’ˆŽ‚. 6.1. –…‹Ž—ˆ‘‹…›‰ ’ˆ (INTEGER) Š –…‹Ž—ˆ‘‹…ŽŒ“ ’ˆ“ Ž’Ž‘Ÿ’‘Ÿ ‚‘… –…‹›… —ˆ‘‹€. ‚ PASCAL/FAST Žˆ Žƒ€ˆ—ˆ‚€ž’‘Ÿ „ˆ€€‡ŽŽŒ Ž’ -32768 „Ž 32767. „€›… –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€ ‡€ˆŒ€ž’ ‚ €ŒŸ’ˆ Ž 2 €‰’€. ˆ ‚›Ž‹…ˆˆ €ˆ”Œ…’ˆ—…‘Šˆ• Ž…€–ˆ‰ €„ –…‹Ž—ˆ‘‹…- ›Œˆ „€›Œˆ ……Ž‹…ˆ… … Ž€“†ˆ‚€…’‘Ÿ. Ž’Œ…’ˆŒ, —’Ž “†Ž ‘‹…„ˆ’œ ‡€ ’…Œ, —’Ž› ŽŒ…†“’Ž—›… …‡“‹œ’€’› ˆ ‚›—ˆ‘‹…ˆˆ –…‹Ž—ˆ‘‹…›• ‚›€†…ˆ‰ … ‚›•Ž„ˆ‹ˆ ‡€ …„…‹› „ˆ€€‡Ž€, Ž…„…‹…ŽƒŽ „‹Ÿ „€›• –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€. €ˆŒ…, ˆ ‚›—ˆ‘‹…ˆˆ ‚›€†…ˆŸ 1000*100/50 ‚› … Ž‹“—ˆ- ’… …‡“‹œ’€’ 2000, ’€Š Š€Š ˆ ‚›Ž‹…ˆˆ “ŒŽ†…ˆŸ ˆŒ……’ Œ…‘’Ž ……Ž‹…ˆ…. 6.2. €‰’Ž‚›‰ ’ˆ (BYTE) ’ˆ BYTE Ÿ‚‹Ÿ…’‘Ÿ ‘‚Ž…Ž€‡›Œ Ž„ŒŽ†…‘’‚ŽŒ ’ˆ€ INTEGER ˆ Ž•‚€’›‚€…’ –…‹›… —ˆ‘‹€ ‚ „ˆ€€‡Ž… Ž’ 0 „Ž 255. Ž’ŽŒ“ „€›…, ˆŒ…ž™ˆ… €‰’Ž‚›‰ ’ˆ, ŒŽ†Ž ‘€‚ˆ‚€’œ ‘ „€›Œˆ –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€. Š€†„›‰ €‡, ŠŽƒ„€ ‚› Ž†ˆ„€…’… Ž‹“—ˆ’œ ‚…‹ˆ—ˆ“ ’ˆ€ BYTE, ‚Œ…‘’Ž …… ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ‡€—…ˆ… –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€ (INTEGER) ˆ €ŽŽŽ’. ˆ‘Š‹ž—…- ˆ… ‘Ž‘’€‚‹Ÿž’ ’Ž‹œŠŽ ’… ‘‹“—€ˆ, ŠŽƒ„€ ‚…‹ˆ—ˆ€ Ž…„…‹Ÿ…’‘Ÿ ‚ Š€—…‘’‚… €€Œ…’€. ŠŽŒ… ’ŽƒŽ, ‚ €ˆ”Œ…’ˆ—…‘Šˆ• ‚›€†…- ˆŸ• „Ž“‘Š€…’‘Ÿ ‘Œ…˜…ˆ… „€›• ’ˆŽ‚ BYTE ˆ INTEGER, € ……Œ…›Œ €‰’Ž‚ŽƒŽ ’ˆ€ ŒŽ†Ž ˆ‘‚€ˆ‚€’œ ‡€—…ˆ… –…‹Ž- —ˆ‘‹…ŽƒŽ ’ˆ€. ……Œ…€Ÿ ’ˆ€ BYTE ‡€ˆŒ€…’ ‚ €ŒŸ’ˆ 1 €‰’. 1 - 31 - 6.3. ‚…™…‘’‚…›‰ ’ˆ (REAL) „ˆ€€‡Ž ‡€—…ˆ‰ ……Œ…›• ‚…™…‘’‚…ŽƒŽ ’ˆ€ Ž•‚€’›- ‚€…’ —ˆ‘‹€ Ž’ 1…-38 „Ž 1…+38 ‘ Œ€’ˆ‘‘Ž‰, ŠŽ’Ž€Ÿ ŒŽ†…’ ‘Ž„…†€’œ „Ž 7 ‡€—€™ˆ• –ˆ”. „‹Ÿ €‡Œ…™…ˆŸ ‚ €ŒŸ’ˆ Ž„Ž‰ ……Œ…Ž‰ ‚…™…‘’‚…ŽƒŽ ’ˆ€ ’…“…’‘Ÿ 4 €‰’€. ……Ž‹…ˆ…, ‚Ž‡ˆŠ€ž™…… ˆ ‚›Ž‹…ˆˆ €ˆ”Œ…’ˆ—…‘Šˆ• Ž…€–ˆ‰ €„ „€›Œˆ ‚…™…‘’‚…ŽƒŽ ’ˆ€, ‚›‡›‚€…’ Ž‘’€Ž‚Š“ Žƒ€ŒŒ› ˆ € Š€ ‚›‚Ž„ˆ’‘Ÿ ‘ŽŽ™…ˆ… Ž Ž˜ˆŠ…. ‚ ‘‹“—€… ‚›•Ž„€ ŽŸ„Š€ ‡€ ˆ†žž ƒ€ˆ–“ „ˆ€€‡Ž€ …‡“‹œ’€’“ ˆ‘- ‚€ˆ‚€…’‘Ÿ “‹…‚Ž… ‡€—…ˆ…. •Ž’Ÿ ‚…™…‘’‚…›‰ ’ˆ Ž…„…‹Ÿ…’‘Ÿ ‡„…‘œ Š€Š ‘’€„€’- ›‰ ‘Š€‹Ÿ›‰, ‘‹…„“…’ Ž’Œ…’ˆ’œ …ŠŽ’Ž›… €‡‹ˆ—ˆŸ, ŠŽ’Ž›… ‘“™…‘’‚“ž’ Œ…†„“ ‚…™…‘’‚…›Œ ’ˆŽŒ ˆ „“ƒˆŒˆ ‘’€„€’›Œˆ ‘Š€‹Ÿ›Œˆ ’ˆ€Œˆ: 1. ‚ ”“Š–ˆŸ• PRED ˆ SUCC … „Ž“‘Š€…’‘Ÿ ˆ‘Ž‹œ‡Ž‚€ˆ… €ƒ“Œ…’Ž‚ ‚…™…‘’‚…ŽƒŽ ’ˆ€. 2. „€›… ‚…™…‘’‚…ŽƒŽ ’ˆ€ …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ „‹Ÿ ˆ„…Š‘ˆŽ‚€ˆŸ Œ€‘‘ˆ‚€. 3. ‚…™…‘’‚…›‰ ’ˆ …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ Š€Š €‡Ž‚›‰ ’ˆ ŒŽ†…‘’‚€. 4. „€›… ‚…™…‘’‚…ŽƒŽ ’ˆ€ …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ ‚ “€‚‹Ÿž™ˆ• Ž…€’Ž€• FOR ˆ CASE. 5. ‚…™…‘’‚…›‰ ’ˆ „€›• … „Ž“‘Š€…’ Ž…„…‹…ˆŸ Ž„„ˆ€€‡ŽŽ‚. 6.4. ‹Žƒˆ—…‘Šˆ‰ ’ˆ (BOOLEAN) „€›… ‹Žƒˆ—…‘ŠŽƒŽ ’ˆ€ (ˆŽƒ„€ …ƒŽ €‡›‚€ž’ “‹…‚‘Šˆ‰) ŒŽƒ“’ ˆˆŒ€’œ ‡€—…ˆŸ, Ž…„…‹Ÿ…Œ›… ‘’€„€’›Œˆ ˆ„…’ˆ- ”ˆŠ€’Ž€Œˆ TRUE (ˆ‘’ˆ€) ˆ FALSE (‹Ž†œ). ˆ ‚›Ž‹…ˆˆ Ž…- €–ˆˆ ‘€‚…ˆŸ ‘—ˆ’€…’‘Ÿ ‘€‚…„‹ˆ‚›Œ ‘ŽŽ’Ž˜…ˆ… FALSE*) ”€‰‹, ŽŽ‡€—…›‰ <ˆŒŸ ”€‰‹€> ‡€ƒ“†€…’‘Ÿ ˆ Ž€€’›- ‚€…’‘Ÿ. …‘‹ˆ ”€‰‹€ ‘ ˆŒ……Œ <ˆŒŸ ”€‰‹€> … ‘“™…‘’‚“…’, ‚Ž‡- ˆŠ€…’ Ž˜ˆŠ€. ”€‰‹›, ‚›‡›‚€…Œ›… „ˆ…Š’ˆ‚Ž‰ INCLUDE … „Ž‹†- › ‘Ž„…†€’œ „ˆ…Š’ˆ‚› INCLUDE ’.…. ‚‹Ž†…ˆ… INCLUDE … „Ž“‘Š€…’‘Ÿ. 1 - 36 - I - „ˆ…Š’ˆ‚€ ŠŽŒˆ‹Ÿ’Ž€ Ž “ŒŽ‹—€ˆž I - €Š’ˆ‚€ (*$I+*) ˆ‘Ž‹œ‡“…’‘Ÿ „‹Ÿ ƒ……€–ˆˆ Ž‘‹“†ˆ‚€ž™…‰ Žƒ€ŒŒ› Ž- ‚…Šˆ ŠŽ„€ Ž˜ˆŠˆ ‚‚Ž„€/‚›‚Ž„€. ˆ Ž€“†…ˆˆ Ž˜ˆŽŠ ‚‚Ž„€/‚›‚Ž„€ ‚›Ž‹…ˆ… Ž€€’›‚€…ŒŽ‰ Žƒ€ŒŒ› ‡€‚…˜€…’‘Ÿ ˆ € Š€… „ˆ‘‹…Ÿ ‚›„€…’‘Ÿ ‘ŽŽ™…ˆ… Ž Ž˜ˆŠ…. …‘‹ˆ I - €‘‘ˆ‚€ (*$I-*), ’Ž ‚Ž ‚…ŒŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›, Ž‚…Šˆ €‚ˆ‹œŽ‘’ˆ ‚›Ž‹…ˆŸ ŠŽŒ€„ ‚‚Ž„€/‚›‚Ž„€ … Žˆ‡‚Ž„ˆ’‘Ÿ. ˆ ’ŽŒ „€‹œ…‰˜ˆ… Ž…€–ˆˆ ‚‚Ž„€/‚›‚Ž„€ Ž’Š‹€„›‚€ž’‘Ÿ „Ž ’…• Ž, ŽŠ€ … “„…’ ‚›‡‚€€ ‘’€„€’€Ÿ ”“Š–ˆŸ IORESULT. ˆ Ž€™…ˆˆ Š ’Ž‰ ‘’€„€’Ž‰ ”“Š–ˆˆ ‘Ž‘’ŽŸˆ… Ž˜ˆŠˆ ‘€‘›‚€…’‘Ÿ, —’Ž Ž‡‚Ž‹Ÿ…’ Ž„Ž‹†ˆ’œ ‚›Ž‹…ˆ… Ž…€–ˆ‰ ‚‚Ž„€/‚›‚Ž„€ „Ž ŽŸ‚‹…ˆŸ ‘‹…„“ž™…‰ Ž˜ˆŠˆ. ‚ ˆ‹Ž†…ˆˆ ˆ‚Ž„ˆ’‘Ÿ ‘ˆ‘ŽŠ ‚‘…• ‘ŽŽ™…ˆ‰ Ž Ž˜ˆ- Š€• ˆ ‚›Ž‹…ˆˆ Ž…€–ˆ‰ ‚‚Ž„€/‚›‚Ž„€. R - „ˆ…Š’ˆ‚€ ŠŽŒˆ‹Ÿ’Ž€ Ž “ŒŽ‹—€ˆž R - €Š’ˆ‚€ (*$R+*) „ˆ…Š’ˆ‚€ R “€‚‹Ÿ…’ ŠŽ’Ž‹…Œ „ˆ€€‡ŽŽ‚ ‚Ž ‚…ŒŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›. …‘‹ˆ ŠŽ’Ž‹œ ‚Š‹ž—… (*R+*), ’Ž ˆ ˆ„…Š‘€–ˆˆ Œ€‘‘ˆ‚Ž‚, ˆ‘‚€ˆ‚€ˆŸ• ˆ ’.. Ž‚…Ÿ…’‘Ÿ, —’Ž ‡€—…ˆ… ‹…†ˆ’ ‚ ’…“…ŒŽŒ „ˆ€€‡Ž…. …‘‹ˆ …’ - ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€ ‚…Œ…ˆ ‚›Ž‹…ˆŸ. ˆ ’ŽŒ Ž˜ˆŠŒ „ˆ€€‡ŽŽ‚ ŒŽƒ“’ ˆ‚Ž„ˆ’œ Š …‚…Ž‰ €Ž’… Žƒ€ŒŒ›. …ŠŽŒ…„“…’‘Ÿ ˆ‘Ž‹œ- ‡Ž‚€’œ ˆ Ž’‹€†…Ž‰ Žƒ€ŒŒ… „‹Ÿ “Œ…œ˜…ŒˆŸ Ž'…Œ€ ŠŽ„€ ˆ “‘ŠŽ…ˆŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›. U - „ˆ…Š’ˆ‚€ ŠŽŒˆ‹Ÿ’Ž€ Ž “ŒŽ‹—€ˆž U - €Š’ˆ‚€ (*$U+*) “€‚‹Ÿ…’ …€Š–ˆ…‰ Žƒ€ŒŒ› ˆ ‚‚Ž„… . …‘‹ˆ U - €Š’ˆ‚€ (*U+*), ’Ž ˆ ‚‚Ž„… Žˆ‘•Ž„ˆ’ …›‚€- ˆ… Žƒ€ŒŒ›Ÿ, ˆ€—… ˆ ‚‚Ž„… ‚›Ž‹…ˆ… Žƒ€Œ- Œ› Ž„Ž‹†€…’‘Ÿ. „ˆ…Š’ˆ‚€ U ƒ‹Ž€‹œ€ ˆ … ŒŽ†…’ ……Ž…„…‹Ÿ’œ‘Ÿ ‚ Žƒ€ŒŒ…. …ŠŽŒ…„“…’‘Ÿ ˆ‘Ž‹œ‡Ž‚€’œ ˆ Ž’‹€†…Ž‰ Žƒ€ŒŒ… „‹Ÿ “‘ŠŽ…ˆŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›, ˆ€—… ‚ …ŠŽ’Ž›• ‘ˆ’“€–ˆŸ• ‚›•Ž„ ˆ‡ Žƒ€ŒŒ› …‡ ……‡€“‘Š€ ‘ˆ‘’…Œ› ŒŽ†…’ ›’œ …‚Ž‡- ŒŽ†…. V - „ˆ…Š’ˆ‚€ ŠŽŒˆ‹Ÿ’Ž€ Ž “ŒŽ‹—€ˆž V - €Š’ˆ‚€ (*$V+*) ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ €€Œ…’Ž‚-……Œ…›• “€‚‹Ÿ…’ Ž- ‚…ŠŽ‰ ‘Ž‚€„…ˆŸ ”ŽŒ€‹œ›• ˆ ”€Š’ˆ—…‘Šˆ• €€Œ…’Ž‚. €Š’ˆ‚Ž… ‘Ž‘’ŽŸˆ… ($V+*) “Š€‡›‚€…’ € ’Ž—“ž Ž‚…Š“. €‘- ‘ˆ‚Ž… ‘Ž‘’ŽŸˆ… ($V-*) Ž‘‹€‹Ÿ…’ Ž‚…Š“ ’ˆ€ ˆ Ž‡‚Ž‹Ÿ…’ ……„€‚€’œ ”€Š’ˆ—…‘Šˆ… €€Œ…’› ‘ ‹žŽ‰ „‹ˆŽ‰ ‘’ŽŠˆ, …‡€‚ˆ‘ˆŒŽ Ž’ „‹ˆ› ”ŽŒ€‹œ›• €€Œ…’Ž‚. 1 - 37 - 8. ‡€ƒŽ‹Ž‚ŽŠ Žƒ€ŒŒ› ˆ ‹ŽŠ Žƒ€ŒŒ› ‚ €—€‹… Žƒ€ŒŒ›, €ˆ‘€Ž‰ € Ÿ‡›Š… PASCAL/FAST ‘’Žˆ’ ‡€ƒŽ‹Ž‚ŽŠ (ˆŒŸ) Žƒ€ŒŒ›. ‡€ ‡€ƒŽ‹Ž‚ŠŽŒ €‘Ž‹€ƒ€…’‘Ÿ ‹ŽŠ Žƒ€ŒŒ›. ‹ŽŠ Žƒ€ŒŒ›, ‚ ‘‚Žž Ž—……„œ, ‘Ž‘’Žˆ’ ˆ‡ „‚“• €‡„…‹Ž‚: €‡„…‹€ Žˆ‘€ˆŸ, ‚ ŠŽ’ŽŽŒ Ž…„…‹Ÿž’‘Ÿ ‚‘… ˆ‘Ž‹œ‡“…Œ›… ‚ Žƒ€ŒŒ… ……Œ…›…, ˆ €‡„…‹€ Ž…€’ŽŽ‚, ŠŽ’Ž›‰ Ž…„…‹Ÿ…’ „…‰‘’‚ˆŸ, ŠŽ’Ž›… “†Ž ‚›Ž‹ˆ’œ €„ ’ˆŒˆ ……Œ…›Œˆ. „€‹…… „€…’‘Ÿ Ž„ŽŽ… Žˆ‘€ˆ… Š€†„ŽƒŽ €‡„…‹€. 8.1. ‡€ƒŽ‹Ž‚ŽŠ Žƒ€ŒŒ› ‚ Ÿ‡›Š… PASCAL/FAST ‡€ƒŽ‹Ž‚ŽŠ Žƒ€ŒŒ› ˆŒ……’ —ˆ‘’Ž ‚‘ŽŒŽƒ€’…‹œ“ž ”“Š–ˆž ˆ ˆŠ€ŠŽ‰ ‘“™…‘’‚…Ž‰ Ž‹ˆ „‹Ÿ ‘€ŒŽ‰ Žƒ€ŒŒ› … ˆƒ€…’. …‘‹ˆ ‡€ƒŽ‹Ž‚ŽŠ ˆ‘“’‘’‚“…’, ’Ž Ž ‡€„€…’ ˆŒŸ Žƒ€ŒŒ› ˆ ˆŽƒ„€ ‚ …Œ ……—ˆ‘‹Ÿž’‘Ÿ €€- Œ…’›, ˆ ŽŒŽ™ˆ ŠŽ’Ž›• Žƒ€ŒŒ€ ‚‡€ˆŒŽ„…‰‘’‚“…’ ‘Ž ‘…- „Ž‰. ‘ˆ‘ŽŠ €€Œ…’Ž‚ …„‘’€‚‹Ÿ…’ ‘ŽŽ‰ Ž‘‹…„Ž‚€’…‹œŽ‘’œ ˆ„…’ˆ”ˆŠ€’ŽŽ‚, ‡€Š‹ž—…›• ‚ Š“ƒ‹›… ‘ŠŽŠˆ ˆ Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ. ˆŒ…›: PROGRAM CIRCLES; PROGRAM ACCOUNTANT (INPUT, OUTPUT); PROGRAM WRITER (INPUT, PRINTER); 8.2. €‡„…‹ Žˆ‘€ˆŸ ‚ €‡„…‹… Žˆ‘€ˆŸ, ‚•Ž„Ÿ™…ƒŽ ‚ ‹ŽŠ Žƒ€ŒŒ›, Žˆ‘›- ‚€ž’‘Ÿ ‚‘… ˆ„…’ˆ”ˆŠ€’Ž›, ŠŽ’Ž›… “„“’ ˆ‘Ž‹œ‡Ž‚€’œ‘Ÿ ‚ €‡„…‹… Ž…€’ŽŽ‚ „€ŽƒŽ ‹ŽŠ€ Žƒ€ŒŒ› (ˆ, ‚Ž‡ŒŽ†Ž, „“ƒˆ• ‹ŽŠŽ‚, €•Ž„Ÿ™ˆ•‘Ÿ ‚“’ˆ …ƒŽ). €‡„…‹ Žˆ‘€ˆŸ, ‚ ‘‚Žž Ž—……„œ, ‘Ž‘’Žˆ’ ˆ‡ Ÿ’ˆ €‡‹ˆ—›• €‡„…‹Ž‚: 1. €‡„…‹ Žˆ‘€ˆŸ Œ…’ŽŠ 2. €‡„…‹ Ž…„…‹…ˆŸ ŠŽ‘’€’ 3. €‡„…‹ Ž…„…‹…ˆŸ ’ˆŽ‚ 4. €‡„…‹ Žˆ‘€ˆŸ ……Œ…›• 5. €‡„…‹ Žˆ‘€ˆŸ Ž–…„“ ˆ ”“Š–ˆ‰ ‚ ‘’€„€’ŽŒ Ÿ‡›Š… PASCAL “‘’€Ž‚‹…Ž, —’Ž Š€†„›‰ €‡- „…‹ ŒŽ†…’ ‚‘’…—€’œ‘Ÿ ‚ Žƒ€ŒŒ… ’Ž‹œŠŽ Ž„ˆ €‡ ˆ‹ˆ †… … ‚‘’…—€’œ‘Ÿ ‚ŽŽ™…, ˆ—…Œ €‘Ž‹€ƒ€’œ‘Ÿ €‡„…‹› „Ž‹†› ‚ ŽŸ„Š…, “Š€‡€ŽŒ ‚›˜…. ‚ Ž’‹ˆ—ˆ… Ž’ …ƒŽ PASCAL/FAST €‡- …˜€…’, —’Ž› Š€†„›‰ €‡„…‹ ‚‘’…—€‹‘Ÿ ‚ €‡„…‹… Žˆ‘€ˆŸ ‹žŽ… ŠŽ‹ˆ—…‘’‚Ž €‡ ˆ ‚ ‹žŽŒ ŽŸ„Š…. 1 - 38 - 8.3. €‡„…‹ Žˆ‘€ˆŸ Œ…’ŽŠ ……„ ‹ž›Œ Ž…€’ŽŽŒ Žƒ€ŒŒ› ŒŽ†Ž Ž‘’€‚ˆ’œ Œ…’Š“, —’Ž Ž‡‚Ž‹ˆ’ ‚›Ž‹ˆ’œ ŸŒŽ‰ ……•Ž„ € ’Ž’ Ž…€’Ž ˆ ‚›Ž‹…ˆˆ ŠŽŒ€„› GOTO. Œ…’Š€ ‘Ž‘’Žˆ’ ˆ‡ ˆŒ…ˆ Œ…’Šˆ ˆ ‘‹…- „“ž™…ƒŽ ‡€ ˆŒ „‚Ž…’Ž—ˆŸ. ……„ ˆ‘Ž‹œ‡Ž‚€ˆ…Œ Œ…’Šˆ …… ‘‹…- „“…’ Žˆ‘€’œ ‚ €‡„…‹… Žˆ‘€ˆŸ Œ…’ŽŠ. €‡„…‹ Žˆ‘€ˆŸ Œ…’ŽŠ ˆŒ……’ ‘‹…„“ž™“ž ‘’“Š’““: ‘€—€‹€ ‡€ˆ‘›‚€…’‘Ÿ ‡€…‡…‚ˆŽ- ‚€Ž… ‘‹Ž‚Ž LABEL (Œ…’Š€), ‡€ ˆŒ ‘‹…„“…’ ‘ˆ‘ŽŠ ŽŒ…Ž‚ Œ…’ŽŠ, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ. ‚ ŠŽ–… ‘ˆ‘Š€ ŽŒ…Ž‚ Œ…’ŽŠ ‘’€‚ˆ’‘Ÿ ’Ž—Š€ ‘ ‡€Ÿ’Ž‰. ŽŒ… Œ…’Šˆ Ÿ‚‹Ÿ…’‘Ÿ Š_Ž__‘_’_€__’_Ž_‰ ’ˆ€ INTEGER. ˆŒ…: LABEL 10, 999; 8.4. €‡„…‹ Ž…„…‹…ˆŸ ŠŽ‘’€’ ‚ €‡„…‹… Ž…„…‹…ˆŸ ŠŽ‘’€’ ‚›Ž‹Ÿ…’‘Ÿ ˆ‘‚€ˆ‚€ˆ… ˆ„…’ˆ”ˆŠ€’Ž€Œ Ž…„…‹…›• Ž‘’ŽŸ›• ‡€—…ˆ‰. ‚ €—€‹… €‡„…‹€ Ž…„…‹…ˆŸ ŠŽ‘’€’ ˆ˜…’‘Ÿ ‘‹Ž‚Ž CONST(ŠŽ‘’€’€). ‚‘‹…„ ‡€ ’ˆŒ ‘‹Ž‚ŽŒ ‘‹…„“…’ ‘ˆ‘ŽŠ ‚›€†…ˆ‰, ‚ ŠŽ’Ž›• ˆ„…’ˆ”ˆŠ€’Ž€Œ ˆ‘‚€ˆ‚€ž’‘Ÿ Ž…„…‹…›… Ž‘’ŽŸ›… ‡€—…- ˆŸ. ‹…Œ…’› ‘ˆ‘Š€ Ž’„…‹Ÿž’‘Ÿ „“ƒ Ž’ „“ƒ€ ’Ž—ŠŽ‰ ‘ ‡€Ÿ- ’Ž‰. Š€†„Ž… ‚›€†…ˆ… ˆ‘‚€ˆ‚€ˆŸ ‘Ž‘’Žˆ’ ˆ‡ ˆ„…’ˆ”ˆŠ€’Ž- €, ‡€ ŠŽ’Ž›Œ —……‡ ‡€Š €‚…‘’‚€ ‘‹…„“…’ ˆ‘‚€ˆ‚€…Œ€Ÿ …Œ“ Ž‘’ŽŸ€Ÿ ‚…‹ˆ—ˆ€. ‚ Š€—…‘’‚… ŠŽ‘’€’ ŒŽƒ“’ ˆ‘Ž‹œ‡Ž- ‚€’œ‘Ÿ ‘’ŽŠˆ ˆ‹ˆ —ˆ‘‹€. ˆŒ…: CONST LIMIT = 255; MAX = 1024; PASSWORD = 'SESAM'; CURS_HOME = ''^['H'; ‚ Ÿ‡›Š… PASCAL/FAST ‡€€…… Ž…„…‹…› …ŠŽ’Ž›… ŠŽ‘- ’€’›, ŠŽ’Ž›… ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ …‡ …„‚€ˆ’…‹œŽƒŽ Žˆ- ‘€ˆŸ: €‡‚€ˆ… ’ˆ ˆ ŠŽ‘’€’› ‡€—…ˆ… PI ‚…™…‘’‚…›‰ (3.141593…+00) FALSE,OFF “‹…‚‘Šˆ‰ TRUE,ON “‹…‚‘Šˆ‰ MAXINT –…‹Ž—ˆ‘‹…›‰ (32767 - ‘€ŒŽ… Ž‹œ˜Ž… –…‹Ž… —ˆ‘‹Ž) ‚ €‡„…‹… Ž…„…‹…ˆŸ ŠŽ‘’€’ ŒŽ†Ž Ž…„…‹Ÿ’œ ’ˆˆŽ- ‚€›… ŠŽ‘’€’›(‘Œ. “Š’ ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’›). 1 - 39 - 8.5. €‡„…‹ Ž…„…‹…ˆŸ ’ˆŽ‚ ’ˆ „€›• ‚ PASCAL/FAST ŒŽ†…’ ›’œ Žˆ‘€ ‹ˆŽ …Ž‘- …„‘’‚…Ž ‚ €‡„…‹… Žˆ‘€ˆŸ ……Œ…›•, ‹ˆŽ Ž…„…‹Ÿ’œ‘Ÿ ˆ„…’ˆ”ˆŠ€’ŽŽŒ ’ˆ€. ‚ PASCAL/FAST …‘’œ …‘ŠŽ‹œŠŽ ‘’€„€’- ›• ˆ„…’ˆ”ˆŠ€’ŽŽ‚ ’ˆŽ‚, ˆ, ŠŽŒ… ’ŽƒŽ, Žƒ€ŒŒˆ‘’ ŒŽ†…’ ‘Ž‡„€‚€’œ ‘‚Žˆ ‘Ž‘’‚…›… ’ˆ› “’…Œ Ž…„…‹…ˆŸ ’ˆ€ ‚ €‡„…‹… Ž…„…‹…ˆŸ ’ˆŽ‚. €‡„…‹ Ž…„…‹…ˆŸ ’ˆŽ‚ €—ˆ- €…’‘Ÿ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ TYPE (’ˆ). ‡€ ‘‹Ž‚ŽŒ TYPE ‘‹…„“…’ Ž„Ž ˆ‹ˆ Ž‹…… Žˆ‘€ˆ‰ ’ˆŽ‚, €‡„…‹…›• „“ƒ Ž’ „“ƒ€ ’Ž—ŠŽ‰ ‘ ‡€Ÿ’Ž‰. Š€†„Ž… Žˆ‘€ˆ… ’ˆ€ ‘Ž‘’Žˆ’ ˆ‡ ˆ„…’ˆ”ˆŠ€’Ž€ ’ˆ€, ‡€Š€ €‚…‘’‚€ ˆ ‘€ŒŽƒŽ Žˆ‘€ˆŸ ’ˆ€. ˆŒ…: TYPE NUMBER = INTEGER; DAY = (MON, TUE, WED, THU, FRI, SAT, SUN); LIST = ARRAY [1..10] OF REAL; „ŽŽ‹ˆ’…‹œ›… ˆŒ…› Ž…„…‹…ˆŸ ’ˆŽ‚ „€›• ‚› ‘ŒŽ- †…’… €‰’ˆ ‚ ‘ŽŽ’‚…’‘’‚“ž™ˆ• €‡„…‹€• “ŠŽ‚Ž„‘’‚€. 8.6. €‡„…‹ Žˆ‘€ˆŸ ……Œ…›• Š€†„€Ÿ ……Œ…€Ÿ, ‚‘’…—€ž™€Ÿ‘Ÿ ‚ Žƒ€ŒŒ…, „Ž‹†€ ›’œ Žˆ‘€€. Žˆ‘€ˆ… ……Œ…Ž‰ „Ž‹†Ž …„˜…‘’‚Ž‚€’œ ˆ‘Ž‹œ‡Ž‚€ˆž …… ‚ ’…Š‘’… Žƒ€ŒŒ› ‘ ’…Œ, —’Ž› ‚ ŒŽŒ…’ ˆ‘Ž‹œ‡Ž‚€ˆŸ Ž€ ›‹€ “†… ˆ‡‚…‘’€ ŠŽŒˆ‹Ÿ’Ž“. €‡„…‹ Žˆ‘€ˆŸ ……Œ…›• €—ˆ€…’‘Ÿ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ VAR (Ž’ VARIABLE - ……Œ…€Ÿ). ‚‘‹…„ ‡€ ˆŒ ˆ„…’ ‘ˆ‘ŽŠ, ‡€ˆ‘ˆ ŠŽ’ŽŽƒŽ ˆŒ…ž’ ‘‹…„“ž™“ž ‘’“Š’““: ‘€—€‹€ —……‡ ‡€Ÿ’“ž …—ˆ‘‹Ÿ…’‘Ÿ Ž„ˆ ˆ‹ˆ …‘ŠŽ‹œŠŽ ˆ„…’ˆ”ˆŠ€’Ž- Ž‚ ……Œ…›•, ‡€’…Œ ‘’€‚ˆ’‘Ÿ „‚Ž…’Ž—ˆ…, ˆ Ž‘‹… „‚Ž…’Ž—ˆŸ “Š€‡›‚€…’‘Ÿ ’ˆ ……—ˆ‘‹…›• ……Œ…›•. ˆ Ž€Ž’Š… Žˆ- ‘€ˆŸ ……Œ…Ž‰ ’€‘‹Ÿ’Ž ‘Ž‡„€…’ Ž‚“ž ……Œ…“ž ˆ ˆ‘- ‚€ˆ‚€…’ …‰ Ž…„…‹…›‰ ˆ„…’ˆ”ˆŠ€’Ž. Ž‹€‘’œž „…‰‘’‚ˆŸ ’€ŠŽƒŽ ˆ„…’ˆ”ˆŠ€’Ž€ Ÿ‚‹Ÿ…’‘Ÿ ’Ž’ ‹ŽŠ, ‚ ŠŽ’ŽŽŒ Ž Ž…„…‹…, ˆ ‹žŽ‰ „“ƒŽ‰ ‹ŽŠ ‚ …ƒŽ ‚•Ž„Ÿ™ˆ‰. Ž’Œ…’ˆŒ, Ž„€ŠŽ, —’Ž ‚ ‹žŽŒ ‹ŽŠ…, ‚•Ž„Ÿ™…Œ ‚ ‘Ž‘’€‚ „“ƒŽƒŽ ‹ŽŠ€ ŒŽ†Ž Ž…„…‹ˆ’œ „__“_ƒ_“_ž ……Œ…- “ž, ˆ‘Ž‹œ‡“Ÿ ’_Ž_’ †_… ‘_€_Œ_›_‰ ˆ„…’ˆ”ˆŠ€’Ž. ‚ ’€Šˆ• ‘‹“—€Ÿ• ƒŽ‚ŽŸ’, —’Ž ’€Š€Ÿ ……Œ…€Ÿ Ÿ‚‹Ÿ…’‘Ÿ ‹_Ž_Š_€_‹_œ__Ž_‰ „‹Ÿ ‹ŽŠ€, ‚ ŠŽ’ŽŽŒ Ž€ Žˆ‘€€ (ˆ „‹Ÿ ‹žŽƒŽ „“ƒŽƒŽ ‹ŽŠ€ ‚ …„…‹€• ’ŽƒŽ ‹ŽŠ€), € ’€Š€Ÿ †… ……Œ…€Ÿ, ‘ ’€ŠˆŒ †… ˆ„…’ˆ”ˆŠ€’ŽŽŒ, Žˆ‘€€Ÿ € Ž‹…… ‚›‘ŽŠŽŒ “Ž‚… (‚Ž ‚…˜…Œ ‹ŽŠ…) €‡›‚€…’‘Ÿ ƒ_‹_Ž__€_‹_œ__Ž_‰ ……Œ…Ž‰ ˆ „…‹ Žˆ‘€ˆŸ Œ…’ŽŠ............................ 38 8.4. €‡„…‹ Ž…„…‹…ˆŸ ŠŽ‘’€’...................... 38 8.5. €‡„…‹ Ž…„…‹…ˆŸ ’ˆŽ‚......................... 39 8.6. €‡„…‹ Žˆ‘€ˆŸ ……Œ…›•....................... 39 8.7. €‡„…‹ Žˆ‘€ˆŸ Ž–…„“ ˆ ”“Š–ˆ‰............... 40 8.8. €‡„…‹ Ž…€’ŽŽ‚................................ 40 9. ‚›€†…ˆŸ........................................... 41 9.1. Ž…€–ˆˆ......................................... 41 9.1.1. “€›‰ Œˆ“‘................................. 41 9.1.2. Ž…€–ˆŸ NOT (Ž’ˆ–€ˆ…)...................... 42 1 - 5 - 9.1.3. Ž…€–ˆˆ € €‡… Ž…€–ˆˆ “ŒŽ†…ˆŸ........... 43 9.1.4. Ž…€–ˆˆ ‘‹Ž†…ˆŸ............................. 44 9.1.5. Ž…€–ˆˆ Ž’Ž˜…ˆŸ:........................... 44 9.2. ”“Š–ˆˆ.......................................... 45 10. Ž…€’Ž›........................................... 45 10.1. Ž‘’›… Ž…€’Ž›................................ 45 10.1.1. Ž…€’Ž ˆ‘‚€ˆ‚€ˆŸ......................... 46 10.1.2. Ž…€’Ž Ž–…„“›............................ 46 10.1.3. Ž…€’Ž …‡“‘‹Ž‚ŽƒŽ ……•Ž„€ (GOTO)......... 47 10.1.4. “‘’Ž‰ Ž…€’Ž............................... 47 10.2. ‘’“Š’“›… Ž…€’Ž›............................ 47 10.2.1. ‘Ž‘’€‚Ž‰ Ž…€’Ž............................ 48 10.2.2. “‘‹Ž‚›… Ž…€’Ž›............................ 48 10.2.2.1. Ž…€’Ž IF.................................. 48 10.2.2.2. Ž…€’Ž CASE................................ 49 10.2.3. Ž…€’Ž› Ž‚’Ž€ FOR, WHILE ˆ REPEAT......... 50 10.2.3.1. Ž…€’Ž FOR................................. 50 10.2.3.2. Ž…€’Ž WHILE (‘ …„“‘‹Ž‚ˆ…Œ).............. 51 10.2.3.3. Ž…€’Ž REPEAT (‘ Ž‘’“‘‹Ž‚ˆ…Œ)............. 52 11. ‘Š€‹Ÿ›… ˆ Žƒ€ˆ—…›… ’ˆ› „€›•................ 52 11.1. ‘Š€‹Ÿ›‰ ’ˆ.................................... 52 11.2. Žƒ€ˆ—…›‰ ’ˆ................................. 53 11.3. …Ž€‡Ž‚€ˆ… ’ˆŽ‚............................. 54 11.3.1. Ž‚…Š€ „ˆ€€‡Ž€............................ 55 11.4. ‘’ŽŠŽ‚›‰ ’ˆ „€›•............................. 55 11.4.1. Ž…„…‹…ˆ… ‘’ŽŠŽ‚ŽƒŽ ’ˆ€................... 56 11.4.2. ‘’ŽŠŽ‚›… ‚›€†…ˆŸ........................... 56 11.4.3. ˆ‘‚€ˆ‚€ˆ… ‡€—…ˆ‰ ‘’ŽŠŽ‚›Œ ……Œ…›Œ.... 57 11.4.4. Ž–…„“› €„ ‘’ŽŠŽ‚›Œˆ ……Œ…›Œˆ.......... 57 11.4.4.1. Ž–…„“€ DELETE (“„€‹ˆ’œ)................... 57 11.4.4.2. Ž–…„“€ INSERT (‚‘’€‚ˆ’œ).................. 58 11.4.4.3. Ž–…„“€ STR (…Ž€‡“…’ —ˆ‘‹Ž‚“ž ‚…‹ˆ—ˆ“ ‚ ‘’ŽŠŽ‚Ž… …„‘’€‚‹…ˆ…).................... 58 11.4.4.4. Ž–…„“€ VAL (…Ž€‡“…’ ‘’ŽŠŽ‚“ž ‚…‹ˆ—ˆ- “ ‚ —ˆ‘‹Ž‚Ž… …„‘’€‚‹…ˆ…).................. 59 11.4.5. ”“Š–ˆˆ €„ ‘’ŽŠŽ‚›Œˆ ……Œ…›Œˆ............ 59 11.4.5.1. ”“Š–ˆŸ COPY (ŠŽˆŽ‚€’œ).................... 59 11.4.5.2. ”“Š–ˆŸ CONCAT (‘–…ˆ’œ)..................... 60 11.4.5.3. ”“Š–ˆŸ LENGTH (Ž…„…‹…ˆ… „‹ˆ› ‘’ŽŠˆ).... 60 11.4.5.4. ”“Š–ˆŸ POS (Ž‡ˆ–ˆŽˆŽ‚€ˆ…)............... 61 11.5. ‘’ŽŠˆ ˆ ‘ˆŒ‚Ž‹›................................. 61 12. ’ˆ› Œ€‘‘ˆ‚Ž‚...................................... 62 12.1. Ž…„…‹…ˆ… Œ€‘‘ˆ‚€.............................. 62 12.2. ŒŽƒŽŒ…›… Œ€‘‘ˆ‚›.............................. 63 12.3. Œ€C‘ˆ‚› ‘ˆŒ‚Ž‹Ž‚................................. 64 13. ’ˆ› ‡€ˆ‘…‰....................................... 64 13.1. Ž…„…‹…ˆ… ‡€ˆ‘ˆ............................... 64 13.2. Ž…€’Ž WITH.................................... 66 13.3. ‡€ˆ‘ˆ ‘ ‚€ˆ€’€Œˆ.............................. 66 1 - 6 - 14. ŒŽ†…‘’‚…›‰ ’ˆ.................................. 67 14.1. Ž…„…‹…ˆ… ŒŽ†…‘’‚…ŽƒŽ ’ˆ€.................. 67 14.2. ŒŽ†…‘’‚…›… ‚›€†…ˆŸ.......................... 68 14.3. ŒŽ†…‘’‚…›… ŠŽ‘’“Š’Ž›....................... 68 14.4. Ž…€’Ž› €„ ŒŽ†…‘’‚€Œˆ........................ 68 14.5. Ž…€–ˆˆ ˆ‘‚€ˆ‚€ˆŸ €„ „€›Œˆ ŒŽ†…‘’- ‚…ŽƒŽ ’ˆ€..................................... 70 15. ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’›........................... 70 15.1. …‘’“Š’“›… ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’›........... 71 15.2. ‘’“Š’“›… ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’›............. 71 15.2.1. ŠŽ‘’€’› ’ˆ€ Œ€‘‘ˆ‚Ž‚....................... 71 15.2.2. ŒŽƒŽŒ…›… ŠŽ‘’€’› ’ˆ€ Œ€‘‘ˆ‚Ž‚........... 72 15.2.3. ŠŽ‘’€’› ’ˆ€ ‡€ˆ‘…‰........................ 73 15.3. ŠŽ‘’€’› ŒŽ†…‘’‚…ŽƒŽ ’ˆ€.................... 73 16. ’ˆ› ”€‰‹Ž‚......................................... 74 16.1. Ž…„…‹…ˆ… ’ˆ€ ”€‰‹Ž‚.......................... 74 16.2. Ž…€–ˆˆ €„ ”€‰‹€Œˆ............................. 75 16.2.1. Ž…P€–ˆŸ ASSIGN (€‡€—…ˆ… ˆŒ…ˆ ”€‰‹“)...... 75 16.2.2. Ž…P€–ˆŸ REWRITE (‘Ž‡„€ˆ… Ž‚ŽƒŽ ”€‰‹€)...... 76 16.2.3. Ž…P€–ˆŸ RESET (“‘’€Ž‚Š€ ”€‰‹€ ‚ ˆ‘•Ž„Ž… ‘Ž‘’ŽŸˆ…).................................... 76 16.2.4. Ž…P€–ˆŸ READ (—’…ˆ… ˆ‡ ”€‰‹€)............... 76 16.2.5. Ž…P€–ˆŸ WRITE (‡€ˆ‘œ ‚ ”€‰‹)................ 77 16.2.6. Ž…P€–ˆŸ SEEK (……Œ…™€…’ “Š€‡€’…‹œ € N-›‰ ŠŽŒŽ…’ ”€‰‹€).............................. 77 16.2.7. Ž…P€–ˆŸ FLUSH (Ž—ˆ‘’Š€ “”…P€ ‘…Š’ŽP€)....... 77 16.2.8. Ž…P€–ˆŸ CLOSE (‡€ŠP›‚€…’ Ž’Š›’›‰ ”€‰‹)...... 78 16.2.9. Ž…P€–ˆŸ ERASE (‘’ˆ€…’ „ˆ‘ŠŽ‚›‰ ”€‰‹)........ 78 16.2.10. Ž…P€–ˆŸ RENAME (……ˆŒ…Ž‚›‚€…’ „ˆ‘ŠŽ‚›‰ ”€‰‹)......................................... 78 16.3. ‘’€„€’›… ”“Š–ˆˆ „‹Ÿ Ž€Ž’Šˆ ”€‰‹Ž‚......... 79 16.3.1. ”“Š–ˆŸ EOF (Ž‚…Š€ € ŠŽ…– ”€‰‹€)......... 79 16.3.2. ”“Š–ˆŸ FILEPOS (Ž…„…‹…ˆ… ’…Š“™…ƒŽ ‡€—…- ˆŸ “Š€‡€’…‹Ÿ)................................ 79 16.3.3. ”“Š–ˆŸ FILESIZE (Ž…„…‹…ˆ… €‡Œ…€ „ˆ‘ŠŽ- ‚ŽƒŽ ”€‰‹€)................................... 80 16.4. ˆ‘Ž‹œ‡Ž‚€ˆ… ”€‰‹Ž‚............................. 80 16.5. ’…Š‘’Ž‚›… ”€‰‹›.................................. 82 16.5.1. Ž…P€–ˆˆ €„ ’…Š‘’Ž‚›Œˆ ”€‰‹€Œˆ............... 83 16.5.2. Ž–…„“€ READLN.............................. 83 16.5.3. Ž–…„“€ WRITELN............................. 83 16.5.4. ”“Š–ˆŸ EOLN (Ž‚…Š€ € ŠŽ…– ‘’ŽŠˆ)....... 84 16.5.5. ”“Š–ˆŸ SEEKEOLN.............................. 84 16.5.6. ”“Š–ˆŸ SEEKEOF............................... 84 16.6. ‘’€„€’›… ”€‰‹›................................ 85 16.7. ‚‚Ž„/‚›‚Ž„ ’…Š‘’Ž‚›• ”€‰‹Ž‚...................... 87 16.7.1. PŽ–…„“P€ READ (—’…ˆ…)....................... 88 16.7.2. PŽ–…„“P€ READLN.............................. 89 16.7.3. PŽ–…„“P€ WRITE (ˆ‘€’œ)...................... 89 16.7.4. PŽ–…„“P€ WRITELN............................. 90 16.8. …‘’ˆŽ‚›… ”€‰‹›................................. 90 16.8.1. —’…ˆ… ˆ ‡€ˆ‘œ ‹ŽŠ€ (BLOCKREAD ˆ BLOCKWRITE)................................... 91 1 - 7 - 16.9. Ž‚…Š€ ‚‚Ž„€/‚›‚Ž„€............................ 92 17. „ˆ€Œˆ—…‘Šˆ… ‘’“Š’“› „€›•...................... 94 17.1. Ž…„…‹…ˆ… ……Œ…Ž‰-“Š€‡€’…‹Ÿ................. 94 17.1.1. €‡Œ…™…ˆ… ……Œ…›• (Ž–…„“€ NEW)......... 95 17.2. ˆ‘Ž‹œ‡Ž‚€ˆ… “Š€‡€’…‹…‰......................... 95 17.3. ”“Š–ˆŸ ADDR (‚Ž‡‚€™€…’ €„…‘ ‡€„€ŽƒŽ Ž'…Š’€)......................................... 98 17.4. Ž–…„“€ DISPOSE................................ 98 17.5. PŽ–…„“P€ GETMEM................................. 99 17.6. PŽ–…„“P€ FREEMEM................................ 99 18. Ž–…„“› ˆ ”“Š–ˆˆ...............................100 18.1. €€Œ…’›........................................100 18.1.1. ‘ŒŸƒ—…ˆŸ Ž‚…Šˆ ’ˆ€ €€Œ…’Ž‚............102 18.1.2. €€Œ…’› -- ……Œ…›… …‡ ’ˆ€..............102 18.2. Ž–…„“›........................................103 18.2.1. Žˆ‘€ˆ… Ž–…„“›............................104 18.3. ‘’€„€’›… Ž–…„“›............................106 18.3.1. Ž–…„“€ CLREOL (“„€‹…ˆ… ‘ˆŒ‚Ž‹Ž‚ „Ž ŠŽ–€ ‘’ŽŠˆ).......................................106 18.3.2. Ž–…„“€ CLRSCR (Ž—ˆ‘’Š€ Š€€).............106 18.3.3. Ž–…„“€ DELAY (‡€„…†Š€ ‚…Œ…ˆ)............106 18.3.4. Ž–…„“€ GOTOXY (Ž‡ˆ–ˆŽˆŽ‚€ˆ… Š“‘Ž€)...107 18.3.5. Ž–…„“€ EXIT (‚›•Ž„ ˆ‡ ’…Š“™…ƒŽ ‹ŽŠ€)......107 18.3.6. Ž–…„“€ HALT (‡€‚…˜…ˆ… ‚›Ž‹…ˆŸ Žƒ- €ŒŒ›)........................................107 18.3.7. Ž–…„“€ RANDOMIZE (ƒ……€’Ž ‘‹“—€‰›• —ˆ‘…‹)........................................107 18.3.8. Ž–…„“€ MOVE (……‘›‹Š€)....................108 18.4. ”“Š–ˆˆ..........................................108 18.4.1. Žˆ‘€ˆ… ”“Š–ˆ‰..............................108 18.4.2. ……„€—€ ”“Š–ˆ‰, Š€Š €€Œ…’Ž‚..............109 18.5. ‘’€„€’›… ”“Š–ˆˆ..............................110 18.5.1. €ˆ”Œ…’ˆ—…‘Šˆ… ”“Š–ˆˆ........................111 18.5.1.1. ”“Š–ˆŸ ABS (€‘Ž‹ž’Ž… ‡€—…ˆ…)............111 18.5.1.2. ”“Š–ˆŸ ARCTAN (€Š’€ƒ…‘)..................111 18.5.1.3. ”“Š–ˆŸ COS (ŠŽ‘ˆ“‘)........................111 18.5.1.4. ”“Š–ˆŸ EXP (Š‘Ž…’€).....................111 18.5.1.5. ”“Š–ˆŸ INT (–…‹€Ÿ —€‘’œ)....................112 18.5.1.6. ”“Š–ˆŸ FRAC („Ž€Ÿ —€‘’œ).................112 18.5.1.7. ”“Š–ˆŸ LN (€’“€‹œ›‰ ‹Žƒ€ˆ”Œ)............112 18.5.1.8. ”“Š–ˆŸ SIN (‘ˆ“‘)..........................112 18.5.1.9. ”“Š–ˆŸ SQR (‚Ž‡‚…„…ˆ… ‚ Š‚€„€’)...........113 18.5.1.10. ”“Š–ˆŸ SQRT (Š‚€„€’›‰ ŠŽ…œ)............113 18.5.2. ‘Š€‹Ÿ›… ”“Š–ˆˆ.............................113 18.5.2.1. ”“Š–ˆŸ PRED (…„˜…‘’‚“ž™ˆ‰)................113 18.5.2.2. ”“Š–ˆŸ SUCC (‘‹…„“ž™ˆ‰).....................113 18.5.2.3. ”“Š–ˆŸ ODD (…—…’Ž…).......................114 18.5.3. ”“Š–ˆˆ …Ž€‡Ž‚€ˆŸ........................114 18.5.3.1. ”“Š–ˆŸ CHR (…Ž€‡Ž‚€ˆ… ‚ ‘ˆŒ‚Ž‹œ›‰ ’ˆ)..........................................114 18.5.3.2. ”“Š–ˆŸ ORD (ŽŸ„ŠŽ‚›‰ ŽŒ…)...............114 18.5.3.3. ”“Š–ˆŸ ROUND (ŽŠ“ƒ‹…ˆ…)...................115 18.5.3.4. ”“Š–ˆŸ TRUNC (–…‹€Ÿ —€‘’œ)..................115 18.5.4. €‡‹ˆ—›… ‘’€„€’›… ”“Š–ˆˆ.................115 1 - 8 - 18.5.4.1. ”“Š–ˆŸ HI...................................115 18.5.4.2. ”“Š–ˆŸ KEYPRESSED (€†€’€ Š‹€‚ˆ˜€ ?)........116 18.5.4.3. ”“Š–ˆŸ READKEY (‚‚Ž„ ‹ˆ’…› ‘ Š‹€‚ˆ€’“›)...116 18.5.4.4. ”“Š–ˆŸ LO...................................116 18.5.4.5. ”“Š–ˆŸ RANDOM (‚Ž‡‚€™€…’ ‘‹“—€‰Ž… —ˆ‘‹Ž)..116 18.5.4.6. ”“Š–ˆŸ RANDOM ‘ €ƒ“Œ…’ŽŒ..................117 18.5.4.7. ”“Š–ˆŸ SIZEOF (€‡Œ… €ŒŸ’ˆ Ž„ ……Œ…- “ž)..........................................117 18.5.4.8. ”“Š–ˆŸ SWAP (ŽŒ… €‰’Ž‚)..................117 18.5.4.9. ”“Š–ˆŸ UPCASE (‘Œ…€ …ƒˆ‘’€)..............117 18.6. Ž……†€ž™…… Žˆ‘€ˆ….............................118 19. ‚Š‹ž—…ˆ… ”€‰‹Ž‚....................................119 20. ŒŽ„“‹œ GRAPH........................................122 20.1. …ŠŽŒ…„€–ˆˆ Ž “‘’€Ž‚Š… ˆ ˆ‘Ž‹œ‡Ž‚€ˆž ŒŽ„“‹Ÿ GRAPH.....................................122 20.1.1. ‘ˆ‘’…Œ€ ŠŽŽ„ˆ€’.............................122 20.2. Žˆ‘€ˆ… ˆ’…”…‰‘Ž‰ —€‘’ˆ ŒŽ„“‹Ÿ GRAPH.........123 20.2.1. ŠŽ‘’€’›, …„Ž…„…‹…›… ‚ ŒŽ„“‹… GRAPH....123 20.2.1.1. ŠŽ‘’€’›, Ž…„…‹Ÿž™ˆ… ‘Ž‘’ŽŸˆ… ƒ€”ˆ—…‘- ŠŽƒŽ Ž‡“ Ž‘‹… ‚›Ž‹…ˆŸ Ž–…„“› INITGRAPH.....................................123 20.2.1.2. ŠŽ‘’€’›, Ž…„…‹Ÿž™ˆ… …†ˆŒ €Ž’› Šƒ„.....123 20.2.1.3. ŠŽ‘’€’›, Ž…„…‹Ÿž™ˆ… …†ˆŒ –‚…’€..........123 20.2.1.4. ŠŽ‘’€’›, Ž…„…‹Ÿž™ˆ… ‘Ž‘Ž ‚›‚Ž„€ ˆ‡Ž- €†…ˆŸ „‹Ÿ Ž–…„“› PUTIMAGE................123 20.2.1.5. ŠŽ‘’€’›, Ž…„…‹Ÿž™ˆ… ’ˆ ‹ˆˆˆ ˆ …… ’Ž‹- ™ˆ“..........................................124 20.2.1.6. ŠŽ‘’€’›, Ž…„…‹Ÿž™ˆ… Žˆ‘Ž‚Š“ ‚…˜ˆ› ŸŒŽ“ƒŽ‹œŽƒŽ €€‹‹…‹…ˆ…„€................124 20.2.1.7. ŠŽ‘’€’›, Ž…„…‹Ÿž™ˆ… ‘Ž‘Ž ‡€Š€‘Šˆ ‡€ŒŠ“’Ž‰ Ž‹€‘’ˆ.............................124 20.2.2. ’ˆ›, …„Ž…„…‹…›… ‚ ŒŽ„“‹… GRAPH.........125 20.2.2.1. ’ˆ COLOR....................................125 20.2.2.2. ’ˆ FILLPATTERNTYPE..........................125 20.2.2.3. ’ˆ FILLSETTINGSTYPE.........................125 20.2.2.4. ’ˆ LINESETTINGSTYPE.........................126 20.3. Žˆ‘€ˆ… Ž–…„“ ˆ ”“Š–ˆ‰ ŒŽ„“‹Ÿ GRAPH.........126 20.3.1. Ž–…„“€ BAR.................................126 20.3.2. Ž–…„“€ BAR3D...............................126 20.3.3. Ž–…„“€ CLEARDEVICE.........................127 20.3.4. Ž–…„“€ ELLIPS..............................127 20.3.5. Ž–…„“€ FLOODFILL...........................127 20.3.6. ”“Š–ˆŸ GETBKCOLOR............................127 20.3.7. ”“Š–ˆŸ GETCOLOR..............................128 20.3.8. Ž–…„“€ GETFILLSETTINGS.....................128 20.3.9. Ž–…„“€ GETIMAGE............................128 20.3.10. Ž–…„“€ GETLINESETTINGS.....................128 20.3.11. ”“Š–ˆŸ GETPIXEL..............................129 20.3.12. ”“Š–ˆŸ GETX..................................129 20.3.13. ”“Š–ˆŸ GETY..................................129 20.3.14. ”“Š–ˆŸ IMAGESIZE.............................129 20.3.15. Ž–…„“€ INITGRAPH...........................130 20.3.16. Ž–…„“€ LINE................................130 20.3.17. Ž–…„“€ LINEREL.............................130 1 - 9 - 20.3.18. Ž–…„“€ LINETO..............................131 20.3.19. Ž–…„“€ MOVEREL.............................131 20.3.20. Ž–…„“€ MOVETO..............................131 20.3.21. Ž–…„“€ OUTTEXT.............................131 20.3.22. Ž–…„“€ OUTTEXTXY...........................132 20.3.23. Ž–…„“€ PRINTSCREEN.........................132 20.3.24. Ž–…„“€ PUTIMAGE............................132 20.3.25. Ž–…„“€ PUTPIXEL............................132 20.3.26. Ž–…„“€ RECTANGLE...........................133 20.3.27. Ž–…„“€ SETBKCOLOR..........................133 20.3.28. Ž–…„“€ SETCOLOR............................133 20.3.29. Ž–…„“€ SETFILLPATTERN......................133 20.3.30. Ž–…„“€ SETFILLSTYLE........................134 20.3.31. Ž–…„“€ SETGRAPHMODE........................134 20.3.32. Ž–…„“€ SETLINESTYLE........................134 20.3.33. Ž–…„“€ SETTEXTSTYLE........................135 20.4. ˆŒ… Žƒ€ŒŒ›, ˆ‘Ž‹œ‡“ž™…‰ ŒŽ„“‹œ GRAPH......135 21. ŒŽ„“‹œ DOS..........................................137 21.1. …ŠŽŒ…„€–ˆˆ Ž “‘’€Ž‚Š… ˆ ˆ‘Ž‹œ‡Ž‚€ˆž ŒŽ„“‹Ÿ DOS.......................................137 21.2. Žˆ‘€ˆ… ˆ’…”…‰‘Ž‰ —€‘’ˆ ŒŽ„“‹Ÿ DOS...........138 21.2.1. ŠŽ‘’€’› …„Ž…„…‹…›… ‚ ŒŽ„“‹… DOS.......138 21.2.1.1. ŠŽ‘’€’›, Ž…„…‹…›… Š€Š Œ€‘Šˆ ’ˆ€ ”€‰‹€.138 21.2.1.2. ŠŽ‘’€’›, Ž…„…‹…›… Š€Š ŠŽ„› Ž˜ˆŽŠ ‚Ž‡‚€™€…Œ›• Ž–…„“€Œˆ ˆ ”“Š–ˆŸŒˆ ŒŽ„“‹Ÿ DOS...........................................138 21.2.2. ……Œ…›…, …„Ž…„…‹…›… ‚ ŒŽ„“‹… DOS.....139 21.2.3. ’ˆ›, …„Ž…„…‹…›… ‚ ŒŽ„“‹… DOS...........139 21.3. Žˆ‘€ˆ… Ž–…„“ ˆ ”“Š–ˆ‰ ŒŽ„“‹Ÿ DOS...........140 21.3.1. Ž–…„“€ FINDFIRST...........................140 21.3.2. Ž–…„“€ FINDNEXT............................140 21.3.3. Ž–…„“€ GETDATE.............................141 21.3.4. Ž–…„“€ UNPACKDATE..........................141 21.3.5. Ž–…„“€ GETTIME.............................141 21.3.6. Ž–…„“€ SETTIME.............................142 21.3.7. Ž–…„“€ SETDATE.............................142 21.3.8. ”“Š–ˆŸ DISKSIZEBLK...........................142 21.3.9. ”“Š–ˆŸ DISKFREEBLK...........................143 21.3.10. ”“Š–ˆŸ DISKMAXFREEBLK........................143 21.4. ˆŒ… Žƒ€ŒŒ›, ˆ‘Ž‹œ‡“ž™…‰ ŒŽ„“‹œ DOS........143 ˆ‹Ž†…ˆ… 1. K€’Šˆ‰ ‘€‚Ž—ˆŠ ŠŽŒ€„ …„€Š’Ž€..... 146 ˆ‹Ž†…ˆ… 2. ’€‹ˆ–€ ŠŽ„€ ŠŽˆ-8...................... 148 ˆ‹Ž†…ˆ… 3. Š€’ŠŽ… Žˆ‘€ˆ… ‘ˆ‘’…Œ› ŠŽŒ€„ ‚Œ..... 153 1. ˆŸ’›… “‘‹Ž‚›… ŽŽ‡€—…ˆŸ ˆ ‘ŽŠ€™…ˆŸ..........153 2. ‘ˆ‘’…Œ€ ŠŽŒ€„......................................154 2.1. P…ƒˆ‘’ ‘Ž‘’ŽŸˆŸ O–…‘‘Ž€ (PS)................154 1 - 10 - 2.2. ”ŽŒ€’ Ž„Ž€„…‘›• ŠŽŒ€„.......................155 2.3. ”ŽŒ€’ „‚“•€„…‘›• ŠŽŒ€„.......................155 2.4. Œ…’Ž„› €„…‘€–ˆˆ.................................155 2.5. Œ…’Ž„› €„…‘€–ˆˆ ‘ ˆ‘Ž‹œ‡Ž‚€ˆ…Œ ‘—…’—ˆŠ€ ŠŽŒ€„...........................................156 2.6. €Ž ˆ‘’“Š–ˆ‰ ‚ €‹”€‚ˆ’ŽŒ ŽŸ„Š… Œ…ŒŽ- ˆŠ..............................................157 1 - 11 - 1. ‚‚…„…ˆ…. ‘ˆ‘’…Œ€ Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST …„€‡€—…€ „‹Ÿ €‡€Ž’Šˆ ˆ ˆ‘Ž‹…ˆŸ Žƒ€ŒŒ € Ÿ‡›Š… PASCAL/FAST ‚ ‘…- „… Ž‘ RT-11, € ’€Š†… „‹Ÿ ‘Ž‡„€ˆŸ ‡€ƒ“‡Ž—›• ŒŽ„“‹…‰ ˆ- ƒŽ„›• „‹Ÿ ‚›Ž‹…ˆŸ Ž„ “€‚‹…ˆ…Œ Ž‘ RT-11. ‘ˆ‘’…Œ€ Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST €‡€€’›‚€‹€‘œ Ž„ ‚‹ˆŸˆ…Œ ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL-TURBO V.3 ”ˆŒ› BORLAND INTERNATIONAL, INC., €Ž’€ž™…‰ € ‚Œ ‘ Ž–…‘‘Ž€- Œˆ Z-80 ˆ IAPX86. ’Ž ˆ‚…‹Ž Š „Ž‚Ž‹œŽ ‚›‘ŽŠŽ‰ ‘’……ˆ ……Ž‘ˆŒŽ‘’ˆ Žƒ€ŒŒ ˆ‡ Ž„Ž‰ ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ ‚ „“ƒ“ž. Ž„€ŠŽ ‘ˆ‘’…Œ€ PASCAL/FAST Ÿ‚‹Ÿ…’‘Ÿ Ž‹Ž‘’œž Žˆƒˆ- €‹œŽ‰ €‡€Ž’ŠŽ‰ (T.K. "€„€’€–ˆŸ" Š€ŠŽƒŽ-‹ˆŽ ŠŽŒˆ‹Ÿ’Ž- € € Œ€˜ˆ“ ‘ „“ƒŽ‰ ‘ˆ‘’…ŒŽ‰ ŠŽŒ€„ Ÿ‚‹Ÿ…’‘Ÿ €Š’ˆ—…‘Šˆ …‚Ž‡ŒŽ†Ž‰) ˆ …—œ ˆ„…’ ’Ž‹œŠŽ Ž ‡€ˆŒ‘’‚Ž‚€ˆˆ …ŠŽ’Ž›• ˆ„…‰ ˆ Ž‘Ž…Ž‘’…‰ ‘ˆ‘’…Œ›, A ’€Š†… Ž ’ŽŒ, —’Ž Ž„Ž‰ ˆ‡ –…‹…‰ ›‹€ ……Ž‘ˆŒŽ‘’œ Žƒ€ŒŒ, €‡€Ž’€›• ‚ €ŒŠ€• ’ˆ• ‘ˆ‘’…Œ. ‘ˆ‘’…Œ€ PASCAL/FAST €ˆ‘€€ € Ÿ‡›Š… MACRO-11. ‘ˆ‘’…Œ€ PASCAL/FAST Ž…‘…—ˆ‚€…’ ‚›‘ŽŠ“ž ‘ŠŽŽ‘’œ ’€‘‹Ÿ–ˆˆ Žƒ€ŒŒ (Ž’ 15 „Ž 100 ‘’ŽŠ ‚ ‘…Š“„“), ‚Ž‡ŒŽ†- Ž‘’œ ˆ‘Ž‹œ‡Ž‚€ˆŸ ‚‘’Ž…ŽƒŽ …„€Š’Ž€, ‘’›ŠŽ‚Š“ ‘ Žƒ- €ŒŒ€Œˆ, €ˆ‘€›Œˆ € Ÿ‡›Š… €‘‘…Œ‹…€ ˆ „. Œ€Š‘ˆŒ€‹œ›‰ Ž'…Œ Žƒ€ŒŒ, Ž€€’›‚€…Œ›• ‘ˆ‘’…ŒŽ‰ Žƒ€ŒŒˆŽ‚€ˆŸ, -- „Ž 2500 ‘’ŽŠ ˆ‘•Ž„ŽƒŽ ’…Š‘’€ (ˆ Žœ…Œ… Ž‡“ 56 Š€‰’), € Ž„ “€‚‹…ˆ…Œ ‘ˆ‘’…Œ› €”Ž‘/NTS -- „Ž 3000 ‘’ŽŠ. „‹Ÿ ‘ˆ‘’…Œ› PASCAL/FAST, ˆ‘Ž‹œ‡“…ŒŽ‰ € ‚Œ ‘…ˆˆ „‚Š, ‘€†…Ž‰ ŠŽ’Ž‹‹…ŽŒ ƒ€”ˆ—…‘ŠŽƒŽ „ˆ‘‹…Ÿ (Šƒ„), €‡€Ž- ’€ €Š…’ ƒ€”ˆ—…‘Šˆ• Ž„Žƒ€ŒŒ. ‚…„…’‘Ÿ €‡€Ž’Š€ ‘Ž‚- Œ…‘’ˆŒŽƒŽ ‘ ˆŒ €Š…’€ „‹Ÿ ŠŽ’Ž‹‹…€ –‚…’ŽƒŽ ƒ€”ˆ—…‘ŠŽƒŽ „ˆ‘‹…Ÿ (Š–ƒ„), ŠŽ’Ž›‰ Ž‘’€‚‹Ÿ’‘Ÿ ‘ Ž‹…… ‘’€˜ˆŒˆ ŒŽ„…‹Ÿ- Œˆ ‚Œ ‘…ˆˆ „‚Š. ’€Š†… €‡€Ž’€ €Š…’ Ž„Žƒ€ŒŒ, ŠŽ’Ž›‰ Ž…‘…—ˆ- ‚€…’ ‚‡€ˆŒŽ„…‰‘’‚ˆ… ‘ Ž‘ RT11 (Ž€Ž’Š€ Š€’€‹ŽƒŽ‚, ‘ˆ‘’…Œ- ŽƒŽ ‚…Œ…ˆ, „€’› ˆ „.). Ÿ‡›Š Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST Ÿ‚‹Ÿ…’‘Ÿ „ˆ€‹…Š’ŽŒ Ÿ‡›Š€ PASCAL ˆ Ž’‹ˆ—€…’‘Ÿ Ž’ …ƒŽ …ŠŽ’Ž›Œˆ Žƒ€ˆ—…ˆŸŒˆ ˆ ŒŽƒŽ—ˆ‘‹…›Œˆ €‘˜ˆ…ˆŸŒˆ, ŠŽ’Ž›… Žˆ‘€› ‚ „€ŽŒ “ŠŽ- ‚Ž„‘’‚…. „‹Ÿ €Ž’› ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST …Ž•Ž- „ˆŒ€ Ž‘ RT-11 ‚…‘ˆˆ … ˆ†… 5.0 ˆ ‚Œ ’ˆ€ „‚Š-2,3; ‹…Š’ŽˆŠ€-60M. „‹Ÿ €Ž’› € ‚Œ ‘Œ-4, ‘Œ-1420, „‚Š-1, „‚Š-4 ˆ „. …Ž•Ž„ˆŒŽ ˆŒ…’œ ‘ŽŽ’‚…’‘’‚“ž™ˆŒ Ž€‡ŽŒ €‘’- Ž…“ž ‚…‘ˆž ‘ˆ‘’…Œ›. ‘“™…‘’‚“…’ ‚€ˆ€’ ‘ˆ‘’…Œ›, ˆƒŽ„›‰ „‹Ÿ €Ž’› €Š- 1 - 12 - ’ˆ—…‘Šˆ € ‚‘…• ’ˆ€• ‚Œ ‘ ‘ˆ‘’…ŒŽ‰ ŠŽŒ€„ PDP-11, Ž„€ŠŽ ˆ‡-‡€ ’ŽƒŽ, —’Ž ‚ …Œ ˆ‘Ž‹œ‡“…’‘Ÿ Žƒ€ŒŒ€Ÿ Œ“‹Ÿ–ˆŸ €ˆ”Œ…’ˆ—…‘Šˆ• ŠŽŒ€„ ˆ ˆ‘“’‘’‚“ž’ Ž‘Ž…Ž‘’ˆ Ž’Ž‘Ÿ™ˆ…‘Ÿ ŠŽ ‚‘…Œ ’ˆ€Œ ‚Œ ‘€‡“, …ƒŽ €‡Œ… € 1.5 K€‰’ Ž‹œ˜… Ž‘’€‹œ›• ‚€ˆ€’Ž‚, € ‘ŠŽŽ‘’œ €Ž’› Žƒ€ŒŒ (Ž‘Ž…Ž ˆ‘Ž‹œ‡“ž™ˆ• ‚…™…‘’‚…“ž €ˆ”Œ…’ˆŠ“) ‡€—ˆ’…‹œŽ ˆ†…. „‹Ÿ €Ž’› ‚ ‘ˆ‘’…Œ… €”Ž‘/NTS …Ž•Ž„ˆŒŽ ˆŒ…’œ Ž‘Ž“ž ‚…‘ˆž ‘ˆ‘’…Œ›, Ž’‹ˆ—€ž™“ž‘Ÿ „€†… Ž’ “ˆ‚…‘€‹œŽƒŽ ‚€ˆ€- ’€. 2. ‡€“‘Š ˆ ˆ‘Ž‹œ‡Ž‚€ˆ… ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ. 2.1. ‘Ž‘’€‚ ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ. ‚ ‘Ž‘’€‚ ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ ‚•Ž„Ÿ’: 1. ŠŽŒˆ‹Ÿ’Ž ‘ Ÿ‡›Š€ PASCAL/FAST 2. ‚‘’Ž…›‰ …„€Š’Ž ’…Š‘’€ 3. ‘ˆ‘’…Œ€ Ž„„…†Šˆ ˆ‘Ž‹…ˆŸ Žƒ€ŒŒ 4. “€‚‹Ÿž™€Ÿ ‘ˆ‘’…Œ€, Ž…‘…—ˆ‚€ž™€Ÿ ‚‡€ˆŒŽ„…‰‘’‚ˆ… „“ƒˆ• ŠŽŒŽ…’ Œ…†„“ ‘ŽŽ‰ ˆ ‘ Ž‹œ‡Ž‚€’…‹…Œ ‚‘… ’ˆ ŠŽŒŽ…’› ‘Ž„…†€’‘Ÿ ‚ ”€‰‹… PAS.SAV ˆ ‡€ˆ- Œ€ž’ ŽŠŽ‹Ž 30KB. 2.2. “‘’€Ž‚Š€ ˆ ‡€“‘Š ‘ˆ‘’…Œ›. „‹Ÿ “‘’€Ž‚Šˆ ‘ˆ‘’…Œ› …Ž•Ž„ˆŒŽ ……ˆ‘€’œ ”€‰‹ PAS.SAV € ‘ˆ‘’…ŒŽ… “‘’Ž‰‘’‚Ž "SY" ˆ €‡€—ˆ’œ ’ŽŒ“ “‘’- Ž‰‘’‚“ ‹Žƒˆ—…‘ŠŽ… ˆŒŸ "PAS" : .ASS SY PAS <‚Š> __ˆ_Œ_…_—_€__ˆ_…: ”€‰‹ PAS.SAV „Ž‹†… ›’œ €‘Ž‹Ž- †… ˆŒ…Ž € ‘ˆ‘’…ŒŽŒ “‘’Ž‰‘’‚… ˆ ˆŒ…Ž Ž„ ’ˆŒ ˆŒ……Œ. „‹Ÿ ‡€“‘Š€ ‘ˆ‘’…Œ› …Ž•Ž„ˆŒŽ €€’œ ŠŽŒ€„“ .PAS <‚Š> 1 - 13 - Ž‘‹… ’ŽƒŽ Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›„€…’‘Ÿ Œ…ž: PASCAL/FAST, V 1.0 (C) 1989, OCT ŒŽ‘Š€‹œ €.…. Ž‘Ž‚Ž… Œ…ž —’…ˆ… …„€Š’ˆŽ‚€ˆ… ‡€ˆ‘œ ’€‘‹Ÿ–ˆŸ ŠŽ…– €Ž’› ‚›Ž‹…ˆ… „ŽŽ‹ˆ’…‹œŽ… Œ…ž ˆŒŸ Žƒ€ŒŒ› : NONAME > ‡€Š ">" (‚ ‘‹“—€… Ž’‘“’‘’‚ˆŸ Œ…ž € Š€…) Ÿ‚‹Ÿ…’‘Ÿ ˆ‡€ŠŽŒ ’ŽƒŽ, —’Ž ‘ˆ‘’…Œ€ Žƒ€ŒŒˆŽ‚€ˆŸ €•Ž„ˆ’‘Ÿ ‚ …†ˆŒ… Ž‘Ž‚ŽƒŽ Œ…ž (">>" -- „ŽŽ‹ˆ’…‹œŽ… Œ…ž) ˆ †„…’ ‚‚Ž„€ ŠŽŒ€„›. ˆ €†€’ˆˆ <‚Š> ˆ‹ˆ Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›„€…’‘Ÿ Œ…ž. ‚ Š€—…‘’‚… ŠŽŒ€„› „Ž‹†€ ›’œ ˆ‘Ž‹œ‡Ž‚€€ …‚€Ÿ “Š- ‚€ Ž„ŽƒŽ ˆ‡ ‘‹Ž‚, ……—ˆ‘‹…›• ‚ Œ…ž. “Š‚€ … Ž’Ž€- †€…’‘Ÿ € Š€…. „…‰‘’‚ˆ…, ‘ŽŽ’‚…’‘’‚“ž™…… ŠŽŒ€„…, Žˆ‡- ‚Ž„ˆ’‘Ÿ …Œ…„‹…Ž. ˆ ‚›Ž‹…ˆˆ ŠŽŒ€„› € Š€ ŒŽƒ“’ ‚›„€‚€’œ‘Ÿ ‡€Ž- ‘›, ’…“ž™ˆ… “’‚…„ˆ’…‹œŽƒŽ ˆ‹ˆ Ž’ˆ–€’…‹œŽƒŽ Ž’‚…’€. „‹Ÿ Ž’‚…’€ € ˆ• …Ž•Ž„ˆŒŽ €†€’œ Ž„“ ˆ‡ Š‹€‚ˆ˜ '„', 'D', '›', 'Y' -- „‹Ÿ “’‚…„ˆ’…‹œŽƒŽ Ž’‚…’€, ˆ‹ˆ '', 'N' -- „‹Ÿ Ž’ˆ–€’…‹œŽƒŽ. ’€Š†… ŒŽƒ“’ ‚›„€‚€’œ‘Ÿ ‡€Ž‘›, ’…“ž™ˆ… ‚‚Ž„€ ˆ‹ˆ ŠŽ…Š–ˆˆ ‘’ŽŠˆ. ˆ ’ŽŒ ŒŽ†Ž Ž‹œ‡Ž‚€’œ‘Ÿ Š‹€- ‚ˆ˜€Œˆ …„€Š’ˆŽ‚€ˆŸ ‘’ŽŠˆ, Žˆ‘€›Œˆ ‚ ˆ‹Ž†…ˆˆ. ˆ €Ž’… ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ € “‘’Ž‰‘’‚… "DK:" ‘Ž‡„€…’‘Ÿ ”€‰‹ PASCAL.INI, ‚ ŠŽ’ŽŽŒ ‘ˆ‘’…Œ€ ‘Ž•€Ÿ…’ ‘‚Ž… ’…Š“™…… ‘Ž‘’ŽŸˆ… ˆ ŽŠŽ—€ˆˆ ‘…€‘€. 1 - 14 - 3. ŠŽŒ€„› ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ. 3.1. ŠŽŒ€„€ "„ŽŽ‹ˆ’…‹œŽ… Œ…ž". ŠŽŒ€„€ "„ŽŽ‹ˆ’…‹œŽ… Œ…ž" Ž‡‚Ž‹Ÿ…’ ‚€Œ ……‰’ˆ ‚ …†ˆŒ „ŽŽ‹ˆ’…‹œŽƒŽ Œ…ž. Ž ’Ž‰ ŠŽŒ€„… Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›„€…’‘Ÿ „ŽŽ‹ˆ’…‹œŽ… Œ…ž. PASCAL/FAST V 1.0 (C) 1989, OCT. „ŽŽ‹ˆ’…‹œŽ… Œ…ž ‘Œ…€ ˆŒ…ˆ Š€’€‹Žƒ „ˆ‘Š€ ‚›•Ž„ ‚ Ž‘Ž‚Ž… Œ…ž Ž„’‚…†„…ˆ… ‡€ˆ‘ˆ : „€ ˆŒŸ Žƒ€ŒŒ› : NONAME ’…Š‘’ Žƒ€ŒŒ› : ‚ €ŒŸ’ˆ Ž'…Š’›‰ ŠŽ„ : € „ˆ‘Š… >> ‡€Š ">>" (‚ ‘‹“—€… Ž’‘“’‘’‚ˆŸ Œ…ž € Š€…) Ÿ‚‹Ÿ…’‘Ÿ ˆ‡€ŠŽŒ ’ŽƒŽ, —’Ž ‘ˆ‘’…Œ€ Žƒ€ŒŒˆŽ‚€ˆŸ €•Ž„ˆ’‘Ÿ ‚ …†ˆŒ… „ŽŽ‹ˆ’…‹œŽƒŽ Œ…ž (">" -- Ž‘Ž‚Ž… Œ…ž) ˆ †„…’ ‚‚Ž„€ ŠŽŒ€„›. ˆ €†€’ˆˆ Š‹€‚ˆ˜ˆ <‚Š> ˆ‹ˆ Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›„€…’‘Ÿ „ŽŽ‹ˆ’…‹œŽ… Œ…ž. 3.2. ŠŽŒ€„€ "ˆŒŸ Žƒ€ŒŒ›". ŠŽŒ€„€ "ˆŒŸ Žƒ€ŒŒ›" Ž‡‚Ž‹Ÿ…’ ‚€Œ ……‰’ˆ Š €Ž’… ‘ „“ƒŽ‰ Žƒ€ŒŒŽ‰. ŠŽŒ€„€ Ž„ˆ€ŠŽ‚Ž ‚›Ž‹Ÿ…’‘Ÿ ‚ Ž‘Ž‚- ŽŒ ˆ „ŽŽ‹ˆ’…‹œŽŒ Œ…ž. Ž ’Ž‰ ŠŽŒ€„… ‚›„€…’‘Ÿ Ž„‘Š€‡- Š€: "ˆŒŸ Žƒ€ŒŒ›: XXX" ƒ„… "XXX" -- ˆŒŸ Žƒ€ŒŒ›, ‘ ŠŽ’ŽŽ‰ ‚› €Ž’€…’… ‚ €‘’ŽŸ™ˆ‰ ŒŽŒ…’. ‚› ŒŽ†…’… ˆ‘€‚ˆ’œ …ƒŽ ˆ‹ˆ Ž‹Ž‘’œž ‡€Œ…ˆ’œ Ž‹œ‡“Ÿ‘œ Š‹€‚ˆ˜€Œˆ …„€Š’ˆŽ‚€ˆŸ ‘’ŽŠˆ. …‘‹ˆ ‚› ›’€…’…‘œ ‡€„€’œ “‘’Ž… ˆŒŸ Žƒ€ŒŒ›, ’Ž ‘ˆ‘’…Œ€ ‡€€˜ˆ- ‚€…’: ŠŽ…– €Ž’› ? ˆ “’‚…„ˆ’…‹œŽŒ Ž’‚…’… Ž€ ‡€‚…˜€…’ €Ž’“ … ‘Ž‡- 1 - 15 - „€‚€Ÿ ”€‰‹€ "PASCAL.INI". ˆ Ž’ˆ–€’…‹œŽŒ ‚Ž‚œ ‚›•Ž„ˆ’ € ‡€Ž‘ ˆŒ…ˆ. ˆŒŸ Žƒ€ŒŒ› ‘Ž•€Ÿ…’‘Ÿ Ž’ ‘…€‘€ Š ‘…€‘“ ‚ ”€‰‹… PASCAL.INI € “‘’Ž‰‘’‚… DK:. …‘‹ˆ ’Ž’ ”€‰‹ … €‰„…, ’Ž Ž “ŒŽ‹—€ˆž ……’‘Ÿ ˆŒŸ "NONAME". 3.3. ŠŽŒ€„€ "—’…ˆ…" (Ž‘Ž‚Ž… Œ…ž). ’€ ŠŽŒ€„€ Žˆ‡‚Ž„ˆ’ —’…ˆ… ’…Š‘’€ Žƒ€ŒŒ› ‘ „ˆ‘Š€ ‚ Ž…€’ˆ‚“ž €ŒŸ’œ ‚Œ. ˆ ’ŽŒ ‘’€Ž… ‘Ž„…†ˆŒŽ… ’…Š‘’Ž- ‚ŽƒŽ “”…€ “ˆ—’Ž†€…’‘Ÿ. ’€Š Š€Š —’…ˆ… ’…Š‘’€ ‚ €ŒŸ’œ ‚ ‘‹“—€… …Ž•Ž„ˆŒŽ‘’ˆ Žˆ‡‚Ž„ˆ’‘Ÿ €‚’ŽŒ€’ˆ—…‘Šˆ, ’Ž …Ž•Ž„ˆŒŽ‘’ˆ ‚ ˆ‘Ž‹œ‡Ž‚€ˆˆ ’Ž‰ ŠŽŒ€„› €Š’ˆ—…‘Šˆ …’. Ž€ ŒŽ†…’ ›’œ Ž‹…‡€, €ˆ- Œ…, „‹Ÿ ‚Ž‘‘’€Ž‚‹…ˆŸ ˆ‘Ž—…ŽƒŽ ˆ …„€Š’ˆŽ‚€ˆˆ ’…Š‘’€ ˆ ’.. 3.4. ŠŽŒ€„€ "‡€ˆ‘œ" (Ž‘Ž‚Ž… Œ…ž). ŠŽŒ€„€ "‡€ˆ‘œ" Žˆ‡‚Ž„ˆ’ ‘Ž‘ ’…Š‘’Ž‚ŽƒŽ “”…€ € „ˆ‘Š. ’Ž’ ‘Ž‘ „…‹€…’‘Ÿ €‚’ŽŒ€’ˆ—…‘Šˆ (‘ ‡€Ž‘ŽŒ Ž„’- ‚…†„…ˆŸ) ‚Ž ‚‘…• ‘‹“—€Ÿ•, ŠŽƒ„€ ’Ž …Ž•Ž„ˆŒŽ, ’€Š —’Ž ’€ ŠŽŒ€„€ Ž‹…‡€ ‹ˆ˜œ „‹Ÿ …„Ž’‚€™…ˆŸ Ž’…ˆ …‡“‹œ’€- ’Ž‚ …„€Š’ˆŽ‚€ˆŸ ˆ ‘ŽŸ• €€€’“› ‹ˆŽ ˆ €‡“˜…ˆˆ Ž…€–ˆŽŽ‰ ‘ˆ‘’…Œ› ‚ …‡“‹œ’€’… Ž˜ˆŽŠ ‚ Ž’‹€†ˆ‚€…ŒŽ‰ Žƒ€ŒŒ…. 3.5. ŠŽŒ€„€ "…„€Š’ˆŽ‚€ˆ…" (Ž‘Ž‚Ž… Œ…ž). Ž ŠŽŒ€„… "…„€Š’ˆŽ‚€ˆ…" Žˆ‡‚Ž„ˆ’‘Ÿ ‚•Ž„ ‚ ’…Š‘’Ž- ‚›‰ …„€Š’Ž, ŠŽ’Ž›‰ Žˆ‘€ ‚ ƒ‹€‚… 4 „€ŽƒŽ „ŽŠ“Œ…’€. ˆ …Ž•Ž„ˆŒŽ‘’ˆ ’…Š‘’ Žƒ€ŒŒ› ‘—ˆ’›‚€…’‘Ÿ ‘ „ˆ‘Š€. 1 - 16 - 3.6. ŠŽŒ€„€ "ŠŽ…– €Ž’›" (Ž‘Ž‚Ž… Œ…ž). Ž ’Ž‰ ŠŽŒ€„… Žˆ‡‚Ž„ˆ’‘Ÿ ‘Ž•€…ˆ… (‚ ‘‹“—€… …Ž- •Ž„ˆŒŽ‘’ˆ) ’…Š‘’€ Žƒ€ŒŒ› € „ˆ‘Š…, ‡€ˆ‘œ ’…Š“™…ƒŽ ‘Ž‘- ’ŽŸˆŸ ‘ˆ‘’…Œ› (ˆŒŸ Žƒ€ŒŒ›, €€Œ…’› ’€‘‹Ÿ–ˆˆ, ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ‚ “”…… …„€Š’Ž€ ˆ ’..) ‚ ”€‰‹ PASCAL.INI € “‘’- Ž‰‘’‚… DK: ˆ ‚›•Ž„ ‚ ‘…„“ Ž…€–ˆŽŽ‰ ‘ˆ‘’…Œ› RT-11. 3.7. ŠŽŒ€„€ "’€‘‹Ÿ–ˆŸ" (Ž‘Ž‚Ž… Œ…ž). ŠŽŒ€„€ "’€‘‹Ÿ–ˆŸ" ‘‹“†ˆ’ „‹Ÿ ’€‘‹Ÿ–ˆˆ Žƒ€ŒŒ› € PASCAL. Ž Œ…… ’€‘‹Ÿ–ˆˆ € Š€ ‚›„€ž’‘Ÿ ŽŒ…€ ’€‘‹ˆ- “…Œ›• ‘’ŽŠ, € ‚ ŠŽ–… ’€‘‹Ÿ–ˆˆ (…‘‹ˆ … Ž€“†…Ž Ž˜ˆ- ŽŠ) ‚›„€…’‘Ÿ ‘’€’ˆ‘’ˆŠ€: > ’€‘‹Ÿ–ˆŸ: 475 ’…Š‘’: •••• €‰’ ’€‹ˆ–›: •••• €‰’ ŠŽ„: •••• €‰’ ‘‚ŽŽ„Ž: •••• €‰’ > ‚ ‘‹“—€… Ž€“†…ˆŸ Ž˜ˆŠˆ ‚›„€…’‘Ÿ ‘ŽŽ™…ˆ… Ž …‰, ˆ Ž‘‹… €†€’ˆŸ ‹žŽ‰ Š‹€‚ˆ˜ˆ, ‘ˆ‘’…Œ€ ‚•Ž„ˆ’ ‚ …„€Š’Ž, “‘’€€‚‹ˆ‚€Ÿ ’…Š“™“ž Ž‡ˆ–ˆž ‚ Œ…‘’…, ƒ„… Ž€“†…€ Ž˜ˆŠ€. 3.8. ŠŽŒ€„€ "‚›Ž‹…ˆ…" (Ž‘Ž‚Ž… Œ…ž). ŠŽŒ€„€ "‚›Ž‹…ˆ…" …„€‡€—…€ „‹Ÿ ‡€“‘Š€ Žƒ€Œ- Œ› € ˆ‘Ž‹…ˆ…. …‘‹ˆ Ž€ … ›‹€ ……„ ’ˆŒ Ž’’€‘‹ˆŽ‚€- €, ’Ž Žƒ€ŒŒ€ ’€‘‹ˆ“…’‘Ÿ, ˆ Ž‘‹… ’ŽƒŽ ‡€“‘Š€…’‘Ÿ. …‘‹ˆ ˆ ˆ‘Ž‹…ˆˆ Žƒ€ŒŒ› … ›‹Ž Ž€“†…Ž Ž˜ˆ- ŽŠ, ’Ž ˆ ‡€‚…˜…ˆˆ ˆ‘Ž‹…ˆŸ ‚›„€…’‘Ÿ ‘ŽŽ™…ˆ… "[‘’Ž]" ˆ ‘ˆ‘’…Œ€ ‚›•Ž„ˆ’ € Ž„‘Š€‡Š“ ">". …‘‹ˆ Ž˜ˆŠˆ ›‹ˆ (ˆ‹ˆ …‘‹ˆ ˆ‘Ž‹…ˆ… ›‹Ž …‚€Ž €†€’ˆ…Œ Š‹€‚ˆ˜ˆ ) ‚›„€…’‘Ÿ ‘ŽŽ™…ˆ… Ž Ž˜ˆŠ… ‚ˆ„€: .... …›‚€ˆ…. PC=76256 ……Ž‹…ˆ… ‘ ‹€‚€ž™…‰ ’Ž—ŠŽ‰. „‹Ÿ Žˆ‘Š€ €†Œˆ’… …‘‹ˆ €†€’œ Š‹€‚ˆ˜“ , ’Ž Žˆ‡‚Ž„ˆ’‘Ÿ Žˆ‘Š Œ…‘’€ ŽŸ‚‹…ˆŸ Ž˜ˆŠˆ ˆ ‚•Ž„ ‚ …„€Š’Ž, ‚ ‘‹“—€… ‚‚Ž„€ 1 - 17 - ‹žŽƒŽ „“ƒŽƒŽ ‘ˆŒ‚Ž‹€ -- Žˆ‘Š … Žˆ‡‚Ž„ˆ’‘Ÿ ˆ ‘ˆ‘’…Œ€ ‚›•Ž„ˆ’ € Ž„‘Š€‡Š“ ">". …‘‹ˆ €„…‘ Ž˜ˆŠˆ … ‹…†ˆ’ ‚ …„…‹€• Žƒ€ŒŒ› Ž‹œ‡Ž- ‚€’…‹Ÿ (’Ž ŒŽ†…’ ›’œ €ˆŒ… ˆ Ž˜ˆŠ€• ‚ ˆ‘Ž‹œ‡Ž‚€ˆˆ ŠŽ„Ž‚›• ‚‘’€‚ŽŠ ˆ ’..), ’Ž ‚›„€…’‘Ÿ ’Ž‹œŠŽ €„…‘ Ž˜ˆŠˆ ˆ …… ˆ—ˆ€ ˆ ‘ˆ‘’…Œ€ ‘€‡“ ‚›•Ž„ˆ’ € Ž„‘Š€‡Š“. ˆ ‚Ž‡ˆŠŽ‚…ˆˆ Ž˜ˆŠˆ ‚Ž ‚…ŒŸ ˆ‘Ž‹…ˆŸ ‡€ƒ“‡Ž—- ŽƒŽ ŒŽ„“‹Ÿ, ‘Ž‡„€ŽƒŽ ‘ˆ‘’…ŒŽ‰ Žƒ€ŒŒˆŽ‚€ˆŸ PASCAL/FAST, Ž„ “€‚‹…ˆ…Œ …Ž‘…„‘’‚…Ž Ž‘ RT-11, Žˆ‘Š Œ…‘’€ Ž˜ˆŠˆ ’€Š†… … Žˆ‡‚Ž„ˆ’‘Ÿ ˆ “€‚‹…ˆ… ……„€…’‘Ÿ Ž…€–ˆŽŽ‰ ‘ˆ‘’…Œ…. 3.9. ŠŽŒ€„€ "‘Œ…€ ˆŒ…ˆ" („ŽŽ‹ˆ’…‹œŽ… Œ…ž). ŠŽŒ€„€ "‘Œ…€ ˆŒ…ˆ" Ž‡‚Ž‹Ÿ…’ ‚€Œ ˆ‡Œ…ˆ’œ ˆŒŸ ˆ‘•Ž„- ŽƒŽ ”€‰‹€, €•Ž„Ÿ™…ƒŽ‘Ÿ ‚ ’…Š‘’Ž‚ŽŒ “”…… ‘ˆ‘’…Œ› PASCAL/FAST. ‚ „€‹œ…‰˜…Œ, €ˆŒ…, ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ ŠŽŒ€„› "‡€ˆ‘œ" (Ž‘Ž‚Ž… Œ…ž) € “‘’Ž‰‘’‚… “„…’ ‘Ž‡„€ ”€‰‹ ‘ ˆŒ……Œ, Ž‹“—…›Œ Ž ŠŽŒ€„… "‘Œ…€ ˆŒ…ˆ". ’Ž „€…’ ‚Ž‡ŒŽ†Ž‘’œ ‘Ž•€…ˆŸ € “‘’Ž‰‘’‚… Ž„ €‡›Œˆ ˆŒ…€Œˆ €—€‹œŽƒŽ ˆ‘•Ž„ŽƒŽ ’…Š‘’€ ˆ Ž’…„€Š’ˆŽ‚€ŽƒŽ ’…Š‘’€. 3.10. ŠŽŒ€„€ "Š€’€‹Žƒ „ˆ‘Š€" („ŽŽ‹ˆ’…‹œŽ… Œ…ž). ŠŽŒ€„€ "Š€’€‹Žƒ „ˆ‘Š€" ‘‹“†ˆ’ „‹Ÿ Ž‘ŒŽ’€ Š€’€‹Žƒ€ „ˆ‘Š€. Ž ’Ž‰ ŠŽŒ€„… ‚›„€…’‘Ÿ ‡€Ž‘ ‚ˆ„€: Ž€‡…–: *.PAS ŠŽ’Ž›‰ ŒŽ†Ž Ž’…„€Š’ˆŽ‚€’œ ‘ ŽŒŽ™œž Š‹€‚ˆ˜ …„€Š’ˆ- Ž‚€ˆŸ ‘’ŽŠˆ. Ž‘‹… ‚‚Ž„€ Ž’…„€Š’ˆŽ‚€ŽƒŽ Ž€‡–€ ‚›„€…’‘Ÿ Š€’€‹Žƒ „ˆ‘ŠŽ‚ŽƒŽ “‘’Ž‰‘’‚€. ˆŒ…: >> Ž€‡…– : *.PAS Š€’€‹Žƒ „ˆ‘Š€: GRAPHM.PAS 16 QUEENS.PAS 29 ‘‚ŽŽ„Ž ‹ŽŠŽ‚: 431 €ˆŽ‹œ˜ˆ‰ ‘‚ŽŽ„›‰ “—€‘’ŽŠ: 239 >> 1 - 18 - 3.11. ŠŽŒ€„€ "‚›•Ž„ ‚ Ž‘Ž‚Ž… Œ…ž" („ŽŽ‹ˆ- ’…‹œŽ… Œ…ž). ŠŽŒ€„€ "‚›•Ž„ ‚ Ž‘Ž‚Ž… Œ…ž" Ž‡‚Ž‹Ÿ…’ ……‰’ˆ ‚ …†ˆŒ Ž‘Ž‚ŽƒŽ Œ…ž. Ž ’Ž‰ ŠŽŒ€„… Š€ Ž—ˆ™€…’‘Ÿ ˆ € …ƒŽ ‚›‚Ž„ˆ’‘Ÿ Ž‘Ž‚Ž… Œ…ž. 3.12. ŠŽŒ€„€ "Ž„’‚…†„…ˆ… ‡€ˆ‘ˆ" („ŽŽ‹ˆ’…‹œ- Ž… Œ…ž). €ƒ“Œ…’ŽŒ ŠŽŒ€„› Ÿ‚‹Ÿ…’‘Ÿ ‘’ŽŠ€ "„€" ˆ‹ˆ "…’". €ƒ“Œ…’ ˆ‡Œ…Ÿ…’ ‘‚Ž… ‡€—…ˆ… ˆ €†€’ˆˆ Š‹€‚ˆ˜ "" ˆ‹ˆ "P". ˆ ‚›Ž‹…ˆˆ ŠŽŒ€„ €Ž’› ‘ ”€‰‹€Œˆ, ‡€—…ˆ… „€Ž‰ ŠŽŒ€„› ˆ‘Ž‹œ‡“…’‘Ÿ ‚ ˆ• Ž “ŒŽ‹—€ˆž. 3.13. ŠŽŒ€„› "’…Š‘’ Žƒ€ŒŒ›" ˆ "Ž'…Š’›‰ ŠŽ„" („ŽŽ‹ˆ’…‹œŽ… Œ…ž). €ƒ“Œ…’ŽŒ ŠŽŒ€„ Ÿ‚‹Ÿ…’‘Ÿ ‘’ŽŠ€ "‚ €ŒŸ’ˆ" ˆ‹ˆ "€ „ˆ‘Š…". €ƒ“Œ…’ ˆ‡Œ…Ÿ…’ ‘‚Ž… ‡€—…ˆ… ˆ €†€’ˆˆ Š‹€‚ˆ˜ "’" „‹Ÿ ŠŽŒ€„› "’…Š‘’ Žƒ€ŒŒ›" ˆ "Ž" „‹Ÿ ŠŽŒ€„› "Ž'…Š’- ›‰ ŠŽ„". ’ˆ ŠŽŒ€„› Ž‡‚Ž‹Ÿž’ ‡€„€’œ ‘Ž‘Ž Ž€Ž’Šˆ ˆ‘•Ž„ŽƒŽ ’…Š‘’€ Žƒ€ŒŒ› ˆ Ž'…Š’ŽƒŽ ŠŽ„€ ‚Ž ‚…ŒŸ €Ž’› ‘ˆ‘’…Œ› Žƒ€ŒŒˆŽ‚€ˆŸ. ˆ‘•Ž„›‰ ’…Š‘’ Žƒ€ŒŒ› ŒŽ†…’ ›’œ Ž‘’ŽŸŽ €‘Ž‹Ž- †… ‚ €ŒŸ’ˆ ‚Œ, ‹ˆŽ •€ˆ’œ‘Ÿ € „ˆ‘Š… ˆ ‘—ˆ’›‚€’œ‘Ÿ ‚ €ŒŸ’œ ‚Œ ˆ …Ž•Ž„ˆŒŽ‘’ˆ. …†ˆŒ Ž‘’ŽŸŽƒŽ •€…ˆŸ ’…Š‘’€ ‚ Ž…€’ˆ‚Ž‰ €ŒŸ’ˆ “‘ŠŽŸ…’ €Ž’“ ‘ˆ‘’…Œ›, Ž “Œ…œ˜€…’ Œ€Š‘ˆŒ€‹œ›‰ Ž'…Œ Žƒ€ŒŒ, Ž€€’›‚€…Œ›• ‘ˆ‘’…- ŒŽ‰. ’€‘‹Ÿ’Ž ŒŽ†…’ ƒ……ˆŽ‚€’œ Ž'…Š’›‰ ŠŽ„ ‹ˆŽ ‚ €ŒŸ’ˆ, ‹ˆŽ ‡€ˆ‘›‚€’œ …ƒŽ Ž Œ…… ’€‘‹Ÿ–ˆˆ € „ˆ‘Š ‚ ‚ˆ„… ”€‰‹€ ’ˆ€ .SAV. ‚’ŽŽ‰ …†ˆŒ Œ…„‹………, Ž Ž ‡€—ˆ- ’…‹œŽ “‚…‹ˆ—ˆ‚€…’ Œ€Š‘ˆŒ€‹œ›‰ Ž'…Œ Žƒ€ŒŒ›, Ž€€’›- ‚€…ŒŽ‰ ‘ˆ‘’…ŒŽ‰. ŠŽŒ… ’ŽƒŽ, Ž Ž‡‚Ž‹Ÿ…’ ‘Ž‡„€‚€’œ ‡€ƒ“- ‡Ž—›‰ ŒŽ„“‹œ, ˆƒŽ„›‰ „‹Ÿ ‘€ŒŽ‘’ŽŸ’…‹œŽƒŽ ˆ‘Ž‹…ˆŸ …‡ ‘ˆ‘’…Œ› PASCAL/FAST. €ˆŽ‹…… ›‘’›‰ …†ˆŒ €Ž’› (€ŒŸ’œ -> €ŒŸ’œ) Ž…‘- …—ˆ‚€…’ ‘ŠŽŽ‘’œ ’€‘‹Ÿ–ˆˆ ŽŠŽ‹Ž 100 ‘’ŽŠ/‘…Š ˆ Œ€Š‘ˆ- Œ€‹œ›‰ Ž'…Œ ˆ‘•Ž„ŽƒŽ ’…Š‘’€ Žƒ€ŒŒ› 400-500 ‘’ŽŠ. €ˆŽ‹…… Œ…„‹…›‰ …†ˆŒ („ˆ‘Š -> „ˆ‘Š) Ž…‘…—ˆ‚€…’ ‘ŠŽŽ‘’œ ’€‘‹Ÿ–ˆˆ ŽŠŽ‹Ž 15 ‘’ŽŠ/‘…Š (‘ ƒˆŠˆŒ „ˆ‘ŠŽŒ ’ˆ€ 1 - 19 - MX:) ˆ Œ€Š‘ˆŒ€‹œ›‰ Ž'…Œ Žƒ€ŒŒ› „Ž 2500 ‘’ŽŠ ˆ‘•Ž„ŽƒŽ ’…Š‘’€. ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ Ž‹…… ›‘’ŽƒŽ „ˆ‘ŠŽ‚Ž„€ ‘ŠŽŽ‘’œ ’€‘‹Ÿ–ˆˆ Ž‚›˜€…’‘Ÿ „Ž 35-50 ‘’ŽŠ/‘…Š. 4. Š€›‰ …„€Š’Ž ’…Š‘’€. Š€›‰ …„€Š’Ž ’…Š‘’€ …„€‡€—… „‹Ÿ ‘Ž‡„€ˆŸ ’…Š‘’€ Žƒ€ŒŒ› ˆ ‚…‘…ˆŸ ‚ …ƒŽ ˆ‡Œ……ˆ‰. ˆ„…Ž‹ŽƒˆŸ €Ž’› ‘ ’…Š‘’Ž‚›Œ “”…ŽŒ ‚ …„€Š’Ž… ‹ˆ‡Š€ Š ˆ„…Ž‹Žƒˆˆ …„€Š’Ž€ K-52, Ž„€ŠŽ Ž …‘ŠŽ‹œŠŽ …„…… Ž ‚Ž‡ŒŽ†Ž‘’ŸŒ ˆ ˆŒ……’ „“ƒˆ… “€‚‹Ÿž™ˆ… Š‹€‚ˆ˜ˆ. ’…Š‘’ ˆ €Ž’… ‚ …„€Š’Ž… €‘‘Œ€’ˆ‚€…’‘Ÿ Š€Š ……- ›‚€Ÿ Ž‘‹…„Ž‚€’…‹œŽ‘’œ ‹ˆ’…, €‡ˆ’€Ÿ € ‘’ŽŠˆ ‘ˆŒ‚Ž‹€- Œˆ ŠŽ–€ ‘’ŽŠˆ. ‚ ’…Š‘’… …‘’œ Ž‡ˆ–ˆŸ, €‡›‚€…Œ€Ÿ "’…Š“- ™…‰". Ž€ €‘Ž‹€ƒ€…’‘Ÿ Œ_…_†_„_“ Š€ŠˆŒˆ-‹ˆŽ „‚“ŒŸ ‘Ž‘…„ˆ- Œˆ ‘ˆŒ‚Ž‹€Œˆ. ˆ €Ž’… ‚ …„€Š’Ž… Š“‘Ž ‚‘…ƒ„€ €•Ž„ˆ’‘Ÿ € “Ž‚- … „‚…€„–€’Ž‰ ‘’ŽŠˆ Š€€ ‘€‚€ Ž’ ’…Š“™…‰ Ž‡ˆ–ˆˆ, € Š€… Ž’Ž€†… ’…Š‘’ …„€Š’ˆ“…ŒŽƒŽ ”€‰‹€. ‚‘… ˆ‡Œ……ˆŸ ‚ ’…Š‘’… …Œ…„‹…Ž Ž’Ž€†€ž’‘Ÿ € Š€…. ˆ €Ž’… ‘ ’…Š‘’ŽŒ ‚…‘œ ’…Š‘’ €•Ž„ˆ’‘Ÿ ‚ Ž…€’ˆ‚Ž‰ €ŒŸ’ˆ, Ž’ŽŒ“ €‡Œ… ˆ‘•Ž„ŽƒŽ ’…Š‘’€ Žƒ€ŒŒ› … „Ž‹†… …‚›˜€’œ Ž'…Œ „Ž‘’“Ž‰ Ž…€’ˆ‚Ž‰ €ŒŸ’ˆ (’Ž ‘Ž‘’€‚‹Ÿ…’ ˆŒ…Ž 800 ‘’ŽŠ ’…Š‘’€). ˆ €Ž’… ‘ Žƒ€ŒŒ€Œˆ Ž‹œ˜…- ƒŽ Ž'…Œ€ ˆ• ’…Š‘’ …Ž•Ž„ˆŒŽ €‡ˆ‚€’œ € —€‘’ˆ, ˆ‘Ž‹œ‡“Ÿ „ˆ…Š’ˆ‚“ ŠŽŒˆ‹Ÿ’Ž€ "$I" (‚‘’€‚Š€ ’…Š‘’€ ˆ‡ ”€‰‹€). ‚› ˆŒ……’… ‚Ž‡ŒŽ†Ž‘’œ, Ž‹œ‡“Ÿ‘œ Š‹€‚ˆ˜€Œˆ …„€Š’ˆŽ‚€- ˆŸ, ……Œ…™€’œ‘Ÿ ‚ …„…‹€• ’…Š“™…‰ ‘’ŽŠˆ. ˆ Ž›’Š… ‚›‰’ˆ ‡€ ‹…‚›‰ ˆ‹ˆ €‚›‰ Š€‰ ‘’ŽŠˆ Žˆ‡‚Ž„ˆ’‘Ÿ ……•Ž„ € €—€‹Ž ‘‹…„“ž™…‰ ˆ‹ˆ ŠŽ…– …„›„“™…‰ ‘’ŽŠˆ. …„€Š’Ž €Ž’€…’ ‘ Ž‘’ŽŸŽ ‚Š‹ž—…›Œ …†ˆŒŽŒ ‚‘’€‚- Šˆ. Œ€Š‘ˆŒ€‹œ€Ÿ „‹ˆ€ ‘’ŽŠˆ ’…Š‘’€, „Ž“‘’ˆŒ€Ÿ ‚ …„€Š’Ž- …, -- 127 ‹ˆ’…, Ž„€ŠŽ € Š€… Ž’Ž€†€ž’‘Ÿ ’Ž‹œŠŽ …- ‚›… 80 ‹ˆ’…. …„€Š’Ž ’…Š‘’€ … ˆ‘Ž‹œ‡“…’ …†ˆŒ „ŽŽ‹ˆ’…‹œŽ‰ Š‹€- ‚ˆ€’“› „ˆ‘‹…Ÿ 15ˆ-00-013-01. 1 - 20 - 4.1. “€‚‹Ÿž™ˆ… Š‹€‚ˆ˜ˆ …„€Š’Ž€. Š “€‚‹Ÿž™ˆŒ Š‹€‚ˆ˜€Œ …„€Š’Ž€ Ž’Ž‘Ÿ’‘Ÿ: ‘’…‹Š€ ‚€‚Ž -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> ‘’…‹Š€ ‚‹…‚Ž -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> ‘’…‹Š€ ‚ˆ‡ -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> ‘’…‹Š€ ‚‚…• -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> Š‹€‚ˆ˜€ <‚Š> -- <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> Š‹€‚ˆ˜€ -- <‚›•Ž„ ˆ‡ …„€Š’Ž€> Š‹€‚ˆ˜€ -- <……Š‹ž—…ˆ… €Ž€ ‘ˆŒ‚Ž‹Ž‚ “‘/‹€’> Š‹€‚ˆ˜€ -- <ˆ†ŸŸ ‹…‚€Ÿ € ‘’…‹Ž—Ž‰ Š‹€‚ˆ€’“… „ˆ‘‹…Ÿ 15ˆ-00-013-01> ’€ Š‹€‚ˆ˜€ ‚›Ž‹Ÿ…’ ”“Š–ˆˆ …”ˆŠ‘Ž‰ Š‹€‚ˆ˜ˆ, ˆ‡Œ…- ŸŸ „…‰‘’‚ˆ… Š‹€‚ˆ˜ˆ, ……„ ŠŽ’ŽŽ‰ Ž€ ›‹€ €†€’€. Š‹€‚ˆ˜€ -- <ˆ†ŸŸ €‚€Ÿ € ‘’…‹Ž—Ž‰ Š‹€‚ˆ€’“… „ˆ‘‹…Ÿ 15ˆ-00-013-01> <ŠŽŒ€„€ …„€Š’ˆŽ‚€ˆŸ> Š‹€‚ˆ˜€ --<…ƒ……€–ˆŸ Š€€> 4.1.1. Š‹€‚ˆ˜ˆ ……Œ…™…ˆŸ Ž ’…Š‘’“. 4.1.1.1. Š‹€‚ˆ˜€ "‘’…‹Š€ ‚€‚Ž". €†€’ˆ… € ’“ Š‹€‚ˆ˜“ ……Œ…™€…’ ’…Š“™“ž Ž‡ˆ–ˆž € Ž„ˆ ‘ˆŒ‚Ž‹ ‚……„ Ž ’…Š‘’“. …‘‹ˆ „Ž‘’ˆƒ“’ ŠŽ…– ”€‰‹€, ’Ž ˆŠ€Šˆ• „…‰‘’‚ˆ‰ … Žˆ‡‚Ž„ˆ’‘Ÿ. ˆ ……•Ž„… —……‡ ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ Žˆ‡‚Ž„ˆ’‘Ÿ ‘„‚ˆƒ ’…Š‘’€ € Š€… ‚‚…•. 1 - 21 - 4.1.1.2. Š‹€‚ˆ˜€ "‘’…‹Š€ ‚‹…‚Ž". €†€’ˆ… € ’“ Š‹€‚ˆ˜“ ……Œ…™€…’ ’…Š“™“ž Ž‡ˆ–ˆž € Ž„ˆ ‘ˆŒ‚Ž‹ €‡€„ Ž ’…Š‘’“. …‘‹ˆ „Ž‘’ˆƒ“’Ž €—€‹Ž ”€‰‹€, ’Ž ˆŠ€Šˆ• „…‰‘’‚ˆ‰ … Žˆ‡‚Ž„ˆ’‘Ÿ. ˆ ……•Ž„… —……‡ ‘ˆŒ- ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ Žˆ‡‚Ž„ˆ’‘Ÿ ‘„‚ˆƒ ’…Š‘’€ € Š€… ‚ˆ‡. 4.1.1.3. Š‹€‚ˆ˜€ "‘’…‹Š€ ‚‚…•". ’€ Š‹€‚ˆ˜€ ˆ‚Ž„ˆ’ Š ……Œ…™…ˆž ’…Š“™…‰ Ž‡ˆ–ˆˆ € Ž‡ˆ–ˆž ‚ …„›„“™…‰ ‘’ŽŠ…, Ž’‘’ŽŸ™“ž Ž’ €—€‹€ ‘’ŽŠˆ € ‘’Ž‹œŠŽ †… ‡€ŠŽ‚, € ‘ŠŽ‹œŠŽ Ž’‘’ŽŸ‹€ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ Ž’ €—€‹€ ’…Š“™…‰ ‘’ŽŠˆ „Ž €†€’ˆŸ Š‹€‚ˆ˜ˆ. …‘‹ˆ …„›„“™€Ÿ ‘’ŽŠ€ ‘‹ˆ˜ŠŽŒ ŠŽŽ’Š€ „‹Ÿ ’ŽƒŽ, ’Ž ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €‡Œ…- ™€…’‘Ÿ ‚ ŠŽ–… …„›„“™…‰ ‘’ŽŠˆ. …‘‹ˆ ’…Š“™€Ÿ ‘’ŽŠ€ ›‹€ …‚Ž‰ ‚ ”€‰‹…, ’Ž ’…Š“™…‰ Ž‡ˆ–ˆ…‰ ‘’€Ž‚ˆ’‘Ÿ €—€‹Ž ”€‰‹€. ‘ˆŒ‚Ž‹ ’€“‹Ÿ–ˆˆ €‘‘Œ€’ˆ‚€…’‘Ÿ ˆ Ž„‘—…’… Ž‡ˆ–ˆˆ Š€Š ‘ŽŽ’‚…’‘’‚“ž™…… ŠŽ‹ˆ—…‘’‚Ž Ž…‹Ž‚. 4.1.1.4. Š‹€‚ˆ˜€ "‘’…‹Š€ ‚ˆ‡". ’€ Š‹€‚ˆ˜€ ˆ‚Ž„ˆ’ Š ……Œ…™…ˆž ’…Š“™…‰ Ž‡ˆ–ˆˆ € Ž‡ˆ–ˆž ‚ ‘‹…„“ž™…‰ ‘’ŽŠ…, Ž’‘’ŽŸ™“ž Ž’ €—€‹€ ‘’ŽŠˆ € ‘’Ž‹œŠŽ †… ‡€ŠŽ‚, € ‘ŠŽ‹œŠŽ Ž’‘’ŽŸ‹€ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ Ž’ €—€‹€ ’…Š“™…‰ ‘’ŽŠˆ „Ž €†€’ˆŸ Š‹€‚ˆ˜ˆ. …‘‹ˆ ‘‹…„“ž™€Ÿ ‘’ŽŠ€ ‘‹ˆ˜ŠŽŒ ŠŽŽ’Š€ „‹Ÿ ’ŽƒŽ, ’Ž ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €‡Œ…- ™€…’‘Ÿ ‚ …… ŠŽ–…. …‘‹ˆ ’…Š“™€Ÿ ‘’ŽŠ€ ›‹€ Ž‘‹…„…‰ ‚ ”€‰- ‹…, ’Ž ’…Š“™…‰ Ž‡ˆ–ˆ…‰ ‘’€Ž‚ˆ’‘Ÿ ŠŽ…– ”€‰‹€. ‘ˆŒ‚Ž‹ ’€“- ‹Ÿ–ˆˆ €‘‘Œ€’ˆ‚€…’‘Ÿ ˆ Ž„‘—…’… Ž‡ˆ–ˆˆ Š€Š ‘ŽŽ’‚…’‘’‚“ž- ™…… ŠŽ‹ˆ—…‘’‚Ž Ž…‹Ž‚. 4.1.1.5. Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚€‚Ž". ‚‚Ž„ ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ ˆ‚Ž„ˆ’ Š “‘’€Ž‚- Š… ’…Š“™…‰ Ž‡ˆ–ˆˆ € ŠŽ…– ’…Š“™…‰ ‘’ŽŠˆ (…‘‹ˆ Ž€ ’€Œ … €•Ž„ˆ‹€‘œ) ˆ Š “‘’€Ž‚Š… € ŠŽ…– ‘‹…„“ž™…‰ ‘’ŽŠˆ, …‘‹ˆ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ “†… €•Ž„ˆ‹€‘œ ‚ ŠŽ–… ‘’ŽŠˆ. 1 - 22 - 4.1.1.6. Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚‹…‚Ž". ‚‚Ž„ ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ ˆ‚Ž„ˆ’ Š “‘’€Ž‚- Š… ’…Š“™…‰ Ž‡ˆ–ˆˆ € €—€‹Ž ’…Š“™…‰ ‘’ŽŠˆ (…‘‹ˆ Ž€ ’€Œ … €•Ž„ˆ‹€‘œ) ˆ Š “‘’€Ž‚Š… € €—€‹Ž …„›„“™…‰ ‘’ŽŠˆ, …‘‹ˆ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ “†… €•Ž„ˆ‹€‘œ ‚ €—€‹… ‘’ŽŠˆ. 4.1.1.7. Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚‚…•". ‚‚Ž„ ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ Š‚ˆ‚€‹…’… „‚…- €„–€’ˆ €†€’ˆŸŒ Ž„ˆŽ—Ž‰ Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚‚…•". 4.1.1.8. Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚ˆ‡". ‚‚Ž„ ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ Š‚ˆ‚€‹…’… „‚…- €„–€’ˆ €†€’ˆŸŒ Ž„ˆŽ—Ž‰ Š‹€‚ˆ˜ˆ "‘’…‹Š€ ‚ˆ‡". 4.1.1.9. Š‹€‚ˆ˜ˆ "4". €†€’ˆ… Š‹€‚ˆ˜ "4" “‘’€€‚‹ˆ‚€…’ ’…Š“™“ž Ž‡ˆ–ˆž € ŠŽ…– ”€‰‹€. 4.1.1.10. Š‹€‚ˆ˜ˆ "5". €†€’ˆ… Š‹€‚ˆ˜ "5" “‘’€€‚‹ˆ‚€…’ ’…Š“™“ž Ž‡ˆ–ˆž € €—€‹Ž ”€‰‹€. 1 - 23 - 4.1.2. Š‹€‚ˆ˜ˆ ŠŽ…Š’ˆŽ‚Šˆ ’…Š‘’€. 4.1.2.1. Š‹€‚ˆ˜€ <‡>. €†€’ˆ… € Š‹€‚ˆ˜“ <‡> ˆ‚Ž„ˆ’ Š “„€‹…ˆž ‹ˆ’…› ‘‹…- ‚€ Ž’ ’…Š“™…‰ Ž‡ˆ–ˆˆ. …‘‹ˆ “„€‹Ÿ…Œ€Ÿ ‹ˆ’…€ -- ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ (’Ž …‘’œ, ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €•Ž„ˆ’‘Ÿ ‚ €—€‹… ‘’ŽŠˆ), ’Ž Žˆ‘•Ž„ˆ’ "‘Š‹…‰Š€" ’…Š“™…‰ ˆ …„›„“™…‰ ‘’ŽŠ ’…Š‘’€. €†€’ˆ… Š‹€‚ˆ˜ˆ <‡> ‚ €—€‹… ’…Š‘’€ ˆƒŽˆ“…’‘Ÿ. 4.1.2.2. Š‹€‚ˆ˜€ . €†€’ˆ… € Š‹€‚ˆ˜“ ˆ‚Ž„ˆ’ Š “„€‹…ˆž ‹ˆ’…› ‘€‚€ Ž’ ’…Š“™…‰ Ž‡ˆ–ˆˆ. …‘‹ˆ “„€‹Ÿ…Œ€Ÿ ‹ˆ’…€ -- ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ (’Ž …‘’œ, ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €•Ž„ˆ’‘Ÿ ‚ ŠŽ–… ‘’ŽŠˆ), ’Ž Žˆ‘•Ž„ˆ’ "‘Š‹…‰Š€" ’…Š“™…‰ ˆ ‘‹…„“ž™…‰ ‘’ŽŠ ’…Š‘’€. €†€’ˆ… Š‹€‚ˆ˜ˆ ‚ ŠŽ–… ’…Š‘’€ ˆƒŽˆ“…’‘Ÿ. 4.1.2.3. Š‹€‚ˆ˜€ <‚Š>. €†€’ˆ… € Š‹€‚ˆ˜“ <‚Š> ˆ‚Ž„ˆ’ Š ‚‘’€‚Š… ‘ˆŒ‚Ž‹€ ŠŽ- –€ ‘’ŽŠˆ ‘‹…‚€ Ž’ ’…Š“™…‰ Ž‡ˆ–ˆˆ. ’Ž ˆ‚Ž„ˆ’ Š "€‡…‡€- ˆž" ’…Š“™…‰ ‘’ŽŠˆ € „‚…, ˆ‹ˆ, …‘‹ˆ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ €•Ž- „ˆ’‘Ÿ ‚ €—€‹… ˆ‹ˆ ŠŽ–… ‘’ŽŠˆ, Š ŽŸ‚‹…ˆž “‘’Ž‰ ‘’ŽŠˆ. 4.1.2.4. Š‹€‚ˆ˜ˆ <‡>. €†€’ˆ… ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ ˆ‚Ž„ˆ’ Š “„€- ‹…ˆž ‚‘…• ‘ˆŒ‚Ž‹Ž‚ ‚ ’…Š“™…‰ ‘’ŽŠ… ‘€‚€ Ž’ ’…Š“™…‰ Ž‡ˆ- –ˆˆ ˆ “„€‹…ˆž ‘ˆŒ‚Ž‹€ ŠŽ–€ ‘’ŽŠˆ, ‘‹…„“ž™…ƒŽ ‡€ ˆŒˆ. 1 - 24 - 4.1.2.5. Š‹€‚ˆ˜ˆ . €†€’ˆ… ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ Š‹€‚ˆ˜ ˆ‚Ž„ˆ’ Š “„€- ‹…ˆž ‚‘…• ‘ˆŒ‚Ž‹Ž‚ ‚ ’…Š“™…‰ ‘’ŽŠ… ‘€‚€ Ž’ ’…Š“™…‰ Ž‡ˆ- –ˆˆ. ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ, ‘‹…„“ž™ˆ‰ ‡€ ˆŒˆ, … “„€‹Ÿ…’‘Ÿ. 4.2. „“ƒˆ… ‚Ž‡ŒŽ†Ž‘’ˆ …„€Š’Ž€. Š „“ƒˆŒ ‚Ž‡ŒŽ†Ž‘’ŸŒ …„€Š’Ž€ Ž’Ž‘Ÿ’‘Ÿ: 1. €Ž’€ ‘ “—€‘’Š€Œˆ ’…Š‘’€. 2. Žˆ‘Š Ž€‡–€ Ž ’…Š‘’“. 3. ‚•Ž„ ‚ …„€Š’ˆŽ‚€ˆ… „“ƒŽƒŽ ”€‰‹€. 4. €Ž’€ ‘ “‘‘ŠˆŒˆ ˆ ‹€’ˆ‘ŠˆŒˆ ‘ˆŒ‚Ž‹€Œˆ. 5. …ƒ……€–ˆŸ Š€€. 4.2.1. €Ž’€ ‘ “—€‘’Š€Œˆ ’…Š‘’€. ‚ …„€Š’Ž… ˆŒ……’‘Ÿ ‚Ž‡ŒŽ†Ž‘’œ €Ž’› ‘ “—€‘’Š€Œˆ ’…Š‘’€. “—€‘’ŽŠ ’…Š‘’€ ‡€„€…’‘Ÿ ˆ†…‰ ˆ ‚…•…‰ ƒ€ˆ–€Œˆ. ˆ ’ŽŒ ˆ†ŸŸ ƒ€ˆ–€ “—€‘’Š€ „Ž‹†€ €•Ž„ˆ’‘Ÿ Ž‘‹… ‚…•- …‰. …„€Š’Ž Ž‡‚Ž‹Ÿ…’ ‘ŠŽˆŽ‚€’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ‚ „“ƒŽ… Œ…‘’Ž, “„€‹ˆ’œ …ƒŽ ˆ‹ˆ ……Œ…‘’ˆ’œ ‚ „“ƒŽ… Œ…‘’Ž ’…Š‘’€. 4.2.1.1. "‚" -- Ž’Œ…’ˆ’œ €—€‹Ž “—€‘’Š€ ’…Š‘’€. Ž ’Ž‰ ŠŽŒ€„… ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ’…Š‘’€ “‘’€€‚‹ˆ‚€…’‘Ÿ €—€‹ŽŒ “—€‘’Š€. …„›„“™€Ÿ Ž’Œ…’Š€ €—€‹€ “—€‘’Š€ Ž’Œ…Ÿ…’- ‘Ÿ. ‚Œ…‘’Ž “Š‚› "‚" ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ "W". 1 - 25 - 4.2.1.2. "" -- Ž’Œ…’ˆ’œ ŠŽ…– “—€‘’Š€ ’…Š‘’€. Ž ’Ž‰ ŠŽŒ€„… ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ’…Š‘’€ “‘’€€‚‹ˆ‚€…’‘Ÿ ‚ Š€—…‘’‚… ŠŽ–€ “—€‘’Š€. …„›„“™€Ÿ Ž’Œ…’Š€ ŠŽ–€ “—€‘’Š€ Ž’Œ…Ÿ…’‘Ÿ. ‚Œ…‘’Ž “Š‚› "" ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ "N". 4.2.1.3. "“" -- “„€‹ˆ’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ’€ ŠŽŒ€„€ “„€‹Ÿ…’ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€. ƒ€ˆ–› “—€‘’Š€ „Ž‹†› ›’œ ‡€„€› ŠŽ…Š’Ž. ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ‚ ŒŽŒ…’ ‚›Ž‹…ˆŸ ŠŽŒ€„› „Ž‹†€ €•Ž„ˆ’œ‘Ÿ ‡€ …„…‹€Œˆ Ž’Œ…—…ŽƒŽ “—€‘’Š€ ’…Š‘’€. ‚Œ…‘’Ž “Š‚› "“" ŒŽ†…’ ›’œ ˆ‘Ž‹œ‡Ž‚€€ “Š‚€ "U". 4.2.1.4. "Š" -- ‘ŠŽˆŽ‚€’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ‚ ’…Š“™“ž Ž‡ˆ–ˆž. ’€ ŠŽŒ€„€ ŠŽˆ“…’ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ‚ ’…Š“- ™“ž Ž‡ˆ–ˆž. ƒ€ˆ–› “—€‘’Š€ „Ž‹†› ›’œ ‡€„€› ŠŽ…Š’Ž. ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ‚ ŒŽŒ…’ ‚›Ž‹…ˆŸ ŠŽŒ€„› „Ž‹†€ €•Ž„ˆ’œ- ‘Ÿ ‡€ …„…‹€Œˆ Ž’Œ…—…ŽƒŽ “—€‘’Š€ ’…Š‘’€. ‚Œ…‘’Ž “Š‚› "Š" ŒŽ†…’ ›’œ ˆ‘Ž‹œ‡Ž‚€€ “Š‚€ "K"(‹€’.). 4.2.1.5. "" -- ……Œ…‘’ˆ’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ‚ ’…Š“™“ž Ž‡ˆ–ˆž. ’€ ŠŽŒ€„€ ……Œ…™€…’ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ ‚ ’…Š“™“ž Ž‡ˆ–ˆž. ƒ€ˆ–› “—€‘’Š€ „Ž‹†› ›’œ ‡€„€› ŠŽ…Š’- Ž. ’…Š“™€Ÿ Ž‡ˆ–ˆŸ ‚ ŒŽŒ…’ ‚›Ž‹…ˆŸ ŠŽŒ€„› „Ž‹†€ €•Ž- „ˆ’œ‘Ÿ ‡€ …„…‹€Œˆ Ž’Œ…—…ŽƒŽ “—€‘’Š€ ’…Š‘’€. ‚Œ…‘’Ž “Š‚› "" ŒŽ†…’ ›’œ ˆ‘Ž‹œ‡Ž‚€€ “Š‚€ "P". 1 - 26 - 4.2.1.6. "‘" -- ‘Ž‘ Ž’Œ…’ŽŠ ƒ€ˆ–. ’€ ŠŽŒ€„€ …„€Š’Ž€ Ž’Œ…Ÿ…’ ‘„…‹€›… Ž’Œ…’Šˆ ƒ€ˆ– “—€‘’Š€. ‚Œ…‘’Ž “Š‚› "‘" ‚ ŠŽŒ€„… ŒŽ†…’ ›’œ ˆ‘Ž‹œ‡Ž‚€€ “Š‚€ "S". 4.2.2. Žˆ‘Š Ž€‡–€ Ž ’…Š‘’“. „‹Ÿ Žˆ‘Š€ Ž‡–€ …Ž•Ž„ˆŒŽ ‚‚…‘’ˆ Ž‘‹…„Ž‚€’…‹œŽ‘’œ Š‹€‚ˆ˜ "8". Ž‘‹… ’Ž ‚ ˆ†…‰ ‘’ŽŠ… Š€€ ‚›„€…’‘Ÿ ‡€Ž‘: Žˆ‘Š: ‚ Ž’‚…’ € ŠŽ’Ž›‰ …Ž•Ž„ˆŒŽ ‚‚…‘’ˆ Ž€‡…– „‹Ÿ Žˆ‘- Š€. Ž‘‹… €†€’ˆŸ Š‹€‚ˆ˜ˆ <‚Š> ˆ‹ˆ Žˆ‡‚Ž„ˆ’‘Ÿ Žˆ‘Š ‡€„€ŽƒŽ Ž€‡–€. …‘‹ˆ Ž€‡…– … ›‹ €‰„…, ’Ž ’…Š“™€Ÿ Ž‡ˆ–ˆŸ “‘’€€‚‹ˆ‚€…’‘Ÿ € ŠŽ…– ”€‰‹€. …„€Š’Ž ŽŒˆ’ Ž€‡…– ˆ ˆ Ž‚’ŽŽŒ €†€’ˆˆ . 4.2.3. …„€Š’ˆŽ‚€ˆ… „“ƒŽƒŽ ”€‰‹€. …„€Š’Ž ˆŒ……’ ‚Ž‡ŒŽ†Ž‘’œ …„€Š’ˆ“Ÿ ’…Š‘’ ‚›‡‚€’œ „‹Ÿ …„€Š’ˆŽ‚€ˆŸ „“ƒŽ‰ ’…Š‘’ ‘ „ˆ‘Š€, ‚…‘’ˆ ‚ …ƒŽ …Ž•Ž„ˆ- Œ›… ˆ‡Œ……ˆŸ, Ž‘‹… —…ƒŽ Ž„Ž‹†ˆ’œ €Ž’“ ‘ …‚Ž€—€‹œ›Œ ’…Š‘’ŽŒ. „‹Ÿ ’ŽƒŽ …Ž•Ž„ˆŒŽ €†€’œ Ž‘‹…„Ž‚€’…‹œŽ‘’œ Š‹€- ‚ˆ˜ "7". Ž‘‹… ’ŽƒŽ ‚ ˆ†…‰ ‘’ŽŠ… ‚›„€…’‘Ÿ ‡€Ž‘: ˆŒŸ ”€‰‹€: ‚ Ž’‚…’ € ŠŽ’Ž›‰ …Ž•Ž„ˆŒŽ ‚‚…‘’ˆ ˆŒŸ ”€‰‹€, ‚›‡›- ‚€…ŒŽƒŽ „‹Ÿ …„€Š’ˆŽ‚€ˆŸ. ‚‚Ž„ “‘’Ž‰ ‘’ŽŠˆ ‚›‡›‚€…’ Ž’Œ…“ ŠŽŒ€„›. Ž‘‹… ‚‚Ž„€ ˆŒ…ˆ ”€‰‹€ Žˆ‡‚Ž„ˆ’‘Ÿ ‘—ˆ’›- ‚€ˆ… ’…Š‘’€ ‘ „ˆ‘Š€ ˆ ‚•Ž„ ‚ …ƒŽ …„€Š’ˆŽ‚€ˆ…. ˆ …„€Š- ’ˆŽ‚€ˆˆ ‚ ’ŽŒ …†ˆŒ… „Ž“‘’ˆŒŽ ˆ‘Ž‹œ‡Ž‚€ˆ… ‚‘…• ‘…„‘’‚ …„€Š’ˆŽ‚€ˆŸ, ‚Š‹ž—€Ÿ ˆ ’Ž‹œŠŽ —’Ž Žˆ‘€“ž ŠŽŒ€„“. ‡€‚…˜…ˆ… …„€Š’ˆŽ‚€ˆŸ ’…Š“™…ƒŽ ”€‰‹€ Žˆ‡‚Ž„ˆ’‘Ÿ Ž ŠŽŒ€„… . ˆ ‡€‚…˜…ˆˆ …„€Š’ˆŽ‚€ˆŸ ”€‰‹€, …‘‹ˆ ‚ …ƒŽ ›‹ˆ ‚…‘…› ˆ‡Œ……ˆŸ, Žˆ‡‚Ž„ˆ’‘Ÿ …ƒŽ ‡€ˆ‘œ € „ˆ‘Š. ‘‹…„“…’ Ž’Œ…’ˆ’œ, —’Ž ˆ €Ž’… ‚ ’ŽŒ …†ˆŒ… ‚ €ŒŸ’ˆ ‚Œ €•Ž„Ÿ’‘Ÿ ’…Š‘’› …‘ŠŽ‹œŠˆ• …„€Š’ˆ“…Œ›• ‚ ’Ž’ ŒŽŒ…’ ”€‰‹Ž‚, ’€Š —’Ž …•‚€’Š€ €ŒŸ’ˆ ‘’€Ž‚ˆ’‘Ÿ Ž‹…… ‚…ŽŸ’Ž‰. 1 - 27 - 4.2.4. €Ž’€ ‘ “‘‘ŠˆŒˆ ˆ ‹€’ˆ‘ŠˆŒˆ ‘ˆŒ‚Ž‹€Œˆ. …„€Š’Ž ˆŒ……’ ‚Ž‡ŒŽ†Ž‘’œ €Ž’› Š€Š ‘ “‘‘ŠˆŒˆ, ’€Š ˆ ‘ ‹€’ˆ‘ŠˆŒˆ ‘ˆŒ‚Ž‹€Œˆ.’€Š Š€Š Ž€Ž’Š€ ‚‚Ž„€-‚›‚Ž„€ …€‹ˆ- ‡“…’‘Ÿ Ž‘…„‘’‚ŽŒ Ž‘ ’-11, € „ˆ‘‹…Ÿ•, Ž€€’›‚€ž™ˆ• 4-• €‹”€‚ˆ’›… ˜ˆ”’›, … …ŠŽŒ…„“…’‘Ÿ ˆ‘Ž‹œ‡Ž‚€ˆ… Š‹€‚ˆ˜ ……Š‹ž—…ˆŸ €ŽŽ‚ (“‘,‹€’ € „ˆ‘‹…… 15ˆ-00-013-01), Ž’ŽŒ“ —’Ž ’ˆ Š‹€‚ˆ˜ˆ ŒŽƒ“’ ƒ……ˆŽ‚€’œ ŠŽ„ , ŠŽ’Ž›‰ ˆ‘Ž‹œ‡“…’‘Ÿ ‚ Ž‘ RT-11 „‹Ÿ ‚…Œ…ŽƒŽ ‡€…™…ˆŸ ‚›‚Ž„€ € Š€. Ž‚’ŽŽ… €†€’ˆ… ‚Ž‘‘’€€‚‹ˆ‚€…’ ‚›‚Ž„. ‚‘‹…„‘’‚ˆˆ ’ŽƒŽ ‚ PASCAL/FAST ……Š‹ž—…ˆ… …†ˆŒŽ‚ "“‘" ˆ "‹€’" Žˆ‡‚Ž„ˆ’‘Ÿ Ž„Ž‚…Œ…›Œ €†€’ˆ…Œ Š‹€‚ˆ˜ ˆ "^". ˆ ’ŽŒ …„€Š’Ž ŒŽ†…’ €Ž’€’œ Š€Š ‘ ‡€ƒ‹€‚- ›Œˆ, ’€Š ˆ ‘ Žˆ‘›Œˆ ‘ˆŒ‚Ž‹€Œˆ. ……Š‹ž—…ˆ… ’ˆ• …†ˆ- ŒŽ‚ Žˆ‡‚Ž„ˆ’‘Ÿ Š‹€‚ˆ˜€Œˆ "‚" ˆ "". 4.2.5. …ƒ……€–ˆŸ Š€€. ˆ Ž„Ž‚…Œ…ŽŒ €†€’ˆˆ Š‹€‚ˆ˜ "W" Žˆ‘•Ž„ˆ’ …ƒ……€–ˆŸ Š€€. ˆ ’ŽŒ Ž‡ˆ–ˆŸ Œ€Š…€ … ˆ‡Œ…Ÿ…’‘Ÿ. 5. Ž‘Ž‚›… ‹…Œ…’› Ÿ‡›Š€ 5.1. Ž‘Ž‚›… ‘ˆŒ‚Ž‹› Ž‘Ž‚Ž‰ ‘‹Ž‚€œ Ÿ‡›Š€ PASCAL/FAST ‘Ž‘’Žˆ’ ˆ‡ Ž‘Ž‚›• ‘ˆŒ‚Ž‹Ž‚, ŠŽ’Ž›… Ž„€‡„…‹Ÿž’‘Ÿ € : “Š‚›: Ž’ A „Ž Z; Ž’ € „Ž Ÿ ˆ ‡€Š _ (Ž„—…Šˆ‚€ˆ…) –ˆ”›: 0 1 2 3 4 5 6 7 8 9 ‘…–ˆ€‹œ›… ‘ˆŒ‚Ž‹›: + - * / = ^ < > ( ) [ ] . , : ; ' # $ ˆ ”ˆƒ“›… ‘ŠŽŠˆ ’€‘‹Ÿ’Ž Ÿ‡›Š€ PASCAL/FAST … „…‹€…’ €‡‹ˆ—ˆŸ Œ…†„“ Žˆ‘›Œˆ ˆ ‘’Ž—›Œˆ “Š‚€Œˆ. …ŠŽ’Ž›… Ž…€’Ž› ˆ €‡ƒ- €ˆ—ˆ’…‹ˆ ”ŽŒˆ“ž’‘Ÿ ˆ‡ „‚“• ‘…–ˆ€‹œ›• ‘ˆŒ‚Ž‹Ž‚: 1 - 28 - Ž…€’Ž ˆ‘‚€ˆ‚€ˆŸ: := Ž…€’Ž› Ž’Ž˜…ˆŸ: <= >= <> €‡ƒ€ˆ—ˆ’…‹œ „ˆ€€‡ŽŽ‚: .. ŠŽŒŒ…’€ˆ‰: ‚Œ…‘’Ž ”ˆƒ“›• ‘ŠŽŽŠ ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ Š“ƒ‹›… ‘ŠŽŠˆ ‘Ž ‡‚…‡„Ž—Š€Œˆ (* ˆ *) €ˆŒ…: (* ŠŽŒŒ…’€ˆ‰ *) 5.2. ‡€…‡…‚ˆŽ‚€›… ‘‹Ž‚€ ‡€…‡…‚ˆŽ‚€›… ‘‹Ž‚€ Ÿ‚‹Ÿž’‘Ÿ ‘Ž‘’€‚Ž‰ —€‘’œž Ÿ‡›Š€ PASCAL/FAST. ˆ• …‹œ‡Ÿ ……Ž…„…‹ˆ’œ, ˆ Ž’ŽŒ“ ˆ• …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ ‚ Š€—…‘’‚… ˆ„…’ˆ”ˆŠ€’ŽŽ‚, Ž…„…‹Ÿ…Œ›• Ž‹œ- ‡Ž‚€’…‹…Œ. ‡€…‡…‚ˆŽ‚€›… ‘‹Ž‚€ Ÿ‡›Š€ PASCAL/FAST: * ABSOLUTE * EXTERNAL NIL * SHL AND FILE NOT * SHR ARRAY FORWARD * STRING BEGIN FOR OF THEN CASE FUNCTION OR TYPE CONST GOTO PACKED TO DIV * INLINE PROCEDURE UNTIL DO IF PROGRAM VAR DOWNTO IN RECORD WHILE ELSE LABEL REPEAT WITH END MOD SET * XOR ‡‚…‡„Ž—Šˆ ŽŠŽ‹Ž …ŠŽ’Ž›• ‘‹Ž‚ Ž‡€—€ž’, —’Ž „€›… ‡€…‡…‚ˆŽ‚€›… ‘‹Ž‚€ ‚ ‘’€„€’ŽŒ Ÿ‡›Š… PASCAL … Ž…- „…‹…›. 5.3. ‘’€„€’›… ˆ„…’ˆ”ˆŠ€’Ž› ‚ Ÿ‡›Š… PASCAL/FAST …‘’œ …‘ŠŽ‹œŠŽ ‘’€„€’›• ˆ„…’ˆ- ”ˆŠ€’ŽŽ‚ „‹Ÿ ‡€€…… Ž…„…‹…›• ’ˆŽ‚, ŠŽ‘’€’, ……Œ…- ›•, Ž–…„“ ˆ ”“Š–ˆ‰. ‹žŽ‰ ˆ‡ ‘’€„€’›• ˆ„…’ˆ”ˆŠ€’Ž- Ž‚ ŒŽ†Ž ……Ž…„…‹ˆ’œ, Ž ‚ ’ŽŒ ‘‹“—€… ‚› “†… … ‘ŒŽ†…’… ˆ‘Ž‹œ‡Ž‚€’œ ’Ž’ ˆ„…’ˆ”ˆŠ€’Ž ’€Š, Š€Š ’Ž Ž…„…‹…Ž ‚ ‘ˆ‘’…Œ…, —’Ž ŒŽ†…’ ˆ‚…‘’ˆ Š “’€ˆ–…. Ž’ŽŒ“ ˆ‚Ž„ˆŒ›… ˆ†… ‘’€„€’›… ˆ„…’ˆ”ˆŠ€’Ž› ‹“—˜… … ……Ž…„…‹Ÿ’œ ˆ ˆ‘Ž‹œ‡Ž‚€’œ Ž €‡€—…ˆž: 1 - 29 - ABS DELAY LENGTH RENAME ADDR DELETE ARCTAN DISPOSE LN ASSIGN EOF LO RESET EOLN REWRITE ERASE LST ROUND EXIT SEEK BLOCKREAD EXITPROC MAXINT SIN BLOCKWRITE EXP MEM SIZEOF BOOLEAN FALSE MEMW SEEKEOF BUFLEN FILEPOS MEMAVAIL SEEKEOLN BYTE FILESIZE MOVE SQR FILLCHAR NEW SQRT CHAR FLUSH STR CHR FRAC ODD SUCC CLOSE FREEMEM ORD SWAP CLREOL GETMEM OUTPUT TEXT CLRSCR GOTOXY PI HALT POINTER TRUNC HI POS UPCASE CONCAT IORESULT PRED INPUT RANDOM COPY INSERT RANDOMIZE COS INT READ VAL INTEGER READKEY WRITE KBD READLN WRITELN KEYPRESSED REAL 5.4. €‡ƒ€ˆ—ˆ’…‹ˆ ‹…Œ…’› Ÿ‡›Š€ „Ž‹†› Ž’„…‹Ÿ’œ‘Ÿ „“ƒ Ž’ „“ƒ€ •Ž’Ÿ › Ž„ˆŒ ˆ‡ ‘‹…„“ž™ˆ• €‡ƒ€ˆ—ˆ’…‹…‰: Ž…‹, ‘ˆŒ‚Ž‹ ŠŽ–€ ‘’ŽŠˆ ˆ‹ˆ ŠŽŒŒ…’€ˆ‰. 5.5. ‘’ŽŠˆ Žƒ€ŒŒ› Œ€Š‘ˆŒ€‹œ€Ÿ „‹ˆ€ ‘’ŽŠˆ Žƒ€ŒŒ› €‚Ÿ…’‘Ÿ 127 ‘ˆŒ- ‚Ž‹€Œ. …‘‹ˆ ‚ ‘’ŽŠ… Ž‹…… 127 ‘ˆŒ‚Ž‹Ž‚, ’Ž ‚‘… ‹ˆ˜ˆ… ‘ˆŒ- ‚Ž‹› ŠŽŒˆ‹Ÿ’ŽŽŒ ˆƒŽˆ“ž’‘Ÿ. Ž’ŽŒ“ …„€Š’Ž PASCAL/FAST €‡…˜€…’ ’Ž‹œŠŽ ‘’ŽŠˆ „‹ˆŽ‰ … Ž‹…… 127 ‘ˆŒ‚Ž‹Ž‚, •Ž’Ÿ ˆ‘•Ž„€Ÿ Žƒ€ŒŒ€, Ž„ƒŽ’Ž‚‹…€Ÿ ˆ ŽŒŽ™ˆ „“ƒŽƒŽ …„€Š- ’Ž€, ŒŽ†…’ ˆ‘Ž‹œ‡Ž‚€’œ ˆ Ž‹…… „‹ˆ›… ‘’ŽŠˆ. …‘‹ˆ ’€ŠŽ‰ ’…Š‘’ Ž€€’›‚€…’‘Ÿ …„€Š’ŽŽŒ PASCAL/FAST, ’Ž Ž €‚’ŽŒ€’ˆ- —…‘Šˆ ‚‘’€‚‹Ÿ…’ ‘ˆŒ‚Ž‹› Žƒ€ˆ—…ˆŸ ‘’ŽŠˆ (”ŽŒˆ“…’ ‘’ŽŠˆ „‹ˆŽ‰ … Ž‹……, —…Œ 127 ‘ˆŒ‚Ž‹Ž‚). 1 - 30 - 6. ‘’€„€’›… ’ˆ› ‘Š€‹ŸŽ‚ ’ˆ „€›• Ž…„…‹Ÿ…’ ŒŽ†…‘’‚Ž ‡€—…ˆ‰, ŠŽ’ŽŽ… ŒŽ†…’ ˆˆŒ€’œ ……Œ…€Ÿ. Š€†„Ž‰ ……Œ…Ž‰ ‚ Žƒ€ŒŒ… …Ž•Ž- „ˆŒŽ ‡€„€’œ Ž„ˆ, ˆ ’Ž‹œŠŽ Ž„ˆ, ’ˆ „€›•. •Ž’Ÿ PASCAL/FAST ŒŽ†…’ Ž€€’›‚€’œ „Ž‘’€’Ž—Ž ‘‹Ž†›… ’ˆ› „€- ›•, ‚‘… Žˆ ‘Ž‘’€‚‹Ÿž’‘Ÿ ˆ‡ Ž‘’›• (…‘’“Š’“ˆŽ‚€›•) ’ˆŽ‚. Ž‘’Ž‰ ’ˆ „€›• ŒŽ†…’ Ž…„…‹Ÿ’œ‘Ÿ ‘€ŒˆŒ Žƒ€ŒŒˆ‘- ’ŽŒ (‚ ’ŽŒ ‘‹“—€… Ž €‡›‚€…’‘Ÿ Žˆ‘€›Œ ‘Š€‹Ÿ›Œ ’ˆŽŒ), Ž ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ˆ ‘’€„€’›… ‘Š€‹Ÿ›… ’ˆ›: INTEGER (–…‹Ž—ˆ‘‹…›‰), REAL (‚…™…‘’‚…›‰), BOOLEAN (“‹…‚‘Šˆ‰ ˆ‹ˆ ‹Žƒˆ—…‘Šˆ‰), CHAR (‘ˆŒ‚Ž‹œ›‰ ˆ‹ˆ ‹ˆ’…›‰) ˆ BYTE (€‰’Ž- ‚›‰). ˆ†… „€…’‘Ÿ Žˆ‘€ˆ… ’ˆ• Ÿ’ˆ ‘’€„€’›• ‘Š€‹Ÿ›• ’ˆŽ‚. 6.1. –…‹Ž—ˆ‘‹…›‰ ’ˆ (INTEGER) Š –…‹Ž—ˆ‘‹…ŽŒ“ ’ˆ“ Ž’Ž‘Ÿ’‘Ÿ ‚‘… –…‹›… —ˆ‘‹€. ‚ PASCAL/FAST Žˆ Žƒ€ˆ—ˆ‚€ž’‘Ÿ „ˆ€€‡ŽŽŒ Ž’ -32768 „Ž 32767. „€›… –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€ ‡€ˆŒ€ž’ ‚ €ŒŸ’ˆ Ž 2 €‰’€. ˆ ‚›Ž‹…ˆˆ €ˆ”Œ…’ˆ—…‘Šˆ• Ž…€–ˆ‰ €„ –…‹Ž—ˆ‘‹…- ›Œˆ „€›Œˆ ……Ž‹…ˆ… … Ž€“†ˆ‚€…’‘Ÿ. Ž’Œ…’ˆŒ, —’Ž “†Ž ‘‹…„ˆ’œ ‡€ ’…Œ, —’Ž› ŽŒ…†“’Ž—›… …‡“‹œ’€’› ˆ ‚›—ˆ‘‹…ˆˆ –…‹Ž—ˆ‘‹…›• ‚›€†…ˆ‰ … ‚›•Ž„ˆ‹ˆ ‡€ …„…‹› „ˆ€€‡Ž€, Ž…„…‹…ŽƒŽ „‹Ÿ „€›• –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€. €ˆŒ…, ˆ ‚›—ˆ‘‹…ˆˆ ‚›€†…ˆŸ 1000*100/50 ‚› … Ž‹“—ˆ- ’… …‡“‹œ’€’ 2000, ’€Š Š€Š ˆ ‚›Ž‹…ˆˆ “ŒŽ†…ˆŸ ˆŒ……’ Œ…‘’Ž ……Ž‹…ˆ…. 6.2. €‰’Ž‚›‰ ’ˆ (BYTE) ’ˆ BYTE Ÿ‚‹Ÿ…’‘Ÿ ‘‚Ž…Ž€‡›Œ Ž„ŒŽ†…‘’‚ŽŒ ’ˆ€ INTEGER ˆ Ž•‚€’›‚€…’ –…‹›… —ˆ‘‹€ ‚ „ˆ€€‡Ž… Ž’ 0 „Ž 255. Ž’ŽŒ“ „€›…, ˆŒ…ž™ˆ… €‰’Ž‚›‰ ’ˆ, ŒŽ†Ž ‘€‚ˆ‚€’œ ‘ „€›Œˆ –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€. Š€†„›‰ €‡, ŠŽƒ„€ ‚› Ž†ˆ„€…’… Ž‹“—ˆ’œ ‚…‹ˆ—ˆ“ ’ˆ€ BYTE, ‚Œ…‘’Ž …… ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ‡€—…ˆ… –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€ (INTEGER) ˆ €ŽŽŽ’. ˆ‘Š‹ž—…- ˆ… ‘Ž‘’€‚‹Ÿž’ ’Ž‹œŠŽ ’… ‘‹“—€ˆ, ŠŽƒ„€ ‚…‹ˆ—ˆ€ Ž…„…‹Ÿ…’‘Ÿ ‚ Š€—…‘’‚… €€Œ…’€. ŠŽŒ… ’ŽƒŽ, ‚ €ˆ”Œ…’ˆ—…‘Šˆ• ‚›€†…- ˆŸ• „Ž“‘Š€…’‘Ÿ ‘Œ…˜…ˆ… „€›• ’ˆŽ‚ BYTE ˆ INTEGER, € ……Œ…›Œ €‰’Ž‚ŽƒŽ ’ˆ€ ŒŽ†Ž ˆ‘‚€ˆ‚€’œ ‡€—…ˆ… –…‹Ž- —ˆ‘‹…ŽƒŽ ’ˆ€. ……Œ…€Ÿ ’ˆ€ BYTE ‡€ˆŒ€…’ ‚ €ŒŸ’ˆ 1 €‰’. 1 - 31 - 6.3. ‚…™…‘’‚…›‰ ’ˆ (REAL) „ˆ€€‡Ž ‡€—…ˆ‰ ……Œ…›• ‚…™…‘’‚…ŽƒŽ ’ˆ€ Ž•‚€’›- ‚€…’ —ˆ‘‹€ Ž’ 1…-38 „Ž 1…+38 ‘ Œ€’ˆ‘‘Ž‰, ŠŽ’Ž€Ÿ ŒŽ†…’ ‘Ž„…†€’œ „Ž 7 ‡€—€™ˆ• –ˆ”. „‹Ÿ €‡Œ…™…ˆŸ ‚ €ŒŸ’ˆ Ž„Ž‰ ……Œ…Ž‰ ‚…™…‘’‚…ŽƒŽ ’ˆ€ ’…“…’‘Ÿ 4 €‰’€. ……Ž‹…ˆ…, ‚Ž‡ˆŠ€ž™…… ˆ ‚›Ž‹…ˆˆ €ˆ”Œ…’ˆ—…‘Šˆ• Ž…€–ˆ‰ €„ „€›Œˆ ‚…™…‘’‚…ŽƒŽ ’ˆ€, ‚›‡›‚€…’ Ž‘’€Ž‚Š“ Žƒ€ŒŒ› ˆ € Š€ ‚›‚Ž„ˆ’‘Ÿ ‘ŽŽ™…ˆ… Ž Ž˜ˆŠ…. ‚ ‘‹“—€… ‚›•Ž„€ ŽŸ„Š€ ‡€ ˆ†žž ƒ€ˆ–“ „ˆ€€‡Ž€ …‡“‹œ’€’“ ˆ‘- ‚€ˆ‚€…’‘Ÿ “‹…‚Ž… ‡€—…ˆ…. •Ž’Ÿ ‚…™…‘’‚…›‰ ’ˆ Ž…„…‹Ÿ…’‘Ÿ ‡„…‘œ Š€Š ‘’€„€’- ›‰ ‘Š€‹Ÿ›‰, ‘‹…„“…’ Ž’Œ…’ˆ’œ …ŠŽ’Ž›… €‡‹ˆ—ˆŸ, ŠŽ’Ž›… ‘“™…‘’‚“ž’ Œ…†„“ ‚…™…‘’‚…›Œ ’ˆŽŒ ˆ „“ƒˆŒˆ ‘’€„€’›Œˆ ‘Š€‹Ÿ›Œˆ ’ˆ€Œˆ: 1. ‚ ”“Š–ˆŸ• PRED ˆ SUCC … „Ž“‘Š€…’‘Ÿ ˆ‘Ž‹œ‡Ž‚€ˆ… €ƒ“Œ…’Ž‚ ‚…™…‘’‚…ŽƒŽ ’ˆ€. 2. „€›… ‚…™…‘’‚…ŽƒŽ ’ˆ€ …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ „‹Ÿ ˆ„…Š‘ˆŽ‚€ˆŸ Œ€‘‘ˆ‚€. 3. ‚…™…‘’‚…›‰ ’ˆ …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ Š€Š €‡Ž‚›‰ ’ˆ ŒŽ†…‘’‚€. 4. „€›… ‚…™…‘’‚…ŽƒŽ ’ˆ€ …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ ‚ “€‚‹Ÿž™ˆ• Ž…€’Ž€• FOR ˆ CASE. 5. ‚…™…‘’‚…›‰ ’ˆ „€›• … „Ž“‘Š€…’ Ž…„…‹…ˆŸ Ž„„ˆ€€‡ŽŽ‚. 6.4. ‹Žƒˆ—…‘Šˆ‰ ’ˆ (BOOLEAN) „€›… ‹Žƒˆ—…‘ŠŽƒŽ ’ˆ€ (ˆŽƒ„€ …ƒŽ €‡›‚€ž’ “‹…‚‘Šˆ‰) ŒŽƒ“’ ˆˆŒ€’œ ‡€—…ˆŸ, Ž…„…‹Ÿ…Œ›… ‘’€„€’›Œˆ ˆ„…’ˆ- ”ˆŠ€’Ž€Œˆ TRUE (ˆ‘’ˆ€) ˆ FALSE (‹Ž†œ). ˆ ‚›Ž‹…ˆˆ Ž…- €–ˆˆ ‘€‚…ˆŸ ‘—ˆ’€…’‘Ÿ ‘€‚…„‹ˆ‚›Œ ‘ŽŽ’Ž˜…ˆ… FALSE*) ”€‰‹, ŽŽ‡€—…›‰ <ˆŒŸ ”€‰‹€> ‡€ƒ“†€…’‘Ÿ ˆ Ž€€’›- ‚€…’‘Ÿ. …‘‹ˆ ”€‰‹€ ‘ ˆŒ……Œ <ˆŒŸ ”€‰‹€> … ‘“™…‘’‚“…’, ‚Ž‡- ˆŠ€…’ Ž˜ˆŠ€. ”€‰‹›, ‚›‡›‚€…Œ›… „ˆ…Š’ˆ‚Ž‰ INCLUDE … „Ž‹†- › ‘Ž„…†€’œ „ˆ…Š’ˆ‚› INCLUDE ’.…. ‚‹Ž†…ˆ… INCLUDE … „Ž“‘Š€…’‘Ÿ. 1 - 36 - I - „ˆ…Š’ˆ‚€ ŠŽŒˆ‹Ÿ’Ž€ Ž “ŒŽ‹—€ˆž I - €Š’ˆ‚€ (*$I+*) ˆ‘Ž‹œ‡“…’‘Ÿ „‹Ÿ ƒ……€–ˆˆ Ž‘‹“†ˆ‚€ž™…‰ Žƒ€ŒŒ› Ž- ‚…Šˆ ŠŽ„€ Ž˜ˆŠˆ ‚‚Ž„€/‚›‚Ž„€. ˆ Ž€“†…ˆˆ Ž˜ˆŽŠ ‚‚Ž„€/‚›‚Ž„€ ‚›Ž‹…ˆ… Ž€€’›‚€…ŒŽ‰ Žƒ€ŒŒ› ‡€‚…˜€…’‘Ÿ ˆ € Š€… „ˆ‘‹…Ÿ ‚›„€…’‘Ÿ ‘ŽŽ™…ˆ… Ž Ž˜ˆŠ…. …‘‹ˆ I - €‘‘ˆ‚€ (*$I-*), ’Ž ‚Ž ‚…ŒŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›, Ž‚…Šˆ €‚ˆ‹œŽ‘’ˆ ‚›Ž‹…ˆŸ ŠŽŒ€„ ‚‚Ž„€/‚›‚Ž„€ … Žˆ‡‚Ž„ˆ’‘Ÿ. ˆ ’ŽŒ „€‹œ…‰˜ˆ… Ž…€–ˆˆ ‚‚Ž„€/‚›‚Ž„€ Ž’Š‹€„›‚€ž’‘Ÿ „Ž ’…• Ž, ŽŠ€ … “„…’ ‚›‡‚€€ ‘’€„€’€Ÿ ”“Š–ˆŸ IORESULT. ˆ Ž€™…ˆˆ Š ’Ž‰ ‘’€„€’Ž‰ ”“Š–ˆˆ ‘Ž‘’ŽŸˆ… Ž˜ˆŠˆ ‘€‘›‚€…’‘Ÿ, —’Ž Ž‡‚Ž‹Ÿ…’ Ž„Ž‹†ˆ’œ ‚›Ž‹…ˆ… Ž…€–ˆ‰ ‚‚Ž„€/‚›‚Ž„€ „Ž ŽŸ‚‹…ˆŸ ‘‹…„“ž™…‰ Ž˜ˆŠˆ. ‚ ˆ‹Ž†…ˆˆ ˆ‚Ž„ˆ’‘Ÿ ‘ˆ‘ŽŠ ‚‘…• ‘ŽŽ™…ˆ‰ Ž Ž˜ˆ- Š€• ˆ ‚›Ž‹…ˆˆ Ž…€–ˆ‰ ‚‚Ž„€/‚›‚Ž„€. R - „ˆ…Š’ˆ‚€ ŠŽŒˆ‹Ÿ’Ž€ Ž “ŒŽ‹—€ˆž R - €Š’ˆ‚€ (*$R+*) „ˆ…Š’ˆ‚€ R “€‚‹Ÿ…’ ŠŽ’Ž‹…Œ „ˆ€€‡ŽŽ‚ ‚Ž ‚…ŒŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›. …‘‹ˆ ŠŽ’Ž‹œ ‚Š‹ž—… (*R+*), ’Ž ˆ ˆ„…Š‘€–ˆˆ Œ€‘‘ˆ‚Ž‚, ˆ‘‚€ˆ‚€ˆŸ• ˆ ’.. Ž‚…Ÿ…’‘Ÿ, —’Ž ‡€—…ˆ… ‹…†ˆ’ ‚ ’…“…ŒŽŒ „ˆ€€‡Ž…. …‘‹ˆ …’ - ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€ ‚…Œ…ˆ ‚›Ž‹…ˆŸ. ˆ ’ŽŒ Ž˜ˆŠŒ „ˆ€€‡ŽŽ‚ ŒŽƒ“’ ˆ‚Ž„ˆ’œ Š …‚…Ž‰ €Ž’… Žƒ€ŒŒ›. …ŠŽŒ…„“…’‘Ÿ ˆ‘Ž‹œ- ‡Ž‚€’œ ˆ Ž’‹€†…Ž‰ Žƒ€ŒŒ… „‹Ÿ “Œ…œ˜…ŒˆŸ Ž'…Œ€ ŠŽ„€ ˆ “‘ŠŽ…ˆŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›. U - „ˆ…Š’ˆ‚€ ŠŽŒˆ‹Ÿ’Ž€ Ž “ŒŽ‹—€ˆž U - €Š’ˆ‚€ (*$U+*) “€‚‹Ÿ…’ …€Š–ˆ…‰ Žƒ€ŒŒ› ˆ ‚‚Ž„… . …‘‹ˆ U - €Š’ˆ‚€ (*U+*), ’Ž ˆ ‚‚Ž„… Žˆ‘•Ž„ˆ’ …›‚€- ˆ… Žƒ€ŒŒ›Ÿ, ˆ€—… ˆ ‚‚Ž„… ‚›Ž‹…ˆ… Žƒ€Œ- Œ› Ž„Ž‹†€…’‘Ÿ. „ˆ…Š’ˆ‚€ U ƒ‹Ž€‹œ€ ˆ … ŒŽ†…’ ……Ž…„…‹Ÿ’œ‘Ÿ ‚ Žƒ€ŒŒ…. …ŠŽŒ…„“…’‘Ÿ ˆ‘Ž‹œ‡Ž‚€’œ ˆ Ž’‹€†…Ž‰ Žƒ€ŒŒ… „‹Ÿ “‘ŠŽ…ˆŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›, ˆ€—… ‚ …ŠŽ’Ž›• ‘ˆ’“€–ˆŸ• ‚›•Ž„ ˆ‡ Žƒ€ŒŒ› …‡ ……‡€“‘Š€ ‘ˆ‘’…Œ› ŒŽ†…’ ›’œ …‚Ž‡- ŒŽ†…. V - „ˆ…Š’ˆ‚€ ŠŽŒˆ‹Ÿ’Ž€ Ž “ŒŽ‹—€ˆž V - €Š’ˆ‚€ (*$V+*) ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ €€Œ…’Ž‚-……Œ…›• “€‚‹Ÿ…’ Ž- ‚…ŠŽ‰ ‘Ž‚€„…ˆŸ ”ŽŒ€‹œ›• ˆ ”€Š’ˆ—…‘Šˆ• €€Œ…’Ž‚. €Š’ˆ‚Ž… ‘Ž‘’ŽŸˆ… ($V+*) “Š€‡›‚€…’ € ’Ž—“ž Ž‚…Š“. €‘- ‘ˆ‚Ž… ‘Ž‘’ŽŸˆ… ($V-*) Ž‘‹€‹Ÿ…’ Ž‚…Š“ ’ˆ€ ˆ Ž‡‚Ž‹Ÿ…’ ……„€‚€’œ ”€Š’ˆ—…‘Šˆ… €€Œ…’› ‘ ‹žŽ‰ „‹ˆŽ‰ ‘’ŽŠˆ, …‡€‚ˆ‘ˆŒŽ Ž’ „‹ˆ› ”ŽŒ€‹œ›• €€Œ…’Ž‚. 1 - 37 - 8. ‡€ƒŽ‹Ž‚ŽŠ Žƒ€ŒŒ› ˆ ‹ŽŠ Žƒ€ŒŒ› ‚ €—€‹… Žƒ€ŒŒ›, €ˆ‘€Ž‰ € Ÿ‡›Š… PASCAL/FAST ‘’Žˆ’ ‡€ƒŽ‹Ž‚ŽŠ (ˆŒŸ) Žƒ€ŒŒ›. ‡€ ‡€ƒŽ‹Ž‚ŠŽŒ €‘Ž‹€ƒ€…’‘Ÿ ‹ŽŠ Žƒ€ŒŒ›. ‹ŽŠ Žƒ€ŒŒ›, ‚ ‘‚Žž Ž—……„œ, ‘Ž‘’Žˆ’ ˆ‡ „‚“• €‡„…‹Ž‚: €‡„…‹€ Žˆ‘€ˆŸ, ‚ ŠŽ’ŽŽŒ Ž…„…‹Ÿž’‘Ÿ ‚‘… ˆ‘Ž‹œ‡“…Œ›… ‚ Žƒ€ŒŒ… ……Œ…›…, ˆ €‡„…‹€ Ž…€’ŽŽ‚, ŠŽ’Ž›‰ Ž…„…‹Ÿ…’ „…‰‘’‚ˆŸ, ŠŽ’Ž›… “†Ž ‚›Ž‹ˆ’œ €„ ’ˆŒˆ ……Œ…›Œˆ. „€‹…… „€…’‘Ÿ Ž„ŽŽ… Žˆ‘€ˆ… Š€†„ŽƒŽ €‡„…‹€. 8.1. ‡€ƒŽ‹Ž‚ŽŠ Žƒ€ŒŒ› ‚ Ÿ‡›Š… PASCAL/FAST ‡€ƒŽ‹Ž‚ŽŠ Žƒ€ŒŒ› ˆŒ……’ —ˆ‘’Ž ‚‘ŽŒŽƒ€’…‹œ“ž ”“Š–ˆž ˆ ˆŠ€ŠŽ‰ ‘“™…‘’‚…Ž‰ Ž‹ˆ „‹Ÿ ‘€ŒŽ‰ Žƒ€ŒŒ› … ˆƒ€…’. …‘‹ˆ ‡€ƒŽ‹Ž‚ŽŠ ˆ‘“’‘’‚“…’, ’Ž Ž ‡€„€…’ ˆŒŸ Žƒ€ŒŒ› ˆ ˆŽƒ„€ ‚ …Œ ……—ˆ‘‹Ÿž’‘Ÿ €€- Œ…’›, ˆ ŽŒŽ™ˆ ŠŽ’Ž›• Žƒ€ŒŒ€ ‚‡€ˆŒŽ„…‰‘’‚“…’ ‘Ž ‘…- „Ž‰. ‘ˆ‘ŽŠ €€Œ…’Ž‚ …„‘’€‚‹Ÿ…’ ‘ŽŽ‰ Ž‘‹…„Ž‚€’…‹œŽ‘’œ ˆ„…’ˆ”ˆŠ€’ŽŽ‚, ‡€Š‹ž—…›• ‚ Š“ƒ‹›… ‘ŠŽŠˆ ˆ Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ. ˆŒ…›: PROGRAM CIRCLES; PROGRAM ACCOUNTANT (INPUT, OUTPUT); PROGRAM WRITER (INPUT, PRINTER); 8.2. €‡„…‹ Žˆ‘€ˆŸ ‚ €‡„…‹… Žˆ‘€ˆŸ, ‚•Ž„Ÿ™…ƒŽ ‚ ‹ŽŠ Žƒ€ŒŒ›, Žˆ‘›- ‚€ž’‘Ÿ ‚‘… ˆ„…’ˆ”ˆŠ€’Ž›, ŠŽ’Ž›… “„“’ ˆ‘Ž‹œ‡Ž‚€’œ‘Ÿ ‚ €‡„…‹… Ž…€’ŽŽ‚ „€ŽƒŽ ‹ŽŠ€ Žƒ€ŒŒ› (ˆ, ‚Ž‡ŒŽ†Ž, „“ƒˆ• ‹ŽŠŽ‚, €•Ž„Ÿ™ˆ•‘Ÿ ‚“’ˆ …ƒŽ). €‡„…‹ Žˆ‘€ˆŸ, ‚ ‘‚Žž Ž—……„œ, ‘Ž‘’Žˆ’ ˆ‡ Ÿ’ˆ €‡‹ˆ—›• €‡„…‹Ž‚: 1. €‡„…‹ Žˆ‘€ˆŸ Œ…’ŽŠ 2. €‡„…‹ Ž…„…‹…ˆŸ ŠŽ‘’€’ 3. €‡„…‹ Ž…„…‹…ˆŸ ’ˆŽ‚ 4. €‡„…‹ Žˆ‘€ˆŸ ……Œ…›• 5. €‡„…‹ Žˆ‘€ˆŸ Ž–…„“ ˆ ”“Š–ˆ‰ ‚ ‘’€„€’ŽŒ Ÿ‡›Š… PASCAL “‘’€Ž‚‹…Ž, —’Ž Š€†„›‰ €‡- „…‹ ŒŽ†…’ ‚‘’…—€’œ‘Ÿ ‚ Žƒ€ŒŒ… ’Ž‹œŠŽ Ž„ˆ €‡ ˆ‹ˆ †… … ‚‘’…—€’œ‘Ÿ ‚ŽŽ™…, ˆ—…Œ €‘Ž‹€ƒ€’œ‘Ÿ €‡„…‹› „Ž‹†› ‚ ŽŸ„Š…, “Š€‡€ŽŒ ‚›˜…. ‚ Ž’‹ˆ—ˆ… Ž’ …ƒŽ PASCAL/FAST €‡- …˜€…’, —’Ž› Š€†„›‰ €‡„…‹ ‚‘’…—€‹‘Ÿ ‚ €‡„…‹… Žˆ‘€ˆŸ ‹žŽ… ŠŽ‹ˆ—…‘’‚Ž €‡ ˆ ‚ ‹žŽŒ ŽŸ„Š…. 1 - 38 - 8.3. €‡„…‹ Žˆ‘€ˆŸ Œ…’ŽŠ ……„ ‹ž›Œ Ž…€’ŽŽŒ Žƒ€ŒŒ› ŒŽ†Ž Ž‘’€‚ˆ’œ Œ…’Š“, —’Ž Ž‡‚Ž‹ˆ’ ‚›Ž‹ˆ’œ ŸŒŽ‰ ……•Ž„ € ’Ž’ Ž…€’Ž ˆ ‚›Ž‹…ˆˆ ŠŽŒ€„› GOTO. Œ…’Š€ ‘Ž‘’Žˆ’ ˆ‡ ˆŒ…ˆ Œ…’Šˆ ˆ ‘‹…- „“ž™…ƒŽ ‡€ ˆŒ „‚Ž…’Ž—ˆŸ. ……„ ˆ‘Ž‹œ‡Ž‚€ˆ…Œ Œ…’Šˆ …… ‘‹…- „“…’ Žˆ‘€’œ ‚ €‡„…‹… Žˆ‘€ˆŸ Œ…’ŽŠ. €‡„…‹ Žˆ‘€ˆŸ Œ…’ŽŠ ˆŒ……’ ‘‹…„“ž™“ž ‘’“Š’““: ‘€—€‹€ ‡€ˆ‘›‚€…’‘Ÿ ‡€…‡…‚ˆŽ- ‚€Ž… ‘‹Ž‚Ž LABEL (Œ…’Š€), ‡€ ˆŒ ‘‹…„“…’ ‘ˆ‘ŽŠ ŽŒ…Ž‚ Œ…’ŽŠ, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ. ‚ ŠŽ–… ‘ˆ‘Š€ ŽŒ…Ž‚ Œ…’ŽŠ ‘’€‚ˆ’‘Ÿ ’Ž—Š€ ‘ ‡€Ÿ’Ž‰. ŽŒ… Œ…’Šˆ Ÿ‚‹Ÿ…’‘Ÿ Š_Ž__‘_’_€__’_Ž_‰ ’ˆ€ INTEGER. ˆŒ…: LABEL 10, 999; 8.4. €‡„…‹ Ž…„…‹…ˆŸ ŠŽ‘’€’ ‚ €‡„…‹… Ž…„…‹…ˆŸ ŠŽ‘’€’ ‚›Ž‹Ÿ…’‘Ÿ ˆ‘‚€ˆ‚€ˆ… ˆ„…’ˆ”ˆŠ€’Ž€Œ Ž…„…‹…›• Ž‘’ŽŸ›• ‡€—…ˆ‰. ‚ €—€‹… €‡„…‹€ Ž…„…‹…ˆŸ ŠŽ‘’€’ ˆ˜…’‘Ÿ ‘‹Ž‚Ž CONST(ŠŽ‘’€’€). ‚‘‹…„ ‡€ ’ˆŒ ‘‹Ž‚ŽŒ ‘‹…„“…’ ‘ˆ‘ŽŠ ‚›€†…ˆ‰, ‚ ŠŽ’Ž›• ˆ„…’ˆ”ˆŠ€’Ž€Œ ˆ‘‚€ˆ‚€ž’‘Ÿ Ž…„…‹…›… Ž‘’ŽŸ›… ‡€—…- ˆŸ. ‹…Œ…’› ‘ˆ‘Š€ Ž’„…‹Ÿž’‘Ÿ „“ƒ Ž’ „“ƒ€ ’Ž—ŠŽ‰ ‘ ‡€Ÿ- ’Ž‰. Š€†„Ž… ‚›€†…ˆ… ˆ‘‚€ˆ‚€ˆŸ ‘Ž‘’Žˆ’ ˆ‡ ˆ„…’ˆ”ˆŠ€’Ž- €, ‡€ ŠŽ’Ž›Œ —……‡ ‡€Š €‚…‘’‚€ ‘‹…„“…’ ˆ‘‚€ˆ‚€…Œ€Ÿ …Œ“ Ž‘’ŽŸ€Ÿ ‚…‹ˆ—ˆ€. ‚ Š€—…‘’‚… ŠŽ‘’€’ ŒŽƒ“’ ˆ‘Ž‹œ‡Ž- ‚€’œ‘Ÿ ‘’ŽŠˆ ˆ‹ˆ —ˆ‘‹€. ˆŒ…: CONST LIMIT = 255; MAX = 1024; PASSWORD = 'SESAM'; CURS_HOME = ''^['H'; ‚ Ÿ‡›Š… PASCAL/FAST ‡€€…… Ž…„…‹…› …ŠŽ’Ž›… ŠŽ‘- ’€’›, ŠŽ’Ž›… ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ …‡ …„‚€ˆ’…‹œŽƒŽ Žˆ- ‘€ˆŸ: €‡‚€ˆ… ’ˆ ˆ ŠŽ‘’€’› ‡€—…ˆ… PI ‚…™…‘’‚…›‰ (3.141593…+00) FALSE,OFF “‹…‚‘Šˆ‰ TRUE,ON “‹…‚‘Šˆ‰ MAXINT –…‹Ž—ˆ‘‹…›‰ (32767 - ‘€ŒŽ… Ž‹œ˜Ž… –…‹Ž… —ˆ‘‹Ž) ‚ €‡„…‹… Ž…„…‹…ˆŸ ŠŽ‘’€’ ŒŽ†Ž Ž…„…‹Ÿ’œ ’ˆˆŽ- ‚€›… ŠŽ‘’€’›(‘Œ. “Š’ ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’›). 1 - 39 - 8.5. €‡„…‹ Ž…„…‹…ˆŸ ’ˆŽ‚ ’ˆ „€›• ‚ PASCAL/FAST ŒŽ†…’ ›’œ Žˆ‘€ ‹ˆŽ …Ž‘- …„‘’‚…Ž ‚ €‡„…‹… Žˆ‘€ˆŸ ……Œ…›•, ‹ˆŽ Ž…„…‹Ÿ’œ‘Ÿ ˆ„…’ˆ”ˆŠ€’ŽŽŒ ’ˆ€. ‚ PASCAL/FAST …‘’œ …‘ŠŽ‹œŠŽ ‘’€„€’- ›• ˆ„…’ˆ”ˆŠ€’ŽŽ‚ ’ˆŽ‚, ˆ, ŠŽŒ… ’ŽƒŽ, Žƒ€ŒŒˆ‘’ ŒŽ†…’ ‘Ž‡„€‚€’œ ‘‚Žˆ ‘Ž‘’‚…›… ’ˆ› “’…Œ Ž…„…‹…ˆŸ ’ˆ€ ‚ €‡„…‹… Ž…„…‹…ˆŸ ’ˆŽ‚. €‡„…‹ Ž…„…‹…ˆŸ ’ˆŽ‚ €—ˆ- €…’‘Ÿ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ TYPE (’ˆ). ‡€ ‘‹Ž‚ŽŒ TYPE ‘‹…„“…’ Ž„Ž ˆ‹ˆ Ž‹…… Žˆ‘€ˆ‰ ’ˆŽ‚, €‡„…‹…›• „“ƒ Ž’ „“ƒ€ ’Ž—ŠŽ‰ ‘ ‡€Ÿ’Ž‰. Š€†„Ž… Žˆ‘€ˆ… ’ˆ€ ‘Ž‘’Žˆ’ ˆ‡ ˆ„…’ˆ”ˆŠ€’Ž€ ’ˆ€, ‡€Š€ €‚…‘’‚€ ˆ ‘€ŒŽƒŽ Žˆ‘€ˆŸ ’ˆ€. ˆŒ…: TYPE NUMBER = INTEGER; DAY = (MON, TUE, WED, THU, FRI, SAT, SUN); LIST = ARRAY [1..10] OF REAL; „ŽŽ‹ˆ’…‹œ›… ˆŒ…› Ž…„…‹…ˆŸ ’ˆŽ‚ „€›• ‚› ‘ŒŽ- †…’… €‰’ˆ ‚ ‘ŽŽ’‚…’‘’‚“ž™ˆ• €‡„…‹€• “ŠŽ‚Ž„‘’‚€. 8.6. €‡„…‹ Žˆ‘€ˆŸ ……Œ…›• Š€†„€Ÿ ……Œ…€Ÿ, ‚‘’…—€ž™€Ÿ‘Ÿ ‚ Žƒ€ŒŒ…, „Ž‹†€ ›’œ Žˆ‘€€. Žˆ‘€ˆ… ……Œ…Ž‰ „Ž‹†Ž …„˜…‘’‚Ž‚€’œ ˆ‘Ž‹œ‡Ž‚€ˆž …… ‚ ’…Š‘’… Žƒ€ŒŒ› ‘ ’…Œ, —’Ž› ‚ ŒŽŒ…’ ˆ‘Ž‹œ‡Ž‚€ˆŸ Ž€ ›‹€ “†… ˆ‡‚…‘’€ ŠŽŒˆ‹Ÿ’Ž“. €‡„…‹ Žˆ‘€ˆŸ ……Œ…›• €—ˆ€…’‘Ÿ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ VAR (Ž’ VARIABLE - ……Œ…€Ÿ). ‚‘‹…„ ‡€ ˆŒ ˆ„…’ ‘ˆ‘ŽŠ, ‡€ˆ‘ˆ ŠŽ’ŽŽƒŽ ˆŒ…ž’ ‘‹…„“ž™“ž ‘’“Š’““: ‘€—€‹€ —……‡ ‡€Ÿ’“ž …—ˆ‘‹Ÿ…’‘Ÿ Ž„ˆ ˆ‹ˆ …‘ŠŽ‹œŠŽ ˆ„…’ˆ”ˆŠ€’Ž- Ž‚ ……Œ…›•, ‡€’…Œ ‘’€‚ˆ’‘Ÿ „‚Ž…’Ž—ˆ…, ˆ Ž‘‹… „‚Ž…’Ž—ˆŸ “Š€‡›‚€…’‘Ÿ ’ˆ ……—ˆ‘‹…›• ……Œ…›•. ˆ Ž€Ž’Š… Žˆ- ‘€ˆŸ ……Œ…Ž‰ ’€‘‹Ÿ’Ž ‘Ž‡„€…’ Ž‚“ž ……Œ…“ž ˆ ˆ‘- ‚€ˆ‚€…’ …‰ Ž…„…‹…›‰ ˆ„…’ˆ”ˆŠ€’Ž. Ž‹€‘’œž „…‰‘’‚ˆŸ ’€ŠŽƒŽ ˆ„…’ˆ”ˆŠ€’Ž€ Ÿ‚‹Ÿ…’‘Ÿ ’Ž’ ‹ŽŠ, ‚ ŠŽ’ŽŽŒ Ž Ž…„…‹…, ˆ ‹žŽ‰ „“ƒŽ‰ ‹ŽŠ ‚ …ƒŽ ‚•Ž„Ÿ™ˆ‰. Ž’Œ…’ˆŒ, Ž„€ŠŽ, —’Ž ‚ ‹žŽŒ ‹ŽŠ…, ‚•Ž„Ÿ™…Œ ‚ ‘Ž‘’€‚ „“ƒŽƒŽ ‹ŽŠ€ ŒŽ†Ž Ž…„…‹ˆ’œ „__“_ƒ_“_ž ……Œ…- “ž, ˆ‘Ž‹œ‡“Ÿ ’_Ž_’ †_… ‘_€_Œ_›_‰ ˆ„…’ˆ”ˆŠ€’Ž. ‚ ’€Šˆ• ‘‹“—€Ÿ• ƒŽ‚ŽŸ’, —’Ž ’€Š€Ÿ ……Œ…€Ÿ Ÿ‚‹Ÿ…’‘Ÿ ‹_Ž_Š_€_‹_œ__Ž_‰ „‹Ÿ ‹ŽŠ€, ‚ ŠŽ’ŽŽŒ Ž€ Žˆ‘€€ (ˆ „‹Ÿ ‹žŽƒŽ „“ƒŽƒŽ ‹ŽŠ€ ‚ …„…‹€• ’ŽƒŽ ‹ŽŠ€), € ’€Š€Ÿ †… ……Œ…€Ÿ, ‘ ’€ŠˆŒ †… ˆ„…’ˆ”ˆŠ€’ŽŽŒ, Žˆ‘€€Ÿ € Ž‹…… ‚›‘ŽŠŽŒ “Ž‚… (‚Ž ‚…˜…Œ ‹ŽŠ…) €‡›‚€…’‘Ÿ ƒ_‹_Ž__€_‹_œ__Ž_‰ ……Œ…Ž‰ ˆ ‘’€Ž‚ˆ’‘Ÿ …„Ž‘’“Ž‰ ‚ ’ŽŒ ‹ŽŠ…, ƒ„… ›‹€ Žˆ‘€€ ‹ŽŠ€‹œ€Ÿ ……Œ…€Ÿ ‘ ’…Œ †… ˆ„…’ˆ”ˆŠ€’ŽŽŒ. 1 - 40 - ˆŒ…: VAR RESULT, INTERMEDIATE, SUBTOTAL : REAL; I, J, X, Y : INTEGER; ACCEPTED, VALID : BOOLEAN; PERIOD : DAY; BUFFER : ARRAY [0..127] OF BYTE; 8.7. €‡„…‹ Žˆ‘€ˆŸ Ž–…„“ ˆ ”“Š–ˆ‰ Žˆ‘€ˆ… Ž–…„“› ‘‹“†ˆ’ „‹Ÿ Ž…„…‹…ˆŸ Ž–…„“› ‚ €ŒŠ€• ’…Š“™…‰ Žƒ€ŒŒ›. ‚›Ž‹…ˆ… Ž–…„“› €—ˆ€…’‘Ÿ ‘ Ž…€’Ž€ ‚›‡Ž‚€ Ž–…„“›, ˆ Ž‘‹… ‡€‚…˜…ˆŸ Ž–…„“›, ‚›Ž‹…ˆ… Žƒ€ŒŒ› Ž„Ž‹†€…’‘Ÿ ‘ Ž…€’Ž€, ‘‹…„“ž™…ƒŽ …Ž‘…„‘’‚…Ž ‡€ Ž…€’ŽŽŒ ‚›‡Ž‚€ Ž–…„“›. Žˆ‘€ˆ… ”“Š–ˆˆ ‘‹“†ˆ’ „‹Ÿ Ž…„…‹…ˆŸ ’Ž‰ —€‘’ˆ Žƒ- €ŒŒ›, ŠŽ’Ž€Ÿ ‚›Ž‹Ÿ…’ Ž…„…‹…›… ‚›—ˆ‘‹…ˆŸ ˆ ……„€…’ Ž‹“—…›‰ …‡“‹œ’€’. ”“Š–ˆŸ ‚›Ž‹Ÿ…’‘Ÿ ‘€‡“, Š€Š ’Ž‹œŠŽ ˆŒŸ ”“Š–ˆˆ ‚‘’…—€…’‘Ÿ Š€Š —€‘’œ …„‹Ž†…ˆŸ Žƒ€ŒŒ›. 8.8. €‡„…‹ Ž…€’ŽŽ‚ €‡„…‹ Ž…€’ŽŽ‚ Ÿ‚‹Ÿ…’‘Ÿ Ž‘‹…„ˆŒ ‚ ‹ŽŠ… Žƒ€ŒŒ›. Ž ‡€„€…’ „…‰‘’‚ˆŸ, ŠŽ’Ž›… „Ž‹†€ ‚›Ž‹ˆ’œ Žƒ€ŒŒ€. €‡- „…‹ Ž…€’ŽŽ‚ ˆŒ……’ ‚ˆ„ ‘‹Ž†ŽƒŽ ‘Ž‘’€‚ŽƒŽ Ž…€’Ž€, ‚ ŠŽ–… ŠŽ’ŽŽƒŽ ‘’€‚ˆ’‘Ÿ ’Ž—Š€. €‡„…‹ Ž…€’ŽŽ‚ €—ˆ€…’‘Ÿ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ BEGIN (€—€‹Ž). ‡€ ˆŒ ‘‹…„“…’ –…‹›‰ Ÿ„ Ž…€’ŽŽ‚, Ž’„…- ‹Ÿ…Œ›• „“ƒ Ž’ „“ƒ€ ’Ž—ŠŽ‰ ‘ ‡€Ÿ’Ž‰. ‚ ŠŽ–… €‡„…‹€ Ž…- €’ŽŽ‚ ‘’€‚ˆ’‘Ÿ ‡€…‡…‚ˆŽ‚€Ž… ‘‹Ž‚Ž END (ŠŽ…–). 1 - 41 - 9. ‚›€†…ˆŸ ‚›€†…ˆŸŒˆ €‡›‚€ž’‘Ÿ €‹ƒŽˆ’Œˆ—…‘Šˆ… ŠŽ‘’“Š–ˆˆ Ÿ‡›- Š€, Ž…„…‹Ÿž™ˆ… €‚ˆ‹€ „‹Ÿ ‚›—ˆ‘‹…ˆŸ ‡€—…ˆ‰ ……Œ…›• ‚…‹ˆ—ˆ. ‚›€†…ˆ… ‘Ž‘’Žˆ’ ˆ‡ Ž…€„Ž‚, ……Œ…›•, ŠŽ‘- ’€’, €‡‚€ˆ‰ ”“Š–ˆ‰, Ž’„…‹Ÿ…Œ›• „“ƒ Ž’ „“ƒ€ ˆ ŽŒŽ™ˆ Ž…€–ˆ‰ Ž €‚ˆ‹€Œ, ŠŽ’Ž›… Žˆ‘›‚€ž’‘Ÿ ‚ „€‹œ…‰˜…Œ. ‚ „€ŽŒ €‡„…‹… “ŠŽ‚Ž„‘’‚€ Žˆ‘›‚€ž’‘Ÿ €‚ˆ‹€ ”ŽŒˆ- Ž‚€ˆŸ ‚›€†…ˆ‰ ˆ‡ ‘’€„€’›• ‘Š€‹Ÿ›• ’ˆŽ‚ INTEGER, REAL, BOOLEAN ˆ CHAR. ’ˆ ‚›€†…ˆŸ ( ‘Ž„…†€™ˆ… Žˆ‘€›… ‘Š€‹Ÿ›… ’ˆ› ), ……Œ…›… ‘’ŽŠŽ‚ŽƒŽ ’ˆ€ ˆ ……Œ…›… ŒŽ†…‘’‚…ŽƒŽ ’ˆ€ Žˆ‘›‚€ž’‘Ÿ „€‹……. 9.1. Ž…€–ˆˆ Ž…€–ˆˆ Ÿ‡›Š€ „…‹Ÿ’‘Ÿ € 5 Š‹€‘‘Ž‚. ŽŸ„ŽŠ ‚›Ž‹…ˆŸ Ž…€–ˆ‰ Ž…„…‹Ÿ…’‘Ÿ ‚ ‘ŽŽ’‚…’‘’‚ˆˆ ‘ ŽŸ„ŠŽŒ, ‚ ŠŽ’ŽŽŒ Žˆ …„‘’€‚‹…› ‚ „€ŽŒ ……—…: 1. “€›‰ Œˆ“‘ (Œˆ“‘ ……„ Ž„ˆŒ Ž…€„ŽŒ) 2. Ž…€–ˆŸ NOT (Ž’ˆ–€ˆ…) 3. Ž…€–ˆˆ € €‡… Ž…€–ˆˆ “ŒŽ†…ˆŸ: *, /, DIV, MOD, AND, SHL ˆ SHR 4. Ž…€–ˆˆ ‘‹Ž†…ˆŸ: +, -, OR ˆ‹ˆ XOR 5. Ž…€–ˆˆ Ž’Ž˜…ˆŸ: =, <>, <,>, <=, >=, ˆ IN ˆ ‚›—ˆ‘‹…ˆˆ ‚›€†…ˆ‰, ‘Ž„…†€™ˆ• Ž…€–ˆˆ Ž„ŽƒŽ Š‹€‘‘€, „…‰‘’‚ˆŸ ‚›Ž‹Ÿž’‘Ÿ ‘‹…‚€ €€‚Ž. ‘€—€‹€ ‚›—ˆ‘- ‹Ÿž’‘Ÿ ‚›€†…ˆŸ, ‡€Š‹ž—…›… ‚ ‘ŠŽŠˆ, …‡€‚ˆ‘ˆŒŽ Ž’ ’ŽƒŽ, Š€Šˆ… Ž…€–ˆˆ Žˆ ‘Ž„…†€’. …‘‹ˆ Ž…€„› ‚ Ž…€–ˆŸ• ‘‹Ž†…ˆŸ ˆ “ŒŽ†…ˆŸ ˆŒ…ž’ ’ˆ INTEGER (–…‹Ž—ˆ‘‹…›‰), ’Ž ˆ …‡“‹œ’€’ ’Ž†… “„…’ –…‹Ž- —ˆ‘‹…ŽƒŽ ’ˆ€. …‘‹ˆ Ž„ˆ ˆ‹ˆ …‘ŠŽ‹œŠŽ Ž…€„Ž‚ ˆŒ…ž’ ‚…™…‘’‚…›‰ ’ˆ (REAL), ’Ž ˆ …‡“‹œ’€’ Ž…€–ˆˆ ’Ž†… “„…’ ‚…™…‘’‚…ŽƒŽ ’ˆ€. 9.1.1. “€›‰ Œˆ“‘ ‘’ŽŸ™ˆ‰ ……„ Š€ŠˆŒ-‹ˆŽ Ž…€„ŽŒ “€›‰ Œˆ“‘ Ž‡€- —€…’ ˆ‡Œ……ˆ… ‡€Š€ ’ŽƒŽ Ž…€„€ € Ž’ˆ‚ŽŽ‹Ž†›‰. Ž…- €„ ŒŽ†…’ ›’œ ‚…™…‘’‚…ŽƒŽ ˆ‹ˆ –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€. 1 - 42 - 9.1.2. Ž…€–ˆŸ NOT (Ž’ˆ–€ˆ…) Ž…€–ˆŸ NOT ‚›Ž‹Ÿ…’ ŠŽŒ€„“ ‹Žƒˆ—…‘ŠŽƒŽ Ž’ˆ–€ˆŸ (ˆ‚…‘ˆˆ) €„ Ž…€„ŽŒ “‹…‚‘ŠŽƒŽ ’ˆ€ (BOOLEAN): NOT TRUE = FALSE NOT FALSE = TRUE ‚ PASCAL/FAST „Ž“‘Š€…’‘Ÿ ˆŒ……ˆ… Ž…€–ˆˆ NOT Š Ž…€„€Œ –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€ (INTEGER), ˆ ’ŽŒ ‚›Ž‹Ÿ…’- ‘Ÿ Žˆ’€Ÿ ˆ‚…‘ˆŸ ‘ŽŽ’‚…’‘’‚“ž™…ƒŽ „€ŽŒ“ —ˆ‘‹“ „‚Žˆ—Ž- ƒŽ ŠŽ„€: ˆŒ…›: NOT 0 = 1 NOT -15 = 14 NOT $2345 = $DCBA 1 - 43 - 9.1.3. Ž…€–ˆˆ € €‡… Ž…€–ˆˆ “ŒŽ†…ˆŸ ------------------------------------------------------------ Ž…€–ˆŸ „…‰‘’‚ˆ… ’ˆ Ž…€„Ž‚ ’ˆ …‡“‹œ’€’€ ------------------------------------------------------------ * “ŒŽ†…ˆ… REAL REAL * “ŒŽ†…ˆ… INTEGER INTEGER * “ŒŽ†…ˆ… REAL, INTEGER REAL / „…‹…ˆ… REAL, INTEGER REAL / „…‹…ˆ… INTEGER REAL / „…‹…ˆ… REAL REAL DIV –…‹Ž—ˆ‘‹…Ž… INTEGER INTEGER „…‹…ˆ… MOD „…‹…ˆ… ‘ INTEGER INTEGER Ž‘’€’ŠŽŒ AND €ˆ”Œ…’ˆ—…‘ŠŽ… INTEGER INTEGER AND ( ˆ ) AND ‹Žƒˆ—…‘ŠŽ… BOOLEAN BOOLEAN AND ( ˆ ) SHL –ˆŠ‹ˆ—…‘Šˆ‰ ‘„‚ˆƒ INTEGER INTEGER ‚‹…‚Ž SHR –ˆŠ‹ˆ—…‘Šˆ‰ ‘„‚ˆƒ INTEGER INTEGER ‚€‚Ž ----------------------------------------------------------- ˆŒ…›: 12 * 34 = 408 123 / 4 = 30.75 123 DIV 4 = 30 12 MOD 5 = 2 TRUE AND FALSE = FALSE 12 AND 22 = 4 2 SHL 7 = 256 256 SHR 7 = 2 1 - 44 - 9.1.4. Ž…€–ˆˆ ‘‹Ž†…ˆŸ ------------------------------------------------------------ Ž…€–ˆŸ „…‰‘’‚ˆ… ’ˆ Ž…€„Ž‚ ’ˆ …‡“‹œ’€’€ ------------------------------------------------------------ + ‘‹Ž†…ˆ… REAL REAL + ‘‹Ž†…ˆ… INTEGER INTEGER + ‘‹Ž†…ˆ… REAL, INTEGER REAL - ‚›—ˆ’€ˆ… REAL REAL - ‚›—ˆ’€ˆ… INTEGER INTEGER - ‚›—ˆ’€ˆ… REAL, INTEGER REAL OR €ˆ”Œ…’ˆ—…‘ŠŽ… INTEGER INTEGER OR (ˆ‹ˆ) OR ‹Žƒˆ—…‘ŠŽ… BOOLEAN BOOLEAN OR (ˆ‹ˆ) XOR €ˆ”Œ…’ˆ—…‘ŠŽ… INTEGER INTEGER XOR (ˆ‘Š‹. ˆ‹ˆ) XOR ‹Žƒˆ—…‘ŠŽ… BOOLEAN BOOLEAN XOR (ˆ‘Š‹. ˆ‹ˆ) ----------------------------------------------------------- ˆŒ…›: 123 +456 = 579 456 - 123.0 = 333.0 TRUE OR FALSE = TRUE 12 OR 12 = 30 TRUE XOR FALSE = TRUE 12 XOR 22 = 26 9.1.5. Ž…€–ˆˆ Ž’Ž˜…ˆŸ: Ž…€–ˆˆ Ž’Ž˜…ˆŸ Ž€€’›‚€ž’ ‘Š€‹Ÿ› ‚‘…• ’ˆŽ‚: ‚…™…‘’‚…ŽƒŽ, –…‹Ž—ˆ‘‹…ŽƒŽ, “‹…‚‘ŠŽƒŽ, ‘ˆŒ‚Ž‹œŽƒŽ ˆ €‰’Ž‚ŽƒŽ. ˆ ‚›Ž‹…ˆˆ ’ˆ• Ž…€–ˆ‰ „Ž“‘Š€…’‘Ÿ ‘Œ…˜…ˆ… ’ˆŽ‚ INTEG…R, REAL ˆ BYTE. …‡“‹œ’€’ ‚‘…ƒ„€ ˆŒ……’ “‹…‚‘Šˆ‰ ’ˆ ˆ ˆˆŒ€…’ Ž„Ž ˆ‡ „‚“• ‡€—…ˆ‰: TRUE (ˆ‘’ˆ€) ˆ‹ˆ FALSE (‹Ž†œ). = €‚Ž <> … €‚Ž > Ž‹œ˜… —…Œ < Œ…œ˜… —…Œ >= Ž‹œ˜… ˆ‹ˆ €‚Ž <= Œ…œ˜… ˆ‹ˆ €‚Ž ˆŒ…›: € = ‚ …‡“‹œ’€’ €‚… TRUE, …‘‹ˆ € €‚Ž ‚ € <> ‚ …‡“‹œ’€’ €‚… TRUE, …‘‹ˆ € … €‚Ž ‚ € < ‚ …‡“‹œ’€’ €‚… TRUE, …‘‹ˆ € Œ…œ˜…, —…Œ ‚ € >= ‚ …‡“‹œ’€’ €‚… TRUE, …‘‹ˆ € Ž‹œ˜… ˆ‹ˆ €‚Ž ‚ € <= ‚ …‡“‹œ’€’ €‚… TRUE, …‘‹ˆ € Œ…œ˜… ˆ‹ˆ €‚Ž ‚ 1 - 45 - 9.2. ”“Š–ˆˆ Žˆ‘€ˆ… ”“Š–ˆˆ -- ’Ž ˆ„…’ˆ”ˆŠ€’Ž ”“Š–ˆˆ, ‡€ ŠŽ’Ž- ›Œ ŒŽ†…’ ‘‹…„Ž‚€’œ ‘ˆ‘ŽŠ €€Œ…’Ž‚ (… ŽŸ‡€’…‹œŽ). ‘ˆ- ‘ŽŠ €€Œ…’Ž‚ ‚Š‹ž—€…’ Ž„“ ˆ‹ˆ …‘ŠŽ‹œŠŽ ……Œ…›• ˆ‹ˆ ‚›€†…ˆ‰, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ. ‘ˆ‘ŽŠ €€- Œ…’Ž‚ ‡€Š‹ž—€…’‘Ÿ ‚ Š“ƒ‹›… ‘ŠŽŠˆ. ŽŸ‚‹…ˆ… ‚ Žƒ€ŒŒ… ˆ„…’ˆ”ˆŠ€’Ž€ ”“Š–ˆˆ ‚›‡›‚€…’ ‚›Ž‹…ˆ… ’Ž‰ ”“Š–ˆˆ. ……„ ˆ‘Ž‹œ‡Ž‚€ˆ…Œ ”“Š–ˆˆ, ŠŽ’Ž€Ÿ … Ž’Ž‘ˆ’‘Ÿ Š €…… Žˆ‘€›Œ ‘’€„€’›Œ ”“Š–ˆŸŒ, …… ‘‹…„“…’ Žˆ‘€’œ. ˆŒ…›: GOTOXY (KORX,KORY); WRITELN (PI * (SQR(R))); IF (SQRT(Y) < 25) AND (Z > SQRT(X*Y)) THEN GOTOXY (X,Y); 10. Ž…€’Ž› €‡„…‹ Ž…€’ŽŽ‚ Ž…„…‹Ÿ…’ „…‰‘’‚ˆŸ, ŠŽ’Ž›… „Ž‹†€ ‚›Ž‹ˆ’œ Žƒ€ŒŒ€ (ˆ‹ˆ Ž„Žƒ€ŒŒ€). Žƒ€ŒŒ€ …„‘’€‚- ‹Ÿ…’ ‘ŽŽ‰ Ž‘‹…„Ž‚€’…‹œŽ‘’œ Ž…€’ŽŽ‚ Š€†„›‰ ˆ‡ ŠŽ’Ž›• Ž…„…‹Ÿ…’ Ž„Ž „…‰‘’‚ˆ… €„ „€›Œˆ. ‚ ’ŽŒ ‘Œ›‘‹… PASCAL Ÿ‚‹Ÿ…’‘Ÿ Ÿ‡›ŠŽŒ Ž‘‹…„Ž‚€’…‹œŽƒŽ Žƒ€ŒŒˆŽ‚€ˆŸ: Ž…€’Ž- › ‚›Ž‹Ÿž’‘Ÿ Ž‘‹…„Ž‚€’…‹œŽ „“ƒ ‡€ „“ƒŽŒ ˆ ˆŠŽƒ„€ … ‚Ž‡ˆŠ€…’ ‘ˆ’“€–ˆˆ, ŠŽƒ„€ „‚€ Š€Šˆ•-‹ˆŽ Ž…€’Ž€ ‚›Ž‹- Ÿž’‘Ÿ Ž„Ž‚…Œ…Ž. €‡„…‹ Ž…€’ŽŽ‚ €—ˆ€…’‘Ÿ ‡€…‡…‚ˆ- Ž‚€›Œ ‘‹Ž‚ŽŒ BEGIN (€—€‹Ž) ˆ ‡€‚…˜€…’‘Ÿ ‘‹Ž‚ŽŒ END (ŠŽ…–). Œ…†„“ ˆŒˆ €•Ž„Ÿ’‘Ÿ Ž…€’Ž›, €‡„…‹…›… „“ƒ Ž’ „“ƒ€ ’Ž—ŠŽ‰ ‘ ‡€Ÿ’Ž‰. Ž…€’Ž› ŒŽƒ“’ ›’œ Ž‘’›Œˆ ˆ‹ˆ ‘’“Š’“›Œˆ. 10.1. Ž‘’›… Ž…€’Ž› Ž‘’›… Ž…€’Ž› -- ’Ž Ž…€’Ž›, ŠŽ’Ž›… … ‘Ž„…P†€’ ‚ ‘…… „“ƒˆ• Ž…€’ŽŽ‚. Š ˆŒ Ž’Ž‘Ÿ’‘Ÿ Ž…€’Ž› ˆ‘‚€ˆ- ‚€ˆŸ, Ž…€’Ž Ž–…„“›, Ž…€’Ž GOTO ˆ “‘’Ž‰ Ž…€’Ž. 1 - 46 - 10.1.1. Ž…€’Ž ˆ‘‚€ˆ‚€ˆŸ Ž„ˆŒ ˆ‡ Ž‘Ž‚›• Ž…€’ŽŽ‚ Ÿ‚‹Ÿ…’‘Ÿ Ž…€’Ž ˆ‘‚€ˆ- ‚€ˆŸ. Ž ˆ‘Ž‹œ‡“…’‘Ÿ „‹Ÿ ˆ‘‚Ž…ˆŸ Ž…„…‹…ŽƒŽ ‡€—…ˆŸ Ž…„…‹…Ž‰ ……Œ…Ž‰. ˆ ’ŽŒ ‡€—…ˆ… ‚›€†…ˆŸ, €‘Ž- ‹Ž†…ŽƒŽ ‘€‚€ Ž’ ‡€Š€ ˆ‘‚€ˆ‚€ˆŸ, ˆ‘‚Aˆ‚€…’‘Ÿ ……- Œ…Ž‰, ˆ„…’ˆ”ˆŠ€’Ž ŠŽ’ŽŽ‰ €‘Ž‹Ž†… ‘‹…‚€ Ž’ ‡€Š€ ˆ‘‚€ˆ‚€ˆŸ. Ž…€’Ž ˆ‘‚€ˆ‚€ˆŸ ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ „‹Ÿ ˆ‘‚€ˆ‚€- ˆŸ ‡€—…ˆ‰ ……Œ…Ž‰ ‹žŽƒŽ ’ˆ€, ŠŽŒ… ”€‰‹Ž‚ŽƒŽ. …„ˆ‘’‚…›Œ “‘‹Ž‚ˆ…Œ Ÿ‚‹Ÿ…’‘Ÿ, —’Ž› ……Œ…€Ÿ (ˆ‹ˆ ”“Š- –ˆŸ) ˆ ‚›€†…ˆ… ˆŒ…‹ˆ Ž„ˆ ˆ ’Ž’ †… ’ˆ. ˆ‘Š‹ž—…ˆ… ‘Ž‘’€‚- ‹Ÿ…’ ‘‹“—€‰, ŠŽƒ„€ ……Œ…€Ÿ ˆŒ……’ ’ˆ REAL, ’Žƒ„€ ‚›€†…- ˆ… ŒŽ†…’ ›’œ –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€. ˆŒ… : ANGLE := ANGLE * P1; ACCESS_OK := FALSE; ENTRY := ANSWER - PASSWORD; SPHER_VOL := 4 * P1 * R * R; 10.1.2. Ž…€’Ž Ž–…„“› Ž…€’Ž Ž–…„“› ‘‹“†ˆ’ „‹Ÿ ‚›‡Ž‚€ € ‚›Ž‹…ˆ… ‘’€„€’Ž‰ Ž–…„“› ˆ‹ˆ Ž–…„“›, …„‚€ˆ’…‹œŽ Ž…„…- ‹…Ž‰ Ž‹œ‡Ž‚€’…‹…Œ. Ž…€’Ž Ž–…„“› ‘Ž‘’Žˆ’ ˆ‡ ˆ„…’ˆ- ”ˆŠ€’Ž€ Ž–…„“›, ‡€ ŠŽ’Ž›Œ, …‘‹ˆ …Ž•Ž„ˆŒŽ, ŒŽ†…’ ‘‹…- „Ž‚€’œ ‘ˆ‘ŽŠ €€Œ…’Ž‚. ‘ˆ‘ŽŠ €€Œ…’Ž‚ -- ’Ž ‘ˆ‘ŽŠ ……Œ…›• ˆ‹ˆ ‚›€†…ˆ‰, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ. ‘ˆ‘ŽŠ €€Œ…’Ž‚ ‡€Š‹ž—€…’‘Ÿ ‚ Š“ƒ‹›… ‘ŠŽŠˆ. …‘‹ˆ ˆ ‚›Ž‹…ˆˆ Žƒ€ŒŒ› ‚‘’…—€…’‘Ÿ Ž…€’Ž ‚›‡Ž‚€ Ž–…„“›, ’Ž “€‚‹…ˆ… ……„€…’‘Ÿ ‘ŽŽ’‚…’‘’‚“ž™…‰ Ž–…„“…. ŠŽŒ… ’ŽƒŽ, Ž–…„“… ……„€ž’‘Ÿ ˆ ‡€—…ˆŸ (ˆ‹ˆ €„…‘€) ˆŒ…ž™ˆ•‘Ÿ €€Œ…’Ž‚. Ž‘‹… ‡€‚…˜…ˆŸ ‚›Ž‹…ˆŸ Ž–…„“› ‚›Ž‹…ˆ… Žƒ€ŒŒ› Ž„Ž‹†€…’‘Ÿ, €—ˆ€Ÿ ‘ Ž…€’Ž€, €•Ž„Ÿ™…ƒŽ‘Ÿ …Ž‘…„‘’‚…Ž Ž‘‹… Ž…€’Ž€ ‚›‡Ž‚€ Ž–…„“›. ˆŒ…›: FIND (NAME, ADDRESS); SORT (ADDRESS); UPPER_CASE (TEXT); UPDATE_CUST_FILE (CUST_RECORD); 1 - 47 - 10.1.3. Ž…€’Ž …‡“‘‹Ž‚ŽƒŽ ……•Ž„€ (GOTO) ‘ˆ’€Š‘ˆ‘: GOTO ARG; Ž…€’Ž …‡“‘‹Ž‚ŽƒŽ ……•Ž„€ ‘Ž‘’Žˆ’ ˆ‡ ‡€…‡…‚ˆŽ- ‚€ŽƒŽ ‘‹Ž‚€ GOTO (……‰’ˆ) ˆ ‘‹…„“ž™…ƒŽ ‡€ ˆŒ ˆ„…’ˆ”ˆŠ€- ’Ž€ Œ…’Šˆ(ARG). Ž…€’Ž GOTO ‘‹“†ˆ’ „‹Ÿ …‡“‘‹Ž‚Ž‰ ……- „€—ˆ “€‚‹…ˆŸ € ’Ž’ Ž…€’Ž Žƒ€ŒŒ›, ŠŽ’Ž›‰ ŽŽ‡€—… (ŽŒ…—…) „€Ž‰ Œ…’ŠŽ‰. ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ Ž…€’Ž€ GOTO …Ž•Ž„ˆŒŽ ‘Ž‹ž„€’œ ‘‹…„“ž™ˆ… €‚ˆ‹€: 1. ……„ ’…Œ, Š€Š ˆ‘Ž‹œ‡Ž‚€’œ Œ…’Š“ ‚ Žƒ€ŒŒ…, …… ‘‹…„“…’ Žˆ‘€’œ ‚ €‡„…‹… Žˆ‘€ˆŸ Œ…’ŽŠ ’ŽƒŽ ‹ŽŠ€ Žƒ€Œ- Œ›, ‚ ŠŽ’ŽŽŒ „€€Ÿ Œ…’Š€ ˆ‘Ž‹œ‡“…’‘Ÿ. 2. Ž‹€‘’œž „…‰‘’‚ˆŸ Œ…’Šˆ Ÿ‚‹Ÿ…’‘Ÿ ’Ž’ ‹ŽŠ, ‚ ŠŽ’ŽŽŒ Ž€ Žˆ‘€€. ’€ŠˆŒ Ž€‡ŽŒ, …‚Ž‡ŒŽ†Ž ……‰’ˆ ‡€ …„…‹› Ž–…„“› ˆ‹ˆ ”“Š–ˆˆ ˆ‹ˆ ……„€’œ “€‚‹…ˆ… ‚“’œ Š€ŠŽ‰- ‹ˆŽ Ž–…„“› ˆ‹ˆ ”“Š–ˆˆ. 10.1.4. “‘’Ž‰ Ž…€’Ž "“‘’Ž‰" Ž…€’Ž -- ’Ž Ž…€’Ž, ŠŽ’Ž›‰ … ‘Ž„…†ˆ’ ˆŠ€Šˆ• ‘ˆŒ‚Ž‹Ž‚ ˆ … ‚›Ž‹Ÿ…’ ˆŠ€Šˆ• „…‰‘’‚ˆ‰. …ƒŽ ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ‚ Žƒ€ŒŒ… ‚‘ŸŠˆ‰ €‡, ŠŽƒ„€ ‘ˆ’€Š‘ˆ‘ Ÿ‡›Š€ PASCAL/FAST …„Ž‹€ƒ€…’ €‹ˆ—ˆ… Ž…€’Ž€, Ž ˆŠ€Šˆ• „…‰‘’‚ˆ‰ ‚›Ž‹Ÿ’œ … “†Ž. ˆŒ…›: BEGIN END; WHILE ANSWER <> DO REPEAT UNTIL KEYPRESSED; (* †„…’ €†€’ˆŸ Š‹€‚ˆ˜ˆ *) 10.2. ‘’“Š’“›… Ž…€’Ž› ‘’“Š’“›… Ž…€’Ž› …„‘’€‚‹Ÿž’ ‘ŽŽ‰ ‘’“Š’“›, ‘Ž‘’€‚‹…›… ˆ‡ „“ƒˆ• Ž…€’ŽŽ‚. ‘’“Š’“›… Ž…€’Ž› Ž„€‡„…‹Ÿž’‘Ÿ €: ‘Ž‘’€‚›… Ž…- €’Ž› (ŠŽ’Ž›… …Ž•Ž„ˆŒŽ ‚›Ž‹ˆ’œ Ž‘‹…„Ž‚€’…‹œŽ); “‘‹Ž‚›… Ž…€’Ž› (ˆ ‚›Ž‹…ˆˆ Š€ŠŽƒŽ-‹ˆŽ “‘‹Ž‚ˆŸ); Ž…€’Ž› Ž‚’Ž€ (‚›Ž‹…ˆ… ŠŽ’Ž›• “†Ž Ž‚’Žˆ’œ …‘- ŠŽ‹œŠŽ €‡. 1 - 48 - 10.2.1. ‘Ž‘’€‚Ž‰ Ž…€’Ž ‘Ž‘’€‚Ž‰ Ž…€’Ž ˆ‘Ž‹œ‡“…’‘Ÿ ‚ ’ŽŒ ‘‹“—€…, …‘‹ˆ …Ž•Ž„ˆŒŽ ‚›Ž‹ˆ’œ Ž‹…… Ž„ŽƒŽ Ž…€’Ž€ ‚ ‘ˆ’“€–ˆŸ•, ŠŽƒ„€ ‘ˆ’€Š‘ˆ‘ Ÿ‡›Š€ PASCAL/FAST „Ž“‘Š€…’ ˆ‘“’‘’‚ˆ… ’Ž‹œŠŽ Ž„ŽƒŽ Ž…€’Ž€. ‘Ž‘’€‚Ž‰ Ž…€’Ž ŒŽ†…’ ‘Ž‘’ŽŸ’œ ˆ‡ Žˆ‡‚Ž‹œŽƒŽ ŠŽ‹ˆ—…‘’‚€ Ž…€’ŽŽ‚, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ’Ž—ŠŽ‰ ‘ ‡€Ÿ’Ž‰. ‘Ž‘’€‚Ž‰ Ž…€’Ž €—ˆ€…’‘Ÿ ‡€…- ‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ BEGIN (€—€‹Ž) ˆ ‡€‚…˜€…’‘Ÿ ‡€…‡…‚ˆ- Ž‚€›Œ ‘‹Ž‚ŽŒ END (ŠŽ…–). Ž…€’Ž›, ‚•Ž„Ÿ™ˆ… ‚ ‘Ž‘’€‚Ž‰ Ž…€’Ž, „Ž‹†› ‚›Ž‹Ÿ’œ‘Ÿ ‚ ’Ž‰ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ, ‚ ŠŽ’ŽŽ‰ Žˆ €ˆ‘€› ‚ ‘Ž‘’€‚ŽŒ Ž…€’Ž…. ˆŒ…: IF SMALL > BIG THEN BEGIN TMP := SMALL; SMALL := BIG; BIG := TMP; END; 10.2.2. “‘‹Ž‚›… Ž…€’Ž› “‘‹Ž‚›‰ Ž…€’Ž Ž‡‚Ž‹Ÿ…’ ‚›Ž‹ˆ’œ Ž„ˆ ˆ‡ ‚•Ž„Ÿ™ˆ• ‚ …ƒŽ ‘Ž‘’€‚ Ž…€’ŽŽ‚ ‚ ‡€‚ˆ‘ˆŒŽ‘’ˆ Ž’ ‚›Ž‹…ˆŸ Š€ŠŽƒŽ ‹ˆŽ “‘‹Ž‚ˆŸ. 10.2.2.1. Ž…€’Ž IF. Ž…€’Ž IF Ž…„…‹Ÿ…’, —’Ž ’Ž’ ˆ‹ˆ ˆŽ‰ Ž…€’Ž, ‘‹…- „“ž™ˆ‰ Ž‘‹… ‡€…‡…‚ˆŽ‚€ŽƒŽ ‘‹Ž‚€ THEN, „Ž‹†… ‚›Ž‹- Ÿ’œ‘Ÿ ‹ˆ˜œ ‚ ’ŽŒ ‘‹“—€…, …‘‹ˆ ‘€‚…„‹ˆ‚Ž ‡€„€Ž… “‘‹Ž‚ˆ… (’Ž …‘’œ ‘ŽŽ’‚…’‘’‚“ž™…… ‹Žƒˆ—…‘ŠŽ… ‚›€†…ˆ… ˆˆŒ€…’ ‡€- —…ˆ… TRUE (ˆ‘’ˆ€)). …‘‹ˆ “‘‹Ž‚ˆ… … ‚›Ž‹Ÿ…’‘Ÿ, ’Ž ‹ˆŽ ˆŠ€Šˆ• „…‰‘’‚ˆ‰ … Žˆ‡‚Ž„ˆ’‘Ÿ, ‹ˆŽ ‚›Ž‹Ÿ…’‘Ÿ Ž…€’Ž, ‡€ˆ‘€›‰ ‚‘‹…„ ‡€ ‘‹Ž‚ŽŒ ELSE (ˆ€—…). Ž’Œ…’ˆŒ, —’Ž ……„ ‘‹Ž‚ŽŒ ELSE … “†Ž ‘’€‚ˆ’œ ’Ž—Š“ ‘ ‡€Ÿ’Ž‰. …ŠŽ’Ž“ž „‚“‘Œ›‘‹…Ž‘’œ, ‚Ž‡ˆŠ€ž™“ž ˆ ˆ’……’€–ˆˆ ‘ˆ’€Š‘ˆ—…‘- Šˆ• ŠŽ‘’“Š–ˆ‰ ’ˆ€: IF EXPR1 THEN IF EXPR2 THEN SMIT1 ELSE SMIT2 (ƒ„… EXPR -- ‚›€†…ˆ…, SMIT -- Ž…€’Ž) ŒŽ†Ž “‘’€ˆ’œ, Ž”ŽŒˆ‚ „€“ž ŠŽ‘’“Š–ˆž ‘‹…„“ž™ˆŒ 1 - 49 - Ž€‡ŽŒ: IF EXPR1 THEN BEGIN IF EXPR2 THEN SMIT ELSE SMIT2 END; …„‹Ž†…ˆ… ELSE Ž…€’Ž€ IF Ž’Ž‘ˆ’‘Ÿ Ž›—Ž Š Ž‘- ‹…„…Œ“ Ž…€’Ž“ IF “ ŠŽ’ŽŽƒŽ …’ …„‹Ž†…ˆŸ ELSE ˆŒ…›: IF INTEREST > 25 THEN LOOP := TRUE ELSE LOOP := FALSE; IF (‚‚Ž„ < 0) OR (‚‚Ž„ > 100) THEN BEGIN WRITE ('„ˆ€‡Ž Ž’ 0 „Ž 100 ! Ž‚’Žˆ’… ‚‚Ž„: '); READ (‚‚Ž„); END; 10.2.2.2. Ž…€’Ž CASE. Ž…€’Ž CASE ‘Ž‘’Žˆ’ ˆ‡ ‚›€†…ˆŸ-‘…‹…Š’Ž€ ˆ ‘ˆ‘Š€ Ž…€’ŽŽ‚, Š€†„ŽŒ“ ˆ‡ ŠŽ’Ž›• …„˜…‘’‚“…’ Œ…’Š€. Œ…’Š€ „Ž‹†€ ›’œ ŠŽ‘’€’Ž‰ ’ŽƒŽ †… ’ˆ€, —’Ž ˆ ‘…‹…Š’Ž. ˆ‡ Ž…„…‹…ˆŸ Ž…€’Ž€ CASE ‘‹…„“…’, —’Ž ‚ „€›‰ ŒŽŒ…’ „Ž‹- †… ›’œ ‚›Ž‹… ‹ˆ˜œ Ž„ˆ Ž…€’Ž, € ˆŒ…Ž ’Ž’, Œ…’Š€ ŠŽ’ŽŽƒŽ, ‡€„€€Ÿ ‚ Ž…€’Ž… CASE, €‚€ ’…Š“™…Œ“ ‡€—…ˆž ‘…‹…Š’Ž€. …‘‹ˆ ˆ Ž„€ ˆ‡ Œ…’ŽŠ … €‚€ ’…Š“™…Œ“ ‡€—…ˆž ‘…‹…Š’Ž€, ’Ž ˆŠ€Šˆ… Ž…€’Ž› … ‚›Ž‹Ÿž’‘Ÿ, ‹ˆŽ ‚›Ž‹- Ÿž’‘Ÿ Ž…€’Ž›, ‘‹…„“ž™ˆ… ‡€ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ ELSE (…‘‹ˆ ’€ŠŽ… ˆŒ……’‘Ÿ). €‹ˆ—ˆ… …„‹Ž†…ˆŸ ELSE ‚ Ž…€’Ž… CASE Ÿ‚‹Ÿ…’‘Ÿ €‘˜ˆ…ˆ…Œ ‘’€„€’ŽƒŽ Ÿ‡›Š€ PASCAL. Œ…’Šˆ Ž…€’ŽŽ‚, ‚•Ž„Ÿ™ˆ• ‚ ‘ˆ‘ŽŠ, ŒŽƒ“’ ‘Ž‘’ŽŸ’œ ˆ‡ Žˆ‡‚Ž‹œ- ŽƒŽ ŠŽ‹ˆ—…‘’‚€ ŠŽ‘’€’ ˆ‹ˆ „ˆ€€‡ŽŽ‚, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ. ‚‘‹…„ ‡€ ˆŒˆ ‘’€‚ˆ’‘Ÿ „‚Ž…’Ž—ˆ…. „ˆ€€‡Ž ‡€ˆ‘›‚€…’‘Ÿ ‚ ‚ˆ„… „‚“• ŠŽ‘’€’, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ €‡ƒ€ˆ—ˆ’…‹…Œ "..". ’ˆ ŠŽ‘’€’ „Ž‹†… ‘Ž‚€„€’œ ‘ ’ˆŽŒ ‚›€†…ˆŸ-‘…‹…Š’Ž€. Ž…€’Ž, ‡€ˆ‘€›‰ ‚‘‹…„ ‡€ Œ…’ŠŽ‰, ‚›Ž‹Ÿ…’‘Ÿ ‚ ’ŽŒ ‘‹“—€…, …‘‹ˆ Žˆ‘•Ž„ˆ’ ‘Ž‚€„…ˆ… ‡€—…- ˆŸ ‚›€†…ˆŸ-‘…‹…Š’Ž€ ˆ Œ…’Šˆ. ‚ Š€—…‘’‚… ’ˆ€ ‘…‹…Š’Ž€ „Ž“‘Š€ž’‘Ÿ ‚‘… Ž‘’›… ’ˆ›, ’Ž …‘’œ ‚‘… ‘Š€‹ŸP›… ’ˆ›, ‡€ ˆ‘Š‹ž—…ˆ…Œ ‚…™…‘’‚…ŽƒŽ. Ž…€’Ž CASE ‡€Š€—ˆ‚€…’‘Ÿ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ END. 1 - 50 - ˆŒ…: CASE Ž…€–ˆŸ OF '+' : RESULT := ANSWER + RESULT; '-' : RESULT := ANSWER - RESULT; '*' : RESULT := ANSWER * RESULT; '/' : RESULT := ANSWER / RESULT; END; CASE YEAR OF MIN..1939 : BEGIN TIME := PRED_WORLD_WAR2; WRITELN ('THE WORLD AT PEACE...'); END; 1949..MAX : BEGIN TIME := POST_WORLD_WAR2; END; ELSE BEGIN TIME := WORLD_WAR2; WRITELN('WE ARE AT WAR'); END; END; 10.2.3. Ž…€’Ž› Ž‚’Ž€ FOR, WHILE ˆ REPEAT Ž…€’Ž› Ž‚’Ž€ “Š€‡›‚€ž’ € ’Ž, —’Ž Ž…„…‹…“ž ƒ““ Ž…€’ŽŽ‚ ‘‹…„“…’ ‚›Ž‹ˆ’œ …‘ŠŽ‹œŠŽ €‡. …‘‹ˆ ŠŽ‹ˆ—…‘’‚Ž Ž‚’Ž›• ‚›Ž‹…ˆ‰ ‡€„€Ž‰ ƒ“› Ž…€’ŽŽ‚ ˆ‡‚…‘’Ž ‡€€……, ’Ž ‚ ’€ŠŽ‰ ‘ˆ’“€–ˆˆ ‘‹…„“…’ ˆ‘Ž‹œ‡Ž‚€’œ Ž…€’Ž FOR. …‘‹ˆ ŠŽ‹ˆ—…‘’‚Ž Ž‚’ŽŽ‚ …ˆ‡‚…‘’Ž, ’Ž ‘‹…- „“…’ ˆ‘Ž‹œ‡Ž‚€’œ Ž…€’Ž› WHILE ˆ‹ˆ REPEAT. 10.2.3.1. Ž…€’Ž FOR Ž…€’Ž FOR “Š€‡›‚€…’ € ’Ž, —’Ž Ž…€’Ž ‘‹…„“…’ ‚›Ž‹Ÿ’œ Ž‚’ŽŽ „Ž ’…• Ž, ŽŠ€ … “„“’ ……€› ‚‘… ‡€—…ˆŸ “€‚‹Ÿž™…‰ ……Œ…Ž‰, ‡€„€‚€…Œ›… Žƒ…‘‘ˆ…‰. Žƒ…‘‘ˆŸ ŒŽ†…’ ›’œ ‚Ž‡€‘’€ž™…‰: "TO" ˆ‹ˆ “›‚€ž™…‰: "DOWNTO". ‚›—ˆ‘‹…ˆŸ Ž‚Ž„Ÿ’‘Ÿ „Ž ’…• Ž, ŽŠ€ “€‚‹Ÿž™€Ÿ ……Œ…€Ÿ … ˆŒ…’ ŠŽ…—Ž… ‡€—…ˆ…, ‡€„€‚€…ŒŽ… ‚ Ž…€- ’Ž…. “€‚‹Ÿž™€Ÿ ……Œ…€Ÿ ˆ …… €—€‹œŽ… ˆ ŠŽ…—Ž… ‡€—…- ˆ… „Ž‹†› ›’œ Ž„ŽƒŽ ˆ ’ŽƒŽ †… ’ˆ€. „Ž“‘Š€ž’‘Ÿ ‚‘… Ž‘- ’›… ’ˆ›, ’Ž …‘’œ ‚‘… ‘Š€‹Ÿ›… ’ˆ›, ‡€ ˆ‘Š‹ž—…ˆ…Œ ‚…™…‘’- ‚…ŽƒŽ. …‘‹ˆ ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ …„‹Ž†…ˆŸ "TO" €—€‹œŽ… ‡€- —…ˆ… “€‚‹Ÿž™…‰ ……Œ…Ž‰ Ž‹œ˜… ŠŽ…—ŽƒŽ, ’Ž Ž…€’Ž ‚ŽŽ™… … ‚›Ž‹Ÿ…’‘Ÿ. 1 - 51 - ˆŒ…›: FOR I := 2 TO 100 DO IF A[I] > MAX THEN MAX := A[I]; FOR I := 1 TO —ˆ‘‹Ž_‘’ŽŠ DO BEGIN READLN (LINE); IF LENGTH(LINE) < LIMIT THEN SHORT_LINES := SHORT_LINES + 1 ELSE LONG_LINES := LONG_LINES + 1; END; ‡€Œ…’ˆŒ, —’Ž Ž…€’Ž, Ž‚’ŽŽ ‚›Ž‹Ÿ…Œ›‰ ˆ ŽŒŽ™ˆ Ž…€’Ž€ FOR … „Ž‹†… ‘Ž„…P†€’œ Ž…€’ŽŽ‚, ˆ‘‚€ˆ‚€ž™ˆ• ‡€—…ˆŸ “€‚‹Ÿž™…‰ ……Œ…Ž‰. …‘‹ˆ ‚› •Ž’ˆ’… ‡€‚…˜ˆ’œ Ž‚’ŽŽ… ‚›Ž‹…ˆ… Ž…€’Ž€ …†„…, —…Œ “€‚‹Ÿž™€Ÿ ……- Œ…€Ÿ ˆŒ…’ ŠŽ…—Ž… ‡€—…ˆ…, ’Ž ŒŽ†Ž ‚Ž‘Ž‹œ‡Ž‚€’œ‘Ÿ Ž…€’ŽŽŒ GOTO, •Ž’Ÿ „…‹€’œ ’Ž ‚ Ž™…Œ-’Ž … …ŠŽŒ…„“…’- ‘Ÿ. ‚ ’€Šˆ• ‘‹“—€Ÿ• ‹“—˜… ‚Ž‘Ž‹œ‡Ž‚€’œ‘Ÿ Ž…€’ŽŽŒ WHILE ˆ‹ˆ REPEAT. Ž‘‹… ‡€‚…˜…ˆŸ ‚›Ž‹…ˆŸ Ž…€’ŽŽ‚ FOR ‡€—…ˆ… “€‚‹Ÿž™…‰ ……Œ…Ž‰ €‚Ž ŠŽ…—ŽŒ“ ‡€—…ˆž, …‘‹ˆ †… ’Ž … ’€Š, ’Ž ‡€—ˆ’ –ˆŠ‹ … ›‹ ‚›Ž‹… ‚ŽŽ™…. ‚ ’ˆ• ‘‹“- —€Ÿ• ˆŠ€Šˆ… ‡€—…ˆŸ “€‚‹Ÿž™…‰ ……Œ…Ž‰ ‚ŽŽ™… … ˆ‘- ‚€ˆ‚€‹ˆ‘œ. 10.2.3.2. Ž…€’Ž WHILE (‘ …„“‘‹Ž‚ˆ…Œ) Ž…€’Ž –ˆŠ‹€ ‘ …„“‘‹Ž‚ˆ…Œ ‘Ž‘’Žˆ’ ˆ‡ Š‹ž—…‚›• ‘‹Ž‚ WHILE (ŽŠ€) ˆ DO („…‹€’œ), Œ…†„“ ŠŽ’Ž›Œˆ €•Ž„ˆ’‘Ÿ “€‚- ‹Ÿž™…… ‚›€†…ˆ…. ‡€ Š‹ž—…‚›Œ ‘‹Ž‚ŽŒ DO €‘Ž‹€ƒ€…’‘Ÿ Ž…€- ’Ž (ˆ‹ˆ ‘Ž‘’€‚Ž‰ Ž…€’Ž), ŠŽ’Ž›‰ ‚›Ž‹Ÿ…’‘Ÿ ‚ –ˆŠ‹…. ‚›€†…ˆ…, “€‚‹Ÿž™…… Ž‚’Ž›Œ ‚›Ž‹…ˆ…Œ Ž…€’Ž€ „Ž‹†- Ž ›’œ ‹Žƒˆ—…‘ŠŽƒŽ (“‹…‚‘ŠŽƒŽ) ’ˆ€. Ž…€’Ž ‚›Ž‹Ÿ…’‘Ÿ Ž‚’ŽŽ „Ž ’…• Ž, ŽŠ€ “€‚‹Ÿž™…… ‚›€†…ˆ… ˆˆŒ€…’ ‡€—…ˆ… TRUE (ˆ‘’ˆ€). …‘‹ˆ “€‚‹Ÿž™…… ‚›€†…ˆ… ˆˆŒ€…’ ‘ ‘€ŒŽƒŽ €—€‹€ ‡€—…ˆ… FALSE (‹Ž†œ), ’Ž Ž…€’Ž ‚ŽŽ™… … ‚›Ž‹Ÿ…’‘Ÿ. ˆŒ…›: WHILE SIZE > 1 DO SIZE := SQRT(SIZE); WHILE THIS_MONTH DO BEGIN THIS_MONTH := CUR_MONTH - SAMPLE_MONTH; PROCESS; (* Ž€Ž’Š€ ˆ ŽŒŽ™ˆ Ž–…„“› PROCESS *) END; 1 - 52 - 10.2.3.3. Ž…€’Ž REPEAT (‘ Ž‘’“‘‹Ž‚ˆ…Œ) B›€†…ˆ…, “€‚‹Ÿž™…… Ž‚’Ž›Œ ‚›Ž‹…ˆ…Œ ‡€„€ŽƒŽ Ž…€’Ž€ ‚ Ž…€’Ž… REPEAT (Ž‚’Žˆ’œ) „Ž‹†Ž ›’œ “‹…‚‘- ŠŽƒŽ ’ˆ€. Ž‘‹…„Ž‚€’…‹œŽ‘’œ Ž…€’ŽŽ‚, ‡€Š‹ž—…€Ÿ Œ…†„“ ‡€…‡…‚ˆŽ‚€›Œˆ ‘‹Ž‚€Œˆ REPEAT ˆ UNTIL (ŽŠ€) ‚›Ž‹Ÿ…’‘Ÿ Ž‚’ŽŽ „Ž ’…• Ž, ŽŠ€ “€‚‹Ÿž™…… ‚›€†…ˆ… … ˆŒ…’ ‡€—…ˆ… TRUE (ˆ‘’ˆ€). ‚ Ž’‹ˆ—ˆ… Ž’ Ž…€’Ž€ WHILE, Ž…€- ’Ž REPEAT ‚‘…ƒ„€ ‚›Ž‹Ÿ…’‘Ÿ Ž Š€‰…‰ Œ…… Ž„ˆ €‡, ’€Š Š€Š Ž…„…‹…ˆ… ‡€—…ˆŸ “‘‹Ž‚ŽƒŽ ‚›€†…ˆŸ Žˆ‡‚Ž„ˆ’‘Ÿ ‚ ŠŽ–… –ˆŠ‹€. ˆŒ…: REPEAT WRITE('“„€‹ˆ’œ ’Ž’ ‹…Œ…’ ? („/)'); READ (Ž’‚…’); UNTIL UPCASE(Ž’‚…’) IN ['„','']; ˆŒ…: REPEAT UNTIL KEYPRESSED; 11. ‘Š€‹Ÿ›… ˆ Žƒ€ˆ—…›… ’ˆ› „€›• Ž‘Ž‚›Œˆ ’ˆ€Œˆ „€›• Ÿ‡›Š€ PASCAL/FAST Ÿ‚‹Ÿž’‘Ÿ ‘Š€- ‹Ÿ›… ’ˆ›. ‘Š€‹Ÿ›… ’ˆ› Ž•‚€’›‚€ž’ ŠŽ…—Ž… ‹ˆ…‰Ž “Ž- Ÿ„Ž—…Ž… ŒŽ†…‘’‚Ž ‡€—…ˆ‰. Ž …‘ŒŽ’Ÿ € ’Ž, —’Ž ‘’€- „€’›‰ ’ˆ REAL (‚…™…‘’‚…›‰) Ž’Ž‘ˆ’‘Ÿ Š ‘Š€‹Ÿ›Œ ’ˆ€Œ, Ž … ‚Ž‹… “„Ž‚‹…’‚ŽŸ…’ Ž…„…‹…ˆž ‘Š€‹ŸŽƒŽ ’ˆ€. Ž- ’ŽŒ“ ˆŽƒ„€ ‚…™…‘’‚…›‰ ’ˆ …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ ’€Œ, ƒ„… ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ‚‘… Ž‘’€‹œ›… ‘Š€‹Ÿ›… ’ˆ›. 11.1. ‘Š€‹Ÿ›‰ ’ˆ ŽŒˆŒŽ ‘’€„€’›• ‘Š€‹Ÿ›• ’ˆŽ‚: ‚…™…‘’‚…ŽƒŽ (REAL), –…‹Ž—ˆ‘‹…ŽƒŽ (INTEGER), “‹…‚‘ŠŽƒŽ (BOOLEAN), ‘ˆŒ- ‚Ž‹œŽƒŽ (CHAR) ˆ €‰’Ž‚ŽƒŽ (BYTE), Ÿ‡›Š PASCAL/FAST Ž„„…- †ˆ‚€…’ ’ˆ› ‘Š€‹ŸŽ‚, Ž…„…‹…›… Ž‹œ‡Ž‚€’…‹…Œ, ŠŽ’Ž›… ‚ Ž’‹ˆ—ˆ… Ž’ ‘’€„€’›•, €‡›‚€ž’‘Ÿ Ž…„…‹Ÿ…Œ›Œˆ ‘Š€‹Ÿ›Œˆ ’ˆ€Œˆ. Ž…„…‹…ˆ… ‘Š€‹ŸŽƒŽ ’ˆ€ ‡€„€…’, ‚ Ž…„…‹…ŽŒ ŽŸ„Š…, ‚‘… ‡€—…ˆŸ, ŠŽ’Ž›… ŒŽ†…’ ˆˆŒ€’œ ……Œ…€Ÿ „€ŽƒŽ ’ˆ€. ‡€—…ˆŸ ……Œ…›• Ž‚ŽƒŽ ’ˆ€ “„“’ …„‘- ’€‚‹…› ˆ ŽŒŽ™ˆ ˆ„…’ˆ”ˆŠ€’ŽŽ‚, ŠŽ’Ž›…, ’€ŠˆŒ Ž€‡ŽŒ, “„“’ Ÿ‚‹Ÿ’œ‘Ÿ ŠŽ‘’€’€Œˆ Ž‚ŽƒŽ ’ˆ€. ˆŒ…: TYPE Ž…€–ˆŸ = (‹ž‘, Œˆ“‘, “Œ, „…‹); „…œ = (, ‚’, ‘, —’, ’, ‘, ‚‘); 1 - 53 - ˆ‡ ˆŒ…€ ‚ˆ„Ž, —’Ž ……Œ…›… ’ˆ€ Ž…€–ˆŸ ŒŽƒ“’ ˆˆŒ€’œ Ž„Ž ˆ‡ —…’›…• ……—ˆ‘‹…›• ‡€—…ˆ‰: ‹ž‘, Œˆ“‘, “Œ, „…‹. Š€Š “†… ƒŽ‚Žˆ‹Ž‘œ €…… …‡“‹œ’€’ ‚›€†…ˆ‰ Ž’Ž˜…ˆŸ =, <>, <, >, <=, >= ‚‘…ƒ„€ ˆŒ……’ ‘’€„€’›‰ ‘Š€‹Ÿ›‰ ‹Žƒˆ- —…‘Šˆ‰ ’ˆ (BOOLEAN), ŠŽ’Ž›‰ Ž…„…‹Ÿ…’‘Ÿ Š€Š: TYPE BOOLEAN = (FALSE, TRUE); ˆ ‚›Ž‹…ˆˆ Ž…€–ˆ‰ ‘€‚…ˆŸ ‘—ˆ’€…’‘Ÿ ‘€‚…„‹ˆ- ‚›Œ ‘ŽŽ’Ž˜…ˆ… FALSE < TRUE. ˆ ‚›Ž‹…ˆˆ ŠŽŒ€„ ‘€‚…ˆŸ €„ ……Œ…›Œˆ €…… Ž…„…‹…ŽƒŽ ‘Š€‹ŸŽƒŽ ’ˆ€ “—ˆ’›‚€…’‘Ÿ ŽŸ„ŽŠ, ‚ ŠŽ’ŽŽŒ ……—ˆ‘‹…› ‡€—…ˆŸ ……Œ…›•. „‹Ÿ Ž…„…‹…ŽƒŽ ‚›˜… ’ˆ€ ‘€‚…„‹ˆ‚Ž ‘ŽŽ’Ž˜…ˆ…: ‹ž‘ < Œˆ“‘ < “Œ < „…‹ €„ €ƒ“Œ…’€Œˆ ‘Š€‹ŸŽƒŽ ’ˆ€ ŒŽ†Ž ‚›Ž‹Ÿ’œ ‘‹…„“ž- ™ˆ… ‘’€„€’›… ”“Š–ˆˆ: SUCC (Œˆ“‘) - ‡€—…ˆ…, ‘‹…„“ž™…… ‡€ Œˆ“‘ - ’Ž “Œ. PRED (Œˆ“‘) - ‡€—…ˆ…, €•Ž„Ÿ™……‘Ÿ ……„ Œˆ“‘ - ’Ž ‹ž‘. ORD (‹ž‘) - ŽŸ„ŠŽ‚›‰ ŽŒ… ‹ž‘ (€‚… 1, ’€Š Š€Š ŽŸ„ŠŽ‚›‰ ŽŒ… …‚Ž‰ ‚…‹ˆ—ˆ› ‚ Žˆ‘€ˆˆ ‘Š€‹ŸŽƒŽ ’ˆ€ €‚… 1). ’ˆ …‡“‹œ’€’€ ‚›Ž‹…ˆŸ ŠŽŒ€„ SUCC ˆ PRED ‘Ž‚€„€…’ ‘ ’ˆŽŒ €ƒ“Œ…’€. …‡“‹œ’€’ ‚›Ž‹…ˆŸ ŠŽŒ€„› ORD ˆŒ……’ –…‹Ž—ˆ‘‹…›‰ ’ˆ (INTEGER). 11.2. Žƒ€ˆ—…›‰ ’ˆ Ž‚›‰ ’ˆ ŒŽ†Ž Ž…„…‹ˆ’œ Š€Š Ž„ŒŽ†…‘’‚Ž „“ƒŽƒŽ, “†… Ž…„…‹…ŽƒŽ ’ˆ€. ’€Šˆ… ’ˆ› €‡›‚€ž’‘Ÿ Žƒ€ˆ—…›Œˆ. ‚ Ž…„…‹…ˆˆ Žƒ€ˆ—…ŽƒŽ ’ˆ€ Ž‘’Ž ‡€„€…’‘Ÿ €ˆŒ…œ˜…… ˆ €ˆŽ‹œ˜…… ‡€—…ˆ… „ˆ€€‡Ž€ ‡€—…ˆ‰ Žƒ€ˆ—…ŽƒŽ ’ˆ€. …‚€Ÿ ŠŽ‘’€’€ “‘’€€‚‹ˆ‚€…’ ˆ†žž ƒ€ˆ–“ ˆ … „Ž‹†€ ›’œ Ž‹œ˜… ‚’ŽŽ‰ ŠŽ‘’€’›, ŠŽ’Ž€Ÿ “‘’€€‚‹ˆ‚€…’ ‚…•žž ƒ€ˆ–“. Ž…„…‹…ˆ… Žƒ€ˆ—…ŽƒŽ ’ˆ€ „‹Ÿ ’ˆ€ REAL … „Ž“‘Š€…’‘Ÿ. ˆŒ…›: TYPE HEMISPHERE = (NORTH, SOUTH, EAST, WEST); WORLD = EAST..WEST; COMPASS_RANGE = 0..360; LATIN = 'A'..'Z'; RUSSIAN = '—'..'ž'; DEGREE = (CELC, FAHR, REAM, KELV); ’ˆ WORLD Ÿ‚‹Ÿ…’‘Ÿ Ž„ŒŽ†…‘’‚ŽŒ ‘Š€‹ŸŽƒŽ ’ˆ€ 1 - 54 - HEMISPHERE (ŠŽ’Ž›‰ ‚ „€ŽŒ ‘‹“—€… €‡›‚€…’‘Ÿ Žˆ‡‚Ž„›Œ ‘Š€‹Ÿ›Œ ’ˆŽŒ). Žˆ‡‚Ž„›Œ ‘Š€‹Ÿ›Œ ’ˆŽŒ „‹Ÿ ’ˆ€ COMPASSRANGE Ÿ‚‹Ÿ…’‘Ÿ –…‹Ž—ˆ‘‹…›‰ ’ˆ INTEGER, € „‹Ÿ ’ˆŽ‚ LATIN ˆ RUSSIAN PŽˆ‡‚Ž„›Œ Ÿ‚‹Ÿ…’‘Ÿ ‘ˆŒ‚Ž‹œ›‰ ’ˆ CHAR. ‚€Œ “†… ˆ‡‚…‘’… ‘’€„€’›‰ Žƒ€ˆ—…›‰ ’ˆ -- ’Ž ’ˆ BYTE, ŠŽ’Ž›‰ Ž…„…‹Ÿ…’‘Ÿ ‘‹…„“ž™ˆŒ Ž€‡ŽŒ: TYPE BYTE = 0..255; Žƒ€ˆ—…›‰ ’ˆ ‘Ž•€Ÿ…’ ‚‘… ‘‚Ž‰‘’‚€, •€€Š’…›… „‹Ÿ Žˆ‡‚Ž„ŽƒŽ ’ˆ€, ˆ Ž’‹ˆ—€…’‘Ÿ ‹ˆ˜œ ’…Œ, —’Ž ˆŒ……’ Žƒ€ˆ—…›‰ „ˆ€€‡Ž ‡€—…ˆ‰. Œ› ‚‘Ÿ—…‘Šˆ …ŠŽŒ…„“…Œ ‚€Œ ˆ‘Ž‹œ‡Ž‚€’œ ‘Š€‹Ÿ›… ’ˆ›, Ž…„…‹…›… Ž‹œ‡Ž‚€’…‹…Œ ˆ Žƒ€ˆ—…›… ‘Š€‹Ÿ›… ’ˆ›, ’€Š Š€Š ’Ž ‡€—ˆ’…‹œŽ “‹“—˜€…’ €ƒ‹Ÿ„Ž‘’œ Žƒ€ŒŒ. ŠŽŒ… ’ŽƒŽ, ‚ Žƒ€ŒŒ“ ŒŽ†Ž ‚Š‹ž—ˆ’œ Ž‚…Šˆ, Ž‚Ž„ˆŒ›… ‚Ž ‚…ŒŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›. ’Ž Ž‡‚Ž‹ˆ’ ‚€Œ Ž‚…ˆ’œ ‡€—…ˆŸ, ˆ‘‚€ˆ‚€…Œ›… ……Œ…›Œ Žƒ€ˆ—…ŽƒŽ ’ˆ€. …™… Ž„Ž …ˆŒ“™…‘’‚Ž ˆ‘Ž‹œ‡Ž‚€ˆŸ ’ˆŽ‚ „€›• ‡€Š‹ž—€…’‘Ÿ ‚ ’ŽŒ, —’Ž ’…Œ ‘€Œ›Œ ‚› ŒŽ†…’… ‘ŠŽŽŒˆ’œ €ŒŸ’œ. ‚ PASCAL/FAST, …‘‹ˆ „ˆ€€‡Ž ‡€—…ˆ‰ ……Œ…Ž‰ Žƒ€ˆ—…ŽƒŽ ’ˆ€ ‘Ž„…†ˆ’‘Ÿ ‚ „ˆ€€‡Ž… 0..255, ’Ž Ž„ …… Ž’‚Ž„ˆ’‘Ÿ 1 €‰’ €ŒŸ’ˆ. 11.3. …Ž€‡Ž‚€ˆ… ’ˆŽ‚ „‹Ÿ …Ž€‡Ž‚€ˆŸ ‘Š€‹Ÿ›• ’ˆŽ‚ ‚ ‚…‹ˆ—ˆ› –…‹Ž—ˆ‘- ‹…ŽƒŽ ’ˆ€ ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ”“Š–ˆž ORD. PASCAL/FAST Ž‡‚Ž‹Ÿ…’ Ž‘“™…‘’‚ˆ’œ ˆ Ž€’›‰ Ž–…‘‘, ’Ž …‘’œ ‚›Ž‹ˆ’œ …Ž€‡Ž‚€ˆ… „€›• –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€ ‚ ‹žŽ‰ „“ƒŽ‰ ‘Š€‹Ÿ›‰ ’ˆ. ‚ PASCAL/FAST ‚…‹ˆ—ˆ“ ‘Š€‹ŸŽƒŽ ’ˆ€ ŒŽ†Ž …Ž€‡Ž- ‚€’œ ‚ ‚…‹ˆ—ˆ“ „“ƒŽƒŽ ‘Š€‹ŸŽƒŽ ’ˆ€ ‘ ’…Œ †… ‘€Œ›Œ …„‘’€‚‹…ˆ…Œ ‚ €ŒŸ’ˆ ˆ ŽŒŽ™ˆ ”“Š–ˆˆ …Ž€‡Ž‚€’…‹œ ’ˆ€, ˆ “‘‹Ž‚ˆˆ, —’Ž ˆ• €‡Œ…› ‘Ž‚€„€ž’. …Ž€‡Ž‚€ˆ… ’ˆ€ ‚›Ž‹Ÿ…’‘Ÿ ‘‹…„“ž™ˆŒ Ž€‡ŽŒ: ‘€—€‹€ ‡€ˆ‘›‚€…’‘Ÿ ˆ„…’ˆ”ˆŠ€’Ž ’ŽƒŽ ’ˆ€, ‚ ŠŽ’Ž›‰ ‚› •Ž’ˆ’… …Ž€‡Ž‚€’œ ’Ž ˆ‹ˆ ˆŽ… ‡€—…ˆ…, € ‡€ ˆŒ ‚ Š“ƒ‹›• ‘ŠŽŠ€•, Ž„ŽŽ €ƒ“Œ…’“ ”“Š–ˆˆ, ‡€ˆ‘›‚€…’‘Ÿ ‘€Œ€ …Ž€‡“…Œ€Ÿ ‚…‹ˆ—ˆ€. ‚ Š€—…‘’‚… €€Œ…’€ ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ‚…‹ˆ—ˆ“ ‹žŽƒŽ ’ˆ€. ˆˆŒ€Ÿ ‚Ž ‚ˆŒ€ˆ… ˆŸ’›… €…… Ž…„…‹…ˆŸ ’ˆŽ‚, ‚ …‡“‹œ’€’… …Ž€‡Ž‚€ˆŸ ’ˆŽ‚ Ž‹“—ˆŒ ‘‹…„“ž™……: HEMISPHERE(3) = EAST; DEGREE(4) = KELV; CHAR(78) = 'N'; 1 - 55 - 11.3.1. Ž‚…Š€ „ˆ€€‡Ž€ ƒ……€–ˆŸ ŠŽ„€, …Ž•Ž„ˆŒŽƒŽ „‹Ÿ ‚›Ž‹…ˆŸ Ž‚…Šˆ „ˆ€€‡Ž€ ‡€—…ˆ‰, ˆˆŒ€…Œ›• ……Œ…›Œˆ ‚Ž ‚…ŒŸ ‚›Ž‹- …ˆŸ Žƒ€ŒŒ›, “€‚‹Ÿ…’‘Ÿ ˆ ŽŒŽ™ˆ „ˆEŠ’ˆ‚› ŠŽŒˆ‹Ÿ’Ž- € "R". Ž “ŒŽ‹—€ˆž “‘’€€‚‹ˆ‚€…’‘Ÿ ‡€—…ˆ… (*$R+*). ˆ ‚›Ž‹…ˆˆ Ž…€–ˆ‰ ˆ‘‚€ˆ‚€ˆŸ ‡€—…ˆ‰ ……Œ…Ž‰ ‘Š€‹Ÿ- ŽƒŽ ˆ‹ˆ Žƒ€ˆ—…ŽƒŽ ’ˆ€ ‚›Ž‹Ÿ…’‘Ÿ Ž‚…Š€, Ž…„…‹Ÿž- ™€Ÿ, Ž€„€ž’ ‹ˆ ˆ‘‚€ˆ‚€…Œ›… ‡€—…ˆŸ ‚ „ˆ€€‡Ž, Ž…„…- ‹…›‰ ’…Œ ’ˆŽŒ, Š ŠŽ’ŽŽŒ“ ……Œ…€Ÿ Ž’Ž‘ˆ’‘Ÿ. …‘‹ˆ †… „…‰‘’‚“…’ „ˆ…Š’ˆ‚€ (*$R-*) ’Ž ‚ ’ŽŒ …†ˆŒ… Ž‚…Š€ … ‚›Ž‹Ÿ…’‘Ÿ. ’“ „ˆ…Š’ˆ‚“ Œ› …ŠŽŒ…„“…Œ ˆ‘Ž‹œ‡Ž‚€’œ ‚ ’ŽŒ ‘‹“—€…, …‘‹ˆ ‚€˜€ Žƒ€ŒŒ€ Ž‹Ž‘’œž Ž’‹€†…€. ˆŒ…: PROGRAM RANGE_CHECK; TYPE DIGIT = 0..9; VAR DIG1, DIG2, DIG3 : DIGIT; BEGIN DIG1 := 5; (* €‚ˆ‹œŽ *) DIG2 := DIG1 + 3; (* €‚ˆ‹œŽ, ’€Š Š€Š DIG1 + 3 = 9 *) (*$R-*) DIG1 := 47; (* …€‚ˆ‹œŽ, Ž Ž˜ˆŠˆ … ‚Ž‡ˆŠ€…’ *) (*$R+*) DIG3 := 55; (* …€‚ˆ‹œŽ, ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€ ‚›Ž‹…ˆŸ *) (*$R-*) DIG3 := 167; (* …€‚ˆ‹œŽ, Ž Ž˜ˆŠˆ … ‚Ž‡ˆŠ€…’ *) 11.4. ‘’ŽŠŽ‚›‰ ’ˆ „€›• „‹Ÿ Ž€Ž’Šˆ ‘’ŽŠ ‘ˆŒ‚Ž‹Ž‚ ‚ Ÿ‡›Š… PASCAL/FAST …‘’œ Ž—…œ “„Ž›‰ ’ˆ „€›• -- ‘’ŽŠŽ‚›‰ (Ž„ ‘’ŽŠŽ‰ ‘ˆŒ‚Ž‹Ž‚ ‚ „€ŽŒ ‘‹“—€… Ž„€‡“Œ…‚€…’‘Ÿ Ž‘‹…„Ž‚€’…‹œŽ‘’œ ‘ˆŒ‚Ž- ‹Ž‚). ‘’ŽŠŽ‚›… ’ˆ› Ÿ‚‹Ÿž’‘Ÿ ‘’“Š’“›Œˆ ’ˆ€Œˆ. Žˆ ‚Ž ŒŽƒŽŒ Ž•Ž†ˆ € ’ˆ› Œ€‘‘ˆ‚Ž‚, Ž„€ŠŽ Œ…†„“ ˆŒˆ ‘“™…‘’‚“…’ P€‡‹ˆ—ˆ…: ŠŽ‹ˆ—…‘’‚Ž ‘ˆŒ‚Ž‹Ž‚ ‚ ‘’PŽŠ… ŒŽ†…’ ˆ‡Œ…Ÿ’œ‘Ÿ (’Ž …‘’œ „‹ˆ€ ‘’PŽŠˆ ŒŽ†…’ ˆ‡Œ…Ÿ’œ‘Ÿ „ˆ€Œˆ—…‘Šˆ Ž’ 0 „Ž ‡€„€ŽƒŽ ‚…•…ƒŽ …„…‹€), ’Žƒ„€ Š€Š ŠŽ‹ˆ—…‘’‚Ž ‹…Œ…’Ž‚ ‚ Œ€‘‘ˆ‚… ‘’ŽƒŽ ”ˆŠ‘ˆŽ‚€Ž. 1 - 56 - 11.4.1. Ž…„…‹…ˆ… ‘’ŽŠŽ‚ŽƒŽ ’ˆ€ ˆ Ž…„…‹…ˆˆ ‘’ŽŠŽ‚ŽƒŽ ’ˆ€ „Ž‹†Ž “Š€‡›‚€’œ‘Ÿ Œ€Š- ‘ˆŒ€‹œŽ… ŠŽ‹ˆ—…‘’‚Ž ‘ˆŒ‚Ž‹Ž‚, ŠŽ’ŽŽ… ŒŽ†…’ ‘Ž„…†€’œ ‘’Ž- Š€, ’Ž …‘’œ Œ€Š‘ˆŒ€‹œ“ž „‹ˆ“ ‘’ŽŠˆ „€ŽƒŽ ’ˆ€. Ž…„…- ‹…ˆ… ‘Ž‘’Žˆ’ ˆ‡ ‡€…‡…‚ˆŽ‚€ŽƒŽ ‘‹Ž‚€ STRING, ‡€ ŠŽ’Ž›Œ ‚ Š‚€„€’›• ‘ŠŽŠ€• “Š€‡›‚€…’‘Ÿ Œ€Š‘ˆŒ€‹œ€Ÿ „‹ˆ€ ‘’ŽŠˆ. „‹ˆ€ ‘’ŽŠˆ ‡€„€…’‘Ÿ –…‹Ž—ˆ‘‹…Ž‰ ŠŽ‘’€’Ž‰, ŠŽ’Ž€Ÿ ŒŽ†…’ ˆˆŒ€’œ ‡€—…ˆ… ‚ „ˆ€€‡Ž… Ž’ 1 „Ž 255. …‘‹ˆ Œ€Š- ‘ˆŒ€‹œ€Ÿ „‹ˆ€ ‘’ŽŠˆ … “Š€‡€€, ’Ž Ž€ ˆˆŒ€…’‘Ÿ €‚Ž‰ 255. ˆŒ…: TYPE FILE_NAME = STRING[14]; SCREEN_LINE= STRING[80]; ……Œ…›… ‘’ŽŠŽ‚ŽƒŽ ’ˆ€ ‡€ˆŒ€ž’ ‚ €ŒŸ’ˆ ŠŽ‹ˆ—…‘’‚Ž €‰’, €‚Ž… Œ€Š‘ˆŒ€‹œŽ‰ „‹ˆE, “‘’€Ž‚‹…Ž‰ ˆ Žˆ‘€ˆˆ ’ˆ€, ‹ž‘ Ž„ˆ €‰’, ‚ ŠŽ’ŽŽŒ ‘Ž„…†ˆ’‘Ÿ ’…Š“™…… ‡€—…ˆ… „‹ˆ› „€Ž‰ ……Œ…Ž‰. ‚‘… ‘ˆŒ‚Ž‹› ‘’ŽŠˆ Ž“Œ…Ž‚€› (’Ž …‘’œ ˆŒ…ž’ ˆ„…Š‘, ‡€—…ˆ… ŠŽ’ŽŽƒŽ ŒŽ†…’ ˆ‡Œ…Ÿ’œ‘Ÿ Ž’ 1 „Ž —ˆ‘‹€, €‚ŽƒŽ „‹ˆ… ‘’ŽŠˆ). 1 11.4.2. ‘’ŽŠŽ‚›… ‚›€†…ˆŸ Ž…€–ˆˆ €„ ‘’ŽŠ€Œˆ ‚›Ž‹Ÿž’‘Ÿ ˆ ŽŒŽ™ˆ ‚›€†…ˆ‰, ‹…Œ…’€Œˆ ŠŽ’Ž›• Ÿ‚‹Ÿž’‘Ÿ ‘’ŽŠˆ (’€Š €‡›‚€…Œ›• ‘’ŽŠŽ‚›• ‚›€†…ˆ‰). ‘’ŽŠŽ‚Ž… ‚›€†…ˆ… ŒŽ†…’ ‘Ž„…†€’œ ‘’ŽŠŽ‚›… ŠŽ‘’€’›, ‘’ŽŠŽ‚›… ……Œ…›…, Ž€™…ˆŸ Š ”“Š–ˆˆ ˆ Ž…- €’Ž›. „‹Ÿ ‘–…‹…ˆŸ …‘ŠŽ‹œŠˆ• ‘’ŽŠ ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ‡€Š "+". ’“ †… ‘€Œ“ž ”“Š–ˆž ‚›Ž‹Ÿ…’ ˆ ”“Š–ˆŸ CONCAT, Ž —€‘’Ž ›‚€…’ “„Ž…… ˆ‘Ž‹œ‡Ž‚€’œ ŠŽŒ€„“ "+". …‘‹ˆ „‹ˆ€ ‘–…‹…ˆŸ ‘’ŽŠˆ …‚›˜€…’ 255, ’Ž ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€ ‚›Ž‹…- ˆŸ. ˆŒ…: 'FAST'+' PASCAL' = 'FAST PASCAL' '123 '+'.'+'456' = '123.456' 'A'+'‚'+'‘'+'„' = '€‚‘„' Ž…€’Ž› Ž’Ž˜…ˆŸ =, <>, >, <, >= ˆ <= ‚›Ž‹Ÿž’‘Ÿ Ž‘‹… Ž…€–ˆˆ '+'. …‡“‹œ’€’ ‚›Ž‹…ˆŸ Ž…€–ˆ‰ Ž’Ž˜…ˆŸ €„ Ž…€„€Œˆ ‘’ŽŠŽ‚ŽƒŽ ’ˆ€ ˆŒ……’ “‹…‚‘Šˆ‰ ’ˆ, ’Ž …‘’œ ˆˆŒ€…’ ‡€—…ˆ… TRUE (ˆ‘’ˆ€) ˆ‹ˆ FALSE (‹Ž†œ). ‘€‚…ˆ… „‚“• ‘’ŽŠ ‚›Ž‹Ÿ…’‘Ÿ Ž‘ˆŒ‚Ž‹œŽ ‘‹…‚€ €€‚Ž ‘ “—…’ŽŒ ˆ• ŠŽ„Ž‚ ‚ ŠŽˆ8. …‘‹ˆ ‘’ŽŠˆ ˆŒ…ž’ €‡‹ˆ—“ž „‹ˆ“, Ž ‘Ž‚€- „€ž’ „“ƒ ‘ „“ƒŽŒ, ‚Š‹ž—€Ÿ Ž‘‹…„ˆ‰ ‘ˆŒ‚Ž‹ Ž‹…… ŠŽŽ’ŠŽ‰ ‘’ŽŠˆ, ’Ž ‘—ˆ’€…’‘Ÿ, —’Ž Ž‹…… ŠŽŽ’Š€Ÿ ‘’ŽŠ€ Œ…œ˜… „‹ˆ- Ž‰. ‘’ŽŠˆ ‘—ˆ’€ž’‘Ÿ €‚›Œˆ ’Ž‹œŠŽ ’Žƒ„€, ŠŽƒ„€ Žˆ ‘Ž„…- †€’ Ž„ˆ€ŠŽ‚›… ‘ˆŒ‚Ž‹› ˆ ˆŒ…ž’ Ž„ˆ€ŠŽ‚“ž „‹ˆ“. 1 - 57 - ˆŒ…: 'A' < 'B' = TRUE 'A' > 'B' = FALSE '2' < '12' = TRUE 'FAST' = 'FAST' = TRUE 'FAST ' = 'FAST' = FALSE 'PASCAL COMPILER' < 'PASCAL COMPILER ' = TRUE 11.4.3. ˆ‘‚€ˆ‚€ˆ… ‡€—…ˆ‰ ‘’ŽŠŽ‚›Œ ……Œ…›Œ Ž…€’Ž ˆ‘‚€ˆ‚€ˆŸ ˆ‘Ž‹œ‡“…’‘Ÿ „‹Ÿ ˆ‘‚€ˆ‚€ˆŸ ‡€—…ˆŸ ‘’ŽŠŽ‚ŽƒŽ ‚›€†…ˆŸ ……Œ…Ž‰ ‘’ŽŠŽ‚ŽƒŽ ’ˆ€. ˆŒ… AGE :='FIFTINTH'; LINE:='MANY HAPPY RETURNS ON YOUR ' + AGE + ' BIRTHDAY'; …‘‹ˆ …‚›˜€…’‘Ÿ Œ€Š‘ˆŒ€‹œ€Ÿ „‹ˆ€ ‘’ŽŠˆ (’Ž …‘’œ ……Œ…Ž‰ ˆ‘‚€ˆ‚€…’‘Ÿ ‘‹ˆ˜ŠŽŒ ŒŽƒŽ ‘ˆŒ‚Ž‹Ž‚), ’Ž ‹ˆ˜ˆ… ‘ˆŒ‚Ž‹› Ž’‘…Š€ž’‘Ÿ. €ˆŒ…, …‘‹ˆ ……Œ…€Ÿ AGE ‚ ˆ‚…„…OŒ ‚›˜… ˆŒ…… Žˆ‘€€ Š€Š ……Œ…€Ÿ ’ˆ€ STRING[5], ’Ž Ž‘‹… ‚›Ž‹…ˆŸ Ž…€’Ž€ ˆ‘‚€ˆ‚€ˆŸ ……- Œ…€Ÿ “„…’ ‘Ž„…†€’œ ’Ž‹œŠŽ 5 ‘ˆŒ‚Ž‹Ž‚, €‘Ž‹Ž†…›• ‘ ‹…‚ŽƒŽ Š€Ÿ ‘’ŽŠˆ, ’Ž …‘’œ: 'FIFTI' 11.4.4. Ž–…„“› €„ ‘’ŽŠŽ‚›Œˆ ……Œ…›Œˆ ‚ PASCAL/FAST ˆŒ…ž’‘Ÿ ‘‹…„“ž™ˆ… ‘’€„€’›… Ž–…„“› „‹Ÿ Ž€Ž’Šˆ ‘’ŽŠŽ‚›• ……Œ…›•: 11.4.4.1. Ž–…„“€ DELETE (“„€‹ˆ’œ) ‘ˆ’€Š‘ˆ‘: DELETE (ST, POS, NUM); Ž–…„“€ DELETE “„€‹Ÿ…’ ˆ‡ ‘’ŽŠˆ ST “—€‘’ŽŠ, ‘Ž„…†€- ™ˆ‰ NUM ‘ˆŒ‚Ž‹Ž‚, €—ˆ€Ÿ ‘ Ž‡ˆ–ˆˆ POS. ST -- ‘’ŽŠŽ‚€Ÿ ……Œ…€Ÿ, € POS ˆ NUM -- ‚›€†…ˆŸ –…‹Ž—ˆ‘‹…ŽƒŽ ’ˆ€. …‘‹ˆ POS Ž‹œ˜…, —…Œ LENGTH (ST) („‹ˆ€ ‘’ŽŠˆ ST), ’Ž ˆŠ€- Šˆ… ‘ˆŒ‚Ž‹› ˆ‡ ‘’ŽŠˆ … “„€‹Ÿž’‘Ÿ. …‘‹ˆ …„ˆˆŒ€…’‘Ÿ Ž›’Š€ “„€‹ˆ’œ ‘ˆŒ‚Ž‹›, €•Ž„Ÿ™ˆ…‘Ÿ ‡€ …„…‹€Œˆ ‘’ŽŠˆ (’Ž …‘’œ POS+NUM …‚›˜€…’ „‹ˆ“ ‘’ŽŠˆ), ’Ž “„€‹Ÿž’‘Ÿ ’Ž‹œŠŽ ’… ‘ˆŒ‚Ž‹›, ŠŽ’Ž›… €•Ž„Ÿ’‘Ÿ ‚ …„…‹€• ‘’ŽŠˆ. …‘‹ˆ POS ‚›•Ž- „ˆ’ ‡€ €ŒŠˆ „ˆ€€‡Ž€ 1..255, ’Ž ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€ ‚…Œ…ˆ ‚›Ž‹…ˆŸ. …‘‹ˆ ST ˆˆŒ€…’ ‡€—…ˆ… 'ABCDFG', ’Ž ‚ …‡“‹œ’€’… ‚›Ž‹…ˆŸ ŠŽŒ€„› DELETE(ST, 2, 4) Ž‹“—ˆŒ ST='AG', € ‚ …‡“‹œ’€’… ‚›Ž‹…ˆŸ ŠŽŒ€„› DELETE (ST, 2, 10) Ž‹“—ˆŒ 1 - 58 - ST='A'. 11.4.4.2. Ž–…„“€ INSERT (‚‘’€‚ˆ’œ) ‘ˆ’€Š‘ˆ‘: INSERT (OBJ, TARGET, POS); Ž–…„“€ INSERT ‚›Ž‹Ÿ…’ ‚‘’€‚Š“ ‘’ŽŠˆ OBJ ‚ ‘’ŽŠ“ TARGET, €—ˆ€Ÿ ‘ Ž‡ˆ–ˆˆ POS, OBJ -- ’Ž ‘’ŽŠŽ‚Ž… ‚›€†…- ˆ…, TARGET -- ’Ž ‘’ŽŠŽ‚€Ÿ ……Œ…€Ÿ, € POS –…‹Ž—ˆ‘‹…Ž… ‚›€†…ˆ…. …‘‹ˆ POS Ž‹œ˜… „‹ˆ› ‘’ŽŠˆ TARGET, ’Ž ‘’ŽŠ€ OBJ ˆ‘Ž…„ˆŸ…’‘Ÿ Š ‘’ŽŠ… TARGET. …‘‹ˆ Ž‹“—…€Ÿ ‚ …‡“‹œ’€’… ‚›Ž‹…ˆŸ ŠŽŒ€„› ‘’ŽŠ€ „‹ˆ…… Œ€Š‘ˆŒ€‹œŽ‰ „‹ˆ› ‘’ŽŠˆ TARGET, ’Ž ‘ˆŒ‚Ž‹›, ŠŽ’Ž›… Ž€‹ˆ ‡€ …„…‹› ‘’ŽŠˆ TARGET “„“’ Ž’‘…Š€’œ‘Ÿ ˆ ‚ ‘’ŽŠ… TARGET Ž‘’€“’‘Ÿ ’Ž‹œŠŽ Š€‰ˆ… ‹…‚›… ‘ˆŒ‚Ž‹› ‘’ŽŠˆ. …‘‹ˆ POS ‚›•Ž„ˆ’ ‡€ …„…‹› „ˆ€€‡Ž€ 1..255, ’Ž ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€ ‚…Œ…ˆ ‚›Ž‹- …ˆŸ. …‘‹ˆ ‘’ŽŠ€ ST ˆˆŒ€…’ ‡€—…ˆ… 'ABCDEFG', ’Ž ‚ …‡“‹œ’€’… ‚›Ž‹…ˆŸ ŠŽŒ€„› INSERT ('XX', ST, 3), Ž‹“—ˆŒ 'ABXXCDEFG'. 11.4.4.3. Ž–…„“€ STR (…Ž€‡“…’ —ˆ‘‹Ž‚“ž ‚…‹ˆ—ˆ“ ‚ ‘’ŽŠŽ‚Ž… …„‘’€‚‹…ˆ…) ‘ˆ’€Š‘ˆ‘: STR (VALUE, ST); Ž–…„“€ STR ‚›Ž‹Ÿ…’ …Ž€‡Ž‚€ˆ… —ˆ‘‹Ž‚ŽƒŽ ‡€—…- ˆŸ ‚…‹ˆ—ˆ› VALUE ‚ ‘’ŽŠ“ ‘ˆŒ‚Ž‹Ž‚ ˆ ‡€ŽŒˆ€…’ …‡“‹œ’€’ ‚ ‘’ŽŠ… ST. VALUE -- ’Ž €€Œ…’ ‡€ˆ‘ˆ –…‹Ž—ˆ‘‹…ŽƒŽ ˆ‹ˆ ‚…™…‘’‚…ŽƒŽ ’ˆ€, € ST -- ’Ž ‘’ŽŠŽ‚€Ÿ ……Œ…€Ÿ. €€- Œ…’› ‡€ˆ‘ˆ -- ’Ž ‚›€†…ˆŸ ‘Ž ‘…–ˆ€‹œ›Œˆ ŠŽŒ€„€Œˆ ”Ž- Œ€’ˆŽ‚€ˆŸ. …‘‹ˆ I ˆˆŒ€…’ ‡€—…ˆ… 1234, ’Ž ‚ …‡“‹œ’€’… ‚›Ž‹…ˆŸ ŠŽŒ€„› STR (I:5,ST)Ž‹“—ˆŒ, —’Ž ST ˆˆŒ€…’ ‡€—…ˆ… '_1234'. …‘‹ˆ • €‚Ž 2.5…4, ’Ž ‚ …‡“‹œ’€’… ‚›Ž‹- …ˆŸ ŠŽŒ€„› STR(X:10,ST) ST ˆˆŒ€…’ ‡€—…ˆ… '______2500' (‡€ˆŒ€…’ 10 Ž‡ˆ–ˆ‰). 1 - 59 - 11.4.4.4. Ž–…„“€ VAL (…Ž€‡“…’ ‘’ŽŠŽ‚“ž ‚…‹ˆ—ˆ- “ ‚ —ˆ‘‹Ž‚Ž… …„‘’€‚‹…ˆ…) ‘ˆ’€Š‘ˆ‘: VAL (ST, VAR, CODE); Ž–…„“€ VAL Ž‘“™…‘’‚‹Ÿ…’ …Ž€‡Ž‚€ˆ… ‘’ŽŠŽ‚ŽƒŽ ‚›€†…ˆŸ ST ‚ ‚…‹ˆ—ˆ“ –…‹Ž—ˆ‘‹…ŽƒŽ ˆ‹ˆ ‚…™…‘’‚…ŽƒŽ ’ˆ€ (‚ ‡€‚ˆ‘ˆŒŽ‘’ˆ Ž’ ’ˆ€ €€Œ…’€ VAR) ˆ ‡€ŽŒˆ€…’ ’Ž —ˆ‘‹Ž ‚ VAR. —ˆ‘‹…Ž… ‡€—…ˆ… ‘’ŽŠˆ ST Ž…„…‹Ÿ…’‘Ÿ ‚ ‘ŽŽ’‚…’‘’‚ˆˆ ‘ €‚ˆ‹€Œˆ, ˆŒ…Ÿ…Œ›Œˆ Š —ˆ‘‹Ž‚›Œ ŠŽ‘’€’€Œ (‘ŒŽ’ˆ €‡„…‹ "—ˆ‘‹€"). ‘’ŽŠ€ ST … „Ž‹†€ ‘Ž„…†€’œ …‡- €—€™ˆ• Ž…‹Ž‚ ‚ €—€‹… ˆ‹ˆ ‚ ŠŽ–…. CODE „Ž‹†€ ›’œ –…‹Ž—ˆ‘‹…Ž‰ ……Œ…Ž‰. …‘‹ˆ ˆ ‚›Ž‹…ˆˆ ŠŽŒ€„› Ž˜ˆŽŠ … Ž€“†…Ž, ’Ž ……Œ…€Ÿ CODE “‘’€€‚‹ˆ‚€…’‘Ÿ €‚Ž‰ 0 (“‹ž). ‚ Ž’ˆ‚ŽŒ ‘‹“—€… ‡€—…ˆ… CODE €‚Ž ŽŒ…“ Ž‡ˆ- –ˆˆ …‚ŽƒŽ Ž˜ˆŽ—ŽƒŽ ‘ˆŒ‚Ž‹€ ˆ ’Žƒ„€ ‡€—…ˆ… VAR “„…’ …Ž…„…‹…Ž. …‘‹ˆ ST €‚Ž '234', ’Ž ‚ …‡“‹œ’€’… ‚›Ž‹…ˆŸ ŠŽŒ„› VAL (ST, I, RESULT) ……Œ…€Ÿ I ˆŒ…’ ‡€—…ˆ… 234, € ‡€- —…ˆ… RESULT “„…’ €‚Ž “‹ž. …‘‹ˆ ST €‚€ '12•', ’Ž Ž‘‹… ‚›Ž‹…ˆŸ ŠŽŒ€„› VAL(ST,I,RESULT) ‡€—…ˆ… I “„…’ …Ž…„…‹…Ž ˆ RESULT “„…’ €‚… 3. …‘‹ˆ ST ˆŒ……’ ‡€—…ˆ… '2.5…4' ˆ • Ÿ‚‹Ÿ…’‘Ÿ ……Œ…Ž‰ ‚…™…‘’‚…ŽƒŽ ’ˆ€, ’Ž Ž‘‹… ‚›Ž‹…ˆŸ ŠŽŒ€„› VAL(ST, X, RESULT) • “„…’ €‚Ž 25000, € RESULT “„…’ €‚›Œ 0. 11.4.5. ”“Š–ˆˆ €„ ‘’ŽŠŽ‚›Œˆ ……Œ…›Œˆ ‚ Ÿ‡›Š… PASCAL/FAST ˆŒ…ž’‘Ÿ ‘‹…„“ž™ˆ… ‘’€„€’›… ”“Š- –ˆˆ €„ ‘’ŽŠŽ‚›Œˆ ……Œ…›Œˆ: 11.4.5.1. ”“Š–ˆŸ COPY (ŠŽˆŽ‚€’œ) ‘ˆ’€Š‘ˆ‘: COPY(ST, POS, NUM); …‡“‹œ’€’ŽŒ ‚›Ž‹…ˆŸ ŠŽŒ€„› COPY Ÿ‚‹Ÿ…’‘Ÿ Ž„‘’ŽŠ€, ‘Ž„…†€™€Ÿ NUM ‘ˆŒ‚Ž‹Ž‚ ˆ‡ ‘’ŽŠˆ ST, €—ˆ€Ÿ ‘ Ž‡ˆ–ˆˆ POS. ST -- ’Ž ‘’ŽŠŽ‚Ž… ‚›€†…ˆ…, € POS ˆ NUM -- –…‹Ž—ˆ‘‹…›… ‚›€†…ˆŸ. …‘‹ˆ POS …‚›˜€…’ „‹ˆ“ ‘’ŽŠˆ, ’Ž …‡“‹œ’€’ŽŒ ‚›Ž‹…ˆŸ ŠŽŒ€„› COPY “„…’ “‘’€Ÿ ‘’ŽŠ€. …‘‹ˆ „…‹€…’‘Ÿ Ž›’Š€ "‚‡Ÿ’œ" ‘ˆŒ‚Ž‹›, ŠŽ’Ž›… €•Ž„Ÿ’‘Ÿ ‡€ …„…‹€Œˆ ‡€„€Ž‰ ‘’ŽŠˆ (’Ž …‘’œ POS + NUM Ž‹œ˜… „‹ˆ› ‘’ŽŠˆ), ’Ž …‡“‹œ’ˆ“ž™€Ÿ Ž„‘’ŽŠ€ “„…’ ‘Ž„…†€’œ ’Ž‹œŠŽ ’… ‘ˆŒ‚Ž‹›, ŠŽ’Ž›… €•Ž„Ÿ’‘Ÿ ‚ …„…‹€• ‘’ŽŠˆ ST. …‘‹ˆ POS ‚›•Ž„ˆ’ ‡€ …„…‹› „ˆ€€‡Ž€ 1..255, ’Ž ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€ ‚›Ž‹…ˆŸ. …‘‹ˆ ‘’ŽŠ€ ST ˆˆŒ€…’ ‡€—…ˆ… '€‚‘DEFG', ’Ž Ž‹“—ˆŒ ‘‹…„“ž™ˆ… …‡“‹œ’€’›: 1 - 60 - COPY(ST,3,2) „€…’ '‘D' COPY(ST,4,10) „€…’ 'DEFG' COPY(ST,4,2) „€…’ 'DE' 11.4.5.2. ”“Š–ˆŸ CONCAT (‘–…ˆ’œ) ‘ˆ’€Š‘ˆ‘: CONCAT (ST1, ST2,..STN); …‡“‹œ’€’ŽŒ ‚›Ž‹…ˆŸ ”“Š–ˆˆ CONCAT Ÿ‚‹Ÿ…’‘Ÿ ‘’ŽŠ€, ‘Ž‘’€‚‹…€Ÿ ˆ‡ ‘’ŽŠ-€ƒ“Œ…’Ž‚ ”“Š–ˆˆ CONCAT. ‘’ŽŠˆ ‘–…‹Ÿž’‘Ÿ ‚ ’ŽŒ ŽŸ„Š…, ‚ ŠŽ’ŽŽŒ Žˆ ……—ˆ‘‹Ÿ‹ˆ‘œ ˆ ‚›‡Ž‚… ”“Š–ˆˆ. ŠŽ‹ˆ—…‘’‚Ž €ƒ“Œ…’Ž‚ ŒŽ†…’ ›’œ Žˆ‡‚Ž‹œ- ›Œ. ‚ Š€—…‘’‚… €ƒ“Œ…’Ž‚ ˆ‘Ž‹œ‡“ž’‘Ÿ ‘’ŽŠŽ‚›… ‚›€†…ˆŸ. €ƒ“Œ…’› Ž’„…‹Ÿž’‘Ÿ „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ (ST1, ST2 .. STN). …‘‹ˆ Ž‹“—…€Ÿ ‚ …‡“‹œ’€’… ‘’ŽŠ€ ˆŒ……’ „‹ˆ“, …- ‚›˜€ž™“ž 255, ’Ž ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€ ‚›Ž‹…ˆŸ. Š€Š “†… ŽŸ‘- Ÿ‹Ž‘œ, ’Ž †… ‘€ŒŽ… ŒŽ†Ž ‘„…‹€’œ ˆ ŽŒŽ™ˆ Ž…€’Ž€ "+", ˆ —€‘’Ž ˆ‘Ž‹œ‡Ž‚€’œ Ž…€’Ž "+" ›‚€…’ Ž‹…… “„ŽŽ. ”“Š- –ˆŸ CONCAT ‚Š‹ž—…€ ‚ ‘ˆ‘’…Œ“ PASCAL/FAST ’Ž‹œŠŽ „‹Ÿ ’ŽƒŽ, —’Ž› Ž…‘…—ˆ’œ ‘Ž‚Œ…‘’ˆŒŽ‘’œ …ƒŽ ŠŽŒˆ‹Ÿ’Ž€ ‘ „“ƒˆŒˆ ŠŽŒˆ‹Ÿ’Ž€Œˆ Ÿ‡›Š€ PASCAL. …‘‹ˆ ST1 ˆŒ…‹€ ‡€—…ˆ… 'PASCAL/', € ST2 - ‡€—…ˆ… ' IS COMPILER', ’Ž ‚ …‡“‹œ’€’… ‚›Ž‹…ˆŸ ŠŽŒ€„› CONCAT(ST1,'FAST',ST2) Ž‹“—ˆŒ ‘’ŽŠ“:'PASCAL/FAST IS COMPILER'. 11.4.5.3. ”“Š–ˆŸ LENGTH (Ž…„…‹…ˆ… „‹ˆ› ‘’ŽŠˆ) ‘ˆ’€Š‘ˆ‘: LENGTH (ST); ‚ …‡“‹œ’€’… ‚›Ž‹…ˆŸ ’Ž‰ ŠŽŒ€„› Œ› Ž‹“—ˆŒ —ˆ‘‹Ž, €‚Ž… „‹ˆ… ‘’ŽŠŽ‚ŽƒŽ ‚›€†…ˆŸ ST, ’Ž …‘’œ Ž…„…‹ˆŒ ŠŽ‹ˆ—…‘’‚Ž ‘ˆŒ‚Ž‹Ž‚ ‚ ‘’ŽŠ… ST. …‡“‹œ’€’ ˆŒ……’ –…‹Ž—ˆ‘‹…- ›‰ ’ˆ. …‘‹ˆ ST ˆˆŒ€…’ ‡€—…ˆ… '123456789', ’Ž …‡“‹œ’€’ ‚›Ž‹…ˆŸ ”“Š–ˆˆ LENGTH(ST) “„…’ €‚… 9. 1 - 61 - 11.4.5.4. ”“Š–ˆŸ POS (Ž‡ˆ–ˆŽˆŽ‚€ˆ…) ‘ˆ’€Š‘ˆ‘: POS (SUB,TARGET); ”“Š–ˆŸ POS Ž‘Œ€’ˆ‚€…’ ‘’ŽŠ“ TARGET ˆ Ž€“†ˆ‚€…’ …‚Ž… ŽŸ‚‹…ˆ… ‚ …‰ Ž„‘’ŽŠˆ SUB. SUB ˆ TARGET Ÿ‚‹Ÿž’‘Ÿ ‘’ŽŠŽ‚›Œˆ ‚›€†…ˆŸŒˆ, € …‡“‹œ’€’ ˆŒ……’ –…‹Ž—ˆ‘‹…›‰ ’ˆ. …‡“‹œ’€’ …„‘’€‚‹Ÿ…’ ‘ŽŽ‰ –…‹Ž… —ˆ‘‹Ž, €‚Ž… ’Ž‰ Ž‡ˆ–ˆˆ ‚ ‘’ŽŠ…, ‚ ŠŽ’ŽŽ‰ €•Ž„ˆ’‘Ÿ …‚›‰ ‘ˆŒ‚Ž‹ Ž„‘’ŽŠˆ SUB. ˆ ’ŽŒ ‘—ˆ’€…’‘Ÿ, —’Ž ŽŒ… Ž‡ˆ–ˆˆ …‚ŽƒŽ ‘ˆŒ‚Ž‹€ ‘’ŽŠˆ TARGET €‚… 1. …‘‹ˆ ‡€„€›‰ ˜€‹Ž (Ž„‘’ŽŠ€) … Ž€“- †…, ’Ž …‡“‹œ’€’ ‚›Ž‹…ˆŸ ŠŽŒ€„› POS “„…’ €‚… 0. …‘‹ˆ ST €‚€ 'ABCDEFG', ’Ž ˆ ‚›Ž‹…ˆˆ ”“Š–ˆˆ POS('DE',ST) …‡“‹œ’€’ “„…’ €‚… 4, € ˆ ‚›Ž‹…ˆˆ ”“Š- –ˆˆ POS('',ST) …‡“‹œ’€’ “„…’ €‚… 0. 11.5. ‘’ŽŠˆ ˆ ‘ˆŒ‚Ž‹› „€›… ‘’ŽŠŽ‚ŽƒŽ ’ˆ€ STRING ˆ ‘’€„€’ŽƒŽ ‘Š€‹ŸŽƒŽ ’ˆ€ CHAR (‘ˆŒ‚Ž‹œ›‰) Ÿ‚‹Ÿž’‘Ÿ ‘Ž‚Œ…‘’ˆŒ›Œˆ. ’€ŠˆŒ Ž€‡ŽŒ, …‘‹ˆ ‚ Š€ŠŽŒ-‹ˆŽ ‚›€†…ˆˆ …„Ž‹€ƒ€…’‘Ÿ ˆ‘Ž‹œ‡Ž‚€ˆ… ‘’ŽŠŽ‚Ž‰ ‚…‹ˆ—ˆ›, ’Ž ‚Œ…‘’Ž …… ŒŽ†Ž ‡€„€’œ ‚…‹ˆ—ˆ“ ‘ˆŒ- ‚Ž‹œŽƒŽ ’ˆ€. Ž‹…… ’ŽƒŽ, ‘’ŽŠˆ ˆ ‘ˆŒ‚Ž‹› ‚ ‚›€†…ˆŸ• ŒŽ†Ž ‘Œ…˜ˆ‚€’œ. Ž‘“™…‘’‚ˆ’œ „Ž‘’“ Š Š€†„ŽŒ“ Ž’„…‹œŽŒ“ ‘ˆŒ‚Ž‹“ ‚ ‘’Ž- ŠŽ‚Ž‰ ……Œ…Ž‰ ŒŽ†Ž ˆ ŽŒŽ™ˆ ˆ„…Š‘€–ˆˆ ‘’ŽŠˆ. ˆ„…Š‘ …„‘’€‚‹Ÿ…’ ‘ŽŽ‰ –…‹Ž—ˆ‘‹…Ž… ‚›€†…ˆ…, ‡€Š‹ž—…Ž… ‚ Š‚€„€’›… ‘ŠŽŠˆ. ˆ„…Š‘ ˆ˜…’‘Ÿ Ž‘‹… ˆ„…’ˆ”ˆŠ€’Ž€ ‘’Ž- ŠŽ‚Ž‰ ……Œ…Ž‰. ˆŒ…›: BUFFER[5] LINE[LENGTH(LINE) - 1] ORD(LINE[0]) ’€Š Š€Š …‚›‰ ‘ˆŒ‚Ž‹ ‘’ŽŠˆ (‘ ˆ„…Š‘ŽŒ 0) ‘Ž„…†ˆ’ „‹ˆ“ ‘’ŽŠˆ, LENGTH (STRING) - ’Ž ’Ž †… ‘€ŒŽ…, —’Ž ˆ ORD (STRING [0]). …‘‹ˆ ‚ Žƒ€ŒŒ… ‚›Ž‹Ÿ…’‘Ÿ ˆ‘‚€ˆ‚€ˆ… ‡€- —…ˆŸ ˆ„ˆŠ€’Ž“ „‹ˆ› ‘’ŽŠˆ, Žƒ€ŒŒˆ‘’ „Ž‹†… ‘‹…„ˆ’œ ‡€ ’…Œ, —’Ž› ’Ž ‡€—…ˆ… … …‚›˜€‹Ž Œ€Š‘ˆŒ€‹œŽ‰ „‹ˆ› ‘’ŽŠŽ‚Ž‰ ……Œ…Ž‰. ŠŽƒ„€ „…‰‘’‚“…’ „ˆ…Š’ˆ‚€ Ž‚…Šˆ „ˆ€€‡Ž€ (*$R+*) , ’Ž ƒ……ˆ“…’‘Ÿ ŠŽ„, ŠŽ’Ž›‰ Ž‚…Ÿ…’, —’Ž› ‡€—…ˆ… ˆ„…Š‘ŽƒŽ ‚›€†…ˆŸ … …‚›˜€‹Ž Œ€Š‘ˆŒ€‹œ- Ž‰ „‹ˆ› ‘’ŽŠŽ‚Ž‰ ……Œ…Ž‰. ’…Œ … Œ……… „Ž“‘Š€…’‘Ÿ, —’Ž› ˆ„…Š‘ ‚›•Ž„ˆ‹ ‡€ …„…‹› „ˆ€Œˆ—…‘Šˆ “‘’€Ž‚‹…Ž‰ ’…Š“™…‰ „‹ˆ› ‘’ŽŠˆ, … …‚›˜€ž™…‰ Œ€Š‘ˆŒ€‹œ“ž „‹ˆ“ ‘’ŽŠˆ (250 ‘Œˆ‚Ž‹Ž‚). ‚ ’ŽŒ ‘‹“—€… ‘—ˆ’›‚€ž’‘Ÿ ‘Ž‚…˜…Ž ‘‹“—€‰›… ‘ˆŒ‚Ž‹›, € ‚› ‚ ’ŽŒ ‘‹“—€…–ˆˆ ˆ‘‚€ˆ‚€ˆŸ ”€Š- ’ˆ—…‘Šˆ … ˆ‚…„“’ Š ˆ‡Œ……ˆž ‡€—…ˆŸ ‘’ŽŠŽ‚Ž‰ ……Œ…- Ž‰. 1 - 62 - 12. ’ˆ› Œ€‘‘ˆ‚Ž‚ Œ€‘‘ˆ‚ -- ’Ž ‘’“Š’“›‰ ’ˆ „€›•, ‘Ž‘’ŽŸ™ˆ‰ ˆ‡ ”ˆŠ- ‘ˆŽ‚€ŽƒŽ ŠŽ‹ˆ—…‘’‚€ ŠŽŒŽ…’Ž‚, ˆŒ…ž™ˆ• Ž„ˆ ˆ ’Ž’ †… ’ˆ, €‡›‚€…Œ›‰ ’_ˆ__Ž_Œ Š_Ž_Œ__Ž__…__’_›, ˆ‹ˆ _€_‡_Ž_‚_›_Œ ’_ˆ__Ž_Œ. „Ž‘’“ Š Š€†„ŽŒ“ Ž’„…‹œŽŒ“ ŠŽŒŽ- …’“ Œ€‘‘ˆ‚€ Ž…‘…—ˆ‚€…’‘Ÿ “’…Œ ˆ„…Š‘ˆŽ‚€ˆŸ ‹…Œ…’Ž‚ Œ€‘‘ˆ‚€. ˆ„…Š‘› …„‘’€‚‹Ÿž’ ‘ŽŽ‰ –…‹Ž—ˆ‘‹…›… ‚›€†…ˆŸ Š€ŠŽƒŽ-‹ˆŽ ‘Š€‹ŸŽƒŽ ’ˆ€. ˆ„…Š‘ ‡€Š‹ž—€…’‘Ÿ ‚ Š‚€„€’›… ‘ŠŽŠˆ ˆ ‡€ˆ‘›‚€…’‘Ÿ ‚_‘_‹_…_„ ‡_€ ˆ_„_…__’_ˆ_”_ˆ_Š_€_’_Ž__Ž_Œ Œ_€_‘_‘_ˆ_‚_€. …ƒŽ ’ˆ €‡›- ‚€…’‘Ÿ ’_ˆ__Ž_Œ ˆ__„_…_Š_‘_€. 12.1. Ž…„…‹…ˆ… Œ€‘‘ˆ‚€ Ž…„…‹…ˆ… Œ€‘‘ˆ‚€ €—ˆ€…’‘Ÿ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ ARRAY (Œ€‘‘ˆ‚), ‡€ ŠŽ’Ž›Œ ‘‹…„“…’ ’ˆ ˆ„…Š‘€, ‡€Š‹ž—…›‰ ‚ Š‚€„€’›… ‘ŠŽŠˆ. Ž‘‹… ’ˆ€ ˆ„…Š‘€ ‘‹…„“…’ ‡€…‡…‚ˆŽ- ‚€Ž… ‘‹Ž‚Ž OF, ‡€ ŠŽ’Ž›Œ “Š€‡›‚€…’‘Ÿ ’ˆ ŠŽŒŽ…’€. TYPE DAY = (MON,TUE,WED,THE,FRI,SAT,SUN); VAR WORK_HOUR : ARRAY [1..8] OF INTEGER; WEEK : ARRAY [1..7] OF DAY; TYPE PLAYERS = (PLAYER1,PLAYER2,PLAYER3,PLAYER4); HAND = (ONE,TWO,PAIR,TWO_PAIR,THREE,STRAIGHT, FLUSH,FULL_HOUSE,FOUR,STRAIGHT_FLUSH,RSF); LEGAL_BID = 1..200; BID = ARRAY[PLAYERS] OF LEGAL_BID; VAR PLAYER : ARRAY[PLAYERS] OF HAND; POT : BID; „Ž‘’“ Š ‹…Œ…’“ Œ€‘‘ˆ‚€ ŒŽ†Ž Ž‹“—ˆ’œ “Š€‡€‚ ‚‘‹…„ ‡€ ˆ„…’ˆ”ˆŠ€’ŽŽŒ Œ€‘‘ˆ‚€ ˆ„…Š‘ ’ŽƒŽ ‹…Œ…’€. ˆ„…Š‘ ‡€Š‹ž—€…’‘Ÿ ‚ Š‚€„€’›… ‘ŠŽŠˆ. PLAYER[PLAYER3] := FULL_HOUSE; POT[PLAYER3] := 100; PLAYER[PLAYER4] := FLUSH; POT[PLAYER4] := 50; ’€Š KAK ŒŽ†Ž ‚›Ž‹Ÿ’œ Ž…€–ˆˆ ˆ‘‚€ˆ‚€ˆŸ Œ…†„“ „‚“ŒŸ ……Œ…›Œˆ Ž„ŽƒŽ ’ˆ€, ’Ž ˆ ŽŒŽ™ˆ Ž„ŽƒŽ …„ˆ‘’- ‚…ŽƒŽ Ž…€’Ž€ ˆ‘‚€ˆ‚€ˆŸ ŒŽ†Ž ‘ŠŽˆŽ‚€’œ –…‹›… Œ€‘- ‘ˆ‚›. 1 - 63 - „ˆ…Š’ˆ‚€ ŠŽŒˆ‹Ÿ’Ž€ "R" “€‚‹Ÿ…’ ƒ……ˆŽ‚€ˆ…Œ ‘…- –ˆ€‹œŽƒŽ ŠŽ„€, ŠŽ’Ž›‰ Ž‡‚Ž‹ˆ’ Ž‚Ž„ˆ’œ Ž‚…Š“ „ˆ€€‡Ž- € ‡€—…ˆ‰ ˆ„…Š‘›• ‚›€†…ˆ‰ Œ€‘‘ˆ‚Ž‚ ‚Ž ‚…ŒŸ ‚›Ž‹…ˆŸ Žƒ€ŒŒ›. Ž “ŒŽ‹—€ˆž “‘’€€‚‹ˆ‚€…’‘Ÿ €‘‘ˆ‚›‰ …†ˆŒ, (*$R-*). “‘’€Ž‚Š€ †… …†ˆŒ€ (*$R+*) ‚›‡Ž‚…’ Ž‚…Š“ ‚‘…• ˆ„…Š‘›• ‚›€†…ˆ‰ € ‘ŽŽ’‚…’‘’‚ˆ… ˆ• ‡€—…ˆ‰ …„…‹€Œ „ˆ€€‡Ž€ “‘’€Ž‚‹…ŽƒŽ ’ˆŽŒ ˆ„…Š‘€. 12.2. ŒŽƒŽŒ…›… Œ€‘‘ˆ‚› €‡Ž‚›Œ ’ˆŽŒ Œ€‘‘ˆ‚€ ŒŽ†…’ ›’œ ‹žŽ‰ ’ˆ „€›•, ‚ ’ŽŒ —ˆ‘‹… ˆ ’ˆ Œ€‘‘ˆ‚€. ’€Š€Ÿ ‘’“Š’“€, ‹…Œ…’€Œˆ ŠŽ’ŽŽ‰ Ÿ‚‹Ÿž’‘Ÿ Ž„ŽŒ…›… Œ€‘‘ˆ‚›, €‡›‚€…’‘Ÿ Œ__Ž_ƒ_Ž_Œ_…___›_Œ Œ_€_‘_‘_ˆ_‚_Ž_Œ. ˆŒ…: TYPE CARD = (TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE, TEN,KNIGHT,QUEEN,KING,ACE); SUIT = (HEARTS,SPADE,CLUBS,DIAMONDS); ALL_CARDS = ARRAY[SUIT] OF ARRAY[1..13] OF CARD; VAR DECK : ALL_CARDS; Ž‹…… “„ŽŽ ŒŽ†Ž Ž…„…‹ˆ’œ ŒŽƒŽŒ…›‰ Œ€‘‘ˆ‚ ‘‹…- „“ž˜ˆŒ Ž€‡ŽŒ: TYPE ALL_CARDS = ARRAY[SUIT,1..13] OF CARD; ’€Š“ž ‘ŽŠ€™…“ž ‡€ˆ‘œ ŒŽ†Ž ’€Š†… ˆ‘Ž‹œ‡Ž‚€’œ ˆ ‚›ŽŠ… ŠŽŒŽ…’Ž‚ Œ€‘‘ˆ‚€: ‡€ˆ‘œ: DECK [HEARTS,10] Š‚ˆ- ‚€‹…’€ ‡€ˆ‘ˆ: DECK [HEARTS][10]. ŒŽ†Ž ’€Š†… Ž…„…‹ˆ’œ Œ€‘‘ˆ‚ ˆ ˆ ŽŒŽ™ˆ …„‚€ˆ- ’…‹œŽ Ž…„…‹…›• ’ˆŽ‚ Œ€‘‘ˆ‚Ž‚. ˆŒ…: TYPE PUPILS = STRING[20]; CLASS = ARRAY [1..30] OF PUPILS; SCHOOL = ARRAY [1..100] OF CLASS; VAR J,P,VACANT : INTEGER; CLASSA, CLASSB : CLASS; NEW_TOWN_SCHOOL : SCHOOL; Ž‘‹… ’ˆ• Ž…„…‹…ˆ‰ €‚ˆ‹œ›Œˆ Ÿ‚‹Ÿž’‘Ÿ ‘‹…„“ž™ˆ… Ž…€’Ž› ˆ‘‚€ˆ‚€ˆŸ: 1 - 64 - CLASS_A [J] := 'PETER'; NEW_TOWN_SCHOOL [5][2] := 'PETER BROWN'; NEW_TOWN_SCHOOL [8,J] := NEW_TOWN_SCHOOL [7,J]; CLASS_A [VACANT] := CLASS_B [P]; 12.3. Œ€C‘ˆ‚› ‘ˆŒ‚Ž‹Ž‚ Œ€‘‘ˆ‚› ‘ˆŒ‚Ž‹Ž‚ -- ’Ž Ž„ŽŒ…›… Œ€‘‘ˆ‚› (Œ€‘‘ˆ‚› ‘ Ž„ˆŒ ˆ„…Š‘ŽŒ), ‹…Œ…’€Œˆ ŠŽ’Ž›• Ÿ‚‹Ÿž’‘Ÿ „€›… ‘’€- „€’ŽƒŽ ‘Š€‹ŸŽƒŽ ’ˆ€ CHAR (‘ˆŒ‚Ž‹œ›‰). ‘ˆŒ‚Ž‹œ›Œˆ Œ€‘- ‘ˆ‚€Œˆ ŒŽ†Ž ‘—ˆ’€’œ ‘’ŽŠˆ ‘ˆŒ‚Ž‹Ž‚ Ž‘’ŽŸŽ‰ „‹ˆ›. ‚ PASCAL/FAST ‘ˆŒ‚Ž‹œ›… Œ€‘‘ˆ‚› ŒŽƒ“’ ‚•Ž„ˆ’œ ‚ ‘Ž‘’€‚ ‘’ŽŠŽ‚›• ‚›€†…ˆ‰. ‚ ’ŽŒ ‘‹“—€… Œ€‘‘ˆ‚ …Ž€‡“…’‘Ÿ ‚ ‘’ŽŠ“, „‹ˆ€ ŠŽ’ŽŽ‰ €‚€ „‹ˆ… Œ€‘‘ˆ‚€. ’€ŠˆŒ Ž€‡ŽŒ, Œ€‘‘ˆ‚› ŒŽ†Ž ‘€‚ˆ‚€’œ „“ƒ ‘ „“ƒŽŒ ˆ ‚›Ž‹Ÿ’œ €„ ˆŒˆ ‚‘… „…‰‘’‚ˆŸ ’Ž—Ž ’€Š †…, Š€Š ˆ €„ ‘’ŽŠ€Œˆ. ŠŽŒ… ’ŽƒŽ, ‘ˆŒ‚Ž‹œ›Œ Œ€‘‘ˆ‚€Œ ŒŽ†Ž ˆ‘‚€ˆ‚€’œ ‡€—…ˆ… ‘’ŽŠŽ‚›• ŠŽ‘’€’, …‘‹ˆ ˆ• „‹ˆ€ Ž„ˆ€ŠŽ‚€. Ž„€ŠŽ ‘ˆŒ‚Ž‹œ›Œ Œ€‘‘ˆ- ‚€Œ …‹œ‡Ÿ ˆ‘‚€ˆ‚€’œ ‡€—…ˆŸ ‘’ŽŠŽ‚›• ……Œ…›• ˆ ‡€- —…ˆŸ, ŠŽ’Ž›… Ž‹“—€ž’‘Ÿ ‚ …‡“‹œ’€’… „…‰‘’‚ˆ‰, Ž…„…‹…- ›• ‘’ŽŠŽ‚›Œˆ ‚›€†…ˆŸŒˆ. 13. ’ˆ› ‡€ˆ‘…‰ ‡€ˆ‘œ -- ’Ž ‘’“Š’“€ „€›•, ‘Ž‘’ŽŸ™€Ÿ ˆ‡ ”ˆŠ‘ˆŽ- ‚€ŽƒŽ —ˆ‘‹€ ŠŽŒŽ…’Ž‚, €‡›‚€…Œ›• _Ž_‹_Ÿ_Œ_ˆ. Ž‹Ÿ ŒŽƒ“’ ›’œ €‡‹ˆ—ŽƒŽ ’ˆ€. Š€†„ŽŒ“ Ž‹ž ‡€„€…’‘Ÿ ˆŒŸ, ’€Š €‡›‚€…Œ›‰ ˆ_„_…__’_ˆ_”_ˆ_Š_€_’_Ž_ _Ž_‹_Ÿ. ˆ„…’ˆ”ˆŠ€’Ž Ž‹Ÿ ˆ‘Ž‹œ‡“…’‘Ÿ ˆ Žƒ€ˆ‡€–ˆˆ „Ž‘’“€ Š ŠŽŒŽ…’€Œ ‡€ˆ‘ˆ. 13.1. Ž…„…‹…ˆ… ‡€ˆ‘ˆ Ž…„…‹…ˆ… ’ˆ€ ‡€ˆ‘ˆ €—ˆ€…’‘Ÿ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ RECORD (‡€ˆ‘œ), ‡€ ˆŒ ‘‹…„“…’ ‘__ˆ_‘_Ž_Š _Ž_‹_…_‰ ‡€ˆ‘ˆ. ‚ ŠŽ–… ‘ˆ‘Š€ Ž‹…‰ ‡€ˆ‘ˆ ‘’€‚ˆ’‘Ÿ ‡€…‡…‚ˆŽ‚€- Ž… ‘‹Ž‚Ž END (ŠŽ…–). ‘ˆ‘ŽŠ Ž‹…‰ …„‘’€‚‹Ÿ…’ ‘ŽŽ‰ Ž‘‹…„Ž‚€’…‹œŽ‘’œ _€_‡_„_…_‹_Ž_‚ ‡_€__ˆ_‘_ˆ, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ’Ž—ŠŽ‰ ‘ ‡€Ÿ’Ž‰. Š€†„›‰ €‡„…‹ ‡€ˆ‘ˆ ‘Ž‘’Žˆ’ ˆ‡ Ž„ŽƒŽ ˆ‹ˆ …‘- ŠŽ‹œŠˆ• ˆ„…’ˆ”ˆŠ€’ŽŽ‚, Ž’„…‹Ÿ…Œ›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ, ‚‘‹…„ ‡€ ŠŽ’Ž›Œˆ ‘‹…„“…’ „‚Ž…’Ž—ˆ… ˆ ‹ˆŽ ˆ_„_…__’_ˆ_”_ˆ_Š_€_’_Ž_ ’ˆ€, ‹ˆŽ Ž__ˆ_‘_€__ˆ_… ’_ˆ__€ („…‘Šˆ’Ž). ’€ŠˆŒ Ž€‡ŽŒ, Š€†„›‰ €‡„…‹ ‡€ˆ‘ˆ Ž…„…‹Ÿ…’ 1 - 65 - ’ˆ Ž„ŽƒŽ ˆ‹ˆ Ž‹…… Ž‹…‰. TYPE DAY_OF_MONTH = 1..31; DATE = RECORD DAY : DAY_OF_MONTH; MONTH: (JAN,FED,MAR,APR,MAY,JUN, JULY,AUG,SEP,OCT,NOV,DEC); YEAR : 1900..1999; END; VAR BIRTH : DATE; WORKDAY : ARRAY[1..5] OF DATE; CURRENT : INTEGER; DAY, MONTH ˆ YEAR -- ’Ž ˆ„…’ˆ”ˆŠ€’Ž› Ž‹…‰. ˆ„…’ˆ- ”ˆŠ€’Ž Ž‹Ÿ „Ž‹†… ›’œ “ˆŠ€‹œ›Œ ’Ž‹œŠŽ ‚ …„…‹€• ’Ž‰ ‡€ˆ‘ˆ, ‚ ŠŽ’ŽŽ‰ Ž Ž…„…‹…. Ž€™…ˆ… Š Ž‹ž Ž‘“™…‘’‚- ‹Ÿ…’‘Ÿ ˆ ŽŒŽ™ˆ ˆ„…’ˆ”ˆŠ€’Ž€ ……Œ…Ž‰ ˆ ˆ„…’ˆ”ˆŠ€’Ž€ Ž‹Ÿ, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ’Ž—ŠŽ‰. ˆŒ…›: BIRTH.MONTH := JUN; BIRTH.YEAR := 1950; WORKDAY[CURRENT] := WORKDAY[CURRENT - 1]; Ž’Œ…’ˆŒ, —’Ž ‚ ‡€ˆ‘Ÿ•, ’€Š †…, Š€Š ˆ ‚ „€›• ’ˆ€ Œ€‘‘ˆ‚€, €‡…˜€…’‘Ÿ ‚›Ž‹Ÿ’œ Ž…€–ˆˆ ˆ‘‚€ˆ‚€ˆŸ Œ…†„“ ‡€ˆ‘ŸŒˆ Ž„ˆ€ŠŽ‚›• ’ˆŽ‚. ’€Š Š€Š ŠŽŒŽ…’› ‡€ˆ‘ˆ ŒŽƒ“’ ›’œ ‹žŽƒŽ ’ˆ€, ’Ž „Ž“‘Š€ž’‘Ÿ ŠŽ‘’“Š–ˆˆ ‘‹…„“ž™…ƒŽ ‚ˆ„€: TYPE NAME = RECORD FAMILY_NAME : STRING[32]; CHRISTIAN_NAMES : ARRAY[1..3] OF STRING[16]; END; RATE = RECORD NORMAL_RATE, OVERTIME, NIGHT_TIME, WEEKEND : INTEGER; END; DATE = RECORD DAY : 1..3; MONTH : (JAN,FEB,MAR,APR,MAY,JUN, JUL,AUG,SEP,OCT,NOV,DEC); YEAR : 1900..1999; END; PERSON = RECORD ID : NAME; TIME : DATE; END; WAGES = RECORD INDIVIDUAL : PERSON; COST : RATE; END; VAR SALARY, FEE : WAGES; 1 - 66 - “—ˆ’›‚€Ÿ ’Ž Ž…„…‹…ˆ…, ŒŽ†Ž ‘—ˆ’€’œ €‚ˆ‹œ›Œˆ ‘‹…„“ž™ˆ… Ž…€’Ž› ˆ‘‚€ˆ‚€ˆŸ: SALARY := FEE; SALARY.COST.OVERTIME := 950; SALARY.INDIVIDUAL.TIME := FEE.INDIVIDUAL.TIME; SALARY.INDIVIDUAL.ID.FAMILY_NAME := 'SMITH'; 13.2. Ž…€’Ž WITH ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ ’ˆŽ‚ ‡€ˆ‘…‰ ’€Š, Š€Š ’Ž ŽŠ€‡€Ž ‚›˜…, Ž‹“—€ž’‘Ÿ „Ž‚Ž‹œŽ „‹ˆ›… Ž…€’Ž›. ›‹Ž › “„Ž- ……, …‘‹ˆ › Œ› ŒŽƒ‹ˆ Ž€’ˆ’œ‘Ÿ Š Ž’„…‹œ›Œ Ž‹ŸŒ ‡€ˆ‘ˆ ’€Š, Š€Š …‘‹ˆ › Žˆ ›‹ˆ Ž‘’›Œˆ ……Œ…›Œˆ. ’“ ”“Š–ˆž ‚›Ž‹Ÿ…’ Ž…€’Ž WITH Ž "Ž’Š›‚€…’" ‡€ˆ‘œ ’€ŠˆŒ Ž€‡ŽŒ, —’Ž ˆ„…’ˆ”ˆŠ€’Ž› Ž‹…‰ ŒŽƒ“’ ˆ‘Ž‹œ‡Ž‚€’œ‘Ÿ Š€Š ˆ„…’ˆ”ˆ- Š€’Ž› ……Œ…›•. ‚‘‹…„ ‡€ ‡€…‡…‚ˆŽ‚€›Œ ‘‹Ž‚ŽŒ WHIT ‚ Ž…€’Ž… ‘‹…- „“…’ Ž„ˆ ˆ‹ˆ …‘ŠŽ‹œŠŽ (—……‡ ‡€Ÿ’“ž) ˆ„…’ˆ”ˆŠ€’ŽŽ‚ ……Œ…Ž‰ ’ˆ€ ‡€ˆ‘ˆ. ‡€ ‘ˆ‘ŠŽŒ ……Œ…›• ‘‹…„“…’ ‡€…- ‡…‚ˆŽ‚€Ž… ‘‹Ž‚Ž DO, ‡€ ŠŽ’Ž›Œ ŒŽ†…’ ‘‹…„Ž‚€’œ ‘Ž‘’€‚Ž‰ Ž…€’Ž, Žƒ€ˆ—…›‰ ‡€…‡…‚ˆŽ‚€›Œˆ ‘‹Ž‚€Œˆ BEGIN ˆ END, ‘Ž„…†€™ˆ‰ Ž…€’Ž› Ž€Ž’Šˆ ‘ŽŽ’‚…’‘’‚“ž™ˆ• Ž‹…‰ ‡€ˆ‘ˆ. ‚ Ÿ‡›Š… PASCAL/FAST ‚“’ˆ Ž…€’Ž€ WITH …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ „“ƒŽ‰ Ž…€’Ž WITH. ’Ž Ÿ‚‹Ÿ…’‘Ÿ Žƒ€ˆ—…ˆ…Œ Ž ‘€‚…ˆž ‘Ž ‘’€„€’ŽŒ ISO. WITH SALARY DO BEGIN INDIVIDUAL := NEW_EMPLOYED; COST := STANDARD_RATES; END; 13.3. ‡€ˆ‘ˆ ‘ ‚€ˆ€’€Œˆ ‘ˆ’€Š‘ˆ‘ ’ˆ€ ‡€ˆ‘…‰ …„“‘Œ€’ˆ‚€…’ ’€Š†… ˆ €‹ˆ—ˆ… ‡€ˆ‘…‰ ……Œ…Ž‰ ‘’“Š’“›, —’Ž Ž‡‚Ž‹Ÿ…’ €‡Œ…™€’œ ‚ Ž‹Ÿ• ‡€ˆ‘ˆ €‡‹ˆ—›… —ˆ‘‹€ ˆ €‡‹ˆ—›… ’ˆ› ŠŽŒŽ…’Ž‚, Ž›—Ž Ž…„…‹…›… ‡€—…ˆ…Œ Ž‹Ÿ ˆ‡€Š€. ‚€ˆ€’€Ÿ (ˆ‡Œ…Ÿ…Œ€Ÿ) —€‘’œ ‡€ˆ‘ˆ ‘Ž‘’Žˆ’ ˆ‡ Ž‹Ÿ ˆ‡€Š€ …„‚€ˆ’…‹œŽ ‡€„€ŽƒŽ ’ˆ€, ‡€—…ˆ… ŠŽ’ŽŽƒŽ Ž…„…‹Ÿ…’ ‚›ˆ€…Œ›‰ ‚€ˆ€’ ‡€ˆ‘ˆ. ‡€ _Ž_‹_…_Œ __ˆ_‡__€_Š_€ ‘‹…„“ž’ Œ…’Šˆ, ‘ŽŽ’‚…’‘’‚“ž™ˆ… Š€†„ŽŒ“ „Ž“‘’ˆŒŽŒ“ ‡€—…ˆž Ž‹Ÿ ˆ‡€Š€. Š€†„€Ÿ Œ…’Š€ Ÿ‚‹Ÿ…’‘Ÿ ‡€ƒŽ‹Ž‚ŠŽŒ „‹Ÿ ‘__ˆ_‘_Š_€ _Ž_‹_…_‰, ŠŽ’Ž›‰ Ž…„…‹Ÿ…’ ’ˆ ‚€ˆ€’€ ‘ŽŽ’‚…’‘’‚“ž™…ƒŽ Œ…’Š…. …„Ž‹Ž†ˆŒ, —’Ž Ž…„…‹… ’ˆ: ORIGIN = (CITIZEN, 1 - 67 - ALIEN), € ’€Š†… ’ˆ› NAME ˆ DATE, ’Žƒ„€ …‘‹ˆ ˆ‘Ž‹œ‡Ž‚€’œ ‡€ˆ‘ˆ ˆ‡ ˆ‚…„…ŽƒŽ ˆ†… ˆŒ…€, ’Ž Ž‹… CITIZEN_SHIP ŒŽ†…’ ˆŒ…’œ €‡‹ˆ—“ž ‘’“Š’““, ‚ ‡€‚ˆ‘ˆŒŽ‘’ˆ Ž’ ’ŽƒŽ, Š€ŠŽ… ‡€—…ˆ… ˆˆŒ€…’ Ž‹… -- CITIZEN ˆ‹ˆ ALIEN. TYPE PERSON = RECORD PERSON_NAME : NAME; BIRTH_DATE : DATE; CASE CITIZEN_SHIP : ORIGIN OF CITIZEN :(BIRTH_PLACE : NAME); ALIEN :(COUNTRY_OF_ORIGIN : NAME; DATE_OF_ENTRY : DATE; PERMITTED_UNTIL : DATE; PORT_OF_ENTRY : NAME); END; ‚ ’ŽŒ ‚€ˆ€’… Žˆ‘€ˆŸ ‡€ˆ‘ˆ Ž‹…Œ-ˆ‡€ŠŽŒ Ÿ‚‹Ÿ…’- ‘Ÿ Ÿ‚Ž… Ž‹…, ŠŽ’ŽŽ… ŒŽ†Ž ‚›€’œ ˆ ŽŽ‚ˆ’œ ’Ž—Ž ’€Š†…, Š€Š ˆ ‹žŽ… „“ƒŽ… Ž‹…. ’€ŠˆŒ Ž€‡ŽŒ, …‘‹ˆ ……Œ…€Ÿ PASSENGER ˆŒ……’ ’ˆ PERSON, ’Ž ‘Ž‚…˜…Ž €‚ˆ‹œ› ‘‹…„“ž- ™ˆ… Ž…€’Ž›: PASSENGER.CITIZEN_SHIP := CITIZEN; WITH PASSENGER DO IF CITIZEN_SHIP = ALIEN THEN WRITELN (PERSON_NAME,FAMILY_NAME); 14. ŒŽ†…‘’‚…›‰ ’ˆ 14.1. Ž…„…‹…ˆ… ŒŽ†…‘’‚…ŽƒŽ ’ˆ€ ŒŽ†…‘’‚…›‰ ’ˆ ‡€„€…’‘Ÿ ˆ ŽŒŽ™ˆ ‡€…‡…‚ˆŽ‚€Ž- ƒŽ ‘‹Ž‚€ SET, ‡€ ŠŽ’Ž›Œ ‘‹…„“…’ Ž‘’Ž‰ ’ˆ. ˆŒ…›: TYPE DAYS_OF_MONTH = SET OF 0..31; WORK_WEEK = SET OF MON..FRI; LETTER = SET OF 'A'..'Z'; ADDITIVE_COLORS = SET OF (RED,GREEN,BLUE); CHARACTERS = SET OF CHAR; ‚ PASCAL/FAST Œ€Š‘ˆŒ€‹œŽ… ŠŽ‹ˆ—…‘’‚Ž ‹…Œ…’Ž‚ ‚ ŒŽ- †…‘’‚… €‚Ž 256 ˆ ŽŸ„ŠŽ‚›… ‡€—…ˆŸ €‡Ž‚ŽƒŽ ’ˆ€ „Ž‹†› ‹…†€’œ ‚ „ˆ€€‡Ž… Ž’ 0 „Ž 255. 1 - 68 - 14.2. ŒŽ†…‘’‚…›… ‚›€†…ˆŸ ‡€—…ˆŸ ŒŽ†…‘’‚ ŒŽ†Ž ‚›—ˆ‘‹Ÿ’œ, ˆ‘•Ž„Ÿ ˆ‡ ‡€—…ˆ‰ „“ƒˆ• ŒŽ†…‘’‚, ˆ ŽŒŽ™ˆ ŒŽ†…‘’‚…›• ‚›€†…ˆ‰. ŒŽ- †…‘’‚…›… ‚›€†…ˆŸ ‘Ž‘’ŽŸ’ ˆ‡ ŒŽ†…‘’‚…›• ŠŽ‘’€’, ŒŽ- †…‘’‚…›• ……Œ…›•, ŒŽ†…‘’‚…›• ŠŽ‘’“Š’ŽŽ‚ ˆ Ž…€- ’ŽŽ‚ €„ ŒŽ†…‘’‚€Œˆ. 14.3. ŒŽ†…‘’‚…›… ŠŽ‘’“Š’Ž› ŒŽ†…‘’‚…›‰ ŠŽ‘’“Š’Ž ‘Ž‘’Žˆ’ ˆ‡ Ž„Ž‰ ˆ‹ˆ Ž‹…… ‘…–ˆ”ˆŠ€–ˆ‰ ‹…Œ…’Ž‚, €‡„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ ˆ ‡€Š‹ž—…›• ‚ Š‚€„€’›… ‘ŠŽŠˆ. ‘…–ˆ”ˆŠ€–ˆŸ ‹…Œ…’€ -- ’Ž ‚›€†…ˆ… ’ŽƒŽ †… ’ˆ€, —’Ž ˆ €‡Ž‚›‰ ’ˆ ŒŽ†…‘’‚€ ˆ‹ˆ „ˆ€€‡Ž, ŠŽ’Ž›‰ ‡€„€…’‘Ÿ ˆ ŽŒŽ™ˆ „‚“• ’€Šˆ• ‚›€†…ˆ‰ Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ „‚“ŒŸ ’Ž—Š€Œˆ (..). ˆŒ…›: ['P','A','S','C','A','L'] [X,Y] [X..Y] [1..5] ['A'..'Z','A','Z','0'..'9'] [1,3..10,12] [] Ž‘‹…„ˆ‰ ˆŒ… ‡€„€…’ “‘’Ž… ŒŽ†…‘’‚Ž, ŠŽ’ŽŽ…, Ž‘- ŠŽ‹œŠ“ ŽŽ … ‘Ž„…†ˆ’ ‚›€†…ˆ‰ „‹Ÿ “Š€‡€ˆŸ …ƒŽ €‡Ž‚ŽƒŽ ’ˆ€, Ÿ‚‹Ÿ…’‘Ÿ ‘Ž‚Œ…‘’ˆŒ›Œ ‘Ž ‚‘…Œˆ ’ˆ€Œˆ ŒŽ†…‘’‚. ŒŽ- †…‘’‚Ž [1..5] Š‚ˆ‚€‹…’Ž ŒŽ†…‘’‚“ [1,2,3,4,5]. …‘‹ˆ X > Y, ’Ž [X..Y] ŽŽ‡€—€…’ “‘’Ž… ŒŽ†…‘’‚Ž. ˆŒ…: [5..3] = [] 14.4. Ž…€’Ž› €„ ŒŽ†…‘’‚€Œˆ ‚‘… Ž…€’Ž› €„ ŒŽ†…‘’‚€Œˆ „…‹Ÿ’‘Ÿ € ’ˆ Š‹€‘‘€. ŽŸ„ŽŠ ‚›Ž‹…ˆŸ Ž…€–ˆ‰ Ž…„…‹Ÿ…’‘Ÿ, ˆ‘•Ž„Ÿ ˆ‡ ‘‹…„“ž- ™…‰ Š‹€‘‘ˆ”ˆŠ€–ˆˆ (‚ ŽŸ„Š… “›‚€ˆŸ): 1 - 69 - 1) * ……‘…—…ˆ… ŒŽ†…‘’‚ („ˆ‡'žŠ–ˆŸ) 2) + Ž'…„ˆ…ˆ… ŒŽ†…‘’‚ - €‡Ž‘’œ ŒŽ†…‘’‚ 3) = Ž‚…Š€ € €‚…‘’‚Ž ŒŽ†…‘’‚ (TRUE, …‘‹ˆ ŒŽ†…‘’‚€ €‚›) <> Ž‚…Š€ € …€‚…‘’‚Ž (TRUE, …‹ˆ ŒŽ†…‘’‚€ … €‚›) >= TRUE (ˆ‘’ˆ€),…‘‹ˆ ‚‘… ‹…Œ…’› ‚’ŽŽƒŽ Ž…€„€ ‘Ž„…†€’‘Ÿ ‚ …‚ŽŒ Ž…€„… <= TRUE (ˆ‘’ˆ€),…‘‹ˆ ‚‘… ‹…Œ…’› …‚ŽƒŽ Ž…€„€ ‘Ž„…†€’‘Ÿ ‚Ž ‚’ŽŽŒ Ž…€„… IN Ž‚…Š€ € ˆ€„‹…†Ž‘’œ ŒŽ†…‘’‚“. ‚’ŽŽ‰ Ž…€„ -- ’Ž ……Œ…€Ÿ ŒŽ†…‘’‚…ŽƒŽ ’ˆ€, € …‚›‰ Ž…€„ -- ‚›€†…ˆ… ’ŽƒŽ †… ’ˆ€, —’Ž ˆ €‡Ž‚›‰ ’ˆ ŒŽ†…‘’‚€. …‡“‹œ’€’ ˆˆŒ€…’ ‡€—…ˆ… TRUE (ˆ‘’ˆ€), …‘‹ˆ …‚›‰ Ž…€„ Ÿ‚‹Ÿ…’‘Ÿ —‹…ŽŒ ‚’ŽŽƒŽ Ž…€„€, ‚ Ž’ˆ‚ŽŒ ‘‹“—€… …‡“‹œ’€’ ˆˆŒ€…’ ‡€—…ˆ… FALSE (‹Ž†œ). „ˆ‡'žŠ–ˆŸ ŒŽ†…‘’‚ (…‘‹ˆ “ ŒŽ†…‘’‚ …’ Ž™ˆ• —‹…Ž‚) ŒŽ†…’ ›’œ ‡€ˆ‘€€ ‘‹…„“ž™ˆŒ Ž€‡ŽŒ: A * B = []; ’Ž …‘’œ ……‘…—…ˆ… „‚“• ŒŽ†…‘’‚ ‚ „€ŽŒ ‘‹“—€… -- “‘’Ž… ŒŽ†…‘’‚Ž. ŒŽ†…‘’‚…›… ‚›€†…ˆŸ ›‚€…’ Ž‹…‡Ž ˆŒ…Ÿ’œ „‹Ÿ ’ŽƒŽ, —’Ž› ‘„…‹€’œ Ž‹…… €ƒ‹Ÿ„›Œ Ž—…œ ‘‹Ž†›… Ž‚…Šˆ. €ˆŒ…: Ž‚…Š“ IF(CH='F') OR (CH='A') OR (CH='S') OR (CH='T') THEN ... ŒŽ†Ž ‡€ˆ‘€’œ Ž‹…… €ƒ‹Ÿ„Ž ‚ ‚ˆ„… IF CH IN ['F','A','S','T'] THEN ... € Ž‚…Š“ IF (CH>='0') AND (CH<='9') THEN ... “„Ž…… ‡€ˆ‘€’œ ’€Š: IF CH IN ['0'..'9'] THEN ... 1 - 70 - 14.5. Ž…€–ˆˆ ˆ‘‚€ˆ‚€ˆŸ €„ „€›Œˆ ŒŽ†…‘’- ‚…ŽƒŽ ’ˆ€ ˆ ŽŒŽ™ˆ Ž…€–ˆˆ ˆ‘‚€ˆ‚€ˆŸ ‡€—…ˆŸ ŒŽ†…‘’‚…›• ‚›€†…ˆ‰ ˆ‘‚€ˆ‚€ž’‘Ÿ ……Œ…›Œ ŒŽ†…‘’‚…ŽƒŽ ’ˆ€ ˆŒ…›: TYPE ASCII = SET OF 0..127; VAR NO_PRINT, PRINT, ALL_CHARS : ASCII; BEGIN ALL_CHARS := [0..127]; NO_PRINT := [0.."37]; PRINT := ALL_CHARS - NO_PRINT; END. 15. ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’› ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’› ˆŒ…Ÿž’‘Ÿ ’Ž‹œŠŽ ‚ Ÿ‡›Š… PASCAL/FAST. ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’› ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ ’Ž—Ž ’€Š †…, Š€Š ˆ ……Œ…›… Ž„ŽƒŽ ˆ ’ŽƒŽ †… ’ˆ€. ’€ŠˆŒ Ž€‡ŽŒ, ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’› ŒŽ†Ž ˆ‘Ž‹œ‡Ž‚€’œ, Š€Š "ˆˆ–ˆ€‹ˆ‡ˆŽ‚€›… ……Œ…›…", ’€Š Š€Š ‡€—…ˆ… ’ˆˆ‡ˆŽ- ‚€Ž‰ ŠŽ‘’€’› Ž…„…‹…Ž, ’Žƒ„€ Š€Š ‡€—…ˆ… ……Œ…Ž‰ “„…’ …Ž…„…‹…Ž „Ž ’…• Ž, ŽŠ€ …‰ ˆ ŽŒŽ™ˆ Ž…€’Ž€ ˆ‘‚€ˆ‚€ˆŸ … “„…’ ˆ‘‚Ž…Ž Š€ŠŽ…-ˆ“„œ ‡€—…ˆ…. …‘’…‘’‚…Ž, “†Ž ›’œ Ž—…œ ‚ˆŒ€’…‹œ›Œ, —’Ž› … ˆ‘- ‚Žˆ’œ ’ˆˆ‡ˆŽ‚€›Œ ŠŽ‘’€’€Œ ‡€—…ˆŸ, ŠŽ’Ž›… Ž ‘“’ˆ ŠŽ‘’€’€Œˆ … Ÿ‚‹Ÿž’‘Ÿ. ˆ‘Ž‹œ‡Ž‚€ˆ… ’ˆˆ‡ˆŽ‚€›• ŠŽ‘’€’ Ž‡‚Ž‹Ÿ…’ ‘„…‹€’œ Žƒ€ŒŒ“ Ž‹…… ŠŽŒ€Š’Ž‰, …‘‹ˆ ŠŽ‘’€’€ —€‘’Ž ˆ‘Ž‹œ‡“…’- ‘Ÿ ‚ Žƒ€ŒŒ…,’.Š. ’ˆˆ‡ˆŽ‚€€Ÿ ŠŽ‘’€’€ ‚Š‹ž—€…’‘Ÿ ‚ Žƒ€ŒŒ“ ’Ž‹œŠŽ Ž„ˆ €‡, ’Žƒ„€ Š€Š …’ˆˆ‡ˆŽ‚€€Ÿ ŠŽ‘- ’€’€ ‚Š‹ž—€…’‘Ÿ ‚ Žƒ€ŒŒ“ ‚‘ŸŠˆ‰ €‡ ˆ …… ˆ‘Ž‹œ‡Ž‚€- ˆˆ. ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’› Ž…„…‹Ÿž’‘Ÿ ’€Š †…, Š€Š ˆ …’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’›, ‡€ ˆ‘Š‹ž—…ˆ…Œ ’ŽƒŽ, —’Ž ‚ Ž…- „…‹…ˆ… ‡€„€ž’ … ’Ž‹œŠŽ ‡€—…ˆ… ŠŽ‘’€’›, Ž ˆ …… ’ˆ. ‚ Ž…„…‹…ˆˆ ’ˆˆ‡ˆŽ‚€Ž‰ ŠŽ‘’€’› ‚‘‹…„ ‡€ ˆ„…’ˆ”ˆŠ€’Ž- ŽŒ ‘’€‚ˆ’‘Ÿ „‚Ž…’Ž—ˆ…, ‡€ ŠŽ’Ž›Œ ‘‹…„“…’ ˆ„…’ˆ”ˆŠ€’Ž ˆ‹ˆ Žˆ‘€ˆ… ’ˆ€. Ž‘‹… ˆ„…’ˆ”ˆŠ€’Ž€ ’ˆ€ ‘’€‚ˆ’‘Ÿ ‡€Š €‚…‘’‚€ ˆ ‘€ŒŽ ‡€—…ˆ… ŠŽ‘’€’›. 1 - 71 - 15.1. …‘’“Š’“›… ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’› …‘’“Š’“€Ÿ ’ˆˆ‡ˆŽ‚€€Ÿ ŠŽ‘’€’€ -- ’Ž ŠŽ‘’€- ’€, Ž…„…‹Ÿ…Œ€Ÿ, Š€Š Ž„ˆ ˆ‡ ‘Š€‹Ÿ›• ’ˆŽ‚: CONST NUMBER_OF_CARS : INTEGER = 1267; INTEREST : REAL = 12.67; HANDING : STRING[7] = 'SECTION'; XON : CHAR = '^Q'; ‚ Ž’‹ˆ—ˆ… Ž’ …’ˆˆ‡ˆŽ‚€›• ŠŽ‘’€’, ’ˆˆ‡ˆŽ‚€€Ÿ ŠŽ‘’€’€ ŒŽ†…’ ˆ‘Ž‹œ‡Ž‚€’œ‘Ÿ ‚Œ…‘’Ž ……Œ…Ž‰, Š€Š ……- Œ…›‰ €€Œ…’ Ž–…„“› ˆ‹ˆ ”“Š–ˆˆ. ’€Š Š€Š, ”€Š’ˆ—…‘Šˆ ’ˆˆ‡ˆŽ‚€€Ÿ ŠŽ‘’€’€ Ÿ‚‹Ÿ…’‘Ÿ ……Œ…Ž‰ ‘ Ž‘’ŽŸ›Œ ‡€—…ˆ…Œ , …… …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ ‚ Ž…„…‹…ˆˆ „“ƒˆ• ŠŽ‘’€’ ˆ‹ˆ ’ˆŽ‚. ’€ŠˆŒ Ž€‡ŽŒ, ’€Š Š€Š MIN ˆ MAX Ÿ‚‹Ÿž’- ‘Ÿ ’ˆˆ‡ˆŽ‚€›Œˆ ŠŽ‘’€’€Œˆ, ‘‹…„“ž™€Ÿ ˆ‘’“Š–ˆŸ Ÿ‚‹Ÿ…’- ‘Ÿ Ž˜ˆŽ—Ž‰: CONST MIN : INTEGER = 0; MAX : INTEGER = 50; TYPE RANGE : ARRAY[MIN..MAX] OF INTEGER; (* Ž˜ˆŠ€: ˆ Ž…„…‹…ˆˆ ’ˆ€ ˆ‘Ž‹œ‡“…’‘Ÿ ’ˆˆ‡ˆŽ‚€€Ÿ ŠŽ‘’€’€ *) 15.2. ‘’“Š’“›… ’ˆˆ‡ˆŽ‚€›… ŠŽ‘’€’› Š ‘’“Š’“›Œ ’ˆˆ‡ˆŽ‚€›Œ ŠŽ‘’€’€Œ Ž’Ž‘Ÿ’‘Ÿ ŠŽ‘- ’€’› ’ˆ€ Œ€‘‘ˆ‚Ž‚ ˆ ’ˆ€ ‡€ˆ‘ˆ. Žˆ —€‘’Ž ˆ‘Ž‹œ‡“ž’‘Ÿ „‹Ÿ ‘Ž‡„€ˆŸ ˆˆ–ˆ€‹ˆ‡ˆŽ‚€›• ’€‹ˆ– „‹Ÿ ”“Š–ˆ‰ Ž€Ž’Šˆ ˆ‡Ž€†…ˆ‰ ˆ ’.„. ‚ Ž‘‹…„“ž™ˆ• €‡„…‹€• Ž„ŽŽ Žˆ‘›- ‚€…’‘Ÿ Š€†„€Ÿ ˆ‡ ‘’“Š’“›• ŠŽ‘’€’. 15.2.1. ŠŽ‘’€’› ’ˆ€ Œ€‘‘ˆ‚Ž‚ Ž…„…‹…ˆ… ŠŽ‘’€’› ’ŽƒŽ ’ˆ€ ‘Ž‘’Žˆ’ ˆ‡ ˆ„…’ˆ”ˆŠ€- ’Ž€, ‡€ ŠŽ’Ž›Œ ‘‹…„“…’ „‚Ž…’Ž—ˆ…, Ž‘‹… „‚Ž…’Ž—ˆŸ ‡€ˆ‘›- ‚€…’‘Ÿ ˆ„…’ˆ”ˆŠ€’Ž ’ˆ€, …„‚€ˆ’…‹œŽ Ž…„…‹…ŽƒŽ Š€Š ’ˆ Œ€‘‘ˆ‚€ ˆ‹ˆ Žˆ‘€ˆ… ’ˆ€ Œ€‘‘ˆ‚€. Ž‘‹… …ƒŽ ‘’€‚ˆ’‘Ÿ ‡€Š €‚…‘’‚€ ˆ ‡€’…Œ ‡€—…ˆ… ŠŽ‘’€’›, …„‘’€‚‹…Ž… ‚ ‚ˆ„… €Ž€ ŠŽ‘’€’, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ ˆ ‡€Š‹ž—…›• ‚ Š“ƒ‹›… ‘ŠŽŠˆ. 1 - 72 - ˆŒ…›: TYPE STATUS = (ACTIVE,PASSIVE,WAITING); STRING_REP = ARRAY[STATUS] OF STRING[7]; CONST STAT : STRING_REP = ('ACTIVE','PASSIVE','WAITING'); ‚ „€ŽŒ ˆŒ…… Ž…„…‹Ÿ…’‘Ÿ ŠŽ‘’€’€ STAT (’ˆˆ‡ˆŽ- ‚€€Ÿ ŠŽ‘’€’€ ’ˆ€ Œ€‘‘ˆ‚€), ŠŽ’Ž€Ÿ ŒŽ†…’ ›’œ ˆ‘Ž‹œ‡Ž- ‚€€ „‹Ÿ …Ž€‡Ž‚€ˆŸ ‡€—…ˆ‰ ‘Š€‹ŸŽƒŽ ’ˆ€ STATUS ‚ ‘ŽŽ’‚…’‘’‚“ž™…… ˆŒ ‘’ŽŠŽ‚Ž… ‡€—…ˆ…. ŠŽŒŽ…’€Œˆ ŠŽ‘’€- ’› STAT Ÿ‚‹Ÿž’‘Ÿ: STAT[ACTIVE] = 'ACTIVE' STAT[PASSIVE] = 'PASSIVE' STAT[WAITING] = 'WAITING' ’ˆ ŠŽŒŽ…’ ŠŽ‘’€’› ’ˆ€ Œ€‘‘ˆ‚€ ŒŽ†…’ ›’œ ‹žŽ‰ ’ˆ, ŠŽŒ… ’ˆŽ‚ FILE (”€‰‹) ˆ POINTER (“Š€‡€’…‹œ). ‘ˆŒ‚Ž‹œ- ›… ŠŽ‘’€’› ’ˆ€ Œ€‘‘ˆ‚€ ŒŽƒ“’ ›’œ ‘…–ˆ”ˆ–ˆŽ‚€› Š€Š Ž„ˆŽ—›… ‘ˆŒ‚Ž‹› ˆ Š€Š ‘’ŽŠˆ. ’€ŠˆŒ Ž€‡ŽŒ Ž…„…‹…ˆ…: CONST DIGITS : ARRAY[0..9] OF CHAR = ('0','1','2','3','4','5','6','7','8','9'); ŒŽ†Ž ‡€ˆ‘€’œ ‚ Ž‹…… “„ŽŽ‰ ”ŽŒ… : CONST DIGITS: ARRAY[0..9] OF CHAR = '0123456789'; 15.2.2. ŒŽƒŽŒ…›… ŠŽ‘’€’› ’ˆ€ Œ€‘‘ˆ‚Ž‚ ŒŽƒŽŒ…›… ŠŽ‘’€’› ’ˆ€ Œ€‘‘ˆ‚Ž‚ ŒŽ†Ž Ž…„…‹ˆ’œ, ‚›„…‹ˆ‚ ŠŽ‘’€’›, Ž…„…‹Ÿž™ˆ… ‡€—…ˆ… Ž Š€†„ŽŒ“ "€€‚- ‹…ˆž" ‚ Ž’„…‹œ›… ‘ŠŽŠˆ , Ž’„…‹…›… „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›- Œˆ. ‹…†€™ˆ… ‚“’ˆ ŠŽ‘’€’› ‘ŽŽ’‚…’‘’‚“ž’ ‘€Œ›Œ €‚›Œ ˆ„…Š‘€Œ €‡Œ…Ž‘’ˆ. TYPE CUBE = ARRAY[0..1,0..1,0..1] OF INTEGER; CONST MAZE : CUBE = (((0,1),(2,3)),((4,5),(6,7))); BEGIN WRITELN(MAZE[0,0,0],' = 0'); WRITELN(MAZE[0,0,1],' = 1'); WRITELN(MAZE[0,1,0],' = 2'); WRITELN(MAZE[0,1,1],' = 3'); WRITELN(MAZE[1,0,0],' = 4'); WRITELN(MAZE[1,0,1],' = 5'); WRITELN(MAZE[1,1,0],' = 6'); WRITELN(MAZE[1,1,1],' = 7'); END. 1 - 73 - 15.2.3. ŠŽ‘’€’› ’ˆ€ ‡€ˆ‘…‰ Ž…„…‹…ˆ… ŠŽ‘’€’› ’ˆ€ ‡€ˆ‘…‰ ˆŒ……’ ‘‹…„“ž™“ž ‘’“Š’““: ‘€—€‹€ ‘’Žˆ’ ˆ„…’ˆ”ˆŠ€’Ž ŠŽ‘’€’›, ‡€ ˆŒ „‚Ž…’Ž—ˆ…, ‡€ „‚Ž…’Ž—ˆ…Œ -- ˆ„…’ˆ”ˆŠ€’Ž …„‚€ˆ’…‹œŽ Ž…„…‹…ŽƒŽ ’ˆ€ ‡€ˆ‘ˆ ‹ˆŽ Ž…„…‹…ˆ… ’ˆ€ ‡€ˆ‘ˆ, Ž‘- ‹… ŠŽ’ŽŽƒŽ ‘’€‚ˆ’‘Ÿ ‡€Š €‚…‘’‚€ ˆ, €ŠŽ…–, ‘€Œ€ ŠŽ‘- ’€’€, …„‘’€‚‹…€Ÿ ‚ ‚ˆ„… ‘ˆ‘Š€ ŠŽ‘’€’, ‡€„€ž™ˆ• ‡€- —…ˆ… Ž‹…‰, Ž’„…‹…›• „“ƒ Ž’ „“ƒ€ ‡€Ÿ’›Œˆ, ˆ ‡€Š‹ž—…- ŽƒŽ ‚ ‘ŠŽŠˆ. TYPE POINT = RECORD X,Y,Z INTEGER; END; OS = (RT_11,RSX_11,RSTS,UNIX); UI = (CCP,SOMETHING_ELSE,M…NU_MASTER); COMPUTER = RECORD OPERATING_SYSTEMS : ARRAY[1..4] OF OS; USER_INTERFACE : UI; END; CONST ORIGO : POINT = (X : 0; Y : 0; Z : 0;); SUPER_COMP : COMPUTER = (OPERATING_SYSTEMS :(RT_11,RSX_11,RSTS,UNIX); USER_INTERFACE:M…NU_MASTER); PLANOL : ARRAY[1..3] OF POINT = ((X:1;Y:4;Z:5),(X:10;Y:-78;Z:45),(X:100;Y:10;Z:-7)); Ž‹Ÿ-ŠŽ‘’€’› „Ž‹†› ›’œ ŽP…„…‹…› ‚ ’ŽŒ †… ŽPŸ„Š… ‚ Š€ŠŽŒ Žˆ P€‘Ž‹€ƒ€ž’‘Ÿ ‚ ŽP…„…‹…ˆˆ ’ˆ€ ‡€ˆ‘…‰. …‘‹ˆ ‚ ‡€ˆ‘ˆ ‘Ž„…P†€’‘Ÿ Ž‹Ÿ ’ˆ€ ”€‰‹Ž‚ ˆ‹ˆ ’ˆ€ “Š€‡€’…‹…‰, ’Ž ŠŽ‘’€’› ’€ŠŽƒŽ ’ˆ€ ‡€ˆ‘…‰ ŽP…„…‹ˆ’œ …‹œ‡Ÿ. …‘‹ˆ ŠŽ‘- ’€’€ ’ˆ€ ‡€ˆ‘ˆ ‘Ž„…P†ˆ’ ‚€ˆ€’›, ’Ž PŽƒP€ŒŒˆ‘’ „Ž‹†… ‹ˆ˜œ Ž‹… ŠŽŠ…’ŽƒŽ ‚€ˆ€’€. …‘‹ˆ ‚€Pˆ€’€Ÿ —€‘’œ ‘Ž„…P†ˆ’ Ž‹… Pˆ‡€Š€, ’Ž …ƒŽ ‡€—…ˆ… ’Ž†… ‘‹…„“…’ ŽP…„…‹ˆ’œ. 15.3. ŠŽ‘’€’› ŒŽ†…‘’‚…ŽƒŽ ’ˆ€ ŠŽ‘’€’€ ŒŽ†…‘’‚…ŽƒŽ ’ˆ€ ‘Ž‘’Žˆ’ ˆ‡ Ž„Ž‰ ˆ‹ˆ Ž‹…… ‘…–ˆ”ˆŠ€–ˆ‰ ‹…Œ…’Ž‚, Ž’„…‹…›• „P“ƒ Ž’ „P“ƒ€ ‡€Ÿ- ’›Œˆ ˆ ‡€Š‹ž—…›• ‚ Š‚€„P€’›… ‘ŠŽŠˆ. ‚ Š€—…‘’‚… ‘…–ˆ”ˆ- Š€–ˆˆ ‹…Œ…’€ ŒŽ†…’ ‚›‘’“€’œ ŠŽ‘’€’€ ˆ‹ˆ ‚›P€†…ˆ…, ŽƒP€ˆ—ˆ‚€ž™…… P€ŒŠˆ „ˆ€€‡Ž€. ’€ŠŽ… ‚›P€†…ˆ… ‘Ž‘’Žˆ’ ˆ‡ „‚“• ŠŽ‘’€’, Ž’„…‹…›• „P“ƒ Ž’ „P“ƒ€ '..'. PˆŒ…P: TYPE LAT = SET OF 'A'..'Z'; RUS = SET OF 'ž'..'—'; 1 - 74 - CONST UPPER_CASE : LAT = ['A'..'Z']; VOCALS : RUS = ['','€','‘','Š','€','‹','œ']; DELIMITER : SET OF CHAR = [' '..'/',':'..'?','['..'''','*'..'_']; 16. ’ˆ› ”€‰‹Ž‚ ”_€_‰_‹_› Ž…‘…—ˆ‚€ž’ PŽƒP€ŒŒ… Š€€‹›, Ž ŠŽ’ŽP›Œ ŒŽ†Ž ‚›Ž‹Ÿ’œ …P…„€—“ „€›•. Ž„ ”€‰‹ŽŒ ŒŽ†Ž ŽˆŒ€’œ ‹ˆŽ „ˆ‘ŠŽ‚›‰ ”€‰‹ -- ’Ž ”€‰‹, •P€Ÿ™ˆ‰‘Ÿ € „ˆ‘Š…, ˆ ‚ ’ŽŒ ‘‹“—€… „€›… ‘—ˆ’›‚€ž’‘Ÿ ˆ‹ˆ ‡€ˆ‘›‚€ž’‘Ÿ € Š€ŠŽ‰- ˆ“„œ Œ€ƒˆ’›‰ Ž‘ˆ’…‹œ, ‹ˆŽ ‹_Ž_ƒ_ˆ_—_…_‘_Š_ˆ_… “_‘_’_P_Ž_‰_‘_’_‚_€, ’€Šˆ…, €PˆŒ…P, Š€Š P…„‚€Pˆ’…‹œŽ ŽP…„…‹…›… ‚ ‘ˆ‘’…Œ… ”€‰‹› INPUT ˆ‹ˆ OUTPUT, ŠŽ’ŽP›… ŽP€™€ž’‘Ÿ Š “‘’Ž‰‘’‚€Œ —……‡ ‘’€„€P’›… Š€€‹› ‚‚Ž„€- ‚›‚Ž„€ Ž…€–ˆŽŽ‰ ‘ˆ‘’…Œ›. ‚ Š€—…‘’‚… ‹Žƒˆ—…‘Šˆ• “‘’PŽ‰‘’‚ ŒŽƒ“’ ‚›‘’“€’œ ’€Š†… Š‹€‚ˆ€’“P€ ˆ‹ˆ ŠP€ ’…PŒˆ€‹€. ”€‰‹ ‘Ž‘’Žˆ’ ˆ‡ Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ ŠŽŒŽ…’ Ž„ŽƒŽ ˆ ’ŽƒŽ †… ’ˆ€. ŠŽ‹ˆ—…‘’‚Ž ŠŽŒŽ…’ ‚ ”€‰‹… (P€‡Œ…P ”€‰‹€) ‚ Žˆ‘€ˆˆ ”€‰‹€ … ŽP…„…‹Ÿ…’‘Ÿ. ‚Œ…‘’Ž ’ŽƒŽ ‘ˆ‘’…Œ€ Ÿ‡›Š€ PASCAL/FAST •P€ˆ’ „…‘Šˆ’Ž ”€‰‹€, „Ž‘’“ Š ŠŽ’ŽPŽŒ“ ŒŽ†Ž Ž‹“—ˆ’œ —…P…‡ “Š€‡€’…‹œ ”€‰‹€. Š€†„›‰ P€‡, ŠŽƒ„€ Š€ŠŽ‰-‹ˆŽ ŠŽŒŽ…’ ‡€ˆ‘›‚€…’‘Ÿ ‚ ”€‰‹ ˆ‹ˆ ‘—ˆ’›‚€…’‘Ÿ ˆ‡ …ƒŽ, “Š€- ‡€’…‹œ ”€‰‹€ …P…Œ…™€…’‘Ÿ Š ‘‹…„“ž™…‰ ŠŽŒŽ…’…. € ’€Š Š€Š ‚‘… ŠŽŒŽ…’› ”€‰‹€ ˆŒ…ž’ Ž„ˆ€ŠŽ‚“ž „‹ˆ“, Ž‹Ž†…ˆ… Š€ŠŽ- ƒŽ-‹ˆŽ ŽP…„…‹…ŽƒŽ ŠŽŒŽ…’€ ŒŽ†Ž ‹…ƒŠŽ ‚›—ˆ‘‹ˆ’œ. ’€ŠˆŒ ŽP€‡ŽŒ, “Š€‡€’…‹œ ”€‰‹€ ŒŽ†Ž …P…„‚ˆ“’œ Š ‹žŽŒ“ ŠŽŒŽ…’“ ”€‰‹€, —’Ž Ž…‘…—ˆ‚€…’ PŸŒŽ‰ „Ž‘’“ ŠŽ ‚‘…Œ ŠŽŒŽ…’€Œ ”€‰‹€. 16.1. Ž…„…‹…ˆ… ’ˆ€ ”€‰‹Ž‚. ŽP…„…‹…ˆ… ’ˆ€ ”€‰‹Ž‚ €—ˆ€…’‘Ÿ ‡€P…‡…P‚ˆPŽ‚€›Œˆ ‘‹Ž‚€Œˆ FILE OF Ž‘‹… ŠŽ’ŽP›• ‡€„€…’‘Ÿ ’ˆ ŠŽŒŽ…’Ž‚ ”€‰- ‹€, Žˆ‘€›‰ Š€Š Ž›—Ž. 1 - 75 - PˆŒ…P›: TYPE PRODUCT_NAME = STRING[80]; PRODUCT = FILE OF RECORD NAME : PRODUCT_NAME; ITEM_NUMBER : REAL; IN_STOCK : REAL; MIN_STOCK : REAL; SUPPLIER : INTEGER; END; VAR PRODUCT_FILE : PRODUCT; PRODUCT_NAMES : FILE OF PRODUCT_NAME; ’ˆŽŒ ŠŽŒŽ…’Ž‚ ”€‰‹€ ŒŽ†…’ ›’œ ‹žŽ‰ ’ˆ, ŠPŽŒ… ’ˆ€ ”€‰‹ (…‘‹ˆ ‚‡Ÿ’œ Pˆ‚…„…›‰ PˆŒ…P, ’Ž ‡€„€ˆ… ’ˆ€ FILE OF PRODUCT … „Ž“‘Š€…’‘Ÿ). …P…Œ…›… ’ˆ€ ”€‰‹ …‹œ‡Ÿ ˆ‘Ž‹œ‡Ž‚€’œ ˆ ‚ Ž…P€’ŽP€• Pˆ‘‚€ˆ‚€ˆŸ, ˆ ‚ ‚›P€†…ˆŸ• (ŠŽŒ… ……„€—ˆ €€Œ…’€-……Œ…Ž‰ ‚ Ž–…„“… ˆ‹ˆ ‚‡Ÿ’ˆ… …ƒŽ €„…‘€). 16.2. Ž…€–ˆˆ €„ ”€‰‹€Œˆ. ‚ Ž‘‹…„“ž™ˆ• P€‡„…‹€• Pˆ‚Ž„ˆ’‘Ÿ Žˆ‘€ˆ… PŽ–…„“P, P…„€‡€—…›• ‚ PASCAL/FAST „‹Ÿ ŽP€Ž’Šˆ ”€‰‹Ž‚. ˆ„…’ˆ”ˆŠ€’ŽP FILVAR ˆ‘Ž‹œ‡“…’‘Ÿ ‚ „€‹œ…‰˜…Œ „‹Ÿ ŽŽ‡€—…- ˆŸ …P…Œ…Ž‰ ’ˆ€ ”€‰‹, Žˆ‘€Ž‰ ’€Š, Š€Š Žˆ‘€Ž ‚›˜…. 16.2.1. Ž…P€–ˆŸ ASSIGN (€‡€—…ˆ… ˆŒ…ˆ ”€‰‹“) ‘ˆ’€Š‘ˆ‘: ASSIGN(FILVAR,STR); STR -- ’Ž ‘’PŽŠŽ‚Ž… ‚›P€†…ˆ… ˆ‹ˆ ‘’ŽŠŽ‚€Ÿ ……Œ…€Ÿ , ‘Ž„…P†€™ˆ… ‹žŽ… P€‚ˆ‹œŽ… ˆŒŸ ”€‰‹€. ’Ž ˆŒŸ ”€‰‹€ €‡- €—€…’‘Ÿ …P…Œ…Ž‰ ’ˆ€ ”€‰‹ FILVAR ˆ ‚‘… Ž‘’€‹œ›… „…‘’‚ˆŸ €„ FILVAR “„“’ ”€Š’ˆ—…‘Šˆ P…„Ž‹€ƒ€’œ „…‰‘’‚ˆŸ €„ „ˆ‘ŠŽ- ‚›Œ ”€‰‹ŽŒ. Ž…P€’ŽP €‡€—…ˆŸ ˆŠŽƒ„€ … “†Ž “Ž’P…‹Ÿ’œ „‹Ÿ ”€‰‹€, ŠŽ’ŽP›‰ ‚ €‘’ŽŸ™ˆ‰ ŒŽŒ…’ Ž’Š›’. 1 - 76 - 16.2.2. Ž…P€–ˆŸ REWRITE (‘Ž‡„€ˆ… Ž‚ŽƒŽ ”€‰‹€) ‘ˆ’€Š‘ˆ‘: REWRITE(FILVAR); Pˆ ‚›Ž‹…ˆˆ ’Ž‰ PŽ–…„“P› ‘Ž‡„€…’‘Ÿ Ž‚›‰ ”€‰‹ € „ˆ‘Š… ‘ ˆŒ……Œ, €‡€—…›Œ …P…Œ…Ž‰ ’ˆ€ ”€‰‹ (FILVAR) (—……‡ ASSIGN). Ž‚›‰ ”€‰‹ Ž„ƒŽ’€‚‹ˆ‚€…’‘Ÿ Š ŽP€Ž’Š…, ’Ž …‘’œ “Š€‡€’…‹œ ”€‰‹€ “‘’€€‚‹ˆ‚€…’‘Ÿ € €—€‹Ž ”€‰‹€ (€ ŠŽŒŽ…’ ‘ ŽŒ…PŽŒ 0). ‹žŽ‰ “†… ‘“™…‘’‚“ž™ˆ‰ ”€‰‹ ‘ ’€ŠˆŒ †… ˆŒ……Œ P…„‚€Pˆ’…‹œŽ ‘’ˆP€…’‘Ÿ. „ˆ‘ŠŽ‚›‰ ”€‰‹, ‘Ž‡„€‚€…- Œ›‰ Pˆ ŽŒŽ™ˆ PŽ–…„“P› REWRITE ‘€—€‹€ Ÿ‚‹Ÿ…’‘Ÿ “‘’›Œ, ’Ž …‘’œ Ž … ‘Ž„…P†ˆ’ ˆ Ž„ŽƒŽ ŠŽŒŽ…’€ (Ž‘‹… ‚›‡Ž‚€ REWRITE, EOF(FILEVAR) ‚‘…ƒ„€ ˆ‘’ˆŽ). 16.2.3. Ž…P€–ˆŸ RESET (“‘’€Ž‚Š€ ”€‰‹€ ‚ ˆ‘•Ž„Ž… ‘Ž‘’ŽŸˆ…) ‘ˆ’€Š‘ˆ‘: RESET(FILVAR); Pˆ ‚›Ž‹…ˆˆ ’Ž‰ Ž…P€–ˆˆ „ˆ‘ŠŽ‚›‰ ”€‰‹ ‘ ˆŒ……Œ, €‡€—…›Œ ”€‰‹Ž‚Ž‰ …P…Œ…Ž‰ FILVAR (—……‡ ASSIGN) , Ž„- ƒŽ’€‚‹ˆ‚€…’‘Ÿ Š ŽP€Ž’Š… ˆ “Š€‡€’…‹œ ”€‰‹€ “‘’€€‚‹ˆ‚€…’‘Ÿ € €—€‹Ž ”€‰‹€, ’Ž …‘’œ € ŠŽŒŽ…’ ‘ ŽŒ…PŽŒ 0. FILVAR „Ž‹†€ ‡€„€‚€’œ “†… ‘“™…‘’‚“ž™ˆ‰ ”€‰‹, ‚ PŽ’ˆ‚ŽŒ ‘‹“—€… ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€ ‚‚Ž„€/‚›‚Ž„€. 16.2.4. Ž…P€–ˆŸ READ (—’…ˆ… ˆ‡ ”€‰‹€) ‘ˆ’€Š‘ˆ‘: READ(FILVAR, VAR); VAR ŽŽ‡€—€…’ Ž„“ ˆ‹ˆ Ž‹…… …P…Œ…›• ’€ŠŽƒŽ †… ’ˆ€, —’Ž ˆ ŠŽŒŽ…’› …P…Œ…Ž‰ FILVAR, Ž’„…‹…›• „P“ƒ Ž’ „P“ƒ€ ‡€Ÿ’›Œˆ. Š€†„€Ÿ …P…Œ…€Ÿ —ˆ’€…’‘Ÿ ˆ‡ …„‚€ˆ’…‹œŽ Ž’Š›’ŽƒŽ „ˆ‘ŠŽ‚ŽƒŽ ”€‰‹€ ˆ Ž‘‹… ‚›Ž‹…ˆŸ Š€†„Ž‰ Ž…P€–ˆˆ —’…ˆŸ “Š€‡€’…‹œ ”€‰‹€ …P…Œ…™€…’‘Ÿ € ‘‹…„“ž™“ž ŠŽŒŽ…’“. ˆ Ž›’Š… —’…ˆŸ, ŠŽƒ„€ ’…Š“™€Ÿ Ž‡ˆ–ˆŸ “Š€‡›‚€…’ € ŠŽ…– ”€‰‹€, ’.…. ŠŽƒ„€ EOF(FILVAR)=TRUE, ‚Ž‡ˆŠ€…’ Ž˜ˆŠ€. 1 - 77 - 16.2.5. Ž…P€–ˆŸ WRITE (‡€ˆ‘œ ‚ ”€‰‹) ‘ˆ’€Š‘ˆ‘: WRITE (FILVAR, VAR); VAR ŽŽ‡€—€…’ Ž„“ ˆ‹ˆ …‘ŠŽ‹œŠŽ …P…Œ…›• ’ŽƒŽ †… ’ˆ€, —’Ž ˆ ŠŽŒŽ…’› …P…Œ…Ž‰ FILVAR, Ž’„…‹…›• „P“ƒ Ž’ „P“ƒ€ ‡€Ÿ’›Œˆ. Š€†„€Ÿ …P…Œ…€Ÿ ‡€ˆ‘›‚€…’‘Ÿ ‚ ”€‰‹ ˆ Ž‘- ‹… Š€†„Ž‰ ‡€ˆ‘ˆ “Š€‡€’…‹œ ”€‰‹€ …P…Œ…™€…’‘Ÿ € ‘‹…„“ž™“ž ŠŽŒŽ…’“. 16.2.6. Ž…P€–ˆŸ SEEK (……Œ…™€…’ “Š€‡€’…‹œ € N-›‰ ŠŽŒŽ…’ ”€‰‹€) ‘ˆ’€Š‘ˆ‘: SEEK(FILVAR, N); Pˆ ‚›Ž‹…ˆˆ ŠŽŒ€„› SEEK “Š€‡€’…‹œ ”€‰‹€ …P…Œ…™€…’‘Ÿ € N-‰ ŠŽŒŽ…’ ”€‰‹€, ŽŽ‡€—…ŽƒŽ FILVAR. N -- ’Ž –…‹Ž—ˆ‘‹…Ž… ‚›P€†…ˆ…. Ž‹Ž†…ˆ… …P‚Ž‰ ŠŽŒŽ…’› ‘ŽŽ’‚…’‘’‚“…’ N = 0 (“‹ž). —’Ž› “‚…‹ˆ—ˆ’œ ”€‰‹, ŒŽ†Ž ……„‚ˆ“’œ “Š€‡€’…‹œ ‡€ Ž‘‹…„ˆ‰ ŠŽŒŽ…’ ”€‰‹€: ’€Š Ž€™…ˆ… SEEK(FILVAR,FILESIZE(FILVAR)) ‘„‚ˆƒ€…’ ’…Š“™“ž Ž‡ˆ–ˆž € ŠŽ…– ”€‰‹€. 16.2.7. Ž…P€–ˆŸ FLUSH (Ž—ˆ‘’Š€ “”…P€ ‘…Š’ŽP€) ‘ˆ’€Š‘ˆ‘: FLUSH(FILVAR); ŠŽŒ€„€ FLUSH Ž‘“™…‘’‚‹Ÿ…’ Ž—ˆ‘’Š“ ‚“’P……ƒŽ “”…P€ ‘…Š’ŽP€ „ˆ‘ŠŽ‚ŽƒŽ ”€‰‹€ FILVAR, ˆ ƒ€P€’ˆP“…’, —’Ž “”…P ‘…Š’ŽP€ ›‹ ‡€ˆ‘€ € „ˆ‘Š, …‘‹ˆ ‚Ž ‚P…ŒŸ Ž‘‹…„…ƒŽ ŽŽ‚- ‹…ˆŸ ”€‰‹€ ‚›Ž‹Ÿ‹ˆ‘œ Š€Šˆ…-‹ˆŽ Ž…P€–ˆˆ ‡€ˆ‘ˆ. FLUSH Ž…‘…—ˆ‚€…’ ’€Š†…, —’Ž ‘‹…„“ž™€Ÿ Ž…P€–ˆŸ —’…ˆŸ „…‰‘’‚ˆ’…‹œŽ “„…’ —ˆ’€’œ „€›… ‘ „ˆ‘ŠŽ‚ŽƒŽ ”€‰‹€. Ž…P€–ˆž FLUSH … ‘‹…„“…’ PˆŒ…Ÿ’œ, …‘‹ˆ ”€‰‹ ‡€ŠP›’. 1 - 78 - 16.2.8. Ž…P€–ˆŸ CLOSE (‡€ŠP›‚€…’ Ž’Š›’›‰ ”€‰‹) ‘ˆ’€Š‘ˆ‘: CLOSE(FILVAR); „ˆ‘ŠŽ‚›‰ ”€‰‹, €‡€—…›‰ …P…Œ…Ž‰ FILVAR, ‡€ŠP›‚€…’‘Ÿ ˆ ‘P€‚Ž—ˆŠ „ˆ‘Š€ ŽŽ‚‹Ÿ…’‘Ÿ ‘ ’…Œ, —’Ž› Ž’ŽP€‡ˆ’œ Ž‚›… ‘‚…„…ˆŸ Ž ‘Ž‘’ŽŸˆˆ ”€‰‹€. ‘‹…„“…’ Ž’Œ…- ’ˆ’œ, —’Ž ”€‰‹ ‘‹…„“…’ ‡€ŠP›‚€’œ „€†…, …‘‹ˆ Ž ›‹ ’Ž‹œŠŽ ‘—ˆ’€ ‘ „ˆ‘Š€, ’€Š Š€Š Š€†„›‰ Ž’Š›’›‰ ”€‰‹ ’…“…’ ‡€’€’ €ŒŸ’ˆ ŽŠŽ‹Ž 0,5KB. 16.2.9. Ž…P€–ˆŸ ERASE (‘’ˆ€…’ „ˆ‘ŠŽ‚›‰ ”€‰‹) ‘ˆ’€Š‘ˆ‘: ERASE(FILVAR); ‚ P…‡“‹œ’€’… ‚›Ž‹…ˆŸ ŠŽŒ€„› ERASE ‘’ˆP€…’‘Ÿ „ˆ‘ŠŽ- ‚›‰ ”€‰‹, €‡€—…›‰ …P…Œ…Ž‰ FILVAR. E‘‹ˆ ”€‰‹ Ž’ŠP›’ (’Ž …‘’œ €„ ˆŒ PŽ‚Ž„ˆ‹ˆ‘œ „…‰‘’‚ˆŸ, Ž“‘‹Ž‚‹…›… ŠŽŒ€- „€Œˆ RESET ˆ REWRITE), Ž … ›‹ ‡€ŠP›’, ’Ž …P…„ ‘’ˆP€ˆ…Œ ”€‰‹€ …Ž•Ž„ˆŒŽ …ƒŽ ‡€ŠP›’œ. 16.2.10. Ž…P€–ˆŸ RENAME (……ˆŒ…Ž‚›‚€…’ „ˆ‘ŠŽ‚›‰ ”€‰‹) ‘ˆ’€Š‘ˆ‘: RENAME(FILVAR,STR); „ˆ‘ŠŽ‚ŽŒ“ ”€‰‹“, ŠŽ’ŽP›‰ €‡€—… …P…Œ…Ž‰ FILVAR, Pˆ‘‚€ˆ‚€…’‘Ÿ Ž‚Ž… ˆŒŸ, ‡€„€‚€…ŒŽ… ‚›P€†…ˆ…Œ STR. ‘P€‚Ž—ˆŠ „ˆ‘Š€ ŽŽ‚‹Ÿ…’‘Ÿ, ‚ …ƒŽ ‡€Ž‘ˆ’‘Ÿ Ž‚Ž… ˆŒŸ ”€‰‹€. ˆŠŽƒ„€ … ‘‹…„“…’ ‚›Ž‹Ÿ’œ Ž…P€–ˆž RENAME, …‘‹ˆ ”€‰‹ Ž’ŠP›’. Ž’Œ…’ˆŒ, —’Ž PŽƒP€ŒŒˆ‘’ ‘€Œ „Ž‹†… ‘‹…„ˆ’œ ‡€ ’…Œ, —’Ž› … ‘“™…‘’‚Ž‚€‹Ž ”€‰‹€ ‘ ˆŒ……Œ, ‘Ž‚€„€ž™ˆŒ ‘ ˆŒ……Œ, ‡€„€‚€…Œ›Œ ‚›P€†…ˆ…Œ STR. EC‹ˆ †… ’€ŠŽ‰ ”€‰‹ “†… ‘“™…‘’- ‚“…’, ’Ž ‚›Ž‹…ˆ… „€Ž‰ Ž…P€–ˆˆ ŒŽ†…’ Pˆ‚…‘’ˆ Š “ˆ—’Ž- †…ˆž “†… ‘“™…‘’‚Ž‚€‚˜…ƒŽ ‘ ’€ŠˆŒ ˆŒ……Œ ”€‰‹€. ˆ†… Pˆ‚Ž„ˆ’‘Ÿ PˆŒ…P ”“Š–ˆˆ, P…‡“‹œ’€’ ŠŽ’ŽPŽ‰ P€‚… TRUE (ˆ‘’ˆ€), …‘‹ˆ ”€‰‹, …P…„€‚€…Œ›‰ Š€Š €P€Œ…’P, ‘“™…‘’‚“…’, ‚ PŽ’ˆ‚ŽŒ ‘‹“—€… P…‡“‹œ’€’ P€‚… FALSE (‹Ž†œ). 1 - 79 - TYPE NAME = STRING[66]; FUNCTION EXIST(FILE_NAME: NAME): BOOLEAN; VAR FIL: FILE; BEGIN ASSIGN(FIL, FILE_NAME); (*$I-*) RESET(FIL); (*$I+*) EXIST := (IORESULT = 0); END; 16.3. ‘’€„€’›… ”“Š–ˆˆ „‹Ÿ Ž€Ž’Šˆ ”€‰‹Ž‚. ‚ Ÿ‡›Š… P…€‹ˆ‡Ž‚€› ‘‹…„“ž™ˆ… ‘’€„€P’›… ”“Š–ˆˆ, P…„€‡€—…›… „‹Ÿ ŽP€Ž’Šˆ ”€‰‹Ž‚: 16.3.1. ”“Š–ˆŸ EOF (Ž‚…Š€ € ŠŽ…– ”€‰‹€) ‘ˆ’€Š‘ˆ‘: EOF(FILVAR) ’Ž ‹Žƒˆ—…‘Š€Ÿ ”“Š–ˆŸ, P…‡“‹œ’€’ ŠŽ’ŽPŽ‰ P€‚… TRUE(ˆ‘’ˆ€), …‘‹ˆ “Š€‡€’…‹œ ”€‰‹€ €•Ž„ˆ’‘Ÿ ‚ ŠŽ–… „ˆ‘ŠŽ- ‚ŽƒŽ ”€‰‹€, ’Ž …‘’œ ‡€ Ž‘‹…„ˆŒ ŠŽŒŽ…’ŽŒ ”€‰‹€ ˆ‹ˆ …‘‹ˆ ”€‰‹ … ‘Ž„…†ˆ’ ˆ Ž„Ž‰ ŠŽŒŽ…’›. …‘‹ˆ “Š€‡€’…‹œ ”€‰‹€ €•Ž„ˆ’‘Ÿ ‚ „P“ƒŽŒ Œ…‘’…, ’Ž P…‡“‹œ’€’ ‚›Ž‹…ˆŸ ”“Š–ˆˆ EOF “„…’ FALSE (‹Ž†œ). 16.3.2. ”“Š–ˆŸ FILEPOS (Ž…„…‹…ˆ… ’…Š“™…ƒŽ ‡€—…- ˆŸ “Š€‡€’…‹Ÿ) ‘ˆ’€Š‘ˆ‘: FILEPOS(FILVAR) ’Ž –…‹Ž—ˆ‘‹…€Ÿ ”“Š–ˆŸ, P…‡“‹œ’€’ ŠŽ’ŽPŽ‰ P€‚… ŽŒ…P“ ŠŽŒŽ…’€, € ŠŽ’ŽP›‰ “‘’€Ž‚‹… “Š€‡€’…‹œ ”€‰‹€. …P‚€Ÿ ŠŽŒŽ…’€ ”€‰‹€ ˆŒ……’ ŽŒ…P Ž‹œ. ”“Š–ˆŸ FILEPOS … ŒŽ†…’ ˆ‘Ž‹œ‡Ž‚€’œ‘Ÿ „‹Ÿ ’…Š‘’Ž‚ŽƒŽ ”€‰‹€. 1 - 80 - 16.3.3. ”“Š–ˆŸ FIL - 121 - _€_Š_…_’_› _Ž_„___Ž_ƒ__€_Œ_Œ „_‹_Ÿ ‘_ˆ_‘_’_…_Œ_› __Ž_ƒ__€_Œ_Œ_ˆ__Ž_‚_€__ˆ_Ÿ P_A_S_C_A_L / F_A_S_T 1 - 122 - 20. ŒŽ„“‹œ GRAPH ŒŽ„“‹œ GRAPH Ÿ‚‹Ÿ…’‘Ÿ „ŽŽ‹ˆ’…‹œ›Œ €Š…’ŽŒ Ž„Žƒ- €ŒŒ „‹Ÿ ‘ˆ‘’…Œ› PASCAL/FAST. Ž–…„“› ˆ ”“Š–ˆˆ, …€‹ˆ‡Ž- ‚€›… ‚ ŒŽ„“‹…, Ÿ‚‹Ÿž’‘Ÿ €‘˜ˆ…ˆ…Œ ‘’€„€’ŽƒŽ Ÿ‡›Š€ PASCAL ˆ ‘‹“†€’ „‹Ÿ Ž€Ž’Šˆ ƒ€”ˆ—…‘Šˆ• ˆ‡Ž€†…ˆ‰ ˆ ˆ• Ž’Ž€†…ˆŸ € Š€… „ˆ‘‹…Ÿ ‚Œ Š-11Œ. 20.1. …ŠŽŒ…„€–ˆˆ Ž “‘’€Ž‚Š… ˆ ˆ‘Ž‹œ‡Ž‚€ˆž ŒŽ„“‹Ÿ GRAPH €Š…’ ƒ€”ˆ—…‘Šˆ• Ž„Žƒ€ŒŒ Ž„„…†ˆ‚€ž™ˆ‰ Šƒ„ ‚›Ž‹- … ‚ ‚ˆ„… ŒŽ„“‹Ÿ GRAPH, ‘Ž‘’ŽŸ™…ƒŽ ˆ‡ ˆ’…”…‰‘Ž‰ —€‘’ˆ (GRAPH.PAS) ˆ —€‘’ˆ …€‹ˆ‡€–ˆˆ (GRAPH.SAV). ……„ ˆ‘Ž‹œ‡Ž- ‚€ˆ…Œ ŒŽ„“‹Ÿ, ”€‰‹› GRAPH.PAS ˆ GRAPH.SAV ‘‹…„“…’ €‘Ž‹Ž- †ˆ’œ € “‘’Ž‰‘’‚…, ƒ„… €‘Ž‹Ž†… ‘ˆ‘’…Œ›‰ ŒŽ„“‹œ (PAS.SAV) ˆ €‡€—ˆ’œ ’ŽŒ“ “‘’Ž‰‘’‚“ ‹Žƒˆ—…‘ŠŽ… ˆŒŸ "PAS" (€ˆŒ…: ASS BY1 PAS). —’Ž› ˆ‘Ž‹œ‡Ž‚€’œ Ž–…„“› ˆ ”“Š–ˆˆ ŒŽ„“‹Ÿ GRAPH ‚ Žƒ€ŒŒ… Ž‹œ‡Ž‚€’…‹Ÿ, ˆ ŽŒŽ™ˆ „ˆ…Š’ˆ‚› ŠŽŒˆ‹Ÿ’Ž€ "$I" ‘‹…„“…’ ‚Š‹ž—ˆ’œ ‚ Žˆ‘€’…‹œ“ž —€‘’œ Žƒ€ŒŒ› Ž‹œ‡Ž- ‚€’…‹Ÿ ˆ’…”…‰‘“ž —€‘’œ ŒŽ„“‹Ÿ GRAPH: (*$I PAS:GRAPH.PAS*) ƒ€”ˆ—…‘Š“ž —€‘’œ Žƒ€ŒŒ› ‘‹…„“…’ €—ˆ€’œ Ž–…„“Ž‰ ONGR, € ˆ ‚Ž‡‚€™…ˆˆ ‚ ‘ˆ‘’…Œ“ …Ž•Ž„ˆŒŽ ‡€Š€—ˆ‚€’œ Ž- –…„“Ž‰ OFFGR. 20.1.1. ‘ˆ‘’…Œ€ ŠŽŽ„ˆ€’ “‘‹Ž‚ˆŒ‘Ÿ, —’Ž ‹…‚›‰ ‚…•ˆ‰ “ƒŽ‹ Š€€ ˆŒ……’ ŠŽŽ„ˆ- €’› (0,0). ‡€—…ˆŸ ŠŽŽ„ˆ€’› X (ŽŒ… ‘’Ž‹–€) “‚…‹ˆ—ˆ- ‚€ž’‘Ÿ ‘‹…‚€ €€‚Ž. ‡€—…ˆŸ ŠŽŽ„ˆ€’› Y (ŽŒ… ‘’ŽŠˆ) “‚…‹ˆ—ˆ‚€ž’‘Ÿ ‘‚…•“ ‚ˆ‡. ’€ŠˆŒ Ž€‡ŽŒ, ŠŽŽ„ˆ€’€ X ŒŽ†…’ ˆ‡Œ…Ÿ’œ‘Ÿ ‚ „ˆ€€‡Ž… 0..255, € ŠŽŽ„ˆ€’€ Y -- 0..255. ƒ€”ˆ—…‘Šˆ‰ Š€ ˆ ’ŽŒ ‘Ž„…†ˆ’ 256*256 ’Ž—…Š. Š€ ’€Š†… ŒŽ†…’ €Ž’€’œ ˆ ‚ …†ˆŒ… 512*256. 20.3. Žˆ‘€ˆ… Ž–…„“ ˆ ”“Š–ˆ‰ ŒŽ„“‹Ÿ GRAPH 20.3.01. Ž–…„“€ ONGR ‘ˆ’€Š‘ˆ‘: ONGR; Ž–…„“€ „‹Ÿ ŽŸ‡€’…‹œŽƒŽ €—€‹€ €Ž’› ‘ ƒ€”ˆ—…‘ŠˆŒ ŒŽ„“‹…Œ. 20.3.02. Ž–…„“€ OFFGR ‘ˆ’€Š‘ˆ‘: OFFGR; Ž–…„“€ „‹Ÿ ŽŸ‡€’…‹œŽƒŽ ŽŠŽ—€ˆŸ €Ž’› ‘ ƒ€”ˆ- —…‘ŠˆŒ ŒŽ„“‹…Œ. 20.3.1. Ž–…„“€ BAR ‘ˆ’€Š‘ˆ‘: BAR (X1, Y1, X2, Y2 : INTEGER ); ˆ‘“…’ ‡€Š€˜…›‰ ŸŒŽ“ƒŽ‹œˆŠ (€ˆŒ…, „‹Ÿ Ž‘’- Ž…ˆŸ „ˆ€ƒ€ŒŒ) ˆ‘Ž‹œ‡“Ÿ ’…Š“™ˆ‰ Ž€‡…– ˆ –‚…’. ŠŽŽ„ˆ€- ’€ (X1,Y1) -- Ž…„…‹Ÿ…’ ‹…‚›‰ ‚…•ˆ‰ “ƒŽ‹, € (X2,Y2) -- €‚›‰ ˆ†ˆ‰ “ƒŽ‹ ŸŒŽ“ƒŽ‹œˆŠ€. 20.3.2. Ž–…„“€ GETXY ‘ˆ’€Š‘ˆ‘: GETXY ( VAR X, Y : INTEGER ); —’…ˆ… ŠŽŽ„ˆ€’ €‹”€‚ˆ’Ž-–ˆ”Ž‚ŽƒŽ Š“‘Ž€. 1 - 127 - 20.3.3. Ž–…„“€ CLEARSCR ‘ˆ’€Š‘ˆ‘: CLEARDSCR; Žˆ‡‚Ž„ˆ’ Ž—ˆ‘’Š“ Š€€. 20.3.4. Ž–…„“€ ELLIPS ‘ˆ’€Š‘ˆ‘: ELLIPS ( X, Y, RADIUS, BEGANLE, ENDANGLE, COEFX,COEFY : INTEGER); ˆ‘“…’ ‹‹ˆ‘ –‚…’ŽŒ, “‘’€Ž‚‹…›Œ Ž–…„“Ž‰ SETCOLOR X ˆ Y - ’Ž ŠŽŽ„ˆ€’› –…’€ ‹‹ˆ‘€, RADIUS - €„ˆ“‘ „“ƒˆ, BEGANGLE - €—€‹œ›‰ “ƒŽ‹ „“ƒˆ ENDANGLE - ŠŽ…—›‰ “ƒŽ‹ „“ƒˆ COEFX - ŠŽ””ˆ–ˆ…’ ‘†€’ˆŸ Ž X COEFY - ŠŽ””ˆ–ˆ…’ ‘†€’ˆŸ Ž Y €—€‹œ›‰ ˆ ŠŽ…—›‰ “ƒŽ‹› ‡€„€ž’‘Ÿ ‘‹…„“ž™ˆŒ Ž€‡ŽŒ 0 - 0 ƒ€„“‘Ž‚ 32767 - 360 ƒ€„“‘Ž‚ ŠŽ””ˆ–ˆ…’› ‘†€’ˆŸ ‡€„€ž’‘Ÿ ‘‹…„“ž™ˆŒ Ž€‡ŽŒ 0 - …’ ‘†€’ˆŸ 1-32767 - …€‹œ€Ÿ ŠŽŽ„ˆ€’€ = (‚›—ˆ‘‹…€Ÿ*ŠŽ””.)/32767 20.3.5. Ž–…„“€ PAINT ‘ˆ’€Š‘ˆ‘: PAINT (X, Y, BOUNDCOLOR : INTEGER ); ’€ Ž–…„“€ ˆ‘Ž‹œ‡“…’‘Ÿ „‹Ÿ ‡€Š€‘Šˆ Žƒ€ˆ—…Ž‰ Ž‹€‘’ˆ. (X,Y) -- €—€‹œ€Ÿ ’Ž—Š€, €‘Ž‹Ž†…€Ÿ ‚“’ˆ ‡€Š- €˜ˆ‚€…ŒŽ‰ Ž‹€‘’ˆ. Ž‹€‘’œ ‡€Ž‹Ÿ…’‘Ÿ ’…Š“™ˆŒ –‚…’ŽŒ BOUNDCOLOR -- –‚…’, Žƒ€ˆ—ˆ‚€ž™ˆ‰ Ž‹€‘’œ ‡€Š€‘Šˆ. …‘‹ˆ €—€‹œ€Ÿ ’Ž—Š€ €•Ž„ˆ’‘Ÿ ‚“’ˆ ‡€ŒŠ“’Ž‰ Ž‹€‘’ˆ -- ‡€- Š€˜ˆ‚€…’‘Ÿ Ž‹€‘’œ, …‘‹ˆ ‘€“†ˆ -- ‚‘…, ŠŽŒ… ……. 20.3.6. Ž–…„“€ GETACCOLOR ‘ˆ’€Š‘ˆ‘: GETACCOLOR ( VAR CS, CF : INTEGER ); ‚Ž‡‚€™€…’ ’…Š“™ˆ‰ –‚…’ ‘ˆŒ‚Ž‹€ ‚ CS ˆ –‚…’ ”Ž€ ‚ CF. ŠŽ‘’€’› –‚…’Ž‚: BLACK = 0 —…›‰ –‚…’ BLUE = 1 ‘ˆˆ‰ –‚…’ GREEN = 2 ‡…‹…›‰ –‚…’ RED = 3 Š€‘›‰ –‚…’ 1 - 128 - 20.3.7. ”“Š–ˆŸ GETCOLOR ‘ˆ’€Š‘ˆ‘: GETCOLOR : INTEGER ‚Ž‡‚€™€…’ ’…Š“™ˆ‰ –‚…’ ƒ€”ˆ—…‘ŠŽƒŽ ˆ‡Ž€†…ˆŸ. 20.3.8. ”“Š–ˆŸ GETFILLSTYLE ‘ˆ’€Š‘ˆ‘: GETFILLSTYLE : INTEGER; Ž‡‚Ž‹Ÿ…’ Ž‹œ‡Ž‚€’…‹ž “‡€’œ ‡€—…ˆŸ ’…Š“™ˆ• ˜€‹ŽŽ‚ ‚›‚Ž„€ ‹ˆˆˆ ˆ ŸŒŽ“ƒŽ‹œˆŠ€. 20.3.9. Ž–…„“€ SOUND ‘ˆ’€Š‘ˆ‘: SOUND ( LENGTH, TONE : INTEGER ); Ž‡‚Ž‹Ÿ…’ ‚Ž‘Žˆ‡‚Ž„ˆ’œ ‡‚“Š „‹ˆ’…‹œŽ‘’œž LENGTH ˆ ‚›‘Ž’Ž‰ TONE. 20.3.10. Ž–…„“€ SCROLL ‘ˆ’€Š‘ˆ‘: SCROLL ( QUAN : INTEGER ); Žˆ‡‚Ž„ˆ’ ‘„‚ˆƒ ˆ‡Ž€†…ˆŸ € “Š€‡€Ž… —ˆ‘‹Ž ’…‹…‚ˆ- ‡ˆŽ›• ‘’ŽŠ, Ž‹Ž†ˆ’…‹Ž… —ˆ‘‹Ž ŽŽ‡€—€…’ ‘„‚ˆƒ ‚‚…•, Ž’ˆ–€’…‹œŽ… - ‚ˆ‡. 20.3.11. ”“Š–ˆŸ GETMAXX ‘ˆ’€Š‘ˆ‘: GETMAXX : INTEGER ; —’…ˆ… Œ€Š‘ˆŒ€‹œŽ ‚Ž‡ŒŽ†ŽƒŽ ‡€—…ˆŸ Ž X, 255 ˆ‹ˆ 511. 20.3.12. ”“Š–ˆŸ GETMAXY ‘ˆ’€Š‘ˆ‘: GETMAXX : INTEGER ; —’…ˆ… Œ€Š‘ˆŒ€‹œŽ ‚Ž‡ŒŽ†ŽƒŽ ‡€—…ˆŸ Ž Y, ‚‘…ƒ„€ 255 . 20.3.13. ”“Š–ˆŸ GETMAXCOLOR ‘ˆ’€Š‘ˆ‘: GETMAXCOLOR : INTEGER ; —’…ˆ… Œ€Š‘ˆŒ€‹œŽ ‚Ž‡ŒŽ†ŽƒŽ ‡€—…ˆŸ –‚…’€, 4 ˆ‹ˆ 2. 1 - 129 - 20.3.11. ”“Š–ˆŸ GETPIXEL ‘ˆ’€Š‘ˆ‘: GETPIXEL (X, Y : INTEGER) : INTEGER; ‚Ž‡‚€™€…’ ’…Š“™…… ‡€—…ˆ… –‚…’€ ’Ž—Šˆ €‘’€ ‘ ŠŽŽ- „ˆ€’€Œˆ X, Y . 20.3.12. ”“Š–ˆŸ GETX ‘ˆ’€Š‘ˆ‘: GETX : INTEGER; ‚Ž‡‚€™€…’ €‘Ž‹ž’“ž ŠŽŽ„ˆ€’“ X ’…Š“™…‰ Ž‡ˆ–ˆˆ. 20.3.13. ”“Š–ˆŸ GETY ‘ˆ’€Š‘ˆ‘: GETY : INTEGER; ‚Ž‡‚€™€…’ €‘Ž‹ž’“ž ŠŽŽ„ˆ€’“ Y ’…Š“™…‰ Ž‡ˆ–ˆˆ. 1 - 130 - 20.3.15. Ž–…„“€ SETDRVMOD ‘ˆ’€Š‘ˆ‘: SETDRVMOD ( MODE : INTEGER ); Ž–…„“€ ˆˆ–ˆ€‹ˆ‡ˆ“…’ ƒ€”ˆ—…‘Š“ž Ž„‘ˆ‘’…Œ“ ˆ “‘’€- €‚‹ˆ‚€…’ …†ˆŒ Š€€. MODE -- Ž…„…‹Ÿ…’ …†ˆŒ €Ž’› . Ž–…„“€ SETDRVMOD „Ž‹†€ ›’œ ‚›Ž‹…€ ……„ ‚‘…Œˆ Ž‘’€‹œ›Œˆ Ž„Žƒ€ŒŒ€Œˆ ŒŽ„“‹Ÿ GRAPH Ž Ž‘‹… Ž–…„“› ONGR. ŠŽ‘’€’› „‹Ÿ ……Œ…Ž‰ MODE: SET256PIXEL = 1 256 โฎ็ฅช ข แโเฎชฅ DOUBLEWIGTH = 2 คขฎฉญ ๏ ่จเจญ  SET80SUMBOLS = 4 80 แจฌขฎซฎข ข แโเฎชฅ SETDOWNKURSOR = 8 ฏฎค็ฅเชจข ๎้จฉ ชใเแฎเ SOFTSCROLL = 16 ฌ๏ฃชจฉ แคขจฃ SETKOI8 = 128 ใแโ ญฎขช  KOI-8 SETKOI78 = 256 ใแโ ญฎขช  KOI-78 SETINVERS = 1024 จญขฅเแจ๏ แจฌขฎซ  SETBACKLINE = 2048 ฏฎค็ฅเชจข ญจฅ แจฌขฎซฎข AUTONEWLINE = 4096  ขโฎฏฅเฅญฎแ SETINDKURSOR = 8192 จญคจช ๆจ๏ ชใเแฎเ  „‹Ÿ “‘’€Ž‚Šˆ ’ˆ• €€Œ…’Ž‚ „Ž‘’€’Ž—Ž ……—ˆ‘‹ˆ’œ ŠŽ‘’€’› —……‡ ‘‹Ž‚Ž "OR", € „‹Ÿ ‚›Š‹ž—…ˆŸ ’ŽƒŽ ˆ‹ˆ ˆŽƒŽ …†ˆŒ€ €„Ž €‹Ž†ˆ’œ Ž’ˆ–€ˆ… € ŠŽ‘’€’“ ‘ Ž- ŒŽ™œž Ž…€’Ž€ "NOT". €ˆŒ…: SETDRVMOD ( SET256PIXEL OR SOFTSCROL OR NOT SETDOWNKURSOR ); “‘’€€‚‹ˆ‚€…’ …†ˆŒ 256 ’Ž—…Š ‚ ‘’ŽŠ… ‘ ŒŸƒŠˆŒ ‘„‚ˆƒŽŒ …‡ Ž„—…Šˆ‚€ˆŸ. 20.3.16. Ž–…„“€ LINE ‘ˆ’€Š‘ˆ‘: LINE (X1, Y1, X2, Y2 : INTEGER); ˆ‘“…’ ‹ˆˆž ’ˆ€, Ž…„…‹…Ž‰ Ž–…„“Ž‰ SETLINESTYLE, ˆ ˆ‘Ž‹œ‡“…’ –‚…’, “‘’€Ž‚‹…›‰ Ž–…„“Ž‰ SETCOLOR. 20.3.17. Ž–…„“€ LINEREL ‘ˆ’€Š‘ˆ‘: LINEREL (DX, DY : INTEGER); Ž–…„“€ LINEREL Ž‚Ž„ˆ’ Ž’…‡ŽŠ Ž’ ’Ž—Šˆ-“Š€‡€’…‹Ÿ ‘ ’…Š“™ˆŒˆ ŠŽŽ„ˆ€’€Œˆ „Ž ’Ž—Šˆ ‘ ŠŽŽ„ˆ€’€Œˆ (X+DX,Y+DY). ‹ˆˆŸ ˆ‘“…’‘Ÿ ‚ ”ŽŒ€’…, ‡€„€›Œ Ž–…„“Ž‰ SETLINESTYLE ˆ –‚…’ŽŒ, “‘’€Ž‚‹…›Œ Ž–…„“Ž‰ SETCOLOR. „€€Ÿ Ž–…- „“€ “„Ž€ „‹Ÿ ‚›‚Ž„€ € Š€ ‚…Š’Ž›• ˆ‡Ž€†…ˆ‰. Ž ‚›•Ž„“ ˆ‡ Ž–…„“› ’…Š“™ˆ… ŠŽŽ„ˆ€’› “Š€‡€’…‹Ÿ €‚› ŠŽŽ- „ˆ€’€Œ Ž‘‹…„…‰ ’Ž—Šˆ, €ˆ‘Ž‚€“ž LINEREL. 1 - 131 - 20.3.18. Ž–…„“€ LINETO ‘ˆ’€Š‘ˆ‘: LINETO (X, Y : INTEGER); Ž–…„“€ LINETO Ž‚Ž„ˆ’ Ž’…‡ŽŠ ŸŒŽ‰ Ž’ ’…Š“™…‰ ’Ž—Šˆ-“Š€‡€’…‹Ÿ Š ’Ž—Š… ‘ ŠŽŽ„ˆ€’€Œˆ (X,Y). ‹ˆˆŸ ˆ‘“…’‘Ÿ ‚ ”ŽŒ€’…, ‡€„€ŽŒ Ž–…„“Ž‰ SETLINESTYLE ˆ –‚…’ŽŒ, “‘’€Ž‚‹…›Œ Ž–…„“Ž‰ SETCOLOR. Ž ‚›•Ž„“ ˆ‡ Ž–…„“› ’…Š“™ˆ… ŠŽŽ„ˆ€’› ’Ž—Šˆ-“Š€‡€’…‹Ÿ €‚› ŠŽŽ„ˆ€’€Œ Ž‘‹…„- …‰ ’Ž—Šˆ, €ˆ‘Ž‚€“ž LIN…’Ž. 20.3.19. Ž–…„“€ MOVEREL ‘ˆ’€Š‘ˆ‘: MOVEREL (DX, DY : INTEGER); Ž–…„“€ ˆ‡Œ…Ÿ…’ ’…Š“˜ˆ… ŠŽŽ„ˆ€’› ’Ž—Šˆ-“Š€‡€’…‹Ÿ (X,Y) ‘ ŽŒŽ™œž Ž’Ž‘ˆ’…‹œ›• ‘Œ…™…ˆ‰ DX ˆ DY. 20.3.20. Ž–…„“€ MOVETO ‘ˆ’€Š‘ˆ‘: MOVETO (X, Y : INTEGER); Ž–…„“€ “‘’€€‚‹ˆ‚€…’ Ž‚›… ’…Š“˜ˆ… ŠŽŽ„ˆ€’› ’Ž—Šˆ- -“Š€‡€’…‹Ÿ. 20.3.21. Ž–…„“€ OUTTEXT ‘ˆ’€Š‘ˆ‘: OUTTEXT (ST : STRING); ‚›‚Ž„ˆ’ € ƒ€”ˆ—…‘Šˆ‰ Š€ ‘’ŽŠ“ ST ‘ ’…Š“™…‰ Ž‡ˆ- –ˆˆ. ‘’ŽŠ€ ST ‚›‚Ž„ˆ’‘Ÿ ‘ ˆ‘Ž‹œ‡Ž‚€ˆ…Œ “‘’€Ž‚‹…›• €€Œ…’Ž‚ ‚›€‚ˆ‚€ˆŸ. …‘‹ˆ ‘’ŽŠ€ ‚›•Ž„ˆ’ ‡€ ƒ€ˆ–› Š- €€ ‘‹ˆ˜ŠŽŒ „‹ˆ€Ÿ, Ž€ Ž…‡€…’‘Ÿ Ž ƒ€ˆ–… Š€€. 1 - 132 - 20.3.22. Ž–…„“€ OUTTEXTXY ‘ˆ’€Š‘ˆ‘: OUTTEXTXY (X, Y : INTEGER; S : STRING); Ž–…„“€ OUTTEXTXY €€‹Žƒˆ—€ Ž–…„“… OUTTEXT, Ž Žˆ‡‚Ž„ˆ’ ‚›‚Ž„ ‘’ŽŠˆ S ‘ Ž‡ˆ–ˆˆ (X,Y). 20.3.25. Ž–…„“€ PUTPIXEL ‘ˆ’€Š‘ˆ‘: PUTPIXEL (X, Y : INTEGER ); ˆ‘“…’ ’Ž—Š“ ‚ Ž‡ˆ–ˆˆ ‘ ŠŽŽ„ˆ€’€Œˆ (X,Y) ’…Š“™ˆŒ –‚…’ŽŒ. 1 - 133 - 20.3.26. Ž–…„“€ RECTANGLE ‘ˆ’€Š‘ˆ‘: RECTANGLE (X1, Y1, X2, Y2 : INTEGER); ˆ‘“…’ ŸŒŽ“ƒŽ‹œˆŠ, ˆ‘Ž‹œ‡“Ÿ ’…Š“™ˆ… ‡€—…ˆŸ Ž€‡- –€ ˆ –‚…’€ ‹ˆˆˆ. ŠŽŽ„ˆ€’› (X1,Y1) -- Ž…„…‹Ÿž’ ‹…‚›‰ ‚…•ˆ‰, € (X2,Y2) -- €‚›‰ ˆ†ˆ‰ “ƒ‹› ŸŒŽ“ƒŽ‹œˆŠ€. ’…Š“™ˆ‰ Ž€‡…– ˆ –‚…’ ‹ˆˆˆ ‡€„€…’‘Ÿ Ž–…„“Ž‰ SETLINESTYLE. 20.3.27. Ž–…„“€ SETCOLOR ‘ˆ’€Š‘ˆ‘: SETCOLOR (COL : IGTEGER ); “‘’€€‚‹ˆ‚€…’ ’…Š“™ˆ‰ –‚…’, ŠŽ’Ž›‰ ‡€„€…’‘Ÿ ‚ COL. 20.3.28. Ž–…„“€ SETACCOLOR ‘ˆ’€Š‘ˆ‘: SETACCOLOR ( CS,CF : INTEGER); “‘’€€‚‹ˆ‚€…’ ’…Š“™ˆ‰ –‚…’ ‘ˆŒ‚Ž‹€ ‚ CS ˆ –‚…’ ”Ž€ ‚ CF. 20.3.29. Ž–…„“€ SETPALETTE. ‘ˆ’€Š‘ˆ‘: SETPALETTE ( PALET : INTEGER ); “‘’€€‚‹ˆ‚€…’ €‹ˆ’“ ‚›‚Ž„€ ˆ‡Ž€†…ˆŸ. PALET ˆ‡Œ…Ÿ…’‘Ÿ ‚ …„…‹€• 0..15 ˆ Œ…Ÿ…’ –‚…’Ž‚“ž ƒ€„€–ˆž ‚›‚Ž„ˆŒŽƒŽ ˆ‡Ž€†…ˆŸ. 1 - 134 - 20.3.30. Ž–…„“€ SETFILLSTYLE ‘ˆ’€Š‘ˆ‘: SETFILLSTYLE (STYLE : INTEGER ); “‘’€€‚‹ˆ‚€…’ Ž€‡…– ‚›‚Ž„€ ‹ˆˆˆ „‹Ÿ Ž–…„“ LINE, RECTANGLE, LINETO, LINEREL. ˆ‘Ž‹œ‡“…’‘Ÿ „‹Ÿ ˆ‘Ž‚€ˆŸ …›‚ˆ‘’›• ‹ˆˆ‰. Š€†„›‰ ˆ’ €ƒ“Œ…’€ ‡€„€…’ ˆ‡€Š ˆ‘Ž‚€ˆŸ ( ˆ’ “‘’€Ž‚‹… ‚ 1 ) ˆ‹ˆ Ž“‘Š€ ( ˆ’ ‚ 0 ) „‚“• ’Ž—…Š, ‹…†€™ˆ• € ‚…Š’Ž…. 20.3.31. Ž–…„“€ SETGRAPHMODE ‘ˆ’€Š‘ˆ‘: SETGRAPHMODE (MODE : INTEGER); Ž–…„“€ SETGRAPHMODE Ž‡‚Ž‹Ÿ…’ ‚ ‹žŽ‰ ŒŽŒ…’ ‚›Ž‹- …ˆŸ Žƒ€ŒŒ› “‘’€Ž‚ˆ’œ “†›‰ …†ˆŒ ‚›‚Ž„€ ˆ‡Ž€†…ˆŸ MODE, ˆ‘Ž‹œ‡“…’ „‚… ŠŽ‘’€’› NORMALPUT = 0 ŽŒ€‹œ›‰ ‚›‚Ž„ INVPUT = 1 ˆ‚…‘›‰ ‚›‚Ž„ 20.3.31. Ž–…„“€ SETVIZUALPAGE ‘ˆ’€Š‘ˆ‘: SETVIZUALPAGE ( BWRITE, BVIDEO : INTEGER ); Ž–…„“€ “‘’€Ž‚Šˆ “”…Ž‚ „‹Ÿ Ž’Ž€†…ˆŸ € Š€ ˆ ‡€ˆ‘ˆ ‚ €ŒŸ’œ. ŠŽ‘’€’› ŽŒ…Ž‚ “”…Ž‚: BUFFER0 = 0 ‚Š‹ž—…ˆ… …‚ŽƒŽ “”…€ BUFFER1 = 1 ‚Š‹ž—…ˆ… ‚’ŽŽƒŽ “”…€ ˆŒ…: SETVIZUALPAGE ( BUFFER0,BUFFER0); “„…’ Ž’Ž€†€’‘Ÿ ˆ ‡€ˆ‘›‚€’œ‘Ÿ ‚ …‚›‰ “”…. 20.3.32. Ž–…„“€ SETVIEWPORT ‘ˆ’€Š‘ˆ‘: SETVIEWPORT ( MINX, MAXX, MINY, MAXY : INTEGER ); Ž–…„“€ “‘’€Ž‚Šˆ €€Œ…’Ž‚ ƒ€”ˆ—…‘ŠŽƒŽ ŽŠ€. 20.3.32. Ž–…„“€ GETVIEWPORT ‘ˆ’€Š‘ˆ‘: GETVIEWPORT ( VAR MINX, MAXX, MINY, MAXY : INTEGER ); Ž–…„“€ —’…ˆŸ €€Œ…’Ž‚ ƒ€”ˆ—…‘ŠŽƒŽ ŽŠ€. 20.3.33. –…„“€ SETTEXTSTYLE ‘ˆ’€Š‘ˆ‘: SETTEXTSTYLE ( DIRECTION : INTEGER ); Ž–…„“€ ‡€„€ˆŸ €€‚‹…ˆŸ ‚›‚Ž„€ ’…Š‘’€. DIRECTION ŒŽ†…’ ˆ‡Œ…Ÿ’‘Ÿ ‚ …„…‹€• 0..3 0 - ŽŒ€‹œ›‰ ‚›‚Ž„ 1 - Ž‚…“’›‰ € 180 ƒ€„“‘Ž‚ 2 - € 90 ‚‹…‚Ž 3 - € 90 ‚€‚Ž - 137 - 21. ŒŽ„“‹œ DOS ŒŽ„“‹œ DOS Ÿ‚‹Ÿ…’‘Ÿ „ŽŽ‹ˆ’…‹œ›Œ €Š…’ŽŒ Ž„Žƒ€ŒŒ „‹Ÿ ‘ˆ‘’…Œ› PASCAL/FAST. Ž–…„“› ˆ ”“Š–ˆˆ, …€‹ˆ‡Ž‚€›… ‚ ŒŽ„“‹…, Ÿ‚‹Ÿž’‘Ÿ €‘˜ˆ…ˆ…Œ Ž’Ž‘ˆ’…‹œŽ ‘’€„€’ŽƒŽ Ÿ‡›Š€ PASCAL ˆ ‘‹“†€’ „‹Ÿ Ž€Ž’Šˆ ‘ˆ‘’…ŒŽƒŽ ‚…Œ…ˆ, Š€’€‹ŽƒŽ‚ ˆ ’.„. 21.1. …ŠŽŒ…„€–ˆˆ Ž “‘’€Ž‚Š… ˆ ˆ‘Ž‹œ‡Ž‚€ˆž ŒŽ„“‹Ÿ DOS €Š…’ Ž„Žƒ€ŒŒ „‹Ÿ ‘‚Ÿ‡ˆ ‘ Ž…€–ˆŽŽ‰ ‘ˆ‘’…ŒŽ‰ RT11 ‚›Ž‹… ‚ ‚ˆ„… ŒŽ„“‹Ÿ DOS, ‘Ž‘’ŽŸ™…ƒŽ ˆ‡ ˆ’…”…‰‘Ž‰ —€‘’ˆ (DOS.PAS) ˆ —€‘’ˆ …€‹ˆ‡€–ˆˆ (DOS.SAV). ……„ ˆ‘Ž‹œ- ‡Ž‚€ˆ…Œ ŒŽ„“‹Ÿ ‘‹…„“…’ €‡Œ…‘’ˆ’œ ”€‰‹› DOS.PAS ˆ DOS.SAV € “‘’Ž‰‘’‚…, ƒ„… €‘Ž‹Ž†… ‘ˆ‘’…Œ›‰ ŒŽ„“‹œ (PAS.SAV) ˆ €‡€—ˆ’œ ’ŽŒ“ “‘’Ž‰‘’‚“ ‹Žƒˆ—…‘ŠŽ… ˆŒŸ "PAS" (€ˆŒ…: ASS RK1 PAS). —’Ž› ˆ‘Ž‹œ‡Ž‚€’œ Ž–…„“› ˆ ”“Š–ˆˆ ŒŽ„“‹Ÿ DOS ‚ Žƒ€ŒŒ… Ž‹œ‡Ž‚€’…‹Ÿ, ‚ Žˆ‘€’…‹œ“ž —€‘’œ Žƒ€ŒŒ› ‘‹…- „“…’ ‚Š‹ž—ˆ’œ, ˆ ŽŒŽ™ˆ „ˆ…Š’ˆ‚› ŠŽŒˆ‹Ÿ’Ž€ "$I", ˆ’…- ”…‰‘“ž —€‘’œ ŒŽ„“‹Ÿ (*$I PAS:DOS.PAS*). 1 - 138 - … …ŠŽŒ…„“…’‘Ÿ ˆ‘Ž‹œ‡Ž‚€’œ Ž–…„“› ˆ ”“Š–ˆˆ „‹Ÿ Ž€Ž’Šˆ “‘’Ž‰‘’‚ ˆ Ž’‘“’‘’‚ˆˆ “ ’ˆ• “‘’Ž‰‘’‚ ƒŽ’Ž‚- Ž‘’ˆ Š ‚›Ž‹…ˆž Ž…€–ˆ‰ ‚‚Ž„€/‚›‚Ž„€. ‚ ’€Šˆ• ‘‹“—€Ÿ• ŒŽ†…’ Žˆ‘•Ž„ˆ’œ ‡€‚ˆ‘€ˆ… Ž…€–ˆŽŽ‰ ‘ˆ‘’…Œ›. Ž’ŽŒ“ ˆ €‚€ˆ‰ŽŒ ‘Ÿ’ˆˆ ‡€„€—ˆ Ž‘…„‘’‚ŽŒ “€‚‹Ÿž™…ƒŽ ‘ˆŒ‚Ž‹€ "CTRL-C" ˆ‘•Ž„ ŒŽ†…’ ›’œ €‡‹ˆ—…. ˆ ˆ‘Ž‹œ‡Ž‚€ˆˆ ‚ Žƒ€ŒŒ… Ž‹œ‡Ž‚€’…‹Ÿ „ˆ…Š’ˆ‚› ŠŽŒˆ‹Ÿ’Ž€ "$U-", ‚ ‘‹“—€… ‡€‚ˆ‘€ˆŸ Žƒ€ŒŒ›, ’…“…’‘Ÿ Ž‹›‰ ……‡€“‘Š ‘ˆ‘’…Œ›. 21.2. Žˆ‘€ˆ… ˆ’…”…‰‘Ž‰ —€‘’ˆ ŒŽ„“‹Ÿ DOS 21.2.1. ŠŽ‘’€’› …„Ž…„…‹…›… ‚ ŒŽ„“‹… DOS 21.2.1.1. ŠŽ‘’€’›, Ž…„…‹…›… Š€Š Œ€‘Šˆ ’ˆ€ ”€‰‹€ TEMPFILE ="400 -- ‚…Œ…›‰ ”€‰‹ FREEFILE = "1000 -- ‘‚ŽŽ„›‰ ”€‰‹ NORMALFILE = "2000 -- Ž‘’ŽŸ›‰ ”€‰‹ PROTECTED = "100000 -- ”€‰‹ ‡€™ˆ™…›‰ Ž’ Ž…€–ˆˆ “„€‹…ˆŸ ’ˆ ŠŽ‘’€’› ˆ‘Ž‹œ‡“ž’‘Ÿ Š€Š Œ€‘Šˆ, Ž…„…‹Ÿž™ˆ… ’ˆ ”€‰‹€, ˆ ‚›Ž‹…ˆˆ Ž–…„“ FINDFIRST, FINDNEXT. 21.2.1.2. ŠŽ‘’€’›, Ž…„…‹…›… Š€Š ŠŽ„› Ž˜ˆŽŠ ‚Ž‡‚€™€…Œ›• Ž–…„“€Œˆ ˆ ”“Š–ˆŸŒˆ ŒŽ„“‹Ÿ DOS DOSNOMEM = 8 -- …„Ž‘’€’Ž—Ž Œ…‘’€ ‚ €ŒŸ’ˆ DOSNOFILES = 18 -- Ž’‘“’‘’‚ˆ… ”€‰‹Ž‚ DOSNODIR = 3 -- Š€’€‹Žƒ … €‰„… 1 - 139 - 21.2.2. ……Œ…›…, …„Ž…„…‹…›… ‚ ŒŽ„“‹… DOS ‚ ŒŽ„“‹… …„Ž…„…‹…€ ‚‘…ƒŽ ‹ˆ˜œ Ž„€ ……Œ…€Ÿ DOSERROR : INTEGER; ……Œ…€Ÿ ‘Ž„…†ˆ’ ŠŽ„ Ž˜ˆŠˆ, ‚Ž‡‚€™€…Œ›‰ Ž‘‹… ‚›Ž‹…ˆŸ Ž–…„“ ˆ ”“Š–ˆ‰ ŒŽ„“‹Ÿ DOS. Ž‹œ “Š€‡›‚€…’ € “‘…˜Ž… ‡€‚…˜…ˆ… Ž–…„“› ˆ‹ˆ ”“Š–ˆˆ ŒŽ„“‹Ÿ DOS. 21.2.3. ’ˆ›, …„Ž…„…‹…›… ‚ ŒŽ„“‹… DOS ‚ ŒŽ„“‹… …„Ž…„…‹…Ž „‚€ ’ˆ€: TYPE SEARCHREC = RECORD SYS : STRING[23]; -- Ž‹… ‡€…‡…‚ˆŽ‚€Ž ‚ DOS ˆ … „Ž‹†Ž ˆ‡Œ…Ÿ’œ‘Ÿ. ATTR : INTEGER; -- Ž‹… ‘Ž„…†ˆ’ €’ˆ“’› ”€‰‹€ ‘ŠŽŒˆˆŽ‚€›… ˆ‡ Œ€‘ŽŠ ’ˆŽ‚ ”€‰‹€. TIME : INTEGER; -- Ž‹… ‘Ž„…†ˆ’ “€ŠŽ‚€“ž „€’“ ‘Ž‡„€ˆŸ ”€‰‹€. SIZE : INTEGER; -- Ž‹… ‘Ž„…†ˆ’ €‡Œ… ”€‰‹€ ‚ ‹ŽŠ€• Ž 512 €‰’. NAME : STRING[15]; -- Ž‹… ‘Ž„…†ˆ’ ˆŒŸ ”€‰‹€. AUX : STRING[20]; -- Ž‹… ‘Ž„…†ˆ’ „ŽŽ‹ˆ’…‹œ“ž ˆ”ŽŒ€–ˆž Ž ”€‰‹…. END; DATETIME = RECORD YEAR, MONTH, DAY, DAYOFWEEK, HOUR, MIN, SEC : INTEGER; END; ……Œ…€Ÿ ’ˆ€ DATETIME ˆ‘Ž‹œ‡“…’‘Ÿ ‚Œ…‘’… ‘ Ž–…„“- Ž‰ UNPACKDATE. Ž‘ RT11 … ‘‹…„ˆ’ ‡€ €‚ˆ‹œŽ‘’œž ‡€—…ˆ‰ „€’› ˆ ‚…Œ…ˆ. Ž’ŽŒ“ €‚ˆ‹œŽ …Ž€‡Ž‚€› “„“’ ‡€—…- ˆŸ: YEAR (ƒŽ„) ‚ „ˆ€€‡Ž… 1972..1999, ˆ—…Œ ””…Š’ˆ‚›Œˆ Ÿ‚‹Ÿž’‘Ÿ „‚… Ž‘‹…„ˆ… –ˆ”›, ’.…. 72..99. MONTH (Œ…‘Ÿ–) ‚ „ˆ€€‡Ž… 1..12. DAY („…œ) ‚ „ˆ€€‡Ž… 1..31. DAYOFWEEK (ŽŸ„ŠŽ‚›‰ ŽŒ… „Ÿ …„…‹ˆ) ‚ „ˆ€€‡Ž… 0..6. ‡€—…ˆ… Ž‹Ÿ DAYOFWEEK Ÿ‚‹Ÿ…’‘Ÿ ‚›—ˆ‘‹Ÿ…Œ›Œ, ’.K. Ž‘ RT11 … Ž€€’›‚€…’ ˆ … ‘Ž•€Ÿ…’ ‡€—…ˆ… „Ÿ …„…‹ˆ. HOUR (—€‘›) ‚ „ˆ€€‡Ž… 0..23. MIN (Œˆ“’›) ‚ „ˆ€€‡Ž… 0..59. SEC (‘…Š“„›) ‚ „ˆ€€‡Ž… 0..59. 1 - 140 - 21.3. Žˆ‘€ˆ… Ž–…„“ ˆ ”“Š–ˆ‰ ŒŽ„“‹Ÿ DOS 21.3.1. Ž–…„“€ FINDFIRST ‘ˆ’€Š‘ˆ‘: FINDFIRST (PATT:STRING; ATTR:INTEGER; VAR SR:SERCHREC) Ž–…„“€ ˆ™…’ € “Š€‡€ŽŒ ˆ‹ˆ ’…Š“™…Œ “‘’Ž‰‘’‚… ‹…- Œ…’ ‘Ž‚€„€ž™ˆ‰ ‘ “Š€‡€›Œ ˆŒ……Œ ”€‰‹€ ˆ €ŽŽŒ €’ˆ“- ’Ž‚. PATT -- ˜€‹Ž ˆŒ…ˆ ”€‰‹€ (€ˆŒ…: 'DK:MYFILE.PAS' ˆ‹ˆ 'SY:*.*' ˆ‹ˆ '*.SAV'). ATTR -- “Š€‡›‚€…’, —’Ž €„Ž ˆ‘Š€’œ ”€‰‹› ’Ž‹œŠŽ ‘ ‡€„€›Œˆ €’ˆ“’€Œˆ (‘Œ. …„Ž…„…‹…›… ‡€—…ˆŸ Œ€‘ŽŠ ’ˆ€ ”€‰‹Ž‚). SR -- ……Œ…€Ÿ ‘Ž„…†ˆ’ …‡“‹œ’€’ Žˆ‘Š€ ‚ Š€’€‹Žƒ…. …‘‹ˆ ›‹€ Ž˜ˆŠ€ ……Œ…€Ÿ DOSERROR ‘Ž„…†ˆ’ ŠŽ„ Ž˜ˆ- Šˆ, …‘‹ˆ ‡€‚…˜…ˆ… Ž–…„“› ›‹Ž “‘…˜›Œ DOSERROR ‘Ž„…- †ˆ’ Ž‹œ. ˆ‘Ž‹œ‡Ž‚€ˆ… Ž–…„“› ŽŠ€‡€Ž ‚ “Š’… "ˆŒ… Žƒ- €ŒŒ›, ˆ‘Ž‹œ‡“ž™…‰ ŒŽ„“‹œ DOS". 21.3.2. Ž–…„“€ FINDNEXT ‘ˆ’€Š‘ˆ‘: FINDNEXT(VAR SR : SEARCHREC); Ž–…„“€ ˆ™…’ ‚ Š€’€‹Žƒ… ‘‹…„“ž™ˆ‰ ‹…Œ…’, ŠŽ’Ž›‰ ‘Ž‚€„€…’ Ž ˆŒ…ˆ ˆ €’ˆ“’€Œ ‘ €€Œ…’€Œˆ “Š€‡€›Œˆ ‚ …„›„“™…Œ ‚›‡Ž‚… FINDFIRST (SR „Ž‹†€ ›’œ ’Ž‰ †… ‘€ŒŽ‰ ‡€ˆ‘œž, —’Ž “Š€‡€€ ‚ Ž€™…ˆˆ FINDFIRST). ˆ‘Ž‹œ‡Ž‚€ˆ… Ž–…„“› ŽŠ€‡€Ž ‚ “Š’… "ˆŒ… Žƒ- €ŒŒ›, ˆ‘Ž‹œ‡“ž™…‰ ŒŽ„“‹œ DOS". 1 - 141 - 21.3.3. Ž–…„“€ GETDATE ‘ˆ’€Š‘ˆ‘: GETDATE (VAR YEAR, MONTH, DAY, DAYOFWEEK : INTEGER); ‚Ž‡‚€™€…’ ’…Š“™“ž „€’“ “‘’€Ž‚‹…“ž ‚ ‘ˆ‘’…Œ…. „ˆ€€- ‡Ž ‚Ž‡‚€™€…Œ›• ‡€—…ˆ‰: YEAR (ƒŽ„) 72..99. MONTH (Œ…‘Ÿ–) 1..12. DAY („…œ) 1..31. DAYOFWEEK (ŽŸ„ŠŽ‚›‰ ŽŒ… „Ÿ …„…‹ˆ) 0..6, 0 Ž‡€—€…’ '‚Ž‘Š…‘…œ…'. ˆ‘Ž‹œ‡Ž‚€ˆ… Ž–…„“› ŽŠ€‡€Ž ‚ “Š’… "ˆŒ… Žƒ- €ŒŒ›, ˆ‘Ž‹œ‡“ž™…‰ ŒŽ„“‹œ DOS". 21.3.4. Ž–…„“€ UNPACKDATE ‘ˆ’€Š‘ˆ‘: UNPACKDATE (DATE : INTEGER; VAR DT : DDATETIME); Ž–…„“€ …Ž€‡“…’ „€’“, …„‘’€‚‹…“ž ‚Ž ‚“’…- …Œ ”ŽŒ€’… Ž‘ RT11, ‚ –…‹›… ‡€—…ˆŸ (‘Œ. Žˆ‘€ˆ… Ž–…„“- › GETDATE ˆ ‚›˜… Žˆ‘€›‰ …„Ž…„…‹…›‰ ’ˆ DATETIME) ˆ ‚Ž‡‚€™€…’ ˆ• ‚ ……Œ…“ž DT. UNPACKDATE ˆ‘Ž‹œ‡“…’‘Ÿ „‹Ÿ €‘€ŠŽ‚Šˆ „€’› Ž‹“—…Ž‰ Ž–…„“€Œˆ FINDFIRST ˆ FINDNEXT. ˆ‘Ž‹œ‡Ž‚€ˆ… Ž–…„“› ŽŠ€‡€Ž ‚ “Š’… "ˆŒ… Žƒ- €ŒŒ›, ˆ‘Ž‹œ‡“ž™…‰ ŒŽ„“‹œ DOS". 21.3.5. Ž–…„“€ GETTIME ‘ˆ’€Š‘ˆ‘: GETTIME (VAR HOUR, MINS, SECS, SECS100 : INTEGER) Ž–…„“€ ‚Ž‡‚€™€…’ ’…Š“™…… ‘ˆ‘’…ŒŽ… ‚…ŒŸ. …Ž€- ‡Ž‚€›… ‡€—…ˆŸ ‚…Œ…ˆ €•Ž„Ÿ’‘Ÿ ‚ „ˆ€€‡Ž…: HOUR (—€‘›) ‚ „ˆ€€‡Ž… 0..23. MINS (Œˆ“’›) ‚ „ˆ€€‡Ž… 0..59. SECS (‘…Š“„›) ‚ „ˆ€€‡Ž… 0..59. SECS100 (‘Ž’›… „Ž‹ˆ ‘…Š“„›) ‚ „ˆ€€‡Ž… 0..99. 1 - 142 - 21.3.6. Ž–…„“€ SETTIME ‘ˆ’€Š‘ˆ‘: SETTIME (VAR HOUR, MINS, SECS, SECS100 : INTEGER) Ž–…„“€ “‘’€€‚‹ˆ‚€…’ ‘ˆ‘’…ŒŽ… ‚…ŒŸ, ŠŽ’ŽŽ… ……- „€…’‘Ÿ €€Œ…’€Œˆ-……Œ…›Œˆ (‘Œ. Žˆ‘€ˆ… Ž–…„“› GETTIME). 21.3.7. Ž–…„“€ SETDATE ‘ˆ’€Š‘ˆ‘: SETDATE (VAR YEAR, MONTH, DAY, DAYOFWEEK : INETEGER Ž–…„“€ “‘’€€‚‹ˆ‚€…’ ‘ˆ‘’…Œ“ž „€’“, ŠŽ’Ž€Ÿ ……- „€…’‘Ÿ €€Œ…’€Œˆ-……Œ…›Œˆ (‘Œ. Žˆ‘€ˆ… Ž–…„“› GETDATE). 21.3.8. ”“Š–ˆŸ DISKSIZEBLK ‘ˆ’€Š‘ˆ‘: DISKSIZEBLK (DISKNAME : STRING); ‚Ž‡‚€™€…’ ””…Š’ˆ‚Ž… ‡€—…ˆ… €‡Œ…€ “Š€‡€ŽƒŽ “‘’- Ž‰‘’‚€, ‚ ‹ŽŠ€• Ž 512 €‰’. DISKNAME -- ˆŒŸ “‘’Ž‰‘’‚€, ˆŸ’Ž… ‚ Ž‘ RT11. €ˆŒ…: DSB := DISKSIZEBLK ('DK:'); …‘‹ˆ ›‹Ž “Š€‡€Ž ˆŒŸ “‘’Ž‰‘’‚€ ‘ Ž‘‹…„Ž‚€’…‹œ›Œ „Ž‘’“ŽŒ, ’Ž ”“Š–ˆŸ ‚Ž‡‚€™€…’ ‡€—…ˆ… 0. Ž‘‹… ‚›Ž‹…ˆŸ ”“Š–ˆˆ, ……Œ…€Ÿ DOSERROR ŒŽ†…’ ‘Ž„…†€’œ ŠŽ„ Ž˜ˆŠˆ (‘Œ. Žˆ‘€ˆ… ˆ’…”…‰‘Ž‰ —€‘’ˆ ŒŽ„“‹Ÿ DOS). 1 - 143 - 21.3.9. ”“Š–ˆŸ DISKFREEBLK ‘ˆ’€Š‘ˆ‘: DISKFREEBLK (DISKNAME : STRING); ‚Ž‡‚€™€…’ ‡€—…ˆ… ŠŽ‹ˆ—…‘’‚€ ‘‚ŽŽ„ŽƒŽ Œ…‘’€ € “Š€- ‡€ŽŒ “‘’Ž‰‘’‚…, ‚ ‹ŽŠ€• Ž 512 €‰’. DISKNAME -- ˆŒŸ “‘’Ž‰‘’‚€, ˆŸ’Ž… ‚ Ž‘ RT11. €ˆŒ…: DFB := DISKFREEBLK ('DK:'); …‘‹ˆ ›‹Ž “Š€‡€Ž ˆŒŸ “‘’Ž‰‘’‚€ ‘ Ž‘‹…„Ž‚€’…‹œ›Œ „Ž‘’“ŽŒ, ’Ž ”“Š–ˆŸ ‚Ž‡‚€™€…’ ‡€—…ˆ… 0. Ž‘‹… ‚›Ž‹…ˆŸ ”“Š–ˆˆ, ……Œ…€Ÿ DOSERROR ŒŽ†…’ ‘Ž„…†€’œ ŠŽ„ Ž˜ˆŠˆ (‘Œ. Žˆ‘€ˆ… ˆ’…”…‰‘Ž‰ —€‘’ˆ ŒŽ„“‹Ÿ DOS). 21.3.10. ”“Š–ˆŸ DISKMAXFREEBLK ‘ˆ’€Š‘ˆ‘: DISKMAXFREEBLK (DISKNAME : STRING); ‚Ž‡‚€™€…’ ‡€—…ˆ… €‡Œ…€ Œ€Š‘ˆŒ€‹œŽƒŽ ‘‚ŽŽ„ŽƒŽ “—€‘’Š€ € “Š€‡€ŽŒ “‘’Ž‰‘’‚…, ‚ ‹ŽŠ€• Ž 512 €‰’. DISKNAME -- ˆŒŸ “‘’Ž‰‘’‚€, ˆŸ’Ž… ‚ Ž‘ RT11. €ˆŒ…: DMFB := DISKMAXFREEBLK ('DK:'); …‘‹ˆ ›‹Ž “Š€‡€Ž ˆŒŸ “‘’Ž‰‘’‚€ ‘ Ž‘‹…„Ž‚€’…‹œ›Œ „Ž‘’“ŽŒ, ’Ž ”“Š–ˆŸ ‚Ž‡‚€™€…’ ‡€—…ˆ… 0. Ž‘‹… ‚›Ž‹…ˆŸ ”“Š–ˆˆ, ……Œ…€Ÿ DOSERROR ŒŽ†…’ ‘Ž„…†€’œ ŠŽ„ Ž˜ˆŠˆ (‘Œ. Žˆ‘€ˆ… ˆ’…”…‰‘Ž‰ —€‘’ˆ ŒŽ„“‹Ÿ DOS). 21.4. ˆŒ… Žƒ€ŒŒ›, ˆ‘Ž‹œ‡“ž™…‰ ŒŽ„“‹œ DOS PROGRAM FINDTEST; (*‚Š‹ž—…ˆ… ˆ’…”…‰‘Ž‰ —€‘’ˆ ŒŽ„“‹Ÿ DOS*) (*$I PAS:DOS.PAS*) CONST MONNAMES : ARRAY [1..12] OF ARRAY [1..3] OF CHAR = ('JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC'); 1 - 144 - WEEKDAYS : ARRAY [0..6] OF STRING [12] = ('‚Ž‘Š…‘…œ…', 'Ž…„…‹œˆŠ', '‚’ŽˆŠ', '‘…„€', '—…’‚…ƒ', 'Ÿ’ˆ–€', '‘“Ž’€'); VAR SR : SEARCHREC; S : STRING; DT : DATETIME; Y, M, D, WD : INTEGER; BEGIN (* Žˆ‡‚…‘’ˆ ‚‚Ž„ ˆŒ…ˆ ‚ ‘ŽŽ’‚…’‘’‚ˆˆ ‘ ’…Ž‚€ˆŸŒˆ Ž‘ RT11, €ˆŒ…: "DK:*.SAV" ˆ‹ˆ "RK1:*.*" *) WRITE ('NAME: '); READLN (S); WRITELN; (* ‚›‚Ž„ ’…Š“™…‰ „€’›, “‘’€Ž‚‹…Ž‰ ‚ Ž‘ RT11 *) GETDATE (Y, M, D, WD); WRITELN (D:2, '-', MONNAMES [M], '-', Y, ' ', WEEKDAYS [WD]); (* Žˆ‘Š ‚ Š€’€‹Žƒ… …‚ŽƒŽ ‚‘’…’ˆ‚˜…ƒŽ‘Ÿ ”€‰‹€ ‘ ‚‚…„…›Œ ˆŒ……Œ ˆ €’ˆ“’€Œˆ Ž›—ŽƒŽ ˆ‹ˆ ‡€™ˆ™…ŽƒŽ Ž’ “„€‹…ˆŸ ”€‰‹€ *) FINDFIRST (S, NORMALFILE OR FREEFILE, SR); (* –ˆŠ‹ ‘ …„“‘‹Ž‚ˆ…Œ Ž‡‚Ž‹Ÿ…’ Ž‘ŒŽ’…’œ Ž‘’€‚˜“ž‘Ÿ —€‘’œ Š€’€‹Žƒ€ ‘ ŽŒŽ™œž FINDNEXT *) WHILE DOS…RROR = 0 DO BEGIN (* €‡Ž ’ˆ€ €’ˆ“’€ ˆ ‘ŽŽ’‚…’‘’‚“ž™€Ÿ Ž€Ž’Š€ *) IF (SR.ATTR AND FREEFILE) <> 0 THEN WRITELN (' < ‘‚ŽŽ„Ž > ':16, SR.SIZE:4) ELSE BEGIN WRITE (SR.NAME:16, SR.SIZE:4); IF (SR.ATTR AND PROTECTED) <> 0 THEN WRITE ('P') ELSE WRITE (' '); UNPACKDAT… (SR.TIME, DT); WRITELN (DT.DAY:4, '-', MONNAMES [DT.MONTH], '-', DT.YEAR,' ', WEEKDAYS [DT.DAYOFWEEK]); END; (* Žˆ‘Š ‘‹…„“ž™…ƒŽ ‹…Œ…’€ Š€’€‹Žƒ€ ‘ ‡€„€›Œˆ ‘‚Ž‰‘’‚€Œˆ *) FINDNEXT (SR); END; END. 1 - 145 - ๊๊ˆ๊‹๊Ž๊†๊…๊๊ˆ๊Ÿ 1 - 146 - ˆ‹Ž†…ˆ… 1 K€’Šˆ‰ ‘€‚Ž—ˆŠ ŠŽŒ€„ …„€Š’Ž€ T€‹ˆ–€๊1 ------------------------------------------------------------ :Š‹€‚ˆ˜€ ˆ‹ˆ : ‚›Ž‹Ÿ…ŒŽ… „…‰‘’‚ˆ… : :Ž‘‹E„Ž‚€’…‹œ-: : :Ž‘’œ Š‹€‚ˆ˜ : : ------------------------------------------------------------ : : ……Œ…™…ˆ… Ž ’…Š‘’“ : : : : : ‘’…‹Š€ : ……„‚ˆ†…ˆ… Œ€Š…€ € 1 Ž‡ˆ–ˆž:‚€‚Ž : : ‚€‚Ž : : : ‘’…‹Š€ : ‚‹…‚Ž : : ‚‹…‚Ž : : : ‘’…‹Š€ : ‚‚…• : : ‚‚…• : : : ‘’…‹Š€ : ‚ˆ‡ : : ‚ˆ‡ : : : : Œ€Š… ‚ ŠŽ…– ‘’ŽŠˆ : : ‘’…‹Š€ : : : ‚€‚Ž : : : : Œ€Š… ‚ €—€‹Ž ‘’ŽŠˆ : : ‘’…‹Š€ : : : ‚‹…‚Ž : : : : Œ€Š… € 12 ‘’ŽŠ ‚‚…• : : ‘’…‹Š€ : : : ‚‚…• : : : : Œ€Š… € 12 ‘’ŽŠ ‚ˆ‡ : : ‘’…‹Š€ : : : ‚ˆ‡ : : : "4" : “‘’€Ž‚ˆ’œ ’…Š“™“ž Ž‡ˆ–ˆž € ŠŽ…– ”€‰‹€ : : "5" : “‘’€Ž‚ˆ’œ ’…Š“™“ž Ž‡ˆ–ˆž € €—€‹Ž ”€‰‹€: : : : : : ŠŽ…Š’ˆŽ‚Š€ ’…Š‘’€ : : : : : <‡> : “„€‹…ˆ… 1 ‘ˆŒ‚Ž‹€ ‘‹…‚€ Ž’ ’…Š“™…‰ : : : Ž‡ˆ–ˆˆ : : : “„€‹…ˆ… 1 ‘ˆŒ‚Ž‹€ ‘€‚€ Ž’ ’…Š“™…‰ : : : Ž‡ˆ–ˆˆ : : <‚Š> : ‚‘’€‚Š€ ‘ˆŒ‚Ž‹€ ŠŽ–€ ‘’ŽŠˆ ‘‹…‚€ : : : Ž’ ’…Š“™…‰ Ž‡ˆ–ˆˆ : : <‡> : “„€‹…ˆ… ‚‘…• ‘ˆŒ€Ž‹Ž‚ ‘€‚€ Ž’ ’…Š“- : : : ™…‰ Ž‡ˆ–ˆˆ ‘ “„€‹…ˆ…Œ ‘ˆŒ‚Ž‹€ ŠŽ–€ : : : ‘’ŽŠˆ : : : ’Ž †… …‡ “„€‹…ˆŸ ‘ˆŒ‚Ž‹€ ŠŽ–€ ‘’ŽŠˆ : : : : 1 - 147 - : : €Ž’€ ‘ “—€‘’Š€Œˆ ’…Š‘’€ : : : : : "W" : Ž’Œ…’ˆ’œ €—€‹Ž “—€‘’Š€ ’…Š‘’€ : : "‚" : : : "N" : Ž’Œ…’ˆ’œ ŠŽ…– “—€‘’Š€ ’…Š‘’€ : : "" : : : "“" : “„€‹ˆ’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ : : "Š" : ‘ŠŽˆŽ‚€’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ : : : ‚ ’…Š“™“ž Ž‡ˆ–ˆž : : "" : ……Œ…‘’ˆ’œ Ž’Œ…—…›‰ “—€‘’ŽŠ ’…Š‘’€ : : : ‚ ’…Š“™“ž Ž‡ˆ–ˆž : : "‘" : ‘Ž‘ Ž’Œ…’ŽŠ ƒ€ˆ– : : : : : : „“ƒˆ… ‚Ž‡ŒŽ†Ž‘’ˆ …„€Š’Ž€ : : : : : "8" : Žˆ‘Š Ž€‡–€ Ž ’…Š‘’“ : : "7" : ‚•Ž„ ‚ …„€Š’ˆŽ‚€ˆ… „“ƒŽƒŽ ”€‰‹€ : : "^" : ……Š‹ž—…ˆ… …†ˆŒŽ‚ "“‘" ˆ "‹€’" : : : …ƒ……€–ˆŸ Š€€ : : : ‚›•Ž„ ˆ‡ …„€Š’Ž€ : ------------------------------------------------------------ 1 - 148 - ˆ‹Ž†…ˆ… 2 ’€‹ˆ–€ ŠŽ„€ ŠŽˆ-8 ’€‹ˆ–€๊1 ------------------------------------------------------------ : ‚Ž‘œŒ…ˆ—-: ŽŽ‡€- : €ˆŒ…Ž‚€ˆ… : : ›‰ ŠŽ„ : —…ˆ… : : ------------------------------------------------------------ : 000 : : : : 001 : : : : 002 : : : : 003 : : : : 004 : : : : 005 : : : : 006 : : : : 007 : BEL : ‡‚ŽŽŠ;CTRL/G : : 010 : : : : 011 : : : : 012 : LF : ……‚Ž„ ‘’ŽŠˆ;CTRL/J : : 013 : : : : 014 : : : : 015 : CR : ‚Ž‡‚€’ Š€…’Šˆ;CTRL/M : : 016 : : : : 017 : : : : 020 : : : : 021 : : : : 022 : : : : 023 : : : : 024 : : : : 025 : : : : 026 : : : : 027 : : : : 030 : : : : 031 : : : : 032 : : : : 033 : ESC : €‚’Ž…ƒˆ‘’ 2;CTRL/[ : : 034 : : : : 035 : : : : 036 : : : : 037 : : : : 040 : : Ž…‹ : : 041 : ! : ‚Ž‘Š‹ˆ–€’…‹œ›‰ ‡€Š : : 042 : " : Š€‚›—Šˆ : : 043 : # : ŽŒ… : : 044 : $ : ‡€Š „……†Ž‰ …„ˆˆ–› : : 045 : % : Ž–…’ : : 046 : & : ŠŽŒŒ…—…‘ŠŽ… "ˆ" : : 047 : ' : €Ž‘’Ž” : : 050 : ( : ‹…‚€Ÿ Š“ƒ‹€Ÿ ‘ŠŽŠ€ : : 051 : ) : €‚€Ÿ Š“ƒ‹€Ÿ ‘ŠŽŠ€ : : 052 : * : ‡‚…‡„Ž—Š€ : : 053 : + : ‹ž‘ : : 054 : , : ‡€Ÿ’€Ÿ : 1 - 149 - : 055 : - : Œˆ“‘ : : 056 : . : ’Ž—Š€ : : 057 : / : €Š‹Ž€Ÿ —…’€ : : 060 : 0 : : : 061 : 1 : : : 062 : 2 : : : 063 : 3 : : : 064 : 4 : : : 065 : 5 : : : 066 : 6 : : : 067 : 7 : : : 070 : 8 : : : 071 : 9 : : : 072 : : : „‚Ž…’Ž—ˆ… : : 073 : ; : ’Ž—Š€ ‘ ‡€Ÿ’Ž‰ : : 074 : < : Œ…œ˜… : : 075 : = : €‚Ž : : 076 : > : Ž‹œ˜… : : 077 : ? : ‚ŽŽ‘ˆ’…‹œ›‰ ‡€Š : : 100 : @ : ŠŽŒŒ…—…‘ŠŽ… "’" : : 101 : A : ‡€ƒ‹€‚›… “Š‚› ‹€’ˆ‘ŠŽƒŽ : : 102 : B : €‹”€‚ˆ’€ : : 103 : C : : : 104 : D : : : 105 : E : : : 106 : F : : : 107 : G : : : 110 : H : : : 111 : I : : : 112 : J : : : 113 : K : : : 114 : L : : : 115 : M : : : 116 : N : : : 117 : O : : : 120 : P : : : 121 : Q : : : 122 : R : : : 123 : S : : : 124 : T : : : 125 : U : : : 126 : V : : : 127 : W : : : 130 : X : : : 131 : Y : : : 132 : Z : : : 133 : [ : ‹…‚€Ÿ ‘ŠŽŠ€ : : 134 : \ : : : 135 : ] : €‚€Ÿ ‘ŠŽŠ€ : : 136 : ^ : : : 137 : ๊ : : : 140 : ž : ‘’Ž—›… “Š‚› ‹€’ˆ‘ŠŽƒŽ : : 141 : A : €‹”€‚ˆ’€ : : 142 : B : : : 143 : C : : : 144 : D : : : 145 : E : : : 146 : F : : 1 - 150 - : 147 : G : : : 150 : H : : : 151 : I : : : 152 : J : : : 153 : K : : : 154 : L : : : 155 : M : : : 156 : N : : : 157 : O : : : 160 : P : : : 161 : Q : : : 162 : R : : : 163 : S : : : 164 : T : : : 165 : U : : : 166 : V : : : 167 : W : : : 170 : X : : : 171 : Y : : : 172 : Z : : : 173 : [ : ”ˆƒ“€Ÿ ‘ŠŽŠ€ ‹…‚€Ÿ : : 174 : \ : : : 175 : ] : ”ˆƒ“€Ÿ ‘ŠŽŠ€ €‚€Ÿ : : 176 : : : : 177 : ‡ : ‡€Ž‰ : : 200 : : : : 201 : : : : 202 : : : : 203 : : : : 204 : : : : 205 : : : : 206 : : : : 207 : : BEL ‡‚ŽŽŠ;CTRL/G : : 210 : : : : 211 : : : : 212 : LF : ……‚Ž„ ‘’ŽŠˆ;CTRL/J : : 213 : : : : 214 : : : : 215 : CR : ‚Ž‡‚€’ Š€…’Šˆ;CTRL/M : : 216 : : : : 217 : : : : 220 : : : : 221 : : : : 222 : : : : 223 : : : : 224 : : : : 225 : : : : 227 : : : : 230 : : : : 231 : : : : 232 : : : : 233 : : : : 234 : : : : 235 : : : : 236 : : : : 237 : : : : 240 : : Ž…‹ : : 241 : ! : ‚Ž‘Š‹ˆ–€’…‹œ›‰ ‡€Š : 1 - 151 - : 242 : " : Š€‚›—Šˆ : : 243 : # : ŽŒ… : : 244 : $ : : : 245 : % : : : 246 : & : : : 247 : ' : : : 250 : ( : : : 251 : ) : : : 252 : * : : : 253 : + : : : 254 : , : : : 255 : - : : : 256 : . : : : 257 : / : : : 260 : 0 : : : 261 : 1 : : : 262 : 2 : : : 263 : 3 : : : 264 : 4 : : : 265 : 5 : : : 266 : 6 : : : 267 : 7 : : : 270 : 8 : : : 271 : 9 : : : 272 : : : : : 273 : ; : : : 274 : < : : : 275 : = : : : 276 : > : : : 277 : ? : : : 300 : ž : ‘’Ž—›… “Š‚› “‘‘ŠŽƒŽ : : 301 : € : €‹”€‚ˆ’€ : : 302 :  : : : 303 : – : : : 304 : „ : : : 305 : … : : : 306 : ” : : : 307 : ƒ : : : 310 : • : : : 311 : ˆ : : : 312 : ‰ : : : 313 : Š : : : 314 : ‹ : : : 315 : Œ : : : 316 :  : : : 317 : Ž : : : 320 :  : : : 321 : Ÿ : : : 322 :  : : : 323 : ‘ : : : 324 : ’ : : : 325 : “ : : : 326 : † : : : 327 : ‚ : : : 330 : œ : : : 331 : › : : : 332 : ‡ : : : 333 : ˜ : : 1 - 152 - : 334 :  : : : 335 : ™ : : : 336 : — : : : 337 : ’‚.‡€Š : : : 340 : ž : ‡€ƒ‹€‚›… “Š‚› “‘‘ŠŽƒŽ : : 341 : € : €‹”€‚ˆ’€ : : 342 :  : : : 343 : – : : : 344 : „ : : : 345 : … : : : 346 : ” : : : 347 : ƒ : : : 350 : • : : : 351 : ˆ : : : 352 : ‰ : : : 353 : Š : : : 354 : ‹ : : : 355 : Œ : : : 356 :  : : : 357 : Ž : : : 360 :  : : : 361 : Ÿ : : : 362 :  : : : 363 : ‘ : : : 364 : ’ : : : 365 : “ : : : 366 : † : : : 367 : ‚ : : : 370 : œ : : : 371 : › : : : 372 : ‡ : : : 373 : ˜ : : : 374 :  : : : 375 : ™ : : : 376 : — : : : 377 : : ‡€Ž‰ : ------------------------------------------------------------