Нужно написать процедуру, которая упорядочивает по возрастанию (обменом) 1 строку в массиве 10х10. В самой программе с помощью этой процедуры упорядочить все строки.
По всякому пытался делать, но правильно работать никак не хочет. Помогите, пожалуйста, исправить ошибки.
Прикрепленные файлы
pas.rar ( 614 байт )
Кол-во скачиваний: 164
PROGRAM prog2;
TYPE
arr1=array[1..10,1..10] of integer;
VAR
i,j,k :integer;
A,a1 :arr1;
Fin, Fout :text;
PROCEDURE poryadok(k: integer; var a1: arr1);
var T,j,i:integer;
begin
for i:=2 to 10 do {значение k у тебя передается из программы}
{так что здесь изменять его не следует, воспользуйся лучше переменной i}
for j:=10 downto i do
if a1[k,j-1] > a1[k,j] then {сортировка у меня выглядит чуть-чуть по-другому}
begin
T:=a1[k,j-1];
a1[k,j-1]:=a1[k,j];
a1[k,j]:=T;
end;
end;
BEGIN
assign(Fout,'res2.txt');
rewrite(Fout);
assign(Fin,'dat2.txt');
reset(Fin);
for i:=1 to 10 do
for j:=1 to 10 do
begin
read(Fin,A[i,j]);
end;
close(Fin);
for k:=1 to 10 do
begin
poryadok(k, A);
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
write(Fout,A[i,j]);
end;
writeln(Fout);
end;
close(Fout);
END.
Оля, смотри:
PROCEDURE poryadok(CONST k: integer; var a1: arr1); { <--- Пускай попробует теперь изменить }
TYPE
vector = array[1 .. 10] of integer;
arr1 = array[1 .. 10] of vector;
...
PROCEDURE poryadok(var a1: vector);
var T, j, i: integer;
begin
for i:=2 to 10 do
for j:=10 downto i do
if a1[j-1] > a1[j] then begin {сортировка у меня выглядит чуть-чуть по-другому}
T:=a1[j-1]; a1[j-1]:=a1[j]; a1[j]:=T;
end;
end;
{ и вызов: }
...
for k:=1 to 10 do
poryadok(A[k]);
...
TYPE
vector = array[1 .. 10] of integer;
arr1 = array[1 .. 10] of vector;
Спасибо, с вашей помощью разобрался