Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
28.10.2013, 16:22

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

28.10.2013, 16:22. Просмотров 846. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

не понял куда единичку записать... сделал так
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.


Вернуться к обсуждению:
Найти наибольший элемент каждой матрицы и записать 1 в ту строку и столбец, в которых он находится
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 16:22

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

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

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

0
Другие темы раздела
Turbo Pascal Найти сумму и произведение четных/нечетных цифр заданного числа N http://www.cyberforum.ru/turbo-pascal/thread989793.html
Найти сумму и произведение четных/нечетных цифр заданного числа N
Turbo Pascal Найти сумму тех членов ряда, модуль которых больше или равен заданному e Итерационные циклы Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид: (см.... http://www.cyberforum.ru/turbo-pascal/thread989770.html
Олимпиадная задача CRACKS Turbo Pascal
В поисках сокровища грабители наткнулись на препятствие в виде прямоугольной каменной плиты, закрывающей вход в подземелье. Плита усеяна трещинами. Каждая трещина представляет собой прямолинейный...
Создать два массива записей, содержащих сведения об успеваемости учеников Turbo Pascal
Создать два массива записей, содержащих сведения об успеваемости учеников (фамилия, ини-циалы, три оценки). Объединить сведения из этих массивов в третий массив. Записи в получен-ном массиве...
Turbo Pascal Решить систему уравнений http://www.cyberforum.ru/turbo-pascal/thread989726.html
не знаю как решить, помогите пожалуйста.
Turbo Pascal Подсчитать, сколько раз среди заданных символов встречаются символ + и сколько раз символ * дана последовательность, состоящая из n символов. подсчитать сколько раз среди данных символов встречаются символ + и сколько раз символ * подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru