Подскажите,как составить схему алгоритма к этой проге?

[drakon803]

Подскажите,как составить схему алгоритма к проге.?Вот прога:

var mt:array[1..7,1..7] of integer;
p,k,x1,x2,x3,x4,x5,x6,x7,y1,y2,y3,y4,y5,y6,y7:integer;
begin
writeln('vvedite matricu');
for p:=1 to 7 do
for k:=1 to 7 do
read (mt[p,k]);
x1:=0;x2:=0;x3:=0; x4:=0;x5:=0;x6:=0;x7:=0;
for k:=1 to 7 do
begin
x1:=x1+mt[1,k];
x2:=x2+mt[2,k];
x3:=x3+mt[3,k];
x4:=x4+mt[4,k];
x5:=x5+mt[5,k];
x6:=x6+mt[6,k];
x7:=x7+mt[7,k];
end;
end;

begin
y1:=0;y2:=0;y3:=0;y4:=0;y5:=0;y6:=0;y7:=0;
for p:=1 to 7 do
begin
y1:=y1+mt[p,1];
y2:=y2+mt[p,2];
y3:=y3+mt[p,3];
y4:=y4+mt[p,4];
y5:=y5+mt[p,5];
y6:=y6+mt[p,6];
y7:=y7+mt[p,7];
end;
end;
if (x1<>x2 and x3 and x4 and x5 and x6 and x7 and y1 and y2 and y3 and y4 and y5 and y6 and y7)
then 
writeln ('matrica -ne magik kvadrat')
else
writeln('matrica –magik kvadrat');
readln;readln;
end.

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[Карась]

Чтото както по извращенски ты сделал....
На мой взгляд можно на 60% прогу сократить...

Например непонятный кусочек...

x1:=0;x2:=0;x3:=0; x4:=0;x5:=0;x6:=0;x7:=0;   
for k:=1 to 7 do  
begin  
x1:=x1+mt[1,k];   
x2:=x2+mt[2,k];   
x3:=x3+mt[3,k];   
x4:=x4+mt[4,k];   
x5:=x5+mt[5,k];   
x6:=x6+mt[6,k];   
x7:=x7+mt[7,k];   
end;   
end;   
  
begin  
y1:=0;y2:=0;y3:=0;y4:=0;y5:=0;y6:=0;y7:=0;   
for p:=1 to 7 do  
begin  
y1:=y1+mt[p,1];   
y2:=y2+mt[p,2];   
y3:=y3+mt[p,3];   
y4:=y4+mt[p,4];   
y5:=y5+mt[p,5];   
y6:=y6+mt[p,6];   
y7:=y7+mt[p,7];   
end;   
end;

[kommunist]

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

Подскажите,как составить схему алгоритма к проге.?Вот прога:

вот посмотри должно пригодится

[drakon803]

[QUOTE=Карась;58835]Чтото както по извращенски ты сделал....
На мой взгляд можно на 60% прогу сократить...





А КАК Я ЕЕ СОКРАЩУ-Я НЕ ШАРЮ ОСОБО ПОКА В ЭТОМ...

[drakon803]

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

вот посмотри должно пригодится

бОЛЬШОЕ ТЕБЕ СПАСИБО ЗА ПОМОЩЬ!!!!