ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² ΡƒΡ‡Ρ‘Π±Π΅, ΠΎΡ‡Π΅Π½ΡŒ быстро...
Π Π°Π±ΠΎΡ‚Π°Π΅ΠΌ вмСстС Π΄ΠΎ ΠΏΠΎΠ±Π΅Π΄Ρ‹

Π Π°Π±ΠΎΡ‚Π° с ΡΠΈΠΌΠ²ΠΎΠ»ΡŒΠ½Ρ‹ΠΌΠΈ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹ΠΌΠΈ

Π Π΅Ρ„Π΅Ρ€Π°Ρ‚ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈΠ£Π·Π½Π°Ρ‚ΡŒ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒΠΌΠΎΠ΅ΠΉ Ρ€Π°Π±ΠΎΡ‚Ρ‹

Если ΠΊΠΎΠ΄ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ символа Π² ΠΏΠ΅Ρ€Π²ΠΎΠΉ строкС большС, Ρ‡Π΅ΠΌ Π²ΠΎ Π²Ρ‚ΠΎΡ€ΠΎΠΉ, Ρ‚ΠΎ ΠΏΠ΅Ρ€Π²Π°Ρ строковая пСрСмСнная считаСтся большС Π²Ρ‚ΠΎΡ€ΠΎΠΉ. Π’ Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ s1. Для строковых ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ… Π΄ΠΎΠΏΡƒΡΠΊΠ°ΡŽΡ‚ΡΡ ΠΎΠΏΠ΅Ρ€Π°Ρ†ΠΈΠΈ слоТСния, Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, Ссли s1:='Hello!', s2:='ΠŸΡ€ΠΈΠ²Π΅Ρ‚!', Ρ‚ΠΎ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ s3:=s1+'_'+s2; присвоится Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅: «Hello! ΠŸΡ€ΠΈΠ²Π΅Ρ‚!». Π”Π»ΠΈΠ½Π° строковой ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ «L» содСрТится Π² ΡΠ»Π΅ΠΌΠ΅Π½Ρ‚Π΅ с Π½ΡƒΠ»Π΅Π²Ρ‹ΠΌ индСксом ΠΈ ΠΌΠΎΠΆΠ΅Ρ‚… Π§ΠΈΡ‚Π°Ρ‚ΡŒ Π΅Ρ‰Ρ‘ >

Π Π°Π±ΠΎΡ‚Π° с ΡΠΈΠΌΠ²ΠΎΠ»ΡŒΠ½Ρ‹ΠΌΠΈ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹ΠΌΠΈ (Ρ€Π΅Ρ„Π΅Ρ€Π°Ρ‚, курсовая, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½Π°Ρ)

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€Ρ‹ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡŽΡ‚ Π²Ρ‹Π²ΠΎΠ΄ΠΈΡ‚ΡŒ Π½Π° ΡΠΊΡ€Π°Π½ символы, Π½Π°Π±ΠΈΡ€Π°Π΅ΠΌΡ‹Π΅ Π½Π° ΠΊΠ»Π°Π²ΠΈΠ°Ρ‚ΡƒΡ€Π΅, Π΄ΠΎ Π½Π°ΠΆΠ°Ρ‚ия клавиши 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.

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ вСсь тСкст
Π—Π°ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ Ρ„ΠΎΡ€ΠΌΡƒ Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ Ρ€Π°Π±ΠΎΡ‚ΠΎΠΉ