profile
Опубликовано 4 года назад по предмету Информатика от Дeниc

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

  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.