pl0.dpr

来自「delphi编的pl0编译器」· DPR 代码 · 共 46 行

program PL0;

uses
  Forms,
  Main in 'Main.pas' {MainForm},
  Preface in 'Preface.pas' {Form1},
  YuFaFenXi in 'YuFaFenXi.pas',
  SanYuanShi in 'SanYuanShi.pas',
  Excute in 'Excute.pas',
  Result_Form in 'Result_Form.pas' {ResultForm},
  My_Statememt in 'My_Statememt.pas' {StateForm};

{$R *.RES}

procedure delay();
var
  i:integer;
  p:real;
begin
  i:=90000000;
  p:=888;
  while(i<>0) do
  begin
    p:=sqrt(p);
    dec(i);
  end;
end;


begin
  Application.Initialize;
  with TForm1.Create(Application) do
  begin
    show;
    Top:=130;
    Left:=320;
    Update;
    delay();
    Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TResultForm, ResultForm);
  Application.CreateForm(TStateForm, StateForm);
  free;
  end;
  Application.Run;
end.