#39;); n1
writeln ('--------------------------------------- ------------------- ');; end;: = readkey; key of
# 72: (poz> 1) and (poz <= k) then begin (n2); (poz); (k);;
# 80: poz
n2: = 0; ('Введіть середню заробітну плату працівника (ів)');
readln (j); i: = 1 to 500 do begina ^ [i]. zar = j then begin: = k +1; ^ [k]: = a ^ [i];; end;: = 10;
repeat; ('====================================== ================== '); (' | № Цехи | | Прізвище | | Ср.Заработок | '); (' ========== ============================================== ');: = n2; n1
# 72: (poz> 1) and (poz <= k) then begin (n2); (poz); (k);;
# 80: poz
inc (poz); (k);; end; end; key = # 27;; (bd);; vivodcexa; numbcex: string;: array [1 .. 1000] of people; : ^ array [1 .. 1000] of people;, l1, l: integer; (b);
clrscr; ('Введіть назву файлу куди хочете помістити працівників по цеху');
read (numbcex); numbcex: = numbcex + '. txt'; (bd, txtfile); (bd2, numbcex);
reset (bd);: = 1; ('Введіть № цеху який буде виведений на екран'); (n); ('Введіть зарплату робітників від');
read (l); ('До'); (l1); not eof (bd) do with buff ^ do begin (bd, a [i]. cex); readln (bd, a [i]. fam); readln (bd, a [i]. zar);
i: = i +1;;: = 1; i: = 1 to 1000 do (a [i]. cex = n) and (a [i]. zar> = l) and (a [i]. zar <= l1) then | № Цехи | | Прізвище | | to k-1 do begin// vvod v bd2 i vivod na
write ('Натисніть Enter для продовження');
readln ();;
procedure sozdbd;;
writeln ('Введіть ім'я файлу нової бд');
read (txtfile1);: = txtfile1 + '. txt'; CanCreateFile (txtfile1) = true then begin
writeln ('Ви створили "БД" під ім'ям', txtfile1, '');
assign (bd, txtfile1); (bd);
close (bd); ('Така БД вже існує на вашому комп'ютері'); ('Для продовження натисніть Enter'); ();; ('курсова робота з ОАіП "БД цеху"' );
CenterWindow;
new (n); new (buff); new (a); new (l); new (l1); new (x); new...
