Категория
Информатика
Тип
контрольная работа
Страницы
1 стр.
Дата
29.05.2013
Формат файла
.html — Html-документ
Архив
641387.zip — 1.44 kb
Оцените работу
Хорошо  или  Плохо



Текст работы

Сибирская Региональная школа бизнеса


Контрольная работаBasic for Application


1. Сформировать матрицу вида

1333121312221222131213331

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

Решение

матрица программа visual basic

Option Explicitpr22()a(10, 10) As Integern As Integer, i As Integer, j As Integer, s As Integer, max As Integert As Integer, k As Integer, p As Integer= Val(InputBox("Введите N"))(Cells(1, 1), Cells(100, 100)).Select.Cleari = 1 To nj = 1 To ni + j = n + 1 Then a(i, j) = 1i = j Then a(i, j) = 1i < j And i + j < n + 1 Then a(i, j) = 3i < j And i + j > n + 1 Then a(i, j) = 2i > j And i + j > n + 1 Then a(i, j) = 3i > j And i + j < n + 1 Then a(i, j) = 2ji(1, 1) = "Полученная матрица"i = 1 To nj = 1 To n(i + 1, j) = a(i, j)ji= 0i = 1 To nj = 1 To na(i, j) Mod 2 = 0 Then= s + a(i, j)Ifji(9, 1) = "Сумма четных элементов=": Cells(9, 4) = si = 1 To n= -3200a(i, j) > max Then max = a(i, j)j = 1 To na(i, j) Mod 2 <> 0 Thena(i, j) > max Then max = a(i, j)(11, 1) = "Максимум из нечетных элементов в каждой строке:": Cells(11, i + 5) = max

End Ifji=0i = 1 To nj = 1 To na(i, j) Mod 2 = 0 Then= k + 1Ifji= k / 2(16, 1) = "Количество четных элементов выше главной диагонали =": Cells(16, 7) = t

For j = 1 To n= 1i = 1 To na(i, j) > 0 Then p = p * a(i, j) i



Ваше мнение



CAPTCHA