Тема 4. Текстовые и типизированные файлы Пример выполнения задания

Задание. Создать текстовый файл, содержащий данные о 7 сотрудниках с полями ФИО, пол, возраст. По ним определить число мужчин.

Решение:

program Sotrudniki;

var f : text; {Файловая переменная}

fam : string[10]; pol : string[3]; probel : string[2];

god : word; n : byte;

begin

assign(f, 'Sotrud');

rewrite(f);

for n := 1 to 7 do begin

writeln('Введите фамилию и пробелы - всего 20 символов');

readln(fam); writeln('Введите пол'); readln(pol);

writeln('Введите два пpобела'); readln(probel);

writeln('Введите год pождения'); readln(god);

writeln(f, fam, probel, pol, probel, god); {Запись данных в файл}

end;

close(f); {Закрытие файла}

reset(f); n:=0;

while not EOF(f) do begin

readln(f, fam, probel, pol, probel, god); {Чтение данных из файла}

writeln(fam, ' ' : 20 - length(fam), pol, ' ', god);

if pol = 'муж' then n := n + 1

end;

writeln('Мужчин в гpуппе: ', n);

writeln('Нажмите ENTER'); readln

end.

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

1. Создать текстовый файл, содержащий информацию о трех книгах: автор, название, год издания. Вывести ее на экран.

2. Создать типизированный файл с именами 5 студентов и их средним баллом за сессию. Изменить фамилию третьего студента и средний балл второго.

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

4. На основе файла с символами создать файл с их порядковыми номерами.

5. Создать текстовый файл, содержащий список группы: ФИО, средний балл каждого студента. Найти средний балл для всей группы.

6. На основе файлов исходных данных создать файл значений функции XOR и вывести данные из файлов в виде таблицы истинности.

7. Создать текстовый файл. Заменить в нем все ‘d’ на ‘д’.

8. Записать в файл средние значения пяти векторов исходного файла.

9. Создать текстовые файлы оценок и фамилий. Объединить их в один файл.

10. Переписать файл из трех пятиэлементных векторов в файл целых чисел.

11. С помощью подпрограммы, определяющей количество цифр в строке файла, подсчитать их число во всем файле.

12. В файле из символов переписать символы в обратном порядке.

13. Создать текстовый файл с именами и рейтингами работников. Вывести во второй файл данные о работнике с наивысшим рейтингом.

14. На основе файла записей о четырех деталях создать файл с массами этих деталей.

15. Создать текстовый файл с матрицей 3х3 целых чисел. Вывести матрицу.

16. В файле из 10 вещественных чисел сделать первые пять чисел последними.

17. Скопировать матрицу 2х6 из файла вещественных чисел в другой файл.

18. Создать файл из двух матриц 2х2 и найти сумму элементов каждой.

19. Поместить в текстовый файл вектор из 10 вещественных чисел. Записать в другой файл числа, не превышающие среднего значения в исходном векторе.

20. Создать и вывести на экран файл с пятью объектами перечисляемого типа.

21. В 2 текстовых файла записать 10-элементные векторы. Сравнить соответствующие компоненты файлов и записать результаты в третий файл.

22. Из двух файлов с именами и адресами создать результирующий файл.

23. Внести в файл подсказку и исходные данные для вычисления суммы элементов вектора. Добавить в него результат с комментарием.

24. Создать файл из 7 чисел и записать в него на первую позицию их сумму.

25. Переписать файл так, чтобы строка начиналась с пробелов, число которых равно номеру строки.