profile="http://gmpg.org/xfn/11"> Π€ΡƒΠ½ΠΊΡ†ΠΈΠΈ строк Π² 1Π‘. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Π€ΡƒΠ½ΠΊΡ†ΠΈΠΈ строк Π² 1Π‘.

Π€ΡƒΠ½ΠΊΡ†ΠΈΠΈ строк Π² 1Π‘. Π‘Ρ‚Ρ€ΠΎΠΊΠ° Π² 1Π‘ — ΠΏΡ€ΠΈΠΌΠΈΡ‚ΠΈΠ²Π½Ρ‹ΠΉ Ρ‚ΠΈΠΏ Π΄Π°Π½Π½Ρ‹Ρ…. 1. Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ строк.Β ΠšΠΎΠ½ΠΊΠ°Ρ‚Π΅Π½Π°Ρ†ΠΈΡ строк Π² 1Π‘.

//слоТСниС строк
//ΠšΠΎΠ½ΠΊΠ°Ρ‚Π΅Π½Π°Ρ†ΠΈΡ строк Π² 1Π‘
Π‘Ρ‚Ρ€ΠΎΠΊΠ°1="Π€ΡƒΠ½ΠΊΡ†ΠΈΠΈ";
Π‘Ρ‚Ρ€ΠΎΠΊΠ°2="строк";
Π‘Ρ‚Ρ€ΠΎΠΊΠ°3="Π² 1Π‘";
Π‘Ρ‚Ρ€ΠΎΠΊΠ°4=Π‘Ρ‚Ρ€ΠΎΠΊΠ°1+" "+Π‘Ρ‚Ρ€ΠΎΠΊΠ°2+" "+Π‘Ρ‚Ρ€ΠΎΠΊΠ°3;
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(Π‘Ρ‚Ρ€ΠΎΠΊΠ°4);

2. Ѐункция Π‘Ρ‚Ρ€ΠΎΠΊΠ°(Π”Π°Π½Π½Ρ‹Π΅) 1Π‘ позволяСт привСсти ΠΊ Ρ‚ΠΈΠΏΡƒ БВРОКА Π΄Π°Π½Π½Ρ‹Π΅ Π΄Ρ€ΡƒΠ³ΠΈΡ… Ρ‚ΠΈΠΏΠΎΠ².

//Ѐункция Π‘Ρ‚Ρ€ΠΎΠΊΠ°(Π”Π°Π½Π½Ρ‹Π΅) позволяСт привСсти ΠΊ Ρ‚ΠΈΠΏΡƒ БВРОКА Π΄Π°Π½Π½Ρ‹Π΅ Π΄Ρ€ΡƒΠ³ΠΈΡ… Ρ‚ΠΈΠΏΠΎΠ².
ΠŸΠΎΠ»ΡƒΡ‡Π΅Π½ΠΎΠ΅Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅=Π‘Ρ‚Ρ€ΠΎΠΊΠ°(ВСкущаяДата());// ΠΈΠ· Ρ‚ΠΈΠΏΠ° Π”Π°Ρ‚Π°
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(ΠŸΠΎΠ»ΡƒΡ‡Π΅Π½ΠΎΠ΅Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅);
ΠŸΠΎΠ»ΡƒΡ‡Π΅Π½ΠΎΠ΅Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅=Π‘Ρ‚Ρ€ΠΎΠΊΠ°(123);// ΠΈΠ· Ρ‚ΠΈΠΏΠ° Число
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(ΠŸΠΎΠ»ΡƒΡ‡Π΅Π½ΠΎΠ΅Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅);
ΠŸΠΎΠ»ΡƒΡ‡Π΅Π½ΠΎΠ΅Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅=Π‘Ρ‚Ρ€ΠΎΠΊΠ°(Π˜ΡΡ‚ΠΈΠ½Π°);// ΠΈΠ· Ρ‚ΠΈΠΏΠ° Π‘ΡƒΠ»Π΅Π²ΠΎ
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(ΠŸΠΎΠ»ΡƒΡ‡Π΅Π½ΠΎΠ΅Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅);

3. Ѐункция Π‘Ρ‚Ρ€Π”Π»ΠΈΠ½Π°(Π˜ΡΠΊΠΎΠΌΠ°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°) Π² 1Π‘.

Ѐункция позволяСт ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ количСство символов Π² строкС 1C.

ΠšΠΎΠ»ΠΈΡ‡Π΅ΡΡ‚Π²ΠΎΠ‘ΠΈΠΌΠ²ΠΎΠ»ΠΎΠ²=Π‘Ρ‚Ρ€Π”Π»ΠΈΠ½Π°(Π˜ΡΠΊΠΎΠΌΠ°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°);

4. Ѐункция Π‘ΠΎΠΊΡ€Π›(Π˜ΡΠΊΠΎΠΌΠ°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°) Π² 1Π‘.

Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ строку Π±Π΅Π· Π½Π΅Π·Π½Π°Ρ‡Π°Ρ‰ΠΈΡ… символов, стоящих слСва ΠΎΡ‚ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ Π·Π½Π°Ρ‡Π°Ρ‰Π΅Π³ΠΎ символа Π² строкС.

