1.說明x,y,d及gcd為整數變量
2.讀取整數並把它們分別放入x及y
3.把1放入變量d
4.當d不等於0時.重複第5-6步
5.把x-y的值放入d
6.當x大過y
就把y的值代入x
把d的值代入y
否則把x的值代入y
把d的值代入x
7.當x大過y
把x的值代入gcd
否則把y的值代入gcd
顯示gcd的值
就係咁多...
我寫到咁:
program abc;
uses wincrt;
var x,y,d,gcd:integer;
begin
readln(x,y);
d:=1;
while d<>0 do
begin
d:=x-y;
if x>y then
x:=y;
y:=d;
else y:=x; <<<錯左..有咩錯?!
x:=d
end;
if x>y then
gcd:=x
else gcd:=y
writeln(gcd);
end.
唔知有咩錯- -