Redondeo Y Truncado

Redondeo y Truncado

Redondeo (ROUND)

Truncado (TRUNC)

CÓDIGO

Program Redondeo_y_Truncado; Uses Crt; Var Truncado,Redondeado:Integer; Num1:Real; Begin ClrScr; WriteLn('Ingrese un numero con DECIMALES'); ReadLn(Num1); WriteLn; Redondeado:=Round(Num1); Truncado:=Trunc(Num1); WriteLn('El numero Redondeandolo es :',Redondeado); WriteLn('El numero Trucanandolo es :',Truncado); WriteLn; WriteLn('Oprime Enter p/Salir'); ReadLn; End.