23 lines
433 B
ObjectPascal
23 lines
433 B
ObjectPascal
// Îáîáùåííûå ôóíêöèè
|
|
// Âûâåäåíèå òèïà T ïî òèïàì ïàðàìåòðîâ
|
|
|
|
procedure Swap<T>(var a,b: T);
|
|
begin
|
|
var v := a;
|
|
a := b;
|
|
b := v;
|
|
end;
|
|
|
|
begin
|
|
var a := 2;
|
|
var b := 3;
|
|
writelnFormat('Äî Swap a={0}, b={1}',a,b);
|
|
Swap(a,b);
|
|
writelnFormat('Ïîñëå Swap a={0}, b={1}',a,b);
|
|
var c := 2.5;
|
|
var d := 3.3;
|
|
writeln;
|
|
writelnFormat('Äî Swap c={0}, d={1}',c,d);
|
|
Swap(c,d);
|
|
writelnFormat('Ïîñëå Swap c={0}, d={1}',c,d);
|
|
end. |