Page 20 - 4352

2.14 Генератор випадкових чисел
Для ініціалізації генератора випадкових чисел використовується оператор
RANDOMIZE. Формат:
RANDOMIZE SEED#
Тут:
SEED# - ціле число, використовуване для ініціалізації генератора
випадкових чисел.
Для добування чергового випадкового числа в діапазоні від 0. до 1. в
арифметичних виразах використовується оператор RND. Приклад:
CALL GET_TIME (H#,M#,S#)
RANDOMIZE H#+M#+S#
D1# = INT(RND*5) + 1
D2# = INT(RND*5) + 1
PRINT "Кубик 1 : ", D1#, " Кубик 2 : ", D2#

2.15 Робота з файлами
Для роботи з файлами використовуються оператори OPEN, CLOSE,
INPUT, WRITE. Файли представляються як послідовності записів - текстових
рядків змінної довжини. Для початку роботи з файлами служить оператор OPEN.
Формат:
OPEN "ІМЯ_ФАЙЛУ" FOR ( INPUT | OUTPUT | APPEND ) AS ID#
Тут:
"ІМЯ_ФАЙЛУ" - рядок, що містить ім'я файлу (може бути рядковим
літералом або рядковою змінною);
FOR INPUT - відкриває файл, що буде використовуватися тільки для
уведення;
FOR OUTPUT - відкриває файл, що буде використовуватися тільки для
виводу;
FOR APPEND - відкриває файл, що буде використовуватися для запису
нових даних у хвіст до уже існуючих;
ID# - програмний номер файлу, що буде використовуватися надалі в
операціях обміну.
Для читання даних з файлу служить оператор INPUT. При кожному
операторі відбувається зчитування чергового запису (текстового рядка) файлу й
читання з нього даних у змінні, представлені в списку. Формат:
INPUT ID#, A1, A2, A3 ...
Тут:
A1, A2, A3 - змінні, у які здійснюється читання.
Для визначення кінця файлу використовується функція EOF(ID#). Як
параметр їй подається програмний номер відкритого файлу. Функція повертає 1,
якщо досягнуто кінець файлу, і 0 у іншому випадку. Приклад:
OPEN "POLY.DAT" FOR INPUT AS ID#
10 INPUT ID#, X, Y, Z
PRINT X, Y, Z
IF EOF(ID#) = 0 THEN 10

19