| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 765 人关注过本帖
标题:vc和pascal转化问题
只看楼主 加入收藏
gysh337
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-2-6
收藏
 问题点数:0 回复次数:4 
vc和pascal转化问题

这段时间一直再看组合算法,其程序是用pascal写的,我转换成VC之后,怎么都运行不了,麻烦大家帮我看看,谢谢了。
以下是pascal程序:
Procedure make(lev:byte);
Var I,j,t:integer;
Lltype,ltype:整型数组;
Begin
For i:=1 to n do
For j:=1 to m do
If b[i,j]=1 then
Begin
For t:=1 to n do if b[t,j]=1 then b[t,j]:=-lev;
For t:=1 to n do if b[i,t]=1 then b[t,j]:=-lev;
Make(lev+1);
Lltype=ltype;
For t:=1 to n do if b[t,j]= -lev then b[t,j]:=1;
For t:=1 to n do if b[i,t]= -lev then b[t,j]:=1;
b[i,j]= -lev;
make(lev+1);
for t:=s downto 1 do ltype[t]=ltype[t]+lltype[t];
exit;
end;
fillchar(l,sizeof(l),0); l[0]:=1;
end;

以下是vc程序:
void make(int lev)
{
int i,j,t;
int lltype[10];
for(t=0;t<10;t++)
{
ltype[t]=0;
lltype[t]=0;
}

for(i=0;i<N1;i++)
for(j=0;j<N2;j++)

if(chess1[i][j]=='1')
{
for(t=i;t<N1;t++)
if(chess1[t][j]=='1')
chess1[t][j]='3';

for(t=j+1;t<N2;t++)
if(chess1[i][t]=='1')
chess1[i][t]='3';

make(lev+1);
for(int tt=0;tt<min;tt++)
lltype[tt]=ltype[tt];

for(t=i;t<N1;t++)
if(chess1[t][j]=='3')
chess1[t][j]='1';

for(t=j+1;t<N2;t++)
if(chess1[i][t]=='3')
chess1[i][t]='1';

chess1[i][j]='3';

make(lev+1);

chess1[i][j]='1';

for(t=min;t>=1;t--)
{
ltype[t]=ltype[t]+lltype[t-1];
}
}
else ltype[0]=1;
}

[此贴子已经被作者于2006-12-22 22:17:21编辑过]

搜索更多相关主题的帖子: pascal lev For ltype 整型 
2006-12-22 21:53
maoguoqing
Rank: 6Rank: 6
来 自:重庆
等 级:贵宾
威 望:28
帖 子:2980
专家分:19
注 册:2005-12-5
收藏
得分:0 
几年没写过pascal 程序了,你把c++的程序帖出来看看吧。

天行健,君子以自强不息!!QQ:68660681
2006-12-23 00:28
gysh337
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-2-6
收藏
得分:0 

我的VC程序已经帖在pascal程序之后了,麻烦您帮我看看,谢谢了。

2006-12-23 09:47
maoguoqing
Rank: 6Rank: 6
来 自:重庆
等 级:贵宾
威 望:28
帖 子:2980
专家分:19
注 册:2005-12-5
收藏
得分:0 

你的main()呢?


天行健,君子以自强不息!!QQ:68660681
2006-12-23 11:35
gysh337
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-2-6
收藏
得分:0 
用vc编的,主函数里只有:make(1)
2006-12-26 17:27
快速回复:vc和pascal转化问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042938 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved