Задать вопрос
12 апреля, 01:30

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

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

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

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

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

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

в группе;

Количество

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

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

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

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

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

Количество

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

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

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

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

+1
Ответы (1)
  1. 12 апреля, 04:50
    0
    На всякий случай, программа обрабатывающая типизированные файлы.

    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «решите задание 3 Задание 2. Создайте файл информации по итогам сессии result. dat. Для каждой группы каждого курса в файл заносится ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы