Problème d'algorithmique pascal

cs_manudel Messages postés 63 Date d'inscription lundi 29 avril 2002 Statut Membre Dernière intervention 7 mars 2005 - 25 sept. 2002 à 19:24
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 25 sept. 2002 à 19:56
J'ai une condition en "if".
Si contrat = 0 alors je dois boucler 2 fois sur ma variable i
Sinon je dois boucler une seule fois sur ma variable i.

Le problème est que je ne veux pas répéter tout le code.

Quelle solution pouvez-vous me proposer ?
Ma méthode est sûrement mauvaise pour résoudre ce problème,
mais à quel niveau ?

if contrat = 0 then
begin
for i := 0 to 1 do // 2 exemplaires
begin
// traitements

1 réponse

cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 2
25 sept. 2002 à 19:56
Tss tss tss... c'est tout bète :

If Contrat=0 Then Nombre=2 Else Nombre=1
For i:=0 To Nombre-1 Do
Begin
// Traitement
End;

--- :sleepy) Nono du Moulin :sleepy) ---
0
Rejoignez-nous