Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 21.12.2011
Сообщений: 75
1

Вычесть элементы строки с наибольшим элементом матрицы из всех остальных строк

21.12.2011, 10:21. Показов 1108. Ответов 4
Метки нет (Все метки)

дана матрица.вычесть элементы строки,в которой находится наибольший элемент матрицы,из всех остальных строк .
помогите пожалуйста и если можно объясните решение!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2011, 10:21
Ответы с готовыми решениями:

Найдите скалярное произведение строки с наибольшим элементом матрицы и столбца с наименьшим элементом матрицы
Пусть дана истинная матрица размером N × N, все элементы которой различны. Найдите скалярное...

Скалярное произведение строки с наибольшим элементом матрицы и столбца с наименьшим элементом матрицы
Дана вещественная матрица размером N, все элементы которой различны. Найти скалярное произведение...

Вычитание заданной номером строки матрицы из всех остальных строк
Класс должен реализовать следующие операции над матрицами: вычитание заданной номером строки из...

Скалярное произведение строки с наибольшим элементом матрицы на столбец с наименьшим элементом
Дана матрица целых чисел X(n, п). Вывести матрицу и скалярное произведение строки с наибольшим...

4
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
21.12.2011, 10:59 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
uses crt;
var a: array [1..100,1..100] of integer;
    i,j,n,m,imax,jmax: integer;
begin
writeln('n,m=');
readln(n,m);
imax:=1; jmax:=1;
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(101)-50;
        write(a[i,j]:4);
        if a[i,j]>a[imax,jmax] then
           begin
           imax:=i;
           jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Ìàêñèìàëüíûé ýëåìåíò = ',a[imax,jmax],' â ñòðîêå ',imax,' â ñòîëáöå ',jmax);
writeln('Ïðåîáðàçîâàííûé ìàññèâ');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        if i<>imax then
           a[i,j]:=a[i,j]-a[imax,j];
        write(a[i,j]:4);
         end;
    writeln;
    end;
end.
0
1 / 1 / 0
Регистрация: 21.12.2011
Сообщений: 75
21.12.2011, 13:41  [ТС] 3
спасибо большое!!!
можете в краце пояснить свое решение?
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
21.12.2011, 13:49 4
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
uses crt;
var a: array [1..100,1..100] of integer;
    i,j,n,m,imax,jmax: integer;
begin
writeln('n,m=');
readln(n,m);
imax:=1; jmax:=1;                 //изначально считаю что максимальный = это первый
writeln('Исходный массив');
for i:=1 to n do                  //цикл с параметром для перебора строк
    begin
    for j:=1 to m do                 //цикл с параметром для перебора столбцов
        begin
        a[i,j]:=random(101)-50;    //генератор случайных чисел от -50 до 50
        write(a[i,j]:4);               //вывод на экран
        if a[i,j]>a[imax,jmax] then         //если элмент больше максимального
           begin
           imax:=i;                         //замнить индексы максимального на индексы элемента
           jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Максимальный элемент = ',a[imax,jmax],' в строке ',imax,' в столбце ',jmax);     //вывод
writeln('Преобразованный массив');
for i:=1 to n do                                         //цикл для строк
    begin
    for j:=1 to m do                                        //цикл для столбцов
        begin                                               //если это не строка с максимальным элементом
        if i<>imax then
           a[i,j]:=a[i,j]-a[imax,j];                        //то из элемента вычесть соответствующий элемент строки с максимумом
        write(a[i,j]:4);                                    //вывести новое значение на экран
         end;
    writeln;
    end;
end.
0
1 / 1 / 0
Регистрация: 21.12.2011
Сообщений: 75
21.12.2011, 13:51  [ТС] 5
спасибо выручили)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2011, 13:51

Найти скалярное произведение строки с наибольшим элементом матрицы и столбца с наименьшим элементом
Дана вещественная матрица размером 7×7, все элементы которой различны. Найти скалярное произведение...

Найдите скалярное произведение строки с наибольшим элементом матрицы и столбца с наименьшим элементом
Решите пожалуйста. Пусть дана вещественная матрица размером n x m, все элементы которой различны....

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

Наименьший элемент каждой строки матрицы заменить наибольшим элементом предыдущей строки
Наименьший элемент каждой строки прямоугольной таблицы замените наибольшим элементом предыдущей...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru