Курсовая работа: Автоматизований облік власників автомобілей

Poisk - виконання пошуку

Udal - видалення існуючих даних

Red - редагування

2. Алгоритми

2.1 Алгоритм основної програми

2.2 Алгоритм red

3. Вихідний код програми

uses crt,dos;

type l=record

m,mg,kvu,st, im: string [10] ;

end;

var h: file of l; b: l;

procedure klava (x1,y1,x2,y2,a,b: byte);

var i: integer;

begin

textbackground (a);

textcolor (b);

window (x1,y1,x2,y2);

write ('Ъ');

for i: =1 to (x2-x1) - 1 do

begin

write ('Д');

end;

write ('ї');

for i: =2 to (y2-y1) - 1 do

begin

gotoxy (1, i);

write ('і');

gotoxy (x2-x1+1, i);

write ('і');

end;

write ('А');