Лекция: Добавление данных в файл

Указание for append в операторе open подготавливает файл для вывода данных и смещает указатель на конец файла. Последую­щие операторы приписывают новую информацию к уже имею­щейся. В предложенной далее программе в файл данных об ав­томобилях добавляются сведения о двух новых поступлениях.

REMПрограмма создания файла данных об автомобилях

CLS

INPUT " Введите имя файла"; F$

REM Открытие файла

OPEN F$ FOR APPEND AS 1

DO

INPUT «Марка автомобиля? (Для окончания работы введите QWE.); М$

IF UCASE$(M$)=»QWE" OR UCASE$(М$)=«ЙЦУ» THEN 1

INPUT «Номер автомобиля?»; N$

INPUT «Цвет автомобиля?»; С$

INPUT «Год производства автомобиля?»; G$

INPUT «Продажная цена автомобиля?»; S$

WRITE #1, М$, N$, C$, G$, S$

LOOP

REM Закрытие файла 1

CLOSE #1

PRINT «Файл дополнен»'

Порядок выполнения работы

1. Получить у преподавателя вариант задания.

2. Написать программу на Qbasic.

3. Отладить программу.

4. Пполучить результат.

5. Проанализировать полученный результат.

Содержание отчета

1. Содержательная постановка задачи.

2. Исходные данные.

3. Краткие теоретические данные.

4. Блок схема программы.

5. Листинг программы.

6. Распечатка полученных результатов.