Vozr,rost:integer;

cg:string[10];

cv:string[9];

zp:integer;

car,kv:string[3]

end;// sz

Var st,r:string; rzap:sz; I:integer; f1:TextFile;

f2:file of sz;

begin

AssignFile(f1,'is.txt');

AssignFile(f2,'s1.dat');

reset(f1);rewrite(f2);

while not SeekEof(f1) do

begin readln(f1,st);

rzap.fio:=copy(st,1,15);

r:=copy(st,16,2);rzap.vozr:=StrToInt(r);

r:=copy(st,19,3);rzap.rost:=StrToInt(r);

rzap.cg:=copy(st,23,10);

rzap.cv:=copy(st,33,9);

r:=copy(st,42,5);rzap.zp:=StrToInt(r);

rzap.car:=copy(st,48,3);

rzap.kv:=copy(st,52,3);

write(f2,rzap)

end;

CloseFile(f1); CloseFile(f2);

reset(f2); i:=0;

while not eof(f2) do

begin read(f2,rzap); i:=i+1;

with StringGrid1 do

begin Cells[0,i]:=rzap.fio;

Cells[1,i]:=IntToStr(rzap.vozr);

Cells[2,i]:=IntToStr(rzap.rost);

Cells[3,i]:=rzap.cg;

Cells[4,i]:=rzap.cv;

Cells[5,i]:=IntToStr(rzap.zp);

Cells[6,i]:=rzap.car;

Cells[7,i]:=rzap.kv

end

end

end;

4. Запустим программу. Если тексты обработчиков событий введены правильно, на экране появится форма в таком виде таблицы с “шапкой”:

5. Нажмем кнопку “Создание типизированного файла”. В результате появится форма в виде таблицы, заполненной содержимым сформированного типизированного файла S1.dat

6. Завершим работу программы нажатием кнопки “Выход”.

Задание к лабораторной работе

Задание 1

1. Дан файл F, компоненты которого являются действительными числами. Найти сумму и произведение компонент файла F.

2. Дан файл F, компоненты которого являются целыми числами. Найти количество четных чисел среди компонент.

3. Дан текстовый файл F. Получить копию файла F в файле G.

4. Даны текстовые файлы F1 и F2. Переписать с сохранением порядка следования компоненты файлаF1 в файл F2, компоненты файла F2 в файл F1. Использовать вспомогательный файл H.

5. Дан текстовой файл F. В файле F не менее двух компонент. Определить, являются ли два первых символа файла цифрами. Если да, то установить, является ли полученное число четным.

6. Дан файл F, компоненты которого являются целыми числами. Получить в файле G все компоненты файла F:

• являющиеся четными числами;

• делящиеся на 3 и не делящиеся на 7.

7. Дан текстовой файл F. Получить файл G, образованный из файла F заменой всех его прописных букв одноименными строчными.

8. Дан текстовой файл F. Записать в файл G компоненты файла F в обратном порядке.

9. Дан файл F, компоненты которого являются целыми числами. Получить файл G, образованный из файла F исключением повторных вхождений того же числа.

10. Дан текстовой файл F. Добавить в его конец символы "l","n", "d".

11. Даны текстовые файлы F и G. Записать в файл H все начальные совпадающие компоненты файлов F и G.

12. Дан текстовой файл F. Записать в файл G с сохранением порядка следования тех символов файла G:

• которым в этом файле предшествует буква "a";

• после которых в этом файле идет буква "а".

13. Дан текстовой файл F. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Удалить из файла все однобуквенные слова и лишние пробелы. Результат записать в файл G.

14. Дан текстовой файл F. Найти самое длинное слово среди слов, вторая буква в которых есть "a"; если таких слов несколько, то найти последнее. Если таких слов нет вообще, то сообщить об этом.

15. Дан текстовой файл F. Считая, что количество символов в слове не превосходит 20, определить, сколько в файле F имеется слов, состоящих из одного, двух, тех и т.д. символов.

16. Дан текстовой файл F, содержащий сведения о сотрудниках учреждения, записанные по следующему образцу: фамилия_имя_отчество. Копировать эти сведения в файле G.

17. Дан файл F, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. найти названия книг данного автора, изданных в 1960 г. Определить, имеется ли книга с названием «Информатика». Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить имеющиеся сведения обо всех.

18. Дан файл F, который содержит номер телефонов сотрудников учреждения: фамилия сотрудника, инициалы и номер телефона. Найти телефон сотрудника по его фамилии и инициалам.

19. Дан файл F, содержащий сведения об экспортируемых товарах: указывается наименование товара, страна, импортирующая товар, и объем поставляемой партии в штуках. Найти страны, в которые экспортируется данный товар, и общий объем его экспорта.

20. Дан текстовой файл F. Переписать в файл G все компоненты файла F с заменой в них символа "0" на "1" и наоборот.

Задание 2

Из текстового файла создать типизированный файл, вывести его содержимое в таблицу формы Form1, затем отсортировать типизированный файл по выбранному ключу и вывести отсортированный файл в таблицу формы Form2. Ключ для сортировки выбрать самостоятельно (по своему усмотрению).

Варианты структуры исходного файла:

1. Самолеты

   Наименование типа

   Фамилия конструктора

   Год выпуска

   Количество кресел

   Грузоподъемность, т

2. Расчет движения

   Наименование воздушной линии

   Тип самолета

   Количество рейсов

   Налет тыс. км.

   Пассажиро – оборот, человеко - км

3. Расписание

   Номер рейса

   Наименование рейса

   Тип самолета

   Стоимость билета

   Протяженность линии

4. Сооружение аэропорта

   Наименование

   Площадь

   Этажность

   Год сооружения

   Стоимость млн. руб.

5. Линии московского метро

   Наименование

   Район линии

   Год пуска

   Протяжен-ность линии

   Количество поездов

6. Легковые автомобили

   Марка

   Цвет

   Стоимость

   Изготовитель

   Максимальная скорость

7. Продажа программных продуктов

   Наименование

   Фирма – изготовитель

   Стоимость тыс. руб.

   Обьем, Мбайт

   Максимальная скорость

8. Абонентская плата за телефон

   Ф. И. О. абонента

   Телефон

   Год установки

   Количество Абонентов

   Плата За телефон

9. Детские сады

   Наименование детского сада

   Номер сада

   Количество детей

   Район Города

   Плата за месяц

10. Ведомость зарплаты за текущий месяц

    Ф. И. О.

    Табельный номер

    Дата рождения

    Оклад тыс. руб.

    Стаж работы

11. Сотрудники

    Ф. И. О.

    Табельный номер

    Дата рождения

    Оклад тыс. руб.

    Стаж работы

12. Музеи

    Наименование

    Назначение

    Адрес

    Время работы

    Стоимость

13. Экскурсии

    Наименование

    Страна

    Стоимость

    Продолжительность

    Транспорт

14. Кинофильмы

    Наименование кинотеатра

    Стоимость билета

    Время сеансов

    Адрес

    Количество мест

15. Книга – почтой

    Наименование книги

    Ф. И. О. автора

    Номер по каталогу

    Издательство

    Стоимость книги

16. Склад товаров

    Номер магазина

    Наименование товара

    Артикул товара

    Цена единицы товара

    Количество товара

17. Телевизоры на складе магазина

    Наименование

    Фирма- изготовитель

    Стоимость

    Размер экрана

    Количество на складе

18. Холодильники на складе магазина

Наименование

Фирма- изготовитель

Стоимость

Емкость камеры

Количество на складе