Лекция: Программа 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. В программе введенные строки формируют массив. Вместо того чтобы сначала упорядочить компоненты массива, а затем их напечатать, эта программа просматривает массив каждый раз, когда печатает значение. Она начинает с поиска наименьшей строки, не принимая во внимание пустые строки. Найденная наименьшая строка распечатывается и заменяется пустой строкой, так что она не будет повторно выводится на печать, когда программа вновь будет просматривать массив. Программа заканчивается, когда массив строк рассмотрен полностью.