Алгоритм по пиксельного увеличения картинки в 4 раза, применительно к матрице

@irbion · Регистрация: 18.11.2011

Author24 — интернет-сервис помощи студентам

Даны массивы:

Visual Basic

1 2	Dim Arr1(10,10) Dim Arr2(80,80)

Нужно увеличить Arr1 в 4 раза. То есть значения Arr2(0,0) Arr2(0,1) Arr2(1,0) Arr2(1,1) должны быть равны Arr1(0,0), и т.д.
Подскажите плиз наиболее компактный код.

Добавлено через 52 минуты
Судя по мега-активности это слишком сложный вопрос даже для профи?

@PAnT0P · 21.04.2012, 18:39

Скорее сама задача мегонепонятна, попробуй перефразировать запрос.

@irbion · 21.04.2012, 19:02 **[ТС]**

Алгоритм по пиксельного увеличения картинки в 4 раза. Только заместо исходной картинки матрица 20 на 20 элементов (Arr1), а за место конечной, соответственно, матрица 80 на 80 элементов (Arr2)

@gaw · 21.04.2012, 19:41

Сообщение от irbion

Нужно увеличить Arr1 в 4 раза. То есть значения Arr2(0,0) Arr2(0,1) Arr2(1,0) Arr2(1,1) должны быть равны Arr1(0,0)

попробуй написать ..... должны быть равны Arr1(10,10)

Добавлено через 9 минут

Visual Basic

For i = 1 To 10
For j = 1 To 10
   For i1 = 1 To 2
    For j1 = 1 To 2
      Arr2(2 * (i - 1) + i1, 2 * (j - 1) + j1) = Arr1(i, j)
   Next j1
   Next i1
Next j
Next i

@PAnT0P 1484 / 579 / 106 Регистрация: 26.03.2012 Сообщений: 1,028
	21.04.2012, 18:39	2
	Скорее сама задача мегонепонятна, попробуй перефразировать запрос. 0

@irbion 0 / 0 / 0 Регистрация: 18.11.2011 Сообщений: 11
	21.04.2012, 19:02 [ТС]	3
	Алгоритм по пиксельного увеличения картинки в 4 раза. Только заместо исходной картинки матрица 20 на 20 элементов (Arr1), а за место конечной, соответственно, матрица 80 на 80 элементов (Arr2) 0

	21.04.2012, 19:41