У нас были задания по информатике по 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 чисел и определить сколько из них больше своих соседей -т.е следующего и предыдущего числа
в смысле??
показать как эту программу можно написать в графическом виде(с помощю блок-схем)???
Ну...
Рисовать (хоть немного) умеешь??
Вход таких то данных > ...> Какие то действия> Выходные данные.
А Треугольнички нужны, что бы учителям понравиться))))
нуа где писать что? квадратик треугольник...там же чтото для чегото ..я незнаю как...дайте пожалуйста или приме р или покажите чтото...ато неумею(
там както надо делать помоему в ромбике-там условие-если джа то продолжение както -нет еще както...(
http://ru.wikipedia.org/wiki/%D0%91%D0%BB%D0%BE%D0%BA-%D1%81%D1%85%D0%B5%D0%BC%D0%B0
Могли бы и сами в интернете поискать
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)