Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Kalimistick
#1

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

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

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

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

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

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

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

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

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

1
Fakeoke
312 / 312 / 95
Регистрация: 28.07.2011
Сообщений: 1,842
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. Обнулить строку и столбец матрицы, на пересечении которых находится её максимальный элемент - Turbo Pascal
Решите, пожалуйста. Я просто не понимаю ничего...

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

Вычислить наименьший элемент матрицы; записать нули в строку и столбец, в которых он находится - Pascal
Дана матрица. Вычислить наименьший элемент матрицы. Записать нули в строку и столбец, в которых он находится и вывести полученную матрицу и...

Найти максимальный элемент матрицы и удалить строку и столбец, на пересечении которых он находится - Pascal
Матрица A состоит из 7 строк и 9 столбцов. Найти максимальный элемент и удалить строку и столбец, на пересечении которых он...


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

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

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