De plus...

[thedoorp]

Merci à vous, une autre pêtite question : lorsque j'ajoute un eutre donnée :

if in = "cat"
print("chat")

par exemple, la machine me dit que la ligne :

until quit = 1

est fausse. POURQUOI ???

[nico]

Non il ne te dit pas que cette ligne est fausse, mais qu'il attend une fin de condition à la ligne spécifiée, en l'occurence EndIf.

[comtois]

il manque surement un endif dans ton code ?

Code : Tout sélectionner

if in = "cat" 
   print("chat") 
endif

Sinon , voila un autre exemple pour aller un peu plus loin .

Code : Tout sélectionner

OpenConsole() 
;création de deux tableaux
#Nbmot=3
Dim anglais.s(#Nbmot)
Dim francais.s(#Nbmot)

;lecture des données
For a=1 To #Nbmot
   Read anglais(a)
   Read francais(a)
Next a  

Repeat 
   in.s = Input() 
   ClearConsole()  
   ;cherche si le mot saisi existe dans le tableau anglais()
   For a=1 To #Nbmot
      If in = anglais(a) 
         Print(francais(a)) 
         in=""
         Break
      EndIf 
   Next a 
   If a>#Nbmot And in<>""
      PrintN("Mot inconnu ,Essaye encore !")
      Print("[Entree] pour continuer")
   EndIf   
Until quit = 1 

DataSection
Data.s "dog","chien"
Data.s "cat","chat"
Data.s "horse","cheval"
EndDataSection