Программа ищет количество тепла на единичном сопротивлении, используя метод Рунге-Кутта 2 порядка и метод Симпсона.

Листинг программы - во вложенном файле (т.к. подпрограммой DrawWindow используются специфичные для программ DOS символы псевдографики).

 runge2.pas (4 Кб)

Пример вывода программы (файл Var1.txt)

Y(  0.00)=    0.20000
Y(  0.25)=    0.39974
Y(  0.50)=    0.62141
Y(  0.75)=    0.90750
Y(  1.00)=    1.30456
Количество тепла =    0.871834

гостевая; E-mail