Question

How to round to 2 decimal places in Pascal

Answer 1

program RoundToTwoDecimals;

var
  num, roundedNum: Double;

begin
  num := 123.4567;
  roundedNum := Round(num * 100) / 100; 
  
  WriteLn('Rounded: ', roundedNum:0:2); 
end.


  
(*
run:
  
Rounded: 123.46
  
*)  

 

70+ SQL courses for beginners and professionals

Answer 2

program RoundToTwoDecimals;

var
  num: Double;
  roundedStr: String;

begin
  num := 123.4567;
  Str(num:0:2, roundedStr);
  
  WriteLn('Rounded: ', roundedStr);
end.


  
(*
run:
  
Rounded: 123.46
  
*)  

 

70+ SQL courses for beginners and professionals