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

Программа сохранит в файле результаты пробега дистанции 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. Задача об обходе конём всех клеток шахматной доски по одному разу.

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

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

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

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

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. Процент простых, совершенных, несовершенных и сверхсовершенных чисел.

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

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

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

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

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

2. «Максимальный выигрыш в игре Угадай число одно из десяти».

3. Игра "Угадай число одно из двух".

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

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

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

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

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

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

7. Игра «Жизнь".

8. Случайное число.

Решение дифференциальных уравнений.

Нахождение концентрации вещества при диффузии.

Задача №1.

Задача №2.

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

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

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

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

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

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