Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
DontStopMe!
0 / 0 / 0
Регистрация: 26.12.2011
Сообщений: 5
#1

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

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

Здравствуйте
Помогите пожалуйста)
Дан двумерный массив, размерностью 3х3, состоящий из случайных чисел промежутка (-102; 294)
Раскрасить элементы матрицы в шахматном порядке. Определить, сумма каких элементов (черных или белых) больше.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2012, 18:54
Ответы с готовыми решениями:

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

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

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

Расставить в порядке возрастания элементы массива.
Здраствуйте уважаемые программисты!не могли бы вы помочь разобратся с задачей:...

Вывести элементы массива в заданном порядке
Текст задачи Дан массив А размера N. Вывести его элементы в следующем порядке:...

2
SoftIce
comment ca va
10432 / 3940 / 1006
Регистрация: 27.07.2011
Сообщений: 9,522
Завершенные тесты: 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

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

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

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


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

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

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