Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
KotL
23 / 0 / 0
Регистрация: 01.11.2013
Сообщений: 5
1

Магический квадрат

26.12.2013, 11:22. Просмотров 872. Ответов 1
Метки нет (Все метки)

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

Заполнение массива(матрицы) должно осуществляться либо с клавиа-туры, либо случайным образом. В зависимости от выбора пользователя
(ввода цифры 1 или 2).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2013, 11:22
Ответы с готовыми решениями:

Задача. Магический/Не магический квадрат
Проверить, является ли заданная целочисленная матрица A(N, N) "магическим...

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

Магический квадрат
Сап. Дела такие. Есть такой квадрат, он называется магический Потому что...

Магический квадрат 4x4
Здравствуйте, помогите построить магические квадраты 4х4, числа которые можно...

Построить магический квадрат

1
mellowass
89 / 69 / 82
Регистрация: 18.11.2013
Сообщений: 113
26.12.2013, 13:09 2
Лучший ответ Сообщение было отмечено KotL как решение

Решение

Pascal
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
uses crt;
var a : array [1..100,1..100] of integer;
i,j,n,s,s1,o : integer;
begin
writeln('ÓêГ*æèòå Г°Г*çìåð ГЄГўГ*äðГ*ГІГ*îé Г¬Г*òðèöû ');
read(n);
writeln('ÓêГ*æèòå ñïîñîá Г§Г*ïîëГ*ГҐГ*ГЁГї ГЄГўГ*äðГ*ГІГ*îé Г¬Г*òðèöГ*(1 - Г± ГЄГ«Г*ГўГЁГ*òóðû, 2 - ñëó÷Г*Г©Г*ûì îáðГ*çîì');
read(o);
if o=1 then begin
for i:=1 to n do
for j:=1 to n do
begin
writeln('Ââåäèòå [',i,',',j,'] ýëåìåГ*ГІ');
read(a[i,j]);
end;
end;
if o=2 then begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(200);
end;
writeln('Г‘Г*Г¬Г* Г¬Г*òðèöГ* : ');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=1 to n do
s:=s+a[i,j];
for j:=1 to n do
s1:=s1+a[i,j];
if s=s1 then writeln('Г„Г*Г*Г*Г*Гї öåëГ*Гї ГЄГўГ*äðГ*ГІГ*Г*Гї Г¬Г*òðèöГ* ÿâëÿåòñÿ Г¬Г*ГЈГЁГ·ГҐГ±ГЄГЁГ¬ ГЄГўГ*äðГ*òîì ')
else writeln('Г„Г*Г*Г*Г*Гї öåëГ*Гї ГЄГўГ*äðГ*ГІГ*Г*Гї Г¬Г*òðèöГ* Г*ГҐ ÿâëÿåòñÿ Г¬Г*ГЈГЁГ·ГҐГ±ГЄГЁГ¬ ГЄГўГ*äðГ*òîì ');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2013, 13:09

Магический четно-четный квадрат
Магический четно четный квадрат,напишите пожалуйста данную программу в паскале...

Четно-четный магический квадрат
Напишите пожалуйста программу для четно- четного магического квадрата(вместе с...

Построить магический квадрат 5 порядка
4. Используя любой удобный метод, построить магический квадрат 5 порядка. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru