Программирование на Free Pascal

Бег на дистанцию 400 метров.

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

Пример работы программы Бег на 400 метров

Программы, решающие задачи по аналитической геометрии.

  1. Расчёт тетраэдра. (Двугранные углы, центры и радиусы описанной и вписанной окружностей, углы между ребрами и плосокостями).

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

  2. Координаты проекции точки на плоскость и на прямую. Расстояние от точки до плоскости и до прямой.

  3. Координаты общего перпендикуляра к двум скрещивающимся прямым и расстояние между прямыми в пространстве

    В пространстве даны четыре точки:
    A(x1, y1, z1), B(x2, y2, z2), C(x3, y3, z3), D(x4, y4, z4)
    Программа найдёт расстояние между прямыми AB и СD , а также вычислит координаты оснований общего перпендикуляра MN к этим прямым.

Рекурсивные алгоритмы.

1. Задача об обходе конём всех клеток шахматной доски по одному разу.

На шахматной доске размера 5*5 стоит конь.
Программа. Конь обходит всех 25 клеток шахматной доски 5x5 по одному разу.

Результат работы программы обхода конём всех 25 клеток доски с полей a1, a2, a3, b2, b3, c3

2. Задача о n ферзях на шахматной доске размера n*n, которые не бьют друг друга.

Программа. На шахматной доске размера n*n расположены n ферзей, которые не бьют друг друга.

Результаты работы программы для n=4, n=5, n=6, n=7, n=8, n=9

3. Программа, находящая все решения Судоку и выводящая все решения в html-файл.

Программа sudocu.zip

Разложение функций в ряд Тейлора.

Курсовая работа на тему «Вычисление функций с помощью разложения в ряд с учётом полной погрешности»

Решения уравнений.

  1. «Решение кубического уравнения A*x^3+B*x^2+C*x+D=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». Код программы «Решение уравнения пятой степени 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» Код программы «Вычисление аргумента инволюты U=tg(x)-x»

  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)»

Свойства чисел.

1. Вычисление суммы делителей натурального числа.

Само число не учитывается в качестве делителя самого себя.

Скачать программу «Вычисление суммы делителей натурального числа»

Код программы «Вычисление суммы делителей натурального числа»

2. Процент простых, совершенных, несовершенных и сверхсовершенных чисел.

Сумма делителей простого числа равно 1. Сумма делителей совершенного числа равна самому этому совершенному числу. Сумма делителей несовершенного числа меньше этого числа. Сумма делителей сверхсовершенного числа больше этого числа. Программа подсчитывает, сколько среди первых K чисел натурального ряда простых, совершенных, несовершенных и сверхсовершенных и выводит также на экран все совершенные числа. Скачать программу «Процент простых, совершенных, несовершенных и сверхсовершенных чисел» (178997 байт).

Код программы «Процент простых, совершенных, несовершенных и сверхсовершенных чисел» (8039 байт).

3. Процент простых чисел.

Эта программа не использует решето Эратосфена и потому работает весьма медленно по сравнению со следующей программой, в которой это решето Эратосфена используется.

Скачать программу «Процент простых чисел» (168416 байт). Код программы «Процент простых чисел»

4. Процент простых чисел. Решето Эратосфена.

Скачать программу «Процент простых чисел. Решето Эратосфена»

Код программы «Процент простых чисел. Решето Эратосфена»

Скачать консольное приложение для DOS «Процент простых чисел. Решето Эратосфена»

Код консольного приложения для DOS «Процент простых чисел. Решето Эратосфена»

Теория вероятностей.

1. Игра «Угадай число одно из десяти».

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

Для игры надо либо нажимать на клавишу Enter после введения цифры и ставки, либо постоянно держать нажатой клавишу Enter в случае вашей систематической удачи.

Скачать программу «Угадай число одно из десяти»c 10 монетами на вашем начальном счёте(178605 байт)

Код программы «Угадай число одно из десяти» c 10 монетами на вашем начальном счёте

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 монетами на вашем начальном счёте

Код программы "Угадай число одно из двух" c 10 монетами на вашем начальном счёте

4. Максимальный выигрыш в игре "Угадай число одно из двух".

