Question

求大神把c++代码转换成pascal，在线等，急啊

bool TestFirstLine(int nStatus) //test the first line
{
int i = 0;
while( i < g_Width)
{
if(nStatus & (0x1 << i))
{
if( i == g_Width -1 || (nStatus & (0x1 << (i+1))) == 0)
{
return false;
}
i += 2;
}
else
{ i++; }
}
return true; }
bool CompatablityTest(int nStatusA, int nStatusB) // test if status (i, nStatusA) and (i-1, nStatusB) is compatable.
{ int i = 0;
while( i < g_Width)
{ if( (nStatusA & (0x1 << i)) == 0)
{ if((nStatusB & (0x1 << i)) == 0)
{ return false; }
i++; ｝
else
{ if((nStatusB & (0x1 << i)) == 0 )
{ i++;
}
else if( (i == g_Width - 1) || ! ( (nStatusA & (0x1 << (i+1))) && (nStatusB & (0x1 << (i + 1)))) )
{
return false;
}
else
{
i += 2;
}
}
}
return true;
}
int main()
{
int i,j;
int k;
while(scanf("%d%d", &g_Height, &g_Width) != EOF )
{
if(g_Width == 0 && g_Height == 0)
{
break;
}

if(g_Width > g_Height)
{
swap(g_Width, g_Height);
}
int nAllStatus = 2 << (g_Width-1);
memset(DP, 0, sizeof(DP));
for( j = 0; j < nAllStatus; j++)
{
if(TestFirstLine(j))
{
DP[0][j] = 1;
}
}

for( i = 1; i < g_Height; i++)
{
for( j = 0; j < nAllStatus; j++)// iterate all status for line i
{
for( k = 0; k < nAllStatus; k++) // iterate all status for line i-1
{
if(CompatablityTest(j, k))
{
DP[i][j] += DP[i-1][k];
}
}
}
}
printf("%lld\n", DP[g_Height-1][nAllStatus - 1]);
}
return 0;
}

Answer 1

这个代码不完整，没法转化

Answer 2

var
c,y,week,year,month,day:longint;
begin
read(year,month,day);
if(month=1)or(month=2) then
begin
year:=year-1;
month:=month+12;
end;
c:=year div 100;
y:=year-c*100;
week:=(c div 4)-2*c+(y+y div 4)+(13*(month+1)div 5)+day-1;
while(week<0)do week:=week+7;
week:=week mod 7;
case week of
1: begin writeln('Monday'); end;
2: begin writeln('Tuesday'); end;
3: begin writeln('Wednesday'); end;
4: begin writeln('Thursday'); end;
5: begin writeln('Friday'); end;
6: begin writeln('Saturday'); end;
0: begin writeln('Sunday'); end;
end;
end.

Answer 3

脑子有问题