以下程序为什么编译成功但如果执行的话会触发EInOutError异常类的io错误103。
//delphi5下编译。Program delphicode;
{calculate diameter, circurnference and area of a circle}
uses
SysUtils;const Pai = 3.14;var
radius : integer;
Diameter,Area :real;begin
WriteLn('Enter radius of a circle:'); {whole number}
ReadLn(Radius);
Diameter := 2 * Radius;
Area := Pai * Radius * Radius; WriteLn('Diameter of the circle is :',Diameter:12:5);
WriteLn('circumference is :',2 * Pai * Radius:12:5);
WriteLn('Area of the circle is:',Area:12:5);
end.
//delphi5下编译。Program delphicode;
{calculate diameter, circurnference and area of a circle}
uses
SysUtils;const Pai = 3.14;var
radius : integer;
Diameter,Area :real;begin
WriteLn('Enter radius of a circle:'); {whole number}
ReadLn(Radius);
Diameter := 2 * Radius;
Area := Pai * Radius * Radius; WriteLn('Diameter of the circle is :',Diameter:12:5);
WriteLn('circumference is :',2 * Pai * Radius:12:5);
WriteLn('Area of the circle is:',Area:12:5);
end.
改为
Program delphicode;
{calculate diameter, circurnference and area of a circle}
{$APPTYPE console} //add!!声明是Win32Console的,可以兼容部分TP指令
uses
SysUtils;const Pai = 3.14;var
radius : integer;
Diameter,Area :real;begin
WriteLn('Enter radius of a circle:'); {whole number}
ReadLn(Radius);
Diameter := 2 * Radius;
Area := Pai * Radius * Radius; WriteLn('Diameter of the circle is :',Diameter:12:5);
WriteLn('circumference is :',2 * Pai * Radius:12:5);
WriteLn('Area of the circle is:',Area:12:5);
end.