Последние комментарии

Все исходники Кладовки, отсортированные по времени добавления последнего комментария.

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

cards50.zip  (983408 байт)
Посмотреть содержимое

iv_ro : 2009-08-12 00:23:16

Delphi - Игры

Карточная игра - 50.

РГЗ по дисциплине "Системы искусственного интеллекта". Тема: программирование игр и головоломок.

Суть игры: На столе располагаются 24 раскрытые карты: все карты с номерами от 1 до 6 обычной колоды, где туз считается за 1. Масти карт несущественны. Каждый игрок при своём ходе берёт со стола карту и складывает её значение с суммой тех, которые были взяты ранее (таким образом, подсчитывается общая сумма карт, взятых партнёрами, а не отдельные суммы для каждого партнёра. Первый, кто берёт в точности 50 очков выигрывает. Если игрок, взяв карту, не может не превысить 50 очков, то он проигрывает.

Скачать

Комментарии (3) 1553 скачиваний

verylongmath.zip  (22245 байт)
Посмотреть содержимое

TStas : 2006-01-28 11:13:09

Delphi - Модули

Модуль VeryLongMath.
В этом модуле определен тип: VeryLongInt - целые знаковые числа и математика для них. Это числа по модулю 100. Состоят из модуля, в котором задом наперед записаны разряды и знака (True - знак есть, т. е. число меньше нуля). Если числа не инициализированы, то ошибки не возникает, они автоматически инициализируются при обращении к функциям и им присваивается 0.

Оптимизация скорости выполнения: при переводе в строку длинна строки расчитывается сразу и устанавливается один раз. При переводе строки в число части строки только копируются. При умножении длинна результата также устанавливается один раз. Возведение в степень производится с минимальным числом умножений, см. код функции. Так, например при возведении в степень 100 будет произведено не 100, а только 8 операций умножения. Есть функция извлечения корня, которая возвращает точный ли он, а если неточный, то ближайшее целое.

TProgressEvent - процедурный тип, с помощью которого можно отображать процесс извлечения корня или вычисления НОК и НОД, а также остановить процесс. Умеет считать НОК и НОД для двух длинных чисел. При ошибках (деление на 0, корень из отрицательного числа) возбуждаются исключения.

Второй модуль - NumericParser. Использует VeryLongMath.
В этом модуле определен класс парсера. Парсер принимает строку и, возможно, процедуру TErrorEvent, с помощью которой он может указать место ошибки, если таковая возникла. Чтобы он парсил, нужно вызвать метод Parse. Понимает переменные, если создать TStrings и в свойства Objects записать длинные числа в виде TNumericObj, и записать полученный TStrings в свойство VarList. Понимает выражения двух типов - длинные числа или логичекие. Есть свойство ResultType, в котором записано, получилось ли парсить, а если - да, то каков тип выражения. Есть свойство Corrected, в котором записано, корректна ли выражение. Парсер понимает комментарии, которые находятся внутри фигурных скобок. Регистронезависим. Понимает функции Abs, Sqr, Sqrt, GCD (НОК), lcm (НОД), логические константы true и false. На основе парсера есть функция Eval, которая принимает строку и возвращает результат ее выполнения в виде строки.

Имеется тестовый проект в виде калькулятора.

Скачать

Комментарии (3) 1085 скачиваний

deskcleaner.zip  (231610 байт)
Посмотреть содержимое

ADSava : 2011-07-29 23:02:51

Delphi - Программы

Программа чистит рабочий стол от нежелательных файлов (хлама)

Скачать

Комментарии (4) 667 скачиваний

graphicm.zip  (22123 байт)
Посмотреть содержимое

san-46 : 2007-11-15 11:49:42

Delphi - Компоненты

Компонент - альтернатива TChart, как более примитивный и от того простой
без наворотов компонент.
Выводит двумерные графики функций f(X,Y). Вид графиков - линейный.
Предназначен для тех, кого мало интересует внутренности реализации построения
графиков, а надо только быстренько отобразить кривые своих функций.

Работа с компонентом проста до безобразия.
После размещения компонента на форме через свойство "Curves" вызывается список
кривых, где надо их добавить столько сколько нужно.
При этом после добавления каждой кривой можно установить их цвет и толщину
линии, если установки по умолчанию не устраивают.
Собственно, на этом работу в design-time можно считать завершенной.

Правда, можно изменить цвет фона, цвет линий сетки, включить отображение
значений точек. Так же можно изменить минимумы и максимумы по осям, но это
ни к чему не обязывает и предназначено только для того чтобы примерно
понять как в общем будет выглядеть график.
Все это дополнительные возможности, которые используются при необходимости.

В run-time в цикле вызывается процедура добавления точек в кривую.
GraphMois1.Curves[0].AddPoint(X, Y);

Индекс "0" в примере указывает на первую кривую, "Х" и "Y" - значения точки.
Более подробный комментарий приведен в начале исходника компонента.

Что еще умеет делать компонент.
- Если во время формирования кривой передаваемые точки выходят за
диапазон минимальных или максимальных значений по осям, то график сам
масштабируется до необходимых значений (как в TChart).
- После вывода графика. По каждому щелчку левой кнопки мыши график увеличивает
масштаб, по правой кнопке уменьшает масштаб (величину изменения масштаба
можно устанавливать какую надо).
- При увеличенном масштабе движение мыши с прижатой левой кнопкой панорамирует
график - сдвигает его вправо-влево, вверх-вниз.
- Если свойство ShowHint включено (True), то при прохождении курсора мыши около
точки на кривой будет отображаться хинт со значениями точки.

Ограничение.
Точность графика до десятых долей значений, поэтому вывод кривых, где шаг
аргументов функций меньше 0.1 приведет к несуразному виду этих кривых.

Скачать

Комментарии (2) 2803 скачиваний

excel1.zip  (11923 байт)
Посмотреть содержимое

WondeRu : 2006-05-10 21:37:12

C# - Программы

Использование Excel в C#. Показана работа с backgroundWorker (создание скрытого потока).
VS 2005 [.NET 2.0]

Скачать

Комментарии (3) 2778 скачиваний

conmenu.zip  (20711 байт)
Посмотреть содержимое

трансмертвующий : 2005-07-29 15:44:51

C++ - Классы

Консольное меню. Призвано удовлетворить потребность в интерактивности консольных приложений Windows, также может служить примером использования консольных функций.

Скачать

Комментарии (3) 2269 скачиваний

diplom.zip  (494377 байт)
Посмотреть содержимое

_VirEx_ : 2007-09-08 19:39:52

Delphi - Студентам

Мой диплом (с примерами) в колледже на тему: "Методическое пособие по разработке драйверов для устройств сопряжения ПК с нестандартным оборудованием"

пользуйтесь :)

