![]() |
|
сделать стартовой | добавить в избранное |
![]() |
Разработка форматов хранения данных программы. Структурирование |
Лабораторная работа №2. Разработка форматов хранения данных программы. Структурирование. Цель: 1. Изучить возможность работы с файлами на языке Pascal. Получить навыки разработки формата хранения данных на примере решения задач аналитической геометрии. 2. Освоить приёмы структурирования программ. Задание: Изучить процедуры и функции языка Pascal для работы с файлами прямого и последовательно доступа. Согласно заданному варианту разработать формат и структуру в файлах прямого доступа. Реализовать возможность ввода данных с клавиатуры либо из файла. Выходные данные вывести на экран и сохранить в текстовый файл. При написании программы использовать контроль вводимых данных, используя функцию IOResul . Условие задачи с реквизитами исполнителя должны быть предоставлены на экране при запуске программы. Структурировать программу с использованием процедур и функций. Условие задачи аналитической геометрии: Найти количество окружностей на плоскости имеющих пересечение с прямоугольником стороны которого параллельны осям координат. Содержание 1. Теоретическая часть 2. Алгоритм программы 3. Листинг программы 4. Экранные формы 1. Теоретическая часть 1. По методу доступа к компонентам файлы разделяются на последовательные и прямые. В последовательном файле чтение и запись компонент может быть только последовательной, начиная с первой компоненты. В прямом файле можно прочесть или записать любую компоненту, указав ее номер в файле. При этом перебор предыдущих компонент не требуется. По направлению передачи данных файлы разделяются на входные и выходные. Также существуют три типа файлов: 1) типизированные, компоненты которых имеют жесткую структуру; 2) текстовые, состоящие из символов и строк; 3) нетипизированные, рассматриваемые как последовательность байтов. В Турбо-Паскале можно открыть файл только для чтения, только для записи, а также для чтения и записи одновременно. Для этого используются процедуры Rese , Rewri e, Appe d. Rese (F) - открытие существующего файла. Если это текстовый файл, то допускается только чтение из файла; для типизированного файла допустимы как чтение, так и запись информации. В последнем случае можно легко реализовать обновление компонент файла. Если файл F уже был открыт, то при выполнении процедуры Rese этот файл сначала закрывается, а затем открывается. При этом указатель файла устанавливается в начальную позицию файла. Rewri e(F) - открытие нового файла. Если это текстовый файл, то допускается только запись в файл; для типизированного файла допустимы как чтение, так и запись информации. Если файл F уже существует, то при срабатывании процедуры Rewri e файл F уничтожается. Appe d(F) - открытие текстового файла для добавления новых компонент в конец файла. Если файл уже был открыт ранее с помощью процедур Rese или Rewri e, то процедура Appe d вначале закрывает данный файл, а затем его открывает для добавления новых компонент. Существуют процедуры и функции для файлов любого типа: Процедура Close(F). Выполняется закрытие файла F. Если буфер вывода заполнен не полностью, то его содержимое переносится в файл F, после чего из оперативной памяти удаляется служебная информация о файле F.
Процедура Re ame(F, ew ame). Внешнему файлу, связанному с файловой переменной F, присваивается новое имя, заданное в строке. Процедура Erase(F). Файл F уничтожается. Процедура Erase применима только для закрытых файлов. Функция Eof(F):boolea . Функция возвращает значение rue, если достигнут конец файла; в противном случае выходное значение равно false. Функция IOResul :word (I pu -Ou pu -Resul ). Возвращает условный признак последней операции ввода-вывода. Результат равен нулю, если операция ввода-вывода завершилась успешно. Процедура ru ca e(F). Файл усекается по текущей позиции указателя. В эту позицию записывается признак eof. Для выполнения операций ввода-вывода в текстовых файлах используются процедуры Read,Readl ,Wri e,Wri el . Также для текстовых файлов могут использоваться три предописанные функции, неприменимые для файлов другого типа: Eol , SeekEol и SeekEof. Функция Eol (F):boolea возвращает значение rue, если во входном потоке достигнут маркер конца строки eol. Функция SeekEol (F):boolea пропускает все пробелы и знаки табуляции до маркера конца строки eol или до первого значащего символа и возвращает значение rue, если такой маркер обнаружен. Функция SeekEof(F):boolea пропускает все пробелы, знаки табуляции и маркеры конца строки вплоть до маркера конца файла eof или до первого значащего символа и возвращает значение rue, если такой маркер обнаружен. Все компоненты типизированного файла, в отличие от текстового файла, имеют одну и ту же длину. Это позволяет программе определить местоположение любой компоненты файла по ее номеру и осуществить прямой доступ к этой компоненте. Компоненты типизированного файла нумеруются натуральным рядом чисел 0,1,2,3,.При открытии типизированного файла его указатель устанавливается на нулевую компоненту. После выполнения каждой операциичтения или записи указатель сдвигается на следующую компоненту. Для операций чтения и записи в типизированном файле используются процедуры Read и Wri e (но не Readl ,Wri el ). Для типизированных файлов определены также предописанные процедура Seek и функции FileSize,FilePos. Процедура Seek(F,k) перемещает указатель файла F на компоненту с номером k. Переменная k должна иметь тип lo gi . Функция FileSize(F):lo gi возвращает текущий размер файла F (количество компонент файла). Функция FilePos(F):lo gi возвращает номер текущей позиции файла F. Нетипизированные файлы применяются главным образом для высокоскоростного обмена данными между диском и памятью. Для этих файлов вместо процедур Read и Wri e используются процедуры BlockRead и BlockWri e. 2. Исходя из условия задачи входные данные для программы: а) Координаты точки центра окружности; b) Длина радиуса окружности; c) Координаты левой верхней и нижней правой точки прямоугольника, однозначно задающие его на плоскости. Так как количество и тип данных чётко определён в качестве файлов для ввода исходных данных будем использовать типизированные файлы, компоненты которых имеют жесткую структуру и к ним возможен прямой доступ. Для хранения параметров окружности создадим типизированный файл circle.da , который будет состоять из массива составных компонент имеющих три параметра: координаты x и y центра окружности и R - радиус окружности.
Тип компоненты определим как запись, потому что в записи можно объединить компоненты различных типов: Circle ype = record x : i eger; y : i eger; R : word e d; Координаты центра окружности x и y будут определены как целые числа, которые могут принимать положительное и отрицательное значение, поэтому для них выбран тип i eger. Радиус окружности R не может быть отрицательным для него выбран тип word - целое без знака, пределы изменения 0 . 65535. Таким образом массив окружностей будет описываться: CircleAr : array of Circle ype; Описание файла: CircleFile : file of Circle ype; Для ввода параметров задающих прямоугольник будем использовать типизированный файл rec a gle.da с двумя элементами типа запись: Rec a gle ype=record x : i eger; y : i eger; e d; Таким образом каждый компонент файла состоит из координат x и y угловых точек прямоугольника, массив точек прямоугольника и файл будут описываться: Rec a gleAr : array of Rec a gle ype; Rec a gleFile : file of Rec a gle ype; 3. В программе реализована возможность ввода исходных данных из файла или клавиатуры. После запуска программы выдаётся запрос о направлении ввода “Откуда произвести ввод исходных данных? f – файл, k-клавиатура”. В соответствии с нажатой клавишей осуществляется переход к вводу данных. 4. Результаты выполнения программы выводятся на экран и в текстовый файл resul . x , создаваемый в каталоге из которого запущена программа. 5. В программе осуществляется контроль вводимых данных: При вводе числового ответа с клавиатуры существует определенная вероятность ошибочного набора (например, буква вместо цифры). При вводе ответа с помощью оператора Read это вызвало бы прерывание программы и, как следствие, необходимость ее повторного запуска. Чтобы блокировать такое прерывание, ввод переменной производится с помощью процедуры ReadI , ReadWord в которых при помощи стандартной процедуры IOResul осуществляющей контроль формата вводимого числа. При неправильном формате ввода процедура ReadI , ReadWord выдает на экран сообщение об ошибке и предлагает пользователю повторить ввод. 6. При запуске программы на экране в первую очередь представлены условия задачи и реквизиты исполнителя, реализованные следующим участком кода: ClrScr; Wri el ('▒ Лабораторная работа №2 ▒'); Wri el ('▒ студента гр. ▒'); Wri el ('▒ ▒'); Wri el ('▒ Условие задачи по аналитической геометрии: ▒'); Wri el ('▒ Найти количество окружностей на плоскости ▒'); Wri el ('▒ имеющих пересечение с прямоугольником стороны ▒'); Wri el ('▒ которого параллельны осям координат. ▒'); В программе используются следующие процедуры и функции, которые структурируют программу: FrazaReadError, ReadWord, ReadI , Pri I Da a, Cross1, Cross2, Pri Head. 2. Листинг программы Program Lab2; uses Cr ; label Exi FromCalc; Co s max=100; ype Circle ype = record x : i eger; y : i eger; R : word e d; Rec a gle ype=record x : i eger; y : i eger; e d; Var CircleAr : array of Circle ype; CircleFile : file of Circle ype; Rec a gleAr : array of Rec a gle ype; Rec a gleFile : file of Rec a gle ype; Resul File : ex ; : word; {Кол-во окружностей для проверки} i : by e; {параметр цикла} S : by e; {счётчик пересечений окружностей с прямоугольником} ch : char; size : lo gi ; { } Procedure FrazaReadError(k:i eger); { Сообщение о неправильном формате вводимого числа с подачей } { звукового сигнала } Begi If k&l ;&g ;0 he Begi Wri el (#7'Неправильный формат числа'); Wri el ('Повторите ввод'); E d; E d { FrazaReadError }; { } Procedure ReadWord(Var umber:word); { Ввод с клавиатуры и проверка формата переменной типа word} Var k : word; Begi Repea {$I-} Read( umber); {$I } k:=IOResul ; FrazaReadError(k); U il k=0; E d { ReadWord }; { } Procedure ReadI (Var umber:i eger); { Ввод с клавиатуры и проверка формата переменной типа i eger } Var k : i eger; Begi Repea {$I-} Read( umber); {$I } k:=IOResul ; FrazaReadError(k); U il k=0; E d { ReadI }; { } Procedure Pri I Da a; Var i : by e; Begi Wri el (' Исходные данные'); Wri el ('Окружности:'); For i:=1 o do Begi Wri e(i,':','R=',CircleAr.x
Разницей в длительности загрузки 20 Кбайт и 2 Кбайт данных обычно можно пренебречь по сравнению с тем временем, которое затрачивается на установление соединения с сервером, обмен необходимыми подтверждениями и другие операции по настройке соединения. В обоих случаях абсолютное время ожидания пользователем завершения передачи данных сравнительно невелико, поэтому различия в объеме сохраняемых данных не имеют превалирующего значения при выборе проектного решения в отношении формата хранения данных. Для сравнительно небольших объемов данных использование XML является вполне оправданным, поскольку это позволяет вам воспользоваться при обмене данными всеми преимуществами этого гибкого формата. Однако, что если объем данных увеличится в 10 раз и для выбора варианта проектного решения вам придется отвечать на вопрос: что лучше использовать — 200 Кбайт данных XML или 20 Кбайт двоичных данных? Начиная с таких объемов данных, длительность ожидания пользователем завершения процесса передачи данных между устройством и сервером становится все более заметной, и для принятия взвешенного решения требуется выполнить объективные измерения для каждого варианта реализации
1. Разработка форматов хранения программ. Структурирование
2. Разработка системы задач (алгоритмы-программы) по дискретной математике
4. Базовые технологии в системах хранения данных
5. Использование модели briefcase при разработке приложений баз данных
10. Разработка базы данных средствами программы MS Access "Сотрудники"
11. Разработка программы генерации тестов из базы данных на языке РНР
12. Разработка рекламной программы для страховой компании
14. Проектирование и разработка баз и банков данных
15. Разработка базы данных `ДЕКАНАТ` в среде программирования "Delphi"
16. Разработка программы на Ассемблере
17. Разработка игровой программы "Морской бой"
18. Разработка базы данных "Кадры"
20. Разработка игровой программы на языке программирования Turbo Pascal
21. Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов
25. Разработка программы стимулирования сбыта
26. Прогнозирование банкротства и разработка антикризисной программы предприятия
28. Разработка программы туристского путешествия в Великом Новгороде
29. Разработка маркетинговой программы
30. Особенности разработки образовательных программ для руководителей высшего звена
31. Разработка программы совершенствования организации международных перевозок
32. Разработка демонстрационных программ для применения в процессе преподавания физики
34. Разработка модулей программы /Укр./
35. Опыт использования ADO для доступа к базам данных форматов MS Access, xBase и Paradox
36. Разработка и применение пакетов прикладных программ
37. Разработка контрольно-проверочной программы модуля ввода-вывода МФПУ-1
41. Разработка программы для построения кривых Серпинского i-го порядка
42. Накопители для хранения и переноса данных
43. Разработка программы, реализующей алгоритм шифрования ГОСТ 28147-89
44. Алгоритм разработки и реализации федеральных целевых программ по развитию проблемных регионов России
47. Методология преобразования произвольной программы в структурированную
48. Принципы разработки алгоритмов и программ для решения прикладных задач
49. Проект разработки программы для фирмы-перевозчика
50. Проектирование и разработка программы ЧАТ для локальной сети
51. Разработка анимационно-обучающей программы механической системы
52. Разработка базы данных "Отдел сбыта"
53. Разработка базы данных для гостиницы
57. Разработка и создание презентации базы данных "Деканат ВУЗа"
58. Разработка компьютерной программы на языке Паскаль для проведения простого теплофизического расчета
59. Разработка обучающей программы по классам в C++
60. Разработка приложения, представляющего собой базу данных о сотрудниках
61. Разработка программ в среде программирования Turbo Pascal 7.0
62. Разработка программ с использованием динамической памяти
64. Разработка программы автоматизации процесса подбора запчастей для ремонта автомобилей
65. Разработка программы для решения систем линейных уравнений
66. Разработка программы игры "Собери картинку"
67. Разработка программы на Delphi
68. Разработка программы на языке Borland Object Pascal (Ide Borland Delphi)
69. Разработка программы при помощи языка низкого уровня ассемблер
73. Разработка проекта управления базами данных для процесса "Учет ремонта и ТО автотранспорта"
74. Разработка системы управления базой данных строительной фирмы
75. Разработка физической модели базы данных "Учёт характеристик сигналов телемеханики"
76. Среда разработки и платформа для выполнения программ LabVIEW
78. Разработка базы данных для информатизации деятельности предприятия малого бизнеса Delphi 7.0
79. Разработка канала обработки и сбора данных
80. Разработка программы определительных испытаний
81. Разработка маркетинговой программы продвижения на рынок нового вида бытовых услуг
82. Разработка программы маркетингового исследования для ОАО МЖК "Краснодарский"
83. Разработка программы продвижения новой продукции
85. Разработка антикризисной программы на предприятии
89. Разработка программы профессиональной подготовки заливщиков металла
91. Этапы разработки экскурсионной программы
92. Разработка и реализация программы управления универсамом
93. Этапы разработки производственной программы предприятия
94. Разработка проекта зоны кратковременного отдыха
95. Программа управления самолётом в режиме автопилота
96. Анализ медико-биологических данных с использованием Excel и СПП STADIA
97. О роли эксперимента в разработке научных гипотез происхождения жизни