END
Заключительный этап — удаление исходного и переименование нового файла, которому придается прежнее имя, что обеспечивает и в дальнейшем наличие на дискете файла avto.dat.
Добавление данных в файл
Указание 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.
76
3.Отладить программу.
4.Пполучить результат.
5.Проанализировать полученный результат.
Содержание отчета
1.Содержательная постановка задачи.
2.Исходные данные.
3.Краткие теоретические данные.
4.Блок схема программы.
5.Листинг программы.
6.Распечатка полученных результатов.
Задание
1. Составить программу создания файла МАГАЗИНданных
(не менее 10 записей), каждая запись которого содержит следующие поля:
·Название товара
·Страна изготовитель
·Дата изготовления
·Срок годности (истек или нет, yes/no)
·Стоимость товара
2.Составить программу вывода на экран в табличной форме всех записей файла, и записей наименований товаров, срок годности которых не истек, найти самый дешевый товар, вывести его название и стоимость.
Пример решения задачи
·Зададим имя файла данных - magasin.txt
·Опишем переменные:
Название товара - name$
Страна изготовитель - ctrana$
Дата изготовления - den
Срок годности (истек или нет, yes/no) - god$
Стоимость товара - manu
77
ПРОГРАММА НА ЯЗЫКЕ QBasic |
|
CLS |
|
OPEN "magasin.txt" FOR OUTPUT AS #1 |
|
CLS |
|
FOR i = 1 TO 10 |
|
INPUT " Название "; name$ |
|
INPUT " Страна изготовитель "; ctrana$ |
|
INPUT " год изготовления "; den |
|
INPUT " годность yes/no: "; god$ |
|
INPUT " стоимость "; manu |
|
WRITE #1, name$, ctrana$, den, god$, manu |
|
NEXT i |
|
CLOSE #1 |
|
PRINT "МАГАЗИН" |
|
PRINT "------------------------------------------------------------------------------------ |
" |
PRINT "Название Страна изготовитель Дата Годность yes/no Стоимость" |
|
OPEN "magasin.txt" FOR INPUT AS #1 |
|
DO WHILE NOT EOF(1) |
|
INPUT #1, name$, ctrana$, den, god$, manu |
|
PRINT name$, " "; ctrana$, den; " ", god$; " ", manu |
|
LOOP |
|
CLOSE #1 |
|
PRINT "------------------------------------------------------------------------------------ |
" |
min = 10 ^ 10 |
|
OPEN "magasin.txt" FOR INPUT AS #1 |
|
PRINT "Товары со сроком годности yes" |
|
DO WHILE NOT EOF(1) |
|
INPUT #1, name$, ctrana$, den, god$, manu |
|
IF manu <= min THEN |
|
78
nas1$ = name$: ctrana1$ = ctrana$: god1$ = god$: min = manu |
|
END IF |
|
IF god$ = "yes" THEN |
|
PRINT TAB(10); name$; |
|
PRINT TAB(20); ctrana$; " "; den; " "; god$; " "; manu |
|
END IF |
|
LOOP |
|
CLOSE #1 |
|
|
|
PRINT "------------------------------------------------------------------------------------ |
" |
PRINT "Дешевый товар и его стоимость " |
|
PRINT nas1$, min; "pyb", ctrana1$ |
|
END |
|
РЕЗУЛЬТАТ РАБОТЫ ПРОГРАММЫ |
|
Созданный файл данных magasin.txt из 10 записей рисунок 11.
79