1. Заполнить магический квадрат (25,8,11,14,17,20,23,26), составить свой магический квадрат. 2. Придумать алгоритм-фокус. 3. Решить алгори
1-4 класс
|
тм Гаусса ( 4,5,6,7,8,9,10,11,12,13)
Магический квадрат с 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.
Другие вопросы из категории
Ребус 2. К` паук , Н
войди в сад,подойди к яблони,сорви яблоко,положи яблоко в корзину,?
помогите что дальше? заранее спасибо!
Пришей банты
Выйти из шкатулки
??????????
Пришей бант
Все банты пришиты?
Остались платья?
????????????Конец!
помогите (((
высказал утверждение:"Сосед справа-лжец".Сколько лжецов собрались за столом ?
Читайте также
Как называется дисковой накопитель, с которого загружается операционная система?
а) 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.Нарисуй в клетке фигуру
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.Конец