Недавно добавленные исходники

•  TDictionary Custom Sort  3 227

•  Fast Watermark Sources  2 993

•  3D Designer  4 752

•  Sik Screen Capture  3 260

•  Patch Maker  3 469

•  Айболит (remote control)  3 530

•  ListBox Drag & Drop  2 907

•  Доска для игры Реверси  80 800

•  Графические эффекты  3 844

•  Рисование по маске  3 172

•  Перетаскивание изображений  2 544

•  Canvas Drawing  2 674

•  Рисование Луны  2 501

•  Поворот изображения  2 094

•  Рисование стержней  2 121

•  Paint on Shape  1 526

•  Генератор кроссвордов  2 183

•  Головоломка Paletto  1 731

•  Теорема Монжа об окружностях  2 159

•  Пазл Numbrix  1 649

 

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Ссылки и Баннеры ...

 

Delphi Sources

Delphi Sources

 




 

ИСХОДНИК ПРОГРАММЫ

 

. : Durers Magic Square : .

 

Delphi - Durers Magic Square - Волшебный квадрат Дюрера

Исходник программы, показывающей пример создания пазла, в котором нужно найти 86 различных комбинаций из 4 чисел в квадрате, которые в сумме дают число 34.

Волшебный квадрат Дюрера изображен на известной медной гравюре «Меланхолия» (первый магический квадрат, опубликованный в Европе), созданной в 1514 году немецким художником Альбрехтом Дюрером.

Программа будет последовательно отображать все 86 способов выбрать четыре числа, сумма которых равна 34. Первые 20 решений найти не так уж сложно. После этого поиск решений путем визуального осмотра становится все труднее.

Программирование этой задачи довольно простое. StringGrid используется для отображения квадрата и OnDrawCell для выделения текущего набора ячеек, выбранных пользователем. Для этого массив строк S содержит выбранные значения ячеек. По мере рисования каждой ячейки ее значение сравнивается со значениями в S, и, если найдено совпадение, ячейка выделяется. Пользовательские решения помещаются в список строк Listbox. Чтобы заблокировать повторяющиеся решения, мы сортируем четыре числа перед добавлением их в список, чтобы можно было использовать процедуру Items.IndexOf для проверки дублирующихся решений.

Просмотры: 653
Дата: 06.08.2011, Автор: Gary Darby
Скачивания: 7
Написать сообщение:

 

Скачать (6 Кб)     Регистрация >>


 

Похожие исходники


Least Squares

 

© 2004-2024 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software