简单的Delphi九九乘法表

话不多说,直接上代码

[code]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.

最后的结果:

• 点赞
• 收藏
• 分享
• 文章举报