procedure swap ( var x : real, var y : real )
var temp : real
temp := x
x := y
y := temp
end swap
%%%%% Main Program to test swap() procedure %%%%%
var x, y : real
put "Real number #1: " ..
get x
put "Real number #2: " ..
get y
put "Original values : ", x," & ", y
swap(x,y)
put "Swapped values : ", x," & ", y
Comments (0)
You don't have permission to comment on this page.