Question

关于pascal语言

程序：
begin
n:=a; a:=b; b:=n mod b;
end;
这个求最大公约数的谁能帮我解释下我实在看不懂这是怎么算的。。
谢谢了！！！

Answer 1

这个写的不够全面，不过算法思路是正确的
这是用的辗转相除法
例如
24和60的最大公约数是6
那么两数应该都是6的倍数
那么两数相除所得的余数也应该是6的倍数
即12为6的倍数

与这个一样
设a与b的最大公约数是k
a>b
那么a mod b也一定是k的整数倍
然后用循环算直到b=0,此时a的值就是k
不懂得地方可以问我，真诚的帮助你解决问题

Answer 2

这是辗转相除法，要递归的，你打错了，至于算法你要看看《初等数论》

Answer 3

不完整!

Answer 4

辗转相除法是求最大公约数最简单的方法，也是最烦的方法。
题目中这一步应放在while或repeat..until语句中。解释可以用F7一步一步推。
附我编的（我用a，b，r）：
var
a，b，r：integer；
begin
readln（a,b);
r:=a mod b;
while r<>0 do
begin
a:=b;
b:=r;
r:=a mod b;
end;
writeln(b);
end.
b就是最大公约数