Всем привет! Помогите пожалуйста составить блок-схему алгоритма к данному решению!
Вот условие задачи:
Для заданой матрицы размером 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.
| М | Используем теги ! |
попробуй это: http://forum.pascal.net.ru/index.php?showtopic=4270