发表于： 2008-10-11 09:52 | 显示全部 短消息 资料
字号： 小 中 大 1楼

pascal语言编程求解

问题：用pascal语言编写输出99乘法表


利用for循环：
Program jojo_dcg;
Var b,a,c:integer;
Begin
c:=0
for a:=1 to 9 do

begin

for b:=1 to i do
write(a,'*',b,'=',a*b:2,' ');
c:=c+1
if (c=1) or (c=3) or (c=6) or (c=10) or (c=15) or (c=21) or (c=28) or (c=36) or (c=45)
then writeln;
end;
readln;
end;
但是输出有错误
没有1*1 2*2 3*3 4*4 5*5 6*6 7*7 8*8 9*9
利用while循环：
Program jojo_dcg;
Var a,b,c:integer;
Begin
a:=a+1

While (a>=1) and (a<=9)

Begin

b:=b+1接下去
利用repeat循环
本人是初中生不要编写太专业谁可以帮我？

用户系统信息：Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
欢迎进入我的博客