cur) ^. inf.godr: = st;: = input (26,11,7, 'Стать:', getp (cur) ^. inf.pol, false); st <> 'дружин' then st: = 'чоловік'; length (st) <7 then for p: = 1 to 7-length (st) do st: = st + ''; (cur) ^. inf.pol : = st;: = input (26,12,2, 'Стаж:', getp (cur) ^. inf.stazh, true); length (st) <2 then for p: = 1 to 2-length ( st) do st: = st + ''; (cur) ^. inf.stazh: = st;: = input (26,13,1, 'Розряд:', getp (cur) ^. inf.razr, true) ; (cur) ^. inf.razr: = st;: = input (26,14,2, 'Номер цеху:', getp (cur) ^. inf.ceh, true); length (st) <2 then for p: = 1 to 2-length (st) do st: = st + ''; (cur) ^. inf.ceh: = st;: = input (26,15,4, 'Номер ділянки:', getp (cur) ^. inf.uch, true); length (st) <4 then for p: = 1 to 4-length (st) do st: = st + ''; (cur) ^. inf.uch: = st;: = input (26,16,5, 'Зарплата:', getp (cur) ^. inf.zarp, true); length (st) <5 then for p: = 1 to 5-length (st ) do st: = st + ''; (cur) ^. inf.zarp: = st;;
del; cur = 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;;
sortby: integer;: char;, lp: integer;
begin: = 1; (30,10, 'Сортувати за:');
repeat (c = # 80) and (lp <8) then inc (lp); (c = # 72) and (lp> 1) then dec (lp); i: = 1 to 8 do if i = lp then (7); textbackground (1); (26,7 + i); (sortmenu [i]); else (1); textbackground (3); (26,7 + i); ( sortmenu [i]);; (1); textbackground (3);: = readkey; (c = # 27) or (c = # 13); c = # 13 then sortby: = lp;;
inf;, nceh: integer; _v, sr_m, sr_w: longint;: string;: = 1; (7);: = left;: = left ^. inf.ceh; [nceh] . n: = s; temp <> nil dos <> temp ^. inf.ceh then (nceh); [nceh]. n: = temp ^. inf.ceh;;: = temp ^. inf.ceh; : = temp ^. next;; i: = 1 to nceh do: = left; temp <> nil dostrtoint (temp ^. inf.ceh) = strtoint (cehnum [i]. n) thentemp ^. inf.pol = 'чоловік' then inc (cehnum [i]. rab_m) else
inc (cehnum [i]. rab_w); temp ^. inf.pol = 'чоловік' then cehnum [i]. zar_m: = cehnum [i]. zar_m +
strtoint (temp ^. inf.zarp) else [i]. zar_w: = cehnum [i]. zar_w + strtoint (temp ^. inf.zarp);;: = temp ^. next; ;: = left;; (54, nceh + 8,''); (1); textbackground (3); (13,3); ('');
gotoxy (13,4); ('? N цеху? Кількість робочих? Середня зарплата?'); (13,5); (''); (13,6); ('? ? Всього? в тому числі? Всього? в тому числі? '); (13,7); (''); (13,8); ('??? Чоловік? Жен?? Чоловік? Жен? '); (13,9); ('');
for i: = 1 to nceh do
begin (13,9 + i); ('?'...
