formato_real, Pascal

formato_real

program formato_real;

(* N:M ==> N posisiones en total con M decimales               *)
(* si el número es más grande que la anchura indicada,         *)
(* no se "parte", sino que se escribe completo.                *)
(* Si es menor, se rellena con espacios por la izquierda.      *)
(* Los decimales se redondean al número de posiciones indicado *)
 
var num: real;
begin
  num := 9234.56789;
  writeln('----x----x----x----x----x----x');
  writeln(num);
    (* La línea anterior lo escribe con el formato por defecto:
     exponencial *)
  writeln(num:15:3);  (* Con tres decimales *)
  writeln(num:8:2);   (* Con dos decimales *)
  writeln(num:4:1);   (* Con un decimal *)
  writeln(num:2:0);   (* Sin decimales *)
  writeln(num:12);     (* ¿Qué hará ahora? *)
  writeln(num:6);     
  writeln('----x----x----x----x----x----x');

num := 56.789765 ;
    writeln(num);  
    writeln(num:6);  
    writeln(num:30);     
end.

(* Si indicamos formato pero no decimales, *)
(* sigue usando notación exponencial, *)
(* pero lo más compacta que pueda, tratando de llegar al tamaño que le indicamos. *)


run \| edit \| history \| help	0