Леонард Эйлер - великий математик, Механик, Физик. автор более 600 работ, которые легли в основу различных математических дисциплин. Его именем названы уравнения, функции и т. д
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim A() As Integer Dim B() As Integer
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next i = Rnd() * 100 + 1 ReDim B(i) For k = 0 To i B(k) = Rnd() * -1000 + 500 Next
Dim countA As Integer Dim countB As Integer
countA = change(A) countB = change(B) Dim msg_A As String For i = 0 To UBound(A) - 1 msg_A = msg_A & A(i) & vbCrLf ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next Dim msg_B As String For i = 0 To UBound(B) - 1 msg_B = msg_B & B(i) & vbCrLf Next If countA = countB Then MsgBox("Количество измененных элементов в двух массивах одинаково") MsgBox(msg_A) MsgBox(msg_B) End Sub
Private Function change(ByRef Massiv() As Integer) As Integer Dim count As Integer Dim i As Integer For i = 0 To UBound(Massiv) - 1 If Massiv(i) > 0 Then Massiv(i) = Massiv(i) / i : count = count + 1 Next Return count End Function
Это что, метод решения показать ?!Ч.Я. (с точки зрения физики) - метод исследования таких систем, когда вместо свойств и взаимосвязей составных частей системы, изучается реакция системы, как целого, на изменяющиеся условия! Что за чем: 1 - анализ условия задачи и определение основных теоретических данных необходимых для исследования (т.е. определений, законов) 2 - выбор приборов для исследования 3 - сборка электрической цепи 4 - определение параметров цепи по показаниям приборов 5 - анализ полученных данных 6 - общий вывод 7 - сверка полученного результата с заданным конструктором решением 8 - анализ ошибочных действий исследователем (если они допущены) Ч.Я. компьютер - это система, в которой внешнему наблюдателю доступны лишь входные и выходные величины, а структура и внутренние процессы неизвестны ))
