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

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

Programprimer 2;

Usescrt;

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 ;

UsesCrt;

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.

Копирование подстроки

Составление простых слов из более сложного.

Program primer 5 ;

Uses Crt;

Var

a, b, c, d , e : string [15] ;

Begin

Clrscr;

a:='стихотворение' ; В результате работы этой программы получим:

b:=copy(a, 1, 4) ; стих, тихо, творение, вор

c:=copy(a, 2, 4) ;

d:=copy(a, 6, 8) ;

e:=copy(a, 7,3);

writeln (b, ' , ' , с, ' , ' , d, ' , ' , е);

readln;

End.

Вставка, замена и удаление подстроки

Преобразование слова лево в слово компот.

Program primer 6;

Uses Crt;

Var

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

Begin

Clrscr;

a:='лекарство';

delete(a, 3, 5);

writeln(a); {лево}

delete(а, 3, 1);

b:='т';

insert(b, a, 3);

writeln(a); {лето}

с:='кот';

d:='мпo';

insert(d, с, 3);

writeln(c); {компот}

readln;

End.

Поиск подстроки

Поиск слов в предложении.

Program primer 7;

Uses Crt;

Var

a, b, с : string [100];

m, n : integer;

Begin

Clrscr;

a ='Жил-был в норе под землей хоббит';

b :='был';

с :='хоббит';

m :=pos (b, a);

n :=pos (с, а);

writeln (b, ' - ', m); {был - 5}

writeln (с, ' - ', n); {хоббит – 27}

readln;

End.