Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задача на работу с матрицой.Сортировка.
Автор: Andrewshkovskii 30.11.2006 16:11
Задача такова :
Дана квадратная матрица MxN. Есле в главной диагонали присутствует отрицательный элемент,то выписать тот столбик,в котором этот отрицательный элемент стоит,и отсортировать его по убыванию.
Вот типа графически как это выглядит
1 5 3
1 -2 3
1 3 3
выписывается 2ой столбик
5
-2
3
и отсортировывается в ввиде
-2
5
3
Проблема возникает в следующем :
не понимаю как выписать этот столбик,главную диагональ нахожу,нахожу в ней отриц. элемент.
Я понимаю что надо сначала этот столбик записать в отдельный массив однамерный(вектор),потом отсортировать и вставить обратно..
вот с отбором столбика,сортировкой и вставкой у меня проблемы.
вот мой код..
uses crt;
const
n=3;
m=3;
l=3;
k=3;
type
matr = array [1..n,1..m] of integer;
stolb = array [1..l,1..k] of integer;
var
a:matr;
i,j,buf:integer;
ot:stolb;
begin
clrscr;
writeln('el-ti matrici vvedite plz');
for i:=1 to n do
for j:=1 to m do
begin
write('A[',i,j,']=');read(a[i,j]);
end;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
readkey;
writeln;
{=========================}
for I:=1 to n do
for j:=1 to m do
begin
if i=j then
if a[i,j] <0 then begin {таким образом я записываю только главную диагональ,а как сделать что бы записывался стобец...=/ }
buf:=a[i,j];
ot[i,j]:=buf;
end
else
buf:=a[i,j];
ot[i,j]:=buf;
end;
for i:=1 to n do
begin
write(ot[i,j],' ');
writeln;
end;
readkey;
end.
Автор: volvo 30.11.2006 16:23
var buffer: array[1 .. n] of integer;
...
for i := 1 to n do
if a[i, i] < 0 then begin
for j := 1 to n do buffer[j] := a[j, i]; { <--- Смотри на индексы !!! }
{ Здесь как-то сортируешь buffer }
for j := 1 to n do a[j, i] := buffer[j]; { <--- И возвращаешь назад в матрицу }
end;
Автор: Andrewshkovskii 30.11.2006 20:31
ааа,спасибо!=)Вы настоящий мужтчина=))
только мне плохо понятна запись if a[i, i] < 0 then begin вот эта... 
Автор: мисс_граффити 30.11.2006 21:26
у элементов на главной диагонали номер столбца и номер строки равны между собой...
поэтому и пишется a[i,i]
Автор: Andrewshkovskii 30.11.2006 23:25
хм..после сортировки получаеться так,что отсортированный вектор встает на последний стоблец,а не на котором он был..видимо надо делать сортировку в матрице.
Автор: volvo 30.11.2006 23:55
Занчит, при сортировке ты изменяешь значение i, что недопустимо... Используй другую переменную.
Автор: Andrewshkovskii 1.12.2006 0:33
в сортировке не изменял,а так делал как ты писал..
Автор: Andrewshkovskii 1.12.2006 0:55
║for i := 1 to n do
║ if a[i, i] < 0 then
║ for j:=1 to n do
║ begin
║ buf[j]:=a[j,i]
║ end;
║ for i:=1 to n do
║ for j:=1 to n do
║ if buf[i]>buf[j] then begin
║ temp_var:=buf[i];
║ buf[i]:=buf[j];
║ buf[j]:=temp_var;
║ end;
║
║for j := 1 to n do a[j, i] := buf[j];
║
вот что я делаю.
результат...
el-ti matrici vvedite plz
A[11]=-1
A[12]=1
A[13]=2
A[21]=6
A[22]=4
A[23]=7
A[31]=8
A[32]=5
A[33]=3
-1 1 2
6 4 7
8 5 3
-1 1 8
6 4 6
8 5 -1
Автор: volvo 1.12.2006 1:15
Ну, как же "не изменял"? Ты же запускаешь ВНУТРИ еще один цикл по i !!!
Кстати, ты нарушил структуру: у тебя begin/end стоят не там, где я показывал... Я говорил вот про такое:
for i := 1 to n do
if a[i, i] < 0 then begin
for j:=1 to n do buf[j]:=a[j,i];
for K:=1 to n do { <--- Заменить i и j на K и L, например !!! }
for L:=1 to n do
if buf[K]>buf[L] then begin
temp_var:=buf[K];
buf[K]:=buf[L];
buf[L]:=temp_var;
end;
for j := 1 to n do a[j, i] := buf[j];
end;
переменные i и j для тебя - ТАБУ... У тебя уже есть внешиий цикл по ним, поэтому внутренний ты не имеешь права делать по ним же... Современные компиляторы, кстати, тебе просто не будут такую программу компилировать, а дедушка TP - позволяет... Вот и глюки
Автор: мисс_граффити 1.12.2006 1:39
компилятор не виноват... тут же вложенности нет:
║for i := 1 to n do {заголовок цикла по i. begin отсутствует}
║ if a[i, i] < 0 then {тело цикла по i}
║ for j:=1 to n do {заголовок по j}
║ begin{начала тела по j}
║ buf[j]:=a[j,i]
║ end;{конец тела цикла по j. и по i тоже}
║ for i:=1 to n do{а это уже независимо}
║ for j:=1 to n do
║ if buf[i]>buf[j] then begin
║ temp_var:=buf[i];
║ buf[i]:=buf[j];
║ buf[j]:=temp_var;
║ end;
Автор: Andrewshkovskii 1.12.2006 1:43
for i := 1 to n do
begin
if a[i, i] < 0 then
for j:=1 to n do
begin
buf[j]:=a[j,i];
end;
end;
for k:=1 to n do
begin
for l:=1 to n do
if buf[k]>buf[l] then
begin
temp_var:=buf[k];
buf[k]:=buf[l];
buf[l]:=temp_var;
end;
end;
так?
есле так,то всеравно не правильно вставляет столбец.
Автор: мисс_граффити 1.12.2006 1:57
я в этом куске вставку вообще не вижу.
а курсы ясновидящих еще не окончила.
Автор: Andrewshkovskii 1.12.2006 2:01
сори)
шас
for i := 1 to n do
begin
if a[i, i] < 0 then
for j:=1 to n do
begin
buf[j]:=a[j,i];
end;
end;
for k:=1 to n do
begin
for l:=1 to n do
if buf[k]>buf[l] then begin
temp_var:=buf[k];
buf[k]:=buf[l];
buf[l]:=temp_var;
end;
end;
for j := 1 to n do
a[j, i] := buf[j];
так нормально?...просто у меня голова уже очень плохо варит,я в инсте это писал ,потом писал дома,в электричке писал,весь день писал и никак не могу..написать=/
Автор: volvo 1.12.2006 2:07
Andrewshkovskii, послушай !!! Ты что, издеваешься??? Тебе в каком виде приводят фрагменты? Какого ... ты их коверкаешь так, что не поймешь, кде у тебя блок начинается, а где заканчивается? Возьми и отформатируй текст так, как это делал я в посте №9, чтобы end ЗАКРЫВАЛ блок, и было ВИДНО, какой именно блок он закрывает.
Все...
Автор: Andrewshkovskii 1.12.2006 2:49
Не кипятись,пожалуйста,я понимаю что с новичками приходится тяжело,очень тяжело,но все мы когда-то учились и учимся