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

TestSamples/CompilationSamples/SwapT.pas

23 строки433 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ���������� �������
// ��������� ���� 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.