爲什麼這個程序中的函數重複？帕斯卡爾

Question

作出了一個程序尋找最大公約數，但由於某種原因該函數重複。

var p,q:integer; 
function nod(x,y: integer):integer; 
begin 
while y<>0 do nod(y,x mod y); 
result:=x; 
end; 
begin 
write('Enter two integers: '); 
read(p,q); 
write(nod(p,q)); 
end. 

Answer 1

您沒有更新y變量，循環也不會結束。

可能：

var p,q:integer; 
function nod(x,y: integer):integer; 
begin 
while y<>0 do 
    begin 
    y:= nod(y,x mod y); 
    end; 
result:=x; 
end; 
begin 
write('Enter two integers: '); 
read(p,q); 
write(nod(p,q)); 
end.