ITPub博客

首页 > Linux操作系统 > Linux操作系统 > PL/SQL 九九乘法表

PL/SQL 九九乘法表

原创 Linux操作系统 作者:benn_wpj 时间:2009-10-17 15:14:22 0 删除 编辑
declare
  x int;
  y varchar2(100);
begin
  for m in 1 .. 9 loop
    y := '';
    for n in 1 .. m loop
      x := m * n;
      y := y || ' ' || m || '*' || n || '=' || x;
    end loop;
    dbms_output.put_line(substr(y, 2));
  end loop;
end;
/


Begin
  DBMS_output.put_line('99table');
  For I in 1 .. 9 loop
    For J in 1 .. 9 loop
      If I >= J then
        DBMS_output.put(to_char(J) || '*' || to_char(I) || '=' ||
                        to_char(i * j) || '  ');
      End if;
    End loop;
    DBMS_output.put_line('');
  End loop;
End;

Begin
  DBMS_output.put_line('99table');
  For I in 1 .. 9 loop
    For J in 1 .. I loop
      DBMS_output.put(to_char(I) || '*' || to_char(J) || '=' ||
                      to_char(i * j) || '  ');
    End loop;
    DBMS_output.put_line('');
  End loop;
End;

declare
  i int;
  j int;
begin
  dbms_output.put_line('99table');
  for i in reverse 1 .. 9 loop
    for j in reverse 1 .. i loop
      dbms_output.put(i || '*' || j || '=' || i * j || ' ');
    end loop;
    dbms_output.put_line('');
  end loop;
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/13790829/viewspace-616783/,如需转载,请注明出处,否则将追究法律责任。

下一篇: exp-0026 error
请登录后发表评论 登录
全部评论

注册时间:2008-04-26

  • 博文量
    57
  • 访问量
    129238