Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Указание 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. Распечатка полученных результатов.
Дата публикования: 2015-04-10; Прочитано: 241 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!