Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
1 / 1 / 1
Регистрация: 12.04.2012
Сообщений: 52
1

В двух двумерных массивах поменять местами строки, содержащие максимальные элементы

28.05.2012, 06:49. Показов 1549. Ответов 1
Метки нет (Все метки)

в двух произвольно заданных двумерных массивах поменять местами строк, содержащие максимальные элементы. вывести на экран исходные и измененные матрицы
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2012, 06:49
Ответы с готовыми решениями:

В двух массивах поменять местами строки, содержащие максимальные элементы
В двух произвольно заданных двумерных массивах поменять местами строки, со-держащие максимальные...

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

Поменять местами строки в матрице А(4,4) содержащие минимальный и максимальные элементы
Поменять местами строки в матрице А(4,4) содержащие минимальный и максимальные элементы

Массивы. найти максимальные и минимальные элементы в массивах и поменять их местами
1. сгенерировать два массива А и В случайных вещественных чисел в диапазоне {-25, 25}. генерацию...

__________________
1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
28.05.2012, 08:31 2
Лучший ответ Сообщение было отмечено murena как решение

Решение

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
const
  nmax=100;
 
type 
  tArr=array[1..nmax,1..nmax] of integer;
{процедура инициализации массива}  
procedure init(n1,m1: integer; var ar: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
    for j:=1 to m1 do
      ar[i,j]:=random(199)-99;
end;
{процедура вывода массива}
procedure outPut(n1,m1: integer; var ar: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
      write(ar[i,j]:5);
    writeln;
  end;
end;
{процедура нахождения индекса строки с максимумом}
function stroka(n1,m1: integer; var ar: tArr): integer;
var i,j,max,k: integer;
begin 
  max:=ar[1,1]; k:=1;
  for i:=1 to n1 do
    for j:=1 to m1 do
      if ar[i,j]>max then
      begin
        max:=ar[i,j];
        k:=i;
      end;
  stroka:=k;
end;
 
var
  a,b: tArr;
  j,n,m,max1,max2,tmp: integer;
begin
  write('Введите размеры массивов n,m: ');
  readln(n,m);
  
  writeln('Первый массив:');
  init(n,m,a);
  outPut(n,m,a);
  
  writeln('Второй массив:');
  init(n,m,b);
  outPut(n,m,b);
  
  max1:=stroka(n,m,a);
  max2:=stroka(n,m,b);
  writeln('Максимум первого массива - в ',max1,' строке');
  writeln('Максимум второго массива - в ',max2,' строке');
  {обмен строк}
  for j:=1 to m do
  begin
    tmp:=a[max1,j];
    a[max1,j]:=b[max2,j];
    b[max2,j]:=tmp;
  end;
  
  writeln('Измененный первый массив:');
  outPut(n,m,a);
  writeln('Измененный второй массив:');
  outPut(n,m,b);
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2012, 08:31

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

Поменять местами строки, содержащие минимальный и максимальный элементы матрицы
Помогите пожалуйста... тема Двумерные массивы, заранее благодарю очень надо( Задана матрица...


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

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

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