Π˜ΡΠΊΠΎΠΌΠ°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°=" Искомая строка ";
НоваяБтрока=Π‘ΠΎΠΊΡ€Π›(Π˜ΡΠΊΠΎΠΌΠ°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°);
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(НоваяБтрока)

5. Ѐункция Π‘ΠΎΠΊΡ€ΠŸ(Π˜ΡΠΊΠΎΠΌΠ°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°) Π² 1Π‘.

Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ строку Π±Π΅Π· Π½Π΅Π·Π½Π°Ρ‡Π°Ρ‰ΠΈΡ… символов, стоящих справа ΠΎΡ‚ послСднСго Π·Π½Π°Ρ‡Π°Ρ‰Π΅Π³ΠΎ символа Π² строкС.

Π˜ΡΠΊΠΎΠΌΠ°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°=" Искомая строка ";
НоваяБтрока=Π‘ΠΎΠΊΡ€ΠŸ(Π˜ΡΠΊΠΎΠΌΠ°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°);
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(НоваяБтрока);

6. Ѐункция Π‘ΠΎΠΊΡ€Π›ΠŸ(Π˜ΡΠΊΠΎΠΌΠ°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°) Π² 1Π‘.

Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ строку Π±Π΅Π· Π½Π΅Π·Π½Π°Ρ‡Π°Ρ‰ΠΈΡ… символов, стоящих справа ΠΎΡ‚ послСднСго Π·Π½Π°Ρ‡Π°Ρ‰Π΅Π³ΠΎ символа Π² строкС ΠΈ стоящих слСва ΠΎΡ‚ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ Π·Π½Π°Ρ‡Π°Ρ‰Π΅Π³ΠΎ символа Π² строкС.

7. Ѐункция Π›Π΅Π²(ДаннаяБтрока,4) Π² 1Π‘.

Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ ΠΏΠ΅Ρ€Π²Ρ‹Π΅ слСва символы строки. Π’ Π΄Π°Π½Π½ΠΎΠΌ случаС 4.

8. Ѐункция ΠŸΡ€Π°Π²(ДаннаяБтрока,4) Π² 1Π‘.

Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ послСдниС справа символы строки. Π’ Π΄Π°Π½Π½ΠΎΠΌ случаС 4.

9. Ѐункция Π‘Ρ€Π΅Π΄(ДаннаяБтрока, ΠΠ°Ρ‡Π°Π»ΡŒΠ½Ρ‹ΠΉΠΠΎΠΌΠ΅Ρ€, ЧислоБимволов) Π² 1Π‘.

Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ строку символов, начиная с символа ΠΠ°Ρ‡Π°Π»ΡŒΠ½Ρ‹ΠΉΠΠΎΠΌΠ΅Ρ€ ΠΈ количСством ЧислоБимволов.

ДаннаяБтрока="Данная строка";
НоваяБтрока=Π‘Ρ€Π΅Π΄(ДаннаяБтрока,2,3);
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(НоваяБтрока);

10. Ѐункция Найти(ДаннаяБтрока, ΠŸΠΎΠ΄ΡΡ‚Ρ€ΠΎΠΊΠ°) Π² 1Π‘.

Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ ΠΏΠΎΠ·ΠΈΡ†ΠΈΡŽ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ символа Π²Ρ‚ΠΎΡ€ΠΎΠ³ΠΎ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π° (ΠŸΠΎΠ΄ΡΡ‚Ρ€ΠΎΠΊΠ°) Π² ΠΏΠ΅Ρ€Π²ΠΎΠΌ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π΅ (ДаннаяБтрока), Ссли подстрока Π±Ρ‹Π»Π° Π½Π°ΠΉΠ΄Π΅Π½Π° Π² ΠΏΠ΅Ρ€Π²ΠΎΠΌ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π΅. Π’ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ ноль Π² Π΄Ρ€ΡƒΠ³ΠΎΠΌ случаС.

ДаннаяБтрока="Данная строка";
ΠΠ°ΠΉΠ΄Π΅Π½Π°ΡΠŸΠΎΠ·ΠΈΡ†ΠΈΡ=Найти(ДаннаяБтрока,"Π°Π½Π½");
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(ΠΠ°ΠΉΠ΄Π΅Π½Π°ΡΠŸΠΎΠ·ΠΈΡ†ΠΈΡ);

11. Ѐункция Π’Π Π΅Π³(ДаннаяБтрока) Π² 1Π‘.
Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ строку, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ всС символы строки ΠΏΠ΅Ρ€Π΅Π²Π΅Π΄Π΅Π½Ρ‹ Π² Π²Π΅Ρ€Ρ…Π½ΠΈΠΉ рСгистр.

ДаннаяБтрока=«Π”анная строка»;
ΠΠ°ΠΉΠ΄Π΅Π½Π°ΡΠŸΠΎΠ·ΠΈΡ†ΠΈΡ=Π’Π Π΅Π³(ДаннаяБтрока);
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(ΠΠ°ΠΉΠ΄Π΅Π½Π°ΡΠŸΠΎΠ·ΠΈΡ†ΠΈΡ);

