Qbasic випадкові числа

# Випадкові числа

Випадкове число - це число, величина якого не може бути заздалегідь відома. Класичний приклад - число очок, що випадають при киданні грального кубика.

У Quick Basic є функція RND, яка повертає випадкове значення з інтервалу (0, 1). Познайомимося з нею ближче. Складемо програму виведення перших 5 випадкових чисел на екран.

Якщо виконати цю програму кілька разів, то ми з подивом виявимо, що на екран видається одна і та ж послідовність "випадкових" чисел! Це відбувається тому, що насправді кожне наступне випадкове число виходить з попереднього по хитрій формулі, яка імітує відсутність закономірності в послідовності чисел. А оскільки перше число послідовності один і той же, то повторюватися будуть і інші числа.

Щоб отримувати різні послідовності потрібно при кожному запуску брати нову "затравки". Для зміни "затравки" використовуємо команду RANDOMIZE TIMER.

RANDOMIZE отримує від функції TIMER значення системного часу і формує "затравки" для RND. При наступному запуску програми функція TIMER поверне інше значення, і вийде інша послідовність чисел.

Завдання. Отримати випадкове ціле число x в межах від 1 до N

Рішення. Помножимо нерівність 0 0. При множенні на позитивне число знак нерівності зберігається, тому 0 x = INT (N * RND) + 1

Завдання. "Запалити" на екрані (в текстовому режимі) 100 зірочок.

Рішення. Для кожної зірочки виберемо для виведення випадковим чином номера рядка і позиції. З огляду на, що рядків на текстовому екрані 25, а позицій 80, отримаємо програму

Крапка з комою після оператора PRINT потрібна, щоб скасувати переведення рядка після виведення зірочки, інакше при виведенні в останній рядок екрана вся картинка зміститься вгору.

Завдання. Змінити програму так, щоб вона виводила на екран в графічному режимі 1000 точок випадкового кольору. Замініть точки колами або прямокутниками.

Схожі статті