13 исходников программ на TorboPascal

Что-то я совсем перестал выкладывать на сайте исходники и решил исправлять потихоньку этот пробел.
В данной статье я выкладываю исходников 13 программ написанных на языке TorboPascal

В статье про программы на TurboPascal будут работы:

1. Произведение кратных чисел
2. Программа вычисляющая сколько дней в месяце
3. Вычисления с окружностью (кругом)

4 программы на Turbo Pascal

1. Даны x,y,z:real; Вычислить a,b:real;  
    Если a:=(1+y)*((x+(y/f))/(exp(-x-2)+(1/f)))
    b:=(1+cos(y-2))/(((sqr(x)*sqr(x))/2)+(sqr(sin(z))))
2. Даны числа x,y,z:real; Вычислить max(x+y+z, xyz)
3. Даны k:integer; x:real. Вычислить a:=a*i; x:=x*(1+sin(k*x)/a)
4. Пусть Yo = 0; Yk= (Y[k-1]+1)/(Y[k-1]+2) k= 1,2,…
Дано действительное E>0. Найти первый член Yn для которого выполнено

Метод статистического моделирования

В данной работе выполнялась статистическая оценка площади фигуры, ограниченная осями абцис и ординат для функции sin(x). В ходе работы было проведено 1000 итераций, из них в область предполагаемой площади функции попало лишь 0.050 процента взятых точек в интервале от 0 до 1. Так как точки при каждой итерации брались произвольные, иногда повторялись или были в очень маленьком диапазоне, большинство из них не попали в предполагаемую площадь фигуры, о чем свидетельствует математическое ожидание площади.
Для проведения более точных расчетов, необходимо увеличить число итераций, либо брать точки в определенном порядке, с определенным шагом.

Метод статистического моделирования систем

Статистического моделирования систем на машинах.
Общая характеристика метода статистического моделирования систем.

В данной лабораторной работе необходимо найти оценку математического ожидания M[y], т.е. выходные характеристики как среднее арифметическое по следующей формуле, исходя из метода статистического моделирования систем:
N
Y = (1/N) ∑ yi
i = 1
Начальные данные:

ПРОГРАММНАЯ РЕАЛИЗАЦИЯ СТАТИСТИЧЕСКОГО МОДЕЛИРОВАНИЯ СИСТЕМ (язык TURBO PASCAL7.0)
uses crt;
const n=50...

Методы оптимизации в моделировании. Градиентный метод оптимизации

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

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

Вариант 6 градиентного метода оптимизации
f = 4x1 +6x2 – x12 – 13
x0 = (1;2)

Код прграммы градиентный метод оптимизации

База данных на языке Turbo Pascal - Деканат

(Структура базы данных) Деканат - Декан – кафедра – фамилия – лекции – практические задания

Содержание.
1. ИНДИВИДУАЛЬНОЕ ЗАДАНИЕ - ДЕКАНАТ 3
2. ВВЕДЕНИЕ 4
3.1. СТРУКТУРА МОДУЛЕЙ БАЗЫ ДАННЫХ ДЕКАНАТ 4
3.2. ЗАГОЛОВОК МОДУЛЯ И СВЯЗЬ МОДУЛЕЙ ДРУГ С ДРУГОМ 4
3.3. ИНТЕРФЕЙСНАЯ ЧАСТЬ БАЗЫ ДАННЫХ 4

Сборник из 57 программ по Turbo Pascal

печать, подсчет, поиск, сортировка, перевод, обработка, моделирование, бэк—трекинг

В архиве 57 программ написанных на языке Turbo Pascal
Содердание...

sample01.pas - помощь по Паскалю
sample02.pas - подсчет различных букв в слове
sample03.pas - перестановка букв в слове (циклический сдвиг вправо)
sample04.pas - определения, является ли слово "перевертышем"
sample05.pas - печать всех делителей натурального числа A
sample06.pas - печать всех совершенных чисел до 10000
sample07.pas - печать всех простых чисел до 500
sample08.pas - подсчет суммы цифр числа
sample09.pas - подсчет суммы элементов одномерного массива
sample10.pas - подсчет суммы элементов двухмерного массива ...