Как преобразовать Integer в Real Опции

[Xelix]

Код

Program LR10;
Uses CRT,graph;
Procedure GrOnScr;
Var
  y,x:real;
  expo:real;
  i,i2:integer;
  yscr:integer;
  dr,rm:integer;
Begin
   dr:=detect;
   InitGraph(dr,rm,'D:\TP7\BIN');
   MoveTo(0,240);
   LineTo(640,240);
   Moveto(320,0);
   LineTo(320,480);
   MoveTo(0,240);
   SetLineStyle(0,Solidln,1);
   yscr:=0;
   i:=1;
   Repeat
      [b]yscr:=Round((7*sqr(i)*(exp(-5*i)))*480/640+240);[/b]
         If i<=640 Then
            LineTo(i,yscr);
         PutPixel(Random(640),Random(480),Random(5));
         Delay(500);
         PutPixel(Random(640),Random(480),Random(5));
         i:=i+1;
   Until keypressed;
End;
Begin
   GrOnScr;
   ReadKey;
End.

В выделенной строке компилятор выдаёт ошибку floating point overflow. Что делать?

[volvo]

НО тут же подэкспоненциальное выражение максимум выходит -3200!

Правда? А если подумать? И сделать вот так, например:

Program LR10;
Uses CRT,graph;
Procedure GrOnScr;
Var
  y,x:real;
  expo:real;
  i,i2:integer;
  yscr:integer;
Begin
   yscr:=0;
   i:=1;
   Repeat
     writeln('i = ', i);
     yscr:=Round((7*sqr(i)*(exp(-5*i)))*480/640+240);
         If i<=640 Then
            writeln('lineto', i, ' ', yscr);
         i:=i+1;
   Until keypressed;
End;
Begin
   GrOnScr;
   ReadKey;
End.

, то при каком значении i программа вылетит? У меня получилось 2272!!! А значит, под экспонентой не -3200, а -11360... А теперь - небольшой эксперимент:

writeln(exp(-5 * 2271));

и смотрим на результат:

3.85618613316889E-4932

Это при граничном значении, равном 3.4e-4932 для типа Extended!!! И что произойдет, если я еще чуть-чуть увеличу выражение под экспонентой? То, что и произошло у тебя, FP Overflow... Возражения?

А если же в этой строке убрать минус перед 5

То значение, которое должно получиться в результате - не поместится в отводимое под тип место, и ... Результат ты видел ...