Вы загадываете одну из цифр: 0 или 1 и выбираете начальное число монет от 10 до 100. Компьютер начинает также случайно загадывать цифры. Если цифра, загаданная вами, совпадает с цифрой, загаданной компьютером, то количество ваших монет увеличивается на 1 монету. Если цифра, загаданная вами, не совпадает с цифрой, загаданной компьютером, то количество ваших монет уменьшается на 1 монету. Максимальное число ходов равно 2000000000. Убедитесь в том, что по всей вероятности вы проиграете даже 100 ваших первоначальных монет.

Программа подсчитает, когда вам надо было выйти из игры, чтобы иметь максимальный выигрыш, и вычислит величину этого максимального выигрыша. Кроме того, сохраняется общая статистика всех проигрышей. После того, как вы снова запустите приложение, например, на следующий день, игра продолжится с достигнутого в прошлый раз результата. Но для этого надо либо распаковать RAR-архив, либо не распаковывать этот Rar-архив, но после окончания игры нажать «Да», когда будет задан вопрос: «Некоторые извлечённые из MaxSuccess10.rar файлы изменились, либо были созданы новые файлы. Хотите добавить их в архив?»

Скачать программу «Максимальный выигрыш в игре Угадай число одно из двух»

Код программы «Максимальный выигрыш в игре Угадай число одно из двух»

5. «Угадай число одно из десяти» с сохранением результата в файле.

Вы загадываете одну из десяти цифр от 0 до 9 и нажимаете Enter. Если загаданная вами цифра совпала с цифрой, которую загадал компьютер, то вы выигрываете 9 монет. Если загаданная вами цифра не совпала с цифрой, которую загадал компьютер, то вы проигрываете 1 монету. Клавишу Enter можно не отпускать.

После окончания игры результат сохраняется в файле. После того, как вы снова запустите приложение, например, на следующий день, игра продолжится с достигнутого в прошлый раз результата. Но для этого надо либо распаковать RAR-архив, либо не распаковывать этот Rar-архив, но после окончания игры нажать "Да", когда будет задан вопрос: "Некоторые извлечённые из Chance.rar файлы изменились, либо были созданы новые файлы. Хотите добавить их в архив?"

Скачать программу «Угадай число одно из десяти» с сохранением результата

Код программы «Угадай число одно из десяти» с сохранением результата.

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 ≤ xL,
минус бесконечность < y, z < плюс бесконечность.

Поверхность х=0 непроницаема.
На поверхности x=L происходит массообмен с окружающей средой, имеющей концентрацию диффундирующего вещества:
A*exp(-bt).
Начальная концентрация диффундирующего вещества внутри слоя постоянна и равна А0.
Коэффициент диффузии равен D.

Составление и решение дифференциального уравнения для двух задач.

Задача №1.



Скачать программу «Нахождение концентрации вещества при диффузии (№1)»

Код программы «Нахождение концентрации вещества при диффузии (№1)»

Задача №2.



Скачать программу «Нахождение концентрации вещества при диффузии(№2)»

Код программы «Нахождение концентрации вещества при диффузии (№2)»

Графики концентрации при диффузии.

Программа строит графики зависимости концентрации вещества от расстояния до непроницаемой перегородки и от времени. Всего имеется четыре графика: две зависимости от времени (для h конечного и бесконечного) и две зависимости от координаты (для h конечного и бесконечного).

Скачать программу «Графики зависимости концентрации вещества от координаты и от времени при диффузии»

Задача №3. Решение n(x,t) этого уравнения не является всюду неотрицательным:



Скачать программу «Нахождение концентрации вещества при диффузии(№3)

Вычисления числа Пи.

Пять алгоритмов вычисления числа Пи.

Код программы «Пять алгоритмов вычисления числа Пи».

Формулы пяти алгоритмов вычисления числа Пи.

Другие программы на Delphi.

Дана строка, состоящая из символов и пробелов. Группа символов, не разделенных пробелами, называется словом. Поменять местами слова минимальной и максимальной длины.

Скачать программу (169709 Байт)

Программы на Lazarus.

График гиперболического параболоида.

Программа построит проекцию трёхмерного графика гиперболического параболоида на плосоксть Oxyz

Cкачать программу (2772029 Байт) 2. Вычисление корня квадратного из числа Pi. Программа не пользуется функцией sqrt. В прилагаемом справочном пособии подробно доказывается, что корень квадратный из числа может быть найден при помощи реккурентной формулы:
Скачать программу (2850575 байт)

Генерация цветов. На главную страницу