E.1.8. Задачи для самостоятельной работы по теме: "Файлы".

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

2. Дан файл f, компоненты которого являются целыми числами. Число компонент файла делится на 100. Записать в файл g наибольшее значение первых ста компонент файла f, затем - следующих ста компонент и т.д.

3. Дан символьный файл f, содержащий произвольный текст длиной более 500слов. Слова в тексте разделены пробелами и знаками препинания. Получить 10 наиболее часто встречающихся слов и число их появления.

4. Дан файл, который содержит элементы вещественной матрицы порядка 2n, записанных построчно. Получить новую матрицу и записать ее в новый файл, переставляя ее блоки:

5. Написать программу, которая формирует файл записей данной структуры
Type Klass = Record
Imja:(Anna, Ivan, Egor, Irina, Meri, Sofi);
Pol:(f,m);
Rost:140..200;
End;
и определяет: - средний рост женщин:
- имя самого высокого мужчины:
- есть ли в группе хотя бы два человека одного роста.

6. Написать программу, которая формирует файл записей данной структуры
Type Drug=Record
Imja:String;
Telefon:10000..99999;
Adres:String;
End;
и определяет: - есть ли в книжке телефон данного знакомого;
- кому принадлежит данный телефон;
- список людей, живущих на данной улице.

7. Написать программу, которая формирует файл записей данной структуры
Type Student=Record
Imja:String;
Gruppa:String;
Bal1:Integer;
Ball2:Integer;
Ball3:Integer;
End;
и определяет: - кто лучше всех сдал экзамены;
- средний балл по данному предмету;
- список задолжников.

8. Написать программу, которая формирует файл записей данной структуры
Type Student=Record
Imja:String;
Pol:(m,f);
Vozrast:16..35;
Kurs:1..5;
End;
и определяет - курс на котором наибольший процент мужчин;
- самые распространенные женские и мужские имена;
- список студентов данного пола, данного курса.
9. Написать программу, которая формирует файл записей данной структуры
Type Passazhir=Record
Imja:String;
Reis:String;
Gruz:Integer;
Ves:Integer;
End;
и определяет: - рейс с максимальным весом багажа;
- имя пассажира с наибольшим количеством вещей;
- список пассажиров и информацию об их багаже, улетающих данным рейсом.

10. Написать программу, которая формирует файл записей данной структуры
Type Vladelez=Record
Familia:String;
Adress:String;
Avto:String;
Nomer:String;
Vypusk:1900..2000;
End;
и определяет: - количество автомобилей каждой марки;
- владельца самого старого автомобиля;
- фамилии владельцев и номера автомобилей данной марки.

11. Написать программу, которая формирует файл записей данной структуры
Type Kniga=Record
Avtor:String;
Nazvanie:String;
God:Integer;
Izdatel:String;
Stranizy:Integer;
End;
и определяет: - есть ли книги данного автора;
- книгу с наибльшим количеством страниц;
- названия книг данного автора, изданных с указанного года, в данном издательстве.

12. Написать программу, которая формирует файл записей данной структуры
Type Passazhir=Record
Imja:String;
Reisa:String;
Gruz:Integer;
Ves:Integer;
End;
и определяет: - число пассажиров, количество вещей которых превосходит среднее число вещей;
- пассажира с данным количеством вещей и не более данного веса;
- количество вещей и общем вес каждого рейса.

13. Написать программу, которая формирует файл записей данной структуры
Type Predmet=Record
Predmet:String;
Chasy:Integer;
Prepodavatel:String;
Kafedra:String;
Otchet:(zachet,ekzamen);
End;
и определяет: - преподавателя который принимает больше всего экзаменов;
- кафедру на которой читается больше всего предметов;
- список преподавателей данной кафедры.

E.2. Задачи и упражнения на тему «Структуры данных»

В настоящем разделе содержатся задачи и упражнения по структурам данных. Эти задачи и упражнения расположены в восьми подразделах, посвященных определенному типу структур данных.