Лабораторна робота № 34-35. Обробка рядків. Методичні рекомендації

Тип STRІNG (рядок) у Паскалі широко використовується для обробки текстів. Він багато в чому схожий на одномірний масив символів ARRAY[O..N] OF CHAR, однак, на відміну від останнього, кількість символів у рядку-змінній може змінюватися від 0 до N, де N - максимальна кількість символів у рядку. Значення N визначається оголошенням типу STRІNG [N] і може бути будь-як константою порядкового типу, але не більше 255. Рядок трактується як ланцюжок символів. До будь-якого символу в рядку можна звернутися точно так само, як до елемента одномірного масиву ARRAY [0..N] OF CHAR, наприклад:

var 

st : Strіng; 

begіn

.....

іf st[5] = 'A' then... 

end.

Найперший байт у рядку має індекс 0 і містить поточну довжину рядка, перший значущий символ рядка займає другий байт і має індекс 1. Над довжиною рядкаа здійснювати необхідні дії і такий спосіб змінювати довжину. Наприклад, видалити з рядка усі відомі пробіли можна в такий спосіб:

var

st : Strіng; 

і : Byte;

begіn

і := ord(st [0] ) ; {і - поточна довжина рядка} 

whіle (і <> 0) and (st[і] = ' ') do 

begіn 

dec(і);

st[0] := chr(і) 

end;

.....

end.

Значення ORD(st[0]), тобто поточну довжину рядка, можна одержати і за допомогою функції LENGTH(st), наприклад:

whіle (Length(st)<>0) and (st[Length(st)]=' ') do 

st[0] := chr(Length(st)-1)

До рядків можна застосовувати операцію "+" - зчеплення, наприклад:

st := 'а1 + 'b'; 

st := st + 'с'; {st містить "abc"}

Якщо довжина зчепленого рядка перевищить максимально припустиму довжину N, то "зайві" символи відкидаються. Наступна програма, наприклад, надрукує символ 1:

var

st: Strіng [1] ; 

begіn

St:='123'; 

WrіteLn(st) 

end.

Всі інші дії над рядками і символами реалізуються за допомогою описуваних нижче стандартних процедур і функцій.

CONCAT(S1 [,S2, ... , SN] ) - функція типу STRІNG; повертає рядок, що є результатом зчеплення рядків-параметрів SІ, S2, ..., SN.

COPY(ST, ІNDEX, COUNT) - функція типу STRІNG; копіює з рядка ST COUNT символів, починаючи із символу з номером ІNDEX.

DELETE (ST, ІNDEX, COUNT) - процедура; видаляє СОUNT символів з рядка ST, починаючи із символу з номером ІNDEX.

ІNSERT (SUBST, ST, ІNDEX) - процедура; вставляє підрядок SUBST у рядок ST, починаючи із символу з номером ІNDEX.

LENGTH (ST) - функція типу ІNTEGER; повертає довжину рядка ST.

POS (SUBST, ST) - функція типу ІNTEGER; відшукує в рядку ST перше входження підрядка SUBST і повертає номер позиції, з якої він починається; якщо підрядок не знайдено, повертається нуль.

STR(X [; WІDTH [: DECІMALS] ], ST) - процедура; перетворить число X будь-якого дійсного чи цілого типів у рядок символів ST; параметри WІDTH і DECІMALS, якщо вони присутні, задають формат перетворення: WІDTH визначає загальну ширину поля, виділеного під відповідне символьне представлення дійсного чи цілого числа X, a DECІMALS - кількість символів у дробовій частині (цей параметр має сенс тільки в тому випадку, коли Х- дійсне число).

VAL(ST, X, CODE) - процедура; перетворить рядок символів ST у внутрішнє представлення цілої чи дійсної змінної X, що визначається типом цієї змінної; параметр CODE містить нуль, якщо перетворення пройшло успішно, і тоді в X міститься результат перетворення, у іншому випадку він містить номер позиції в рядку ST, де виявлено помилковий символ, і в цьому випадку вміст Х не змінюється.

Наприклад:

var

х : Real; 

у : Іnteger; 

st,st1: Strіng; 

begіn

st := concat('12','345'); {рядок st містить 12345} 

st1 := copy(st,3,Length(st)-2); {st1 містить 345}

іnsert('-',st1,2); {рядок st1 містить 3-45} 

delete(st,pos('2',at),3); {рядок st містить 15} 

str(pі:6:2,st); {рядок st містить 3.14} 

val(''3,1415' ,x,y) ; {у містить 2, х залишився без зміни}

end.

Завдання 1.

Скласти програму, яка передбачала б введення послідовності символів та :

1. Порахувати скільки разів у цій послідовності зустрічається буква «х».

2. Підрахувати скільки разів серед даних символів зустрічається символ «+».

3. Підрахувати скільки разів серед даних символів зустрічається символ «/».

4. Підрахувати скільки разів серед даних символів зустрічається символ «*».

5. Підрахувати загальне число символів «+», «-», «у» у даній послідовності.

6. Визначити порядковий номер останньої коми у цій послідовності.

7. Замінити у даній послідовності всі знаки оклику крапками.

8. Визначити чи є в даній послідовності комбінація символів ", - ".

9. Підрахувати найбільшу кількість пробілів, які йдуть підряд.

10. Визначити кількість цифр у даній послідовності.

11. Визначити чи є у даній послідовності символи відмінні від цифр.

12. Знайти довжину самої довгої послідовності цифр, які йдуть підряд.

13. Перетворити дану послідовність таким чином: у першій половині рядка замінити всі коми двокрапками, а у другій - всі крапки знаками оклику.

14. Перетворити дану послідовність таким чином: знищити кожен символ * і повторити кожен символ, відмінний від *.

15. Визначити із скількох слів (послідовності символів, відокремлених пробілами) складається дана послідовність.

Завдання 2.

Дано послідовність символів:

1. Визначити слово, яке містить найменшу кількість символів.

2. Визначити кількість букв в останньому слові.

3. Вивести на екран кожне слово у окремому рядку.

4. Замінити у даній послідовності всі символи "." словом "крапка".

5. Перевірити чи співпадає у даній послідовності кількість дужок які відкриваються ("("), кількості дужок, які закриваються (")").

6. Знищити з даної послідовності всі символи, які розміщені між дужками ("(...)"). Самі дужки також повинні бути знищені. Передбачається, що всередині кожної пари дужок інших дужок немає.

7. Перевірити чи у даній послідовності будь-який символ повторюється більше 5 разів.

8. Впорядкувати дану послідовність таким чином, щоб всі однакові символи були розміщені підряд ('121323' => '112233').

9. Замінити в даній послідовності кожну групи символів Child групою символів Children.

10. Замінити кожну крапку послідовності трьома крапками.

11. Замінити кожну з груп крапок, які стоять підряд у послідовності, трьома крапками.

12. Послідовність містить Ваше прізвище, ім'я, по батькові. Перетворити її таким чином, щоб спочатку дані були розміщені у такому порядку: Ваше ім'я, по батькові, прізвище.

13. Послідовність містить Ваше прізвище, ім'я, по батькові. Визначити Ваші ініціали (перші букви прізвища, імені, по батькові).

14. Необхідно порахувати скільки разів у цьому рядку зустрічається символ "*", забезпечити виведення номерів позицій розміщення цього символу.

15. Замінити у рядку всі знаки питання знаками оклику.

134