Discussion :

[zazaraignée]

Bonjour

Le principal est dans le titre.

La source est dans http://nono40.developpez.com/sources/source0016/

La raison de cette question: Je suis bloquée...

Je dois expliquer le fonctionnement de ce code source pour un exercice que je dois remettre vendredi... Tant mieux si vous pouvez m'aider, autrement je m'organiserai. Aucune pression sur vous mes amis: après tout c'est mon problème!

J'ai l'habitude de voir une condition clairement définie du genre

Code :

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

while (toto <= titi) do

Alors comprenez ma surprise lorsque j'ai vu ceci

Code :

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

while true do

comment sait-on qu'un jour la condition est fausse?

[LadyWasky]

1) Effectivement, c'est bien une boucle sans fin
2) Mais Nono40 à rajouté une instruction particulière dans la boucle : Exit;
3) Il existe une deuxième instruction de ce genre, qui s'appelle Break;

4) Exit et Break sont des sortes de Goto "déguisés" (Goto existe aussi en Delphi) que tu n'apprendras pas en cours d'informatique cars jugés non-académiques.

[Magnus]

Tu ne sors d'une instruction de ce type que lorsqu'une instruction contenue de ce bloc fait une sortie explicite du style Exit (l'équivalent de break en C/C++/Java par exemple) et te renvoie alors à l'instruction juste qui suit ce bloc :

Code :

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

1
2
3
4
5
6
...
while true do
begin
...
end; // while
...; // on arrive ici par un Exit (ou autre ?)

[Rayek]

Code :

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

while (toto <= titi) do

Alors comprenez ma surprise lorsque j'ai vu ceci

Code :

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

while true do

comment sait-on qu'un jour la condition est fausse?

Jamais, ceci est une boucle infinie, pour sortir d'un boucle de ce style, seul les commandes Exit, Application.Terminate, etc ... te permettront de la faire.

[Rayek]

Tu ne sors d'une instruction de ce type que lorsqu'une instruction contenue de ce bloc fait une sortie explicite du style Exit (l'équivalent de break en C/C++/Java par exemple) et te renvoie alors à l'instruction juste qui suit ce bloc :

Code :

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

1
2
3
4
5
6
...
while true do
begin
...
end; // while
...; // on arrive ici par un Exit (ou autre ?)

Si je me souviens bien , Exit fait sortir completement de la fonction sans réalisé la suite du code contrairement à break qui lui permet de faire la suite du code

Exemple :

Code :

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

1
2
3
4
5
6
7
8
 
function toto : boolean;
begin
  Result := True;
  while true do
    exit;
  Result := False;
end;

Resultat de toto = true

Code :

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

1
2
3
4
5
6
7
 
function toto : boolean;
begin
  Result := True;
  while true do
    break;
  Result := False;

Resultat de toto : False

[edit] je confirme le fonctionnement de break et exit que j'ai montré plus haut je viens de tester[/edit]

[e-ric]

Salut

C'est un peu déroutant pour un pur pascalien mais c'est assez fréquent car cela peut aboutir à écrire moins de code, supposons que l'on ait un condition de sortie C et deux suites d'instructions A et B, le code suivant :

Code :

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

1
2
3
4
5
6
7
 
A;
while not C do
begin
  B;
  A;
end;

sera avantageusement remplacé par celui-ci (en terme de concision d'écriture et aussi de maintenance) :

Code :

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

1
2
3
4
5
6
7
 
while not C do
begin
  A;
  if C then break;
  B;
end;

Cdlt

e-ric

[zazaraignée]

Merci

Je ne m'attendais pas à des réponses si rapides. Je reviens du forum VB où je traîne la plupart du temps.

Je regarde la source de plus près pour vérifier le commentaire de waskol et je prédis qu'avant pas longtemps ce sera résolu

@+

Edit : Effectivement, y'a un Exit.
Merci waskol!

[LadyWasky]

Voici le code de Nono présenté de façon plus conventionnelle :

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 Partition(m,n:Integer):Integer;
  Var i,j,v:Integer;
        FinTri:boolean;
  Begin
    v:=Tab[m];
    i:=m-1;
    j:=n+1;
    FinTri:=false;
    While Not FinTri Do
    Begin
      Repeat Dec(j) Until Tab[j]<=v;
      Repeat Inc(i) Until Tab[i]>=v;
      If (i<j)
      Then Begin
        t:=Tab[i];
        Tab[i]:=Tab[j];
        Tab[j]:=t;
      End
      Else Begin
        Result:=j;
        FinTri:=True;
      End;
    End;
  End;

[zazaraignée]

Salut

Merci encore

Tu permets que je propose ton code comme alternative à mon prof, en spécifiant la source bien sur... de toute façon je viens de lui montrer ta réponse... il est juste derrière moi! Bon évidemment, j'aurais probablement trouvé toute seule, mais j'aime partager, la gloire aussi! 8)



En passant, mon prof dit que lorsqu'il voit du code nécéssitant l'utilisation d'un break ou d'un exit, il a mal au yeux! Alors, imagine un goto!

[LadyWasky]

Pas de problème, il est OpenSource

[zazaraignée]

Merci encore!

[LadyWasky]

En passant, mon prof dit que lorsqu'il voit du code nécéssitant l'utilisation d'un break ou d'un exit, il a mal au yeux! Alors, imagine un goto!

Moi non, j'ai fait mes premiers pas en programmation sur un zx81, puis Oric Atmos : Le BASIC sans goto était alors inconcevable !

Mais je le comprend...

Cependant un petit :

Code :

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

1
2
3
4
5
 
begin
  if condition then Exit;
  //puis 50 lignes de code
end;

est parfois plus explicite qu'un super bloc begin..end ou la lecture du listing se trouve alourdi et fait effectivement mal aux yeux :

Code :

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

1
2
3
4
5
6
begin
  if not condition then
  begin
    //puis 50 lignes de code
  end;
end;

Edit : J'ai gardé la source d'un programme de MasterMind en Pascal, ou l'utilisation d'un Exit était réellement indispensable pour s'en sortir. (j'avais eu comme note 19,99/20 à cause du exit ). Si ton Prof est intéressé, je peux essayé de le retrouver.
Le problème venait du fait que mon logiciel proposait les options suivantes :
- avec/sans répétition de couleur pour la construction du code
- avec placement sur les bonnes case ou non des jetons de notation noirs et blancs.

Si je me souviens bien, le exit était placé dans la construction de la note (jetons blancs et noirs), lorsque les répétitions de couleur étaient autoriséées dans la combinaison.


Sinon, c'est le seul cas d'absolue nécessité que j'ai rencontré en 20 ans de développement !

[sjrd]

Petit ajout : bien que je sois pour les break, exit, voire même goto quand ils se justifient, je présise que toute situation avec goto doit normalement pouvoir être transformée en une situation à boucle (avec éventuellement des break et/ou exit et une lecture difficile et peu logique) et que toute situation avec un break ou un exit peut être remplacée par le déclenchement d'une exception !

[e-ric]

re-salut

Je confirme la pensée de sjrd, en ce qui concerne l'utilisation des exit et break, pas de quoi se dresser les cheveux sur la tête, il n'y a qu'à voir certaines portions de la VCL pour se rendre compte que cela ne nuit ni à la qualité ni à la lisibilité du code bien au contraire. Mais c'est comme tout l'abus est nuisible, il faut savoir doser et surtout justifier intelligement les constructions employées.

Je pense que ton professeur formalise un peu trop. Il faut rester pragmatique, les caractéristiques de qualité et d'efficacité du code ne se limitent pas à une simple approche syntaxique.

cdlt

e-ric

[Nono40]

Voici le code de Nono présenté de façon plus conventionnelle :
[...]

Oui, effectivement. Je me souviens avoir adapter un code en C qui était avec ce style de boucle "infinie". Sauf qu'en C Return(valeur) sort de la fonction, la traduction la plus proche est donc bien Result:=Valuer;Exit;

Sur un code fait maison, j'aurais sans doute pris la méthode de "fintri".

Notez que Exit ne déroge pas aux code de finalization (contrairement au goto qui fait n'importe quoi) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Begin
  ShowMessage('Je passe ici');
  Try
    ShowMessage('Je passe ici');
    Exit;
    ShowMessage('Je ne passe pas ici');
  Finally
    ShowMessage('Je passe ici malgrès le exit');
  End; 
  ShowMessage('Je ne passe pas ici à cause du exit');
End;

[zazaraignée]

Salut l'auteur du code

T'en fais pas. Ton code a tout de même inpiré une exercice académique.

Je conviens avec waskol qu'avec les anciennes techniques de programmation, Basic entre autres, pour s'en sortir il fallait tout un tas de goto et gosub, de exit et de break et même des return.

Mais les langages ont évolués... et heureusement pour plus de clarté. Je ne crois pas briller par une excès d'intelligence. Alors j'aime le code clair, très commenté parce qu'après, quand j'y reviens, je ne veux pas passer des heures à décortiquer ce que j'avais programmé quelques mois, ou années plus tôt.

Je me demandais, à propos de l'imbrication des procédures et fonction de ton code, ça vient de l'adaptation de ta source en C?

[e-ric]

Alors j'aime le code clair, très commenté parce qu'après, quand j'y reviens, je ne veux pas passer des heures à décortiquer ce que j'avais programmé quelques mois, ou années plus tôt.

C'est un état d'esprit louable qui ferait bien d'inspirer de nombreux développeurs (plus partisans du "après moi le déluge"), parole de développeur ayant fait pas mal de maintenance.

cdlt

e-ric

[Nono40]

Je me demandais, à propos de l'imbrication des procédures et fonction de ton code, ça vient de l'adaptation de ta source en C?

Je ne me souvient plus si le code en C était aussi avec des sous-procédures. De toute façon c'est mieux ainsi dans tous les cas : les procédures Partition et FaitTri n'ont pas à être appelées en dehors de la procédure. En les disposant ainsi leur visibilité est limitée au coprs de la procédure FaitTri.