Перечислить те операторы, которые не влияют на значение функции AA.
Function AA(x as integer) As Integer
a = x
tt = 4
If a = 1 Then
a = 2
Else
If a = 2 Then
a = 3
Else
If a = 3 Then
a = 4
Else
If a = 4 Then
tt = 55
End If
End If
End If
End If
AA = tt
End Function
Перечислить те операторы, которые не влияют на значение функции AA.
Function AA(x as integer) As Integer
a = x
tt = 4
If a > 50 Then
a = 50
Else
If a > 40 Then
a = 40
Else
If a > 30 Then
a = 30
Else
If a > 20 Then
tt = 5
Else
tt = 6
End If
End If
End If
End If
AA = tt
End Function
Вычеркните лишние операторы, так чтобы у вас получилась программа нахождения максимального
элемента в массиве.
Private Type mo
A(1 To 10) As Integer
End Type
Private Function AAA(x As mo) As Integer
Dim A(1 To 10) As Integer
For i = 1 To 10
A(i) = x.A(i)
Next i
tt = A(1)
AA = A(1)
bb = A(1)
For i = 2 To 10
If A(i) > tt Then
tt = A(i)
End If
If A(i) = AA Then
AA = A(i)
End If
If A(i) < bb Then
bb = A(i)
End If
Next i
AAA = tt
AAA = AA
AAA = bb
End Function
Вычеркните лишние операторы, так чтобы у вас получилась программа нахождения максимального
элемента в массиве.
Private Type mo
A(1 To 10) As Integer
End Type
Private Function AAA(x As mo) As Integer
Dim A(1 To 10) As Integer
For i = 1 To 10
A(i) = x.A(i)
Next i
tt = A(1)
AA = A(1)
bb = A(1)
For i = 2 To 10
If A(i) > tt Then
tt = A(i)
Else
If A(i) = AA Then
AA = A(i)
Else
If A(i) < bb Then
bb = A(i)
End If
End If
End If
Next i
AAA = tt
AAA = AA
AAA = bb
End Function