Другие языки программирования и технологии
пожалуйста,пожалуйста!!!!помогите с заданием в basic!!! я его не понимаю,а надо срочно сдать(
Дана матрица А(n?m). Получить вектор b1, b2, …, bn, где bi равно наименьшим значениям строк. Дана матрица А(n?m). Найти номера строк, где все элементы кратны 5. Дана квадратная матрица А(n? n). Найти максимальный элемент в заштрихованной части. Дана матрицы А(n?m). После строки с номером 3 поставить строку с номером n.
Под рукой оказался только qbasic.
Для 3 задачи нужна картинка.
Первая и вторая задачи:
CLS
DIM N, M AS INTEGER
DIM i, j AS INTEGER
DIM min AS INTEGER
DIM linesCount AS INTEGER
DIM numCount AS INTEGER
DATAINPUT:
INPUT "введите через запятую число строк и столбцов ", N, M
IF (N < 1 OR M < 1) THEN GOTO DATAINPUT
DIM A(N, M) AS INTEGER
DIM B(N) AS INTEGER
PRINT "Ввод матрицы A"
FOR i = 1 TO N
FOR j = 1 TO M
PRINT "введите элемент А ("; i; ","; j; ")"
INPUT A(i, j)
NEXT j
NEXT i
PRINT
PRINT "Поиск минимальных элементов в строках матрицы"
FOR i = 1 TO N
min = A(i, 1)
FOR j = 1 TO M
IF (A(i, j) < min) THEN min = A(i, j)
NEXT j
B(i) = min
NEXT i
FOR i = 1 TO N
PRINT " ", B(i), "минимальный элемент в строке ", i
NEXT i
PRINT
PRINT "Поиск строк с элементами кратными 5"
linesCount = 0
FOR i = 1 TO N
numCount = 0
FOR j = 1 TO M
IF (A(i, j) MOD 5 = 0) THEN numCount = numCount + 1
NEXT j
IF (numCount = M) THEN
PRINT " строка ", i
linesCount = linesCount + 1
END IF
NEXT i
IF (linesCount > 0) THEN
PRINT "всего ", linesCount, " строк, все элементы которых кратны 5"
ELSE
PRINT "нет строк, все элементы которых кратны 5"
END IF
END
Для 3 задачи нужна картинка.
Первая и вторая задачи:
CLS
DIM N, M AS INTEGER
DIM i, j AS INTEGER
DIM min AS INTEGER
DIM linesCount AS INTEGER
DIM numCount AS INTEGER
DATAINPUT:
INPUT "введите через запятую число строк и столбцов ", N, M
IF (N < 1 OR M < 1) THEN GOTO DATAINPUT
DIM A(N, M) AS INTEGER
DIM B(N) AS INTEGER
PRINT "Ввод матрицы A"
FOR i = 1 TO N
FOR j = 1 TO M
PRINT "введите элемент А ("; i; ","; j; ")"
INPUT A(i, j)
NEXT j
NEXT i
PRINT "Поиск минимальных элементов в строках матрицы"
FOR i = 1 TO N
min = A(i, 1)
FOR j = 1 TO M
IF (A(i, j) < min) THEN min = A(i, j)
NEXT j
B(i) = min
NEXT i
FOR i = 1 TO N
PRINT " ", B(i), "минимальный элемент в строке ", i
NEXT i
PRINT "Поиск строк с элементами кратными 5"
linesCount = 0
FOR i = 1 TO N
numCount = 0
FOR j = 1 TO M
IF (A(i, j) MOD 5 = 0) THEN numCount = numCount + 1
NEXT j
IF (numCount = M) THEN
PRINT " строка ", i
linesCount = linesCount + 1
END IF
NEXT i
IF (linesCount > 0) THEN
PRINT "всего ", linesCount, " строк, все элементы которых кратны 5"
ELSE
PRINT "нет строк, все элементы которых кратны 5"
END IF
END
> я его не понимаю
Что не понимаешь конкретно ?
Что не понимаешь конкретно ?
Похожие вопросы
- Здравствуйте! помогите пожалуйста выполнить зачётные задания по программированию на Pascal
- Пожалуйста, помогите!!! Нужно срочно написать программу в VB. Задание тут:
- Помогите сделать задания по программированию!!!Пожалуйста!! срочно
- Помогите решить задачу на Basic
- Помогите решить задание по HTML/CSS в Dreamweaver
- Очень срочно!!! Помогите с заданиями по ИНФОРМАТИКЕ, надо написать несколько программ:
- Срочно помогите решить задание по программированию
- Помогите с заданием на паскале, срочно!
- Помогите с массивом и сортировкой методом пузырька в языке Си! Прогу надо сдать в пятницу срочно, не знаю как начать!
- Помогите с заданием по C#