subroutine swap(a, b)
integer, intent(inout) :: a, b
integer :: temp
temp = a
a = b
b = temp
end subroutine swap
procedure swap(a, b: in out Integer)
is
temp : Integer;
begin
temp := a;
a := b;
b := temp;
end swap;
IDENTIFICATION DIVISION.
PROGRAM-ID. swap.
PROCEDURE DIVISION.
MOVE a TO temp
MOVE b TO a
MOVE temp TO b
STOP RUN.
var tmp = a;
a = b;
b = tmp;
auto temp = a;
a = b;
b = temp;
var tmp = a;
a = b;
b = tmp;
fun1(A, B) ->
do:something(),
fun2(B, A).
fun2(A, B) ->
now(A, is, B),
and(B, is, A),
keep:moving().
var tmp = a;
a = b;
b = tmp;
T tmp = a;
a = b;
b = tmp;
__typeof(a) _temp=a; a=b; b=_temp;
$tmp = $a;
$a = $b;
$b = $tmp;
list($b, $a ) = [ $a, $b ];
tmp := a;
a := b;
b := tmp;
a =int(input("enter a number"))
b =int(input("enter b number"))
a, b = b, a
print("Value of a:", a)
print("Value of a", b)
std::mem::swap(&mut a, &mut b);
val tmp = a
a = b
b = tmp
(define (swap a b)
(list b a))
[| temp | temp := a. a := b. b := temp] value
Sub Swap(Of T)(ByRef a As T, ByRef b As T)
Dim tmp as T
tmp = a
a = b
b = tmp
End Sub