1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Не пойму, в чём ошибка при сортировке матрицы. Читаю из файла матрицу, всё ок. Но после сортировки на местах элементов появляются числа типа 15358. Помогите
procedure k1(n:integer;x:mat;k2:string;var z:mat);
var i,j,l,k,t:integer;
b:array [1..10] of integer;
beginif (k2='>') thenbegin
k:=0;
for i:=1to n dofor j:=1to n dobegin
k:=k+1;
b[k]:=x[i,j];
end;
for l:=k downto2dofor i:=1to k-1doif (b[i+1]>b[i]) thenbegin
t:=b[i];b[i]:=b[i+1];b[i+1]:=t;
end;
k:=0;
For i:=1to n dofor j:=1to n dobegin
k:=k+1;x[i,j]:=b[k];
end;
end;
ты что делаешь? у тебя запрет на изменение х. какой нафиг
x[i,j]:=b[k];
?
Сообщение отредактировано: мисс_граффити -
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
либо писать var x: mat, либо результат записывать в непонятно для чего предназначенную z (второе - если хочешь сохранить в неприкосновенности исходный массив)
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
Не пойму, в чём ошибка при сортировке матрицы. Читаю из файла матрицу, всё ок. Но после сортировки на местах элементов появляются числа типа 15358. Помогите
procedure k1(n:integer;x:mat;k2:string;var z:mat);
var i,j,l,k,t:integer;
b:array [1..10] of integer;
beginif (k2='>') thenbegin
k:=0;
for i:=1to n dofor j:=1to n dobegin
k:=k+1;
b[k]:=x[i,j];
end;
for l:=k downto2dofor i:=1to k-1doif (b[i+1]>b[i]) thenbegin
t:=b[i];b[i]:=b[i+1];b[i+1]:=t;
end;
k:=0;
For i:=1to n dofor j:=1to n dobegin
k:=k+1;x[i,j]:=b[k];
end;
for i:=1to n dofor j:=1to n do
z[i,j]:=x[i,j];
end;
For i:=1to n dofor j:=1to n dobegin
k:=k+1;x[i,j]:=b[k];
end;
for i:=1to n dofor j:=1to n do
z[i,j]:=x[i,j];
зачем???
For i:=1to n dofor j:=1to n dobegin
k:=k+1;z[i,j]:=b[k];
end;
покажи, как вызываешь эту процедуру. то есть текст программы полностью приведи.
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
procedure k1(n:integer;x:mat;k2:string;var z:mat);
var i,j,l,k,t:integer;
b:array [1..10] of integer;
beginif (k2='>') thenbegin
k:=0;
for i:=1to n dofor j:=1to n dobegin
k:=k+1;
b[k]:=x[i,j];
end;
for l:=k downto2dofor i:=1to k-1doif (b[i+1]>b[i]) thenbegin
t:=b[i];b[i]:=b[i+1];b[i+1]:=t;
end;
k:=0;
For i:=1to n dofor j:=1to n dobegin
k:=k+1;x[i,j]:=b[k];
end;
end;
if (k2='<') thenbegin
k:=0;
for i:=1to n dofor j:=1to n dobegin
k:=k+1;
b[k]:=x[i,j];
end;
for l:=k downto2dofor i:=1to k-1doif (b[i+1]<b[i]) thenbegin
t:=b[i];b[i]:=b[i+1];b[i+1]:=t;
end;
k:=0;
For i:=1to n dofor j:=1to n dobegin
k:=k+1;x[i,j]:=b[k];
end;
end;
for i:=1to n dofor j:=1to n do
z[i,j]:=x[i,j];
end;
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
а как ты пытаешься его запихнуть в b:array [1..10] of integer;?
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
я просто не могу понять, как сунуть 100 элементов в 10 ячеек
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!