Автор: Pav 22.12.2005 23:44
Помогите закончить на QBASIC прогу. Задание такое .Дана действительная квадратная матрица А размера n х n. Определить наименьший элемент матрицы среди положительных и номера строки и столбца, на пересечении которых элемент находится.
Вот что у меня вышло
Код
n = 5
DIM a(n, n)
' Ввод исходной матрицы
FOR i = 1 TO n
FOR j = 1 TO n
INPUT "Введите элемент матрицы "; a(i, j)
NEXT j
NEXT i
' Вывод исходной матрицы
PRINT "Матрица А"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT j
PRINT
NEXT i
' Обработка матрицы A
min = a(1, 1): k = 1: m = 1
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i, j) < min THEN
min = a(i, j)
k = i
m = j
END IF
NEXT j
NEXT i
' Вывод результатов
PRINT "Минимальный элемент="; min
PRINT "Строка ="; k, "Столбец="; m
END
Суть проблемы как видете в том, что минимальный элемент нашел, а как сделать чтобы выборка была из положительных-головы сломал...
Автор: volvo 22.12.2005 23:58
Вот так измени:
Код
' Обработка матрицы A
min = 10000: k = 1: m = 1
FOR i = 1 TO n
FOR j = 1 TO n
IF (a(i, j) > 0) AND (a(i, j) < min) THEN
min = a(i, j)
k = i
m = j
END IF
NEXT j
NEXT i
Автор: Manveru 17.05.2007 21:55
Здравствуйте помогите закончить прогу в басике
CLS
Input "введите строку матрицы" ; n
input "Введите столбец матрицы"; m
option base1
Dim L(n,m) as integer
print "введите эл. матрицы"
for i=1 to n
for j=1 to m
input L(i,j)
next j
next i
for i=1to n
k=0
for j=1 to m
if L (i,j) mod 3 =0 then
_________?
_________?
end if
next j
___________?
next i
___________?
print "исходная матрица L"
???????????????????????????????????
А задание такое : обработать матрицу L(N,M)
найти для каждой строки элементы кратные трем подсчитать их количество