注册 登陆
浏览模式: 标准 | 列表 分类: DELPHI

9 to 1的Delphi代码

Written by 小锋 on 07-03-10 5:45 AM

代码:
program Project1;
{$APPTYPE CONSOLE}
var i,n:integer;
begin
  for i:=9 downto 1 do
    begin
      for n:=1 to i do
      write(i*n:3);
    writeln;
    end;
   readln;
end.

点击在新窗口中浏览此图片

Filed under: DELPHI 0 Comments 4668 Views

1 to 9的Delphi代码

Written by 小锋 on 07-03-10 5:41 AM

代码:
program Project1;
{$APPTYPE CONSOLE}
var i,n:integer;
begin
  for i:=1 to 9 do
    begin
      for n:=1 to i do
      write(i*n:3);
    writeln;
    end;
   readln;
end.

点击在新窗口中浏览此图片
9 to 1的如下图
点击在新窗口中浏览此图片

Tags: Delphi

Filed under: DELPHI 0 Comments 5273 Views

Total:192« First‹ Prev1314151617181920