Программа 9.1

Program Demo;

Var А, В, С: string [20]; {А, В, С - исходные строки}

Str: string [60]; {Str - результирующая строка}

Ch: string [1]; k:= integer;

Begin

A:= 'we suprise '; В: = 'you every'; С;= ' new day ';

{выделение и печать первой буквы в строке А}

Ch:= Copy(A,1, l); writeln (Ch);

{преобразование буквы из строчной в прописную и вывод}

Ch:= UpCase(Ch[1]); writeln (Ch);

{конкатенация строк А, В, С, вывод результата }

Str:= Concat(A,B,C); writeln (Str);

{удаление первой буквы для последующей}

{записи в первую позицию прописной буквы, печать результата}

Delete(Str, l, l); writeln (Str);

{вставка прописной буквы}

Insert (Ch, Str, 1);

{вставка пробела между строками А и В, В и С }

Insert(' ', Str, Length(A)+1); Insert(' ', Str, Length(A+B)+2);

{вывод результирующей строки}

writeln; writeln ('Результат выполнения программы:');

writeln;

writeln (Str:60);

writeln ('Первый символ "e" встретился в позиции ', Pos('e',Str));

for k:=1 to length(Str) do

if Str[k]='e' then writeln ('символ "e" встречается в позиции ',

k:5); writeln ('Длина строки = ', Length (Str)); End.

В результате работы программы на экране появится следующее:

W

we supriseyou everynew day

e supriseyou everynew day

We suprise you every new day

Результат выполнения программы:

We suprise you every new day!

Первый символ "e" встретился в позиции 2

символ "e" встречается в позиции 2

символ "e" встречается в позиции 10

символ "e" встречается в позиции 16

символ "e" встречается в позиции 18

символ "e" встречается в позиции 23

Длина строки = 30

Пример 9.2. Ввести несколько предложений. Сформировать упорядоченный массив строк в алфавитном порядке относительно первых символов каждой строки.

Например, вместо: Кошка на улице

Ласковую собаку

Встретила утром

получить: Встретила утром

Кошка на улице

Ласковую собаку

Схема алгоритма рассмотрена на рис. 9.1. В программе введенные строки формируют массив. Вместо того чтобы сначала упорядочить компоненты массива, а затем их напечатать, эта программа просматривает массив каждый раз, когда печатает значение. Она начинает с поиска наименьшей строки, не принимая во внимание пустые строки. Найденная наименьшая строка распечатывается и заменяется пустой строкой, так что она не будет повторно выводится на печать, когда программа вновь будет просматривать массив. Программа заканчивается, когда массив строк рассмотрен полностью.