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

@fenixgaurd · Регистрация: 13.02.2012

Доброго времени суток!
Пытаюсь решить задачку, курсовая по информатике. Дана матрица a[N,N] вещественных значений. Удалить строку и столбец матрицы, на пересечении которой находится минимальный элемент.
Дело в том, что препод, объясняя новый материал не закреплял его с нами на компьютерах сразу, ну и естественно трудно писать на языке, если у тебя нету практики. Но я смог все же написать почти всю программу, за исключением самого последнего. Минимальный элемент я нашел, но как теперь написать новую матрицу обходя элементы из столбца и строки в которой содержится минимальный элемент? Пожалуйста подскажите.

Pascal

program Kypcovay6;
const
c=',';
var
A: array [1..10,1..10] of real;
n,i,j: integer;
min:real;
begin
writeln ('Введите размерность матрицы от 1 до 10');
readln (n);
for i:= 1 to n do
for j:= 1 to n do
begin
writeln ('Введите [',i,',',j,'] элемент матрицы');
readln (A [i,j]);
end;
for i:= 1 to n do
begin
for j:= 1 to n do
write (A[i,j]:5:2);
writeln;
end;
min:=a[1,1];
begin
for i:=1 to n do
for j:=1 to n do
 if min>=a[i,j] then min:=a[i,j];
 writeln('Минимальное ',min:2:2);
 end;
begin
for i:=1 to n do
for j:=1 to n do
 if min=a[i,j] then
 begin
 write('a[',i);write('',c);write('',j);writeln(']');
 end;
 end;
readln;
end.

Добавлено через 12 часов 4 минуты
Ну что никто не может помочь, хотя бы подскажите как исключить элементы этих строк и столбцов

@3a9Ic · 16.05.2012, 08:46

Pascal

Uses CRT;
Const n=5;
var a:array[1..n,1..n] of integer;
    i,j,index,undex,min:integer;
begin
     ClrScr;Randomize;
     for i:=1 to n do
     for j:=1 to n do
     begin
          a[i,j]:=Random(21);
          gotoxy(j*5+5,i);
          write(a[i,j]);
     end;
min:=a[1,1];
     for i:=1 to n do
     for j:=1 to n do
     if a[i,j]<min then
     begin
          min:=a[i,j];
          index:=i;
          undex:=j;
     end;
writeln('');
writeln('Min=',min,' i=',index,' j=',undex);
     for i:=1 to n do
     for j:=1 to n do
     if (index<>i) and (undex<>j) then
     begin
          gotoxy(j*5+5,i+10);
          write(a[i,j]);
     end;
end.

@fenixgaurd · 16.05.2012, 16:39 **[ТС]**

Спасибо за программу, все работает, но пожалуйста прошу мне пояснить вот этот фрагмент, откуда цифра 5? и 10? атак же оператор gotoxy. Я понял так что ваша матрица вводится рандомными числами, и размер у вас всегда равен 5,а как в моем случае, если у меня размер задается в начале?

Сообщение от 3a9Ic

Pascal

     begin
          gotoxy(j*5+5,i+10);
          write(a[i,j]);
     end;

@3a9Ic · 16.05.2012, 16:43

Про размер никто ничего не говорил

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

Pascal

1	var a:array[1..99,1..99] of integer;

Константу удаляем. И вместо нее, в коде, пишем:

Pascal

1
2
3

var n:integer
...
write('Введите N=');Read(n);

