Сгенерировать 2 массива по 20 эл-тов. Упорядочить по возрастанию. Определить равные эл-ты. Нанести массив на числовую ось. - VB
Формулировка задачи:
Сгенерировать функцией RND 2 массива по 20 элементов. Упорядочить каждый массив по возрастанию. Написать номер (№№) и значение равных элементов. Если нет, то написать комментарий "Равных элементов нет" . Нанести массив на числовую ось в масштабе в пределах экрана и цветом выделить( Nj1) = Nj2),создать в программе обе ситуации. пояснить метод решения задачи.
помогите пожалуйста горю, эта задача есть на сайте но не могу найти ответ
Решение задачи: «Сгенерировать 2 массива по 20 эл-тов. Упорядочить по возрастанию. Определить равные эл-ты. Нанести массив на числовую ось.»
textual
Листинг программы
Private Sub Command4_Click() Cls sum = 0 dim pp() as double dim gg() as double dim k,k_1,k_2,k_3 k = InputBox("Ââåäèòå êîëè÷åñòâî ñòðîê", "Ââîä") k_1 = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ", "Ââîä") ReDim pp(1 To k, 1 To k_1) Print "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:" For i = 1 To k For j = 1 To k_1 pp(i, j) = Int(Rnd * 10 - 2) If j <> k_1 Then Print ; pp(i, j); Else Print pp(i, j); Print vbLf End If Next j Next i k_2 = InputBox("Ââåäèòå êîëè÷åñòâî ñòðîê", "Ââîä") k_3 = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ", "Ââîä") ReDim pp(1 To k_2, 1 To k_3) Print "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:" For i = 1 To k_2 For j = 1 To k_3 pp(i, j) = Int(Rnd * 10 - 2) If j <> k_3 Then Print ; gg(i, j); Else Print gg(i, j); Print vbLf End If Next j Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д