Массив, файлы, подпрограммы. Pascal

[ayPinki]

Массив, файлы, подпрограммы. Pascal

1)Пeрeписать в файл по столбцам матрицу, у которой меньше положительных элементов в нижнем треугольнике(в случае равенства, переписать обе). - помогите с реализацией.в подпрограммах желательно

2)Упорядочить главную диагональ матрицы по возрастанию подпрограммой.(матрица- квадратная естестна)
(главное - вот так объявлены матрицы в основной программе, чтоб путаницы не было
const nmax=10;
type matr1=array[1..nmax,1..nmax] of integer;
type matr2=array[1..nmax,1..nmax] of integer;
var
x1,x2:matr1;
)


вот пытался сделать, но чот не пашет(

procedure Sort(var x:matr1;maxx:integer);
var
aa:array [1..nmax,1..nmax] of real;
k,a:integer;
temp:real;
begin
for k:=1 to nmax do begin
aa[k,k]:=x[k,k];

for i:=1 to (nmax-1) do
for j:=i+1 to (nmax) do
if a>a[j] the begin
for k:=1 to nmax do begin

temp:=x[i,k];
x[i,k]:=x[j,k];
x[j,k]:=temp
end;
end;
end;

 

[Vladimir_S]

type matr1=array[1..nmax,1..nmax] of integer;
type matr2=array[1..nmax,1..nmax] of integer;

Ну что, право, за глупости - зачем вводить два абсолютно тождественных типа? Вполне достаточно
type matr=array[1..nmax,1..nmax] of integer;

Что касается процедуры, то там какая-то жуть несусветная. Сейчас попробую привести в божеский вид.

 

[Vladimir_S]

Ну вот Вам полное решение второй задачи:

const
 nmax=10;
type
 matr=array[1..nmax,1..nmax] of integer;
var
 x1,x2:matr;
 i,j:Integer;

procedure Sort(X1s:matr; var X2s:matr);
var
 k,m,temp:integer;
 XX:matr;
 z:array[1..nmax] of integer;
begin
 for k:=1 to nmax do
  z[k]:=X1s[k,k];

 for k:=1 to nmax do
  for m:=1 to nmax-k do
   if z[m]>z[m+1] then
    begin
     temp:=z[m];
     z[m]:=z[m+1];
     z[m+1]:=temp;
    end;

 XX:=X1s;

 for k:=1 to nmax do
  XX[k,k]:=z[k];

 X2s:=XX;
end;

begin
 Randomize;
 for i:=1 to nmax do
  begin
   for j:=1 to nmax do
    begin
     x1[i,j]:=50-Random(100);
     write(x1[i,j]:4);
    end;
   writeln;
  end;
 writeln;
 Sort(x1,x2);
 for i:=1 to nmax do
  begin
   for j:=1 to nmax do
    write(x2[i,j]:4);
   writeln;
  end;
 readln
end.

 

[ayPinki]

Ну вот Вам полное решение второй задачи:

const
 nmax=10;
type
 matr=array[1..nmax,1..nmax] of integer;
var
 x1,x2:matr;
 i,j:Integer;

procedure Sort(X1s:matr; var X2s:matr);
var
 k,m,temp:integer;
 XX:matr;// - не пойму что это
 z:array[1..nmax] of integer;
begin
 for k:=1 to nmax do
  z[k]:=X1s[k,k];   //перезапись главной диагонали в дополнительную одномерную матрицу

 for k:=1 to nmax do
  for m:=1 to nmax-k do  // зачем от максимального значение кол-ва столбцов(основной матрицы)  отнимать размерность дополнительной матрицы? - зачем нам вложенный цикл. V ниже мы же оперируем только одномерной дополнительной матрицей.
   if z[m]>z[m+1] then 
    begin
     temp:=z[m]; 
     z[m]:=z[m+1];
     z[m+1]:=temp;
    end;

 XX:=X1s; // матрица хх становится копией Х1s?

 for k:=1 to nmax do //заменяем в главной диагонали 
  XX[k,k]:=z[k];

 X2s:=XX; //вот это не понятно
end;

begin
 Randomize;
 for i:=1 to nmax do
  begin
   for j:=1 to nmax do
    begin
     x1[i,j]:=50-Random(100);
     write(x1[i,j]:4);
    end;
   writeln;
  end;
 writeln;
 Sort(x1,x2);
 for i:=1 to nmax do
  begin
   for j:=1 to nmax do
    write(x2[i,j]:4);
   writeln;
  end;
 readln
end.

комментарии корректны? поясните пожалст.

 

[Vladimir_S]

for k:=1 to nmax do
for m:=1 to nmax-k do // зачем от максимального значение кол-ва столбцов(основной матрицы) отнимать размерность дополнительной матрицы? - зачем нам вложенный цикл. V ниже мы же оперируем только одномерной дополнительной матрицей.
if z[m]>z[m+1] then
begin
temp:=z[m];
z[m]:=z[m+1];
z[m+1]:=temp;
end;

Всё это вместе - реализация упорядочения одномерного массива так называемым "методом пузырька". Попробуйте разобраться в нем самостоятельно: представьте себе наглядно всю процедуру.

X2s:=XX; //вот это не понятно

Суть вот в чем.
Внутри процедуры мы вводим вспомогательный массив ХХ того же типа, что и входной (и выходной) массивы X1s и X2s. В начале процедуры мы копируем в этот ХХ входной массив X1s (тут Вы абсолютно правы), а потом начинаем этот самый ХХ всяко-разно курочить, в данном случае, заменять в нем диагональ. А уже преобразовав его к нужному виду, мы копируем его в выходной массив X2s. Возникает вопрос: можно ли обойтись без вспомогательного массива и работать непосредственно с выходным? А пёс его знает, может быть и можно, просто я нарывался на глюки некоторых трансляторов, и во избежание предпочитаю работать со вспомогательными параметрами, а выходным присваивать значения только в самом конце.

 

[Vladimir_S]

зачем от максимального значение кол-ва столбцов(основной матрицы) отнимать размерность дополнительной матрицы?

Да, я немного поторопился и счел, что константа nmax это просто размерность матрицы. Если же это максимально допустимое значение, то еще в программу надо добавить ввод рабочей размерности (N) и дальше всюду в программе (и процедуре) заменить nmax на N. Но это мелочь - сами справитесь.

 

[Vladimir_S]

А по методу пузырька - эссе накатал, где постарался объяснить как можно более доходчиво:
http://www.tehnari.ru/f41/t72821/

 

[ayPinki]

А по методу пузырька - эссе накатал, где постарался объяснить как можно более доходчиво:
http://www.tehnari.ru/f41/t72821/

спасибо вам, читкану)