Пример1. Программа, которая записывает числа, делящиеся на 2 в файл 2.txt, делящиеся на 3 –в 3.txt, остальные в файл teised.txt.
| OPEN "2.txt" FOR OUTPUT AS #1
OPEN "3.txt" FOR OUTPUT AS #2
OPEN "teised.txt" FOR OUTPUT AS #3
INPUT "Сколько чисел смотрим"; PIIR
FOR I = 1 TO PIIR
'если I делится на 2, то записываем в файл#1
IF I / 2 = INT(I / 2) THEN PRINT #1, I;
IF I / 3 = INT(I / 3) THEN PRINT #2, I;
'иначе - в файл #3
IF I / 3 <> INT(I / 3) AND I / 2 <> INT(I / 2) THEN PRINT #3, I
NEXT I
CLOSE
|
Прмер 2. Программа, которая записывает имена и возраст людей из массива в файл andmed.txt
| INPUT "Сколько данных вводим"; N
'объявляем массивы
DIM Nimed$(N) 'массив имён
DIM Vanused(N) 'массив возраста
'заносим имена в массив
FOR I = 1 TO N
PRINT "Введи"; I; ". имя";
INPUT Nimed$(I)
PRINT "Введи"; I; ". возраст";
INPUT Vanused(I)
NEXT I
'Заносим данные в файл andmed.txt
OPEN "andmed.txt" FOR OUTPUT AS #1
FOR I = 1 TO N
WRITE #1, Nimed$(I), Vanused(I)
NEXT I
CLOSE #1
|
Пример3. Программа, которая читает из файла andmed.txt имена и возраст и выдаёт их на экран.
|
CLS
OPEN "andmed.txt" FOR INPUT AS #1
'повторяем цикл до тех пор, пока не иссякнут данные (функция EOF).
DO
INPUT #1, NIMI$, VANUS
PRINT "Имя:"; NIMI$
PRINT "Возраст:"; VANUS
LOOP UNTIL EOF(1)
CLOSE #1
|
Функция EOF принимает значение 1, если конец файла и 0 – в противном случае. Аргументом функции является порядковый номер файла.
