Программа
DECLARE FUNCTION Question$ (St$)
DO
LOOP WHILE Question$("Закончить программу?") <> "YES"
END
FUNCTION Question$ (St$) 'Функция получения ответа на вопрос
PRINT St$; " [Y/N] "; 'Вывод вопроса
DO
S$ = INKEY$ 'Чтение нажатия клавиши
LOOP WHILE S$ <> "Y" AND S$ <> "y" AND S$ <> "N" AND S$ <> "n"
'Выход из цикла при получении корректного ответа
IF S$ = "Y" OR S$ = "y" THEN Question$ = "YES" ELSE Question$ = "NO"
'Определение значения функции
PRINT S$ 'Вывод ответа
END FUNCTION
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию