В заданной матрицы Н (4,2) поменять местами элементы с четными и не четными индексами - VB

  1. В заданной матрицы Н (4,2) поменять местами элементы с четными и не четными индексами (первый со вторым, третий с четвертым и т.п.). Вывести исходный и преобразованный массив.


textual

Код к задаче: «В заданной матрицы Н (4,2) поменять местами элементы с четными и не четными индексами - VB»

Dim a(1 To 4, 1 To 2), b As Integer
Dim c As String
List1.Clear
Randomize
For i = 1 To 4
c = ""
For j = 1 To 2
 a(i, j) = Int(21 * Rnd(1))
Next j
c = a(i, 1) & "    " & a(i, 2)
List1.AddItem c
Next i
 
List1.AddItem " "
For i = 1 To 4
c = ""
b = a(i, 1): a(i, 1) = a(i, 2): a(i, 2) = b
c = a(i, 1) & "    " & a(i, 2)
List1.AddItem c
Next i

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

6   голосов, оценка 4.333 из 5



Похожие ответы
  1. Дана матрица размером MxN . Найти количество его столбцов, элементы которых упорядочены по убыванию.

  1. Дана матрица 3х3 Найти сумму элементов первой строки и первого столбца?

  1. Дана матрица размера M х N. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце.

  1. Дана матрица размера M x N. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце.

  1. Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов.

  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. Народ, знаю, что вас бесят подобные темы, но прошу помогите. Начали преподавать VB6, но раньше я его не встречал. Задача такова: Дан двумерный массив размерностью N x M элементов. Определить количество элементов, значения которых больше заданного числа F. Если не сложно, пожалуйста напишите полный код с пояснениями. Массив рандомный. Заранее спасибо.

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

  1. нужно найти наименьший элемент в каждом столбце матрицы E(M,N) и еще,если не сложно,это уже другая,найти элемент(и номер) ближайший к следующему числу в массиве E(N)Добавлено через 2 часа 17 минут во второй задаче неправильно написала,нужно найти элемент (и номер) ближайший к заданному числу в массиве E(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. Нужен цикл? Нужен. Но это ведь не просто сумма чего-то... решал, решал... не идет решение (наверное к дождю). А решить хочется. Может я не что-то не так делаю? Тааак! Решение где-то рядом! Кто подскажет?