Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
СветляЧок^^..
0 / 0 / 0
Регистрация: 07.11.2011
Сообщений: 3
#1

Сформировать новый квадратный массив, переставив 4 блока размера n*n первого массива - VB

25.03.2012, 16:21. Просмотров 506. Ответов 1
Метки нет (Все метки)


http://www.cyberforum.ru/visual-basic/thread766122.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2012, 16:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сформировать новый квадратный массив, переставив 4 блока размера n*n первого массива (VB):

Найти среднее арифметическое элементов массива, из элементов массива, меньших среднего арифметического, сформировать новый массив
Дан одномерный массив. Найти среднее арифметическое элементов массива, из...

Из элементов исходного массива получить массив W переставив местами соседние элементы
Описать, заполнить, вывести на форму в строчку массив V в котором 26 элементов....

Сформировать массив: на нечетные места ставить элементы из первого массива, на четные места – из второго
Помогите, пожалуйста. Задание Создать два одномерных массива по 10...

Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии
3. Дано целое число N (> 1), а также первый член A и разность D арифметической...

Массив: Выбрать в массиве все отрицательные элементы, сформировать новый массив и выдать его элементы.
1. Написать программу, в которой вначале по запросам вводятся: а) размерность...

1
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
25.03.2012, 21:05 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim a() As Integer, b() As Integer
Form1.Cls
n = InputBox("n")
ReDim a(1 To 2 * n, 1 To 2 * n), b(1 To 2 * n, 1 To n * 2)
Randomize
For i = 1 To 2 * n
For j = 1 To 2 * n
 a(i, j) = Int(Rnd(1) * 10)
 Print a(i, j); vbTab;
Next j
Print
Next i
 
Print
 
For i = 1 To n
For j = 1 To n
 b(i, j) = a(i + n, j)
 b(i, j + n) = a(i, j)
 b(i + n, j + n) = a(i, j + n)
 b(i + n, j) = a(i + n, j + n)
Next j
Next i
 
For i = 1 To 2 * n
For j = 1 To 2 * n
 Print b(i, j); vbTab;
Next j
Print
Next i
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2012, 21:05
Привет! Вот еще темы с решениями:

Массив: сформировать новый массив из элементов первого массива стоящих между min и max
сформировать новый массив из элементов первого массива стоящих между min и max....

Из заданного массива сформировать новый массив того же размера согласно условию
Помогите решить задачу: Дан массив A размера N. Сформировать новый массив B...

Из исходного массива сформировать новый массив того же размера по заданному правилу
Дан массив А размера N. Сформировать новый массив того же размера по следующему...

Сформировать новый массив, каждый элемент которого — предложения из первого массива
Дан строковый массив, типа Text: array of String = (('А все животные в...


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

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

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