6
6ex
функций много, а я один я нашел только из числа в строку, а вот это не получилось...
Большое спасибо.
Большое спасибо.
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
Private Sub Комманда1_Click()
Cls
Dim A() As Integer
Dim B() As Integer
Dim i, j, n As Integer
Dim k, l, q As Integer
n = Val(Текст1.Text)
ReDim A(n, n) As Integer
ReDim B(n * n) As Integer
For j = 1 To n
For i = 1 To n
A(i, j) = Int(Rnd * 100)
k = k + 1
B(k) = A(i, j)
CurrentX = 900 + i * 500
CurrentY = 900 + j * 500
Print A(i, j)
Next i
Next j
For k = 1 To n * n - 1
For l = k + 1 To n * n
If B(k) > B(l) Then
q = B(k)
B(k) = B(l)
B(l) = q
End If
Next l
Next k
Тама тока на Делфи.т.е. диффернциального уравнения?
извини голову ломать мне ещё рано... но подсказку можешь поискатьСсылка скрыта от гостейиСсылка скрыта от гостей
Обучение наступательной кибербезопасности в игровой форме. Начать игру!