Discussion :

[wikers]

Bonjour, lorsque j'execute mon programme j'ai le message d'erreur "Débordement en virgule flottante". Voilà la partie du code qui pose probléme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function TForm1.isDrawable(a:Double;b:Double):Boolean;
var
z:complexe;
c:complexe;
l:Integer;
begin
  z.a := 0;
  z.b := 0;
  c.a := a;
  c.b := b;
  for l := 0 to 25 do begin
  z.a := (z.a * z.a)-(z.b * z.b);
  z.b :=2*(z.a * z.b);
  z.a := z.a + c.a;
  z.b := z.b + c.b;
    if ( z.a*z.a + z.b*z.b)>4 then begin
      Result := False;
    end
    else begin
    Result := True;
    end;
  end;
//  Result := True;
end;

Et voilà la partie du code qui utilise cette fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  for i:= 0 to iter do begin
      for j:=0 to iter do begin
        if isDrawable(i/iter,j/iter)=True then begin
        Draw(i,j);
        end;
      end;
  end;

La variable de type complexe est une structure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 type
  complexe = record
  a:Double;
  b:Double;
 end;

J'ai essayer de mettre Extended à la place de Double mais sa ne marche pas non plus.
Merci pour votre aide

[blaiseac]

Salut

A quelle ligne ca plante?

Ca permettrait de cerner plus rapidement le probleme...

[Soulama]

Salut,
si je ne me trompe pas, faut reserver de la memoire pour
ton Type complex: New(complexe)

[blaiseac]

New(complexe) ne s'applique-t-il pas uniquement pour les pointeurs???
et complexe n'est pas un type de pointeur non?

[Soulama]

Tu esseye de deboger(Pas a Pas), et la tu peux voir si vraiment ya un debordement?!!!

[wikers]

Salut

A quelle ligne ca plante?

Ca permettrait de cerner plus rapidement le probleme...

A la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  z.a := (z.a * z.a)-(z.b * z.b);

[Soulama]

De toute les facons, je trouve bizare que tu na pas fais de Break dans ta fonction: isDrawable

[wikers]

Merci pour le Break !! Depuis que je l'ai rajouté sa marche.