Вызов по результату Пример

Question

Есть ли подходящий пример для объяснения вызова по результату? (не псевдокод)

Я узнал, что АЛГОЛ 68, Ада мог использовать этот способ,
, но я не могу найти четкого примера вызова по результату.

Answer 1

Я только что сделал сам.

псевдокод

begin 
integer n; 
procedure p(k: integer); 
    begin 
    n := n+1; 
    k := k+4; 
    print(n); 
    end; 
n := 0; 
p(n); 
print(n); 
end; 

Реализовать с помощью языке Ада

call.adb

with Gnat.Io; use Gnat.Io; 

procedure call is 
x : Integer; 
Procedure NonSense (A: in out integer) is 
begin 
    x := x + 1; 
    A := A + 4; 
    Put(x); 
end NonSense; 

begin 
    x := 0; 
    NonSense (x); 
    Put(" "); 
    Put(x); 
    New_Line; 
end call; 

Так как Ada использует вызов по пути результата, результат должен быть 1 4. (Это можно проверить, введя этот код в онлайн-компилятор Ada «http://www.tutorialspoint.com/compile_ada_online.php»)

И другой результат применяются различные типы передачи параметров должны быть ...
вызова по значению: 1 1
вызова по ссылке: 5 5
(сравнить> Вызов по значению-результату: 1 4)