У нас были задания по информатике по Visual Basic 6.0 я их выполнил но нам дали еще-сделать алгоритмы к этим заданиям. там както квадратики обьявление переменных там ромбики еще чтото -условия вроде...помогите подалуйста кто знает что это.. ну какбы я понимаю это ход решения но как его реализовать...
Вот код программы
___________________________________________________________________
Dim A(1 To 200) As Long
Private Sub Form_Load()
MSFlexGrid1.Rows = 201
MSFlexGrid1.Cols = 2
End Sub
Private Sub Command2_Click()
Randomize Timer
Dim i As Long
For i = 1 To 200
A(i) = Rnd * 10000
MSFlexGrid1.TextMatrix(i, 0) = A(i)
MSFlexGrid1.TextMatrix(i, 1) = ""
Next i
End Sub
Private Sub Command1_Click()
Dim i As Long, n As Long
With MSFlexGrid1
For i = 2 To 199
If .TextMatrix(i, 0) > .TextMatrix(i - 1, 0) And .TextMatrix(i, 0) > .TextMatrix(i + 1, 0) Then
n = n + 1
.TextMatrix(i, 1) = "V"
End If
Next
End With
Label1.Caption = "больше своих ''соседей'' " & n & " чисел"
End Sub
_____________________________________________________________
одна из элементарных программ
вывести 200 чисел и определить сколько из них больше своих соседей -т.е следующего и предыдущего числа