Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Длина строки.

Читайте также:
  1. L - длина рабочего хода резца, мм;
  2. Б) короче на 1 мм, чем анатомическая длина зуба
  3. Ввод строки.
  4. Деформации, разная длина нижних конечностей
  5. Длина вектора. Угол между векторами.
  6. Длина отрезка и текущий угол.
  7. Длина прямых вставок между смежными кривыми

В TP максимальная длина строки не может превышать 255 символов. Если размер строки не указан, он считается равным 255. Ниже объявлены две строки одинаковой длины.

VAR

att: string;

ts2: string[255];

Важнейшее отличие строк от обычных символьных массивов заключается в том, что строки могут динамически изменять свою длину. Например, если после присваивания

att:= 'Короткая строка';

длина строки составит 15 символов, то следующее присваивание

att:= att + ' стала длиннее';

увеличит её длину до 29 символов.

 

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

Concat (S1, [S2,..., Sn]: string): string;

Объединяет несколько строк в одну (при необходимости усекает чрезмерно большую строку до 255 символов).

S1, S2,..., Sn - объединяемые строки.

 

Length (S: string): integer;

Возвращает текущий размер строки.

S - строка, у которой определяется размер.

 

PROGRAM А3;

VAR

W: string;

BEGIN

Write('Введите, пожалуйста, слово');

Readln(W);

Writeln('Это слово состоит из ',Length(W),'букв! ');

END.

 

Pos (P,S: string): byte;

Поиск последовательности P в строке S (результат равен номеру первого символа строки S, с которого начинается искомая последовательность, или 0, если такой последовательности в строке нет.

 

Процедуры для работы со строками.

Copy (S: string; I: integer; C: integer);

Создаёт подстроку строки S.

S - исходная строка;

I - номер первого, выделяемого символа строки, (если значение больше длины строки, возвращается пустая строка);

C - число выделяемых символов (если всех необходимых символов в строке нет, возвращается имеющийся остаток строки).

 

PROGRAM А4;

VAR

W: string[79];

s1, s2, s3: string[20];

BEGIN

W:= 'картографирование';

Writeln(W); {картографирование}

s1:= Copy(W,6,4);

Writeln(s1); {граф}

s2:= Copy(W,2,3);

Writeln(s2); {арт}

s3:= Copy(W,11,3);

Writeln(s3); {ров}

END.

 

Delete (var S: string; I: integer; C: integer);

Удаляет подстроку из строки S.

I - номер первого удаляемого символа (если номер больше размера строки, символы не удаляются); C - число удаляемых символов (если символов в строке недостаточно, удаляется остаток символов).

 

Insert (P: string; var S: string; I: integer);

Помещает подстроку P в строку S (если получается строка слишком большого размера, то она усекается до 255 символов).

S - исходная строка;

P - подстрока, помещаемая в строку;

I - номер позиции исходной строки, начиная с которой помещается подстрока.

 

PROGRAM А5;

VAR

s1: string[79];

s2: string[20];

BEGIN

s1:= 'компьютеризация';

Writeln(s1); {компьютеризация}

Delete(s1,1,7);

Writeln(s1); {еризация}

Delete(s1,3,2);

Writeln(s1); {ерация}

s2:= 'Г';

Insert(s2,s1,1);

Writeln(s1); {Герация}

s2:= 'не';

Insert(s2,s1,3);

Writeln(s1); {Генерация}

END.

 


Дата добавления: 2015-08-13; просмотров: 101 | Нарушение авторских прав


Читайте в этой же книге: Лекции (черновики). | Интегрированная среда Turbo Pascal (Borland Pascal) | Главное меню Turbo Pascal | Пункт Edit. | Введение в язык Паскаль. Структура программы на Паскале. | Строки. | Описание одномерных массивов. | Поиск элементов, удовлетворяющих заданному условию. | Алгоритм быстрой сортировки. | Устройства LРT1, LРT2, LРT3. |
<== предыдущая страница | следующая страница ==>
Многомерные массивы.| Параметры-значения и параметры-переменные.

mybiblioteka.su - 2015-2024 год. (0.006 сек.)