[代码]生成九九表的过程

九九乘法表的一个过程。

 procedure nine(n:integer);
var
  i, j: integer;
  line: string;
begin
  for i:=1 to n do
    begin
      //生成第i行
      line:='';
      //第i行共有i句口诀
      for j:=1 to i do
        begin
          line:=line+inttostr(j)+'×'+inttostr(i)+'='+inttostr(i*j)+'  ';
        end;
      //输出第i行
      form1.ListBox1.Items.Add(line);
    end;
end;
分享到: