Регистрация
Kember
20.09.2020 01:41
Информатика
Есть ответ 👍

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

215
420
Посмотреть ответы 2

Ответы на вопрос:

dedchik
dedchik
4,6(10 оценок)
Будем создавать файл, допускающий впоследствии поиск. 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.
leski
leski
4,6(19 оценок)
Var   x,f: real; begin   write('введите x: '); readln(x);   if (x> -2.4) and (x< 5.7) then f: =sqr(x)   else f: =4;   writeln('f=',f) end. var   x,f: real; begin   write('введите x: '); readln(x);   if (x> 0.2) and (x< 0.9) then f: =sin(x)   else f: =1;   writeln('f=',f) end. var   a,b,c: real; begin   write('введите три числа: '); readln(a,b,c);   write('условие ',a,'< ',b,'< ',c);   if (b> a) and (b< c) then writeln(' выполняется.')   else writeln(' не выполняется.');   write('условие ',b,'> ',a,'> ',c);   if (a< b) and (a> c) then writeln(' выполняется.')   else writeln(' не выполняется.') end.

Популярно: Информатика