Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Розробка інформаційної системи бібліотеки

Реферат Розробка інформаційної системи бібліотеки





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...


Назад | сторінка 5 з 9 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Mass migration in Australia
  • Реферат на тему: The peculiarities of news reports in English mass media texts
  • Реферат на тему: A critical evaluation of infrared analysis and mass spectrometry in forensi ...
  • Реферат на тему: A Critical evaluation of infrared analysis and mass spectrometry in forensi ...
  • Реферат на тему: The transformation of spectacular forms in mass culture. The problem of ge ...