Программки — на форуме: Архив компьютерного форума

Популярное сегодня

Страницы: (1) 1

-=Mafia=-

Женат

09-11-2009 - 10:54
Помогите пожалуйста с двумя заданиями по программированию.

1. получить массив максимальных элементов столбцов матрица А(3,6)

2. данна матрица целых чисел размерностью 5 на 5. определить максим. элемент из миним. значений строк этого массива.

do-do

Свободен

09-11-2009 - 17:22
А в чем затык то?

Формируешь матрицу
Инициализируешь вектор (одномерный массив - размерном с кол-во столбцов) для записи результата. В него СРАЗУ записываешь (в соответствующие позиции) значение ЭЛЕМЕНТОВ ПЕРВОЙ строки матрицы то бишь a1i

Ну и потом в двойном цикле
цикл по кол-во столбцов
цикл по кол-ву строк
Сравниваешь элемент выходного массива с текущим значением фиксированного столбца...если значение больше, записываешь его вместо старого

из миним. значений строк - что то не соображу ЧТО это такое (находим строчку с минимальным элементом и в ней находим максимальный элемент? так что ли)

Это сообщение отредактировал do-do - 09-11-2009 - 17:25

-=Mafia=-

Женат

11-11-2009 - 10:33
Это будет правильным решением?

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 - 19:37
Гм... но тут Условие другое, чем в опубликованном задании.... Тут Нужно выяснить - есть ли заданное число в "Максимальном" столбце матрицы

-=Mafia=-

Женат

24-12-2009 - 19:40
тему удалите

Свободен

24-12-2009 - 22:35
Постарайтесь использовать этикетные слова или выражения.

0 Пользователей читают эту тему

Страницы: (1) 1 ...

Наверх