Варианты заданий

Вариант 1

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

2. Сформировать файл, имеющий следующую структуру: type студент= record фамилия: string;

номергр: string;

оценка1: integer;

оценка2: integer;

оценка3: integer;

end;

и определить:

• фамилию того, кто лучше всех сдал экзамены;

• средний балл по данному предмету;

• список задолжников.

Вариант 2

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

2. Сформировать файл, имеющий следующую структуру: type студент= record фамилия:string;

имя:string;

пол:(м,ж);

возраст:16..35;

курс:1..5;

end;

и определить:

• курс, на котором наибольший процент мужчин;

• самые распространенные женские и мужские имена;

• список студентов данного пола, данного курса.

Вариант 3

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

2. Сформировать файл, имеющий следующую структуру: type пассажир=record фамилия:string;

имя:string;

номер рейса:string;

количество вещей:integer;

общий вес:integer;

end;

и определить:

• рейс с максимальным весом багажа;

• пассажира с наибольшим количеством вещей;

• вывести список пассажиров и информацию об их багаже, улетающих данным рейсом.

Вариант 4

1. Дан текстовый файл, содержащий целые числа. Найти:

• максимальный элемент в каждой строке;

• номер данного числа; если такого нет в данной строке, то сообщить об этом.

2. Сформировать файл, имеющий следующую структуру: type владелец=record фамилия:string;

адрес:string;

марка автомобиля:string;

рег. номер:string;

год выпуска:1900..2000;

end;

и определить:

• количество автомобилей каждой марки;

• владельца самого старого автомобиля;

• фамилии владельцев и номера автомобилей данной марки.

Вариант 5

1. Файл f1.txt содержит 120 чисел в 4 колонки. Создать программу считывания этих чисел и их вывода в файл f2.txt с сортировкой по возрастанию в 5 колонок с точностью 2 знака после десятичной точки.

2. Сформировать файл, имеющий следующую структуру: type преподаватель=record фамилия:string;

предмет:string;

факультет:string;

курс:1..5;

количество часов:integer;

end;

и определить:

• преподавателя, имеющего самую большую нагрузку;

• список предметов, которые читает данный преподаватель;

• объем часов на данном факультете и данном курсе.

Вариант 6

1. Файл f1.txt содержит 200 чисел в 5 колонок. Создать программу считывания этих чисел и их вывода в файл f2.txt с сортировкой по убыванию в 8 колонок с точностью 2 знака после десятичной точки.

2. Сформировать файл, имеющий следующую структуру: type ребенок=record фамилия:string;

адрес:string;

пол:(муж,жен);

количество дней посещения:integer;

end;

и определить:

• самого болеющего ребенка;

• кто больше болеет мальчики или девочки;

• список детей проживающих на данной улице.

Вариант 7

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

Type Student=Record         Imja:String;         Pol:(m,f);         Vozrast:16..35;         Kurs:1..5;     End;

и определяет: 

• курс на котором наибольший процент мужчин;

• самые распространенные женские и мужские имена;

• список студентов данного пола, данного курса.

2. Сформировать файл, имеющий следующую структуру: type книга=record автор:string;

название:string;

год издание:integer;

издательство:string;

количество страниц:integer;

end;

и определить:

• есть ли в библиотеке книги данного автора;

• найти книгу с наибольшим количеством страниц;

• найти названия книг данного автора, изданных с указанного года, в данном издательстве.

Вариант 8

1. Файл f1.txt содержит 300 чисел в 10 колонок. Создать программу считывания этих чисел и их вывода в файл f2.txt с сортировкой по возрастанию в 12 колонок с точностью 1 знак после десятичной точки.

2. Сформировать файл, имеющий следующую структуру: type товар=record наименование:string;

страна:string;

объем партии:integer;

цена:integer;

end;

и определить:

• страну, в которую экспортируется товар на максимальную сумму;

• список стран, в которые экспортируется данный товар;

• найти товары, который имеет минимальный объем партии.

