Строки Опции

[Altair]

Строки. Краткая теория.

В Паскале определены два типа строк:

• Тип String
• тип PChar

I. String

Стандартная строка (string) в Паскале, представляет из себя массив, первый элемент которого содержит длину строки, а начиная со второго элемента начинается полезная информация. Поскольку нумерация начинается с 0, то первый элемент строки, содержащий длину строки, имеет индекс 0.

Если Вы попытаетесь осуществить следующее присвоение:

var
  s:string;
  I:byte;
begin
  readln(s);
  i:=s[0];
end.

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

Для определения длины строки можно использовать или стандартную процедуру Length(stroka) или так:

var
  dlinna_stroki:byte
  s:string;
begin
  readln(s); {вводим строку}
  dlinna_stroki:=Ord(s[0]);
end.

Второй способ менее нагляден, но полезен если Вы забыли стандартные процедуры.

К каждому элементу строки можно обратиться, как к элементу массива. Длина строк ограниченна 255 символами. Поскольку первый элемент строки кодируется одним байтом, он может закодировать максимум 255 элементов.

II. PChar
Для обеспечения поддержки строк, длиннее 255 символов, в TP7 был введен новый тип - PChar. Он имеет следующую структуру:

Type
  PChar = ^Char;

Т.е. представляет собой указатель, но в отличие от обычных указателей, он трактуется необычным образом: считается, что он указывает на цепочку символов, заканчивающуюся символом с кодом #0.

Тип PChar совместим с одномерным символьным массивом с нулевой левой границей (array[0..max]).

Переменные типа PChar индексируются, т.е. к элементам длинной строки можно обратиться по их индексу, как к элементам обычной строки.

СТРОКИ. ЧаВо.

• После посимвольного ввода строки, не получается вывести ее на экран. В чем дело?
  При посимвольном вводе строки, Вы забыли указать длину получившейся строки
  

  s[0]:=chr(dlinna)

  
  Или иначе, при вводе:
  

  {...}
  {ввод очередного символа}
  {...}
  Inc(S[0]);

• Почему не получается индексировать длинную строку?
  Включите расширенный синтаксис директивой {$X+} или в настройках компилятора
• Есть какие-нибудь процедуры для работы с длинными строками?
  Да, есть. В модуле strings
• Как вывести длинную строку на экран?
  Процедурой Writeln, при включенно расширенном синтаксисе.
• Сколько занимает в памяти строка?
  Для обычных строк, если не указана длина строки, то 256 байт.
  Если, при описании переменной, указана длина строки явно (string[8]), то столько, сколько указано +1 байт на нулевой элемент (хранение длинны строки).
  Для PChar размер в памяти равен количеству элементов до символа #0 +1 байт.
• Как перевернуть строку?
  (с использованием второй строки):
  

  var
    s,f: string;
    i,j: byte;
  begin
    readln(s); j:=1;
    for i:=length(s) downto 1 do begin
      f[j]:=s[i]; inc(j);
    end;
    f[0]:=chr(j);
    writeln(f);
  end.

  
  
  (from APAL с использованием одной строки и одной переменной типа Char):
  

  var
    s:string;
    f:Char
    i:byte;
  begin
    readln(s);
    for i:=1 to Length(s) div 2 do begin
      f:=s[i];
      s[i]:=s[Length(s)-i+1];
      s[Length(s)-i+1]:=f;
    end;
    writeln(s);
  end.

[klem4]

Стандартные функции и процедуры языка Паскаль для работы со строками и символами

Символы

Chr(x : byte) : Char - Возвращает символ ASCII кода х
Ord(c : Char) : Byte - Возвращает ASCII-код символа c
UpCase(c : Char) : Char - Переводит символы 'a'..'z' в верхний регистр
Pred(c : Char) : Char - Выдает предшествующий c символ
Succ(c : Char) : Char - Выдает последующий за c символ

Строки

Length(s : String) : Byte - Возвращает длину строки s
ConCat(s1, s2, s3 ... sn : String) : String - Возвращает конкатинацию (слияние) строк s1...sn
Copy(s : String; start, len : Integer) : String - Возвращает подстроку длиной len, начинающуюуся с позиции start строки s
Delete(VAR s : String; start, len : Integer) - Удалает подстроку длиной len начиная с позиции start строки s
Insert(VAR s : String; SubS : String; start : Integer ) - Вставляет в s подстроку SubS, начиная с позиции start
Pos(SubS, s : string) : byte - Ищет вхождение подстроки SubS в s и возвращает номер первого символа SubS в s, или 0, если s не соержит SubS

Процедуры преобразования

Str(X :F :n; s : string) - Преобразует числовое значение X в строковое s, возможно создание формата для х
Val(S : String; var X; errCode : integer) - Преобразует строку цифр S в числовое значение X, при неудачном преобразовании errCode содержит номер позиции символа в строке, который не удалось преобразовать (то есть он не является цифрои или десятичной точкой)

Сообщение отредактировано: klem4 - 7.02.2006 21:56