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

end; }

end;

for i:=1 to Length(Xst) do if Xst[i]='Z' then begin l:=i;Break end;

Res := Copy(Xst,1,l-1);

end

else Res := Xst;

Space := False;

for i:=1 to Length(Res) do if Res[i]=' ' then

begin l:=i; Space := True end; {del spaces}

if Space then Res := Copy(Res,l+1,Length(Res)-l);

{sp:=0;

for i:=1 to Length(Res) do begin

if Res[i] = ' ' then inc(sp);

end;

if (X>=0)and(sp=0) then Res := ' ' + Res; }

if X >= 0 then Res := ' ' + Res;

DelZero := Res;

end;

procedure Gosub9000;

var PE, PEint: real;

PC, PD: integer;

MID, RIGHT: string;

begin

PC := round(int(PB/100));

P_str:='';

if PC=0 then write(' ') else write(Copy(P_str,1,PC)); { LEFT$(P$,PC) }

PC := PB - 100*PC;

PD := round(int(PC/10));

PC := PC - 10*PD;

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