В заданной матрице переставить местами столбцы - VB

  1. В заданной матрице матрицы размером 3х4 переставить местами столбцы: с заданным номером и содержащим максимальный элемент матрицы. Результат вывести на экран. кто шарит плиз помогите вопще невкупаю в эту задачу!


textual

Код к задаче: «В заданной матрице переставить местами столбцы - VB»

Private Sub Command1_Click()
Dim a(1 To 3, 1 To 4) As Integer
Dim max As Integer
Dim k As Integer
Dim s As Integer
s = InputBox("Введите номер столбца 1-4")
Randomize
For i = 1 To 3
    Print
    For j = 1 To 4
        a(i, j) = Int(Rnd * 10) + 1
        Print a(i, j);
    Next j
Next i
 
max = a(1, 1)
Print
For i = 1 To 3
    For j = 1 To 4
      If a(i, j) > max Then
            max = a(i, j)
            k = j
      End If
      
    Next j
Next i
Dim tmp As Integer
Print "Новая матрица"
For i = 1 To 3
    Print
    For j = 1 To 4
     If j = s Then
        tmp = a(i, j)
        a(i, j) = a(i, k)
        a(i, k) = tmp
    End If
     
           
        Print a(i, j);
    Next j
Next i
 
End Sub

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.933 из 5



