Необходимо решить дифференциальное уравнение и затем вывести решение в виде графика. Однако При запуске программы появляется такая ошибка: "Floating point overflow". Я догадываюсь, что это что-то про плавающую запятую и что, видимо, там перевес или типо этого но как устранить это - я не знаю. Ниже привожу выдержку из программы:
begin
begin
f1:=(3333333-(33333333*Y[2]*0.13))*0.13;
PY[1]:=Y[2];
PY[2]:=(((f1)-300000*0.13)/J);
end;
if f1>300000*0.13 then f1:=300000*0.13;
end;
Причем ругается на f1. Пробывал уменьшать само f1 умноженнием не на 0.13, а на 0.013. Все хорошо. Только вот мне нужно именно такое значение функции при таком большом значении аргумента
И еще такой вопрос в тему: есть ли возможность в паскале копировать графики? мне необходимо как-то их вытянуть в документ Word'a.
Подскажите, каковы пути решения проблемы.