Операторы data, read, restore

Иногда удобнее не самим заполнять массив, а задать конкретные числа, которыми следует его заполнить.

Пример:

Составим программу, которая по задаваемой цифре месяца пишет его название.

DATA январь, февраль, март, апрель, май DATA июнь, июль, август, сентябрь, октябрь DATA ноябрь, декабрь DIM Kuud$(12) 'заполняем массив FOR I = 1 TO 12 'читаем данные READ Kuud$(I) NEXT I INPUT "Введи номер месяца"; N PRINT Kuud$(N)

Здесь использованы опнраторы DATA, READ.

DATA – перечисляет символьные или числовые данные, записанные через запятую. Символьные данные должны быть в кавычках.

READ- читает их подряд.

Оператор DATA не выполняется, поэтому может находится в любом месте программы.

Если читать с помощью READ больше данных, чем есть в DATA будет сообщение об ошибке, читать меньше данных можно.

Часто используется вместе с операторами DATA, READ также оператор RESTORE. RESTORE – восстанавливает данные и их можно читать второй раз.

19. Задания

1. Создать программу, которая вычисляет скалярное произведение двух N мерных векторов. Координаты векторов и число N задаются пользователями. Для нахождения скалярного произведения создать функцию пользователя SKALAAR(A(),B()), где A() и B() массивы. Размер массива А задаётся с помощью функции UBOUND(A) в функции пользователя.

2. Создать программу, которая находит острый угол между двумя N-мерными векторами. Для нахождения угла создаём функцию пользователя NURK(A(),B()), где A() и B() –массивы. Размер массива А задаётся с помощью функции UBOUND(A) в функции пользователя. Можно использовать созданную в предыдущем задании функцию SKALAAR(A(),B()).

3. Создать программу обучения иностранным словам так, чтобы пользователю не надо было бы самому вводить слова, а задать их с помощью DATA. Количество пар слов выбираем сами, но не менее 10.

4. Создать программу, которая выбирала бы из вводимых слов все гласные буквы и отдельно все согласные. Для этого создать функцию пользователя TAISHAALIK(taht$), для гласных букв. Основная программа проверяла бы –выбранная буква является гласной или нет. Оператор DATA , перечисляющий гласные, использовать в основной программе.

5. Среди заданных с помощью оператора DATA числовых и символьных переменных выбрать отдельно символные переменные и напечатать их, а числовые переменные сложить и распечатать сумму.

6. Заданных с помощью оператора DATA учеников разделить на две группы и распечатать результат.

7. Вычислить значение

Y=x^3+5x^2+6x+7

Z=12x^5+11x^4+10x^3+123

При х=12, 15, 25, 7, 13, 2, 6, 9, 16, 19, 21.

8. Просклонять слово «книга», задавая окончания с помощью оператора DATA.

20. Работа с файлами.

Рассмотрим, как записывать данные в файл и как их оттуда брать.

При открытии файла используются следующие режимы:

1. INPUT – для чтения текста из файла;

2. OUTPUT- для записи текста в файл;

3. APPEND – для добавления текста в файл;

Файл открывает оператор OPEN.

Например оператор

OPEN "proov.txt" FOR OUTPUT AS #1

Открывает файл proov.txt для записи. Файл proov.txt заносится в активный каталог. Перед названием файла может быть указан путь, где файл находится, например, "c:\temp\proov.txt".

#1 – обозначает порядковый номер файла. Одновременно может быть открыто несколько файлов. У каждого –своё имя и свой порядковый номер.

Если хотим читать из файла proov.txt , то его надо открыть для чтения:

OPEN "proov.txt" FOR INPUT AS #1

После чтения/записи файл надо обязательно закрыть с помощью оператора CLOSE.

CLOSE #1 – закрывает файл с номером #1

CLOSE – закрывает все открытые файлы.