Discussion :

[Cybberdupont]

Bonjour à tous,

Je joins un petit code censé simuler un arc électrique.
Le problème est qu'il plante souvent si l'on maintient une touche.
Je suppose que le coupable est "randomize".
Si vous pouviez m'en dire plus...
Merci.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
program Decharge_electrique;
uses crt,graph;
 
const c=180/pi;
      dl=3;
      eps=5;
 
Function Atn(x:real):real;
Var ordre:integer; S,c:real;
Begin
  ordre:=21; {Imp‚rativement impair}
  c:=x*x;
  S:=1/ordre;
  While ordre>1 do Begin
    ordre:=ordre-2;
    S:=-c*S+1/ordre;
  end;
  Atn:=x*S;
end;
 
Function Arctan(x:real):real;
Var y:real;
begin
  If abs(x)<1 then arctan:=atn(x)
    else if x>0 then begin
      y:=(x-1)/(x+1);
      Arctan:=pi/4+Atn(y);
    end
      else begin
        y:=(-x-1)/(-x+1);
        Arctan:=-pi/4-Atn(y);
      end;
end;
 
Function Puissance(x:real;n:integer):real;
Begin
  If n=0 then Puissance:=1
    else if odd(n) then Puissance:=x*Puissance(x,n-1)
      else Puissance:=sqr(Puissance(x,n div 2));
end;
 
var ch:char;
     x1,y1,x2,y2,x,y,gd,gm,x01,x02,y01,y02:integer;
     distance,angle:real;
begin
  gd:=detect;
  initgraph(gd,gm,'c');
 
  randomize;
  x01:=5+random(50);y01:=random(479);
  x02:=639-x01;y02:=random(479);
  line(x01,y01,x01,y01);line(x02,y02,x02,y02);
  while not (ch='s') do begin
   x1:=x01;y1:=y01;
   x2:=x02;y2:=y02;
   randomize;
   distance:=sqrt(abs(x2-x1)+abs(y2-y1));
   while distance>eps do
     begin
       if x1=x2 then exit;
       angle:=round(arctan((y2-y1)/(x2-x1))*c)+random(220)-90;
       x:=x1+round(dl*cos(angle/c));
       y:=y1+round(dl*sin(angle/c));
       line(x1,y1,x,y);
       x1:=x;
       y1:=y;
       distance:=sqrt(abs(x2-x1)+abs(y2-y1));
     end;
   ch:=readkey;
  end;
 
  closegraph;
end.

[darrylsite]

Je crois plutot que le probleme vient du fait que tu as mis un "exit" dans la boucle while située dans le programme principal ce qui provoque l' arret du programme.
Tu devrais plutot mettre "break" qui sert à arreter une boucle. Consulte l' aide pour plus de detail sur les fonction :exit - break - halt.

[krachik]

Bonjour
je rajoute à ce que darrylsite a déja dit qu'il faut faire une indentation régulière de ton code.En plus dans le code

Code :

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

while not (ch='s') do begin

avant cette boucle ta variable ch n'est pas initialisé

Cordialement

[droggo]

Jai,

A quoi j'ajoute que Randomize s'utilise une fois et une seule dans le programme, le plus souvent au début du programme principal.

Et jamais dans une boucle.

Et petit leitmotiv au passage : pourquoi une fonction récursive pour Puissance ?
On est typiquement dans un cas où c'est inutile, et donc nuisible.

[darrylsite]

Et petit leitmotiv au passage : pourquoi une fonction récursive pour Puissance ?
On est typiquement dans un cas où c'est inutile, et donc nuisible.

Je vois que tu detestes toujours la reccursivité

[droggo]

Fai,

Je vois que tu detestes toujours la reccursivité

Je ne déteste pas la récursivité, mais il est inutile de l'utiliser là où elle ne se présente pas de manière "naturelle", ce qui est le cas pour cette fonction Puissance ?

Pourquoi inutile ?

Parce que ça consomme des ressources et de la puissance de calcul pour rien, sans pour autant améliorer la lisibilité du code, bien au contraire, pour la majorité.