решите задание 3

Задание 2. Создайте файл

информации по итогам сессии result. dat. Для каждой группы каждого курса в файл заносится

информация (количество курсов и групп на курсе фиксировано, сами номера курсов и

групп в записи не хранятся) :

Количество студентов

в группе;

Количество

допущенных к сессии;

Количество сдавших

на "отлично";

Количество сдавших

на "хорошо" и "удовлетворительно";

Количество

получивших "неудовлетворительно".

Задание 3. Используя прямой

доступ к файлу result. dat. (см. задание 2), выведите информацию о результатах сессии по

заданному курсу и номеру группы.

На всякий случай, программа обрабатывающая типизированные файлы.

type

RC=record

Kol:integer;

Dop:integer;

Kol5:integer;

Kol43:integer;

Kol2:integer

end;

var

n:integer;

r:RC;

f:file of RC;

begin

Assign (f,'result. dat') ;

Reset (f) ;

/ / так делается проход по всему файлу

while not Eof (f) do begin

read (f, r) ;

Writeln (r. Kol,',', r. Dop,',', R. Kol5,',', r. Kol43,',', r. Kol2) ;

end;

/ / а так впрямую выбирается запись с указанным номером n (нумерация от 0)

n:=1;

seek (f, n) ;

read (f, r) ;

Writeln (r. Kol,',', r. Dop,',', R. Kol5,',', r. Kol43,',', r. Kol2) ;

n:=FileSize (f) ;

Writeln ('Число записей в файле - ', n) ;

Close (f)

end.