Лаборатнорная по информатике. дфиф. Лабораторная работа 2 Организация ввода вывода в файлы в программах на языке Pascal. Тип запись. Файлы записей Студент гр. 310

• Название: Лабораторная работа 2 Организация ввода вывода в файлы в программах на языке Pascal. Тип запись. Файлы записей Студент гр. 310
• Анкор: Лаборатнорная по информатике
• Дата: 10.03.2021
• Размер: 209.23 Kb.
• Имя файла: дфиф.docx
• Тип: Лабораторная работа; #183272

Министерство науки и высшего образования Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

ТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СИСТЕМ УПРАВЛЕНИЯ И РАДИОЭЛЕКТРОНИКИ(ТУСУР)

Кафедра физической электроники(ФЭ)

Лабораторная работа №2

Организация ввода вывода в файлы в программах на языке Pascal. Тип запись. Файлы записей

Студент гр. 310

_______________

Старший преподаватель

кафедры ФЭ

_______________Поздеева А.Ф.

_______________дата

Томск 2021

Цель работы

Изучение основных функций работы с файлами вPascal, организация ввода и вывода структурированных данных в файлы. Работа с базами данных в Pascal.

Введение

Record - этот тип данных, который позволяет создавать модели Баз данных, необходимые при решении на ЭВМ широкого круга информационных задач, описывающих множество взаимосвязанных объектов с полями разных типов данных.

Запись – структурированный комбинированный тип данных, содержащий фиксированное число компонент (полей) разного типа.

Поля – составляющие запись объекты. Каждое поле записи имеет собственное имя.

Работа с файлами

1. 
   Создание (описание) файловой переменной.typeclient = record
   
2. 
   Связывание этой переменной с конкретным файлом на диске или с устройством ввода-вывода (экран, клавиатура, принтер и т.п.).assign(f, 'Tour.txt')
   
3. 
   Открытие файла для записи либо чтения.append(f) или reset(f)
   
4. 
   Действия с файлом: чтение либо запись.write или read
   
5. 
   Закрытие файла.close(f)
   

Выполнение задания 11 Продажа туров (Туристическая фирма)

Используется файл в текстовом формате, потому что этот файл разделен на строки, виден конец строки и конец файла.

program TourOperator;
type client = record {создаем базу данных}

NSS: string[30];

Male: string[3];

DMY1: string[14];

DMY2: string[14];

Cost: string[10];

end;
var

f: text; {файл в текстовом формате}

i: byte;

c: client;

temp: string;

q: char;

begin

q:='y';

assign(f, 'Tour.txt'); {создаем файл для хранения данных}

append(f); {открываем файл для ввода данных}

while q='y' do {при нажатии "y" начинается запись о n-м человеке}

begin

write('“Ввести данные о новом объекте? (Y/N)');

readln(q); {вводим "y" для заполнения данных или "n" для окончания ввода данных}

if q='n' then break; {вводим "n" для окончания ввода}

i:=i+1;

write('Введите ФИО ', i,'-го человека: ');

readln(c.NSS);

write('Введите пол (М или Ж): ');

readln(c.Male);

write('Введите дата отправления(xx.xx.xxxx): ');

readln(c.DMY1);

write('Введите дата прибытия(xx.xx.xxxx): ');

readln(c.DMY2);

write('Введите стоимость путёвки: ');

readln(c.Cost);

writeln(f, c.NSS:30, c.Male:5, c.DMY1:18, c.DMY2:14, c.cost:10);

end;

writeln('Формирование файла закончено!');

close(f); {закрываем файл для ввода данных}

reset(f); {открываем файл для вывода данных на экран}

writeln(' Фамилия Имя Отчество Пол Дата отправления Дата прибытия Стоимость');

while not eof(f) do

begin

while not eoln(f) do

begin

read(f,temp);

write(c.NSS:24, c.Male:5, c.DMY1:16, c.DMY2:16, c.cost:12);

end; {цикл вывода на экран данных о покупателях в виде таблицы}

readln(f);

writeln; {вывод данных файла}

end;

close(f); {закрытие файла для вывода данных на экран}

end.



Рисунок 1. Результаты программы

Вывод

В ходе проведения данной работы были изучены основные функции работы с файлами и базами данных в Паскаль: ввод и вывод структурированных данных в файлы.