datatran.pas

来自「以从医院病案室获得的3022例数据为样本」· PAS 代码 · 共 31 行

unit datatran;         //数据转换单元——>string

interface

var
i:integer  ;
  ib:integer  ;
  itnb:integer;
  il: real;
  ibl:real;
  zxd:real ;

function  transtr(i:integer  ;
  ib:integer  ;
  itnb:integer;
  il: real;
  ibl:real;
  zxd:real):string ;
begin
j:= inttostr(i)   ;
     il:=i/3022;
     ibl:=ib/itnb;
     zxd:=ibl/il;
     jil:=floattostr(il);
     jib:=inttostr(ib)   ;
     jibl:=floattostr(ibl);
     jzxd:=floattostr(zxd);
end;
end;