Курсовая работа: Применение симплекс-метода
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;