关于pascal的一段99乘法表的写法~
本帖最后由 yuki58 于 2013-04-29 14:19:12 编辑 var i : integer;
begin
for i :=1 to 9 do begin
write(i, 'x1= ',i*1,' ':0);
end;
for i :=1 to 9 do begin
write(i, 'x2= ',i*2,' ':0);
end;
for i :=1 to 9 do begin
write(i, 'x3= ',i*3,' ':0);
end;
for i :=1 to 9 do begin
write(i, 'x4= ',i*4,' ':0);
end;
for i :=1 to 9 do begin
write(i, 'x5= ',i*5,' ':0);
end;
for i :=1 to 9 do begin
write(i, 'x6= ',i*6,' ':0);
end;
for i :=1 to 9 do begin
write(i, 'x7= ',i*7,' ':0);
end;
for i :=1 to 9 do begin
write(i, 'x8= ',i*8,' ':0);
end;
for i :=1 to 9 do begin
write(i, 'x9= ',i*9,' ':0);
end;
end.


请高手赐教~~
上面的代码显示结果之后，格式不对齐的~是否有问题

[解决办法]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i : integer;
  s: string;
begin
  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx1=%2d   ',[i, i*1]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx2=%2d   ',[i, i*2]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx3=%2d  ',[i, i*3]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx4=%2d   ',[i, i*4]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx5=%2d   ',[i, i*5]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx6=%2d   ',[i, i*6]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx7=%2d   ',[i, i*7]); 
 
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx8=%2d   ',[i, i*8]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx9=%2d   ',[i, i*9]);
  end;
  write(s+#13);

  readln;
end.