Пример «Игра Угадай число»

Файлы:

Пример программы на языке программирования Перфо:

// Эта игра написана на скриптовом языке Перфо
// с помощью ИИ Copilot

(Очистить)
(Вывод "Игра: Угадай число от 1 до 100" ПС)

// создаём случайное число от 1 до 100
// в качестве случайного числа берем последние две цифры текущей даты в миллисекундах
(Перем Загадано (+ 1 (Цел (Прав (Строка (ТекущаяУниверсальнаяДатаВМиллисекундах)) 2))))
(Перем Попытки 0)

#Область "Цикл угадывания"
(Пока Истина
    (Перем ВводЧисло (Цел (Ввод "Введи число: ")))
    (++ Попытки)
    
    (Если (= ВводЧисло Загадано)
        (
            (Вывод "Поздравляю! Ты угадал число " Загадано " за " Попытки " попыток." ПС)
            (Прервать)
        )
        (Если (< ВводЧисло Загадано)
            (Вывод "Загаданное число больше." ПС)
            (Вывод "Загаданное число меньше." ПС)
        )
    )
)
#КонецОбласти

(Вывод ПС "Спасибо за игру!" ПС)

К началу статьи