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

Найти максимальный элемент каждой строки матрицы

26.12.2012, 02:00. Просмотров 936. Ответов 2
Метки нет (Все метки)

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

Дана квадратная матрица размерности n*n . Найти максимальный элемент каждой строки и поменять его с элементом этой строки, стоящим в последнем столбце.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2012, 02:00
Ответы с готовыми решениями:

Найти максимальный элемент каждой строки матрицы
Помогите пожалуйста, надо в течении недели сдать!:) Для матрицы размером M*N найти максимальный...

Найти максимальный элемент каждой строки матрицы
Найти максимальный элемент каждой строки .Затем из них найти минимальный . Вывести элемент и его...

Найти сумму элементов каждой строки матрицы и удалить строки, содержащую максимальный элемент
Дана матрица А. Ввести элементы массива с помощью генератора случайных чисел в интервале . Вывести ...

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

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

2
HighPredator
5689 / 2008 / 723
Регистрация: 10.12.2010
Сообщений: 5,774
Записей в блоге: 3
26.12.2012, 02:06 2
Посмотрите, может окажется полезным: Стандартные операции с массивами (матрицами)
0
baquaqa
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
26.12.2012, 02:25 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Здравствуйте. Вот пример решения:

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
Program _matrix;
 
const
 
  N=5;
 
type
 
 TArray=Array [1..N,1..N] of integer;
 
 TPos=record
  i:integer;
  j:integer;
 end;
 
var
 
  matrix:Tarray;
  MaxOnLine,last:TPos;
  i:integer;
  
procedure FillMatrix(var Matrix:TArray;hand:boolean);
{процедура заполнения матрицы
 если hand = TRUE - вручную
             FALSE - случайные значения   }
 var
  
  i,j:integer;
 
begin
 if hand then begin
               for i:=1 to N do
               for j:=1 to N do begin
                                 write('[',i,',',j,']: ');
                                 readln(matrix[i,j]);
                                end
              end else begin
                        for i:=1 to N do
                        for j:=1 to N do matrix[i,j]:=Random(100);
                       end;
end;
 
procedure OutMatrix(head:string;const Matrix:Tarray);
 { процедура вывода матрицы на экран }
 var
 
  i,j:integer;
  
begin
 Writeln(head);
 for i:=1 to N do begin
 for j:=1 to N do write(Matrix[i,j],' ');
                  writeln();
                  end;
end; 
 
function FindMaxOnLine(const Matrix:TArray;line:integer):TPos;
 var
  
  max:integer;
  pos:TPos;
  i:integer;
  
begin
 max:=Matrix[line,1];
 pos.i:=line;
 pos.j:=1;
 for i:=1 to N do 
 if max<Matrix[line,i] then begin
                             max:=matrix[line,i];
                             pos.i:=line;
                             pos.j:=i;
                            end;
 FindMaxOnLine:=Pos;                            
end;
 
procedure Swap(const Matrix:TArray;P1,P2:TPos);
 var
 
  temp:integer;
  
begin
 temp:=Matrix[P1.i,P1.j];
 Matrix[P1.i,P1.j]:=Matrix[P2.i,P2.j];
 Matrix[P2.i,P2.j]:=temp;
end;
BEGIN
 
{ fill & print matrix }
 randomize;
 FillMatrix(Matrix,FALSE); { TRUE если вручную }
 OutMatrix('Cформирована матрица: ',Matrix);
 
{  process. & output }
 
 Writeln('processing..');
 for i:=1 to N do begin
                   MaxOnLine:=FindMaxOnLine(Matrix,i);
                   last.i:=i;
                   last.j:=N;
                   Swap(Matrix,MaxOnLine,last);
                  end;
 OutMatrix('Cформирована матрица: ',Matrix);                  
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2012, 02:25

Определить максимальный по модулю элемент каждой строки матрицы
Снова прошу помощи по массивам, сдав предыдущую работу думала на этом и конец, а оказывается ещё...

Заменить максимальный элемент каждой строки матрицы на число 7
Дан двумерный массив размерностью 6 х 7, заполненный случайным образом. − заменить максимальный...

Заменить максимальный элемент каждой строки матрицы на противоположный
Дан двумерный массив размерностью 5х6, заполненный случайным образом. 1)заменить максим. элемент...


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

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

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