Π‘ΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ
ΠΠ°ΡΠΈΠ°Π½ΡΠ½Π°Ρ ΡΠ°ΡΡΡ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΠ»ΠΎΠ²ΠΎΠΌ case, Π·Π° ΠΊΠΎΡΠΎΡΡΠΌ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π²ΡΠ±ΠΎΡΠ° Π²Π°ΡΠΈΠ°Π½ΡΠ° (Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Fig) Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ΠΌ ΡΠΈΠΏΠ°. ΠΠ°Π»Π΅Π΅ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΡΡ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ, Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠΎΡΠΎΡΡΡ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π²ΡΠ±ΠΎΡΠ° Π²Π°ΡΠΈΠ°Π½ΡΠ° (Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅ — Sguare, Triangle, Circle). ΠΠ° ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠΎΠΉ ΡΠ΅ΡΠ΅Π· Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ Π² ΠΊΡΡΠ³Π»ΡΡ ΡΠΊΠΎΠ±ΠΊΠ°Ρ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΏΠΎΠ»Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ Π²Π°ΡΠΈΠ°Π½ΡΠ° Π·Π°ΠΏΠΈΡΠΈ Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ΠΌ ΠΈΡ ΡΠΈΠΏΠΎΠ². ΠΡΡΠ³Π»ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π‘ΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ±ΡΠ°Ρ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ² Π΄Π°Π½Π½ΡΡ
Π‘ΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ — ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΡΠ²ΡΠ·Π°Π½Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ», ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠΈΡ ΠΊΠ°ΠΊ ΠΈΡ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΡ, ΡΠ°ΠΊ ΠΈ ΡΠΏΠΎΡΠΎΠ± Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ Π΄Π°Π½Π½ΡΡ .
ΠΡΠ±ΠΎΠΉ ΠΈΠ· ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ² Π΄Π°Π½Π½ΡΡ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΡΠ΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ ΠΎΠ±ΡΠ°Π·ΡΡΡΠΈΡ ΡΡΠΎΡ ΡΠΈΠΏ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ². ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΈΠ»ΠΈ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ° ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π²ΡΠ΅Π³Π΄Π° ΠΈΠΌΠ΅Π΅Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ. ΠΠ°ΠΆΠ΄Π°Ρ ΠΈΠ· ΡΡΠΈΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, Π² ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ, ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΡ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΌΡ ΡΠΈΠΏΡ.
Π Turbo Pascal 7.0 ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Ρ ΠΏΡΡΡ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ² Π΄Π°Π½Π½ΡΡ :
Ρ ΠΠ°ΡΡΠΈΠ² (Array)— ΡΡΠΎ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Π½ΡΠΉ Π½Π°Π±ΠΎΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°, ΠΊΠΎΡΠΎΡΡΠ΅ Π°Π΄ΡΠ΅ΡΡΡΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ°.
Ρ Π‘ΡΡΠΎΠΊΠ° (String) — ΡΡΠΎ ΡΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ², ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΈΠΌΠ΅ΡΡ ΡΠΈΠΏ Char ΠΈ ΡΠΈΠΏ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΈΠΌΠ΅Π΅Ρ Π½ΠΈΠΆΠ½ΡΡ Π³ΡΠ°Π½ΠΈΡΡ ΡΠ°Π²Π½ΡΡ ΠΎΠ΄Π½ΠΎΠΌΡ.
Ρ ΠΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ (Set) — ΡΡΠΎ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈ ΡΠΎΠ³ΠΎ ΠΆΠ΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠΈΠΏΠ°.
Ρ ΠΠ°ΠΏΠΈΡΡ (Record) — ΡΡΠΎ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠ°Π·Π½ΡΡ ΡΠΈΠΏΠΎΠ², ΠΈΠΌΠ΅ΡΡΠΈΡ ΠΎΠ±ΡΠ΅Π΅ ΠΈΠΌΡ ΠΈ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅.
Ρ Π€Π°ΠΉΠ» (File) — ΡΡΠΎ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ Π΄Π°Π½Π½ΡΡ , ΠΈΠΌΠ΅ΡΡΠΈΡ ΠΎΠ±ΡΠ΅Π΅ ΠΈΠΌΡ ΠΈ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΈ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ°Ρ Π½Π° Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠΌ Π½ΠΎΡΠΈΡΠ΅Π»Π΅.
3.4.2 ΠΠ°ΡΡΠΈΠ²Ρ (array)
ΠΠ°ΡΡΠΈΠ² ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Π½ΡΡ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°, ΠΊΠΎΡΠΎΡΡΠ΅ Π°Π΄ΡΠ΅ΡΡΡΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ°.
Π’ΠΈΠΏ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² (ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ) ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π»ΡΠ±ΡΠΌ, ΠΏΡΠΈΠ½ΡΡΡΠΌ Π² Turbo Pascal, ΠΊΡΠΎΠΌΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ²ΠΎΠ³ΠΎ.
ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠΉ ΠΈΠ½Π΄Π΅ΠΊΡ.
ΠΠ½Π΄Π΅ΠΊΡ — ΡΡΠΎ ΡΠΈΡΠ»ΠΎ, ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΈΠ»ΠΈ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠ΅Π»ΠΎΠ³ΠΎ ΠΈΠ»ΠΈ ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ² Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ ΠΌΠ°ΡΡΠΈΠ²Π°.
ΠΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ² ΡΠ°Π·Π»ΠΈΡΠ°ΡΡ:
- — ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ (ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΡΠΈΡΠ΅Π», ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ²): Ρ 1, x2, x3, …, xn — 1 ΠΈΠ½Π΄Π΅ΠΊΡ;
- — ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΡΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ:
- — Π΄Π²ΡΠΌΠ΅ΡΠ½ΡΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ (ΠΌΠ°ΡΡΠΈΡΡ) Π²ΠΈΠ΄Π°:
— ΡΡΠ΅Ρ ΠΌΠ΅ΡΠ½ΡΠ΅ ΠΈ Ρ. Π΄. ΠΌΠ°ΡΡΠΈΠ²Ρ.
ΠΠ»Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ»ΡΠΆΠ΅Π±Π½ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ Array.
ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°Π΄Π°ΡΡ:
- 1) ΠΈΠΌΡ ΠΌΠ°ΡΡΠΈΠ²Π°;
- 2) Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ°.
ΠΠ°ΡΡΠΈΠ²Ρ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ (Ρ.Π΅. ΠΏΠΎΡΠ»Π΅ ΡΠ»ΡΠΆΠ΅Π±Π½ΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π° Var), Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ:
Var.
ΠΠΌΡ_ΠΠ°ΡΡΠΈΠ²Π°: Array [ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ_ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ²] Of Π’ΠΈΠΏ_ΠΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ²_ΠΠ°ΡΡΠΈΠ²Π°;
Π³Π΄Π΅ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ_ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ² — ΡΠΏΠΈΡΠΎΠΊ Π³ΡΠ°Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ².
ΠΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΠΎΠ±ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
Var.
ΠΠΌΡ_ΠΠ°ΡΡΠΈΠ²Π°: ARRAY [Π½Π°Ρ_ΠΈΠ½Π΄Π΅ΠΊΡ.ΠΊΠΎΠ½_ΠΈΠ½Π΄Π΅ΠΊΡ] OF Π’ΠΈΠΏ_Π΄Π°Π½Π½ΡΡ ;
ΠΠ²ΡΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΠΎΠ±ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
Var.
ΠΠΌΡ_ΠΌΠ°ΡΡΠΈΠ²Π°: ARRAY [Π½Π°Ρ_ΠΈΠ½Π΄Π΅ΠΊΡ1.ΠΊΠΎΠ½_ΠΈΠ½Π΄Π΅ΠΊΡ1, Π½Π°Ρ_ΠΈΠ½Π΄Π΅ΠΊΡ2.ΠΊΠΎΠ½_ΠΈΠ½Π΄Π΅ΠΊΡ2] OF Π’ΠΈΠΏ_Π΄Π°Π½Π½ΡΡ ;
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ,.
Var.
mass:Array[1.100] Of Real;
A:Array[1.3,1.5] Of Integer;
B: Array ['A'.'Z'] Of Boolean.
ΠΠ°ΡΡΠΈΠ²Ρ Π½Π΅ ΠΌΠΎΠ³ΡΡ ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡΡΡ ΡΠ΅Π»ΠΈΠΊΠΎΠΌ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½ΡΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ. ΠΠΎΡΡΡΠΏ ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΡΠ΅ΠΌ ΡΠΊΠ°Π·Π°Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ½Π΄Π΅ΠΊΡΠ° Π² ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΡ ΡΠΊΠΎΠ±ΠΊΠ°Ρ .
ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΠΌΡ_ΠΠ°ΡΡΠΈΠ²Π° [ΠΈΠ½Π΄Π΅ΠΊΡ].
ΠΈΠ»ΠΈ.
ΠΠΌΡ_ΠΠ°ΡΡΠΈΠ²Π° [ΡΠΏΠΈΡΠΎΠΊ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ²].
ΠΡΠΈΠΌΠ΅Ρ.
Line[3]: =5;
Matrix[3,5]: =10;
Massiv[1,2,3]: =0;
Π‘ΡΡΠ»ΠΊΠ° Π½Π° ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΡΡ Π, Π»Π΅ΠΆΠ°ΡΠΈΠΉ Π½Π° ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠΈ i-ΡΠΎΠΉ ΡΡΡΠΎΠΊΠΈ ΠΈ j-ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ A [i, j].
ΠΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΡΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ ΠΈΠΌΠ΅ΡΡ Π΄Π²Π° ΠΈ Π±ΠΎΠ»Π΅Π΅ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ². ΠΠ»Ρ ΠΈΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΎΡΠ³Π°Π½ΠΈΠ·ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΈΠΊΠ»ΠΎΠ², ΠΏΡΠΈΡΠ΅ΠΌ ΠΎΠ΄ΠΈΠ½ Π²ΠΊΠ»Π°Π΄ΡΠ²Π°Π΅ΡΡΡ Π² Π΄ΡΡΠ³ΠΎΠΉ. Π’Π°ΠΊΠΈΠ΅ ΡΠΈΠΊΠ»Ρ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ Π²Π»ΠΎΠΆΠ΅Π½Π½ΡΠΌΠΈ ΠΈΠ»ΠΈ ΡΠΈΠΊΠ»Π°ΠΌΠΈ Π² ΡΠΈΠΊΠ»Π΅. ΠΡΠΈ ΡΡΠΎΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΡΠΈΠΊΠ»Π΅ Π±ΡΠ΄Π΅Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΠΈΠ½Π΄Π΅ΠΊΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π°.
ΠΠ»Ρ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ, ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ ΠΌΠ΅Π½ΡΡΡΡΡ.
ΠΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊΠΎ Π²ΡΠ΅ΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΡΠΈΠΊΠ»Π° FOR… TO…DO Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
3.4.3 Π‘ΡΡΠΎΠΊΠΎΠ²ΡΠΉ (string) ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ
Π Π·Π°Π΄Π°ΡΠ°ΠΌ ΠΈΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ΅ΠΊΡΡΠ° (ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ) ΠΎΡΠ½ΠΎΡΡΡΡΡ Π·Π°Π΄Π°ΡΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΏΠΎΠΈΡΠΊΠ° Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΈΠ»ΠΈ ΡΡΡΠΎΠΊ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ ΡΠ΅ΠΊΡΡΠ°Ρ , ΠΏΠΎΠ΄ΡΡΠ΅ΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΠΈΡ Π²Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠΉ ΠΈ ΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²ΠΊΠ΅ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΠΌΠ΅ΡΡ ΡΠ΅ΠΊΡΡΠ°.
ΠΡΠΎΠ±ΠΎΠ΅ ΠΌΠ΅ΡΡΠΎ Π² Turbo Pascal 7.0 Π·Π°Π½ΠΈΠΌΠ°ΡΡ ΠΌΠ°ΡΡΠΈΠ²Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ².
Π₯ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ.
1. Π ΡΠ°ΡΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΠΎΠΌ Π²ΠΈΠ΄Π΅ ΠΌΠ°ΡΡΠΈΠ²Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Ρ ΡΠ°Π½ΡΡΡΡ Π² ΠΏΠ°ΠΌΡΡΠΈ ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡ ΡΠΈΠΌΠ²ΠΎΠ»Ρ Π² ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠΌ ΡΠ»ΠΎΠ²Π΅.
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ°ΡΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π° ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΈΠΌΠ΅Π΅Ρ Π²ΠΈΠ΄:
var M: Array[1.20] of char;
2. Π ΡΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΠΎΠΌ Π²ΠΈΠ΄Π΅ Ρ ΡΠ°Π½ΡΡΡΡ Π² ΠΏΠ°ΠΌΡΡΠΈ ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡ ΡΠΈΠΌΠ²ΠΎΠ»Ρ Π² Π±Π°ΠΉΡΠ΅. ΠΡΠΈ Π΅Π³ΠΎ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ ΡΠ»ΡΠΆΠ΅Π±Π½ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ PACKED.
var MAS: Packed Array[1.20] of Char;
ΠΠ»Ρ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΈΠ· ΡΠ°ΡΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ Π² ΡΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΡΡ ΠΈ Π½Π°ΠΎΠ±ΠΎΡΠΎΡ, ΠΈΠ· ΡΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΠΎΠΉ Π² ΡΠ°ΡΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΡΡ, Π²Π²Π΅Π΄Π΅Π½Ρ Π΄Π²Π΅ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Pack, UnPack.
Π£ΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΎΠ±ΡΠ°Π·ΡΠ΅Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΡ ΡΡΡΠΎΠΊΡ.
Π‘ΠΈΠΌΠ²ΠΎΠ»ΡΠ½Π°Ρ ΡΡΡΠΎΠΊΠ° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ.
1. Π‘ΡΡΠΎΠΊΠΎΠ²ΠΎΠΉ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠΎΠΉ.
Π‘ΡΡΠΎΠΊΠΎΠ²Π°Ρ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ°, ΠΈΠ»ΠΈ ΡΡΡΠΎΠΊΠ°, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ², Π·Π°ΠΊΠ»ΡΡΠ΅Π½Π½ΡΡ Π² Π°ΠΏΠΎΡΡΡΠΎΡΡ.
Π‘ΡΡΠΎΠΊΠΎΠ²ΡΠ΅ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ ΠΌΠΎΠ³ΡΡ Π²Ρ ΠΎΠ΄ΠΈΡΡ Π² ΡΠΎΡΡΠ°Π² Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠΉ. ΠΠ°ΠΊ ΠΈ ΡΠΈΡΠ»ΠΎΠ²ΡΠ΅ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ, ΠΎΠ½ΠΈ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΎΠΏΠΈΡΠ°Π½Ρ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΊΠΎΠ½ΡΡΠ°Π½Ρ.
2. Π‘ΡΡΠΎΠΊΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
Π‘ΡΡΠΎΠΊΠΎΠ²ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ — ΡΡΠΎ ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠ΅ ΡΠΏΠ°ΠΊΠΎΠ²Π°Π½Π½ΡΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ², Π΄Π»Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΊΠΎΡΠΎΡΡΡ Π²Π²Π΅Π΄Π΅Π½ ΡΠΈΠΏ String.
Var.
line: String[80];
str: String;
ΠΠΎΡΠ»Π΅ ΡΠ»ΠΎΠ²Π° String ΠΌΠΎΠΆΠ΅Ρ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΡΡ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½Π°Ρ Π΄Π»ΠΈΠ½Π° ΡΡΡΠΎΠΊΠΈ. ΠΠ»ΠΈΠ½Π° ΡΡΡΠΎΠΊΠΈ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π±ΠΎΠ»Π΅Π΅, ΡΠ΅ΠΌ 255 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ².
ΠΡΠ»ΠΈ Π΄Π»ΠΈΠ½Π° Π½Π΅ ΡΠΊΠ°Π·Π°Π½Π°, ΡΠΎ ΡΡΠΈΡΠ°Π΅ΡΡΡ, ΡΡΠΎ ΠΎΠ½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΡΠΈΡΠ»ΠΎΠΌ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ², Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΡ Π½Π° ΠΌΠ΅ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠΈΠΏΠ° String ΠΏΡΠΈ Π²Π²ΠΎΠ΄Π΅ ΠΈΠ»ΠΈ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΠΈ. ΠΡΠΎ ΡΠΈΡΠ»ΠΎ Ρ ΡΠ°Π½ΠΈΡΡΡ Π² Π½ΡΠ»Π΅Π²ΠΎΠΌ Π±Π°ΠΉΡΠ΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ. Π’ΠΈΠΏ String Π±Π΅Π· ΡΠΊΠ°Π·Π°Π½ΠΈΡ Π΄Π»ΠΈΠ½Ρ ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌ ΡΠΎ Π²ΡΠ΅ΠΌΠΈ ΡΠΈΠΏΠ°ΠΌΠΈ ΡΡΡΠΎΠΊ.
ΠΠ°ΠΆΠ½ΠΎ, ΡΡΠΎ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π΄ΠΎΡΡΡΠΏΠ΅Π½ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ». ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ Π½Π΅ΠΌΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΡΠ΅ΠΌ ΡΠΊΠ°Π·Π°Π½ΠΈΡ Π΅Π³ΠΎ Π½ΠΎΠΌΠ΅ΡΠ° (ΠΈΠ½Π΄Π΅ΠΊΡΠ°). ΠΡΠΈ ΡΡΠΎΠΌ Π½ΠΈΠΆΠ½ΡΡ Π³ΡΠ°Π½ΠΈΡΠ° ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΡΠ°Π²Π½Π° 1. ΠΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΡΡΡΠΎΠΊΠΈ ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌ Ρ ΡΠΈΠΏΠΎΠΌ Char.
Π‘ΡΡΠΎΠΊΠΈ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ ΡΠΏΠΈΡΠΊΠ° Π²Π²ΠΎΠ΄Π°-Π²ΡΠ²ΠΎΠ΄Π°, ΠΏΡΠΈ ΡΡΠΎΠΌ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΈΠΌΡ ΡΡΡΠΎΠΊΠΈ Π±Π΅Π· ΠΈΠ½Π΄Π΅ΠΊΡΠ°. Writeln (str);
ΠΡΠΈ Π²Π²ΠΎΠ΄Π΅ ΡΡΡΠΎΠΊΠΎΠ²ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²Π²ΠΎΠ΄ΠΈΠΌΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΌΠ΅Π½ΡΡΠ΅, ΡΠ΅ΠΌ Π΄Π»ΠΈΠ½Π° ΡΡΡΠΎΠΊΠΈ. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²Π²ΠΎΠ΄ΠΈΠΌΡΠ΅ ΡΠΈΠΌΠ²ΠΎΠ»Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ°ΡΡΡΡ Ρ Π½Π°ΡΠ°Π»Π° ΡΡΡΠΎΠΊΠΈ, Π° ΠΎΡΡΠ°Π²ΡΠΈΠ΅ΡΡ Π±Π°ΠΉΡΡ Π·Π°ΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΏΡΠΎΠ±Π΅Π»Π°ΠΌΠΈ. ΠΡΠ»ΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²Π²ΠΎΠ΄ΠΈΠΌΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΏΡΠ΅Π²ΡΡΠ°Π΅Ρ Π΄Π»ΠΈΠ½Ρ ΡΡΡΠΎΠΊΠΈ, Π»ΠΈΡΠ½ΠΈΠ΅ ΡΠΈΠΌΠ²ΠΎΠ»Ρ ΠΎΡΠ±ΡΠ°ΡΡΠ²Π°ΡΡΡΡ.
ΠΠ»Ρ ΡΠ°Π±ΠΎΡΡ ΡΠΎ ΡΡΡΠΎΠΊΠ°ΠΌΠΈ Π² TP 7.0 Π²ΠΊΠ»ΡΡΠ΅Π½Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΡΠΎΠΊ.
Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡ Π΄Π²Π° ΠΏΡΡΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠΈΠΏΠ° String:
- 1. ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π²ΡΠ΅ΠΉ ΡΡΡΠΎΠΊΠΈ, ΠΊΠ°ΠΊ Π΅Π΄ΠΈΠ½ΠΎΠ³ΠΎ ΡΠ΅Π»ΠΎΠ³ΠΎ.
- 2. ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΡΡΠΎΠΊΠΈ ΠΏΠΎ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΡΡΠΈ.
ΠΠ»Ρ ΡΡΡΠΎΠΊ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ.
- 1. ΠΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΠ΅ s1 := 'ΠΠΠ’Π£'; s2 := '_ΠΠΠ€';
- 2. Π‘Π»ΠΈΡΠ½ΠΈΠ΅, ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΈΠΌΠ²ΠΎΠ»Π° +.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ s3 := s1 + s2; ΠΏΠΎΠ»ΡΡΠΈΠΌ ΡΡΡΠΎΠΊΡ s3, ΡΠ²Π»ΡΡΡΡΡΡΡ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ΠΌ ΡΡΡΠΎΠΊ s1 ΠΈ s2. s3 ΠΏΠΎΠ»ΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 'ΠΠΠ’Π£_ΠΠΠ€'.
3. Π‘ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π²ΡΠ΅Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡ.
Π‘ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΏΠΎΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΠΎ, Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π°. Π‘ΡΡΠΎΠΊΠΈ ΡΠ°Π²Π½Ρ, Π΅ΡΠ»ΠΈ ΠΈΠΌΠ΅ΡΡ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΡΡ Π΄Π»ΠΈΠ½Ρ ΠΈ ΠΏΠΎΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΠΎ ΡΠΊΠ²ΠΈΠ²Π°Π»Π΅Π½ΡΠ½Ρ.
4. Π€ΡΠ½ΠΊΡΠΈΡ Copy (ΠΈΡΡ _ΡΡΡΠΎΠΊΠ°, Π½Π°Ρ_Π½ΠΎΠΌΠ΅Ρ, Π΄Π»ΠΈΠ½Π°) ΠΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠΈ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ «Π΄Π»ΠΈΠ½Ρ» ΠΈΠ· «ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ», Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΡΠΈΠΌΠ²ΠΎΠ»Π°, ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ «Π½Π°ΡΠ°Π»ΡΠ½ΡΠΌ_Π½ΠΎΠΌΠ΅ΡΠΎΠΌ».
s1 := 'ΠΠΠ’Π£_ΠΠΠ€';
s2 := Copy (s1,6,3);{Π Π΅Π·ΡΠ»ΡΡΠ°Ρ: s2 ΠΏΠΎΠ»ΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 'ΠΠΠ€'}.
5. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Insert (ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠ°, ΠΈΡΡ _ΡΡΡΠΎΠΊΠ°, Π½Π°Ρ_Π½ΠΎΠΌΠ΅Ρ);
ΠΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²ΡΡΠ°Π²ΠΈΡΡ Π² ΠΈΡΡ ΠΎΠ΄Π½ΡΡ ΡΡΡΠΎΠΊΡ, Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ, ΡΡΠ°Π³ΠΌΠ΅Π½Ρ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ.
6. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Delete (ΠΈΡΡ _ΡΡΡΠΎΠΊΠ°, Π½Π°Ρ_Π½ΠΎΠΌΠ΅Ρ, Π΄Π»ΠΈΠ½Π°).
Π£Π΄Π°Π»ΡΠ΅Ρ ΠΈΠ· «ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ» ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΡ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ «Π΄Π»ΠΈΠ½Ρ», Π½Π°ΡΠΈΠ½Π°Ρ Ρ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ «Π½ΠΎΠΌΠ΅ΡΠ°»:
S:= 'ΠΠΠ’Π£_ΠΠΠ€';
Delete (S, 1,5);{Π Π΅Π·ΡΠ»ΡΡΠ°Ρ: S ΠΏΠΎΠ»ΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 'ΠΠΠ€'}.
7. Π€ΡΠ½ΠΊΡΠΈΡ Length (ΡΡΡΠΎΠΊΠ°).
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π΄Π»ΠΈΠ½Ρ ΡΡΡΠΎΠΊΠΈ (ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² Π½Π΅ΠΉ).
8. Π€ΡΠ½ΠΊΡΠΈΡ POS (ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠ°, ΡΡΡΠΎΠΊΠ°).
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π½ΠΎΠΌΠ΅Ρ ΡΠΈΠΌΠ²ΠΎΠ»Π°, Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ «ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠ°» Π²ΡΡΡΠ΅ΡΠ°Π΅ΡΡΡ Π² «ΡΡΡΠΎΠΊΠ΅» (Π΅ΡΠ»ΠΈ Π½Π΅ Π²ΡΡΡΠ΅ΡΠ°Π΅ΡΡΡ — Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π½ΠΎΠ»Ρ). ΠΡΠΎΠΏΠΈΡΠ½ΡΠ΅ ΠΈ ΡΡΡΠΎΡΠ½ΡΠ΅ Π±ΡΠΊΠ²Ρ ΡΡΠΈΡΠ°ΡΡΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌΠΈ.
N := Pos ('ΡΠ°', 'ΠΠ±ΡΠ°ΠΊΠ°Π΄Π°Π±ΡΠ°'); {N ΠΏΠΎΠ»ΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 3}.
9. Π€ΡΠ½ΠΊΡΠΈΡ UpCase (ΡΠΈΠΌΠ²ΠΎΠ» ΡΡΡΠΎΠΊΠΈ) ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅Ρ ΡΠΈΠΌΠ²ΠΎΠ» Π»ΡΠ±ΠΎΠΉ Π»ΠΈΡΠ΅ΡΡ ΠΈΠ· ΡΡΡΠΎΡΠ½ΠΎΠ³ΠΎ Π² ΠΏΡΠΎΠΏΠΈΡΠ½ΠΎΠΉ.
10. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Str (X: Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅; var st: string).
ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅Ρ ΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ X Π² Π΅Π³ΠΎ ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈ ΠΏΠΎΠΌΠ΅ΡΠ°Π΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π² st.
11. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Val (st: string; x: ΡΠΈΡΠ»ΠΎΠ²Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ; var code: integer).
ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅Ρ ΡΡΡΠΎΠΊΠΎΠ²ΡΡ Π·Π°ΠΏΠΈΡΡ ΡΠΈΡΠ»Π°, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡΡΡ Π² st, Π² ΡΠΈΡΠ»ΠΎΠ²ΠΎΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅, ΠΏΠΎΠΌΠ΅ΡΠ°Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π² x (x — ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΊΠ°ΠΊ ΡΠ΅Π»ΠΎΠΉ, ΡΠ°ΠΊ ΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ).
3.4.4 Π’ΠΈΠΏ-Π·Π°ΠΏΠΈΡΡ (record)
Π’ΠΈΠΏ-Π·Π°ΠΏΠΈΡΡ — ΡΡΠΎ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠ°Π·Π½ΡΡ ΡΠΈΠΏΠΎΠ², ΠΈΠΌΠ΅ΡΡΠΈΡ ΠΎΠ±ΡΠ΅Π΅ ΠΈΠΌΡ ΠΈ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅. ΠΠΊΠ»ΡΡΠ°Π΅Ρ ΡΡΠ΄ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΡ ΠΏΠΎΠ»ΡΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠ°Π·Π½ΡΡ ΡΠΈΠΏΠΎΠ².
ΠΡΠΈ Π·Π°Π΄Π°Π½ΠΈΠΈ ΡΠΈΠΏΠ°-Π·Π°ΠΏΠΈΡΠΈ ΠΏΠΎΡΠ»Π΅ Π·Π°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π° record ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΡΡ Π²ΡΠ΅ ΠΏΠΎΠ»Ρ ΡΠΈΠΏΠ°-Π·Π°ΠΏΠΈΡΠΈ Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ΠΌ ΡΠ΅ΡΠ΅Π· Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ ΠΈΡ ΡΠΈΠΏΠΎΠ² ΠΈ Π·Π°Π²Π΅ΡΡΠΈΡΡ Π·Π°Π΄Π°Π½ΠΈΠ΅ ΡΠΈΠΏΠ° ΡΠ»ΠΎΠ²ΠΎΠΌ end. ΠΠΎΠ»Ρ ΠΎΡΠ΄Π΅Π»ΡΡΡΡΡ Π΄ΡΡΠ³ ΠΎΡ Π΄ΡΡΠ³Π° ΡΠΎΡΠΊΠΎΠΉ Ρ Π·Π°ΠΏΡΡΠΎΠΉ. ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΠΎΠ»Π΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π»ΡΠ±ΡΠΌ.
ΠΡΠΈΠΌΠ΅Ρ.
Type. | |
Data = record. | {Π’ΠΈΠΏ — Π΄Π°ΡΠ° ΡΠΆΠ΄Π΅Π½ΠΈΡ}. |
Year: Integer; | |
Month: 1.12; | |
Day: 1.31. | |
end; | |
Person = record. | {Π’ΠΈΠΏ — ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠ΅}. |
Name: string[20] ; | |
Sex: (Male, Female); | |
Age: Integer; | |
Married: Boolean. | |
end; |
ΠΡΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΠ»Π΅ΠΉ ΡΠΈΠΏΠ°-Π·Π°ΠΏΠΈΡΠΈ ΠΈΠΌΠ΅ΡΡ ΠΎΠ΄ΠΈΠ½ ΠΈ ΡΠΎΡ ΠΆΠ΅ ΡΠΈΠΏ, ΡΠΎ ΠΈΡ ΠΈΠΌΠ΅Π½Π° ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΡΡ ΡΠ΅ΡΠ΅Π· Π·Π°ΠΏΡΡΡΡ ΠΈ Π·Π°ΡΠ΅ΠΌ ΡΠΊΠ°Π·Π°ΡΡ ΡΡΠΎΡ ΠΎΠ±ΡΠΈΠΉ ΡΠΈΠΏ.
ΠΠΎΡΠ»Π΅ Π²Π²Π΅Π΄Π΅Π½ΠΈΡ ΡΠΈΠΏΠ°-Π·Π°ΠΏΠΈΡΠΈ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΡΠ΅ΠΌ Π·Π°Π΄Π°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΈΠ»ΠΈ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ ΡΡΠΎΠ³ΠΎ ΡΠΈΠΏΠ° — Π·Π°ΠΏΠΈΡΠΈ.
ΠΡΠΈ Π·Π°Π΄Π°Π½ΠΈΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ΅ Π΅Π΅ ΠΏΠΎΠ»Ρ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ Π² ΠΊΡΡΠ³Π»ΡΡ ΡΠΊΠΎΠ±ΠΊΠ°Ρ ΡΠ΅ΡΠ΅Π· ΡΠΎΡΠΊΡ Ρ Π·Π°ΠΏΡΡΠΎΠΉ. ΠΠ»Ρ Π·Π°Π΄Π°Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ ΡΠ½Π°ΡΠ°Π»Π° ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΈΠΌΡ ΠΏΠΎΠ»Ρ, Π° Π·Π°ΡΠ΅ΠΌ ΡΠ΅ΡΠ΅Π· Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ — Π΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅.
Π’Π°ΠΊ, Π΄Π»Ρ Π²Π²Π΅Π΄Π΅Π½Π½ΡΡ Π²ΡΡΠ΅ ΡΠΈΠΏΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ Π·Π°Π΄Π°ΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΈ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ:
var.
Dat: Data;
Π‘onst.
Birthday: Data = (Year: 1971; Month: 12; Day: 9);
Ivanov: Person = (Name: 'ΠΠ²Π°Π½ΠΎΠ²'; Sex: Male; Age: 40; Married: True);
ΠΠΎΡΡΡΠΏ ΠΊ ΠΏΠΎΠ»ΡΠΌ Π·Π°ΠΏΠΈΡΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ΠΌ ΠΈΠΌΠ΅Π½ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ (ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ) ΠΈ ΠΈΠΌΠ΅Π½ΠΈ ΠΏΠΎΠ»Ρ, Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΠΌΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π· ΡΠΎΡΠΊΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ:
Ivanov.age,.
Dat.Day ΠΈ Ρ. Π΄.
ΠΡΠΈΠΌΠ΅Ρ. ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠΎΠ»Π΅ΠΉ Π·Π°ΠΏΠΈΡΠ΅ΠΉ.
Ivanov.Married := True;
ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ Π½Π΅ Π²ΡΠΏΠΈΡΡΠ²Π°ΡΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· ΠΈΠΌΡ Π·Π°ΠΏΠΈΡΠΈ ΠΏΡΠΈ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠΈ ΠΊ Π΅Π΅ Π½ΠΎΠ»ΡΠΌ, ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Π½Π°Π΄ Π·Π°ΠΏΠΈΡΡΠΌΠΈ WITH. ΠΠ³ΠΎ ΡΡΡΡΠΊΡΡΡΠ° Π²ΡΠ³Π»ΡΠ½ΠΈ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
with do ;
Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²Π½ΡΡΡΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΠΌΠΎΠΆΠ½ΠΎ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΠ»Π΅ Π·Π°ΠΏΠΈΡΠΈ.
with Ivanov do.
Married := True;
Π’ΠΈΠΏ-Π·Π°ΠΏΠΈΡΡ ΠΌΠΎΠΆΠ΅Ρ ΠΈΠΌΠ΅ΡΡ Π²Π°ΡΠΈΠ°Π½ΡΠ½ΡΡ ΡΠ°ΡΡΡ, ΠΈΠ·ΠΌΠ΅Π½ΡΡΡΡΡΡΡ ΠΏΡΠΈ ΡΠ°Π·Π½ΡΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡΡ , Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π² ΡΠΈΠΏΠ΅-Π·Π°ΠΏΠΈΡΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΈΠ³ΡΡ Π΄Π»Ρ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ° Π·Π°Π΄Π°Π΅ΡΡΡ ΡΡΠΎΡΠΎΠ½Π°, Π΄Π»Ρ ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° — Π΄Π²Π΅ ΡΡΠΎΡΠΎΠ½Ρ ΠΈ ΡΠ³ΠΎΠ» ΠΌΠ΅ΠΆΠ΄Ρ Π½ΠΈΠΌΠΈ, Π΄Π»Ρ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ — ΡΠ°Π΄ΠΈΡΡ ΠΈ Ρ. Π΄. ΠΠ°ΡΠΈΠ°ΡΠΈΠ²Π½Π°Ρ ΡΠ°ΡΡΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½Π° ΠΈ Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°ΡΡΡΡ Π² ΠΊΠΎΠ½ΡΠ΅ Π·Π°ΠΏΠΈΡΠΈ.
ΠΡΠΈΠΌΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π²Π°ΡΠΈΠ°Π½ΡΠ½ΠΎΠΉ ΡΠ°ΡΡΠΈ.
Type.
Figure = (Square, Triangle, Circle);
Param = record.
X, Y: Real; {ΡΠΎΡΠΊΠ° ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΈ}.
case Fig: Figure of {ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΡΠΈΠ³ΡΡ}.
Square: (Side: Real);
Triangle: (Side1, Side2, Angle: Real);
Circle: (Radius: Real).
End;
var MySquare, MyCircle: Param;
ΠΠ°ΡΠΈΠ°Π½ΡΠ½Π°Ρ ΡΠ°ΡΡΡ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΠ»ΠΎΠ²ΠΎΠΌ case, Π·Π° ΠΊΠΎΡΠΎΡΡΠΌ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π²ΡΠ±ΠΎΡΠ° Π²Π°ΡΠΈΠ°Π½ΡΠ° (Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Fig) Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ΠΌ ΡΠΈΠΏΠ°. ΠΠ°Π»Π΅Π΅ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΡΡ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ, Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠΎΡΠΎΡΡΡ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π²ΡΠ±ΠΎΡΠ° Π²Π°ΡΠΈΠ°Π½ΡΠ° (Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅ — Sguare, Triangle, Circle). ΠΠ° ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠΎΠΉ ΡΠ΅ΡΠ΅Π· Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ Π² ΠΊΡΡΠ³Π»ΡΡ ΡΠΊΠΎΠ±ΠΊΠ°Ρ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΏΠΎΠ»Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ Π²Π°ΡΠΈΠ°Π½ΡΠ° Π·Π°ΠΏΠΈΡΠΈ Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ΠΌ ΠΈΡ ΡΠΈΠΏΠΎΠ². ΠΡΡΠ³Π»ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡ, Π΄Π°ΠΆΠ΅ Π΅ΡΠ»ΠΈ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ Π²Π°ΡΠΈΠ°Π½ΡΠ° Π²Π°ΡΠΈΠ°Π½ΡΠ½Π°Ρ ΡΠ°ΡΡΡ ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ. Π‘Π»Π΅Π΄ΡΠ΅Ρ ΠΎΡΠΌΠ΅ΡΠΈΡΡ, ΡΡΠΎ Π²Π°ΡΠΈΠ°Π½ΡΠ½Π°Ρ ΡΠ°ΡΡΡ Π½Π΅ Π·Π°Π²Π΅ΡΡΠ°Π΅ΡΡΡ ΡΠ²ΠΎΠ΅ΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ½ΠΎΠΉ ΡΠΊΠΎΠ±ΠΊΠΎΠΉ end, ΠΊΠ°ΠΊ Ρ ΠΎΠ±ΡΡΠ½ΠΎΠΉ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ CASE, Ρ.ΠΊ. Π΄Π°Π»Π΅Π΅ ΠΈΠ΄Π΅Ρ Π·Π°Π²Π΅ΡΡΠ°ΡΡΠ°Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ½Π°Ρ ΡΠΊΠΎΠ±ΠΊΠ° end Π²ΡΠ΅Π³ΠΎ ΡΠΈΠΏΠ°.
Π ΡΠΈΠΏ-Π·Π°ΠΏΠΈΡΠΈ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎ Π½Π΅ Π²Π²ΠΎΠ΄ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π²ΡΠ±ΠΎΡΠ° Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ², Π° ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΡΡ Π»ΠΈΡΡ ΡΠ°Π·Π½ΡΠ΅ Π²Π°ΡΠΈΠ°Π½ΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ:
Transf = record.
case Integer of.
- 1: (Word: Word);
- 2: (TwoSymb: array[1.2] of Char)
end;