Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

1. Заполнить магический квадрат (25,8,11,14,17,20,23,26), составить свой магический квадрат. 2. Придумать алгоритм-фокус. 3. Решить алгори

1-4 класс

тм Гаусса ( 4,5,6,7,8,9,10,11,12,13)

Maks200224 22 нояб. 2016 г., 2:46:45 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Tdttsdqwr414
22 нояб. 2016 г., 5:15:18 (7 лет назад)

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

const
  mn = 16;
var
  p: Boolean;
procedure Swap(var a, b: Integer);
var
T: Integer;
begin
T := a; a := b; b := T
end;
procedure CreateMagic(n: Integer);
var
i, j, k, s, b, r, m: Integer;
a: Array[1.. mn, 1.. mn] Of Integer;
begin
  p := True; 
if Odd(n) Then
begin
i := 1; j := Succ(n div 2);
for k := 1 To Sqr(n) do
begin
a[i, j] := k;
if k mod n = 0 Then Inc(i)
Else
begin
Dec(i); Inc(j);
if i = 0 Then i := n;
if j > n Then j := 1
end
end;
  end
Else
if n mod 4 = 0 Then
begin
k := 1;
for i := 1 To n Do
for j := 1 To n Do
begin
a[i, j] := k; Inc(k)
end;
j := 2; m := n div 2;
for i := 1 To m Do
for k := 1 To m Div 2 Do
begin
if j = Succ(m) Then j := 2
Else
if j = (m + 2) Then j := 1;
s := Succ(n - i); b := Succ(n - j);
Swap(a[i, j], a[s, b]);
Swap(a[i, b], a[s, j]);
Inc(j, 2)
end
  end
Else
if n <> 2 Then
begin
k := 1;
for i := 1 To n Do
for j := 1 To n Do
begin
a[i, j] := k; Inc(k)
end;
  r := Pred(n div 2) div 2; m := n div 2;
for i := 1 To m Do
begin
j := i;
for k := 1 To r Do
begin
if j > m Then j := 1;
s := Succ(n - i); b := Succ(n - j);
Swap(a[i, j], a[s, b]);
Swap(a[i, b], a[s, j]);
Inc(j)
end
  end;
i := 1;
for k := 1 To m Do
begin
if j > m Then j := 1;
s := Succ(n - i);
Swap(a[i, j], a[s, j]);
Inc(i); Inc(j)
  end;
i := 1; j := r + 2;
for k := 1 To m Do
begin
if j > m Then j := 1;
b := Succ(n - j);
Swap(a[i, j], a[i, b]);
Inc(i); Inc(j)
end
  end
  Else p := False;
if p Then
begin
for i := 1 To n Do
begin
for j := 1 To n Do
Write(a[i, j]: 4);
WriteLn
end
end
Else
WriteLn( 'do not exists' )
end;
var
  n: Integer;
begin
WriteLn('n = '); ReadLn(n);
  CreateMagic(n);
end.

Ответить

Другие вопросы из категории

Помогите с информатикой 3 класс. Ребус1. Нарисованый морж К=Е

