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

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

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

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

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

Задача. Магический/Не магический квадрат
Проверить, является ли заданная целочисленная матрица 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 порядка. ...

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

Полоска бумаги имеет размеры A × B. Каждый раз от нее отрезается квадрат максимального размера до тех пор, пока не получится квадрат.
Ограничение по времени: 1 секунда Ограничение по памяти: 64 мегабайта ...


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

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

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