Функции для работы со строками

 

VAR

S, S2: STRING;

N, Poz: INTEGER;

1. LENGTH (S) – определяет текущую длину строки S. Результатом является значение целого типа.

Пример:

Значение S	Выражение	Результат
‘test-5’	Length(S)
‘(A+B)*C’	Length(S)

2. COPY (S, Poz,N) - копирует из строки S строку длиной N символов, начиная с позиции Poz.

Пример:

Значение S	Выражение	Результат
‘ABCDEFG’	Copy(S,2,3)	‘BCD’
‘ABCDEFG’	Copy(S,4,4)	‘DEFG’

 

3. DELETE (S,Poz,N) - удаляет N символов из строки S, начиная с позиции Poz. Результат строкового типа.

Пример:

Исходное значение S	Оператор	Конечное значение S
‘abcdefg’	Delete(S,3,2)	‘abefg’
‘abcdefg’	Delete(S,2,6)	‘a’

4. INSERT (S1, S2, Poz) - вставляет строку S1 в строку S2, начиная с позиции Poz. Результат - строка S2 (если она содержит символов больше, чем объявлено, то лишние символы отбрасываются).

 

Пример:

Исходное значение S2	Оператор	Конечное значение S2
‘ЭВМ PC’	Insert(‘IBM-‘,S2,5)	‘ЭВМ IBM-PC’
‘Рис. 2’	Insert(‘№’,S2,6)	‘Рис. №2’

5. CONCAT (S1, S2, …, SN) – выполняет сцепление (конкатенцию) строк S1, S2, …, SN в одну строку. Результат строкового типа.

 

6. POS (S1, S2) – обнаруживает первое появление в строке S2 подстроки S1. Результат – целое число, равное номеру позиции, где находится первый символ подстроки S1. Если в строке S2 подстроки S1 не обнаружено, то результат равен 0.

Пример:

Значение S2	Выражение	Результат
‘abcdef’	Pos(‘cd’,S2)
‘abcdcdef’	Pos(‘cd’,S2)
‘abcdef’	Pos(‘k’,S2)

Пример:

Ввести строку длиной не менее 15 символов. Подсчитать общее количество введенных символов строки и количество знаков “+”, начиная с 7 символа по 15.

 

PROGRAM PRIMER8;

USES CRT;

LABEL

1;

VAR

S:STRING [100];

K,KP,I:INTEGER;

OTV: CHAR;

BEGIN

1:CLRSCR;

WRITELN (‘Введите строку длиной не менее 15 символов’);

READLN (S);

WRITELN (‘Введенная строка символов’);

WRITELN (S);

K:=LENGTH(S);

WRITELN (‘Количество символов в введенной строке=’,K:3);

KP:=0;

FOR I:=7 TO 15 DO

IF S[I]=‘+’

THEN KP:=KP+1;

WRITELN (‘Количество символов +, начиная с 7 по 15 символ=’,KP:2);

WRITELN (‘Будете вводить новые данные (Y/N)?’);

READLN (OTV);

IF (OTV=’Y’) OR (OTV=’y’)

THEN GOTO 1

END.

 

Задачи для самостоятельного решения:

1. Дана строка S, состоящая не более чем из 40 символов. В этой строке все вхождения букв ‘ABC’ заменить на ‘123’.

2. Используя функции для работы со строками получить из слова: а) «ВЕЛИЧИНА» слово «НАЛИЧИЕ»; б) «СТРОКА» слово «СЕТКА».

3. Сформировать символьную строку, состоящую из n звездочек (n – целое число, 1≤ n≤ 255).

4. Дан текст, в конце которого стоит точка. Подсчитать количество слов в тексте (слово – подстрока, не содержащая пробелов).

 

 

записи (комбинированный тип)

При решении экономических и информационных задач, которые обрабатывают ведомости, документы, списки и т.д., возникает необходимость объединять различные типы данных в одну группу. Для этого в языке Паскаль введено понятие записи (RECORD).

Запись – это совокупность ограниченного числа логически связанных компонент различного типа.

Каждая компонента записи называется полем.

Запись, как и другие переменные, объявляется в разделе описания и используется в разделе операторов. Описание записи можно делать как в разделе описания типов TYPE, так и в разделе описания переменных VAR.

Синтаксис описания записи:

TYPE

имя типа=RECORD

имя элемента 1:тип;

имя элемента 2:тип;

…..

имя элемента N:тип

END;

VAR

имя записи:имя типа;

 

