Зделать блок-схему или алгоритм по листингу!!!

[metamfetamin]

Есть кусок программы, нужно на етот кусок зделать алгоритм(блок схему). Называется Исключение нулевых строк и столбцов с матриц А и В.
Я одну зделал(прикрепленный файл Безымянный.jpeg), но учитель сказал что она то правильная но нужно использывать записи с программы а не только "человеческий язык".
Нашол даже оболочку в которой можна делать ети самые блок схемы, но ума не хватает.Помогите!!!!!!

Далее вылаживаю саму прогу (процедуру) на которую нужно зделать блок-схему:

procedure delete_zeroes(var m: mx; var rows, cols: integer);
const eps = 0.0001;
var
  i, j, k
  : integer;
  zero: boolean;
begin
  { checking rows first }
  i := 1;
  while i <= rows do begin
    zero := true;
    for j := 1 to cols do
      if abs(m[i, j]) > eps then zero := false;
    if zero then begin
      if i <> rows then
        for j := 1 to cols do
          for k := i to rows - 1 do m[k, j] := m[k + 1, j];
      dec(rows);
    end
    else inc(i);
  end;
      { now checking cols }
  j := 1;
  while j <= cols do begin
    zero := true;
    for i := 1 to rows do
      if abs(m[i, j]) > eps then zero := false;
    if zero then begin
      if j <> cols then
        for i := 1 to rows do
          for k := j to cols - 1 do m[i, k] := m[i, k + 1];
      dec(cols);
    end
    else inc(j);
  end;
end;

Если кому то нужна ета оболочка которая делает блок-схемы пишите я выложу адрес по которому ее можна скачать......она весит 700кб!!!!

[ageron]

Сообщение от metamfetamin

Есть кусок программы, нужно на етот кусок зделать алгоритм(блок схему). Называется Исключение нулевых строк и столбцов с матриц А и В.
Я одну зделал(прикрепленный файл Безымянный.jpeg), но учитель сказал что она то правильная но нужно использывать записи с программы а не только "человеческий язык".
Нашол даже оболочку в которой можна делать ети самые блок схемы, но ума не хватает.Помогите!!!!!!

Далее вылаживаю саму прогу (процедуру) на которую нужно зделать блок-схему:

procedure delete_zeroes(var m: mx; var rows, cols: integer);
const eps = 0.0001;
var
  i, j, k
  : integer;
  zero: boolean;
begin
  { checking rows first }
  i := 1;
  while i <= rows do begin
    zero := true;
    for j := 1 to cols do
      if abs(m[i, j]) > eps then zero := false;
    if zero then begin
      if i <> rows then
        for j := 1 to cols do
          for k := i to rows - 1 do m[k, j] := m[k + 1, j];
      dec(rows);
    end
    else inc(i);
  end;
      { now checking cols }
  j := 1;
  while j <= cols do begin
    zero := true;
    for i := 1 to rows do
      if abs(m[i, j]) > eps then zero := false;
    if zero then begin
      if j <> cols then
        for i := 1 to rows do
          for k := j to cols - 1 do m[i, k] := m[i, k + 1];
      dec(cols);
    end
    else inc(j);
  end;
end;

Если кому то нужна ета оболочка которая делает блок-схемы пишите я выложу адрес по которому ее можна скачать......она весит 700кб!!!!

дай плиз сыллку на оболочку

[metamfetamin]

Сообщение от ageron

дай плиз сыллку на оболочку

http://alglib.sources.ru/blseditor.zip

[Djaconda]

ВОот лови только делал быстро и поэтому красоту сам наведешь главное результат аон должен быть положительным)

[metamfetamin]

Сообщение от Djaconda

ВОот лови только делал быстро и поэтому красоту сам наведешь главное результат аон должен быть положительным)

ОГРОМНЕЙШЕЕ СПАСИБО ТЕБЕ. ОООЧЕНЬ ПОМОГ!!!!!РЕАЛЬНО ВЫРУЧИЛ!!!