Question

How to calculate the percentage of a percentage in Pascal

Answer 1

program PercentOfPercentProgram;

function PercentOfPercent(value, percent: Real): Real;
begin
    PercentOfPercent := value * (percent / 100.0);
end;

var
    a, b, result: Real;

begin
    a := 58;
    b := 17;

    result := PercentOfPercent(a, b);

    writeln(result:0:2);  { prints 9.86 with 2 decimal places }
end.



(*
run:

9.86

*)

 

70+ SQL courses for beginners and professionals