Скачать

Комментарии (4) 3513 скачиваний

memofile.zip  (2958 байт)
Посмотреть содержимое

Наиль : 2007-07-13 09:11:16

Delphi - Модули

Некоторые до сих пор пользуются оператором writeln для ведения логов. Но мало кто знает, что этот оператор позволяет выводить данные не только в консоль и файл, но и в любое место. Модуль MemoFile позволяет подключить TMemo вместо файла.
Согласитесь, что запись
Writeln('Пользователь нажал в точку x=',x,' y=',y);
лучше чем
Memo1.Lines.Add(Format('Пользователь нажал в точку x=%d y=%d',[x,y]));
Пример прилагается.

Скачать

Комментарии (2) 1484 скачиваний

autoexit.zip  (57450 байт)
Посмотреть содержимое

mihka : 2012-05-31 16:39:12

ASM

Таймер выключения пк для windows. Есть оповещение перед выключением в виде сбщ или музыки (проигрывается autoexit.wav)
Отмена выключения по нажатию ctrl+f2.

Скачать

Комментарии (1) 433 скачиваний

setevoeplanirovanie.rar  (5721 байт)
Посмотреть содержимое

Net : 2007-03-27 21:46:26

Delphi - Студентам

Простая реализация сетевого планирования работ. Рисование графиков работ.
Имена работ задаются автоматически, время выполнения работ - через статический массив. легко дорабатывается для введения данных через форму.

Скачать

Комментарии (3) 2433 скачиваний

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17