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

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

04.05.2010, 08:57. Показов 1574. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1)Заполнить массив размерностью 6х6 по правилу:
1 2 3 4 5 6
2 3 4 5 6 1
3 4 5 6 1 2
4 5 6 1 2 3
5 6 1 2 3 4
6 1 2 3 4 5

2)написать одну программу.Действия производить с исходным массивом.
Дан двумерный массив размерностью 5х6,запомленный случайным образом.
-Заменить максимальный элемент каждой строки на противоположный
-Вставить после столбцов с максимальными элементами столбец из нулей
-удалить срёднюю стоку
-поменять местами предпоследний и последний столбцы
Спасибо за помощь!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2010, 08:57
Ответы с готовыми решениями:

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

Заменить максимальный элемент каждой строки матрицы на противоположный
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный...

Заменить максимальный элемент каждой строки на противоположный
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный элемент...

Заменить максимальный элемент каждой строки матрицы нулем
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный...

7
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
04.05.2010, 12:16 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const n=6;
var a:array[1..n,1..n] of byte;
    i,j:byte;
begin
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=n-i+1 then a[i,j]:=i+j-1
    else a[i,j]:=i+j-1-n;
    write(a[i,j]:3);
   end;
  writeln;
 end;
readln
end.
Добавлено через 2 часа 29 минут
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
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
uses crt;
const n=5;
      m=6;
type matr=array[1..n,1..2*m] of integer;
procedure Vyvod(var a:matr;x,y:byte);
var i,j:byte;
begin
for i:=1 to x do
 begin
  for j:=1 to y do
  write(a[i,j]:5);
  writeln;
 end;
writeln;
end;
var a,b:matr;
    k,p,i,j,jmx,q:byte;
    mx:integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20)+1;
writeln('Исходный маcсив:');
Vyvod(a,n,m);
b:=a;
for i:=1 to n do
 begin
  jmx:=1;
  for j:=1 to m do
  if b[i,j]>b[i,jmx] then jmx:=j;
  b[i,jmx]:=-b[i,jmx];
 end;
writeln('Замена максимальных в строках:');
Vyvod(b,n,m);
write('Press Enter...');
readln;
clrscr;
b:=a;mx:=b[1,1];
for i:=1 to n do
for j:=1 to m do
if b[i,j]>mx then mx:=b[i,j];
writeln('Максимальный элемент исходного массива=',mx);
k:=m;
j:=1;
while j<=k do
 begin
  p:=0;
  for i:=1 to n do
  if b[i,j]=mx then p:=1;
  if p=1 then
   begin
    k:=k+1;
    if j=k-1 then
    for i:=1 to n do b[i,k]:=1
    else
     begin
      for i:=1 to n do
      for q:=k downto j+2 do
      b[i,q]:=b[i,q-1];
      for i:=1 to n do b[i,j+1]:=1;
     end;
    j:=j+2;
   end
  else j:=j+1;
 end;
writeln('Исходный маcсив:');
Vyvod(a,n,m);
writeln('Вставка столбцов после максимумов:');
Vyvod(b,n,k);
write('Press Enter...');
readln;
clrscr;
b:=a;k:=n;
for j:=1 to m do
for i:=k div 2+1 to k-1 do
b[i,j]:=b[i+1,j];
k:=k-1;
writeln('Исходный маcсив:');
Vyvod(a,n,m);
writeln('Удаление средней строки:');
Vyvod(b,k,m);
write('Press Enter...');
readln;
clrscr;
b:=a;
for i:=1 to n do
 begin
  mx:=b[i,m-1];
  b[i,m-1]:=b[i,m];
  b[i,m]:=mx;
 end;
writeln('Исходный маcсив:');
Vyvod(a,n,m);
writeln('Обмен предпоследнего и последнего столбцов:');
Vyvod(b,n,m);
write('Press Enter...');
readln
end.
1
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 27
08.05.2010, 07:41  [ТС] 3
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
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
uses crt;
const n=5;
      m=6;
type matr=array[1..n,1..2*m] of integer;
procedure Vyvod(var a:matr;x,y:byte);
var i,j:byte;
begin
for i:=1 to x do
 begin
  for j:=1 to y do
  write(a[i,j]:5);
  writeln;
 end;
writeln;
end;
var a,b:matr;
    k,p,i,j,jmx,q:byte;
    mx:integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20)+1;
