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

Определить максимальный элемент в каждой строке матрицы и поместить его на первое место в строке

17.01.2013, 04:43. Просмотров 672. Ответов 7
Метки нет (Все метки)

Дана целочисленная матрица размером 5х5 элементов, определить максимальный элемент в каждой строке матрицы и поместить его на первое место в строке. Вывести на экран результатирующую и исходную матрицу в обще принятом виде.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2013, 04:43
Ответы с готовыми решениями:

Процедуры: найти максимальный элемент в каждой строке матрицы и его индексы
Создать программу, которая находит максимальный элемент в каждой строке двумерного массива и его...

В каждой строке матрицы найти максимальный элемент, и поменять его местами с элементом главной диагонали
В двумерном массиве, состоящем из n×m элементов, в каждой строке найти максимальный элемент и...

Найти в каждой строке матрицы максимальный элемент и поменять его местами с элементами главной диагонали
Дана матрица с(12,12). Найти в каждой строке максимальный элемент и поменять его местами с...

Дано матрицу действительных чисел в каждой строке матрицы найти первый максимальный элемент и его координаты (местонахождение)
Дано матрицу действительных чисел. В каждой строке матрицы найти первый максимальный элемент и его...

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

7
CodeR
Фрилансер
3390 / 2791 / 3000
Регистрация: 08.02.2012
Сообщений: 7,178
Записей в блоге: 1
17.01.2013, 09:30 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
Uses Crt;
Const n=5;
Var A:array[1..n,1..n] of integer;
    i,j,jmax,t:integer;
Begin
    ClrScr;Randomize;
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
    Begin
      jmax:=1;
      For j:=2 to n do
       if A[i,j]>A[i,jmax] then jmax:=j;
      t:=A[i,1];
      A[i,1]:=A[i,jmax];
      A[i,jmax]:=t;
    End;
    writeln('Полученная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
        write(A[i,j]:4);
      writeln;
    End;
    readln;
End.
1
credar
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 9
17.01.2013, 10:41  [ТС] 3
это полный код? У меня выводит всего одну строку вместо пяти
0
CodeR
Фрилансер
3390 / 2791 / 3000
Регистрация: 08.02.2012
Сообщений: 7,178
Записей в блоге: 1
17.01.2013, 11:00 4
Цитата Сообщение от credar Посмотреть сообщение
это полный код? У меня выводит всего одну строку вместо пяти
Значит учись копировать)
0
17.01.2013, 11:00
credar
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 9
17.01.2013, 11:40  [ТС] 5
Полный код, плиз)
0
CodeR
Фрилансер
3390 / 2791 / 3000
Регистрация: 08.02.2012
Сообщений: 7,178
Записей в блоге: 1
17.01.2013, 13:05 6
Цитата Сообщение от credar Посмотреть сообщение
Полный код, плиз)
так он и так полный копировать научитесь!
0
credar
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 9
17.01.2013, 14:19  [ТС] 7
И еще требуется в программе применить не мение двух подпрограмм

Добавлено через 26 минут
Народ, помогите с подпрограммами, плиз
0
CodeR
Фрилансер
3390 / 2791 / 3000
Регистрация: 08.02.2012
Сообщений: 7,178
Записей в блоге: 1
17.01.2013, 15:22 8
Цитата Сообщение от credar Посмотреть сообщение
И еще требуется в программе применить не мение двух подпрограмм
Не ужели копировать научились?
А про процедуры сразу говорить нужно)
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
Uses Crt;
Const n=5;
Type matr=array[1..n,1..n] of integer;
Var A:matr;
Procedure Init(Var A:matr;n:byte);
Var i,j:byte;
Begin
    For i:=1 to n do
     For j:=1 to n do
      A[i,j]:=random(31)-15;
End;
Procedure Vivod(A:matr;n:byte);
Var i,j:byte;
Begin
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
End;
Procedure Preob(Var A:matr;n:byte);
Var i,j,jmax,t:integer;
Begin
    For i:=1 to n do
    Begin
      jmax:=1;
      For j:=2 to n do
       if A[i,j]>A[i,jmax] then jmax:=j;
      t:=A[i,1];
      A[i,1]:=A[i,jmax];
      A[i,jmax]:=t;
    End;
End;
Begin
    ClrScr;Randomize;
    writeln('Исходная матрица');
    Init(A,n);
    Vivod(A,n);
    writeln('Полученная матрица');
    Preob(A,n);
    Vivod(A,n);
    readln;
End.
0
17.01.2013, 15:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.01.2013, 15:22

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

Определить максимальный элемент в каждой строке матрицы и поменять его местами с последним элементом строки
Вывести на экран матрицу 8x8, элементами которой являются целые случайные числа из интервала ....

Найти максимальный элемент в каждой строке матрицы и заменить его числом 1.
найти максимальный элемент в каждой строке матрицы и заменить его числом 1.Оформить в виде функции.


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

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

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