Другие языки программирования и технологии
Кто соображает в Visual Basic помогите!
Нужно написать код. Задание такое:Дана матрица А(n,n). Нужно найти сумму всех нечетных элементов. (нужно написать программу, которая находила бы сумму всех нечетных элементов матрицы А).
'Данный код работает на всех версиях Visual Basic гарантированно!
'Его можно вставить в любую часть программы (нажатие кнопки, загрузку формы и т. д. )
'Писал специально для незнайки версии Visual Basic в учебном заведении.
Dim x, y As Integer 'Объявление циклов.
Dim a, b As Single 'Ранг матрицы (столбцы и строки) .
a = 1 : b = 1 'Для примера сделаем 2 строки и 2 столбца (2х2), нумерация начинается с 0.
Dim m(a, b), sum As Single 'm - двумерный массив (матрица) и sum - cумма всех не четных чисел матрицы.
'Заполнение массива (матрицы) (можно автоматизировать) .
m(0, 0) = 3
m(0, 1) = 23
m(1, 0) = 2
m(1, 1) = 5
For x = 0 To a 'Цикл столбцов.
For y = 0 To b 'Цикл строк.
'Определение четности или не четности числа (можно использовать стандартную функцию, но в разных версиях она может быть разной) .
If m(x, y) / 2 <> Int(m(x, y) / 2) Then sum = sum + m(x, y) 'Суммирование не четных чисел матрицы.
Next
Next
MsgBox(sum) 'Вывод результатов.
'Его можно вставить в любую часть программы (нажатие кнопки, загрузку формы и т. д. )
'Писал специально для незнайки версии Visual Basic в учебном заведении.
Dim x, y As Integer 'Объявление циклов.
Dim a, b As Single 'Ранг матрицы (столбцы и строки) .
a = 1 : b = 1 'Для примера сделаем 2 строки и 2 столбца (2х2), нумерация начинается с 0.
Dim m(a, b), sum As Single 'm - двумерный массив (матрица) и sum - cумма всех не четных чисел матрицы.
'Заполнение массива (матрицы) (можно автоматизировать) .
m(0, 0) = 3
m(0, 1) = 23
m(1, 0) = 2
m(1, 1) = 5
For x = 0 To a 'Цикл столбцов.
For y = 0 To b 'Цикл строк.
'Определение четности или не четности числа (можно использовать стандартную функцию, но в разных версиях она может быть разной) .
If m(x, y) / 2 <> Int(m(x, y) / 2) Then sum = sum + m(x, y) 'Суммирование не четных чисел матрицы.
Next
Next
MsgBox(sum) 'Вывод результатов.
Олег Б
Суммирование можно производить унарными операциями (работает не во всех версиях!): sum += m(x,y)
книжки читать надо а по VB на bysteff.narod.ru точно есть
Андрей Гааг
Вот и читал бы книжки, вместо того, что бы делать бесполезные комментарии!
Присвоить ноль переменной для суммы.
Цикл по строкам, внутри цикл по стобцам, и проверять каждый элемент на нечётность, если истинно, то прибавить к переменной для суммы.
Цикл по строкам, внутри цикл по стобцам, и проверять каждый элемент на нечётность, если истинно, то прибавить к переменной для суммы.
Tima Azhimamatov
а написать можешь? а то я все равно так не пойму.
Андрей Гааг
If (A(i, j) / 2 * 2) A(i, j)
А каким образом это будет работать?
А каким образом это будет работать?
На какой версии vb нужно сделать задание?
Tima Azhimamatov
это задание задали на учебе, а какая версия стоит там я не знаю.
Похожие вопросы
- Visual Basic помогите срочно!!!111!
- Visual Basic.Помогите написать программу.
- Нужно СРОЧНО написать программу в Visual Basic!!!!Помогите, пожалуйста!!!
- Продаю программу с исходниками на Visual Basic 2008 за 50 руб.
- Уважаемые программисты, помогите (MS Visual Basic 6.0)
- Помогите пожалуйста. Visual Basic - массивы
- Подойдет ли самоучитель по Visual Basic .NET для освоения языка Basic, человеку не понимающему в программировании?
- Visual Basic или C#
- Помогите. Выполнить обязательно в Visual basic. Даже не Free basic. Либо помогите расписать каждую строчку кода.
- Нужна помощь по Visual Basic