UC知道我在练习编程的时候出了错，谁能帮帮我？急！！！！
来源：百度知道 编辑：UC知道 时间：2024/06/02 05:00:56
设计的是求m与n的最大公因数，总是在最后一部出错，帮我看一下。
program ex4_3;
var
m,n,a,b,r,t:integer;
begin
write('input m,n');
readln(m,n);
begin
if m<n then
t:=m;
m:=n;
n:=t;
end;
a:=m;
b:=n;
r:=a mod b;
while r<>0 do
a:=b;
b:=r;
r:=a mod b;
end
writeln(the greatest common divide is:,'b);
end.
我用的是turbo pascal 语言，每次它都让我在倒数第2个end后加一个“.”这样做对吗？
program ex4_3;
var
m,n,a,b,r,t:integer;
begin
write('input m,n');
readln(m,n);
begin
if m<n then
t:=m;
m:=n;
n:=t;
end;
a:=m;
b:=n;
r:=a mod b;
while r<>0 do
a:=b;
b:=r;
r:=a mod b;
end
writeln(the greatest common divide is:,'b);
end.
我用的是turbo pascal 语言，每次它都让我在倒数第2个end后加一个“.”这样做对吗？
把while r<>0 do 这句改成while r<>0 do begin
然后在倒数第三行的end后面加“；”
还有个问题就是你writeln的括号里的输出有问题，应该是这样的
writeln(‘the greatest common divide is:’,b);
给你个建议啊，最好在所有end的后面都加上“；”，除了后面接else的，这样可以确保没有毛病
我觉得应该加 ；