Далее, все по старинке. Ну и оператор gotoXY(J,I); Это оператор, который перемещает курсор на указанный X и Y, по Рамке (Т.е. Uses CRT). Просто, использую для красивого вывода, или вывода матрицы. gotoXY(J*(размер между цифрами)+(Смещение по Х), i+(Смещение по Y)

@fenixgaurd · 16.05.2012, 16:58 **[ТС]**

Ага, понял! Спасибо! Но еще вопрос, у меня получатся так что выходная матрица где-то под предыдущими словами, как мне ее более менее расположить нормально? задать больше смещение по осям? И вообще можно без оператора gotoxy вывести эту матрицу? Если вам не сложно подскажите! Спасибо!

Добавлено через 3 минуты
Я убрал этот оператор, программа работает, выводит матрицу, но выводит ее в строчку, а как сделать чтобы он ее выводил как матрицу?

Pascal

program Kypcovay6;
const
c=',';
var
A: array [1..10,1..10] of real;
n,i,k,l,j: integer;
min:real;
begin
writeln ('Введите размерность матрицы от 1 до 10');
readln (n);
for i:= 1 to n do
for j:= 1 to n do
begin
writeln ('Введите [',i,',',j,'] элемент матрицы');
readln (A [i,j]);
end;
for i:= 1 to n do
begin
for j:= 1 to n do
write (A[i,j]:5:2);
writeln;
end;
min:=a[1,1];
begin
for i:=1 to n do
for j:=1 to n do
 if a[i,j]<min then
 begin
    min:=a[i,j];
    k:=i;
    l:=j;
 end;
 
 writeln('Минимальное ',min:2:2);
 write('a[',k);write('',c);write('',l);writeln(']');
 end;
 for i:=1 to n do
 for j:=1 to n do
 if (k<>i)and(l<>j) then
 begin
 
   write(a[i,j]:10:2);
 end;
 
readln;
end.

Добавлено через 13 секунд

@3a9Ic · 16.05.2012, 17:21

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

@fenixgaurd · 16.05.2012, 17:26 **[ТС]**

Вот ввожу данные, размер матрицы любой ну например 2х2 вписываю элементы, 1 2 3 4, и он выдает новую матрицу, должен написать 4, а пишет 1. В чем проблема?
Нашел проблему! Моя ошибка не там определил K и L

@3a9Ic · 16.05.2012, 17:28

Как должен, так и пишет. Так как, изначально заносится элемент a[1,1] / a[1,2] / a[2,1] / a[2,2]
Или пишет только 1 значение?
Можно вопрос ещё, какой смысл от:"Const c=',' "

@fenixgaurd · 16.05.2012, 17:33 **[ТС]**

Сообщение от 3a9Ic

Как должен, так и пишет. Так как, изначально заносится элемент a[1,1] / a[1,2] / a[2,1] / a[2,2]
Или пишет только 1 значение?
Можно вопрос ещё, какой смысл от:"Const c=',' "

Да конечно, при выводе строчки,

Pascal

1	write('a[',i);write('',c);write('',j);writeln(']');

тут нужна запятая, вот она для этого

@3a9Ic · 16.05.2012, 17:35

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

writeln ('Введите [',i,',',j,'] элемент матрицы');

Тут тоже нужна запятая, ну вы же не вставляете C

И, наверно, проще это вывести в один Write.

Pascal

1	Write('a[',i,' ',',',' ',j,']');

@fenixgaurd · 16.05.2012, 17:46 **[ТС]**

А еще вопрос, подскажите, как сделать, например у меня матрица из одинаковых элементов, как это обыграть? Ну вообще нужно закончить программу написанием что все элементы одинаковые и чтобы дальше она не выполнялась.

@3a9Ic · 16.05.2012, 17:49

Хм, если они все одинаковые, из кого минимум искать?)
Ну, или в ручную задать все элементы одинаковые (кроме минимума). И добавить вывод в конце. Или Вам нужно, что бы программа работала, до конца?

@fenixgaurd · 16.05.2012, 17:54 **[ТС]**

Сообщение от 3a9Ic

Хм, если они все одинаковые, из кого минимум искать?)
Ну, или в ручную задать все элементы одинаковые (кроме минимума). И добавить вывод в конце. Или Вам нужно, что бы программа работала, до конца?

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

@3a9Ic · 16.05.2012, 18:01

Что-то не могу придумать по умнее, вот так только...

Pascal

var k:integer;
....
     for i:=1 to n do
     for j:=1 to n do
     if a[i,j]=min then inc(k);
     if k=n*n then
     begin
          writeln('Âñå ýëåìåíòû îäèíàêîâûå');
          exit;
     end;

@fenixgaurd · 16.05.2012, 18:15 **[ТС]**

