Функции и команды обработки строк
Процедуры
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;
vara, b : string [50];
Begin
Clrscr;
writeln ('Добрый день!');
writeln ('Назовите, пожалуйста, свое имя');
readln (a) ;
writeln ('Рад познакомиться, ' , а);
writeln ('Как поживаете? ' ) ;
readln (b) ;
writeln ('Какое совпадение! И я ' , b);
readln;
End.
