Одна процедура вместо трёх.

[Wild_klas]

Добрый вечер. Моя задача:
Описати процедуру Swap(X, Y), що змінює вміст перемінних
X і Y (X і Y - дійсні параметри, що є одночасно вхідними і вихідними).
З її допомогою для даних перемінних A, B, C, D послідовно поміняти вміст
наступних пар: A і B, C і D, B і C і вивести нові значення A, B, C, D.}
Я её, то решил, но не совсем так как нужно.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Procedure Swap3(a,b:integer);
  Var x:integer;
Begin
    Write('A = ');
    Readln(a);
    Write('B = ');
    Readln(b);
    x:=a;
    a:=b;
    b:=x;
    Writeln ('A = ',a,'B = ',b);
end;
Procedure Swap2(c,d:integer);
 Var x:integer;
begin
   Write('C = ');
   Readln(c);
   Write('D = ');
   Readln(d);
   x:=c;
   c:=d;
   d:=x;
   writeln ('C = ',c,'D = ',d);
End;

Procedure Swap1(b,c:integer);
Var x:integer;
begin
   Write('B = ');
   Readln(b);
   Write('C = ');
   Readln(c);
   x:=b;
   b:=c;
   c:=x;
   writeln ('B = ',b,'C = ',c);
end;
 Var a,b,c,d,x:integer;
begin
   swap3(a,b);
   Writeln('__________');
   swap2 (c,d);
   Writeln('__________');
   swap1 (b,c);
   Writeln('__________');
   readln;
end.

Мне нужно чтобы была 1 процедура, её 3 раза вызывать, и через неё менять числа. Подскажите пожалуйста, как это сделать?

[Somebody]

procedure Swap(var a, b: Integer);
var
    x: Integer;
begin
    x := a;
    a := b;
    b := x;
end;

[Wild_klas]

Somebody, я написал, не работает, мб что не так, глянь пожалуйста:
program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils;

procedure Swap(var a, b: Integer);
var
    x: Integer;
begin
    x := a;
    a := b;
    b := x;
end;
procedure Swap(var b, c: Integer);
var
    x: Integer;
begin
    x := b;
    b := c;
    c := x;
end;
procedure Swap(var d, c: Integer);
var
    x: Integer;
begin
    x := d;
    d := c;
    c := x;
end;
Var a,b,c,d,x:integer;
Begin
 Swap(a,b);
 Swap(b,c);
 Swap(d,c);
End

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Somebody]

Так на фига три Swap'а?! Может, лучше в книжке про процедуры/функции перечитать?

[Levsha100]

Если бы в паскале и существовал полиморфизм, то ваш исходниквсе равно бы не скомпилился.

Levsha100, то вообще то Делфи, и полиморфизм в ней есть

Точно, не заметил директиву препроцессора и подключение стандартного для паскаля модуля, но все равно нескомпилицо)

[Пепел Феникса]

Levsha100, то вообще то Делфи, и полиморфизм в ней есть

[Arigato]

Вы бы для начала удосужились бы текст задания на русский перевести.
Но это так, общее замечание, которое Вам уже не поможет.

[Wild_klas]

Вот, пожалуйста на русском, извините, забыл перевести
Описать процедуру Swap (X, Y), что изменяет содержимое переменных
X и Y (X и Y - вещественные параметры, являющиеся одновременно входными и выходными).
С ее помощью для данных переменных A, B, C, D последовательно поменять содержимое
следующих пар: A и B, C и D, B и C и вывести новые значения A, B, C, D.
Somebody, хорошо перечитаю, спасибо за совет.

Ув. Модератор, извините, больше такого не повториться. правила перечитал уже.

[Arigato]

И так, процедура Swap описана, однако она реализована для целочисленных переменных. Меняйте тип на вещественный. И уберите эти 3 копии одной и той же процедуры...

[Wild_klas]

Сообщение от Arigato

И так, процедура Swap описана, однако она реализована для целочисленных переменных. Меняйте тип на вещественный. И уберите эти 3 копии одной и той же процедуры...

Так я у вас и пытаюсь узнать, как не 3 процедуры сделать, а 1 процедуру и через неё сделать три действия. Увы в книге я этого не нашол..