Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
6
Добавлен:
21.01.2014
Размер:
30.21 Кб
Скачать

Федеральное агентство по образованию

Государственное образовательное учреждение высшего

профессионального образования

«Тульский государственный университет»

Кафедра «Технология машиностроения»

Дисциплина: «Вычислительный практикум»

Лабораторная работа № 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, осуществляющая чтение данных из текстового файла и формирующая одномерный числовой массив, используя данные из файла. При разработке программы были использованы операторы доступа к файлам. Текст программы приведен в отчете.

Соседние файлы в папке Готовые лабораторные работы