Многомерные массивы. Процедуры и функции.

[VikkyVi]

Дана квадратная матрица порядка n(n=8). Если заданная матрица является магическим квадратом (суммы элементов во всех строках и столбцах одинаковы), то заменить элементы четных строк на значение найденной суммы.

Program Lab6;
Uses crt;
Const n=8;
Type vect=array [1..n] of integer;
     matr=array [1..n] of vect;
Procedure Input (var a:matr);
Var i,j: byte;
Begin
     for i:=1 to n do
         for j:=1 to n do 
          read (a[i,j]);
end;
procedure Output (const a: matr);
Var i,j: byte;
Begin
     for i:=1 to n do
       begin
         for j:=1 to n do 
          write(a[i,j],' ');
          writeln;
       end;
End;
function Mag (const a:matr; var t: boolean);
var sum, s, i, j: integer;
Begin
    t:=true;
     for i:=1 to n do 
     sum:=sum+a[1,i];
     for i:=1 to n do 
     begin
         s:=0;
         for j:=1 to n do 
         s:=s+a[i,j];
         if s<>sum then 
         t:=false; 
     end;
      for j:=1 to n do 
       begin
         s:=0;
         for i:=1 to n do 
         s:=s+a[i,j];
         if s<>sum then 
         t:=false; 
       end;
end; 
Function Summa (const a: matr; var s: integer);
Var j: byte;
Begin
 s:=0;
 for j:= 1 to n do
 s:=s+a[1,j];
 writeln ('sum=', s);
End;
procedure Obmen (var a: matr);
Var i,s,j: integer;
Begin
 Begin
  for i:= 1 to 4 do
  s:=summa(i*2);
   for j:= 1 to 8 do
   a[i*2,j]:=s;
 end;
End;
Var b:matr;
sum: integer;
f: boolean;
Begin
clrscr;
     randomize;
     Input(b);
     If Mag(b,f) then
     writeln('ne yavlyaetsa magicheskim kvadratom')
     else 
     begin
     writeln('yavlyaetsa magicheskim kvadratom');
     Summa(b,sum);
     Obmen(b);
     Output(b);
     end    
End.

Не получается поменять элементы четных строк на значения найденной суммы и не удается сделать так, что бы сумма находилась только тогда,когда квадрат магический.

[Stilet]

Начнем с такой поправки:

     If not Mag(b,f) then begin

[Serge_Bliznykov]

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

Начнем с такой поправки:

Виталий, у него там вообще не функция!
начать надо с переделки процедуры на функцию:

function Mag(const a:matr): boolean;
var sum, s, i, j: integer;
  t : boolean;
Begin
    t:=true;
     for i:=1 to n do 
     sum:=sum+a[1,i];
     for i:=1 to n do 
     begin
         s:=0;
         for j:=1 to n do 
         s:=s+a[i,j];
         if s<>sum then 
         t:=false; 
     end;
      for j:=1 to n do 
       begin
         s:=0;
         for i:=1 to n do 
         s:=s+a[i,j];
         if s<>sum then 
         t:=false; 
       end;
  Mag := t;
end;

вызывать так:

     If not Mag(b) then begin

Function Summa (const a: matr; var s: integer);

Это тоже не функция! Переделайте!




_______________
p.s. и ещё. вообще-то, в настоящем магическом квадрате ещё и суммы главной и побочной диагонали совпадают с суммой строк/столбцов.
но, раз у Вас в условии задания это не написано, то Вы это и не проверяете...

[VikkyVi]

Исправила, но она все равно не идет

[Stilet]

у него там вообще не функция!

Корнет - женщина

Исправила, но она все равно не идет

Код в студию, мадмуазель.

[Serge_Bliznykov]

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

Корнет - женщина

приношу свои извинения.
Тогда:

У неё там вообще не функция!

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

Код в студию, мадмуазель.

присоединяюсь.
Выкладывайте, что у Вас получилось.

[Nika_]

Вроде бы так пашет

Program Lab6;
Uses crt;
Const n=8;
Type vect=array [1..n] of integer;
     matr=array [1..n] of vect;
Procedure Input (var a:matr);
Var i,j: byte;
Begin
     for i:=1 to n do
         for j:=1 to n do 
          read (a[i,j]);
end;
procedure Output (const a: matr);
Var i,j: byte;
Begin
     for i:=1 to n do
       begin
         for j:=1 to n do 
          write(a[i,j],' ');
          writeln;
       end;
End;
function Mag (const a:matr): boolean;
var sum, s, i, j: integer;
t: boolean;
Begin
    t:=true;
     for i:=1 to n do 
     sum:=sum+a[1,i];
     for i:=1 to n do 
     begin
         s:=0;
         for j:=1 to n do 
         s:=s+a[i,j];
         if s<>sum then 
         t:=false; 
     end;
      for j:=1 to n do 
       begin
         s:=0;
         for i:=1 to n do 
         s:=s+a[i,j];
         if s<>sum then 
         t:=false; 
       end;
       Mag:=t;
end; 
Procedure Summa (const a: matr; var s:integer);
Var j: byte;
Begin
 s:=0;
 for j:= 1 to n do
 s:=s+a[1,j];
 writeln ('sum=', s);
End;
procedure Obmen (var a: matr; var s:integer);
Var i,j, sum: integer;
Begin
  for i:= 1 to n do
  begin
  if i mod 2=0 then
  begin 
   for j:= 1 to n do
   a[i,j]:=s;
  end;
  end;
End;
Var b:matr;
sum: integer;
f: boolean;
Begin
clrscr;
     randomize;
     Input(b);
     If not Mag(b) then
     writeln('ne yavlyaetsa magicheskim kvadratom')
     else 
     begin
     writeln('yavlyaetsa magicheskim kvadratom');
     Summa(b,sum);
     Obmen(b,sum);
     Output(b);
     end    
End.

[Stilet]

Выкладывайте, что у Вас получилось.

Говорить молодой девушке "выкладываете"...
Ай-яй-яй, порутчик, да вы пошляк

[min@y™]

Корнет - женщина

Проверяли-сЪ?
Коль родина в беде, нет силы дома быть!

111.jpg

Автор, ЗАМУЖ СРОЧНО!!!!!!!!!1111111111адынадын

[Serge_Bliznykov]

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

Вроде бы так пашет

Да, отлично! Поздравляю!

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

f: boolean;

переменная f нигде не используется, эту строчку можно выкинуть.