cdf =Manipulate[Column[{ SuFunc[x, y]}],Style[proposito,Bold,10],Spacer[{100,3}],
 (*Inicio contadores *)
 {{x,0.1,"Valor x="},ControlType->InputField},{{y,0.2,"Aproximación (SuperStar[x])="},ControlType->InputField},
Button["OK",SuFunc[x, y]]
(* Fin contadores *)
,Alignment->Center,Deployed->True,AppearanceElements->"ResetButton",LocalizeVariables->True,ContinuousAction->False,FrameLabel->{{None,None},{Column[{,Row[{Style["Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada",Bold,10,RGBColor[0,0,0.5]]}],Row[{Style["Escuela de Informática | Universidad Nacional de Costa Rica",Bold,10,RGBColor[0.5,0.1,0]]}]},Center],Style["Título: Error absoluto y error relativo. ", Bold,14, RGBColor[0,0.33,0.33]]}},
Initialization:>(ClearAll["Global`*"];
(*($PreRead=(#/. s_String/;StringMatchQ[s,NumberString]&&Precision@ToExpression@s==MachinePrecision:>s<>"`12."&));*)
proposito ="Propósito: Calcula el error absoluto y el error relativo entre dos cantidades.\n Se indica además el número de dígitos de exactitud.";
SuFunc[x_, y_] := Module[{ea, er, de="Infinitos"}, 
ea = Abs[x-y];If[x≠0, er = Abs[x-y]/Abs[x],er= "Error. No se puede calcular el error relativo"]; 
TableForm[{"Error absoluto ="<>ToString@AccountingForm@ea, "Error relativo ="<>ToString@AccountingForm@er, "Número de dígitos de exactitud: "<>If[er==0, "Infinitos", ToString[If[Floor[-((Log[er/5])/(Log[10])) ]≥0, Floor[-((Log[er/5])/(Log[10])) ], 0]]]} 
]
  ];
SynchronousInitialization->False;
)]