Определить, сколько из заданных 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д