Ребус 2. К` паук , Н

Собери урожай.

войди в сад,подойди к яблони,сорви яблоко,положи яблоко в корзину,?
помогите что дальше? заранее спасибо!


Пришей банты
Выйти из шкатулки
??????????
Пришей бант
Все банты пришиты?
Остались платья?
????????????Конец!
помогите (((




Помогите срочно надо

заранее спасибо

Читайте также

1 вопрос.

Как называется дисковой накопитель, с которого загружается операционная система?
а) Boot drive;
б)Boot diskette;
в)Boot partition.
2 вопрос
Как называется формат графического изображения, используемый в операционной системе Windows?
а) PDF;
б) XML;
в) BMP.
3 вопрос
Как называется начальная запись на диске (жестком или гибком), где записана информация необходимая операционной системе для работы с диском?
а) Bootstrap;
б) Boot partition;
в) Boot -sector.
4 вопрос
Программа WINE предназначена для выполнения какой функции?
а) для настройки и запуска SSH -сервера;
б) для запуска Windows –программ в операционной системе Linux;
в) для запуска эмулятора Virtual Box;
г)для запуска эмулятора VMware;
д)для запуска графического интерфейса GNOME OS Linux.
5 вопрос
Порция информации, оставляемая на компьютере Веб –клиента программой, запущенной на стороне Веб-сервера. Применяется для сохранения данных, специфичных для данного клиента, например имя и регион пользователя.
а) вирус –шпион Trojan-Spy.Win32 (по классификации лаборатории «Касперский»);
б) cookie;
в) вирус блокиратор программ - браузеров;
г) вирус -баннер.
6 вопрос
Как называется стандарт памяти и технология, приводящие к удвоению скорости передачи данных между памятью и процессором?
а) DDS;
б) DEC;
в) DDR;
г) DSL.
7 вопрос
Как называется программный компонент, который позволяет взаимодействовать с устройствами компьютера?
а)DSL;
б)Dream Weaver;
в) Driver;
г) Dynamic languages.
8 вопрос
Как называется информационный барьер, запрещающий доступ к защищаемой сети всех протоколов кроме разрешенных?
а) Flash;
б) Firewall;
в) File fragmentation;
г) Fire Wire.
9 вопрос
Протокол передачи файлов (данных) и способ перемещения файлов между различными компьютерами. В качестве транспортного механизма для передачи данных использует протокол TCP.
а) Bluetooth;
б) Wi-Fi;
в) FTP;
г) IrDA.
10 вопрос
Один из популярных форматов сохранения графических файлов для передачи изображений в сети Интернет. Позволяет создавать анимированные графические изображения.
а) DJVU;
б) JPG;
в) GIF;
г) PDF;
д) FB2.
11 вопрос
Как называется стандарт для передачи данных в сотовых сетях мобильной связи?
а) Wi-Fi;
б) Bluetooth;
в) GPS;
г) GPRS.
12 вопрос
Как называется стандарт интерфейса беспроводной связи?
а) IEEE;
б) IEEE 802.11;
в) IGMP;
г) IEEE 802.11 b/g/n.
13 вопрос
Как называется архив языка JAVA?
а)RAR;
б)ZIP;
в) JAR;
г) GZIP.
14 вопрос
В состав офисного пакета OpenOffice.org входит набор программ. Назовите программу для создания презентаций, аналог PowerPoint Microsoft Office.
а) OpenOffice.org Draw;
б) OpenOffice.org Impress;
в) OpenOffice.org Math;
г) OpenOffice.org Base.
15 вопрос
Сколько содержится байтов в 1024 килобайтах?
а) 10024 байт;
б) 1048576 байт;
в) 104800 байт;
г) 1048650 байт.
16 вопрос
Как называется формат для сжатия музыкальных файлов, позволяющий пользователям скачивать музыкальные произведения из Интернета?
а) MKV;
б) MP3;
в) MP4;
г) AVI.
17 вопрос
Как называется технология преобразования множества внутренних IP –адресов сети в один или несколько внешних адресов, используемых для связи с Интернет?
а) DNS;
б) HTTP;
в) NAT;
г) IP v4.
18 вопрос
В этих аккумуляторах вместо ядовитого кадмия применяются соединения металлов с водородом.
а) Li-ion аккумуляторы фирмы Soni Ericson;
б) Li-полимерные аккумуляторы фирмы Nokia;
в) никель-металлогидридные аккумуляторы фирмы GP.
19 вопрос
Назовите исполняемый файл программ операционной системы ANDROID, по их расширению.
а) *.EXE;
б)*.RPM;
в)*.APK;
г)*.VHD.
20 вопрос
Какая программа, расширяет возможности какого–нибудь программного пакета?
а) Playlist;
б) Plug-In;
в) Portable soft;
г) PE-file.
21 вопрос
Специальный формат файлов, разработанный корпорацией Microsoft для обмена форматированными текстовыми документами. Этот формат корректно запоминает и воспроизводит расположение текста и рисунков на странице.
а) *.TXT;
б)*.DJVU;
в)*.RTF;
г)*.PDF;
д)*.FB2.
22 вопрос
Как называются разъемы для установки на системную плату различных типов процессоров семейств 486, Pentium и Pentium Pro?
а) sosket 7;
б) sosket 478;
в) sosket 1-8;
г) sosket 486.
23 вопрос
Какая программа не является эмулятором операционной системы?
а) QEMU;
б) Virtual Box;
в) Moba LiveCD;
г) VMware player;
д) WINE.
24 вопрос
Какую функцию осуществляет файл с расширением *.VMDK - в программе эмуляторе операционных систем VMware Workstation v7?
а) описание параметров виртуального жесткого диска;
б) главный конфигурационный файл виртуальной операционной системы;
в) постоянная память RAM;
г) файл подкачки виртуальной машины.
25 вопрос
Какой оценочный период установлен, для пользователя, в компьютерной программе Microsoft Virtual PC 2007?
а) период, для бесплатного пользования, программой установлен в 30 дней;
б) период, для бесплатного пользования, программой установлен в 60 дней;
в) период, для бесплатного пользования, программой установлен в 10 дней;
г) период пользования программой не установлен;
д) требует оплаты при установке программного продукта.

нарисуй и заполни клетки (1,2,3,4,5)

1.Начало
2.Повторяй___________ раза.
3,Повторяй для фигур(_________)
4.Нарисуй клетку.
5.Нарисуй в клетке фигуру
6.повторяй_______раза
7.повторяй для карандашей(____________)
8.Закрась самую верхнюю незакраш.фигуру.
9.Конец.

1-под цифорй 1 нарисов.картинка треугольника
2-
3-
4 под цифрой 4 нарисован.буква К

5-

дальше нарисован красный треугольник
нарисован желтый квадрат
нарисован красный круг
нарисован желтый треугольник
нарисован красный квадрат
нарисован желтый круг

Задание:расмотри рисунок(квадраты треугольники и круги) и допиши команды алгоритма.Заполни карточку со "славами-актерами".(Обозначь цвета одной буквой). Помогите сделать ни чего не поняла....СПАСИБО!

Дано три числа - длина стороны квадрата и длины сторон прямоугольника. Определить, можно ли прямоугольник поместить в квадрат.

Входные данные:
Во входном потоке задано три вещественных числа - сторона квадрата и стороны прямоугольника соответственно. Значение всех исходных величин не превышает 30000.

Выходные данные:
В выходной поток вывести 'YES' или 'NO'.

Пример входного файла
5 4 5
Пример выходного файла
YES

нарисуй фигуру и заполни алгоритм

1.Начало
2..
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.Конец



Вы находитесь на странице вопроса "1. Заполнить магический квадрат (25,8,11,14,17,20,23,26), составить свой магический квадрат. 2. Придумать алгоритм-фокус. 3. Решить алгори", категории "информатика". Данный вопрос относится к разделу "1-4" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.