Определить, является ли заданная целая квадратная матрица магическим квадратом

@lily · Регистрация: 10.04.2012

Студворк — интернет-сервис помощи студентам

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    BitBtn1: TBitBtn;
    str1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  n=3;
type
  arr=array[1..n,1..n] of real;
var
  a:arr;
  s1,s2,s3,s4,s5,s6:real;
  i,j:integer;
begin
   for i:=1 to n do
    for j:=1 to n do
     a[i,j]:=strtofloat(str1.Cells[j-1,i-1]);
   s1:=a[1,1]+a[1,2]+a[1,3];
   s2:=a[2,1]+a[2,2]+a[2,3];
   s3:=a[3,1]+a[3,2]+a[3,3];
   s4:=a[1,1]+a[2,1]+a[3,1];
   s5:=a[1,2]+a[2,2]+a[3,2];
   s6:=a[1,3]+a[2,3]+a[3,3];
   if (s1=s2) and (s3=s4) and (s5=s6) then
    Edit1.Text:='матрица является магическим квадратом'
   else
    Edit1.Text:='матрица не является магическим квадратом';
end;
 
end.

как с помощью цикла написать эту часть программы?

Delphi
1
2
3
4
5
6
  s1:=a[1,1]+a[1,2]+a[1,3];
   s2:=a[2,1]+a[2,2]+a[2,3];
   s3:=a[3,1]+a[3,2]+a[3,3];
   s4:=a[1,1]+a[2,1]+a[3,1];
   s5:=a[1,2]+a[2,2]+a[3,2];
   s6:=a[1,3]+a[2,3]+a[3,3];

@Andretti · 12.04.2012, 08:23

lily, вот добавление цикла:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    BitBtn1: TBitBtn;
    str1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  n=3;
type
  arr=array[1..n,1..n] of real;
var
  a:arr;
  s: array [1..6] of real;
  i,j:integer;
  index:word;
begin
   for i:=1 to n do
    for j:=1 to n do
     a[i,j]:=strtofloat(str1.Cells[j-1,i-1]);
///////////////////////////////   
index:=1; for i:=1 to 6 do s[i]:=0;
for i:=1 to 3 do    BEGIN for j:=1 to 3 do begin 
s[index]:=s[index]+a[i,j];
s[index+3]:=s[index+3]+a[j,i];end;inc(index);END;
//////////////////////////////
   if (s[1]=s[2]) and (s[3]=s[4]) and (s[5]=s[6]) then
    Edit1.Text:='матрица является магическим квадратом'
   else
    Edit1.Text:='матрица не является магическим квадратом';
end;
 
end.

Одиночка · 12.04.2012, 12:35

Смотри здесь.

@sergei3ru · 15.04.2012, 10:55

Сообщение от Одиночка

Смотри здесь.

Друг, где же вы!

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	12.04.2012, 12:35
	Смотри здесь. 1

Определить, является ли заданная целая квадратная матрица магическим квадратом

Решение