question!!!! - Programmation
Marsh Posté le 03-01-2002 à 16:39:56
| 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?    
 
Marsh Posté le 03-01-2002 à 16:40:20
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) ;
 ; readln(U) ; 
    if U mod 3 = 0 then V[I] := true 
    else V [I] := false ; 
    end ; 
END. 
 
> à rien comme ton proG 
Marsh Posté le 03-01-2002 à 16:50:39
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 
  
   
 
Marsh Posté le 03-01-2002 à 16:53:27
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) ;
 ; readln(U) ;  
    V[I] := U mod 3  
    end ;  
END. 
Marsh Posté le 03-01-2002 à 16:57:34
| 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 
  
 
Marsh Posté le 03-01-2002 à 17:00:45
Ah oki, scuz...   
 
Marsh Posté le 03-01-2002 à 17:05:25
Reply
Marsh Posté le 03-01-2002 à 16:36:21
program Test ; ; readln(U) ;
 ; readln(U) ; 
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 : '
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!!!
---------------
/!\ FORUM KILEBIEN /!\