我试图将以下Pascal代码翻译成C ++,当我偶然发现"否则"有问题的建筑。我之前从未见过这样的人,所以有人能告诉我它的作用以及它的C ++(或C)等价物吗?
Procedure Force(Q:Int64;V,K:Integer);
Var i,j,t:Integer;
begin
if K<=0 then
if (Q>=A)and(Q Mod KK =0)and(V>=S)and(V<=F)then Out:=Out+1 else else
For i:=0 to 9 do
if (Q+(i+1)*h[k-1]>=A)and(Q+i*h[k-1]<=B) then
if (Q+(i+1)*h[K-1]<B)and(Q+i*h[k-1]>=A) then
Begin
M:=(Q+i*h[k-1]) Mod KK;
For j:=0 to 9*(K-1) do
For t:=0 to KK-1 do
if D[K-1,j,t]>0 then
if (V+i+j>=S)and(V+i+j<=F)and((t+M) Mod KK=0) then
Out:=Out+D[K-1,j,t];
end else
if Odd(N-K+1) then Force(Q+i*h[k-1],V+i,K-1) else
Force(Q+i*h[k-1],V+i,K-1);
end;
答案 0 :(得分:3)
我刚刚复制到编辑器(例如Komodo,您可以选择Pascal作为语法颜色突出显示的语言)并重新格式化您自己编写的文本,我可以自己阅读。< / p>
procedure Force(Q:Int64;V,K:Integer);
var
i,j,t:Integer;
begin
if K<=0 then
if (Q>=A) and (Q Mod KK =0) and (V>=S) and (V<=F) then
Out:=Out+1
else
else
for i:=0 to 9 do begin
if (Q+(i+1)*h[k-1]>=A) and (Q+i*h[k-1] <= B) then
if (Q+(i+1)*h[K-1]<B) and (Q+i*h[k-1] >= A) then begin
M := (Q+i*h[k-1]) Mod KK;
for j:=0 to 9*(K-1) do begin
for t:=0 to KK-1 do begin
if D[K-1,j,t] > 0 then
if (V+i+j >= S) and (V+i+j <= F) and ((t+M) mod KK = 0) then
Out:=Out+D[K-1,j,t];
end; {for t}
end; {for j}
end else
if Odd(N-K+1) then
Force(Q+i*h[k-1],V+i,K-1)
else
Force(Q+i*h[k-1],V+i,K-1);
end;
end;
end;
你认为现在更容易理解吗?
答案 1 :(得分:1)
使用begin
和end
对非常有用,即使语法不需要它们,只是为了使代码更具可读性和可理解性。 (可以认为begin
相当于{
而end
相当于}
;虽然您可以写for(int i = 0; i < 10; i++) SomeCode();
,但通常更清楚地使用for(int i = 0; i < 10; i++) { SomeCode(); }
{1}}。
因此,您发布的代码会在适当时添加begin
和end
对,删除无操作else
或两个,更合适的格式似乎更易于阅读我
Procedure Force(Q: Int64; V, K: Integer);
Var
i, j, t: Integer;
begin
if K <= 0 then
begin
if (Q >= A) and (Q Mod KK = 0) and (V >= S) and (V <= F) then
Out := Out + 1;
end
else
begin
For i := 0 to 9 do
begin
if (Q + (i + 1) * h[K - 1] >= A) and (Q + i * h[K - 1] <= B) then
begin
if (Q + (i + 1) * h[K - 1] < B) and (Q + i * h[K - 1] >= A) then
begin
M := (Q + i * h[K - 1]) Mod KK;
For j := 0 to 9 * (K - 1) do
begin
For t := 0 to KK - 1 do
begin
if D[K - 1, j, t] > 0 then
begin
if (V + i + j >= S) and (V + i + j <= F) and
((t + M) Mod KK = 0) then
Out := Out + D[K - 1, j, t];
end;
end;
end;
end
else if Odd(N - K + 1) then
Force(Q + i * h[K - 1], V + i, K - 1)
else
Force(Q + i * h[K - 1], V + i, K - 1);
end;
end;
end;
end;
答案 2 :(得分:0)
这是一些可怕的缩进。如果我们更好地缩进它,我们可以看到发生了什么:
if K<=0 then
if (Q>=A)and(Q Mod KK =0)and(V>=S)and(V<=F) then
Out:=Out+1
else
else
For i:=0 to 9 do
此处,其他第一个适用于if (Q>=A)
,但它是空的。