Пропущені практик:'); (l); getp (cur) ^. inf.pprak: = l; ( 0);;; del; count> 1 then begincur = 1 then: = left ^. next; ^. prev: = nil; (left);: = temp; (count); elsecur = count then: = right ^. prev; ^. next: = nil; (right);: = temp; (count); (beg); else: = getp (cur); ^. prev ^. next: = temp ^. next; ^. next ^ . prev: = temp ^. prev; (temp); (count);;: = 1;: = 1; count
writeln ('7: Пропущені лекцій '); ('8: Пропущені практик');
readln (lp); lp> 8 then lp: = 8; lp <1 then lp: = 1;: = lp;;; inf;: integer;, new: integer;, p: real; (1) ;: = left;: = 1; [1]: = temp ^. inf; [1]. otl: = 0; [1]. hor: = 0; [1]. ud: = 0; [1]. neud: = 0; temp <> nil dogrupmas [n]. grup = temp ^. inf.grupbegin [n]. otl: = grupmas [n]. otl + temp ^. inf.otl; [n]. hor: = grupmas [n]. hor + temp ^. inf.hor; [n]. ud: = grupmas [n]. ud + temp ^. inf.ud; [n]. neud: = grupmas [n]. neud + temp ^. inf.neud; [n]. neud: = grupmas [n]. neud + temp ^. inf.neud; [n]. plec: = grupmas [n]. plec + temp ^. inf.plec; [ n]. pprak: = grupmas [n]. pprak + temp ^. inf.pprak; else (n); [n]: = temp ^. inf;;: = temp ^. next;; i: = 1 to n do; (0);; (15); textbackground (3); ('');
writeln ('Середній Пропущені');
writeln ('Група');
writeln ('бал лекц. практ всього');
writeln ('');
for i: = 1 to n ', Grupmas [i]. Grup,' ', s: 8:3,' ', grupmas [i]. Plec: 5,' ', [i]. Pprak: 5,' ', grupmas [i]. Plec + grupmas [i]. pprak: 5, '');; ('');;; close;;; (1);; main; keypressed then: = readkey; ch = # 71 then {home}: = 1 ; beg: = 1;; ch = # 79 then {end}: = lnum; beg: = count-lnum + 1;; (ch = # 73) then {pageup}: = 1;: = beg-lnum; beg < ; 1 then beg: = 1;; (ch = # 81) then {pagedown}: = lnum;: = beg + lnum; beg> (count-lnum) then beg: = count-lnum + 1;; ch = # 80 then {down} (lin); lin> lnum then: = lnum; (beg + lnum) <= count then inc (beg);;; ch = # 72 then {up} (lin); lin <1 then : = 1; beg> 1 then dec (beg);;; (ch = 's') or (ch = 'и') then sort (sortby); (ch = 'a') or (ch = 'ф' ) then add; (ch = 'e') or (ch = 'у') then edit; (ch = 'd') or (ch = 'в') then del; (ch = 'i') or (ch = 'ш') then inf;: = beg + lin-1;;; ch = # 27;; (0);;: = 20;: = 1;: = 1;: = 1;: = 1;; ;;;
end.
Додаток 2
Керівництво оператора
Для виконання програми необхідно запустити виконуваний файл KURS.EXE. Після запуску програми на екрані з'являється вікно - Малюнок 2.1
В
Малюнок 2.1 - основне вікно програми
При роботі з програмою в...