Двойное «другое» утверждение на паскале

Question

Двойное «другое» утверждение на паскале

Я пытался перевести следующий код на Паскале на C ++, когда наткнулся на рассматриваемую конструкцию «else else». Я никогда не видел этого раньше, поэтому кто-нибудь может сказать мне, что он делает и каковы его 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;

4

c++pascal

Решение

Другие решения

Это довольно часто полезно использовать begin а также end пары, даже если они не требуются синтаксисом, просто чтобы сделать код более читабельным и понятным. (Думать о begin быть эквивалентом { а также end быть эквивалентом }; пока ты можешь писать for(int i = 0; i < 10; i++) SomeCode();обычно более понятно for(int i = 0; i < 10; i++) { SomeCode(); },

Так код, который вы разместили, с 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;

1

Это какое-то ужасное отступление. Если мы сделаем отступ лучше, мы увидим, что происходит:

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), но он пуст.

0

Источник

Accepted Answer

Я только что скопировал в редактор (например, Komodo, где вы можете выбрать Pascal в качестве языка для подсветки синтаксиса) и переформатировал текст, который вы написали так, чтобы я мог его прочитать сам.

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;

Тебе не кажется, что теперь это более понятно?

3