谁可以帮我把下面的程序转化为plsql程序,着急,多谢

qinhl99 2008-03-27 09:29:30
static void Main(string[] args)
{
//
// TODO: 在此处添加代码以启动应用程序
//
int a=10000000,b=0,c=2800000,d=0,e=0,g=0;
int[] f = new int[2800001];
int i = 0;
for(i=0;i<c;i++)
f[i]=a/5;
while(c!=0)
{
d=0;
g=c*2;
b=c;
while(true)
{
d=d+f[b]*a;
g--;
f[b]=d%g;
d=d/g;
g--;
b--;
if(b==0) break;
d=d*b;
}
c=c-14;
Console.Write(e+d/a);
e=d%a;
}
}
...全文
50 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
hlsust1 2008-03-27
  • 打赏
  • 举报
回复
a number(38) := 10000000;
b number(38) := 0;
c number(38) := 2800000;
d number(38) := 0;
e number(38) := 0;
g number(38) := 0;
temp number(38,38) := 0;
i number(38) :=0;
TYPE NUMBERArrayTyp IS TABLE OF NUMBER(39) ;
f NUMBERArrayTyp;
begin
i := 1;
f := NUMBERArrayTyp();
f.extend(c + 1);
while i < c
loop
f(i) := a/5;
end loop ;

while c != 0
loop
d := 0;
g := c * 2;
b := c;
while true
loop
d := d + f(b) * a;
g := g -1;
f(b) := mod(d,g);
d := d/g;
g := g -1;
b := b -1;
if(b=0) then
exit;
end if;
d := d * b;
end loop ;
c := c-14;

temp := e + d/a;
dbms_output.put_line(temp);
e := mod(d,a);
end loop;
end;

17,086

社区成员

发帖
与我相关
我的任务
社区描述
Oracle开发相关技术讨论
社区管理员
  • 开发
  • Lucifer三思而后行
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