Задание 2. Создайте файл информации по итогам сессии result. dat. Для каждой группы каждого курса в файл заносится информация (количество курсов и групп на курсе фиксировано, сами номера курсов и групп в записи не хранятся) : Количество студентов в группе; Количество допущенных к сессии; Количество сдавших на "отлично"; Количество сдавших на "хорошо" и "удовлетворительно"; Количество получивших "неудовлетворительно".

Question

Информатика

Катена

1 октября, 04:04

Задание 2. Создайте файл информации по итогам сессии result. dat. Для каждой группы каждого курса в файл заносится информация (количество курсов и групп на курсе фиксировано, сами номера курсов и групп в записи не хранятся) : Количество студентов в группе; Количество допущенных к сессии; Количество сдавших на "отлично"; Количество сдавших на "хорошо" и "удовлетворительно"; Количество получивших "неудовлетворительно".

+4

Ответы (1)

Знаешь ответ?

Марат · Answer 1

Будем создавать файл, допускающий впоследствии поиск.

type

RC=record

Kol:integer;

Dop:integer;

Kol5:integer;

Kol43:integer;

Kol2:integer

end;

var r:RC;

f:file of RC;

begin

Assign (f,'result. dat');

Rewrite (f);

repeat

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

if r. Kol>0 then

write (f, r);

until r. Kol=0;

Close (f)

end.