Лабораторная работа № 31. Тема: Разработка программ обработки созданных файлов.

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

Средства: ПЭВМ, среда разработки Pascal.

Актуализация опорных знаний

1. Типизированные файлы.

2. Процедуры обработки типизированных файлов.

Пример выполнения задания

Задание: Разработать программу решения задачи, в которой реализовать сортировку по наименованию в типизированном файле, содержащем сведения о товарах на складе: наименование, количество, цена за единицу. Сохранить в другой файл полученные в результате сортировки данные.

Текст программы

uses crt;

type

tov=record

naim:string;

kol:real;

cena:real;

end;

mas=array[1..100] of tov;

var fd,fs:file of tov;

dan:^mas;

tmp:tov;

i,j,kz:integer;

begin clrscr;

new(dan);

kz:=1;

Assign(fd,'tovar.dat');

Reset(fd);

while (not Eof(fd)) do

begin

Read(fd,dan^[kz]);

inc(kz); end;

close(fd);

kz:=kz-1;

for i:=1 to kz-1 do

begin

for j:=1 to kz-1 do

begin

if dan^[j].naim>dan^[j+1].naim

then

begin

tmp:=dan^[j];

dan^[j]:=dan^[j+1];

dan^[j+1]:=tmp;

end;

end;

end;

Writeln('Отсортированные данные:');

for i:=1 to kz do

begin

Writeln('Наименование:',dan^[i].naim);

Writeln('Количество:',dan^[i].kol);

Writeln('Цена:',dan^[i].cena);

end;

Assign(fs,'tovars.dat');

Rewrite(fs);

for i:=1 to kz do

Write(fs,dan^[i]);

Close(fs);

end.

Задания

1. Разработать программу решения задачи, в которой реализовать сортировку по наименованию в типизированном файле, содержащем сведения о товаре в магазине: наименование, сорт, цена за единицу. Сохранить в другой файл полученные в результате сортировки данные.

2. Разработать программу решения задачи, в которой реализовать сортировку по фамилии в типизированном файле, содержащем сведения о студентах: код группы, номер по журналу, фамилия и инициалы, дата рождения, пол. Сохранить в другой файл полученные в результате сортировки данные.

3. Разработать программу решения задачи, в которой реализовать сортировку по марке в типизированном файле, содержащем сведения об автомобилях: марка, производитель, год выпуска, цена. Сохранить в другой файл полученные в результате сортировки данные.

4. Разработать программу решения задачи, в которой реализовать сортировку по модели в типизированном файле, содержащем сведения о самолётах: модель, грузоподъёмность, название авиакомпании. Сохранить в другой файл полученные в результате сортировки данные.

5. Разработать программу решения задачи, в которой реализовать сортировку по названию ОС в типизированном файле, содержащем сведения об операционных системах: название ОС, тип файловой системы, год выпуска. Сохранить в другой файл полученные в результате сортировки данные.

6. Разработать программу решения задачи, в которой реализовать сортировку по производителю в типизированном файле, содержащем сведения о HDD: производитель, объём в Gb, характеристики, цена за единицу. Сохранить в другой файл полученные в результате сортировки данные.

7. Разработать программу решения задачи, в которой реализовать сортировку по цене в типизированном файле, содержащем сведения о книгах в библиотеке: фамилия автора, название книги, издательство, год издания, цена. Сохранить в другой файл полученные в результате сортировки данные.

8. Разработать программу решения задачи, в которой реализовать сортировку по номеру в типизированном файле, содержащем сведения о телефонных номерах: фамилия владельца, имя владельца, отчество владельца, номер. Сохранить в другой файл полученные в результате сортировки данные.

9. Разработать программу решения задачи, в которой реализовать сортировку по наименованию диска в типизированном файле, содержащем сведения о коллекции музыкальных CD-дисков: наименование диска, фамилия исполнителя, название песни, время звучания. Сохранить в другой файл полученные в результате сортировки данные.

10. Разработать программу решения задачи, в которой реализовать сортировку по названию игры в типизированном файле, содержащем сведения о компьютерных играх: название игры, жанр игры, цена. Сохранить в другой файл полученные в результате сортировки данные.

11. Разработать программу решения задачи, в которой реализовать сортировку по цене в типизированном файле, содержащем сведения о модулях оперативной памяти: производитель, объём в Мб, цена за единицу. Сохранить в другой файл полученные в результате сортировки данные.

12. Разработать программу решения задачи, в которой реализовать сортировку по типу в типизированном файле, содержащем сведения о принтерах: производитель, тип, цена за единицу. Сохранить в другой файл полученные в результате сортировки данные.

13. Разработать программу решения задачи, в которой реализовать сортировку по производителю в типизированном файле, содержащем сведения о мониторах: производитель, тип, цена за единицу. Сохранить в другой файл полученные в результате сортировки данные.

14. Разработать программу решения задачи, в которой реализовать сортировку по фамилии преподавателя в типизированном файле, содержащем сведения о расписании занятий: день недели, название предмета, фамилия преподавателя. Сохранить в другой файл полученные в результате сортировки данные.

15. Разработать программу решения задачи, в которой реализовать сортировку по фамилии студента в типизированном файле, содержащем сведения о месте жительства студента: фамилия студента, улица, номер дома, квартира. Сохранить в другой файл полученные в результате сортировки данные.

16. Разработать программу решения задачи, в которой реализовать сортировку по теме в типизированном файле, содержащем сведения о рефератах: тема, фамилия автора, количество страниц, дата написания. Сохранить в другой файл полученные в результате сортировки данные.