
Готовые лабораторные работы / Лаба 8
.docФедеральное агентство по образованию
Государственное образовательное учреждение высшего
профессионального образования
«Тульский государственный университет»
Кафедра «Технология машиностроения»
Дисциплина: «Вычислительный практикум»
Лабораторная работа № 8
Заполнение одномерного числового массива с использованием файла последовательного доступа
Выполнил: М.А.Титов
студент гр. 620351
Проверил: О.В. Петров
В.В. Хрячкова
Тула 2008
Цель работы: закрепление навыков программирования операции обработки числовых массивов с использованием функции доступа к файлам.
Постановка задачи: используя файл данных, предоставленный согласно заданию на контрольно-курсовую работу осуществить заполнение одномерного числового массива с последующим выводом на экран пар значений: № ячейки – число, содержащееся в этой ячейке данных. Форма вывода произвольная.
Теоретические сведения.
Доступ к файлу осуществляется путем применения оператора OPEN <имя файла> FOR INPUT AS # <номер>. Например:
OPEN <C:\Data\Вариант_59.txt> FOR INPUT AS#1
Чтобы вводить имя файла с клавиатуры, применяется оператор sFn.
……………..
sFn=…..
OPEN sFn FOR INPUT AS#1
Для освобождения файла от связи с текущей программой применяется оператор CLOSE.
Оператор CLOSE без параметров закрывает все файлы, открытые данной программой. При использовании конкретного номера CLOSE <номер> будет закрыт только файл, открытый оператором OPEN с данным числовым указателем.
Чтение из файла осуществляется оператором INPUT #<номер>,<список переменных>
INPUT #1,x,y,z
Выполнение работы.
Текст программы на языке QuickBasic:
CLS
OPEN "C:\ Вариант_59.txt" FOR INPUT AS #1
k = 0
DO WHILE NOT EOF(1)
INPUT #1, x
k = k + 1
LOOP
CLOSE (1)
DIM a(k)
OPEN "C:\Вариант_59.txt" FOR INPUT AS #1
k = 0
DO WHILE NOT EOF(1)
INPUT #1, a(k)
k = k + 1
LOOP
FOR i = 1 TO k
PRINT i;
PRINT a(i),
NEXT i
Выводы: в ходе лабораторной работы была разработана программа на языке QuickBasic, осуществляющая чтение данных из текстового файла и формирующая одномерный числовой массив, используя данные из файла. При разработке программы были использованы операторы доступа к файлам. Текст программы приведен в отчете.