writeln('Исходный маcсив:');
Vyvod(a,n,m);
b:=a;
for i:=1 to n do
 begin
  jmx:=1;
  for j:=1 to m do
  if b[i,j]>b[i,jmx] then jmx:=j;
  b[i,jmx]:=-b[i,jmx];
 end;
writeln('Замена максимальных в строках:');
Vyvod(b,n,m);
write('Press Enter...');
readln;
clrscr;
b:=a;mx:=b[1,1];
for i:=1 to n do
for j:=1 to m do
if b[i,j]>mx then mx:=b[i,j];
writeln('Максимальный элемент исходного массива=',mx);
k:=m;
j:=1;
while j<=k do
 begin
  p:=0;
  for i:=1 to n do
  if b[i,j]=mx then p:=1;
  if p=1 then
   begin
    k:=k+1;
    if j=k-1 then
    for i:=1 to n do b[i,k]:=1
    else
     begin
      for i:=1 to n do
      for q:=k downto j+2 do
      b[i,q]:=b[i,q-1];
      for i:=1 to n do b[i,j+1]:=1;
     end;
    j:=j+2;
   end
  else j:=j+1;
 end;
writeln('Исходный маcсив:');
Vyvod(a,n,m);
writeln('Вставка столбцов после максимумов:');
Vyvod(b,n,k);
write('Press Enter...');
readln;
clrscr;
b:=a;k:=n;
for j:=1 to m do
for i:=k div 2+1 to k-1 do
b[i,j]:=b[i+1,j];
k:=k-1;
writeln('Исходный маcсив:');
Vyvod(a,n,m);
writeln('Удаление средней строки:');
Vyvod(b,k,m);
write('Press Enter...');
readln;
clrscr;
b:=a;
for i:=1 to n do
 begin
  mx:=b[i,m-1];
  b[i,m-1]:=b[i,m];
  b[i,m]:=mx;
 end;
writeln('Исходный маcсив:');
Vyvod(a,n,m);
writeln('Обмен предпоследнего и последнего столбцов:');
Vyvod(b,n,m);
write('Press Enter...');
readln
end.
[/QUOTE]

Вставка столбцов после максимумов:

не работает напишите как сделать правильно плиЗ
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.05.2010, 10:00 4
Цитата Сообщение от Artiom55 Посмотреть сообщение
не работает напишите как сделать правильно п
Что именно не работает, что не так по Вашему мнению и как Вы это установили?
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.05.2010, 10:05 5
Вот скопировал отсюда код, запустил. Максимальный=20, после столбца с ним вставлен столбец из 1. Что еще нужно?
Миниатюры
Заменить максимальный элемент каждой строки матрицы на противоположный  
0
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 27
10.05.2010, 10:43  [ТС] 6
должен выводится столбец из нулей, и после каждого максимального элемента этот столбец должен стоять

Добавлено через 12 минут
ещё у меня он меняет первый столбец матрицы,и скажите плиЗ зачем умножать type matr=array[1..n,1..2*m] of integer; от 1 до 2*m зачем тут 2?
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.05.2010, 10:48 7
Artiom55, Ну неужели так трудно самому поменять 1 на 0? Просто это код программы, где нужно было вставить столбец из 1.

з
зачем умножать type matr=array[1..n,1..2*m] of integer;
Так столбцы добавлять будем, и их может стать в 2 раза больше.

Цитата Сообщение от Artiom55 Посмотреть сообщение
ещё у меня он меняет первый столбец матрицы,
Так поменяйте 1 на m-1.
Вообще хоть чуть остатки мозга включите.
1
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 27
10.05.2010, 10:58  [ТС] 8
спасибо включим
0
10.05.2010, 10:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2010, 10:58
Помогаю со студенческими работами здесь

Заменить максимальный элемент каждой строки матрицы номером столбца в котором он находится
Дан двумерный массив размером n*m заполненный случайным образом 1.Заменить максимальный элемент...

Заменить в каждой строке матрицы максимальный элемент на 0.
Дана матрица А(4х4). Заменить в каждой строке матрицы максимальный элемент на 0.

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

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

Заменить максимальный элемент каждой строки на противоположный
Помогите пожалуйста решить задачу в Pascal (массив). Дан двумерный массив размером...

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


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

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

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