Паскаль. Работа с массивами

[furt123]

Паскаль. Работа с массивами

наваял тут лабу. вроде со всем справился. но вы уж проанализируйте пожалуйста. может, что-то не учёл.
задание: дана квадратная матрица А порядка n. сформировать вектор d из сумм элементов столбцов А, отсортировать вектор и сформировать из его элементов диагональную матрицу С. И окончательно найти след матрицы

program laba;

var
  a: array [1..5, 1..5] of integer;
  c: array [1..5, 1..5] of integer;
  d: array [1..5] of integer;
  i, j, n, s, k, h, p: integer;

begin
  Write(' ввод размерности матрицы n= ');
  Readln(n);
  for i := 1 to n do
    for j := 1 to n do 
    begin
      write('A[', i, ',', j, ']=');
      Readln(a[i, j]);
    end;
  writeln(' полученная матрица ');
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write('  ', a[i, j], ' ');
    writeln;
  end;
  writeln;
  for j := 1 to n do
  begin
    s := 0;
    for i := 1 to n do
      s := s + a[i, j];
    d[j] := s;
  end;
  Write('вектор d-->  ');
  for j := 1 to n do
    write(d[j]:4);
  writeln; writeln;
  
  
  for j := 1 to n - 1 do
    for k := 1 to n - j do
      if d[k] > d[k + 1] then begin
        h := d[k];
        d[k] := d[k + 1];
        d[k + 1] := h
      end;
  
  write('Отсортированный массив: ');
  for j := 1 to n do
    write(d[j]:4);
  
  writeln;
  for i := 1 to n do
    for j := 1 to n do 
    begin
      if i = j then c[i, j] := d[j] else c[i, j] := 0;
    end;
  
  writeln(' полученная матрица c:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write('  ', c[i, j], ' ');
    writeln;
  end;
  p := 0;
  for i := 1 to n do
    p := p + c[i, i];
  writeln('след матрицы = ', p);
end.

 

[Vladimir_S]

наваял тут лабу. вроде со всем справился. но вы уж проанализируйте пожалуйста. может, что-то не учёл.

Да вроде всё правильно. Единственно (не ошибка - так, убирание лишнего), я бы вместо

a: array [1..5, 1..5] of integer;   
c: array [1..5, 1..5] of integer;

написал просто

a, c: array [1..5, 1..5] of integer;

Но, повторяю, можно и так, как у Вас.

 

[furt123]

да - верно. спасибо)

 

[furt123]

for j := 1 to n - 1 do
for k := 1 to n - j do
if d[k] > d[k + 1] then begin
h := d[k];
d[k] := d[k + 1];
d[k + 1] := h
end;

обьясните пожалуйста эту часть кода (сортировка). далал по анологии с другими подобными заданиями на форуме. это метод пузыря?
в особенности интересует как понимать эту строку:

for k := 1 to n - j do

 

[Vladimir_S]

обьясните пожалуйста эту часть кода (сортировка). далал по анологии с другими подобными заданиями на форуме. это метод пузыря? в особенности интересует как понимать...

Да, это метод пузырька. Подробно и, надеюсь, достаточно наглядно этот метод (в числе прочих) разобран в моей заметке http://www.tehnari.ru/f41/t72821/.

 

[furt123]

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

 

[furt123]

вроде справился) проверьте пожалуйста.

repeat
flag := False;
for j:=n-1 downto 1 do
if b[j] > b[j+1] then
begin
k:= b[j];
b[j] := b[j+1];
b[j+1] := k;
flag := True;
end;
until not flag;

 

[furt123]

или вот со счётчиком(выкладываю весь текст, поскольку сомневаюсь в коректности) :

program kursovoi_projekt;

var
a, c: array [1..5, 1..5] of integer;
b: array [1..5] of integer;
i, j, n, s, k, p: integer;
flag: Boolean;

begin
Write(' Ввод размерности матрицы n= ');
Readln;
for i := 1 to n do
for j := 1 to n do
begin
write('A[', i, ',', j, ']=');
Readln(a[i, j]);
end;
writeln('Исходная матрица A ');
for i := 1 to n do
begin
for j := 1 to n do
Write(' ', a[i, j], ' ');
writeln;
end;
writeln;
for j := 1 to n do
begin
s := 0;
for i := 1 to n do
s := s + a[i, j];
b[j] := s;
end;
Write('Вектор B--> ');
for j := 1 to n do
write(b[j]:4);
writeln; writeln;


i := 0;
repeat
i := i + 1;
flag := False;
for j := n - 1 downto 1 do
if b[j] > b[j + 1] then
begin
k := b[j];
b[j] := b[j + 1];
b[j + 1] := k;
flag := True;
end;
until not flag;

write('Отсортированный вектор B: ');
for j := 1 to n do
write(b[j]:4);

writeln;
for i := 1 to n do
for j := 1 to n do
begin
if i = j then c[i, j] := b[j] else c[i, j] := 0;
end;

writeln('Полученная матрица C:');
for i := 1 to n do
begin
for j := 1 to n do
Write(' ', c[i, j], ' ');
writeln;
end;
p := 0;
for i := 1 to n do
p := p + c[i, i];
writeln('След матрицы = ', p);
end.

если не ошибаюсь счётчик должен помогать в том, чтобы не сравнивать с элементом, который после первого прохода стоит на своём месте.

 

[Vladimir_S]

если не ошибаюсь счётчик должен помогать в том, чтобы не сравнивать с элементом, который после первого прохода стоит на своём месте.

Ошибаетесь. Смысл этого вполне идиотского алгоритма таков: мы многократно проходим массив целиком, и при каждом проходе меняем местами соседние элементы, если они расположены "неправильно" (предыдущий больше последующего). И продолжаем так до тех пор, пока таких "неправильных" пар не останется. Ну что же, как говорится, "хозяин - барин", и если Вашему преподу нравится именно этот способ - то пусть будет так.
А ошибок в программе я не вижу.

 

[furt123]

понял, спасибо.