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 : Sélectionner tout - Visualiser dans une fenêtre à part
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