(   ______________315

         ,  -
-     (,     -
     )  ..   -
^L  ,         -
^      .  -
^    catch   ,      -
^   , ..      -
^    .
^              
^  15.        
^   (. . 4.6).

^                            4.6.   

^ EDivByZero               
^ EIntOverflow             
^1 EZeroDivide             
^ EOverflow                  

'^ EOutOfMemory        He     
^f                       

^ EConvertError            StrToInt, StrTo Float  .

^       .     -
^i     Editi  Edit2,     -
^R    float.       . 
^J    :      ,  -
^^R    ,     ,   -
^   ,         flo-
^J at.      :

^^     = StrToFloat(Editl->Text) / StrToFloat(Edit2->Text) ;

^^B    catch(EConvertError&l

^^K     Application->MessageBox("   ",
^^1|                            " ",_) ;

^^^   catch(EZeroDivides)

^^    Application->MessageBox("  ",
^^                            " ",_) ;

^^R   catch(EOverflows)

^^^    Application->MessageBox("",
^^J                            " ",_) ;

^^    if (StrToFloat(Editl->Text) * StrToFloat(Edit2->Text) >= 0)

^R    else A = -3.4E38;