Похожие ответы
  1. Всем здравствуйте. Скажите как получить дерево файлов и папок в заданной дериктории? И все это в двумерный массив засунуть из 3х столбцов, в который если это папка в соседние столбцы дописывать 0 0 0755? К такому вот виду, например: Код system/app/AdupsFota 0 0 755 system/app/AdupsFota/AdupsFota.apk 0 0 644 system/app/AdupsFota/arm 0 0 755 system/app/AdupsFota/arm/AdupsFota.odex 0 0 644 system/app/AdupsFotaReboot 0 0 755 system/app/AdupsFotaReboot/AdupsFotaReboot.apk 0 0 644 system/app/AdupsFotaReboot/arm 0 0 755 system/app/AdupsFotaReboot/arm/AdupsFotaReboot.odex 0 0 644 system/app/ApplicationsProvider 0 0 755 system/app/ApplicationsProvider/ApplicationsProvider.apk 0 0 644 system/app/ApplicationsProvider/arm 0 0 755 system/app/ApplicationsProvider/arm/ApplicationsProvider.odex 0 0 644 system/app/AtciService 0 0 755 system/app/AtciService/AtciService.apk 0 0 644 system/app/AtciService/arm 0 0 755 system/app/AtciService/arm/AtciService.odex 0 0 644 system/app/AutoDialer 0 0 755 system/app/AutoDialer/AutoDialer.apk 0 0 644 system/app/AutoDialer/arm 0 0 755 system/app/AutoDialer/arm/AutoDialer.odex 0 0 644 system/app/BSPTelephonyDevTool 0 0 755 system/app/BSPTelephonyDevTool/BSPTelephonyDevTool.apk 0 0 644 system/app/BSPTelephonyDevTool/arm 0 0 755 system/app/BSPTelephonyDevTool/arm/BSPTelephonyDevTool.odex 0 0 644 system/app/BasicDreams 0 0 755 system/app/BasicDreams/BasicDreams.apk 0 0 644 system/app/BasicDreams/arm 0 0 755 system/app/BasicDreams/arm/BasicDreams.odex 0 0 644 system/app/BatteryWarning 0 0 755 system/app/BatteryWarning/BatteryWarning.apk 0 0 644 system/app/BatteryWarning/arm 0 0 755 system/app/BatteryWarning/arm/BatteryWarning.odex 0 0 644 system/app/Bluetooth 0 0 755 system/app/Bluetooth/Bluetooth.apk 0 0 644 system/app/Bluetooth/arm 0 0 755 system/app/Bluetooth/arm/Bluetooth.odex 0 0 644 system/app/Bluetooth/lib 0 0 755 system/app/Bluetooth/lib/arm 0 0 755 system/app/Bluetooth/lib/arm/libbluetooth_jni.so 0 0 644 /system/lib/libbluetooth_jni.so system/app/Browser 0 0 755 system/app/Browser/Browser.apk 0 0 644 system/app/Browser/arm 0 0 755 system/app/Browser/arm/Browser.odex 0 0 644 system/app/Calculator 0 0 755 system/app/Calculator/Calculator.apk 0 0 644 system/app/Calculator/arm 0 0 755 system/app/Calculator/arm/Calculator.odex 0 0 644

  1. Даны целое N >0 и последовательность из N вещественных чисел, среди которых хотя бы одно отрицательное число, найти величину наибольшего отрицательного среди чисел этой последовательности.

  1. Описание функции 1. Каждое натуральное число имеет хотя бы один делитель 2. Само число не считается для себя делителем. 3. Дано число N. 4. Пусть его делители d1, d2, ...., dn 5. Наша функция выглядит так f(N) = f(d1) + f(d2) + ... + f(dn) ; и f(1) = 1 Надо написать программу, вычисляющую эту функцию для любого N. Решение: 1. Рекуррентный вид функции сам собой напрашивался на рекурсивное решение. Но вот проблема! Число слагаемых вещь переменная! 2. Хорошо. Что делать? Получить все Делители заданного числа легко. Значит надо объявить массив, который будет набиваться заранее вычисленными делителями. (Для нового числа обнулить его несложно) 3. Нужен цикл? Нужен. Но это ведь не просто сумма чего-то... решал, решал... не идет решение (наверное к дождю). А решить хочется. Может я не что-то не так делаю? Тааак! Решение где-то рядом! Кто подскажет?

  1. Здравствуйте! Помогите, пожалуйста, практическими алгоритмами кода.Меня интересует: 1) Как залить (полностью окрасить) эллипсы случайными цветами? 2) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) по признаку делимости на 2, 3 (без остатка) и прочие. Всего три цвета окраски. 3) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) для группы, например: For i = 1 To 3 — vbRed; For i = 4 To 6 — vbGreen; For i = 4 To 6 — vbBlue. Всего три цвета окраски. Не по теме: Столкнулся на форуме с распространённым явлением. Многие из участников почему-то пытаются скрыть подобные сведения. Не знаю их мотивов. По мне: сравниваю их с мальчиком Васей из детского садика — считающего, что у него лучшие фантики (обёртки от конфет) в мире. Поэтому Вася никому и никогда не рассказывает: откуда они взяты. Одна только мама Васи догадывается — откуда, поскольку Вася любит гулять возле мусорных баков. Они сейчас возле каждого многоэтажного дома. "Клондайк". В литературе есть образ Плюшкина. Вот ниже код, как просто залить (полностью окрасить) эллипсы случайными цветами?

  1. Прошу помощи. Задача: "Дана действительная матрица размером n x m. Найти сумму наибольших значений её строк. Написал код для ввода матрицы, что делать дальше ума не приложу. Заранее благодарен

  1. Здравствуйте, помогите решить задачу. Составить программу, которая выполняет удаление из натурального числа Х некоторой заданной цифры D. Н-р для числа 58789890 и цифры 8 результатом будет число 57990. Заранее Спасибо!

  1. Написать программу в VB: дано число - температура воды. Выведите "лед", если температура ниже нуля, "жидкость", если от температура от 0 до 100 и "пар", если выше 100. Помогите пожалуйста!)

  1. Всем добрый день! На форуме впервые, не ругайтесь, если что не так. По информатике была задана задача: вычислить и вывести на экран количество отрицательных и нулевых элементов во всей заданной матрице М (3Х3) в каждой строке. Я, к сожалению, в этом почти ничего не смыслю - попытался создать код (ниже) но каждый раз выбивает ошибку. Прошу помочь, если не сложно, спасибо.

  1. Добрый день! Вот задали по VB пару заданий все получалось а вот с массивами замкнулся не могли бы вы мне помочь. Текст задания "Массив С заполнен случайным набором целых чисел, найти среднее арифметическое из квадратов данной последовательности" Правда самому даже задание не совсем понятно но прока что набросал очень малоvb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Class Form1     Dim Sim(10) As Double     Dim x As Integer     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click           For x As Integer = 1 To 10             TextBox1.Text = TextBox1.Text & Sim(x) & vbCrLf         Next x     End Sub       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         TextBox1.Text = ""         For x As Integer = 1 To 10             Sim(x) = x         Next x     End Sub End ClassВывел с большим трудом в TextBox1 содержание массива от 1 до 10 вот и все, помогите по заданию всего то два осталось )))))

  1. Кому не сложно и кому позволяет время напишите код или подскажите с чего начинать . Задача выглядит так. Нужно вычислить значение функции z=b^k/k^2 большие чем a, если k=1,2.....,20. b=0,5 . a=3. Заранее спасибо огромное