Passer d'une boucle FOR à une boucle WHILE

[mohsenuss91]

Salut à tous !

J'ai un petit problème que je n'arrive pas à résoudre; j’espère que vous m’aiderez ou guiderez dans pour le bon chemin ..
Bon mon problème c'est changer les boucles d'un programme que je déjà fait (avec Turbo Pascal 7) de FOR en WHILE .. (en gardant la même fonction et résultat du programme).
Bon voilà le programme, j’attends vos réponses le plus tôt possible ...
MERCI d'avance

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program tabdever;
uses crt;
var a,b,c:boolean;
begin
clrscr;
writeln('+++++++++++++++++++++++++++++++++++++++++++++++');
writeln('+   a       b       c   not a or b and not c  +');
writeln('+++++++++++++++++++++++++++++++++++++++++++++++') ;
for a:=false to true do begin
                        for b:=false to true do begin
                                                for c:=false to true do begin
                      writeln('+',a:7,b:7,c:7,not a or b and not c:7,'                 +');
                                                                        end;
                                                end;
writeln('+++++++++++++++++++++++++++++++++++++++++++++++') ;                    end;
readln;
end.

[Paul TOTH]

ah tient c'est amusant comme cas de figure

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  i : Integer;
 a : Booelan;
begin
  i := 0;
  while i < 2 do
  begin
    a := odd(i);
    ...
    Inc(i);
  end;
end;

[mohsenuss91]

Envoyé par Paul TOTH

ah tient c'est amusant comme cas de figure

Code :

j'ai pas bien compris le truc , esque tu peux m'expliqué un peu !

[Paul TOTH]

Envoyé par mohsenuss91

j'ai pas bien compris le truc , esque tu peux m'expliqué un peu !

et bien tu veux passer d'une boucle FOR a deux états à un WHILE qui en nécessite 3, il faut donc passer par une autre variable qui servira à boucler.

si on déroule la boucle ça donne :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
 i := 0;
 { condition while OK 0 < 2 }
 a := odd(i); // FALSE, 0 est pair
 ...
  Inc(i); // i = 1
 { condition while OK 1 < 2 }
  a := odd(i); // TRUE, 1 est impair
 ...
  Inc(i); // i = 2
 { condition while PAS OK, fin de boucle }

tu peux maintenant imbriquer trois while sur le même modèle, ou encore chercher des conditions de répétition sur la seule variable i, mais ça demande un peu plus de réflexion.

voici une façon de mettre ces conditions en évidence :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
 a,b,c:boolean;
 i : integer;
begin
 writeln('+++++++++++++++++++++++++++++++++++++++++++++++');
 writeln('+   a       b       c   not a or b and not c  +');
 writeln('+++++++++++++++++++++++++++++++++++++++++++++++') ;
 i := 0;
 for a:=false to true do
 begin
   for b:=false to true do
   begin
     for c:=false to true do
     begin
       writeln(i:2,' +',a:7,b:7,c:7,not a or b and not c:7,'                 +');
       inc(i);
     end;
   end;
   writeln('+++++++++++++++++++++++++++++++++++++++++++++++') ;
 end;

que l'on pourra remplacer par ceci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
begin
  writeln('+++++++++++++++++++++++++++++++++++++++++++++++');
 writeln('+   a       b       c   not a or b and not c  +');
 writeln('+++++++++++++++++++++++++++++++++++++++++++++++') ;
 i := 0;
 while i < ??? do
 begin
   a := ???;
   b := ???;
   c := ???;
   writeln(i:2,' +',a:7,b:7,c:7,not a or b and not c:7,'                 +');
   if ??? then
     writeln('+++++++++++++++++++++++++++++++++++++++++++++++') ;
   inc(i);
 end;
end;

reste plus qu'à remplacer les "???" par des expressions pertinentes

[mohsenuss91]

on faite je connais pas le role de : odd -Inc
plus d'explication s.v.p
et si c'est possible de me donné un exemple complet sur mon ancien programme avec FOR et un nouveau avec WHILE

[M.Dlb]

Un peu d'effort. Tu as une documentation avec ton compilateur, il suffit de chercher dedans.

De plus, Paul t'a déjà donné tout ce qu'il fallait, alors à toi de réfléchir un peu. Nous ne te donnerons pas de solution définitive.

[mohsenuss91]

merci a tous