В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
RitaMur
RitaMur
05.01.2021 18:12 •  Информатика

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

Показать ответ
Ответ:
tokmachevasvp01bjy
tokmachevasvp01bjy
07.07.2020 19:30
Будем создавать файл, допускающий впоследствии поиск.

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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота