Помогите составить блок-схему Опции

[neon]

Всем привет! Помогите пожалуйста составить блок-схему алгоритма к данному решению!
Вот условие задачи:
Для заданой матрицы размером 8 х 8 найти такие К , что К-я строка матрицы совпадает с К-м столбцом . Найти сумму элементов в тех строках которые содержат хотя бы один отрицательный элемент .
Вот решение задачи:

program alex;

uses crt;

const M = 8;



type TMatrix = array [1..M,1..M] of integer;



var A : TMatrix;

    Value, sign, x, y, k, j, sum  : integer;

    Negative : boolean;



begin

{ Инициализируем матрицу случайными значениями }

for y:=1 to m do

    for x:=1 to m do begin

        Value:=random(10);

        sign:=random(4);

        if sign=2 then Value:=-Value;

        A[x,y]:=Value;

        end;



{Инициализируем массив специально, чтобы для проверки

правильности алгоритма 2-й столбец был идентичен 2-й строке и удовлетворяли

условию задачи}

for x:=1 to m do A[x,2]:=x;

for y:=1 to m do A[2,y]:=y;



{ Выводим матричу A[] на экран }

Writeln('Исходная матрица A[]');

for y:=1 to m do begin

    Write('|');

    for x:=1 to m do Write(' ',A[x,y]:2,' ');

    Write('|');

    Writeln;

    end;

Writeln;



{Выполняем поиск одинаковых столбцов и строк}

for k:=1 to m do begin

    j:=1;

    while (j<=m) and (A[k,j]=A[j,k]) do Inc(j);

    if (j>m) then Writeln('Найдено k= ', k);

    end;



{Выполняем поиск строк с отрицательными элементами и вычисляем сумму их элементов}

for y:=1 to m do begin

    Negative:=false;

    sum:=0;

    for x:=1 to m do begin

        sum:=sum+A[x,y];

        if A[x,y]<0 then Negative:=true;

        end;

    if Negative then Writeln('Строка ',y,' содержит отрицательный элемент, сумма= ', sum);

    end;

readln;


end.

М

Используем теги !

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

Сообщение отредактировано: klem4 - 1.12.2007 20:05

[klem4]

попробуй это: Программа построения блок-схем