Delphi игра для детей 12+

[РезедаМуратова]

при введение цифр из магического квадрата выдает что квадрат не магический; и если введешь рандомно цифры тоже не магический. Помогите исправить пожалуйста

var
  a:array[1..3,1..3]of integer;
flag, // флаг, магический квадрат или нет (=0 - нет, =1 - да)
i, // счётчик циклов
sum:integer; // сумма элементов строки матрицы
begin
  flag:=1; // предполагаем, что матрица магический квадрат
sum:=0; // пока сумма элементов строки матрицы = 0
//подсчитываем сумму
for i:=1 to 3 do
sum:=sum+a[1,i];
//проверяем все строки
for i:=1 to 3 do
if(sum <> a[i,1]+a[i,2]+a[i,3]) then
flag:=0;
//проверяем все столбцы
for i:=1 to 3 do
if(sum <> a[1,i]+a[2,i]+a[3,i]) then
flag:=0;
//проверяем диагонали
if(sum <> a[1,1]+a[2,2]+a[3,3]) then
flag:=0;
// ВЫВОДИМ РЕЗУЛЬТАТ
if (flag=1) then
label2.caption:='Является Магическим квадратом'
else
label2.caption:=' Не является Магическим квадратом';

end;

[northener]

И где в этом коде присваиваются хоть какие-нибудь значения элементам массива a?

[РезедаМуратова]

ээээээээ

[Аватар]

Че бекать то? Где в массив присвоение?

[РезедаМуратова]

не так?

 var
  a:array[1..3,1..3]of integer;
flag, // флаг, магический квадрат или нет (=0 - нет, =1 - да)
i,j,sum:integer; // сумма элементов строки матрицы
begin
a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
  flag:=1; // предполагаем, что матрица магический квадрат
sum:=0; // пока сумма элементов строки матрицы = 0
//подсчитываем сумму
for i:=1 to 3 do
sum:=sum+a[1,i];
//проверяем все строки
for i:=1 to 3 do
if(sum <> a[i,1]+a[i,2]+a[i,3]) then
flag:=0;
//проверяем все столбцы
for i:=1 to 3 do
if(sum <> a[1,i]+a[2,i]+a[3,i]) then
flag:=0;
//проверяем диагонали
if(sum <> a[1,1]+a[2,2]+a[3,3]) then
flag:=0;
// ВЫВОДИМ РЕЗУЛЬТАТ
if (flag=1) then
label2.caption:='Является Магическим квадратом'
else
label2.caption:=' Не является Магическим квадратом';

end;

[northener]

Такое присваивание надо делать в двойном цикле по строкам и столбцам.

[Аватар]

var i,j,k,n: Integer;
    s: String;
    Rows,Cols: array of Integer;
begin
  n:=StringGrid1.RowCount;
  SetLength(Rows,n+1);
  SetLength(Cols,n+1);
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      s:='';
      if not TryStrToInt(StringGrid1.Cells[j,i],k) then s:=Format('В строке %d колонке %d не целое число',[i+1,j+1])
      else if k<=0 then s:=Format('В строке %d колонке %d не положительное целое число',[i+1,j+1])
      else if k>1000000 then s:=Format('В строке %d колонке %d слишком большое число',[i+1,j+1]);
      if s<>'' then begin ShowMessage(s); Exit; end;
      Inc(Cols[j],k);
      Inc(Rows[i],k);
    end;
    Inc(Cols[n],StrToInt(StringGrid1.Cells[i,i]));
    //Inc(Rows[n],StrToInt(StringGrid1.Cells[i,n-i-1]));
    Inc(Rows[n],StrToInt(StringGrid1.Cells[n-i-1,i]));  //подправил
  end;
  Label2.Caption:='Матрица является магическим квадратом';
  for i:=0 to n do if (Rows[i]<>Rows[0]) or (Cols[i]<>Rows[0]) then begin Label2.Caption:='Матрица не является магическим квадратом'; Break; end;
end;

[Serge_Bliznykov]

Аватар, красиво!!

так надо же ещё диагонали проверять?

[Аватар]

Дык считаю в массив, лень было переменные описывать для диагональных сумм и еще код для сравнения))
Inc(Cols[n],... и ниже, и цикл проверки до n, а не до n-1

[Serge_Bliznykov]

а я бы по старинке так расписал:

procedure TForm2.Image1Click(Sender: TObject);
var
  a:array of array of integer;
  i, j, n, sumEtalon, sum, sumd1, sumd2 : integer;
begin
  if StringGrid1.RowCount<>StringGrid1.ColCount then begin
    Application.MessageBox('Грид должен быть квадратным. '#13+
    'Обратитесь к программисту, пусть устраняет ошибки в коде!',
    'Ошибка', MB_OK or MB_ICONERROR);
    Exit
  end;

  // выделим память под массив a
  n := StringGrid1.RowCount;
  SetLength(a, n);
  for i := 0 to n - 1 do SetLength(a[i], n);
   try
    //проверим, что в квадрате только натуральные числа и заполним массив a
    for i := 0 to n - 1 do
      for j := 0 to n - 1 do begin
        a[i,j] := StrToIntDef(StringGrid1.Cells[j,i],0);
        if a[i,j]<=0 then begin
              Application.MessageBox('Грид  нужно заполнить натуральными числами',
              'Ошибка', MB_OK or MB_ICONWARNING);
              Exit
        end;
      end;

    // найдём сумму первой строки
    sumEtalon := 0;
    for i := 0 to n-1 do
      sumEtalon := sumEtalon + a[0, i];

    // суммы по диагоналям
    sumd1 := 0; sumd2 := 0;
    for i := 0 to n - 1 do begin
      sumd1:=sumd1+a[i,i];
      sumd2:=sumd2+a[i,n-i-1];
    end;

    if (sumd1<>sumEtalon) or (sumd2<>sumEtalon) then begin
      label2.Caption:='Матрица не является магическим квадратом';
      Exit
    end;

    // найдём суммы остальных строк
    for i := 0 to n - 1 do begin
       sum := 0;
       for j := 0 to n - 1 do sum := sum + a[i,j];
       if (sum<>sumEtalon) then begin
        label2.Caption:='Матрица не является магическим квадратом';
        Exit
       end;
    end;
    // найдём суммы столбцов
    for j := 0 to n - 1 do begin
       sum := 0;
       for i := 0 to n - 1 do sum := sum + a[i,j];
       if (sum<>sumEtalon) then begin
        label2.Caption:='Матрица не является магическим квадратом';
        Exit
       end;
    end;

    label2.Caption:='Матрица является магическим квадратом';

  finally
    for i := 0 to n - 1 do SetLength(a[i], 0);
    SetLength(a, 0);
  end;

end;

p.s.
кстати, РезедаМуратова, тот unit2, что лежит у Вас в архиве в папке проекта - практически пустой,
а тот, что прописан в исходниках проекта и с которым вы реально работаете

Сообщение от РезедаМуратова

  Unit2 in '..\..\..\..\..\Users\murat\OneDrive\Изображения\сайт\Unit2.pas' {Form2};

в архиве отсутствует.
я бы рекомендовал перенести Unit2 в каталог проекта и исправить к нему путь.
чтобы было так:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

p.p.s. кстати, нет никакого ограничения на повторное использование чисел. поэтому можно во все ячейки забить одно и то же число и квадрат станет "магическим"