Квадратная матрица

@flegmatik · Регистрация: 30.10.2008

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

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

Вот то, что я написал:

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
program lab5;
uses crt;
const n=5;
type sq_matr=array[1..8,1..8] of integer;
var a:sq_matr;
    min:integer;
    c,i,j:byte;
begin
clrscr;
randomize;
for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(32)-random(64)+16;
writeln('Parent matrix:');
for i:=1 to n do
  begin
    writeln;
    for j:=1 to n do
      write(a[i,j]:5);
  end;
min:=a[1,1];
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        if min>a[i,j] then
          begin
            min:=a[i,j];
            c:=j;
          end;
      end;
  end;
writeln;
writeln('Minimal element: ',min,' ,in ',c,' column');
for i:=1 to 2 do
  for j:=1 to n do
    a[i,j]:=a[j,c];
writeln('Finite matrix: ');
for i:=1 to n do
  begin
    writeln;
    for j:=1 to n do
      write(a[i,j]:5);
  end;
readln;
end.

Работает, но первый элемент второй строки заменяет неправильно. В чем может быть проблема?

@MadMag · 13.11.2008, 21:27

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

@Puporev · 13.11.2008, 21:47

1.

последним из столбцов, в котором находится

Поиск минимального надо искать с конца.
2. После того как Вы изменили первую строку, то у Вас изменился в нужном столбце первый элемент и во вторую строку пойдет уже он. Чтобы этого не было, надо исходную матрицу запомнить, и столбец копировать из новой матрицы.
3. Если размер матрицы задан константой, не надо объявлять его больше.
Вот измененный код.

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
program lab5;
uses crt;
const n=5;
type sq_matr=array[1..n,1..n] of integer;
var a,b:sq_matr;
    min:integer;
    c,i,j:byte;
begin
clrscr;
randomize;
for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(32)-random(64)+16;
writeln('Parent matrix:');
for i:=1 to n do
  begin
    writeln;
    for j:=1 to n do
      write(a[i,j]:5);
  end;
min:=a[n,n];c:=0;
for i:=n downto 1 do
  begin
    for j:=n downto 1 do
      begin
        if min>a[i,j] then
          begin
            min:=a[i,j];
            c:=j;
          end;
      end;
  end;
writeln;
writeln('Minimal element: ',min,' ,in ',c,' column');
b:=a;
for i:=1 to n  do
   begin
    a[1,i]:=b[i,c];
    a[2,i]:=b[i,c];
   end;
writeln('Finite matrix: ');
for i:=1 to n do
  begin
    writeln;
    for j:=1 to n do
      write(a[i,j]:5);
  end;
readln;
end.

@flegmatik · 14.11.2008, 17:18 **[ТС]**

2. После того как Вы изменили первую строку, то у Вас изменился в нужном столбце первый элемент и во вторую строку пойдет уже он. Чтобы этого не было, надо исходную матрицу запомнить, и столбец копировать из новой матрицы.
3. Если размер матрицы задан константой, не надо объявлять его больше.

Спасибо, разобрался. А про размер матрицы, это я недоглядел, раньше он у меня рандомно задавался от 4 до 8, забыл исправить...
И кстати тут и без второго массива можно обойтись, вроде работает все =)

Pascal
1
2
3
4
5
for i:=1 to n  do
   begin
    a[1,i]:=a[i,c];
    a[2,i]:=a[i,c];
   end;

@Puporev · 14.11.2008, 18:58

for i:=1 to n do
begin
a[1,i]:=a[i,c];
a[2,i]:=a[i,c];
end;

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

@flegmatik · 14.11.2008, 19:17 **[ТС]**

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

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

У меня работает, 10 раз перепроверял, и вручную уже элементы матрицы вводил, все правильно делает.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной почты. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	13.11.2008, 21:27
	Посмотри начала циклов, точно ли отткуда начинаются, и не присваиваешь ли ты потом этой ячейки еще раз результат, посомтри так же, может в одном из циклов есть повторное присваение значения ячейке 0