这个程序为什么我无论输入什么值，都返回no solution？

摇摆兔

1. PROGRAM EX2;
   
2. VAR A,B,RHS:INTEGER;VAR X,Y:INTEGER;
   
3. VAR EXISTENCE:BOOLEAN;
   
4. PROCEDURE EXT_EUCLIDEAN(M,N:INTEGER;VAR X,Y:INTEGER);
   
5. VAR R,Q:INTEGER;VAR C,D:INTEGER;
   
6. BEGIN
   
7. IF N=0 THEN BEGIN
   
8. EXISTENCE:=M DIV RHS=0;
   
9. X:=RHS DIV M;Y:=0;
   
10. EXIT();
    
11. END ELSE BEGIN
    
12. R:=M MOD N;Q:=M DIV N;EXT_EUCLIDEAN(N,R,X,Y);
    
13. END;
    
14. C:=Y;D:=X-Q*Y;
    
15. X:=C;Y:=D;
    
16. END;
    
17. PROCEDURE SWAP(VAR C,D:INTEGER);
    
18. VAR INTERMED:INTEGER;
    
19. BEGIN
    
20. IF D>C THEN BEGIN
    
21. INTERMED:=C;C:=D;D:=INTERMED;
    
22. END;
    
23. END;
    
24. BEGIN
    
25. READLN(A,B,RHS);SWAP(A,B);
    
26. EXT_EUCLIDEAN(A,B,X,Y);
    
27. IF EXISTENCE=FALSE THEN WRITELN('NO SOLUTION') ELSE WRITELN(X,Y);
    
28. END.

复制代码

snb

算式写的太复杂，看不懂

crshen

看起来好累，建议代码格式化一下。
第8行 EXISTENCE:=M DIV RHS=0;