С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
AlVeider
0 / 0 / 0
Регистрация: 24.12.2012
Сообщений: 3
1

Модули: Поменять местами максимальный и минимальный элементы в каждой строке матрицы

25.12.2012, 16:30. Просмотров 677. Ответов 1
Метки нет (Все метки)

Поменять местами максимальный и минимальный элементы в каждой строке матрицы (записать модулями и процедурами)
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
uses crt;
const n=5; m=10;
var a:array[1..n,1..m]of integer;
i,j,min,max,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to m do
  begin
    a[i,j]:=-50+random(100);
    write(a[i,j]:4);
  end;
  writeln;
 end;
 
 for i:=1 to n do
 begin
  min:=1;
  max:=2;
  for j:=1 to m do if a[i,j]>a[i,max] then max:=j else if a[i,j]<a[i,min] then min:=j;
 writeln('Строка ',i);
 writeln('MAX = A[',i,',',max,']=',a[i,max]);
 writeln('MIN = A[',i,',',min,']=',a[i,min]);
  b:=a[i,min]; 
  a[i,min]:=a[i,max];
  a[i,max]:=b;
 end;
 
 writeln('Преобразовнная матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:4);
  writeln;
 end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2012, 16:30
Ответы с готовыми решениями:

Найти максимальный и минимальный элементы в каждой строке и поменять их местами с элементами первой и последней позиции соответственно
Program Proga; uses crt; var a: array of real; i,j:integer; ...

Поменять местами столбцы матрицы, имеющие минимальный и максимальный элементы в первой строке
Задана матрица (n × m). Поменять местами столбцы, имеющие минимальный и...

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

Поменять местами максимальный и минимальный элементы матрицы
Матрица,размерности н х м,вводится из текстового файла.Если сумма элементов...

поменять местами строки содержащие минимальный и максимальный элементы матрицы
не могу понять что не хватает const maxN = 100; maxM = 100; type ...

1
ermolay
3432 / 2371 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
25.12.2012, 17:14 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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit veider;
 
const
  n=5;
  m=10;
  
type
  arr=array[1..n,1..m] of integer;
  
procedure init(var a: arr);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=-50+random(101);
end;
 
procedure outPut(a: arr);
var i,j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
procedure change(var a: arr);
var 
  i,j,jmin,jmax: byte;
  tmp: integer;
begin
  for i:=1 to n do
  begin
    jmin:=1; jmax:=1;
    for j:=2 to m do
    begin
      if a[i,j]>a[i,jmax] then jmax:=j;
      if a[i,j]<a[i,jmin] then jmin:=j;     
    end;
    write(i,'. min = a[',i,',',jmin,'] = ',a[i,jmin]);
    writeln(';    max = a[',i,',',jmax,'] = ',a[i,jmax]);
    tmp:=a[i,jmin];
    a[i,jmin]:=a[i,jmax];
    a[i,jmax]:=tmp;
  end;
  writeln;
end;
 
end.
основная программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses veider;
var
  a: arr;
begin
  init(a);
  writeln('Исходный массив:');
  outPut(a);
  change(a);
  writeln('Преобразованный массив:');
  outPut(a);
  readln;
end.
Добавлено через 4 минуты
обратите внимание на стр. 37 модуля: за минимум и максимум принимаем первый элемент строки
Pascal
1
jmin:=1; jmax:=1;
стр. 38 : сравнивать с ними начинаем со второго элемента строки (не обязательно)
Pascal
1
for j:=2 to m do
стр.15: таким образом в диапазон чисел попадут от -50 до 50 (учитываем еще и 0)
Pascal
1
a[i,j]:=-50+random(101);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2012, 17:14

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

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

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


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

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

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