Блок схемы, Подскажите где найти материалы по теме Опции

[Merlin]

Есть какие нибудь книги, или сайты, где написано как правильно делать блок-схемы ?

Если есть, поделитесь

[volvo]

В следующий раз создай отдельную тему...

const
  max_row = 8;
  max_col = 16;

var
  arr: array[1 .. max_row, 1 .. max_col] of real;
  i, j, row, col: integer;
  is_sorted: boolean;

  count: integer;


begin
  repeat { Защита "от дурака" }
  write('Число строк: '); readln(row);
  until (row > 1) and (row < max_row);

  repeat { Защита "от дурака" }
  write('Число столбцов: '); readln(col);
  until (col > 1) and (col < max_col);

  { Ввод матрицы }
  for i := 1 to row do begin
    writeln('row #', i);
    for j := 1 to col do begin
      write('arr[', i:2, ',', j:2, '] = '); readln(arr[i, j]);
    end
  end;

  count := 0; { число уже найденных упорядоченных строк }
  for i := 1 to row do begin
    is_sorted := true; { считаем что ряд упорядочен }
    j := 2; { и начиная со второго элемента каждой строки }
    while (j <= col) and is_sorted do
      { проверяем элементы на упорядоченность }
      if arr[i, j-1] < arr[i, j] then inc(j)
      else is_sorted := false;

    { если ряд оказался упорядоченным }
    if is_sorted then begin
      { выводим его номер на печать и увеличиваем счетыик найденных рядов }
      writeln('#', i); inc(count)
    end;
  end;

  { если ничего не было распечатано, напечатать что "Нету" }
  if count = 0 then writeln('Нет упорядоченных рядов');

end.