n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/Overload.pas

21 строка254 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ���������� ���� �����������
procedure proc(i: integer);
begin
  writeln('integer');
end;

procedure proc(c: char);
begin
  writeln('char');
end;

procedure proc(r: real);
begin
  writeln('real');
end;

begin
  proc(1);
  proc(2.5);
  proc('d');
end.