Курсовая работа: Телефонный справочник

writeln;

writeln('1. Не сортировать');

writeln('2. Сортировать по Фамилии');

writeln('3. Сортировать по адресу');

writeln('4. Сортировать по номеру телефона');

writeln('----------------------------');

writeln('5. Возврат в главное меню');

writeln;

write('Выберите пункт меню: ');

readln(b);

case b of

1 : WritePhone;

2 : SortSurname;

3 : SortAddress;

4 : SortPhone;

end;

end;

until b=5;

end;

ПроцедураPhoneMenu – меню. Данная процедура при помощи операторов Writeln и Readln создает меню, для удобства работы с программой конечного пользователя. В меню присутствуют следующие пункты:

· 1. Показать все записи – вызывает процедуру WritePhone;

· 2. Добавить запись – вызывает процедуру AddPhone;

· 3. Удалить запись – вызывает процедуру DeletePhone;

· 4. Редактировать запись – вызывает процедуру EditPhone;

· 5. Поиск по Фамилии – вызывает процедуру FindSurname;

· 6. Поиск по номеру телефона – вызывает процедуру FindPhone;

· 7. Выход – завершает работу программы;

procedure PhoneMenu;

var b: integer;