Задать вопрос
1 сентября, 07:33

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

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

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

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

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

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

в группе;

Количество

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

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

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

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

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

Количество

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

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

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

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

+1
Ответы (1)
  1. 1 сентября, 08: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. Для каждой группы каждого курса в файл заносится ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы