Курсовая работа: Работа с текстовыми строками, двумерными массивами, файловыми структурами данных

Cont:=True;

while Cont do

Begin

Очмщаем экран для удобства ввода и вывода информации.

clrscr;

Выводим меню с номерами команд, которое можно увидеть на рисунке 1.

Рисунок 1 – главное меню первой программы.

menu;

write('Vvedite komandu: ');

Считываем команду в переменную Rem.

readln(Rem);

Распознаем команду и выберем необходимые функции для выполнения в соответствии с введенном знаком.

case Rem of

'0': Cont:=False;

'1': begin

Считываем введенную строку в переменную Txt и присваиваем Vvod значение True, показывая, что текст введен.

writeln('Text:');

readln(Txt);

Vvod:=True;

end;

'2': begin

Если текст не введен то выводится соответствующее сообщение, в противном случае запускается функция вывода слова с максимальным количеством букв, расположенных в алфавитном порядке.

if Not Vvod then

writeln('Ne vveden text')

else

alfslovo(Txt);

end;

'3': begin