Задания

Вариант 1

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

2. Даны два текстовых файла. Описать логическую функцию, проверяющую идентичны ли тексты этих файлов или нет.

Вариант 2

1. Дан файл, содержащий вещественные числа. Описать функцию, подсчитывающую сумму отрицательных элементов в этом файле.

2. Дан текстовый файл. Описать функцию less(w1, w2), определяющую, предшествует ли слово w1 слову w2.

Вариант 3

1. Дан файл, в котором записаны цены товаров (в виде 1 руб. 50 коп.). Описать функцию, определяющую наименьшую цену, записанную в файле.

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

Вариант 4

1. Type row = file of 0..999; Описать логическую функцию, проверяющую, упорядочены ли по возрастанию элементы непустого файла.

2. Описать процедуру line40(t), которая считывает из файла s литеры до первой точки и записывает их (без точки) в текстовый файл t, формируя в нем строки по 40 литер (в последней строке может быть и меньше).

Вариант 5

1. Даны два файла, содержащих целые числа. Описать процедуру prisv(f, g: file of integer), которая файлу f присваивает содержимое файла g.

2. Имеется внешний текстовый файл Book. Написать программу, которая, игнорируя исходное деление этого файла на строки, переформатирует его, разбивая на строки так, чтобы каждая строка оканчивалась точкой либо содержала ровно 60 литер, если среди них нет точки.

Вариант 6

1. Даны три файла Type letters = file of 'a'..'z';Описать процедуру append(f, g, h) от трех файлов типа letters, которая записывает в файл f сначала все элементы файла g, а затем - все элементы файла h.

2. Имеется текстовый файл T. Напечатать первую из самых коротких его строк.

Вариант 7

1. Дан файл f, содержащий вещественные числа. Описать функцию less(f) от непустого файла f, меньших среднего арифметического всех элементов этого файла.

2. Пусть текстовый файл t разбит на непустые строки. Описать функцию count(t) для подсчета числа строк, которые состоят из одинаковых литер.

Вариант 8

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

2. Пусть текстовый файл t разбит на непустые строки. Описать функцию count(t) для подсчета числа строк, которые начинаются с буквы d.

Вариант 9

1. Дан файл вещественных чисел f. Описать функцию incr(f), определяющую количество элементов в наиболее длинной возрастающей последовательности файла f.

2. Описать функцию, которая подсчитывает количество пустых строк в текстовом файле t.

Вариант 10

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

2. Описать функцию, которая находит максимальную длину строк текстового файла t.

Вариант 11

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

2. Дан символьный файл f. Удалить из файла все однобуквенные слова и лишние пробелы. Результат записать в файл g.

Вариант 12

1. Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно - действительное (вес в килограммах). Найти число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превосходит среднее число вещей.

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

Вариант 13

1. Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий сведения о нескольких автомобилях. Найти: а) фамилии владельцев и номера автомобилей данной марки; б) количество автомобилей каждой марки. Найденные данные записать в файл g.

2. Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов >4 и < 6, в которых нет повторяющихся символов. Если таких слов нет, то полностью переписать файл g в файл f.

Вариант 14

1. Дан файл f, содержащий различные даты. Каждая дата - это число, месяц и год. Найти: а) год с наименьшим номером; б) все весенние даты; в) самую позднюю дату. Найденные данные записать в файл g.

2. Дан текстовый файл. Описать процедуру, которая выводит все слова, содержащиеся между самым длинным и самым коротким словом каждой строки.

Вариант 15

1. Дан файл f, содержащий сведения о кубиках: размер каждого кубика (длина ребра в сантиметрах), его цвет (красный, зеленый, желтый или синий) и материал (деревянный, металлический, картонный). Найти количество деревянных кубиков с ребром 3 см и количество металлических кубиков с ребром, большим 5 см.

2. Дан текстовый файл. Выдать на экран все симметричные строки файла.

Вариант 16

1. Дан файл f, содержащий сведения о веществах: указывается название вещества, его удельный вес и проводимость (проводник, полупроводник, изолятор). Найти удельные веса и названия всех полупроводников.

2. Дан текстовый файл f. Создать новый файл g и записать в него построчно все слова файла f, предварительно перенеся последнюю букву слова в начало.

Вариант 17

1. Дан файл f, содержащий сведения о книгах. Сведения о каждой из книг - это фамилия автора, название и год издания. 1) Найти названия книг данного автора, изданных с 1960 г. 2) Определить, имеется ли книга с названием "Информатика". Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить имеющиеся сведения обо всех книгах.

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

Вариант 18

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

2. Дан текстовый файл f. Найти самое длинное слово среди слов, вторая буква которых есть e; если слов с наибольшей длиной несколько, то найти последнее. Если таких слов нет вообще, то сообщить об этом.

Вариант 19

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

2. Дан текстовый файл f. Записать "в перевернутом виде" строки файла f в файл g. Порядок строк в файле g должен совпадать с порядком исходных строк в файле f;

Вариант 20

1. Дан типизированный файл f, содержащий целые числа. Создать новый файл g и записать в него все простые числа файла f.

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