Вариант 9

1. Файл f1.txt содержит 40 чисел в 8 колонок. Создать программу считывания этих чисел и их вывода в файл f2.txt с сортировкой по возрастанию в 4 строки с точностью 3 знака после десятичной точки.

2. Сформировать файл, имеющий следующую структуру: type игрушка=record название:string;

цена:integer;

возраст1:1..16;

возраст2:1..16;

end;

и определить:

• название самой дорогой игрушки;

• список игрушек, которые подходят детям данного возраста;

• подобрать игрушки на данную сумму денег (все варианты).

Вариант 10

1. Файл f1.txt содержит 100 чисел в 5 колонок. Создать программу считывания этих чисел и их вывода в файл f2.txt с сортировкой по убыванию в 4 колонки с точностью 5 знаков после десятичной точки.

2. Сформировать файл, имеющий следующую структуру: type игрушка=record название:string;

цена:integer;

цвет:string;

возраст1:1..16;

возраст2:1..16;

end;

и определить:

• название игрушек, цена которых не превышает данную и которые подходят детям данного возраста;

• найти самую дешевую игрушку данного названия;

• найти самый распространенный цвет игрушек.

Вариант 11

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

и определяет:

• число пассажиров, количество вещей которых превосходит среднее число вещей;

• пассажира с данным количеством вещей и не более данного веса;

• количество вещей и общем вес каждого рейса.

2. Сформировать файл, имеющий следующую структуру type пассажир=record фамилия:string;

имя:string;

номер рейса:string;

количество вещей:integer;

общий вес:integer;

end;

и определить:

• число пассажиров, количество вещей которых превосходит среднее число вещей;

• пассажира с данным количеством вещей и не более данного веса;

• вывести информацию о количестве вещей и общем весе каждого рейса.

Вариант 12

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

• преподавателя, который принимает больше всего экзаменов;

• кафедру, на которой читается больше всего предметов;

• список преподавателей данной кафедры.

2. Сформировать файл, имеющий следующую структуру: type спортсмен=record фамилия:string;

страна:string;

рост:150..220;

вес:30..100;

год рождения:ineger;

результат:integer;

end;

и определить:

• средний рост и вес спортсменов данной страны;

• найти лучшего спортсмена данной страны;

• список спортсменов данного возраста с результатом, не хуже данного.

Вариант 13

1. Сформировать файл, имеющий следующую структуру: type имя=(Аня,Валя,Женя,Петя,Саша,Таня,Шура,Юра);

данные=record пол:(м,ж);рост:140..200 end;

и определить:

• средний рост женщин;

• имя самого высокого мужчины;

• есть ли в группе хотя бы два человека одного роста.

2. Сформировать файл, имеющий следующую структуру: type спортсмен=record фамилия:string;

страна:string;

тренер:string;

год рождения:ineger;

результат:integer;

end;

и определить:

• самого молодого спортсмена, занимающегося у данного тренера;

• лучшего тренера данной страны;

• список тренеров с указанием страны.

Вариант 14

1. Файл f1.txt содержит 1200 чисел в 6 колонок. Создать программу считывания этих чисел и их вывода в файл f2.txt с сортировкой по убыванию в 12 колонок с точностью 1 знак после десятичной точки. Файлу f2.txt установить атрибут "System

2. Сформировать файл, имеющий следующую структуру: type предмет=record название:string;

количество часов:integer;

преподаватель:string;

кафедра:string;

форма отчетности:(зачет,экзамен);

end;

и определить:

• преподавателя, у которого самое большое количество часов;

• список предметов, по которым сдают экзамен;

• кафедру и преподавателя, который ведет данный предмет.

Вариант 15

1. Сформировать файл, имеющий следующую структуру: type знакомый=record фамилия:string;

номертел:10000..99999;

адрес:string;

end;

и определить:

• есть ли в книжке телефон данного человека;

• кому принадлежит данный телефон;

• список людей, живущих на данной улице.