Программирование Delphi.
Для изучающих программирование на Delphi здесь будут публиковаться программы, составленные мной. Для запуска программы откройте в архиве файл с расширением *.exe. Для просмотра кода программы просмотрите с помощью функции "Просмотр" WinRar файл с расширением *.pas. Страница обновлена 25 июня 2010 года.Курсовая работа на тему "Вычисление функций с помощью разложения в ряд с учётом полной погрешности"
Решения уравнений.
1. Решение кубического уравнения A*x^3+B*x^2+C*x+D=0.
Эта программа находит три корня кубического уравнения двумя способами:
при помощи формул Кардано и приближённым методом.
При решении уравнения при помощи Формул Кардано производится сначала замена переменной
Уравнение приводится к каноническому виду:
Дискриминантом S кубического уравнения называется число:
Если дискриминант S меньше 0, то уравнение имеет три действительных корня
Если дискриминант S больше 0, то уравнение имеет только один действительный корень.
Вывод формул корней кубического уравнения
Скачать программу "Решение кубического уравнения A*x^3+B*x^2+C*x+D=0" (296363 байт, 2.03.2008)
Код программы "Решение кубического уравнения A*x^3+B*x^2+C*x+D=0"
2. Решение уравнения четвёртой степени A*x^4+B*x^3+C*x^2+D*x+E=0.
Эта программа находит четыре корня уравнения четвёртой степени двумя способами.
Вывод формул корней уравнения четвёртой степени.
Скачать программу "Решение уравнения четвёртой степени A*x^4+B*x^3+C*x^2+D*x+E=0".
(191640 байт, 26.04.2008)
Код программы "Решение уравнения четвёртой степени A*x^4+B*x^3+C*x^2+D*x+E=0"
3. Решение уравнения пятой степени A*x^5+B*x^4+C*x^3+D*x^2+E*x+F=0.
Эта программа находит пять корней алгебраического уравнения пятой степени и выполняет проверку правильности решения путём подстановки найденных корней в левую часть уравнения. Программа решает также уравнения четвёртой степени, кубические уравнения и квадратные уравнения.
Скачать программу "Решение уравнения пятой степени A*x^5+B*x^4+C*x^3+D*x^2+E*x+F=0".
(364234 байт, 26.04.2008)
Код программы "Решение уравнения пятой степени A*x^5+B*x^4+C*x^3+D*x^2+E*x+F=0"
4. Вычисление аргумента инволюты U=tg(x)-x
По введённому U программа находит значение x.Скачать программу "Вычисление аргумента инволюты U=tg(x)-x" (170723 байт).
Код программы "Вычисление аргумента инволюты U=tg(x)-x" (2495 байт).
5. Нахождение корней уравнения W=h*ctg(W*L)
Ввести числа h и L. Программа выведет в текстовое поле и в файл 1000 и более корней W , удовлетворяющих уравнению W=h*ctg(W*L).W(i) находится на промежутке (Pi*(i-1)/L; Pi*i/L)
Скачать программу "Нахождение корней уравнения W=h*ctg(W*L)" (175261 байт).
Код программы "Нахождение корней уравнения W=h*ctg(W*L)"
Аналитическая геометрия.
В пространстве даны четыре точки:A(x1, y1, z1), B(x2, y2, z2), C(x3, y3, z3), D(x4, y4, z4)
Программа найдёт расстояние между прямыми AB и СD , а также вычислит координаты оснований общего перпендикуляра MN к этим прямым.
Вычисление расстояния между двумя прямыми в пространстве.
Скачать программу, вычисляющую расстояние между двумя прямыми в пространстве. (194830 байт, 1.03.2008)
Свойства чисел.
1. Вычисление суммы делителей натурального числа.
Само число не учитывается в качестве делителя самого себя
Скачать программу "Вычисление суммы делителей натурального числа" (168244 байт).
Код программы "Вычисление суммы делителей натурального числа" (2229 байт).
2. Процент простых, совершенных, несовершенных и сверхсовершенных чисел.
Сумма делителей простого числа равно 1. Сумма делителей совершенного числа равна самому этому совершенному числу. Сумма делителей несовершенного числа меньше этого числа. Сумма делителей сверхсовершенного числа больше этого числа. Программа подсчитывает, сколько среди первых K чисел натурального ряда простых, совершенных, несовершенных и сверхсовершенных и выводит также на экран все совершенные числа.
Скачать программу "Процент простых, совершенных, несовершенных и сверхсовершенных чисел" (178997 байт).
Код программы "Процент простых, совершенных, несовершенных и сверхсовершенных чисел" (8039 байт).
3. Процент простых чисел.
Эта программа не использует решето Эратосфена и потому работает весьма медленно по сравнению со следующей программой, в которой это решето Эратосфена используется.
Скачать программу "Процент простых чисел" (168416 байт).
Код программы "Процент простых чисел" (2858 байт).
4. Процент простых чисел. Решето Эратосфена.
Скачать программу "Процент простых чисел. Решето Эратосфена" (169460 байт)
Код программы "Процент простых чисел. Решето Эратосфена" (2990 байт)
Скачать консольное приложение для DOS "Процент простых чисел. Решето Эратосфена" (14170 байт)
Код консольного приложения для DOS "Процент простых чисел. Решето Эратосфена" (1589 байт)
Теория вероятностей.
1. Игра "Угадай число одно из десяти".
Правила игры. Вы загадываете любую из 10 цифр от 0 до 9 и делаете ставку, не превышающую количества имеющихся у вас монет. Если загаданная вами цифра не совпала с той цифрой, которую загадал компьютер, то количество ваших монет уменьшается на величину этой ставки. Если вы загадали ту же самую цифру, что и компьютер, то количество ваших монет увеличивается на сумму, превосходящую в 9 раз сумму вашей ставки. То есть, при проигрыше вы теряете 1 ставку, а при выигрыше выигрываете 9 ставок.
Для игры надо либо нажимать на клавишу Enter после введения цифры и ставки, либо постоянно держать нажатой клавишу Enter в случае вашей систематической удачи.
Скачать программу "Угадай число одно из десяти"c 10 монетами на вашем начальном счёте (178605 байт)
Код программы "Угадай число одно из десяти"c 10 монетами на вашем начальном счёте (4107 байт)
2. Максимальный выигрыш в игре "Угадай число одно из десяти".
Вы загадываете одну из десяти цифр: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 и выбираете начальное число монет от 10 до 100. Компьютер начинает также случайно загадывать цифры. Если цифра, загаданная вами, совпадает с цифрой, загаданной компьютером, то количество ваших монет увеличивается на 9 монет. Если цифра, загаданная вами, не совпадает с цифрой, загаданной компьютером, то количество ваших монет уменьшается на 1 монету. Максимальное число ходов равно 2000000000. Убедитесь в том, что по всей вероятности вы проиграете даже 100 ваших первоначальных монет.
Программа подсчитает, когда вам надо было выйти из игры, чтобы иметь максимальный выигрыш, и вычислит величину этого максимального выигрыша. Кроме того, сохраняется общая статистика всех проигрышей. После того, как вы снова запустите приложение, например, на следующий день, игра продолжится с достигнутого в прошлый раз результата. Но для этого надо либо распаковать RAR-архив, либо не распаковывать этот Rar-архив, но после окончания игры нажать "Да", когда будет задан вопрос: "Некоторые извлечённые из MaxSuccess10.rar файлы изменились, либо были созданы новые файлы. Хотите добавить их в архив?"
Скачать программу "Максимальный выигрыш в игре "Угадай число одно из десяти""
(180791 байт, обновлена 24 февраля 2007 года)
Код программы "Максимальный выигрыш в игре "Угадай число одно из десяти""
3. Игра "Угадай число одно из двух".
Правила игры. Вы загадываете одну из двух цифр: 0 или 1, делаете ставку, не превышающую количества имеющихся у вас монет. Если загаданная вами цифра не совпала с той цифрой, которую загадал компьютер, то количество ваших монет уменьшается на величину этой ставки. Если вы загадали ту же самую цифру, что и компьютер, то количество ваших монет увеличивается на велечину этой ставки. То есть, при проигрыше вы теряете 1 ставку, а при выигрыше выигрываете 1 ставку.
Скачать программу "Угадай число одно из двух" c 10 монетами на вашем начальном счёте
(178346 байт)
Код программы "Угадай число одно из двух" c 10 монетами на вашем начальном счёте
(4159 байт)
4. Максимальный выигрыш в игре "Угадай число одно из двух".
Вы загадываете одну из цифр: 0 или 1 и выбираете начальное число монет от 10 до 100. Компьютер начинает также случайно загадывать цифры. Если цифра, загаданная вами, совпадает с цифрой, загаданной компьютером, то количество ваших монет увеличивается на 1 монету. Если цифра, загаданная вами, не совпадает с цифрой, загаданной компьютером, то количество ваших монет уменьшается на 1 монету. Максимальное число ходов равно 2000000000. Убедитесь в том, что по всей вероятности вы проиграете даже 100 ваших первоначальных монет.
Программа подсчитает, когда вам надо было выйти из игры, чтобы иметь максимальный выигрыш, и вычислит величину этого максимального выигрыша. Кроме того, сохраняется общая статистика всех проигрышей. После того, как вы снова запустите приложение, например, на следующий день, игра продолжится с достигнутого в прошлый раз результата. Но для этого надо либо распаковать RAR-архив, либо не распаковывать этот Rar-архив, но после окончания игры нажать "Да", когда будет задан вопрос: "Некоторые извлечённые из MaxSuccess10.rar файлы изменились, либо были созданы новые файлы. Хотите добавить их в архив?"
Скачать программу "Максимальный выигрыш в игре "Угадай число одно из двух""
(184317 байт, обновлена 24 февраля 2007 года)
Код программы "Максимальный выигрыш в игре "Угадай число одно из двух"" (4385 байт)
5. "Угадай число одно из десяти" с сохранением результата в файле.
Вы загадываете одну из десяти цифр от 0 до 9 и нажимаете Enter. Если загаданная вами цифра совпала с цифрой, которую загадал компьютер, то вы выигрываете 9 монет. Если загаданная вами цифра не совпала с цифрой, которую загадал компьютер, то вы проигрываете 1 монету. Клавишу Enter можно не отпускать.
После окончания игры результат сохраняется в файле. После того, как вы снова запустите приложение, например, на следующий день, игра продолжится с достигнутого в прошлый раз результата. Но для этого надо либо распаковать RAR-архив, либо не распаковывать этот Rar-архив, но после окончания игры нажать "Да", когда будет задан вопрос: "Некоторые извлечённые из Chance.rar файлы изменились, либо были созданы новые файлы. Хотите добавить их в архив?"
Скачать программу "Угадай число одно из десяти" с сохранением результата (172546 байт)
Код программы "Угадай число одно из десяти" с сохранением результата. (3662 байт)
6. "Угадай число одно из двух" с сохранением результата в файле.
Вы загадываете одну из двух цифр: 0 или 1 и нажимаете Enter. Если загаданная вами цифра совпала с цифрой, которую загадал компьютер, то вы выигрываете 1 монету. Если загаданная вами цифра не совпала с цифрой, которую загадал компьютер, то вы проигрываете 1 монету. Клавишу Enter можно не отпускать.
После окончания игры результат сохраняется в файле. После того, как вы снова запустите приложение, например, на следующий день, игра продолжится с достигнутого в прошлый раз результата. Но для этого надо либо распаковать RAR-архив, либо не распаковывать этот Rar-архив, но после окончания игры нажать "Да", когда будет задан вопрос: "Некоторые извлечённые из Chance2.rar файлы изменились, либо были созданы новые файлы. Хотите добавить их в архив?"
Скачать программу "Угадай число одно из двух" с сохранением результата (172580 байт)
Код программы "Угадай число одно из двух" с сохранением результата. (3755 байт)
7. Игра "Жизнь".
В классическом варианте на разбитую на квадраты плоскость кладут фишки (аналог биологической клетки). Колония клеток на следующем ходу изменяется:1) клетка гибнет, если ее окрестность (8 квадратов) перенаселена (более 4-х клеток) или пустынна (менее 3-х клеток);
2) клетка выживает, если число соседей равно 2,3,4;
3) клетка рождается, если число соседей равно 3.
Автор идеи: http://mirea.narod.ru/fstat04-02a.html
Скачать программу (189077 байт)
8. Случайное число.
Функцией Random(10) генерируется случайное число из диапазона от 0 до 9. Программа подсчитывает, сколько из этих чисел нулей, единиц, двоек, троек, четвёрок, пятёрок, шестёрок, семёрок, восьмёрок, девяток. Вы можете сколь угодно долго увеличивать общее количество случайных чисел, выключить компьютер и продолжить добавление чисел на следующий день, так как все результаты сохраняются в файле.Скачать программу "Случайное число"
Просмотреть код программы "Случайное число"
Пример 1 Пример 2 Пример 3.
Решение дифференциальных уравнений.
Нахождение концентрации вещества при диффузии.
Найти распределение концентрации n(x,t)диффундирующего вещества в бесконечном слое
0 <= x <= L,
-бесконечность < y, z < +бесконечность.
Поверхность х=0 непроницаема.
На поверхности x=L происходит массообмен с окружающей средой, имеющей концентрацию диффундирующего вещества:
A*exp(-bt).
Начальная концентрация диффундирующего вещества внутри слоя постоянна и равна А0.
Коэффициент диффузии равен D.
Составление и решение дифференциального уравнения для двух задач.
Скачать программу "Нахождение концентрации вещества при диффузии (№1)"
(281789 байт, обновлена 2.06.2007, выполняет проверку правильности решения диф. уравнения)
Код программы "Нахождение концентрации вещества при диффузии (№1)"
Скачать программу "Нахождение концентрации вещества при диффузии"(№2)
(271398 байт, обновлена 2.06.2007, выполняет проверку правильности решения диф. уравнения)
Код программы "Нахождение концентрации вещества при диффузии" (№2)
Графики концентрации при диффузии.
Программа строит графики зависимости концентрации вещества от расстояния до непроницаемой перегородки и от времени. Всего имеется четыре графика: две зависимости от времени (для h конечного и бесконечного) и две зависимости от координаты (для h конечного и бесконечного).
Скачать программу "Графики зависимости концентрации вещества от координаты и от времени при диффузии. " (208737 байт ,обновлена 2.06.2007)
Решение n(x,t) этого уравнения не является всюду неотрицательным:
Скачать программу решения диф. уравнения
(292712 байт, обновлена 27.12.2007, выполняет проверку правильности решения диф. уравнения)
Вычисления числа Пи.
Пять алгоритмов вычисления числа Пи. (287142 байт)
Код программы "Пять алгоритмов вычисления числа Пи".
Формулы пяти алгоритмов вычисления числа Пи".
Другие программы на Delphi.
Дана строка, состоящая из символов и пробелов. Группа символов, не разделенных пробелами, называется словом. Поменять местами слова минимальной и максимальной длины.
Скачать программу (169709 Байт)
Программы на Lazarus.
1. График гиперболического параболоида.Программа построит проекцию трёхмерного графика гиперболического параболоида на плосоксть Oxyz
Cкачать программу (2772029 Байт)
2. Вычисление корня квадратного из числа Pi.
Программа не пользуется функцией sqrt. В прилагаемом справочном пособии подробно доказывается, что корень квадратный из числа может быть найден при помощи реккурентной формулы:
3. Генерация цветов
4. Приближённые вычисления
Код программы "Приближённые вычисления"
Владимир Фомин.
Документы
Домашний адрес: 155810, Ивановская область,
г. Кинешма, ул. Макарова, 41-47
Сотовый телефон: +7 910 6942514
E-mail: atheist3@narod.ru
ICQ 316407799
Кошелёк WebMoney: R199233586562
На главную страницу