Вопрос по информатике:
Задание 2. Создайте файл информации по итогам сессии result.dat. Для каждой группы каждого курса в файл заносится информация(количество курсов и групп на курсе фиксировано, сами номера курсов и групп в записи не хранятся):Количество студентов в группе;Количество допущенных к сессии;Количество сдавших на «отлично»;Количество сдавших на «хорошо» и «удовлетворительно»;Количество получивших «неудовлетворительно».
- 11.05.2018 08:03
- Информатика
- remove_red_eye 6838
- thumb_up 41
Ответы и объяснения 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.
- 12.05.2018 10:47
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.