Задача 1. (разобрать).

На экзаменационном листе содержатся сведения о результатах экзаменов, сданных 30 учениками класса. Ввести эти данные в компьютер и получить список всех отличников. В программе используется описание комбинированного типа results. Исходные данные организуются в массив следующей структуры.

Var list: array [1..30] of results;

После ввода в этот массив исходных данных следует фрагмент программы:

For i:=1 To 30 Do

If (list[i].rus=5) and (list[i].alg=5)

and (list[i].phiz=5)

Then Writeln (list[i].family);

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

А теперь обсудим проблему: как наиболее удобным способом организовать ввод данных в этой программе? Вводить с клавиатуры неудобно из-за большего объема данных. При каждом повторном запуске программы нужно начинать ввод сначала. А при отладке это наверняка придется делать многократно. Гораздо удобнее подготовить файл с исходными данными с помощью текстового редактора. После этого без проблем можно повторять ввод многократно. Так и поступим. Подготовим текстовый файл следующего вида:

Таблица успеваемости 10 А класса

Фамилия	Русский язык	Алгебра	Физика
Антонов	4	5	5
Андреева	5	3	4
Боброва	5	5	5
…

Таблица содержит данные с фамилиями и оценками 30 учеников класса. Обратите внимание на то, что фамилии записываются в отдельных строках. Необходимость этого связана с реализацией алгоритма: при вводе символьной строки прочитываются полностью очередная строка текстового файла до признака EOLN. При этом фамилии должны содержать не более 15 символов, а первые оценки (по русскому языку) – располагаться не раньше 16-й позиции в своей строке.

Сохраним этот файл в корневом каталоге логического диска D под именем 10_а.txt. Составим программу с вводом таблицы успеваемости и выводом списка отличников. Фамилии отличников выведем на экран и сохраним в файле с именем Best.txt.

Решение.

Program Examen;

Type results = record

Fam: string [15];

Rus: 2..5;

Alg:2..5;

Phiz: 2..5

End;

Var list: array [1..30] of results; {Массив записей}

i: integer; F1, F2:text;

Begin

Assign (F1, ‘D:\10_a.txt’); {Связывание F1 c файлом 10_a.txt}

Assign (F2, ‘D:\Best.txt’); {Связывание F2 c файлом Best.txt}

Reset (F1); {Открытие файла F1 для чтения}

Rewrite (F2); {Открытие файла F2 для записи}

Readln (F1); Readln (F1); {Пропуск 2 строк в файле F1}, {Цикл ввода из файла F1}

For i:=1 To 30 Do

Readln (F1, list [i].Fam, list[i].Rus, list[i].Alg, list[i].Phiz);

{Цикл отбора отличников и вывода их фамилий}

For i:=1 To 30 Do

If (list[i].rus=5) and (list[i].alg=5)

and (list[i].phiz=5)

Then

Begin

Writeln (list[i].fam); {Вывод фамилии на экран}

Writeln (F2, list [i].fam); {Запись фамилии в файл F2}

End;

Close (F1); Close (F2); {Закрытие файлов}

End.

Задача 2.

Решая рассмотренную задачу с оценками, можно обойтись без массива записей. Кроме того, можно не ставить ограничения на число учеников в классе. Их число выяснится в процессе чтения файла с таблицей успеваемости. Составим программу, которая кроме вывода списка фамилий отличников подсчитывает их количество и процент отличников по отношению к полному составу класса.

Решение.

Program Examen 2:

Type results = record

Fam: string [15];

Rus: 2..5;

Alg: 2..5;

Phiz: 2..5;

End;

Var list: results; {Одна переменная комбинированного типа}

I, K: imteger;

F1,F2: text;

Begin

Assign (F1, ‘D:\10_a.txt’);

Assign (F2, ‘D:\Best.txt’);

Reset(F1); Rewrite (F2);

Readln (F1); Readln (F1);

I:=0; K:=0; {Инициализация счетчиков}, {Цикл до конца чтения файла}

While not EOF (F1) Do

Begin

Readln (F1, list.fam, list.Rus, list.Alg, list.Phiz);

I:=I+1; {Подсчет числа учеников}

If (list.rus=5) and (list.alg=5) and (list.phiz=5)

Then

Begin

Writeln (list.fam);

Writeln (F2, list.fam);

K:=K+1; {Подсчет числа отличников};

End

End;

Writeln (‘Из ‘, I, ‘учеников в классе’, K, ‘отличников, что составляет’, K/I*100:4:1, ‘%’);

Close (F1);

Close (F2); {Закрытие файлов}

End.

Пояснение:

В этой программе переменная I используется как счетчик числа учеников, а переменная K- как счетчик числа отличников.

Стандартная логическая функция EOF (end of file) примет значение True, когда процесс чтения из файла дойдет до его конца.

В результате выполнения программы кроме списка отличников на экран выведется строка:

Из 30 учеников в классе 10 отличников, что составляет 33,3%.