½Ð°Ý¦U¦ì°ª¤âpascal°ÝÃD...

[再說吧~~~~]

program ex9_9;
var
x,y:integer;
x=1,y=1;
while x<=9 do
begin
while y<=9 do
begin
x*y
writeln(x,'*',y,'=',x*y);
y++
end
x++
end
我想寫一個99乘法表....不知降寫對不對啊???

謝謝!!!

--
[0;1;40;33m ◢ [37m█ [40;31m◣ [0;32;42m▏ [40m◤ [1;37m█ [36m◣ [32m ◆ [1;33;41m未來 [32;44m最舊 [33;40m小棧 Oldest Future Object
[1;33m█ [0;30;47m● [40;32m▇█ [42;30m▁ [47m˙ [1;36m█ [40;33m ◆ [37m通訊頻率 [4;1;33mO [32mf [36mO [37m.twbbs.org [m
[0;33m◥ [1;30m█ [0;40;32m◢▉ [1;34m◥ [30m█ [0;36m◤ ◆ [37m來源座標 [1;30mtoast.Dorm12.NCTU.edu.tw [m

[Tea Lover]

[36m※ 引述《toas...@OfO.twbbs.org (再說吧~~~~)》之銘言： [m

> program ex9_9;
> var
> x,y:integer;
> x=1,y=1;

x:= 1; y:= 1;

> while x<=9 do
> begin
> while y<=9 do
> begin
> x*y

^^^ it's not necessary.

> writeln(x,'*',y,'=',x*y);

^^^^^^^^^^^^^^^^^^^^^^^^^
I think you have to do typecasting first, but I'm not so sure.
If it is the case, use IntToStr(x) instead.

> y++
y:= y+1; or inc(y);

> end
> x++
x:= x+1; or inc(x);

> end
> 我想寫一個99乘法表....不知降寫對不對啊???
> 謝謝!!!
--
[1;33mo [31mR [35mi [36mg [37mi [34mN [31m: [36m成 [37m大 [32m資 [33m工 [36mB [31mB [37mS [35m站 [37m(140.116.247.7) [m
[1;31m＠ [m [37mbbs.csie.ncku.edu.tw [1;35mFrOm [37m: [m48.c2.ethome.net.tw