Question

How to calculate the percentage change between two values in Pascal

Answer 1

program PercentageChange;

function PercentageChange(oldValue, newValue: Real): Real;
begin
  if oldValue = 0.0 then
    PercentageChange := 0.0   { or handle error differently }
  else
    PercentageChange := ((newValue - oldValue) / oldValue) * 100.0;
end;

var
  oldValue, newValue, change: Real;

begin
  oldValue := 45.0;
  newValue := 57.0;

  change := PercentageChange(oldValue, newValue);

  writeln('Percentage change: ', change:0:2, '%');
end.





(*
run:

Percentage change: 26.67%

*)

 

70+ SQL courses for beginners and professionals