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

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

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.

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

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

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.