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

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,' ');

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