12. Ѐункция НРСг(ДаннаяБтрока) Π² 1Π‘.
Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ строку, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ всС символы строки ΠΏΠ΅Ρ€Π΅Π²Π΅Π΄Π΅Π½Ρ‹ Π² Π½ΠΈΠΆΠ½ΠΈΠΉ рСгистр.

13. Ѐункция Π’Π Π΅Π³(ДаннаяБтрока) Π² 1Π‘.
Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ строку, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ ΠΏΠ΅Ρ€Π²Ρ‹Π΅ символы ΠΊΠ°ΠΆΠ΄ΠΎΠΉ строки ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΡƒΡŽΡ‚ΡΡ Π² Π²Π΅Ρ€Ρ…Π½ΠΈΠΉ рСгистр, Π° ΠΎΡΡ‚Π°Π»ΡŒΠ½Ρ‹Π΅ Π² Π½ΠΈΠΆΠ½Π΅ΠΉ.

ДаннаяБтрока=«Π”анная строка»;
ΠΠ°ΠΉΠ΄Π΅Π½Π°ΡΠŸΠΎΠ·ΠΈΡ†ΠΈΡ=Π’Π Π΅Π³(ДаннаяБтрока);

14. Ѐункция Π‘ΠΈΠΌΠ²ΠΎΠ»(ВСкКодБимвола) Π² 1Π‘.
Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ символ, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ соотвСтствуСт ΠΊΠΎΠ΄Ρƒ — ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρƒ.

ВСкКодБимвола=1050;
Π’Π΅ΠΊΠ‘ΡƒΠΊΠ²Π° = Π‘ΠΈΠΌΠ²ΠΎΠ»(ВСкКодБимвола);
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(«Π‘ΡƒΠΊΠ²Π°: «+Π’Π΅ΠΊΠ‘ΡƒΠΊΠ²Π°);

15. Ѐункция КодБимвола(Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°, ВСкНомСрБимвола) Π² 1Π‘.
Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ ΠΊΠΎΠ΄, ΠΏΠ΅Ρ€Π΅Π΄Π°Π½Π½ΠΎΠ³ΠΎ символа.
Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ° — Π² этой строкС выбираСтся символ, Π½ΠΎΠΌΠ΅Ρ€ указываСтся Π² ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π΅ ВСкНомСрБимвола. Если этот ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ Π½Π΅ ΡƒΠΊΠ°Π·Π°Π½, Ρ‚ΠΎΠ³Π΄Π° Π½ΠΎΠΌΠ΅Ρ€ символа Π² строкС Ρ€Π°Π²Π΅Π½ 1. НумСрация Π² строкС, начинаСтся с 1.

Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°=«Π£Ρ‚Ρ€ΠΎΠΌ Π±Ρ‹Π»ΠΎ Ρ‚Π΅ΠΌΠ½ΠΎ»;
ВСкНомСрБимвола = 2;
ВСкКодБимвола = КодБимвола(Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°, ВСкНомСрБимвола);
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(«ΠšΠΎΠ΄ символа: «+ВСкКодБимвола);

16. Ѐункция ΠŸΡƒΡΡ‚Π°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°(Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°) Π² 1Π‘.
Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ ИБВИНУ, Ссли ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ° Π½Π΅ содСрТит Π·Π½Π°Ρ‡Π°Ρ‰ΠΈΡ… символов, Π° Ρ‚Π°ΠΊΠΆΠ΅ Π΄Ρ€ΡƒΠ³ΠΈΡ… символов. Π˜Π½Π°Ρ‡Π΅ Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Π›ΠžΠ–Π¬.

Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°=«Π£Ρ‚Ρ€ΠΎΠΌ»;
Если ΠŸΡƒΡΡ‚Π°ΡΠ‘Ρ‚Ρ€ΠΎΠΊΠ°(Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°) Π’ΠΎΠ³Π΄Π°
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(«Π’ строкС Π½Π΅Ρ‚ Π·Π½Π°Ρ‡Π°Ρ‰ΠΈΡ… символов»);
Π˜Π½Π°Ρ‡Π΅
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(«Π’ строкС Π΅ΡΡ‚ΡŒ символы»);
ΠšΠΎΠ½Π΅Ρ†Π•ΡΠ»ΠΈ;

17. НСзначащиС символы Π² 1Π‘.
НСзначащиС символы: Π½Π΅Ρ€Π°Π·Ρ€Ρ‹Π²Π½Ρ‹ΠΉ ΠΏΡ€ΠΎΠ±Π΅Π» НПП, ΠΏΡ€ΠΎΠ±Π΅Π», табуляция (Π’Π°Π± ΠΈ Π’Π’Π°Π±), Π²ΠΎΠ·Π²Ρ€Π°Ρ‚ ΠΊΠ°Ρ€Π΅Ρ‚ΠΊΠΈ Π’Πš, ΠΏΠ΅Ρ€Π΅Π²ΠΎΠ΄ строки ПБ, ΠΏΠ΅Ρ€Π΅Π²ΠΎΠ΄ Ρ„ΠΎΡ€ΠΌΡ‹ ПЀ.

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.