Автоматическое рабочее место для работника склада

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: сочинение по русскому, взаимодействие реферат
| Добавил(а) на сайт: Saltanov.

Date_r:=Cifri(25,3,'',8,key); if NOT key then exit; end; end;

procedure Vvodnov; var Tx:String; er:integer; key:Boolean; begin clrscr;

With List[Schet] do begin writeln(' Новый товар'); writeln(' Наименование товара :'); writeln(' Количество :'); writeln(' Цена :'); writeln(' Дата прихода ДД.ММ.ГГ:'); {readln(date_p);}

Naim:=Edtext(25,2,'',20,key); if NOT key then exit; val(Cifri(25,3,'',6,key),kol,er); if NOT key then exit; kol_p:=kol; val(Cifri(25,4,'',10,key),price,er); if NOT key then exit;

Date_p:=Cifri(25,5,'',8,key); if NOT key then exit; inc(Schet); end; end;

procedure Edzapic(posiz:integer); var Tx:String; er:integer; key:Boolean; begin clrscr;

With List[posiz] do begin writeln(' Редактирование товара'); writeln(' Наименование товара :'); writeln(' Цена :');

Tx:=Edtext(25,2,Naim,20,key); if key then Naim:=tx; str(price:0:2,tx); tx:=Cifri(25,3,tx,10,key); if key then val(tx,price,er); end; end;

function vstroca(var curs:integer):integer; var i:integer; begin

Textbackground(15);

TextColor(0); gotoxy(1,1); write(Probel('',80)); for i:=0 to 5 do begin gotoxy(i*13+1,1); write(mnu[i+1]); end;

Textbackground(0);

TextColor(14); gotoxy((curs-1)*13+1,1); write(mnu[curs]); repeat k:=readkey;

Textbackground(15);

TextColor(0); gotoxy((curs-1)*13+1,1); write(mnu[curs]); if k=#0 then k:=readkey; case k of

#75: if curs>1 then dec(curs) else curs:=6;

#77: if cursList[j].naim then begin Bas:=List[j]; k:=j end;

2: if Bas.kol>List[j].kol then begin Bas:=List[j]; k:=j end;

3: if Bas.price>List[j].price then begin Bas:=List[j]; k:=j end;

5: if Bas.kol_p>List[j].kol_p then begin Bas:=List[j]; k:=j end;

6: if Bas.date_p>List[j].date_p then begin Bas:=List[j]; k:=j end;

7: if Bas.kol_r>List[j].kol_r then begin Bas:=List[j]; k:=j end;

8: if Bas.date_r>List[j].date_r then begin Bas:=List[j]; k:=j end; end; end;

List[k]:=List[i]; List[i]:=Bas; end; end;

procedure Vivlist(var seek,curs:integer); var c,k:char; i:integer; begin