Составные структуры

Строки

1. Определение и описание строк

   Понятие строки, содержащей некоторый текст, широко используется в не численных приложениях, например, системах обработки текстов, базах данных и информационных системах, редакторах и т. д.

   Строка – это последовательность символов.
   Длина строки – это количество символов строки.
   Строка, которая не содержит символов, называется пустой и обозначается ‘’.

   Переменные строкового типа описываются в программах на языке Turbo Pascal с помощью зарезервированного слова string, после которого может указываться максимальная длина строки (от 1 до 255).

   Пример: var a: string[30]; {а содержит строку до 30 символов длиной}

   b: string; {b может содержать до 255 символов}

   Способы описания строк:

   1. Строковый тип определяется в разделе описания типов, переменные этого типа в разделе описания переменных:
      Type stroka = string[20];
      Var s1: stroka;

      Описание в разделе описания переменных:

      Var s2: string[20];

      Определяем строковую переменную и ее начальное значение как констант – строку:

      Const s3: string[16] = ‘Я изучаю строки!’;

   Представление строк в памяти компьютера:

   Для хранения строковых переменных выделяется память, на единицу большая максимальной длины строки. Начальный байт этой памяти отводится для хранения текущей длины строки, следующие байты - для символов самой строки. Элементы строк стандартно нумеруются целыми числами, начиная с единицы, байт с длиной строки можно считать как бы нулевым ее элементом.

   Структура памяти для строк может быть проиллюстрирована следующим рисунком:

   

   Итак, символы, составляющие строку, занумерованы слева направо, начиная с единицы. К ним можно обращаться с помощью индексов, как к элементам одномерного массива: после идентификатора переменной строкового типа в квадратных скобках записывается номер нужного вам элемента строки. Такая конструкция по определению имеет символьный тип (char).

   Пример: а[3] – обращение к третьему элементу строки а.

   На первый взгляд строки очень похожи на массивы с элементами символьного типа. Важнейшим их отличием является то, что строки могут динамически изменять свою длину в процессе работы программы, а размер массивов фиксируется при описании.
   Переменные типа string выводятся на экран монитора посредством стандартных процедур write и writeln и вводятся с помощью стандартных процедур read и readln. То есть вводятся и выводятся не поэлементно, как массивы, а сразу целиком.
   Если ввести больше символов, чем максимальная длина строки N, то строка будет равна первым N символам, а остальные игнорируются.

2. Операции со строками

   • Склеивание (конкатенация)
     - некоммутативная операция, заключающаяся в последовательном объединении нескольких строк. Обозначается знаком плюс.

     Пример:

     Var a, b, c, d: string[40];
     Begin
     a:=’У Егорки’;
     b:=’всегда отговорки’;
     c:=a + ‘ ‘ + b;
     d:=’У Егорки’ + ‘ ‘ +’всегда отговорки’;
     End.

     В результате строки c и d будут иметь значение ‘У Егорки всегда отговорки’.

     Сравнение

     - происходит посимвольно слева направо: сравниваются коды соответствующих символов до тех пор, пока не нарушиться равенство. При этом сразу делается вывод о знаке неравенства.

     Две строки называются равными, если они равны по длине и совпадают посимвольно.

     Пример:

     ‘fife’ < ‘three’ (т. к. ‘f’ < ‘t’);

     ‘4’ > ‘237’ (т. к. ‘2’ < ‘4’);

3. Стандартные процедуры для обработки строковых величин

   1. Процедура удаления delete(s, k, n) – из строки s удаляется n символов, начиная с k - того.

      Пример: s = ‘барабан’; delete(s, 5, 2); Результат s = ‘баран’;

   2. Процедура вставки insert(s1, s2, n) – строка s1 вставляется в строку s2, начиная с n – го символа.

      Пример: s = ‘барабан’; insert(s, ‘щик’, 8); Результат s = ‘барабанщик’;

   3. Процедура str(k, s) преобразовывает число k в строку s.

      Пример: str(3456, s); s = ‘3456’;

   4. Процедура val(s, k, n) преобразовывает строку из цифр s в число k. N – номер позиции первого символа строки s, отличного от цифры.

      Пример: val(‘3456’, k, n); k = 3456; n = 0;

       val(‘34g56’, k, n); k = 0; n = 3;

4. Стандартные функции для обработки строковых величин

   1. Функция concat(s1, s2, …, sn), аналогична опреации склеивания. Значение функции результат соединения строк s1, s2, …, sn.

      Пример: s := concat(‘У Егорки’,’ ‘,’всегда отговорки’);

       Результат: s = ‘У Егорки всегда отговорки’;

      Функция copy(s, n, k) – из строки s выделяет k символов, начиная с n-го символа.

      Пример: с := copy(‘барабан’, 1, 3); Результат: с = “бар”;

      Функция length(s) определяет длину строки s.

      Пример: s := ‘барабан’; а := length(s); а = 7;

      Функция pos(s, c) определяет номер позиции, начиная с которой строка s первый раз входит в строку с.

      Пример: с:= ‘колокол’; k := pos(‘кол’, c); х := pos(‘дол’, c);

       Результат: k = 1; х = 0;

5. Примеры программ

   Пример 1. Составим программу, подсчитывающую количество пробелов в

       данной строке.

   Program probel;
   Uses crt;
   Var s: string[50];
   K, i: integer;
   Begin
   Clrscr;
   Writeln(‘Введите строку’);
   Readln(s);
   For i:=1 to length(s) do
   If s[i] = ‘ ‘ then inc(k);
   Writeln(‘Количество пробелов = ’, k);
   Readln
   End.

   Пример 2. Составим программу, подсчитывающую сумму цифр в данной строке.

   Program summa;
   Uses crt;
   Var s: string[50];
   K, i, n, l: integer;
   Begin
   Clrscr;
   Writeln(‘Введите строку’);
   Readln(s);
   For i:=1 to length(s) do
   Begin
   Val(s[i], n, l);
   If l = 0 then k:=k + n;
   End;
   Writeln(‘Сумма цифр = ’, k);
   Readln
   End.

   Пример 3. Составим программу, определяющую является ли данная фраза

       перевертышем.

   Program perevertish;
   Uses crt;
   Var s1, s2: string[50];
   K, i, n, l: integer;
   Begin
   Clrscr;
   Writeln(‘Введите фразу’);
   Readln(s1);
   S2:=’’;
   For i:=length(s1) downto 1 do
   S2:=s2 + s1[i];
   If s1 = s2 then Writeln(‘ Перевертыш’)
   else Writeln(‘ Не перевертыш’);
   Readln
   End.

   Пример 4. Составим программу, сортирующую список студентов в алфавитном

       порядке.

   Program sort;
   Uses crt;
   Var s: array[1..100] of string[20];
   A: string[20];
   i, j, k: integer;
   Begin
   Clrscr;
   Write(‘Введите количество студентов: ’);
   Readln(k);
   Writeln(‘Введите фамилии студентов: ’);
   For i:=1 to k do
   Readln(s[i]);
   For i:=1 to k do
   For j:=1 to k - 1 do
   If s[j] > s[j + 1] then
   begin
   a:=s[j];
   s[j]:=s[j + 1];
   s[j + 1]:=a;
   end;
   writeln(‘Отсортированный список: ’);
   for i:=1 to k do
   writeln(s[i]);
   Readln
   End.

Назад

Далее