Работа с матрицами

bumblebeee · 13.11.2012, 20:57

Дана квадратная матрица. Нужно найти сумму элементов расположенных на диагонали из левого верхнего угла в правый. Помогите,пожалуйста с написание в VBA...

MoNeTa · 22.11.2012, 14:52

CLS
INPUT n
DIM a(n, n)
FOR i = 1 TO n
PRINT
FOR x = 1 TO n
RANDOMIZE TIMER
a(i, x) = INT((RND * 10) * (RND * 10))
PRINT a(i, x);
IF i = x THEN z = z + a(i, x)
NEXT
NEXT
PRINT
PRINT "summa chisel po diagonali="; z

вот прим решение на qbasic. наверное не трудно перевести в VBA
поздновато, но пусть решение остается)

13.11.2012, 20:57	#1 (permalink)
bumblebeee Новичок Регистрация: 13.11.2012 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Работа с матрицами Дана квадратная матрица. Нужно найти сумму элементов расположенных на диагонали из левого верхнего угла в правый. Помогите,пожалуйста с написание в VBA...

13.11.2012, 20:57
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Я думаю, что решение проблемы можно поискать в аналогичных топиках Работа факса Помогите с матрицами по Free Pascal Работа

22.11.2012, 14:52	#2 (permalink)
MoNeTa Member Регистрация: 01.02.2008 Сообщений: 300 Сказал(а) спасибо: 0 Поблагодарили 1 раз в 1 сообщении Репутация: 252	CLS INPUT n DIM a(n, n) FOR i = 1 TO n PRINT FOR x = 1 TO n RANDOMIZE TIMER a(i, x) = INT((RND * 10) * (RND * 10)) PRINT a(i, x); IF i = x THEN z = z + a(i, x) NEXT NEXT PRINT PRINT "summa chisel po diagonali="; z вот прим решение на qbasic. наверное не трудно перевести в VBA поздновато, но пусть решение остается)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070