jd2.pas

不完备信息的数据发现

unit jd2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tjd2f = class(TForm)
    Memo27: TMemo;
    Memo28: TMemo;
    Memo29: TMemo;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jd2f: Tjd2f;

implementation

{$R *.dfm}

procedure Tjd2f.Button10Click(Sender: TObject);
var t:double ;
begin
     t:=1/3 ;
     Memo27.Lines.Add(floattostr(t));
end;

procedure Tjd2f.Button11Click(Sender: TObject);
var t:double ;
begin
     t:=1;
     Memo28.Lines.Add(floattostr(t));

end;

procedure Tjd2f.Button12Click(Sender: TObject);
var t:double ;
begin
     t:=1/2;
     Memo29.Lines.Add(floattostr(t));
end;

end.