Контрольная работа: Автоматизований облік надходження, зберігання і збуту продукції на товарній базі

assign (f3,'c:\sra.zoo');

if (FSearch ('imp.zoo', 'c:\')='') or (FSearch ('eks.zoo', 'c:\')='') or (FSearch('sra.zoo', 'c:\')='') then

begin

window (1,1,40,25);

textbackground(1);

clrscr;

gotoxy (2,10);

textcolor(4);

write ('Ne pravelnaya operaciya, ne vse dannie');

end

else

begin

reset(f1);

reset(f2);

reset(f3);

seek (f1,0);

seek (f2,0);

seek (f3,0);

read (f1, qw);

read (f2, as);

read (f3, zx);

window (1,1,40,25);

textbackground(1);

clrscr;

{gotoxy (5,2);}

write ('Import Eksport Sohraneno');

for i:=1 to 10 do

begin

mas [1, i]:=qw.import [1, i]+qw.import [2, i]+qw.import [3, i];