Код IT
← Каталог

Pascal / Free Pascal — типовые программы — 2.2. Процедура с параметром `var` (обмен значений)

Фрагмент из «Pascal / Free Pascal — типовые программы»: 2.2. Процедура с параметром `var` (обмен значений).

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program SwapDemo;

procedure Swap(var a, b: integer);
var
  t: integer;
begin
  t := a;
  a := b;
  b := t;
end;

var
  x, y: integer;

begin
  ReadLn(x, y);
  Swap(x, y);
  WriteLn(x, ' ', y);
end.
program SwapDemo;

procedure Swap(var a, b: integer);
var
  t: integer;
begin
  t := a;
  a := b;
  b := t;
end;

var
  x, y: integer;

begin
  ReadLn(x, y);
  Swap(x, y);
  WriteLn(x, ' ', y);
end.