Обработка символьной информации

Условие задачи

Составить программу, вводящую две произвольные латинские буквы и выводящую всю упорядоченную цепочку букв алфавита, концами которой являются эти две буквы. Исходные данные представляют собой строку символов, находящуюся в текстовом файле input. txt на диске в индивидуальной рабочей папке. Вывод результатов необходимо осуществить вместе с исходными данными в текстовый файл output. txt, поместив его также в свой индивидуальный каталог, и вывести на экран монитора.

Предварительный анализ задачи

• 1. Создать текстовый файл input. txt и внести в него необходимую информацию.
• 2. Разработать алгоритм выведения произвольных букв в конец латинского алфавита.
• 3. Создать текстовый файл output. txt, в который будет помещаться полученная информация.

Разработка алгоритма

1. Определение входных данных:

simv1, simv2 (исходная строка);

2. Определение выходных данных:

duf (полученные данные);

3. Текст алгоритма.

Алгоритм

Аргументы: simv1, simv2;

Результаты: duf;

Начало Ввод значений.

Simv1.

Simv2.

Считывание из файла «input».

assignfile (f,'input.txt').

reset (f1).

readl (f, str).

close (f1).

цикл i:=1 до length (str).

если (str[i]simv1) и (str[i]simv2) и (str[i]' ') тогда.

buf:=buf+str[i]+' ';

конец.

buf:=buf+simv1+' '+simv2; // запись введенных значений в конец алфовита запись в файл «output» assignfile (f2,'output.txt');

Вывод в окно.

form1.Label1.Caption:=buf;

КОНЕЦ