21 lines
282 B
ObjectPascal
21 lines
282 B
ObjectPascal
// Перегрузка имен подпрограмм
|
|
procedure proc(i: integer);
|
|
begin
|
|
Println('integer');
|
|
end;
|
|
|
|
procedure proc(c: char);
|
|
begin
|
|
Println('char');
|
|
end;
|
|
|
|
procedure proc(r: real);
|
|
begin
|
|
Println('real');
|
|
end;
|
|
|
|
begin
|
|
proc(1);
|
|
proc(2.5);
|
|
proc('d');
|
|
end. |