program Test ;
var i, u : integer ;  
    v : array[1:3] of boolean ;
    b : boolean ;
BEGIN
FOR I := 1 to 3 do
     begin
     why('Entree la valeur de U : ' ; readln(U) ;
     if U mod 3 = 0 then V[I] := true
     else V [I] := false ;
     end ;
END.
 
 
 
 
 
a l exe de ce prog lorsque l on montre succesivement les valeur 25 12 et 16 qui a t il ds grand V?
a quoi sert la variable grand B?
 
 
avec delphi!!!

 
Certes.

Oh my god  

25 : False
12 : True
16 : False

Et B apparemment ne sert à rien.

Topacdebiere a écrit a écrit : program Test ; var i, u : integer ;       v : array[1:3] of boolean ;     b : boolean ; BEGIN FOR I := 1 to 3 do      begin      why('Entree la valeur de U : ' ; readln(U) ;      if U mod 3 = 0 then V[I] := true      else V [I] := false ;      end ; END.           a l exe de ce prog lorsque l on montre succesivement les valeur 25 12 et 16 qui a t il ds grand V? a quoi sert la variable grand B?     avec delphi!!!

 
tu es fatigué toa hein?  

program Test ;
var i, u : integer ;  
   v : array[1:3] of boolean ;
   b : boolean ;
BEGIN
FOR I := 1 to 3 do
    begin
    why('Entree la valeur de U : ' ; readln(U) ;
    if U mod 3 = 0 then V[I] := true
    else V [I] := false ;
    end ;
END.
 
> à rien comme ton proG

en faite des que c divisible par 3 ba c false  
et des que ca n est pas divisble pas 3 c juste
 
ok
 
 
JE vous remerci de votre aide a tous
   

v(1)= false
v(2)= true
v(3)= false
 
et b ne sert à rien... de plus essaye ça et le résultat doit être le même tout en étant plus simple...
 
program Test ;  
var i, u : integer ;  
   v : array[1:3] of boolean ;  
BEGIN  
FOR I := 1 to 3 do  
    begin  
    why('Entree la valeur de U : ' ; readln(U) ;  
    V[I] := U mod 3  
    end ;  
END.

Fredaxe a écrit a écrit : v(1)= false v(2)= true v(3)= false   et b ne sert à rien... de plus essaye ça et le résultat doit être le même tout en étant plus simple...   program Test ;   var i, u : integer ;      v : array[1:3] of boolean ;   BEGIN   FOR I := 1 to 3 do       begin         why('Entree la valeur de U : ' ; readln(U) ;       V[I] := U mod 3       end ;   END.

 
 
OUAIS mais en faite c une probleme qu il te pose et fau le resoudre donc peu pas changer le prog
 

Ah oki, scuz...  

Fredaxe a écrit a écrit : Ah oki, scuz...

 
merci bcp