М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dima1019
dima1019
05.05.2022 19:30 •  Информатика

Дана квадратная матрица n порядка. определить является ли она магическим квадратом

👇
Ответ:
Ore11
Ore11
05.05.2022
В магическом квадрате сумма по каждой строке, по каждому столбцу и по обоим диагоналям равна одному и тому же числу, называемому константой магического квадрата. Программе достаточно найти одну любую сумму, принять её в качестве упомянутой константы, а затем обнаружить хотя бы один случай неравенства очередной вычисленной суммы с принятой константой. Если нарушений обнаружено не будет, квадрат является магическим.

const
  n2 = 10;

var
  a: array[1..n2, 1..n2] of integer;
  i, j, n: integer;
  k, s: longint;
  magic: boolean;

begin
  Write('Введите число строк (cтолбцов) в магическом квадрате: ');
  Readln(n);
  for i := 1 to n do
  begin
    Write('Введите через пробел элементы строки ', i, ': ');
    for j := 1 to n do Read(a[i, j])
  end;
  s := 0;
  for j := 1 to n do s := s + a[1, j];
  k := s; i := 2; magic := true;
  while magic and (i <= n) do
  begin
    s := 0;
    for j := 1 to n do s := s + a[i, j];
    magic := (s = k);
    i := i + 1
  end;
  j := 1;
  while magic and (j <= n) do
  begin
    s := 0;
    for i := 1 to n do s := s + a[i, j];
    magic := (s = k);
    j := j + 1
  end;
  if magic then begin
    s := 0;
    for i := 1 to n do s := s + a[i, i];
    magic := (s = k);
  end;
  if magic then begin
    s := 0;
    for i := 1 to n do s := s + a[i, n - i + 1];
    magic := (s = k);
  end;
  if magic then Writeln('Квадрат является магическим, k=', k)
  else Writeln('Квадрат не является магическим')
end.

Тестовое решение:

Введите число строк (cтолбцов) в магическом квадрате: 5
Введите через пробел элементы строки 1: 11 24 7 20 3
Введите через пробел элементы строки 2: 4 12 25 8 16
Введите через пробел элементы строки 3: 17 5 13 21 9
Введите через пробел элементы строки 4: 10 18 1 14 22
Введите через пробел элементы строки 5: 23 6 19 2 15
Квадрат является магическим, k=65

Введите число строк (cтолбцов) в магическом квадрате: 4
Введите через пробел элементы строки 1: 1 1 1 1
Введите через пробел элементы строки 2: 1 1 1 1
Введите через пробел элементы строки 3: 1 1 1 1
Введите через пробел элементы строки 4: 1 1 2 -1
Квадрат не является магическим
4,8(64 оценок)
Открыть все ответы
Ответ:
piece0fcake
piece0fcake
05.05.2022
Компьютер моей мечты - такой, который обладает гигантской пропускной в плане взаимодействия с пользователем. Лично я набираю этот текст на клавиатуре примерно на 1/20 от той скорости, с которой я бы его читал, а читаю этот текст я примерно на 1/3 от скорости моего мышления. Это крайне медленно. Прорывной компьютер должен быть на прямое считывание наших мыслей, никаких клавиатур, мышей и микрофонов. Естественно, у него должна быть нерушимая защита от взлома. И еще кое-что - на нем должна быть программа мощного ИИ для значительного усиления моих творческих, познавательных и коммуникативных Только делать ИИ умнее меня не стоит, ибо могут проявиться некоторые "непредсказуемые последствия". Хоть сейчас все это и кажется фантастикой, но примерно через 40-50 лет и прямая связь с мозгом, и ИИ уровня человека (или чуть повыше) вполне могут стать обыденностью, как это сейчас и произошло с Айфонами и интернетом.

Воот. Мне определенно следует меньше читать Тима Урбана...
4,6(84 оценок)
Ответ:
zaynab20032003
zaynab20032003
05.05.2022

1)В алфавите 16 символов, т.к. N=2 в степени i. i=4

2)запишем условие: N=32, K=221, I-?

Решение: из формулы мощности алфавита найдем информационный вес 1 символа: 32=2 в степени i. Отсюда i=5 бит.

Подставим i в формулу информационного объема сообщения:

I=K*i=221*5бит=1105 бит  Это и есть ответ

3)Запишем условие: N=256 (мощность компьютерного алфавита)

I=4Kб , К-?

Решение: выразим информационный объем в битах

I=4*1024*8бит

Найдем информационный вес 1 символа по формуле N=2 в степени i

256=2 в степени i, i=8 бит

Выразим К из формулы информационного объема

К=I/i, K=(4*1024*8)/8=4096 символов     Это и есть ответ

4,7(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