Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
DontStopMe!
0 / 0 / 0
Регистрация: 26.12.2011
Сообщений: 5
#1

Раскрасить элементы матрицы в шахматном порядке - VB

26.03.2012, 18:54. Просмотров 604. Ответов 2
Метки нет (Все метки)

Здравствуйте
Помогите пожалуйста)
Дан двумерный массив, размерностью 3х3, состоящий из случайных чисел промежутка (-102; 294)
Раскрасить элементы матрицы в шахматном порядке. Определить, сумма каких элементов (черных или белых) больше.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2012, 18:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Раскрасить элементы матрицы в шахматном порядке (VB):

Вывести элементы матрицы в заданном порядке - Visual Basic
Дана матрица m*n. Вывести ее элементы в следующем порядке: первая строка слева на право, вторая строка справа на лево и тд.

Элементы каждой строки матрицы расставить в порядке возрастания абсолютных значений - Visual Basic
Дана числовая вещественная матрица а,имеющая n строк и m столбцов.Составить программу предусматривающий контр.вывод исход. матрицы в окно...

Расставить в порядке возрастания элементы массива. - Visual Basic
Здраствуйте уважаемые программисты!не могли бы вы помочь разобратся с задачей: Сформировать массив р из 20 элементов, i – ый элемент...

Переставить элементы массива n в обратном порядке - Visual Basic
Ввести одномерный массив n= {3, 5, 7, 9, -11, 13, 15} Переставить элементы массива n в обратном порядке и найти в нем произведение...

Вывести элементы массива в заданном порядке - Visual Basic
Текст задачи Дан массив А размера N. Вывести его элементы в следующем порядке: A1, AN, A2, AN-1, A3, AN-2 …

В массиве расположить в порядке возрастания четные элементы - Visual Basic
Народ, подскажите пожалуйста как : 1.подставить количество положительных элементов массива,не превышающих заданную величину. ...

2
SoftIce
comment ca va
10401 / 3900 / 997
Регистрация: 27.07.2011
Сообщений: 9,444
Завершенные тесты: 1
26.03.2012, 20:48 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim A(1 To 3, 1 To 3) As Integer, sW As Integer, sB As Integer
Cls
Randomize
sB = 0: sW = 0
  For i = 1 To 3
     For j = 1 To 3
        A(i, j) = Int(396 * Rnd - 102)
        If (i + j) Mod 2 = 0 Then
               ForeColor = vbWhite: sW = sW + A(i, j)
        Else
               ForeColor = vbBlack: sB = sB + A(i, j)
        End If
        Print A(i, j); vbTab;
     Next j
     Print
  Next i
  If sW > sB Then MsgBox "Сумма белых больше" Else MsgBox "Сумма чёрных больше"
End Sub
0
DontStopMe!
0 / 0 / 0
Регистрация: 26.12.2011
Сообщений: 5
27.03.2012, 03:03  [ТС] #3
спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2012, 03:03
Привет! Вот еще темы с ответами:

Определить, идут ли элементы массива в порядке возрастания - Visual Basic
Вводится с клавиатуры целочисленный массив из 10 элементов. Определить, идут ли элементы массива в порядке возрастания. Заранее спасибо!

В массиве четные элементы расположить в порядке возрастания их модулей - Visual Basic
Очень прошу вашей помощи по массивам!!! буду очень благодарен! Дано одно задание, вкл. в себя 4 задачи, 2 на одномерные и 2 на двумерные...

Элементы четных строк массива А расставить в порядке возрастания - Visual Basic
благодарю,есть еще просьба помочь вот с этой задачкой тоже(или лучше создать для нее отдельную тему): Элементы четных строк массива А...

Расположить элементы массива в следующем порядке – положительные, нулевые и отрицательные - Visual Basic
Расположить элементы массива в следующем порядке – положительные, нулевые и отрицательные. я НИчего не понимаю в вижуал бейсик и мне...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru