ошибка Опции

[Yurka]

выдаёт программа ошибку
invalid floating point operation

Код

Program nomer10;
  uses crt;
      Type
       mas=array [1..5,1..5] of real;
       mas1=array [1..5] of real;

     Procedure Matrix( var a:mas);
     var
     i,j,y:integer;

      Begin
       for i:=1 to 5 do
       begin
       for j:=1 to 5 do
        begin
    a[i,j]:=exp((-i+1)*ln(2))*(j-3.8)*(j*abs(2-3/j));
           write('a[',i,',',j,']=',a[i,j]:2:2,'   ');
         end;
         writeln;
       end;
      End;

   Procedure Vector(var a:mas; var x:mas1);

var

 i, j: integer;

 Dv: real;

begin

 Dv:=1;
 for i:=1 to 5 do

 begin

    for j:=1 to 5 do
     begin
     if a[i,j]<0 then Dv:=Dv*a[i,j];
     x[i]:=Dv;
     end;
 end;

 for i := 1 to 5 do
   writeln('x[',i,']=',x[i]);

end;


  Function G (x:mas1):real;
 var
        i,k:integer;
        S,d:real;
        Begin
        d:=1;
        S:=0;
        for i:=1 to 5 do
        begin
           begin
             for k:=1 to i do
      d:=d*x[k];
    end;
   S:=S+(sqr(x[i])+exp((1/3)*ln(d)));{вот здесь ошибка}
        end;
        G:=S;
        End;


         VAR
         b:mas;
         x1:mas1;
         i,j:integer;

         BEGIN
         clrscr;
         matrix(b);
         writeln;
         vector(b,x1);
         writeln;
         writeln('G=',G(x1):2:4);
         readkey;
         END.

пробовал менять тип на extended не помогает... в чём может быть проблема?

Сообщение отредактировано: volvo - 9.12.2005 16:14

[volvo]

Ну, а это уже, извините, переполнение... У тебя просто каждый x[k] очень большой, и результат перемножения просто не помещается в D...

debug >> x[k] 1.3540954470781296E+0023
debug >> d 2.570248833416124E+070
debug >> x[k] 2.8035390563460222E+0024
debug >> d 3.480362243186647E+093
debug >> x[k] 7.4293784993169591E+0025
debug >> d 4.878665739502909E+117
debug >> x[k] 1.3540954470781296E+0023
debug >> d 1.208181811680573E+143
debug >> x[k] 2.8035390563460222E+0024
debug >> d 1.635993490439270E+166
debug >> x[k] 7.4293784993169591E+0025
debug >> d 2.293285823187173E+190
debug >> x[k] 2.4074346058293388E+0027
debug >> d 5.679229462525060E+215
debug >> x[k] 1.3540954470781296E+0023
debug >> d 3.418093385632096E+242
debug >> x[k] 2.8035390563460222E+0024
debug >> d 4.628424691172291E+265
debug >> x[k] 7.4293784993169591E+0025
debug >> d 6.487984695528897E+289
Runtime error 205 at $00401411

[Yurka]

Ну, а это уже, извините, переполнение... У тебя просто каждый x[k] очень большой, и результат перемножения просто не помещается в D...

спасибо дружище!!!
я поменял на своё усмотрение

 d:=d*(x[k]/(k+x[k]));

теперь нормально...
но как можно такие формулы давать? в задании...