简单的Delphi九九乘法表

话不多说,直接上代码

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

  var
      I,J,s,z : Integer;
begin
  try
      for I := 1 to 9 do
      begin
        for J := 1 to I do
        begin
          s := I*J;
          write(inttostr(J)+'x'+inttostr(I)+'='+inttostr(s)+#9);
        end;
        writeln('');
      end;
      readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

最后的结果: