翻译程序。c++翻成Pascal

[复制链接]
查看11 | 回复1 | 2010-8-27 23:08:22 | 显示全部楼层 |阅读模式
#include
#include
int c[4][4],f[4][4];
bool b[4];
int ans;
void init()
{

int a,b;

scanf("%d%d",&a,&b);

c[0][1]=a;c[1][3]=a;

c[0][2]=b;c[2][3]=b;
}
bool find(int x)
{

if(x==3)return true;

for(int i=0;i<4;i++)

{

if(f[x]<c[x]&&!b)

{

b=true;

if(find(i))

{

f[x]++;f[x]--;

return true;

}

}

}

return false;
}
void process()
{

ans=0;

memset(b,false,sizeof(b));

b[0]=true;

while(find(0))

{

memset(b,false,sizeof(b));

b[0]=true;

ans++;

}
}
int main()
{

freopen("a.in","r",stdin);

freopen("a.out","w",stdout);

init();

process();

printf("%d\n",ans);
}
是网络流做a+b的
麻烦大牛们帮我翻译下
要是有Pascal的程序直接贴上来也行

回复

使用道具 举报

千问 | 2010-8-27 23:08:22 | 显示全部楼层
给你翻译了~~ 给分吧~~varc,f:array[1..4,1..4] of integer;b:array[1..4] of boolean;ans:integer;procedure init;var a,b:integer;begin readln(a,b); c[1,2]:=a;c[2,4]:=a; c[1,3]:=b;c[3,4]:=b;end;function find(x:integer):boolean;var i:integer;begin if x=4 then
begin
find:=true;
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行