Символы (строки)

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

Процедуры

Delete(Var S:String; N, MJnteger) Удаляет М символов из строки S, начиная с позиции N.

Insert(SubS: String; Var S:String; N:Integer) Вставляет подстроку SubS в строку S, начиная с позиции N.

Str(X:Integer; Var S:String) Возвращает представление числа Х в его символьной форме S.

Val(S:String; Var X, Code: Integer) Возвращает представление символов строки S в ее числовой форме К-Параметр Code содержит признак ошибки преобразования (если Code = 0 ошибки нет).

Функции Chr(X:Byte):Char Возвращает символ с заданным порядковым номером X.

Concat(Sl[, S2, .... SN]):String Выполняет сцепку (конкатенацию) последовательности строк.

Copy(S:String; N, M:Integer):String Возвращает подстроку из строки S, начиная с позиции N и длиной М символов.

Length(S:String):Byte Возвращает количество символов в строке S.

Ord(X:Char):LongInt Возвращает порядковый номер символа Х в таблице кодов символов.

Pos(SubS, S: String):Byte Возвращает номер позиции, начиная с которой в строке S распола­гается подстрока SubS (если значение функции равно нулю, то S не содержит SubS).

Программа, которая ведёт с вами в диалог.

Program primer 1;

Uses crt;

var a, b : string [50];

Begin

Clrscr;

writeln ('Добрый день!');

writeln ('Назовите, пожалуйста, свое имя');

readln (a) ;

writeln ('Рад познакомиться, ' , а);

writeln ('Как поживаете? ' ) ;

readln (b) ;

writeln ('Какое совпадение! И я ' , b);

readln;

End.

Сравнение строк

Метод сортировки трёх строк по алфавиту.

Program primer 2;

Uses crt;

var a, b, c, d : string [20] ;

Begin

Clrscr;

writeln ('Введите 1-е слово');

readln (a) ;

writeln ('Введите 2-е слово');

readln (b) ;

writeln ('Введите 3-е слово');

readln (с) ;

d : = ‘ ‘;

If a > b then

begin

d:= a ;

a:= b;

b:= d;

end;

If b > с then

begin

if с < a then

begin

d = a;

a = c;

с = d;

end;

d:= b;

b:= c;

c:= d;

end;

writeln (a);

writeln (b);

writeln (c);

readln;

End.

Объединение строк

Составление предложения.

Program primer 3;

Uses Crt;

var

a, b, c, d : string[30];

Begin

Clrscr; в результате получим:

a:='To be'; To be or not To be That is the question

b: = 'or not';

c:='That is the question';

d:=a+b+a;

writeln (d);

writeln (c);

readln;

End.

Сцепление строк.

Program primer 4 ;

Uses Crt;

var

a, b, c, d , 1, m, n, p : string [10]; В результате работы этой программы на

экране появятся следующие слова

Begin

Clrscr; парад паром сом сад

а:='пар';

b:='ад';

с:='ом';

d:='c';

l:=a+b; m:=a+c; n:=d+c; p:=d+b;

writeln (1, ' ' , m, ' ', n, ' ', p);

readln;

End.