Практическая работа № 7

Тема: «Строковый тип данных»

Тип-строка - последовательность символов произвольной длины (до 255). Строку можно рассматривать как массив символов, однако в связи с широким использованием строк и некоторыми особенностями по сравнению со стандартными массивами они выделены в отдельный тип данных.

У типа-строки в квадратных скобках может быть указан его размер (от 1 до 255). Если размер строки не указан, он считается равным 255, например:

Var

Str: string[80];

MaxStr: string;

Const

January: string[10]=’Январь’;

Процедуры и функции обработки строковых переменных:

Length(S: String): Integer; - функция определения длины строкового выражения.

Пример использования в программе:

Var

S: String;

Begin

Readln(S);

Writeln('"', S, '"');

Writeln('length = ', Length(S));

End.

Copy(S: String; Index: Integer; Count: Integer): String; - функция выделения подстроки из строки.

Пример использования в программе:

Var S: String;

Begin

S := 'ABCDEF';

S := Copy(S, 2, 3); { 'BCD' }

End.

Concat(s1 [, s2,..., sn]: String): String; - функция склейки строк; аналогично операции «+» - последовательное соединение строк.

Пример использования в программе:

Var

S: String;

Begin

S := Concat('ABC', 'DEF'); { 'ABCDE' }

End.

Delete(Var S: String; Index: Integer; Count: Integer);- процедура удаления подстроки из строки.

Пример использования в программе:

Var

s: string;

Begin

s := 'Honest Abe Lincoln';

Delete(s,8,4);

Writeln(s); { 'Honest Lincoln' }

End.

Insert(Source: String; Var S: String; Index: Integer); - процедура вставки в строку Word2 подстроки Word1 с позиции n.

Пример использования в программе:

Var

S: String;

Begin

S := 'Honest Lincoln';

Insert('Abe ', S, 8); { 'Honest Abe Lincoln' }

End.

Pos(Substr: String; S: String): Byte; - функция определения позиции включения одной строки в другой;

Пример использования в программе:

Var S: String;

Begin

S := ' 123.5';

whilePos(' ', S) > 0do

S[Pos(' ', S)] := '0';

End.

Примеры решений задач

1. Объединение двух строк.

Programassign;

Var

Str, str1,str2: string[80];

Begin

Str1:=’Turbo’;

Str2:=’Pascal’;

Str:=str1+str2;

Writeln (str);

End.