static int Data[] = {-1,-2,1,2,3,4};
static Total=0;
Doit(int * Data,int len)
{
if(len>0)
{
Total+=*Data;
printf("%d\n",Total);
Doit(Data+1,len-1);Total-=(*Data)*2;
printf("%d\n",Total);
Doit(Data+1,len-1);Total+=*Data;
Doit(Data+1,len-1);
}
}
static Total=0;
Doit(int * Data,int len)
{
if(len>0)
{
Total+=*Data;
printf("%d\n",Total);
Doit(Data+1,len-1);Total-=(*Data)*2;
printf("%d\n",Total);
Doit(Data+1,len-1);Total+=*Data;
Doit(Data+1,len-1);
}
}
解决方案 »
- 关于安装MSCOMM控件出现的问题有人知道吗?
- 如何让一个TPanel控件在运行期可以拖拽.
- 想开发输入法用DELPHI开发好吗?大家都用什么开发?
- 如何让函数带上可选常数?
- 怎么回事?急死人了!!!!在线等
- 用QReport怎么做出像Word中的表格来?
- 请教:我把Clientdataset的Active设为True时出现提示:BOF或EOF中有一个是"真",或者当前的记录已经被删除,所需的操作要求一个当前的记录.
- 关于指针的问题:
- 一个有些白的问题
- SQL Server 高手请进,救人一命,胜造七级浮土!!!
- 如何在Gina中用WlxMessageBox将字符显示在application desktop下?
- 急!!!excel导入的问题!!!
Data: array[0..5] of Integer = (-1,-2,1,2,3, 4); // 名字还是不要取一样的
Total:Integer = 0;procedure Doit(Data: PInteger; len: Integer);
var
pData: PInteger;
begin
pData := nil;
if (len > 0)
begin
Inc(Total, Data^);
WriteLn(Total);
pData := Data;
Inc(pData);
Doit(pData, len - 1); Dec(Total, Data^ * 2);
WriteLn(Total);
pData := Data;
Inc(pData);
Doit(pData, len - 1); Inc(Total, Data^);
pData := Data;
Inc(pData);
Doit(pData, len - 1);
end;
end;
你有没有编译调译过啦?