tp1ej3

{ 3) Hallar para los siguientes valores de A: 2.6, 2.1, -3.2, -3.7, el resultado de:
    TRUNC(A) y ROUND(A)
}
program tpej3;
var
n1,n2,n3,n4:real;
begin
n1:=2.6;
n2:=2.1;
n3:=-3.2;
n4:=-3.7;
writeln ();
writeln (n1:10:2);  //:10:2 para que se vean 2 decimales despues de la coma
writeln ('TRUNC: ',TRUNC(n1),' - ROUND: ',ROUND(n1));
writeln ();
writeln (n2:10:2);
writeln ('TRUNC: ',TRUNC(n2),' - ROUND: ',ROUND(n2));
writeln ();
writeln (n3:10:2);
writeln ('TRUNC: ',TRUNC(n3),' - ROUND: ',ROUND(n3));
writeln (n4:10:2);
writeln ('TRUNC: ',TRUNC(n4),' - ROUND: ',ROUND(n4));
writeln ();
readln();
end.