Курсовая работа: Применение симплекс-метода
if PA < 0 then P_str := P_str+'-';
PE := abs(PA); { A^X=EXP(X*LN(A)) }
PE := PE + 5 * EXP((-1-PC)*LN(10)); { PE := PE + 5*10^(-1-PC) }
if PE >= EXP(PD*LN(10)) then begin write(PA); Exit end; { PE>=10^PD }
{Str(PE:13:10, PE_str); { Copy(Str,1,N); Left }
PEint := int(PE);
PE_str:=DelZero(PEint);
MID := Copy(PE_str,2,PD);{ MID$(PE_str,2,PD) }
P_str := P_str + MID;
{PRINT RIGHT$(P$,PD+1)}
RIGHT := Copy(P_str,Length(P_str)-(PD+1)+1,PD+1);
GotoXY(WhereX+3,WhereY);
write(RIGHT); { RIGHT$(P$,PD+1) Copy(Astr,Length(Astr)-N+1,N); Right }
if PC = 0 then Exit;
write('.');
PE:=int((PE-int(PE)) * EXP(PC*LN(10)));
P_str:='000000000';
PE_str:=DelZero(PE);
{PE_str := KillZero(PE_Str);}
{P_str:=P_str+Copy(KillZero(PE_str),2,PC);}
MID := Copy(PE_str,2,PC);
P_str := P_str + MID;
RIGHT := Copy(P_str,Length(P_str)-PC+1,PC);{RIGHT(P$,PC) }
write(RIGHT,' ');
end;
procedure Gosub3000;
begin
write('Bazis Znachenie ');
for j:=1 to N+3 do write(' X',j,' ');