切換到寬版
  • 1443閱讀
  • 0回復

冇人理我嗎?電腦. [複製鏈接]

上一主題 下一主題
離線倚天之劍
 
發帖
2465
icash
93
威望
819
只看樓主 倒序閱讀 使用道具 樓主   發表於: 2009-03-18
— 本帖被 chy2003 從 家 課 交 流 移動到本區(2009-10-31) —
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.
唔知有咩錯- -