Матрица в QBasic - Помощь студентам

_Anya_ · 14.12.2014, 22:56

Дана квадратная матрица Y на 25 элементов. Матрица заполнена целыми числами из диапазона (-15 +15) Найти сумму 3-го столбца, кол-во нулевых элементов в матрице, заменить первый элемент матрицы числом 200.

Smitt&Wesson · 14.12.2014, 23:59

Где Ваши собственные наработки? Форум - не универсальный решатель задачь.

_Anya_ · 15.12.2014, 07:00

CONST n = 5: DIM y(n, n) AS INTEGER: RANDOMIZE TIMER: CLS
FOR i = 1 TO n: FOR j = 1 TO n: y(i, j) = FIX(RND * 15 - 15): NEXT: NEXT
FOR i=1 TO n: FOR j = 1 TO n: PRINT USING "####"; y(i, j); : NEXT: PRINT : NEXT: PRINT
FOR i=1 TO n: k = k - y(i, 3): NEXT: PRINT "sum3="; k
FOR i=1 TO n: FOR j = 1 TO n: m = m - (y(i, j) = 0): NEXT: NEXT: PRINT "m="; : PRINT
my(1,1)=200: FOR i=1 TO n: FOR j=1 TO n: PRINT USING "####";y(i, j);: NEXT: PRINT: NEXT

14.12.2014, 22:56	#1
_Anya_ Новичок Джуниор Регистрация: 14.12.2014 Сообщений: 5	Матрица в QBasic Дана квадратная матрица Y на 25 элементов. Матрица заполнена целыми числами из диапазона (-15 +15) Найти сумму 3-го столбца, кол-во нулевых элементов в матрице, заменить первый элемент матрицы числом 200.

14.12.2014, 23:59	#2
Smitt&Wesson Старожил Регистрация: 31.05.2010 Сообщений: 13,543	Где Ваши собственные наработки? Форум - не универсальный решатель задачь. Пиши пьяным, редактируй трезвым. Справочник по алгоритмам С++ Builder

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Qbasic Матрица	xNoDx	Помощь студентам	0	12.12.2012 16:27
Матрица в QBasic.	Excellix	Помощь студентам	2	05.03.2012 22:58
Матрица в qbasic и вычислением главной диагонали	КристинаГузиева	Помощь студентам	0	30.04.2011 07:48
Матрица в qbasic	КристинаГузиева	Помощь студентам	1	23.04.2011 16:05
матрица в qbasic	КристинаГузиева	Помощь студентам	2	18.04.2011 11:06

15.12.2014, 07:00	#3
_Anya_ Новичок Джуниор Регистрация: 14.12.2014 Сообщений: 5	CONST n = 5: DIM y(n, n) AS INTEGER: RANDOMIZE TIMER: CLS FOR i = 1 TO n: FOR j = 1 TO n: y(i, j) = FIX(RND * 15 - 15): NEXT: NEXT FOR i=1 TO n: FOR j = 1 TO n: PRINT USING "####"; y(i, j); : NEXT: PRINT : NEXT: PRINT FOR i=1 TO n: k = k - y(i, 3): NEXT: PRINT "sum3="; k FOR i=1 TO n: FOR j = 1 TO n: m = m - (y(i, j) = 0): NEXT: NEXT: PRINT "m="; : PRINT my(1,1)=200: FOR i=1 TO n: FOR j=1 TO n: PRINT USING "####";y(i, j);: NEXT: PRINT: NEXT