Перевод с паскаля на VBA

@ilyashis · Регистрация: 08.12.2011

Author24 — интернет-сервис помощи студентам

Помогите первести с паскаля на VBA

Pascal

for i:=0 to n-1 do
     begin
       for j:=0 to n-1 do
       begin
         if (i-1)>=0 then
          begin
            if (a[i,j]>=a[i-1,j]) then f:=False;
            if ((j-1)>=0) then if (a[i,j]>=a[i-1,j-1]) then f:=False;
            if ((j+1)<=n-1) then if (a[i,j]>=a[i-1,j+1]) then f:=false;
          end;
         if (i+1<=n-1) then
          begin
            if (a[i,j]>=a[i+1,j]) then f:=False;
            if ((j-1)>=0) then if (a[i,j]>=a[i+1,j-1]) then f:=False;
            if ((j+1)<=n-1) then if (a[i,j]>=a[i+1,j+1]) then f:=False;
          end;
          if ((j-1)>=0) then if (a[i,j]>=a[i,j-1]) then f:=false;
          if ((j+1)<=n-1) then if (a[i,j]>=a[i,j+1]) then f:=False;
       if (f=true) then begin k:=k+1;  end;
       f:=True;
      end;
     end;

Kodzaev · 27.03.2013, 14:56

Примерно так:

Visual Basic

For i = 0 To n - 1
For j = 0 To n - 1
If i - 1 >= 0 Then
  If a(i, j) >= a(i - 1, j) Then f = False
  End If
  If j - 1 >= 0 Then
    If a(i, j) >= a(i - 1, j - 1) Then f = False
    End If
  End If
  If j + 1 <= n - 1 Then
    If a(i, j) >= a(i - 1, j + 1) Then f = False
    End If
  End If
End If
If i + 1 <= n + 1 Then
  If a(i, j) >= a(i + 1, j) Then f = False
  End If
  If j - 1 >= 0 Then
    If a(i, j) >= a(i + 1, j - 1) Then f = False
    End If
  End If
  If j + 1 <= n - 1 Then
    If a(i, j) >= a(i + 1, j + 1) Then f = False
    End If
  End If
End If
If j - 1 >= 0 Then
  If a(i, j) >= a(i, j - 1) Then f = False
  End If
End If
If j + 1 <= n - 1 Then
  If a(i, j) >= a(i, j + 1) Then f = False
  End If
End If
If f = True Then k = k + 1
End If
f = True
Next j
Next i

	27.03.2013, 14:56

Опции темы