请高手帮忙分析一下这段程序是什么意思
program gcd(input,output);
var r,n,m:Integer;
begin
readIn(m,n);{input data}
write(ˋ(ˋ,m,′,ˋ,n,′)=′);
while n>0 do
begin
r:=m mod n;
m:=n;
n:=r
end;
writeIn(m)
end
我是PASCAL初学者,这里的一段书上没有解释,请高手帮帮忙,每个语句和命令都代表什么涵义指点一下,最好在每一行后面注明一下,不胜感激,谢谢!
我也不太熟悉 我个人是怎么理解的
program gcd(input,output); //定义函数 gcd函数名 里面是2个参数
var r,n,m:Integer; //定义r n m 3个整型变量
begin
readIn(m,n);{input data} //接受收入的2个数字
write(ˋ(ˋ,m,′,ˋ,n,′)=′); //显示m= n=
while n>0 do //n>0 时
begin
r:=m mod n; // r = m 取模 n
m:=n; // m = n
n:=r // n = r
end;
writeIn(m) // 输出 m
end
不懂pascal 不知道对不对
估计是 贻笑大方了
：）
program gcd(input,output); //定义函数 gcd函数名 里面是2个参数
var r,n,m:Integer; //定义r n m 3个整型变量
begin
readIn(m,n);{input data} //接受收入的2个数字
write(ˋ(ˋ,m,′,ˋ,n,′)=′); //显示m= n=
while n>0 do //n>0 时
begin
r:=m mod n; // r = m 取模 n
m:=n; // m = n
n:=r // n = r
end;
writeIn(m) // 输出 m
end
不懂pascal 不知道对不对
估计是 贻笑大方了
：）
温馨提示：内容为网友见解，仅供参考
无其他回答
相似回答
