Переписать программу с Pascal ABC - VB
Формулировка задачи:
Помогите плиз, нужно программу сделанную на Pascal ABC переделать на VB. Заранее благодарен)
только просмотры, а помочь никто не может(((
Решение задачи: «Переписать программу с Pascal ABC»
textual
Листинг программы
Dim n As Integer, m As Integer, i As Integer, j As Integer, k As Integer, x As Integer, s As String Dim a(1 To 100, 1 To 100) As Integer Private Sub Form_Activate() n = Val(InputBox("", "n=", 10)) m = Val(InputBox("", "m=", 10)) Print "Ischodnaja matricha: " Print "" Randomize Timer For i = 1 To n For j = 1 To m a(i, j) = 20 * Rnd() - 5 'Print a(i, j) s = s & Str(a(i, j)) & " " Next Print s s = "" Next '{sortirovka po strokam} For i = 1 To n For j = 1 To m - 1 For k = 1 To m - 1 If a(i, k) < a(i, k + 1) Then x = a(i, k): a(i, k) = a(i, k + 1): a(i, k + 1) = x End If Next Next Next '{sortirovka po stolbcham} For j = 1 To m For i = 1 To n - 1 For k = 1 To n - 1 If a(k, j) < a(k + 1, j) Then x = a(k, j): a(k, j) = a(k + 1, j): a(k + 1, j) = x End If Next Next Next Print "Rezultat:" For i = 1 To n For j = 1 To m s = s & Str(a(i, j)) & " " Next Print s s = "" Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д