Сформировать матрицу по правилу

@gaiver2 · Регистрация: 06.05.2009

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

Дана матрица A размерности 3*5. получить матрицу по правилу
С(i,j)=a(i,j)*min(a(k,j))

т.е нам нужно элементы столбцов матрицы A уножить на минимальный элемент этого столбца.
допустим. A .............. матрица С будет иметь вид
3 4 5 6 7 ........ 3 12 25 12 21
5 6 9 2 3 ......... 5 10 45 4 9
1 3 6 8 4 ........ 1 9 30 16 12

@Toxa33rus · 07.05.2009, 23:19

Visual Basic

Dim min_arr(5) 'массив минимумов
For i=0 to 4
  min_arr(i) = A(0,i)
  For j=0 to 2
    If min_arr(i) > A(j,i) Then
      min_arr(i) = A(j,i)
    End if
  Next j
Next i
 
For i=0 to 4
  For j = 0 to 2
    C(j,i) = A(j,i) * min_arr(i)
  Next j
Next i

Добавлено через 3 часа 42 минуты 34 секунды
Вот оно же только заточено под QB:

QBasic/QuickBASIC

CLS
 
DIM A(3, 5)
FOR i = 0 TO 2
  FOR j = 0 TO 4
    PRINT "A("; i; ", "; j; ")= ";
    INPUT "", A(i, j)
  NEXT j
NEXT i
 
DIM minArr(5)
FOR i = 0 TO 4
  minArr(i) = A(0, i)
  FOR j = 0 TO 2
    IF minArr(i) > A(j, i) THEN
      minArr(i) = A(j, i)
    END IF
  NEXT j
NEXT i
 
DIM C(3, 5)
FOR i = 0 TO 4
  FOR j = 0 TO 2
    C(j, i) = A(j, i) * minArr(i)
  NEXT j
NEXT i
 
FOR i = 0 TO 2
 PRINT C(i, 0); C(i, 1); C(i, 2); C(i, 3); C(i, 4)
NEXT i

Проверил с цифрами из условия и нашел ошибку: "5 10 45 4 9", а надо "5 18 45 4 9"

@gaiver2 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 6
		1
	Сформировать матрицу по правилу 07.05.2009, 16:06. Показов 853. Ответов 1 Метки нет (Все метки) Дана матрица A размерности 35. получить матрицу по правилу С(i,j)=a(i,j)min(a(k,j)) т.е нам нужно элементы столбцов матрицы A уножить на минимальный элемент этого столбца. допустим. A .............. матрица С будет иметь вид 3 4 5 6 7 ........ 3 12 25 12 21 5 6 9 2 3 ......... 5 10 45 4 9 1 3 6 8 4 ........ 1 9 30 16 12 Миниатюры 0

Опции темы

Сформировать матрицу по правилу

Решение