Курсовая работа: Применение симплекс-метода

cc: integer;

Dop: boolean;

buf:array[1..36] of byte absolute 0:$41a;

procedure clearkeybuf;{ ochistka bufera klaviatury}

begin

inline($fa); {cli - preryvaniya nado zapretit pri }

buf[1] := buf[3]; { vmeshatelstve v bufer }

inline($fb); {sti }

end;

procedure Init;

begin

for i:=1 to M2_K do for j:=0 to P_K do A[i,j]:=0;

end;

function DelZero(X: Real): string;{Udalenie nulei posle zapyatoi}

var i, l, sp: integer;

Drob, Space: boolean;

Xst, Res: string;

begin

Xst:=''; Drob:=False;

Str(X:13:10, Xst);

for i:=1 to Length(Xst) do if Xst[i]='.' then Drob:=True;

if Drob then begin

for i:=Length(Xst) downto 1 do begin

if Xst[i]='0' then Xst[i]:='Z';

if Xst[i]='.' then begin Xst[i]:='Z'; Break end;

if Xst[i] in ['1'..'9'] then Break;

{case XS[j] of

'0': XS[j]:='Z';

'.': XS[j]