2: вивід на екран бд '; ^ [3]: = '3: Виведення потрібного цеху працівників'; ^ [4]: ​​= '4: Пошук за полям бд '; ^ [5]: = '5: Видалення записів з бд'; ^ [6]: = '6: Створення нової БД '; ^ [7]: = '7: Робота з іншого Бд'; ^ [ 8]: = '8: Виведення і сортування по полях ';
massm ^ [9]: = '9: вихід ';; ppoisk (var elem: integer; var kol: integer);: = readkey; key of
# 72: (poz> 1) and (poz <= kol) then begin (poz); (elem);;
# 80: if poz <= kol-1 then begin (poz); (elem);; end; key = # 27;; pmenu;; i: = 1 to 9 do beginpoz = i then begin
textbackground (3); (massm ^ [i]); (15); (massm ^ [i]);; i: = 1 to 14 do; (4); ('Для вибору в меню натисніть праву стрілку -> ');
textcolor (0);; ppois;;
Writeln ('Виберіть цифри за якими здійснюватиметься поис по полях');
for i: = 1 to 3 do beginpoz = i then begin (3); (massm ^ [i]); (15); (massm ^ [i]);; i: = 1 to 18 do; (4);
writeln ('Для вибору в меню натисніть праву стрілку ->');
textcolor (0);; perelistpoiska (var kol: integer); key: char;: = readkey; key of
# 72: (poz> 1) and (poz <= kol) then begin (poz);;;
# 80: if poz <= kol-1 then begin: = poz +1;;; end; key = # 75;; perelist (var kol: integer); key: char;: = readkey; key of
# 72: (poz> 1) and (poz <= kol) then begin (poz);;
end;
# 80: if poz <= kol-1 then begin: = poz +1;;; end; key = # 75;; sort (var mass: bdArray); x: people; i: = 2 to k-1 domass [i-1]. fam> mass [i]. fam then: = mass [i];: = i-1; (j> 0) and (mass [j]. fam> x . fam) do [j +1]: = mass [j];: = j-1;; [j +1]: = x;; end; sortcex (var mass: bdArray); x: people; i: = 2 to k-1 domass [i-1]. cex> mass [i]. cex then: = mass [i];: = i-1;
while (j> 0) and (mass [j]. cex> x.cex) do [j +1]: = mass [j];: = j-1;; [j + 1]: = x;; end; sortzar (var mass: bdArray); x: people; i: = 2 to k-1 domass [i-1]. zar> mass [i]. zar then: = mass [i ];: = i-1; (j> 0) and (mass [j]. zar> x.zar) do [j +1]: = mass [j];: = j-1;; [j +1 ]: = x;; end; sozdzap; (bd, txtfile);
reset (bd);; ('Скільки записів хочете додати?');
read (n ^); i: = n ^ downto 1 do begin
with buff ^ do begin (bd);
clrscr; ('Введіть № цеху даної людини'); (cex); ('Введіть прізвище працівника'); (fam); ('Введіть середній заробіток даної людини');
read (zar); ^ [i]. cex: = cex; ^ [i]. fam: = fam; ^ [i]. zar: = zar;; end; i: = 1 to n ^ do begin (bd, a ^ [i]. cex); writeln (bd, a ^ [i]. fam); writeln (bd, a ^ [i]. zar);; (bd);; vivod ; ke...
