Программа "Угадай число" на qbasic.
Вот код программы: RANDOMIZE TIMER DIM secretNumber AS INTEGER DIM guess AS INTEGER DIM attempts AS INTEGER secretNumber = INT(RND * 100) + 1 attempts = 0 PRINT "Добро пожаловать в игру 'Угадай число'!" PRINT "Я загадал число от 1 до 100. Попробуй его угадать!" DO INPUT "Введите ваше предположение: ", guess attempts = attempts + 1 IF guess (угловая скобка влево, обозначающая меньше. Ютуб запрещает их использовать) secretNumber THEN PRINT "Слишком мало. Попробуйте снова." ELSEIF guess (угловая скобка вправо, обозначающая больше. Ютуб запрещает их использовать) secretNumber THEN PRINT "Слишком много. Попробуйте снова." ELSE PRINT "Поздравляем! Вы угадали число " ; secretNumber ; " за "; attempts ; " попыток." END IF LOOP UNTIL guess = secretNumber PRINT "Спасибо за игру!"
Название:
Программа "Угадай число" на qbasic.
Категория:
Разное