Программки
-=Mafia=-
Интересующийся
11/9/2009, 12:54:28 PM
Помогите пожалуйста с двумя заданиями по программированию.
1. получить массив максимальных элементов столбцов матрица А(3,6)
2. данна матрица целых чисел размерностью 5 на 5. определить максим. элемент из миним. значений строк этого массива.
1. получить массив максимальных элементов столбцов матрица А(3,6)
2. данна матрица целых чисел размерностью 5 на 5. определить максим. элемент из миним. значений строк этого массива.
do-do
Мастер
11/9/2009, 7:22:45 PM
А в чем затык то?
Формируешь матрицу
Инициализируешь вектор (одномерный массив - размерном с кол-во столбцов) для записи результата. В него СРАЗУ записываешь (в соответствующие позиции) значение ЭЛЕМЕНТОВ ПЕРВОЙ строки матрицы то бишь a1i
Ну и потом в двойном цикле
цикл по кол-во столбцов
цикл по кол-ву строк
Сравниваешь элемент выходного массива с текущим значением фиксированного столбца...если значение больше, записываешь его вместо старого
из миним. значений строк - что то не соображу ЧТО это такое (находим строчку с минимальным элементом и в ней находим максимальный элемент? так что ли)
Формируешь матрицу
Инициализируешь вектор (одномерный массив - размерном с кол-во столбцов) для записи результата. В него СРАЗУ записываешь (в соответствующие позиции) значение ЭЛЕМЕНТОВ ПЕРВОЙ строки матрицы то бишь a1i
Ну и потом в двойном цикле
цикл по кол-во столбцов
цикл по кол-ву строк
Сравниваешь элемент выходного массива с текущим значением фиксированного столбца...если значение больше, записываешь его вместо старого
из миним. значений строк - что то не соображу ЧТО это такое (находим строчку с минимальным элементом и в ней находим максимальный элемент? так что ли)
-=Mafia=-
Интересующийся
11/11/2009, 12:33:41 PM
Это будет правильным решением?
CODE CLS
INPUT "Введите целое K = ", K
PRINT "Введите целочисленную матрицу А"
INPUT "Количество строк - ", N
INPUT "Количество столбцов - ", M
DIM A(N, M)
FOR i = 1 TO N
FOR j = 1 TO M
PRINT "A("; i; ", "; j; ") = ";
INPUT A(i, j)
NEXT j
NEXT i : CLS
PRINT "Исходная матрица "
FOR i = 1 TO N
FOR j = 1 TO M
PRINT A(i, j);
NEXT j : PRINT
NEXT i : PRINT
Flag = 0 : j = 1
WHILE (j <= M) AND (Flag = 0) 'цикл по столбцам с прерыванием
JMax = A(1, j)
FOR i = 2 TO N 'цикл нахождения JMax
IF A(i, j) > JMax THEN JMax = A(i, j)
NEXT i
IF K = JMax THEN Flag = 1 ELSE j = j + 1 'условие прерывания
WEND
PRINT "О т в е т : число"; K;
IF Flag = 1 THEN
PRINT "встречается";
ELSE PRINT "не встречается";
END IF
PRINT " среди максимальных элементов столбцов матрицы"
END
CODE CLS
INPUT "Введите целое K = ", K
PRINT "Введите целочисленную матрицу А"
INPUT "Количество строк - ", N
INPUT "Количество столбцов - ", M
DIM A(N, M)
FOR i = 1 TO N
FOR j = 1 TO M
PRINT "A("; i; ", "; j; ") = ";
INPUT A(i, j)
NEXT j
NEXT i : CLS
PRINT "Исходная матрица "
FOR i = 1 TO N
FOR j = 1 TO M
PRINT A(i, j);
NEXT j : PRINT
NEXT i : PRINT
Flag = 0 : j = 1
WHILE (j <= M) AND (Flag = 0) 'цикл по столбцам с прерыванием
JMax = A(1, j)
FOR i = 2 TO N 'цикл нахождения JMax
IF A(i, j) > JMax THEN JMax = A(i, j)
NEXT i
IF K = JMax THEN Flag = 1 ELSE j = j + 1 'условие прерывания
WEND
PRINT "О т в е т : число"; K;
IF Flag = 1 THEN
PRINT "встречается";
ELSE PRINT "не встречается";
END IF
PRINT " среди максимальных элементов столбцов матрицы"
END
do-do
Мастер
11/11/2009, 9:37:19 PM
Гм... но тут Условие другое, чем в опубликованном задании.... Тут Нужно выяснить - есть ли заданное число в "Максимальном" столбце матрицы
-=Mafia=-
Интересующийся
12/24/2009, 9:40:10 PM
тему удалите
DELETED
Акула пера
12/25/2009, 12:35:06 AM
Постарайтесь использовать этикетные слова или выражения.