9-9.pas

关于课件 好多种结构的算法 等等 大家自己看吧

PROGRAM P99table(INPUT,OUTPUT);
  VAR  a,b,c:integer;
  BEGIN
    write(1:9);
    FOR a:=2 to 9 do
      write(a:8);
    writeln;
    FOR a:=1 to 9 do
      Begin
        write(a);
        for b:=1 to 9 do
          begin
            c:=a*b;
            write(a:2,'*',b:2,'=',c:2)
          end;
        writeln
      end;
  END.