Помощь - Поиск - Пользователи - Календарь
Полная версия: Как отрубить все "ненужные" клавиши в меню программы.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Виталий_Сигов
26.10.2009 14:10
Здравствуйте, уважаемые форумчане.
Вопрос у меня такой: как можно "отрубить" ненужные клавиши в меню программы кроме цифровых клавиш 1, 2, 3, 4 и 5 ?

Код


.........
writeln('   Меню   ');
writeln(' 1:  Создание файла ');
writeln(' 2:   Чтение файла  ');
writeln(' 3:  Добавление записи в файл  ');
writeln(' 4:  Выборка записей из файла  ');
writeln(' 5:      Выход      ');
readln(k);
case k of
1:goto 6;
2:goto 20;
3:goto 30;
4:goto 40;
5:goto 12;
end;
........
volvo
26.10.2009 14:26
var ch: char;
...
writeln('   Меню   ');
writeln(' 1:  Создание файла ');
writeln(' 2:   Чтение файла  ');
writeln(' 3:  Добавление записи в файл  ');
writeln(' 4:  Выборка записей из файла  ');
writeln(' 5:      Выход      ');
repeat
  ch := readkey;
until ch in ['1' .. '5'];
k := ord(ch) - ord('0');
P.S. Избавься от goto в программе. Здесь они ЯВНО не нужны, не надо писать на Паскале в стиле Бейсика.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.