Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Как отрубить все "ненужные" клавиши в меню программы.

Автор: Виталий_Сигов 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 в программе. Здесь они ЯВНО не нужны, не надо писать на Паскале в стиле Бейсика.