Основы трехмерной графики в среде Blitz3D


Игра "Угадай число" (25 мин)


Эта программа использует большинство структур, изученных ранее и будет хорошим закрепляющим материалом.

Эта строка для того, чтобы каждый раз не загадывалось одно и то же число:

SEEDRND MILLISECS()

 

Компьютер загадывает число:

N = RAND (1, 100)

 

Бесконечный цикл, чтобы игрок мог пытаться угадывать число несколько раз:

REPEAT

 Играющий вводит число:

 I = INPUT$(“Угадай число:”)

 IF I = N THEN

 

Играющий угадал число, поздравляем его с победой и   выходим:

  PRINT “Поздравляю! Вы выиграли!”

  EXIT

 END IF

 IF I > N THEN

 

Число больше задуманного:

  PRINT “Это число слишком велико”

 ELSE

 

Число меньше задуманного:

  PRINT “Это число слишком мало”

 END IF

FOREVER

WAITKEY

 




Начало  Назад  Вперед