- •1.Этапы подготовки и решения задач на эвм
- •1.Этапы подготовки и решения задач на эвм
- •Характеристика переменных задач.
- •Основные этапы процесса подготовки и решения задач на эвм
- •2 . Алгоритмизация вычислительных процессов
- •2.1 Графический метод описания алгоритмов
- •2.2 Виды вычислительных процессов Основные структуры алгоритмов
- •2.2.1. Вычислительный процесс линейной структуры
- •2.2.2. Вычислительный процесс разветвляющейся структуры
- •2.2.3.Вычислительный процесс циклической структуры.
- •3.Языки программирования.
- •4.Основные понятия языка qbasic
- •4.1.Алфавит
- •4.2.Структура данных
- •4.3.Операторы языка
- •4.4.Операторы ввода-вывода
- •5.Примеры работы с символьными переменными.
- •6.Работа с файлами
- •6.1.Требования к имени файла
- •6.2.Операции над файлами
- •6.3.Открытие файла
- •6.4.Запись в файл
- •6.5.Чтение из файла
- •6.6.Изменения данных в файле
- •6.7.Добавление данных в файл
- •Команда Действие
- •Cn Значение нового цвета. Действует во всех дальнейших командах до нового назначения
- •О u(p)сновные команды перемещения изображены на рисунке.
- •9.Методические указания
- •10. Тестовые задания по теме:
- •11.Краткий справочник по языкуQbasic.
- •12.Сообщения об ошибках и их коды
6.4.Запись в файл
Рассмотрим пример записи в файл.
OPEN "capitals.dat" FOR OUTPUT AS #1
FOR X=l TO 5
INPUT "ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ"; F$
PRINT #1, F$
NEXT X
CLOSE #1
END
В результате работы программы мы получим (полужирным шрифтом выделены введенные с клавиатуры данные):
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? МОСКВА
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? САНКТ-ПЕТЕРБУРГ
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? ТАЛЛИН
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? РИГА
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? ВИЛЬНЮС
При этом на диске в текущем каталоге образуется файл, содержащий пять строковых значений. Имя файла будет capitals.dat. Удобнее всего при работе с файлами сделать текущим каталог, где эти файлы содержатся или будут содержаться, а при обращении к ним указывать только их имена.
В качестве параметра имя_файла можно использовать переменную текстового типа. Это позволяет вводить имя файла с клавиатуры и является универсальным способом работы с файлами. Например:
INPUT " Введите имя файла "; FileName$
OPEN FileName$ FOR OUTPUT AS #1
После ключевого слова as указывается номер файла. Больше открыть файл с таким номером в данной программе нельзя. Для каждого последующего файла должен быть указан свой собственный неповторимый номер в пределах от 1 до 255. Сколько всего может быть открыто файлов, зависит от файла конфигурации вашего компьютера config.sys, в котором число одновременно открытых файлов определяется командой files.
Представленный далее пример демонстрирует программу создания небольшой базы данных автомобилей, предназначенных для продажи. О каждом автомобиле заносится информация о его марке, номере, цвете, годе производства и продажной цене.
Программа создания файла данных об автомобилях
CLS
INPUT " Введите имя файла"; F$
Открытие файла
OPEN F$ FOR OUTPUT AS #1
DO
INPUT "Марка автомобиля? (Для окончания работы введите QWE.); М$
IF UCASE$(M$)="QWE" OR OCASE$(М$)="ЙЦУ" THEN 1
INPUT "Номер автомобиля?"; N$
INPUT "Цвет автомобиля?"; С$
INPUT "Год производства автомобиля?"; G$
INPUT "Продажная цена автомобиля?"; S$
WRITE #1, М$, N$, C$, G$, S$ LOOP
' Закрытие файла
1 : CLOSE #1 PRINT "Файл сформирован"
Программа действует следующим образом. Запрашивает имя файла, открывает его для записи, запрашивает информацию, записывает ее в файл до введения пользователем сочетания букв "QWE" или "ЙЦУ" (эти символы расположены на одних клавишах, вследствие чего пользователь может случайно набрать как одну комбинацию, так и другую). Запись в файл может производиться операторами
PRINT # номер_файла, выражение
ИЛИ
WRITE # номер_файла, вьражение
Результат работы этих операторов одинаков.
Для закрытия файлов применяется оператор
CLOSE # номер_файла
Если номер файла в операторе close указан, то будет закрыт именно этот, вполне определенный файл. Если же номер не указан, будут закрыты все открытые файлы.
6.5.Чтение из файла
Чтение из файла производится аналогично записи, но — вместо режима output используется режим input. Прочитаем занесенные нами данные из файла avto.dat.
' Программа чтения файла данных об автомобилях
CLS
INPUT " Введите имя файла"; F$
' Открытие файла
OPEN F$ FOR INPUT AS #1
PRINT "База данных автомобилей на 17 декабря 2000 года"
I=1
DO
PRINT "Вывести данные об"; I; "автомобиле?"
INPUT "Для окончания введите QWE, для продолжения -<Enter>"; M$
IF UCASE$(M$)="QWE" OR UCASE$(М$)="ЙЦУ" THEN 1
INPUT #1, M$, N$, C$, G$, S$
PRINT M$, N$, C$, G$, S$
I=I+1
LOOP UNTIL EOF(l)
' Закрытие файла
1 :close #1
PRINT "Файл закрыт"
Оператор loop until eof(1) . Означает, что считывание ведется до тех пор, пока не будет обнаружен символ конца файла (end of file), а в скобках указан номер открытого файла.