Построить матрицу D(N,N) из элементов матрицы C, удваивая те элементы, которые удовлетворяют условию

@Greeny · Регистрация: 16.12.2015

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

Здравствуйте, помогите пожалуйста с программой qbasic..
Дана матрица C(N,N) (N<=20). Построить матрицу D(N,N) из элементов матрицы C, удваивая те элементы, которые удовлетворяют условию C(i,j)>CG, Где CG - среднее геометрическое модулей элементов C, расположенных на главное диагонали. Вычисление среднего геометрического модулей элементов главной диагонали матрицы оформить в виде подпрограммы.
Спасибо за внимание.

@xod · 10.07.2014, 16:11

QBasic/QuickBASIC

DEFINT I-J, N
CLS
INPUT "N = "; n
OPTION BASE 1
DIM c(n, n)
DIM d(n, n)
RANDOMIZE TIMER
 
FOR i = 1 TO n
   FOR j = 1 TO n
      c(i, j) = 20 * RND - 10
      PRINT USING "##.###  "; c(i, j);
   NEXT j
   PRINT
NEXT i
PRINT
 
CG = 1
FOR i = 1 TO n
   CG = CG * ABS(c(i, i))
NEXT i
CG = CG ^ (1 / n)
PRINT "CG = "; CG
 
FOR i = 1 TO n
   FOR j = 1 TO n
      IF c(i, j) > CG THEN d(i, j) = 2 * c(i, j) ELSE d(i, j) = c(i, j)
      PRINT USING "##.###  "; d(i, j);
   NEXT j
   PRINT
NEXT i
END

@Greeny 0 / 0 / 0 Регистрация: 16.12.2015 Сообщений: 2
		1
	Построить матрицу D(N,N) из элементов матрицы C, удваивая те элементы, которые удовлетворяют условию 12.05.2013, 21:33. Показов 1082. Ответов 1 Метки нет (Все метки) Здравствуйте, помогите пожалуйста с программой qbasic.. Дана матрица C(N,N) (N<=20). Построить матрицу D(N,N) из элементов матрицы C, удваивая те элементы, которые удовлетворяют условию C(i,j)>CG, Где CG - среднее геометрическое модулей элементов C, расположенных на главное диагонали. Вычисление среднего геометрического модулей элементов главной диагонали матрицы оформить в виде подпрограммы. Спасибо за внимание. 0

	10.07.2014, 16:11

Построить матрицу D(N,N) из элементов матрицы C, удваивая те элементы, которые удовлетворяют условию

Решение