formato_real, Pascal

Language: Layout:

program formato_real;

(* N:M ==> N posiciones en total - con M decimales             *)
(* si el número es más grande que la anchura indicada          *)
(* no se "parte" ... 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);
          (* el formato por defecto es 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');

end.

num := 56.789765 ;
    writeln(num);  
    writeln(num:4);  
    writeln(num:30);     
end.
*)

(* si se indica formato pero no decimales  *)
(* seutiliza notación exponencial          *)
(* pero lo más compacta posible            *)
(* intentando cumplir con lo especificado  *)
(* --------------------------------------- *)

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.08 sec, cpu time: 0.02 sec, memory peak: 3 Mb, absolute service time: 0,29 sec