Π‘Π»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ Π½Π° ΡΠΊΡΠ°Π½ ΡΠΈΠΌΠ²ΠΎΠ»Ρ, Π½Π°Π±ΠΈΡΠ°Π΅ΠΌΡΠ΅ Π½Π° ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ΅, Π΄ΠΎ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ Enter (ΠΊΠΎΠ΄ #13):
Repeat c:= readKey; Write© until c=#13;
Π·Π΄Π΅ΡΡ «Ρ» — ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΈΠΏΠ° Char, #13 — ΠΊΠΎΠ΄ ΠΊΠ»Π°Π²ΠΈΡΠΈ Enter.
Π§Π°ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ Ρ ΠΊΠΎΠ΄Π°ΠΌΠΈ: #32 — SpaceBar, #27 — Esc.
ΠΠ»Ρ Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π½ΠΈΡ Π²Π²ΠΎΠ΄ΠΈΠΌΡΡ
ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ:
i:=0; repeat i:=i+1; ch[i]: =readKey; write (ch[i]) until ch[i]=#13;
ΠΠ΄Π΅ΡΡ ch[i] - ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° ch ΡΠΈΠΏΠ° Char.
Π Π°Π±ΠΎΡΠ° ΡΠΎ ΡΡΡΠΎΠΊΠΎΠ²ΡΠΌΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ «ΠΠ΅Π³ΡΡΠ°Ρ ΡΡΡΠΎΠΊΠ°» ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠΈΠΏΠ° String. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΎΠΏΠΈΡΠ°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ «cha» ΡΠΈΠΏΠΎΠΌ String.
ΠΠ»Ρ ΡΡΡΠΎΠΊΠΎΠ²ΡΡ
ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Π΄ΠΎΠΏΡΡΠΊΠ°ΡΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ s1:='Hello!', s2:='ΠΡΠΈΠ²Π΅Ρ!', ΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ s3:=s1+'_'+s2; ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅: «Hello! ΠΡΠΈΠ²Π΅Ρ!» .
Π‘ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊΠΎΠ²ΡΡ
ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
ΠΏΡΠΎΠΈΡΡ
ΠΎΠ΄ΠΈΡ ΠΏΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π°ΠΌ, Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ. ΠΠ»Ρ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠ³ΠΎ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ° Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ (s1s2) Π²Π΅ΡΠ½ΠΎ.
ΠΡΠ»ΠΈ ΠΊΠΎΠ΄ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π° Π² ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅ Π±ΠΎΠ»ΡΡΠ΅, ΡΠ΅ΠΌ Π²ΠΎ Π²ΡΠΎΡΠΎΠΉ, ΡΠΎ ΠΏΠ΅ΡΠ²Π°Ρ ΡΡΡΠΎΠΊΠΎΠ²Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΡΠΈΡΠ°Π΅ΡΡΡ Π±ΠΎΠ»ΡΡΠ΅ Π²ΡΠΎΡΠΎΠΉ. Π Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ s1.
Π‘ΡΡΠΎΠΊΠΎΠ²ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΠΌΠ°ΡΡΠΈΠ² ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ², Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ: s1[1]: ='H', s1[2]: ='e'; ΠΈ Ρ. Π΄.
ΠΠ»ΠΈΠ½Π° ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ «L» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ Π² ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ΅ Ρ Π½ΡΠ»Π΅Π²ΡΠΌ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠΌ ΠΈ ΠΌΠΎΠΆΠ΅Ρ Π½Π°Ρ
ΠΎΠ΄ΠΈΡΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ L:= Ord (s1[0]); ΠΈΠ»ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ L:= Length (s1);
Π€ΡΠ½ΠΊΡΠΈΡ Copy (S, L1, L2); ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΡΡΡΠΎΠΊΠΎΠ²ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ «S» Π² Π΄ΡΡΠ³ΡΡ ΡΡΡΠΎΠΊΠΎΠ²ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ.
ΠΠ΄Π΅ L1 — Π½ΠΎΠΌΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΊΠΎΠΏΠΈΡΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π°,.
L2 — ΡΠΈΡΠ»ΠΎ ΠΊΠΎΠΏΠΈΡΡΠ΅ΠΌΡΡ
ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ².
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΄Π»Ρ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°Π½Π΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ s1 ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Sc:=Copy (s1,1,5); ΠΏΡΠΈΠΌΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «Hello» .
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Delete (S, L1, L2); ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ΄Π°Π»ΠΈΡΡ ΠΈΠ· ΡΡΡΠΎΠΊΠΈ «S» ΡΠ°ΡΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ².
ΠΠ΄Π΅ L1 -Π½ΠΎΠΌΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ΄Π°Π»ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π°,.
L2 — ΡΠΈΡΠ»ΠΎ ΡΠ΄Π°Π»ΡΠ΅ΠΌΡΡ
ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ².
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΏΠΎΡΠ»Π΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Delete (s1,6,1); ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ «s1» ΠΏΡΠΈΠΌΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «Hello» .
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Insert (Si, S, L1); ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²ΡΡΠ°Π²ΠΈΡΡ Π² ΡΡΡΠΎΠΊΡ «S» ΡΡΡΠΎΠΊΡ «Si» .
Π½Π°ΡΠΈΠ½Π°Ρ Ρ Π½ΠΎΠΌΠ΅ΡΠ° «L1» ΡΡΡΠΎΠΊΠΈ «S» .
ΠΠ΄Π΅ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ L1, L2 — ΡΠΈΠΏΠ° Integer.
Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π²ΡΠΊΠΎΠ²ΡΠΌΠΈ ΡΠΈΠ³Π½Π°Π»Π°ΠΌΠΈ
Sound (N); - Π²ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π·Π²ΡΠΊΠ° Ρ ΡΠ°ΡΡΠΎΡΠΎΠΉ ΡΠΎΠ½Π° N (ΠΈΠ·ΠΌΠ΅ΡΡΠ΅ΡΡΡ Π² Π³Π΅ΡΡΠ°Ρ
).
Delay (M); - Π·Π°Π΄Π΅ΡΠΆΠΊΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° M ΠΌΠΈΠ»Π»ΠΈΡΠ΅ΠΊΡΠ½Π΄.
NoSound; - Π²ΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π·Π²ΡΠΊΠ°. ΠΠ΄Π΅ΡΡ N ΠΈ M — ΡΠΈΠΏΠ° Word.
Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π²ΡΠΊΠΎΠ²ΡΠΌ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ²:
Sound (F); Delay (N); NoSound;
Π³Π΄Π΅ F — ΡΠ°ΡΡΠΎΡΠ° Π·Π²ΡΠΊΠ° Π² ΠΡ.
ΠΠ»Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ΅Π»ΠΎΠ΄ΠΈΠΈ ΡΠ΄ΠΎΠ±Π½ΠΎ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡ ΠΈΠ·Π²Π΅ΡΡΠ½ΡΡ ΡΠΎΡΠΌΡΠ»Ρ ΡΠ°ΡΡΠ΅ΡΠ° ΡΠ°ΡΡΠΎΡΡ Π·Π²ΡΠΊΠ°:
F=Round (440*Exp (Ln (2)*(No-(10-Nn)/12)));
Π³Π΄Π΅ No — Π½ΠΎΠΌΠ΅Ρ ΠΎΠΊΡΠ°Π²Ρ -3<= No <=4; ΠΠ»Ρ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΎΠΊΡΠ°Π²Ρ No=0.
Nn — Π½ΠΎΠΌΠ΅Ρ Π½ΠΎΡΡ 1 — ΠΠΎ, 2 — ΠΠΎ#, 3 — Π Π΅, ΠΈ Ρ. Π΄. 12 — CΠΈ.
ΠΡΠΈ ΡΠΊΠ²ΠΎΠ·Π½ΠΎΠΉ Π½ΡΠΌΠ΅ΡΠ°ΡΠΈΠΈ Π½ΠΎΡ ΠΏΡΠΈΠ½ΡΡΡ Π΄Π»Ρ No<0 — Nn0 — Nn>12.