Floating point overflow Опции

[nigvil]

Добрый день. Такая вот проблема при написании программы в Borland Pascal 7.0.
Необходимо решить дифференциальное уравнение и затем вывести решение в виде графика. Однако При запуске программы появляется такая ошибка: "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.




Подскажите, каковы пути решения проблемы.