Посмотрите пожалуйста код, я сделал почти так, но просто у Вас он не выходил из программы, сделал после врайта else но он ругается, не пойму на что, может где то ошибка?

Pascal

program Kypcovay6;
var
A: array [1..10,1..10] of real;
n,i,k,l,j,t:integer;
min:real;
begin
writeln ('Введите размерность матрицы от 1 до 10');
readln (n);
for i:= 1 to n do
for j:= 1 to n do
begin
writeln ('Введите [',i,',',j,'] элемент матрицы');
readln (A [i,j]);
end;
for i:= 1 to n do
begin
for j:= 1 to n do
write (A[i,j]:5:2);
writeln;
end;
 
for i:=1 to n do
for j:=1 to n do
 if a[i,j]=min then inc(t);
 if t=n*n then
   writeln('Все элементы одинаковые');
 else
 begin
 
 min:=a[1,1];
begin
 for i:=1 to n do
 for j:=1 to n do
  if min>=a[i,j] then   min:=a[i,j];
 
 writeln('Минимальное ',min:2:2);
 end;
 begin
 for i:=1 to n do
 for j:=1 to n do
  if min=a[i,j] then
  begin
   writeln('a[',i,'',',','',j,']');
   k:=i;l:=j;
  end;
 
 for i:=1 to n do
 for j:=1 to n do
 if (i<>k) and (j<>l) then
   write(a[i,j]:10:2);
 end;
 end;
readln;
end

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

Сообщение от 3a9Ic

Что-то не могу придумать по умнее, вот так только...

Pascal

var k:integer;
....
     for i:=1 to n do
     for j:=1 to n do
     if a[i,j]=min then inc(k);
     if k=n*n then
     begin
          writeln('Âñå ýëåìåíòû îäèíàêîâûå');
          exit;
     end;

Да, кстати, я просто не знал, оказывается нужно описать как процедуру exit

@3a9Ic · 16.05.2012, 18:31

Pascal

program Kypcovay6;
Uses CRT;
var
A: array [1..10,1..10] of real;
n,i,k,l,j,t:integer;
min:real;
begin
ClrScr;
writeln ('Ââåäèòå ðàçìåðíîñòü ìàòðèöû îò 1 äî 10');
readln (n);
for i:= 1 to n do
for j:= 1 to n do
begin
     writeln ('Ââåäèòå [',i,',',j,'] ýëåìåíò ìàòðèöû');
     readln (A [i,j]);
end;
ClrScr;
for i:= 1 to n do
begin
for j:= 1 to n do
    write (A[i,j]:5:2,' ');
    writeln;
end;
 
for i:=1 to n do
for j:=1 to n do
    if a[i,j]=min then inc(t);
    if t=n*n then
    begin
         writeln('Âñå ýëåìåíòû îäèíàêîâûå');
         exit;
    end;
min:=a[1,1];
begin
     for i:=1 to n do
     for j:=1 to n do
         if min>=a[i,j] then min:=a[i,j];
 write('Ìèíèìàëüíîå ',min:2:2,' ');
 end;
 begin
 for i:=1 to n do
 for j:=1 to n do
     if min=a[i,j] then
     begin
          writeln('a[',i,'',',','',j,']');
          k:=i;l:=j;
     end;
 end;
for i:=1 to n do
begin
for j:=1 to n do
    if (i<>k) and (j<>l) then
    begin
         write(a[i,j]:4:2,' ');
    end;
    writeln;
end;
end.

@fenixgaurd · 16.05.2012, 19:10 **[ТС]**

Огромное спасибо Вам за помощь, спасибо нажал на всех постах, ибо не жалко когда помогают хорошие люди. А вот блок-схему, есть какие- то программы для их начертания, или в ручную? Вы вот как дружите с ними?

@3a9Ic · 16.05.2012, 19:32

Обычно пользуюсь программой:autoshema , но, когда копирнул туда код, программа взбесилась, она согласна его обрабатывать только частями. Поискал в интернете, более мощную, что-то не нашел.
Так как, делать скрины такого кода не целесообразно,Тут можно скачать эту программу, может поможет.

