Дана матрица размера M х N

@M@ksiM · Регистрация: 13.06.2010

Студворк — интернет-сервис помощи студентам

Дана матрица размера M х N. Удалить столбец, содержащий максимальный элемент матрицы.

на этом форуме нашел такой код:

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
105
program matrica;
 
 
    type a=array[1..20,1..20]of real;
 
    var n,m,i,j:integer;
 
  mn:real;imn,jmn:integer;
    massiv:a;
     massiv1:a;
 
 
 
 
    procedure enter(n,m:integer; var massiv:a);
var i,j:integer;
begin
for i:=1 to n do
  for j:=1 to m do
    begin writeln('vvedite  a [',i,',',j,']=  ');
                                          read(massiv[i,j]); end; end;
 
 
 
 
 
 
   procedure max(massiv:a;n,m:integer;  var imn :integer; var jmn:integer);
 var
 i,j:integer; mn:real; max:real;
 begin
 max:=massiv[1,1];
 imn:=1; jmn:=1;
 for i:=1 to n do
  for j:=1 to m do
   if massiv[i,j]>max then begin max:=massiv[i,j]; imn:=i; jmn:=j; end;end;
 
 
 
 
   procedure del(massiv:a; n,m:integer;var massiv1:a);
   var i,j,jmn , imn :integer;
   begin
for i:=1 to n do
for j:=jmn to m-1 do
   begin
     massiv[i,j]:=massiv[i,j+1];
   end;
m:=m-1;
 
 
 for i:=imn to n-1 do
for j:=1 to m do
 
massiv[i,j]:=massiv[i+1,j];
 
n:=n-1;
 
 
   end;
 
 
  procedure out(massiv:a);
   var i,j:integer;
  begin
for i:=1 to n do begin
for j:=1 to m do
write(massiv[i,j]:8:1); writeln; end; end;
 
 
begin
 
 
 
 
write('koli4estvo strok  ',' n=');
readln(n);
 
 
write('koli4estvo stolbcov ','m=');
readln(m);
 
enter(n,m,massiv);
 
 writeln('Ishodniy massiv:');
        writeln;
         out(massiv);
 
max(massiv,n,m,imn,jmn);
 
 
 
 
del(massiv,n,m,massiv1);
 
writeln('polu4enniy massiv:');
        writeln;
out(massiv1);
readln;
readln;
 
 
 
 
end.

но он не рабочий... помогите с решением, что здесь не правильно?

@Conroex · 17.06.2010, 20:04

Вводи вот так:
и ничего не меняй.

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
Program xz;
uses crt;
type matrix=array[1..30,1..30] of integer;
var a:matrix;
n,m,i,j,max,jmax:integer;
begin
clrscr;
write('Ввести число строк = ');
readln(n);
write('Ввести число столбцов = ');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('A[',i,',',j,'] = ');
readln(a[i,j]);
end;
writeln('Matrix');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
writeln;
end;
max:=-Maxint;
for i:=1 to n do
for j:=1 to m do
if a[i,j] > max then
begin
max:=a[i,j];
jmax:=j;
end;
for i:=1 to n do
for j:=jmax to m-1 do
a[i,j]:=a[i,j+1];
wrteln('MAX J[',jmax,'] = ',max);
writeln;
for i:=1 to n do
begin
for j:=1 to m-1 do
write(a[i,j],' ');
writeln;
writeln;
end;
readln;
end.

Код полностью рабочий, проверял, набирай этот

@M@ksiM · 17.06.2010, 20:05 **[ТС]**

я уж решил... глянь на предыдущей страничке.... давай t35 поможем...

@t35 · 17.06.2010, 20:07

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

@Conroex · 17.06.2010, 20:08

лады

@M@ksiM · 17.06.2010, 20:09 **[ТС]**

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

благодарю за помощь

@Conroex · 17.06.2010, 20:14

Та не за что)) обращайся, всегда рад

@Mиxaил · 18.06.2010, 08:33

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
const N=3; M=4;
type matrix=array[1..N,1..M] of integer;
var a:matrix;
    i,j,max,jmax:integer;
begin
for i:=1 to N do
  for j:=1 to M do
    begin
      write('a[',i,',',j,'] = ');
      readln(a[i,j]);
    end;
writeln('исходная матрица:');
writeln;
for i:=1 to N do
  begin
    for j:=1 to M do
        write(a[i,j],' ');
    writeln;
    writeln;
  end;
//=====================
{ищем максимальный элемент и его столбец}
max:=-MaxInt;
for i:=1 to N do
  for j:=1 to M do
    if a[i,j]>max then
      begin
        max:=a[i,j];
        jmax:=j;
      end;
//=====================
{удаляем столбец}
 for i:=1 to N do
  for j:=jmax to M-1 do
    a[i,j]:=a[i,j+1];
writeln;
//=====================
{выводим полученную матрицу}
 for i:=1 to N do
  begin
    for j:=1 to M-1 do
        write(a[i,j],' ');
    writeln;
  end;
readln;
end.

@Sp1ne · 18.06.2010, 08:53

Сообщение от Conroex

Ну как я понял ты просто скопирывал мой код и убрал комменты

Кароч, вот тебе вывод начальной матрици
//=====================
{Просто влепи вот это}
writeln('Matrix');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
writeln(a[i,j],' ');
writeln;
writeln;
end;
//=====================
Сверь со своим кодом

вот тут надо вместо writeln(a[i,j],' '); написать write(a[i,j],' '); и тогда все будет в порядке

@M@ksiM · 22.06.2010, 15:56 **[ТС]**

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
uses crt;
var a:array[1..30,1..30] of integer;
    i,j,n,m,min,max,imin,jmin,imax,jmax:integer;
    begin
    write('vvedite 4islo strok  ');
    readln(n);
    write('vvedite 4islo stolbcov  ');
    readln(m);
begin
  min:=0;
  max:=0;
  randomize;
  clrscr;
  writeln('matrica  - ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(10)-5;
      write(a[i,j]:2,' ');
    end;
    writeln;
  end;
  readln;
  end;
max:=-MaxInt;
for i:=1 to N do
  for j:=1 to M do
    if a[i,j]>max then
      begin
        max:=a[i,j];
        jmax:=j;
      end;
 for i:=1 to N do
  for j:=jmax to M-1 do
    a[i,j]:=a[i,j+1];
writeln('Matrix');
writeln('Change matrix');
writeln;
 
for i:=1 to N do
  begin
    for j:=1 to M-1 do
        write(a[i,j],' ');
    writeln;
  end;
readln;
end;
 
  end.

Добавлено через 2 минуты
тема закрыта.....

Новые блоги и статьи Все статьи Все блоги /
Запрет пометки на удаление и отмены проведения Maks 16.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2. Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .	Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет	Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .

@M@ksiM 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 34
	17.06.2010, 20:05 [ТС]
	я уж решил... глянь на предыдущей страничке.... давай t35 поможем... 0

@t35 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 32
	17.06.2010, 20:07
	мне с подпрограммами нужно, а этот код у меня тоже есть, если можно исправьте, код с подпрограммами 0

@Conroex 35 / 34 / 9 Регистрация: 20.04.2010 Сообщений: 126
	17.06.2010, 20:08
	лады 1

@M@ksiM 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 34
	17.06.2010, 20:09 [ТС]
	Conroex, твой тоже рабочий.... но у меня получилось по проще.... да и элементы матрицы вводить не надо.... благодарю за помощь 0

@Conroex 35 / 34 / 9 Регистрация: 20.04.2010 Сообщений: 126
	17.06.2010, 20:14
	Та не за что)) обращайся, всегда рад 0