IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным. В описании темы указываем язык!!!

 
 Ответить  Открыть новую тему 
> Матрицы, VBA
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской
Реальное имя: Николай;)

Репутация: -  0  +


Пожалуста помогите проверить код. Заранее благодарен.

Код
Option Explicit
Sub Rhp1()
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
Dim s As Double, k As Double
Dim min As Integer, max As Integer
Dim ih As Integer, imax As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Cells(i, j)
Next j
Next i
s = 0: k = 0: max = 12
For i = 1 To 5
For j = 1 To 5
If a(i, j) Mod 2 <> 0 Then s = s + a(i, j) Else k = k + 1
If a(i, j) > max Then
max = a(i, j)
imax = i
ih = Cells(i, 1) + Cells(1, 2)
End If
Next j
Next i
Cells(7, 6) = ("Сумма нечетных элементов = " & s)
Cells(8, 6) = ("Количество четных элементов = " & k)
Cells(9, 6) = ("Максимумы  - " & imax)
Cells(10, 6) = ("Произведение элементов в первой четверти = " & ih)
End Sub


Вот задание
1.Сформировать матрицу вида

1 2 2 2 2
3 1 2 2 2
3 3 1 2 2
3 3 3 1 2
3 3 3 3 1

2.Вычислить в этой матрице сумму нечетных элементов.
3.Вычислить количество четных элементов в каждой строке матрицы.
4.Вычислить максимумы в нечетных столбцах.
5.Вычислить произведение элементов в первой четверти.

Сообщение отредактировано: Lord of assembly -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.08.2017 19:32
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"