Определить, сколько из заданных 200 чисел больше своих соседей - VB

Узнай цену своей работы

Формулировка задачи:

Всем привет. я сильно не знаком с Бэйсиком но задание делать надо( я как бы понимаю как но не понимаю как это реализовать так как далек немного от него.задание такое? "Разработать приложение на Visual Basic для решения указанной задачи: Дано 200 вещественных чисел. Определить, сколько из них больше своих “соседей”, т.е. предыдущего и последующего чисел." как бы я понимаю что числа рэндомом в MsFlexGrid , потом 200 чисел больше соседей .. ну как бы из математики понятно мне что число там a(i) а соседи a(i+1) a(i-1) но как это сделать ..помогите пожалуйста чем можете

Решение задачи: «Определить, сколько из заданных 200 чисел больше своих соседей»

textual
Листинг программы
Option Explicit 
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 Label1_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 = "" 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы