Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Kalimistick
0 / 0 / 0
Регистрация: 24.10.2013
Сообщений: 1
#1

Найти наибольший элемент каждой матрицы и записать 1 в ту строку и столбец, в которых он находится

27.10.2013, 19:55. Просмотров 843. Ответов 1
Метки нет (Все метки)

Даны матрицы А(6,3) и В(4,5).Найти наибольший элемент каждой матрицы и записать 1 в ту строку и столбец, в которых он находится. Ввод, вывод матрицы и преобразование матрицы оформить в виде отдельных процедур.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.10.2013, 19:55
Ответы с готовыми решениями:

Найти наибольший элемент каждой матрицы и записать 1 в ту строку и столбец, в которых он находится
Даны матрицы А(6,3) и В(4,5).Найти наибольший элемент каждой матрицы и записать...

Исключить из матрицы строку и столбец на пересечении которых находится максимальный элемент.
Дан двумерный числовой массив. Исключить из него строку и столбец на...

Исключить из матрицы строку и столбец, на пересечении которых находится максимальный элемент
Дан двумерный числовой массив. Исключив из него строку и столбец,на пересечении...

Найти минимальный элемент, записать нули в строку и столбец, где этот элемент находится
Из файла F прочесть матрицу М(10,15) .Найти минимальный элемент этой матрицы,...

В квадратной матрицы поменять местами строку и столбец на пересечение которых находится минимальный элемент
В квадратной матрицы поменять местами строку и столбец на пересечение которых...

1
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
28.10.2013, 16:22 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

не понял куда единичку записать... сделал так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses crt;
const n1=6;m1=3;n2=4;m2=5;
type matrix=array [1..6,1..5] of integer;
var
a,b:matrix;
i,j,max1,max2:integer;
 
procedure sozd_matrix(var c:matrix; n,m:integer);
var i,j:integer;
begin
        randomize;
        for i:=1 to n do
        for j:=1 to m do
        c[i,j]:=random(90)+10;
end;
 
procedure vivod_matrix(var c:matrix; n,m:integer);
var i,j:integer;
begin
        for i:=1 to n do
        begin
                for j:=1 to m do
                write(c[i,j]:3);
        writeln;
        end;
writeln;
end;
 
procedure rabsmax(var c:matrix; n,m:integer);
var i,j,max,nmaxi,nmaxj:integer;
begin
        max:=-maxint;
        for i:=1 to n do
        for j:=1 to m do
        if c[i,j]>max then
        begin
        max:=c[i,j];
        nmaxi:=i;
        nmaxj:=j;
        end;
writeln('Max element : a[',nmaxi,',',nmaxj,'] = ',max);
writeln('Stavim 1 na ego stroky i stolbec...');
c[1,nmaxj]:=1;
c[nmaxi,1]:=1;
end;
 
BEGIN
sozd_matrix(a,n1,m1);
vivod_matrix(a,n1,m1);
sozd_matrix(b,n2,m2);
vivod_matrix(b,n2,m2);
rabsmax(a,n1,m1);
vivod_matrix(a,n1,m1);
rabsmax(b,n2,m2);
vivod_matrix(b,n2,m2);
readkey;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 16:22

Найти номер строки и номера столбца матрицы, на пересечении которых находится наибольший элемент матрицы
ПОМОГИТЕ СРОЧНО!!ЭКЗАМЕН!!Написать подпрограмму определения номера строки и...

Дана матрица размером nxn. Обнулить строку и столбец матрицы, на пересечении которых находится её максимальный элемент
Решите, пожалуйста. Я просто не понимаю ничего...

Найти в массиве минимальный элемент и заполнить нулями строку и столбец, на пересечении которых он находится
1) Найти в массиве минимальный элемент и заполнить нулями строку и столбец, на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru