Question

How to use function overloading in Pascal

Answer 1

Program Example;
var 
    max_int: integer;
var
    max_real: Real;

function max(a, b: integer): integer; overload;
var
   result: integer;
begin
   if (a > b) then
      result := a
   else
      result := b;
   max := result;
end;

function max(a, b: Real): Real; overload;
var
   result: Real;
begin
   if (a > b) then
      result := a
   else
      result := b;
   max := result;
end;

begin
  max_int := max(849, 234);
  writeln(max_int);
  
  max_real := max(3.14, 4.378);
  writeln(max_real);
end.





(*
run:

849
 4.3780000000000001E+000

*)

 

70+ SQL courses for beginners and professionals