0 / 0 / 0
Регистрация: 08.01.2009
Сообщений: 5
1

В матрице поменять местами строки с максимальной и минимальной суммой элементов

08.01.2009, 22:17. Показов 2661. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите плиз.
Заданы 2 матрицы действительных чисел размером 5х6 и 8х7. В матрице поменять местами строки с максимальной и минимальной суммой элементов. Сравнить как изменилась позиция минимального элемента матрицы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2009, 22:17
Ответы с готовыми решениями:

Матрица. Поменять местами столбцы с максимальной и минимальной суммой элементов
Помогите пожалуйста.Нужно в прямоугольной матрице поменять местами столбцы с максимальной и...

В матрице X найти строку с минимальной и столбец с максимальной суммой элементов
Спасайте!Не могу решить(( Дана матрица X размерности nXm.В матрице X найти строку с минимальной и...

Двумерный массив: поменять местами столбец с минимальной суммой элементов столбца с первым столбцом массива
3. Дан двумерный массив размером n x m. Поменять местами столбец с минимальной суммой элементов...

Поменять местами слова с максимальной и минимальной длиной
Здравствуйте, нужно решение задачи: Поменять местами слова с максимальной и минимальной длиной при...

4
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.01.2009, 23:06 2
А при чем здесь объекты?
0
0 / 0 / 0
Регистрация: 08.01.2009
Сообщений: 5
08.01.2009, 23:13  [ТС] 3
Ну проста задание нужно сделать с использованием объектов.
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
09.01.2009, 13:09 4
Написал я Вам программу, но почитайте теорию про объекты, хотя бы здесь.
http://forum.pascal.net.ru/ind... entry38351
Я Вам ничего объяснять не собираюсь.
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
uses crt;
const nn=20;
type Tmas=array[1..nn,1..nn] of real;
     TM=object
        {peremennye objekta}
        m:Tmas; {matrica}
        r,c:byte;{stroka i stolbec - pozicia min }
        min:real; {minimum}
        {metody objekta}
        procedure Vvod(x,y:byte); {vvod matricy x,y-razmer maricy}
        procedure Vyvod(x,y:byte); {vyvod izmenennoj matricy}
        procedure Obmen(x,y:byte); {obmen strok}
        procedure PosMin(x,y:byte); {pozicia minimalnogo}
      end;
procedure TM.Vvod(x,y:byte);
var i,j:integer;
begin
for i:=1 to x do
  begin
    for j:=1 to y do
      begin
       m[i,j]:=10*random;
       write(m[i,j]:5:2);
      end;
    writeln;
  end;
end;
procedure TM.Vyvod(x,y:byte);
var i,j:integer;
begin
writeln('Perestanovka strok:');
for i:=1 to x do
  begin
    for j:=1 to y do
    write(m[i,j]:5:2);
    writeln;
  end;
end;
procedure TM.PosMin(x,y:byte);
var i,j:byte;
begin
min:=m[1,1];
for i:=1 to x do
for j:=1 to y do
if m[i,j]<min then
   begin
     min:=m[i,j];{minimum}
     r:=i; {stroka}
     c:=j;  {stolbec}
   end;
write('Minimalnyj element=',min:0:2);
writeln('  Ego pozicia = stroka ',r,' stolbec ',c);
end;
procedure TM.Obmen(x,y:byte);
var i,j:byte;
    ismax,ismin:byte; {nomera strok s max i min summoj}
    iemin1,jemin1:byte;{nomer stroki i stolbca min.el. do perestanovki}
    iemin2,jemin2:byte;{nomer stroki i stolbca min.el. posle perestanovki}
    sm,smax,smin,emin:real;{summa v stroke, summa max, summa min, min.el.}
    bf:real; {bufer pri obmene strok}
begin
smax:=0;smin:=100;ismax:=1;ismin:=1;
for i:=1 to 5 do
  begin
    sm:=0;
    for j:=1 to 6 do
    sm:=sm+m[i,j];
    if sm>smax then
      begin
       smax:=sm;
       ismax:=i;
      end
    else if sm<smin then
      begin
       smin:=sm;
       ismin:=i;
      end;
  end;
write('Max summa=',smax:0:2,' v stroke ',ismax);
writeln('  Min summa=',smin:0:2,' v stroke ',ismin);
for j:=1 to 6 do
   begin
    bf:=m[ismax,j];
    m[ismax,j]:=m[ismin,j];
    m[ismin,j]:=bf;
   end;
end;
{razdel peremennyh programmy}
var a,b:TM; {objekty-matricy}
    emin:real; {minimalnyj element}
    iemin1,jemin1:byte;{pozicia do perestanovki}
    iemin2,jemin2:byte;{pozicia posle perestanovki}
{nachalo programmy}
begin
clrscr;
randomize;
writeln('Matrica A:');
a.Vvod(5,6);
a.PosMin(5,6);
a.Obmen(5,6);
a.Vyvod(5,6);
a.PosMin(5,6);
if iemin1<>iemin2 then writeln('Pozicia minimalnogo elementa izmenilas!')
else writeln('Pozicia minimalnogo elementa ne izmenilas!');
readln;
writeln('Matrica B:');
b.Vvod(8,7);
b.PosMin(8,7);
b.Obmen(8,7);
b.Vyvod(8,7);
b.PosMin(8,7);
if iemin1<>iemin2 then writeln('Pozicia minimalnogo elementa izmenilas!')
else writeln('Pozicia minimalnogo elementa ne izmenilas!');
readln
end.
1
0 / 0 / 0
Регистрация: 08.01.2009
Сообщений: 5
09.01.2009, 17:24  [ТС] 5
Огромное спасибо
0
09.01.2009, 17:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2009, 17:24
Помогаю со студенческими работами здесь

В матрице найти строку с минимальной суммой элементов.
Помогите очень срочно надо. Дан двумерный массив. Найти строку с минемальной суммой элементов.

В матрице найти столбец с максимальной суммой элементов
найти столбец с максимальной суммой элементов

Строка содержит одно слово максимальной и одно минимальной длины. Поменять их местами.
Строка содержит одно слово максимальной и одно минимальной длины. Поменять их местами. Помогите...

Поменять местами слова с максимальной и минимальной длиной при условии, что такие слова единственные
Поменять местами слова с максимальной и минимальной длиной при условии, что такие слова...


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

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

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