Служебное слово RECORD (запись) выполняет роль открывающейся операторной скобки, END - закрывающейся операторной скобки. Внутри операторных скобок описываются элементы записи.

Для обращения к компонентам (полям) записи необходимо указать идентификатор записи, за которым ставится точка, а затем идентификатор поля (составное имя).

имя записи.имя поля

Имена полей внутри записи не должны повторяться. В языке Паскаль нет ни одной операции, которая воспринимала бы запись как нечто целое. Однако значение записи можно пересылать в другие переменные записи с помощью операторов присваивания.

Пример:

TYPE

STUDENT= RECORD

FIO: STRING [20];

D1, D2: 2..5;

PR: INTEGER

END;

VAR

GRUPPA: ARRAY [1..25] OF STUDENT;

 

В данном примере был создан тип STUDENT, который представляет собой запись, включающую фамилию, оценки по двум дисциплинам и количество пропусков. Эти данные по каждому студенту объединены в группу, т.е. получен массив записей GRUPPA. Этот массив содержит 25 записей типа STUDENT. Обращение к отдельным элементам записей: GRUPPA [15]. FIO

GRUPPA [24]. PR

GRUPPA [13]. D1

При обращении к компонентам записи необходимость указывать составные имена приводит к удлинению программы и громоздкости. Для устранения этого неудобства в языке Паскаль используется оператор присоединения, который позволяет осуществлять доступ к компонентам записи, таким образом, как, если бы они были простыми переменными.

Синтаксис оператора:

WITH

имя записи DO

BEGIN

операторы, содержащие имена элементов записи

END;

 

Внутри этого оператора к компонентам записи можно обращаться только с помощью имени компонент.

 

Пример:

Для каждого студента указаны фамилия, оценки по пяти дисциплинам. Требуется вычислить средний балл каждого студента.

 

PROGRAM PRIMER9;

USES CRT;

LABEL 1;

TYPE

VED = RECORD

FIO: STRING[30];

B1, B2, B3, B4, B5: 2..5;

SB: REAL

END;

VAR

GRUPPA: ARRAY[1..25] OF VED;

I, K: INTEGER;

OTV: CHAR;

BEGIN

1: CLRSCR;

WRITELN('ВВЕДИТЕ КОЛИЧЕСТВО СТУДЕНТОВ В ГРУППЕ');

READLN(K);

FOR I:= 1 TO K DO

BEGIN

WRITELN('ВВЕДИТЕ ДАННЫЕ ', I:2, '-ГО СТУДЕНТА:');

WITH GRUPPA[I] DO

BEGIN

WRITELN ('ВВЕДИТЕ ФАМИЛИЮ И ИМЯ СТУДЕНТА');

READLN (FIO);

WRITELN ('ВВЕДИТЕ 5 ОЦЕНОК ПО ДИСЦИПЛИНАМ');

READLN (B1);

READLN (B2);

READLN (B3);

READLN (B4);

READLN (B5);

SB:=(B1+B2+B3+B4+B5)/5

END;

END;

{ВЫВОД ВЕДОМОСТИ НА ЭКРАН}

CLRSCR;

WRITELN('----------------------------------------------------');

WRITELN('| ФИО | 1 | 2 | 3 | 4 | 5 | СР.БАЛЛ |');

WRITELN('----------------------------------------------------');

FOR I:= 1 TO K DO

BEGIN

WITH GRUPPA[I] DO

BEGIN

WRITE ('|', FIO:20, '|');

WRITE (B1:2, ' |');

WRITE (B2:2, ' |');

WRITE (B3:2, ' |');

WRITE (B4:2, ' |');

WRITE(B5:2, ' |');

WRITE(SB:7:2, ' |');

WRITELN

END

END;

WRITELN('----------------------------------------------------');

WRITELN('БУДЕТЕ ВВОДИТЬ НОВЫЕ ДАННЫЕ (Y/N)?');

READLN(OTV);

IF (OTV = 'Y') OR (OTV = 'Y')

THEN GOTO 1

END.

Задачи для самостоятельного решения:

 

1. Дана ведомость учащихся, занимающихся в кружке по информатике, и их оценка по информатике. Определить количество учащихся, занимающихся на «5», и количество учащихся с фамилией, начинающееся на букву «А».

2. Дана ведомость учащихся, и количество их пропусков за семестр (в часах). Определить количество учащихся, не имеющих пропусков, и количество учащихся, имеющих пропусков более 20 часов.