IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Помогите закончить на Qbasic, Помогите закончить на QBASIC
сообщение
Сообщение #1


Гость






Помогите закончить на 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

Суть проблемы как видете в том, что минимальный элемент нашел, а как сделать чтобы выборка была из положительных-головы сломал...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Вот так измени:
Код
' Обработка матрицы 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
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


Здравствуйте помогите закончить прогу в басике
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)
найти для каждой строки элементы кратные трем подсчитать их количество mega_chok.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.11.2021 22:29
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name