Supprimer des goto venant d'un programme Fortran

Bonjour à toutes et à tous,

J'ai récupéré un programme Fortran que j'ai converti en programme Pascal. Mais il comporte des goto que j'aimerais bien supprimer. J'ai du mal à voir comment.

Voilà, synoptiquement comment cela se présente :

Code:

---

1 2 3 4 5 6

if (m <> n) then goto 5; if (k = 3) then goto 6; Block d'instructions A; goto 6; 5: Block d'instruction B; 6: Block d'instructions C;

---

Si vous avez des idées ... je vous en remercie d'avance.

NOTA : j'aimerais par ailleurs ne pas avoir à faire de sous-routines car le nombre de variables à faire passer en aller retour est très grand.

Cordialement.

Pierre

La solution: Passer par des sous-routines :lol: C'st franchement le plus propre, même si c'est contraignant, par rapport au nombre de variables en paramètres.

Sinon, utiliser des "if then else" si les blocs ne sont pas appelés plusieurs fois.

Bonjour,

Dans l'exemple que tu donnes, le bloc C (6) peut être appelé 2x (si k <> 3).
L'emploi de sous-routines (comme on disait en Fortran) est obligatoire pour éviter de réécrire plusieurs fois le même code.
De plus, ton programme sera mieux structuré (important en cas d'update).

Si tu veux éviter le passage de variables en paramètres, tu peux déclarer les variables comme globales (publiques).
Le hic, c'est que dans ton code, les noms de variables sont très courts (une lettre) et peuvent prêter à confusion (ou pire) avec des variables locales.
Si tu ne veux pas renommer tes variables, voici une solution.
J'ai pris l'habitude de déclarer et d'initialiser les variables globales dans une unité spécifique (p.ex. "define.pas"). Bien sûr, je leur donne un nom facilement reconnaissable, mais dans ton cas, il te suffit d'ajouter "define." devant le nom de ta variable.

Code:

---

1 2 3 4 5 6 7

procedure Faire; var S: string; begin S:= 'Hello'; Define.S:= 'World'; end;

---

Thierry

Vite fait, tu fais un diagramme, ou tu résumes :

Code:

---

1 2 3

si (m<>n) alors B puis C puis fin si (k=3) alors C puis fin autre : A puis C puis fin

---

On en arrive à tester k≠3 plutôt que k=3.
Ce qui doit ressembler à :

Code:

---

1 2 3 4 5 6 7 8

if (m <> n) then code_B ; else if (k <> 3) then code_A ; /* end_if k */ /* end_if m */ code_C

---

[Edit] sinon (grillé !), comme les précédents, je suggère moi aussi l'utilisation d'une (ou +) structure(s) qui contient tout ton ensemble de données. Plus facile à passer en paramètre, et tu peux garder la logique de présentation par rapport au Fortran, pour relectures ultérieures.

Je vous remercie pour les solutions apportées. Celle que j'ai adoptée est proche de celle de Stellar7.

Garder la logique de présentation du Fortran ? A mon avis : aucun intérêt. Lorsqu'on est habitué aux structures et tous les "if then else", ces dernières sont bien plus claires.

Par contre, dans le cas présent, les blocs comportent peu de lignes, mais beaucoup de variables qui évoluent en même temps. On est au sein d'un algorithme de répétition et je ne pense pas que le passage de variables, en valeurs ou en adresses (pour les retours) aillent dans le sens de la rapidité, pas plus que de la clarté.

Il y a certainement des cas où les structures doivent s'imposer, mais ici, je n'en ai pas vu l'intérêt.

En tout cas, merci.

Cordialement.

Pierre