Attributed to Newton by Tim Holyoake

Приписывается Ньютону

10-строчная игра PUR-80 BASIC для Sharp MZ-80K.

Автор: Тим Холиок [@psychotimmy (twitter)]

Описание игры:

Применив здравый смысл и умение, определите, какая из представленных вам 20 фраз принадлежит сэру Исааку Ньютону.

Просто ответьте Y, если считаете, что эта фраза приписывается Ньютону. Все остальные ответы означают, что вы думаете, что это не его мудрость.

Каждой фразе присваивается определенное количество баллов Ньютона. Если фраза набирает 18 баллов и более, это означает, что она приписывается Ньютону. Поскольку во время каждой игры слова всегда набирают одинаковое количество очков, по ходу игры должно стать легче определить, какие фразы приписываются Ньютону.

Ваша цель состоит в том, чтобы к концу игры показатель мудрости был как можно ближе к 100%.

Код и документация:

Строки 1–3 – игровые данные. U устанавливается на количество фраз.

Строка 4 – строковые переменные-массивы, содержащие каждую часть фразы (S$, V$ и A$). N хранит случайное количество баллов за слово, чтобы можно было вычислить "баллы Ньютона" фразы с помощью функции FNA().

Строки 4-5. Инициализация данных игры и очистка экрана.

Строка 6 – создайте случайную фразу и подсчитайте количество баллов Ньютона, которые она имеет (хранится в числовой переменной O).

Строки 6–7. Распечатайте фразу и спросите, приписывается ли она Ньютону.

Строка 8. Если угадано «Y» и O>17 или если это «N» и O<18, добавьте единицу к счету и сообщитеигроку они дали правильный ответ. Перейти к строке 10.

Строка 9 — достигается только в том случае, если догадка неверна. Если предполагалось, что фраза была приписана Ньютону, сообщите игроку, кто ее сказал на самом деле (конечно, Эйнштейну).

Строка 10 – показывает количество баллов Ньютона, которое стоила фраза, чтобы в следующий раз игрок мог угадать ее лучше. Отображение процента мудрости игрока. Если это не двадцатая фраза, отобразите следующую.