Министерство образования и науки Российской Федерации
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
«Чувашский государственный университет имени И.Н. Ульянова»
Факультет дизайна и компьютерных технологий
Кафедра компьютерных технологий
Курсовая работа
Дисциплина: «Проектный практикум»
Тема:
«Работа с текстовым файлом»
Выполнил студент
Группы ДиКТ41-11
Умаров М.Р.
Проверил преподаватель Стеценко А.А.
Чебоксары 2012
Задание:
Изучить структуру заданного исходного файла ТеплопроводностьГазов.txt
Составить для исходного файла программные структуры данных, соответствующие данным файла.
Составить алгоритмы, обеспечивающие сортировку записей исходного файла по ключевому полю 2, в направлении по не убыванию. Алгоритмы должны:
а) реализовать заданный метод сортировки;
б) обеспечивать максимальное быстродействие.
Алгоритмы составляются на псевдокоде или в блок-схеме. Применение структуры Цикл-До не разрешается. Рекурсия не рекомендуется. Увеличение памяти до 1 Мб не критична. Сортировка должна быть устойчивой.
Разработать структурную иерархическую схему программы.
Составить программу, реализующую:
а) ввод заданного исходного файла;
б) описание выбранных программных структур данных;
в) преобразование введенных данных в программные структуры данных;
г) разработанные алгоритмы;
д) вывод результатов в выходной файл и на рабочий лист Excel.
Программа должна отвечать требованиям, предъявляемым к программным продуктам. Язык программирования VBA.
Содержание
Выполнение 4
Анализ структуры файла ТеплопроводностьГазов.txt 4
Составление программных структур данных 4
Разработка алгоритмов сортировки 5
Схема структурная иерархическая 6
Программа 7
Главная программа 7
Подпрограмма добавления листа 8
Подпрограмма ввода файла 8
Подпрограмма разделения шапки 8
Подпрограмма разделения таблицы 9
Подпрограмма вывода в файл 10
Подпрограмма вывода на рабочий лист 11
Подпрограмма сортировки 12
СПИСОК ЛИТЕРАТУРЫ 13
Выполнение Анализ структуры файла ТеплопроводностьГазов.Txt
Используемое средство: текстовый процессор Microsoft Word.
Первая строка файла – текст, заголовок документа
Вторая строка: текст разделенный символами НТ на отдельные части (Шапка» таблицы)
Третья строка: (и следующие строки) – содержит часть таблицы. Строка состоит из следующих полей:
Поле 1- содержит названия различный газов (текст);
Поле 2 – содержит символы хим. элементов и хим. формулы (текст);
Поле 3-5– числа поля разделены знаками НТ.
Составление программных структур данных
Данные для 1-ой строки: переменная типа string
Dim FirstLine As String
Данные для 2-ой строки: строковой вектор
Dim SecondLine ()
Данные для третьей строки – структура, состоящая из одного текстового и 11-и числовых полей.
Type Struct2
Марка As String
Значение(4) As String
End Type
Данные для 3,4,5 и всех после строк – векторных структур
Dim ИсхТабл() As Struct2
Разработка алгоритмов сортировки
По условию задано разработать алгоритм сортировки исходного набора, обеспечивающий максимальное быстродействие. Для достижения последнего требования строится предварительно вектор, в котором индексы соответствуют индексам выходного набора, а значениями являются индексы исходного набора. Для построения вектора указателей требуется использовать метод выбора. Суть метода состоит в том, что для заданного места R в выходном наборе просматривается разрешенная часть вектора ключей, отыскивается максимальный ключ и его индекс S записывается по месту R. Процесс повторяется для всех элементов вектора ключей, кроме последнего, который автоматически оказывается на своем месте. Реализация этой идеи на псевдокоде представлена ниже.
АЛГ Sort
НАЧАЛО
ПОКА p ОТ 0 ДО UpInd
НЦ
Fp(p) = ПРАВДА
p=p+1
КЦ
ПОКА p ОТ 0 ДО UpInd
НЦ
S = "яяяя" 'Текущий минимум
ПОКА q ОТ 0 ДО UpInd
НЦ
ЕСЛИ Fp(q) = ПРАВДА ТОГДА
r = StrComp(vKey(q), S, vbTextCompare)
ЕСЛИ r = -1 ТОГДА
S = vKey(q)
B = q
КОНЕЦ ЕСЛИ
КОНЕЦ ЕСЛИ
q=q+1
КЦ
OrdOut(p) = B
Fp(B) = ЛОЖЬ
p=p+1
КЦ
КОНЕЦ
Схема структурная иерархическая