@fenixgaurd · 16.05.2012, 19:44 **[ТС]**

Спасибо. Да и в правду на код она ругается. Придется чертить в ручную.

@3a9Ic · 16.05.2012, 19:56

Вбейте по половине программы. Он Вам все от рисует, по-частям.

@fenixgaurd 0 / 0 / 0 Регистрация: 13.02.2012 Сообщений: 57
	16.05.2012, 17:46 [ТС]	11
	А еще вопрос, подскажите, как сделать, например у меня матрица из одинаковых элементов, как это обыграть? Ну вообще нужно закончить программу написанием что все элементы одинаковые и чтобы дальше она не выполнялась. 0

@3a9Ic 141 / 129 / 113 Регистрация: 08.04.2012 Сообщений: 245
	16.05.2012, 17:21	6
	Он как раз выводит матрицу, как матрицу. Можно и по-другому, только я не люблю другой способ и почти его не использую. Поэтому, не помню. 1

@fenixgaurd 0 / 0 / 0 Регистрация: 13.02.2012 Сообщений: 57
	16.05.2012, 17:26 [ТС]	7
	Вот ввожу данные, размер матрицы любой ну например 2х2 вписываю элементы, 1 2 3 4, и он выдает новую матрицу, должен написать 4, а пишет 1. В чем проблема? Нашел проблему! Моя ошибка не там определил K и L 0

@3a9Ic 141 / 129 / 113 Регистрация: 08.04.2012 Сообщений: 245
	16.05.2012, 17:28	8
	Как должен, так и пишет. Так как, изначально заносится элемент a[1,1] / a[1,2] / a[2,1] / a[2,2] Или пишет только 1 значение? Можно вопрос ещё, какой смысл от:"Const c=',' " 1

@3a9Ic 141 / 129 / 113 Регистрация: 08.04.2012 Сообщений: 245
	16.05.2012, 17:49	12
	Хм, если они все одинаковые, из кого минимум искать?) Ну, или в ручную задать все элементы одинаковые (кроме минимума). И добавить вывод в конце. Или Вам нужно, что бы программа работала, до конца? 1

@fenixgaurd 0 / 0 / 0 Регистрация: 13.02.2012 Сообщений: 57
	16.05.2012, 17:54 [ТС]	13
	Сообщение от 3a9Ic Хм, если они все одинаковые, из кого минимум искать?) Ну, или в ручную задать все элементы одинаковые (кроме минимума). И добавить вывод в конце. Или Вам нужно, что бы программа работала, до конца? В том то и дело если элементы одинаковые, то он не должен искать минимум, а просто сказать, что В матрице все элементы одинаковые и на этом завершить задачу. А если есть хоть 1 отличный, то он должен делать все как положено, найти минимум и удалить строку и столбец. 0

@fenixgaurd 0 / 0 / 0 Регистрация: 13.02.2012 Сообщений: 57
	16.05.2012, 19:10 [ТС]	17
	Огромное спасибо Вам за помощь, спасибо нажал на всех постах, ибо не жалко когда помогают хорошие люди. А вот блок-схему, есть какие- то программы для их начертания, или в ручную? Вы вот как дружите с ними? 0

@3a9Ic 141 / 129 / 113 Регистрация: 08.04.2012 Сообщений: 245
	16.05.2012, 19:32	18
	Обычно пользуюсь программой:autoshema , но, когда копирнул туда код, программа взбесилась, она согласна его обрабатывать только частями. Поискал в интернете, более мощную, что-то не нашел. Так как, делать скрины такого кода не целесообразно,Тут можно скачать эту программу, может поможет. 1

@fenixgaurd 0 / 0 / 0 Регистрация: 13.02.2012 Сообщений: 57
	16.05.2012, 19:44 [ТС]	19
	Спасибо. Да и в правду на код она ругается. Придется чертить в ручную. 0

@3a9Ic 141 / 129 / 113 Регистрация: 08.04.2012 Сообщений: 245
	16.05.2012, 19:56	20
	Вбейте по половине программы. Он Вам все от рисует, по-частям. 1