https://www.runoob.com/cprogramming/c-exercise-example8.html

题目：输出9*9口诀。

程序分析：分行与列考虑，共 9 行 9 列，i 控制行，j 控制列。

程序源代码：

实例
// Created by www.runoob.com on 15/11/9.
// Copyright © 2015年 菜鸟教程. All rights reserved.
//

include<stdio.h>

int main()
{
int i,j,result;
printf("\n");
for (i=1;i<10;i++)
{
for(j=1;j<=i;j++)
{
result=ij;
printf("%d%d=%-3d",i,j,result); /-3d表示左对齐，占3位/
}
printf("\n"); /每一行后换行/
}
}
以上实例输出结果为：

11=1
21=2 22=4
31=3 32=6 33=9
41=4 42=8 43=12 44=16
51=5 52=10 53=15 54=20 55=25
61=6 62=12 63=18 64=24 65=30 66=36
71=7 72=14 73=21 74=28 75=35 76=42 77=49
81=8 82=16 83=24 84=32 85=40 86=48 87=56 88=64
91=9 92=18 93=27 94=36 95=45 96=54 97=63 98=72 9*9=81

procedure TForm1.Button1Click(Sender: TObject);

 var
i,j:integer;
a:string;
begin
       a:='';            //字符串初始化为空
       for i := 1 to 9 do     //行数i
   begin
           for j := 1 to i do   //列数j

            begin

              a:=a+inttostr(i)+'*'+inttostr(j)+'='+inttostr(i*j)+'       ';


            end;

          memo1.lines.add(a) ;
          a:='';
  end;

end;

{
var
i,j:integer;
str1:string;
begin
memo1.Clear;
memo1.Lines.add(' 九九乘法表 ');
memo1.Lines.add(' ');
 str1:=' ';
for i:=1 to 9 do
begin
for j:=1 to i do
begin
str1:=str1+inttostr(i)+'*'+inttostr(j)+'='+inttostr(i*j)+' ';
//表达示输出
end;
memo1.lines.Add(str1);//输出显示
str1:='';
end;
end;
}