Игра "Угадай число" (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