deltlqua.pas

来自「线性规划CAI应用程序及原代码」· PAS 代码 · 共 25 行

unit deltlqua;
interface
uses delglobe;
const
   wbc=3;qfc=15;afc=14;sfc=0;
type str08=array[0..8] of string;
     in010=array[0..30] of integer;
var back,disp,finish:boolean;step,had,sel:integer;
    ch:char;  fk:boolean;  fs:str08;
    huan,next:boolean;  dui,ans,m1,iii,k,right:integer;
    x11,y11,x1,y1,now:integer;
    ab:array[1..30] of extended;
    obj:extended;
    wkx,wj,th:boolean;
    cp:array[1..30] of extended;
    pu:boolean;
    xc,ff2:boolean;
    s:string;
    tiaojian2:ttiaojianp;
implementation
begin
end.