funcion_imprimir

Esta es una vista previa del archivo. Inicie sesión para ver el archivo original

function []= funcion_imprimir(x1,x2,pi,xr,a,b,c)
R=b^2-4*a*c;
if (R>=0)
 fprintf(1,'Raices de la ecuacion:\n');
 fprintf(1,'x1= %6.1f\n',x1);
 fprintf(1,'x2= %6.1f\n',x2);
else
 fprintf(1,'Raices de la ecuacion:\n');
 fprintf(1,'x1= %5.1f+%5.1fi\n',xr,pi);
 fprintf(1,'x1= %5.1f-%5.1fi\n',xr,pi);
end
return