11.13.pas

delphi renyuanguanlixinxioxitong

Program Project1;
{$APPTYPE CONSOLE}
uses Classes,Dialogs,SysUtils;
Var
  R1,R2:double;
begin
while true do
begin
    try
       write('Enter a real number: ');
       readln(R1);
       write('Enter another real number: ');
       readln(R2);
       writeln('The first number divided by the Second is: ',(R1/R2):5:3);
   except
     on EInOutError do
        ShowMessage('It is not a valid number! ');
     on EZeroDivide do
        ShowMessage('Can not divide by zero! ');
   end;
 end;
end.