Переписать программу с 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы