L’énigme d’Einstein.

rem ============================================================================
rem                         Enigme d’Einstein
rem ============================================================================
rem Enoncé :
rem On a 5 maisons alignées de couleurs différentes.
rem Dans chaque maison vit une personne de nationalité différente.
rem Chaque personne boit une boisson différente.
rem Chaque personne fume un type de cigarette différent.
rem Chaque personne élève un animal différent.
rem Question : QUI ELEVE DES POISSONS ROUGES ?
rem ============================================================================
rem Indices :
rem  1. L’Anglais vit dans la maison rouge.              
rem  2. Le Suédois élève des chiens.
rem  3. Le Danois boit du thé.
rem  4. La maison verte est juste à gauche de la maison blanche.
rem  5. Le propriétaire de la maison verte boit du café.
rem  6. Le fumeur de Pall Mall élève des oiseaux.
rem  7. Le propriétaire de la maison jaune fume des Dunhills.
rem  8. L’homme qui vit dans la maison du centre boit du lait.
rem  9. Le Norvégien vit dans la première maison.
rem 10. L’homme qui fume des Blends vit à côté de celui qui élève des chats.
rem 11. L’homme qui élève des chevaux vit à côté du fumeur de Dunhills.
rem 12. L’homme qui fume des Blue Masters boit de la bière.
rem 13. L’Allemand fume des Prince.
rem 14. Le Norvégien vit à côté de la maison bleue.
rem 15. L’homme qui fume des Blends a un voisin qui boit de l’eau.
rem ============================================================================

rem ============================================================================
rem                         Enigme d’Einstein
rem ============================================================================
rem Enoncé :
rem On a 5 maisons alignées de couleurs différentes.
rem Dans chaque maison vit une personne de nationalité différente.
rem Chaque personne boit une boisson différente.
rem Chaque personne fume un type de cigarette différent.
rem Chaque personne élève un animal différent.
rem Question : QUI ELEVE DES POISSONS ROUGES ?
rem ============================================================================
rem Indices :
rem  1. L’Anglais vit dans la maison rouge.              
rem  2. Le Suédois élève des chiens.
rem  3. Le Danois boit du thé.
rem  4. La maison verte est juste à gauche de la maison blanche.
rem  5. Le propriétaire de la maison verte boit du café.
rem  6. Le fumeur de Pall Mall élève des oiseaux.
rem  7. Le propriétaire de la maison jaune fume des Dunhills.
rem  8. L’homme qui vit dans la maison du centre boit du lait.
rem  9. Le Norvégien vit dans la première maison.
rem 10. L’homme qui fume des Blends vit à côté de celui qui élève des chats.
rem 11. L’homme qui élève des chevaux vit à côté du fumeur de Dunhills.
rem 12. L’homme qui fume des Blue Masters boit de la bière.
rem 13. L’Allemand fume des Prince.
rem 14. Le Norvégien vit à côté de la maison bleue.
rem 15. L’homme qui fume des Blends a un voisin qui boit de l’eau.
rem ============================================================================

width 0,700

grid 1
width 1,600
height 1,200
grid_column 1,6
grid_row 1,6
grid_write 1,1,2,"Couleur"
grid_write 1,1,3,"Nationalité"
grid_write 1,1,4,"Boisson"
grid_write 1,1,5,"Tabac"
grid_write 1,1,6,"Animal"

grid_write 1,2,1,"1 ère maison"
grid_write 1,3,1,"2 ème maison"
grid_write 1,4,1,"3 ème maison"
grid_write 1,5,1,"4 ème maison"
grid_write 1,6,1,"5 ème maison"

alpha 2
top 2,250
left 2,30
font_size 2,12
pause 2000

caption 2, "indice 8. L’homme qui vit dans la maison du centre boit du lait."
grid_write 1,4,4,"Lait"
pause 2000

caption 2,"indice 9. Le Norvégien vit dans la première maison."
grid_write 1,2,3,"Norvégien"
pause 2000

caption 2,"indice 14. Le Norvégien vit à côté de la maison bleue."
grid_write 1,3,2,"Bleue"
pause 2000

caption 2,"indice 4. La maison verte est juste à gauche de la maison blanche." + chr$(13) + "indice 5. Le propriétaire de la maison verte boit du café."
grid_write 1,5,2,"Verte"
grid_write 1,5,4,"Café"
pause 2000

caption 2,"indice 4. La maison verte est juste à gauche de la maison blanche."
grid_write 1,6,2,"Blanche"  
pause 2000

caption 2,"indice 1. L’Anglais vit dans la maison rouge."
grid_write 1,4,2,"Rouge"
grid_write 1,4,3,"Anglais"
pause 2000

caption 2,"il reste une seule case pour la dernière couleur, la jaune."
grid_write 1,2,2,"Jaune"
pause 2000

caption 2,"indice 7. Le propriétaire de la maison jaune fume des Dunhills."
grid_write 1,2,5,"Dunhills"
pause 2000

caption 2,"indice 11. L’homme qui élève des chevaux vit à côté du fumeur de Dunhills."
grid_write 1,3,6,"Chevaux"
pause 2000

caption 2,"indice 15. L’homme qui fume des Blends a un voisin qui boit de l’eau."
grid_write 1,3,5,"Blends"
grid_write 1,2,4,"Eau"
pause 2000

caption 2,"indice 12. L’homme qui fume des Blue Masters boit de la bière."
grid_write 1,6,4,"Bière"
grid_write 1,6,5,"Blue Masters"
pause 2000


caption 2,"il ne reste plus qu'une seule case pour le thé."
grid_write 1,3,4,"Thé"    
pause 2000

caption 2,"indice 3. Le Danois boit du thé."
grid_write 1,3,3,"Danois"
pause 2000

caption 2,"indice 13. L’Allemand fume des Prince."
grid_write 1,5,3,"Allemand"
grid_write 1,5,5,"Prince"
pause 2000

caption 2,"Il ne reste qu'une seule case pour la nationalité Suédoise."
grid_write 1,6,3,"Suédois"
pause 2000

caption 2,"indice 2. Le Suédois élève des chiens."
grid_write 1,6,6,"Chiens"
pause 2000

caption 2,"Il ne reste qu'une seule case pour le tabac Pall Mall."
grid_write 1,4,5,"Pall Mall"
pause 2000

caption 2,"indice 6. Le fumeur de Pall Mall élève des oiseaux."
grid_write 1,4,6,"Oiseaux"
pause 2000

caption 2,"indice 10. L’homme qui fume des Blends vit à côté de celui qui élève des chats."
grid_write 1,2,6,"Chats"
pause 2000

caption 2,"Il ne reste qu'une seule case pour les poissons : l'allemand !"

 

rem ============================================================================
rem                         Enigme d’Einstein
rem                       Papydall le 06/02/2023
rem ============================================================================
rem Enoncé :
rem On a 5 maisons alignées de couleurs différentes.
rem Dans chaque maison vit une personne de nationalité différente.
rem Chaque personne boit une boisson différente.
rem Chaque personne fume un type de cigarette différent.
rem Chaque personne élève un animal différent.
rem Question : QUI ELEVE DES POISSONS ROUGES ?
rem ============================================================================
rem Indices :
rem  1. L’Anglais vit dans la maison rouge.              
rem  2. Le Suédois élève des chiens.
rem  3. Le Danois boit du thé.
rem  4. La maison verte est juste à gauche de la maison blanche.
rem  5. Le propriétaire de la maison verte boit du café.
rem  6. Le fumeur de Pall Mall élève des oiseaux.
rem  7. Le propriétaire de la maison jaune fume des Dunhills.
rem  8. L’homme qui vit dans la maison du centre boit du lait.
rem  9. Le Norvégien vit dans la première maison.
rem 10. L’homme qui fume des Blends vit à côté de celui qui élève des chats.
rem 11. L’homme qui élève des chevaux vit à côté du fumeur de Dunhills.
rem 12. L’homme qui fume des Blue Masters boit de la bière.
rem 13. L’Allemand fume des Prince.
rem 14. Le Norvégien vit à côté de la maison bleue.
rem 15. L’homme qui fume des Blends a un voisin qui boit de l’eau.
rem ============================================================================
rem Approche :
rem Couleurs des maisons : Rouge, Verte, Blanche, Jaune, Bleue
rem Nationalités         : Anglais, Suédois, Danois, Norvégien, Allemand
rem Boissons             : Thé, Café, Lait, Bière, Eau
rem Cigarettes           : Pall Mall, Dunhills, Blends, Blue Masters, Prince
rem Animaux              : Chiens, Oiseaux, Chats, Chevaux, Poissons Rouges.
rem ============================================================================
rem D’après 9 et 14 on obtient:
rem 16. La maison Bleue est la deuxième maison.
rem D’après 5 et 8 on obtient:
rem 17. La maison du centre n’est pas la maison verte.
rem D’après 4 (et en partant du postulat que les maisons sont numérotées de gauche à droite)
rem la maison verte est la X ième maison, la maison blanche est la (X+1) ème maison.
rem D’après 16, X = 1 est impossible (car on aurait X + 1 = 2 et la 2ème maison étant bleue,
rem elle ne peut pas être blanche)
rem Toujours d’après 16, X = 2 est impossible.
rem D’après 17, X = 3 est impossible.
rem Il ne reste qu’une possibilité: X = 4, X + 1 = 5.
rem On obtient donc:
rem 18. La maison verte est la quatrième maison.
rem 19. La maison blanche est la cinquième maison.
rem D’après 16, 18, et 19, on sait que la première et la troisième maison sont la rouge et la jaune.
rem D’après 1 et 9, la première maison ne peut être la rouge, c’est donc la jaune.
rem La rouge est la dernière maison restante, à savoir la troisième.
rem On connait maintenant l’ordre des maisons:
rem 20. Les maisons sont dans l’ordre 1:Jaune, 2:Bleue, 3:Rouge, 4:Verte, 5:Blanche
rem D’après 1, 8 et 20, on obtient:
rem 21. L’Anglais vit dans la 3ème maison (rouge), et boit du lait.
rem D’après 7,9 et 20, on obtient:
rem 22. Le Norvégien vit dans la 1ère maison (jaune), et fume des Dunhills.
rem D’après 11,20 et 22, on obtient:
rem 23. L’éleveur de chevaux vit dans la 2ème maison (bleue).
rem D’après 21, le Norvégien ne boit pas de lait.
rem D’après 5 et 22, le Norvégien ne boit pas de café.
rem D’après 12 et 22, le Norvégien ne boit pas de bière.
rem D’après 3, le Norvégien ne boit pas de thé.
rem Il boit donc de l’eau et on peut compléter la proposition 22 qui devient:
rem 24. Le Norvégien vit dans la 1ère maison (jaune), fume des Dunhills et boit de l’eau.
rem D’après 15, 20, et 24, l’homme habitant dans la maison bleue (le seul voisin du Norvégien) fume des Blends.
rem On peut completer la proposition 23 qui devient:
rem 25. L’homme qui fume des Blends vit dans la 2ème maison (bleue) et élève des chevaux.
rem D’après 12, l’homme qui fume des blue masters boit de la bière.
rem D’après 24, la première maison est occupée par un fumeur de dunhills qui boit de l’eau.
rem D’après 25, la deuxième maison est occupée par un fumeur de blends.
rem D’après 21, la troisième maison est occupée par un buveur de lait.
rem D’après 5 et 20, la quatrième maison est occupée par un buveur de café.
rem Le fumeur de blue masters buveur de bière ne peut être dans aucune de ces 4 maisons,
rem il est donc dans la cinquième, qui est la blanche d’après 20.
rem On obtient:
rem 26. L’homme qui occupe la dernière maison (blanche) fume des blue masters et boit de la bière.
rem Nous savons à ce stade, que le buveaur d’eau est dans la première maison,
rem le buveur de lait dans la troisième, le buveur de café dans la quatrième,
rem et le buveur de bière dans la cinquième.
rem Le buveur de thé est donc dans la dernière maison disponible (la 2ème),
rem et nous savons d’après 3 qu’il s’agit du Danois.
rem Nous pouvons compléter la proposition 25 qui devient:
rem 27. Le Danois vit dans la deuxième maison (bleue), il fume des Blends,
rem     élève des chevaux, et boit du thé.
rem D’après 21,24 et 27, l’Allemand est dans la quatrième ou dans la cinquième maison.
rem D’après 13 et 26 il ne peut pas être dans la dernière maison, il est donc dans la quatrième.
rem De plus on sait qu’il fume des Prince.
rem On peut completer la proposition 5 qui devient:
rem 28. La quatrième maison (verte) est occupée par l’Allemand, qui fume des Prince et boit du café.
rem A ce stade, nous avons déterminé que
rem le Norvégien est dans la première maison,
rem le Danois dans la seconde,
rem l’Anglais dans la 3ème,
rem l’Allemand dans la quatrième,
rem le Suédois est donc forcément dans la 5ème maison.
rem Nous avons aussi déterminé que
rem le fumeur de Dunhills est dans la première maison,
rem le fumeur de Blends dans la deuxième,
rem le fumeur de Prince dans la quatrième,
rem et le fumeur de Blue Masters dans la cinquième.
rem Le fumeur de Pall Mall est donc dans la troisième maison.
rem ============================================================================
rem Récapitulatif
rem - La première maison est la maison jaune, occupée par le Norvégien, qui fume des Dunhills et boit de l’eau.
rem - La seconde maison est la maison bleue, occupée par le Danois, qui fume des Blends, boit du thé, et élève des chevaux.
rem - La troisième maison est la maison rouge, occupée par l’Anglais, qui fume des Pall Mall, et boit du lait.
rem - La quatrième maison est la maison verte, occupée par l’Allemand, qui fume des Prince et boit du café.
rem - La cinquième maison est la maison blanche, occupée par le Suédois, qui fume des Blue-Masters et boit de la bière.
rem ============================================================================
rem D’après ce récapitulatif et 2, le Suédois élève des chiens.
rem D’après le récaptitulatif et 6, l’Anglais élève des oiseaux.
rem D’après le récapitulatif et 10, l’éleveur de chats est soit le Norvégien
rem soit l’Anglais, or on vient d’établir que
rem l’Anglais élève des oiseaux, le norvégien élève donc des chats.
rem D’après le récapitulatif, le Danois élève des chevaux.
rem Il ne reste donc plus que l’Allemand pour élever des poissons rouges.
rem ============================================================================
rem   ______________________________________________________________________
rem  |             |           |        |           |          |            |
rem  | Maison      |    1      |    2   |    3      |    4     |     5      |
rem  | Couleur     | Jaune     | Bleu   | Rouge     | Vert     | Blanc      |
rem  | Nationalité | Norvégien | Danois | Anglais   | Allemand | Suédois    |
rem  | Boisson     | Eau       | Thé    | Lait      | Café     | Bière      |
rem  | Cigare      | Dunhill   | Blend  | Pall Mall | Prince   | Bluemaster |
rem  | Animal      | Chats     | Cheval | Oiseaux   | Poissons | Chiens     |
rem  |_____________|___________|________|___________|__________|____________|
rem
rem ============================================================================
label choix

Init()
Grille()
end
rem ============================================================================
SUB Grille()
    grid 10 : grid_fixed_color 10,200,100,20
    color 10,10,100,200 : font_bold 10 : font_color 10,255,255,255
    font_name 10,"arial": font_size 10,12 : hide 10  
    width 10,610 : height 10,190 : top 10,20 : left 10,20
    grid_row 10,6 :  grid_column 10,6
    grid_row_height 10,30 : grid_column_width 10,100
    grid_write 10,1,1,"  Maison"
    grid_write 10,1,2,"     1"
    grid_write 10,1,3,"     2"
    grid_write 10,1,4,"     3"
    grid_write 10,1,5,"     4"
    grid_write 10,1,6,"     5"
    
    grid_write 10,2,1,"  Couleur"
    grid_write 10,3,1,"  Nationalité"
    grid_write 10,4,1,"  Boisson"
    grid_write 10,5,1,"  Cigare"
    grid_write 10,6,1,"  Animal"
    
END_SUB
rem ============================================================================    
SUB Init()
    dim p
    p = 2000 : ' temporisation à adapter
    width 0,1200 : height 0,700  : color 0,255,255,255
    caption 0,"Enigme d'Einstein"
    application_title "Enigme d'Einstein"

    ' Memo
    memo 20 : top 20,20 : left 20,770 : width 20,400 : height 20,400
    font_name 20,"arial black"
    item_add 20,"On a 5 maisons alignées de couleurs différentes."
    item_add 20,"Dans chaque maison vit une personne de nationalité différente."
    item_add 20,"Chaque personne boit une boisson différente."
    item_add 20,"Chaque personne fume un type de cigarette différent."
    item_add 20,"Chaque personne élève un animal différent."
    item_add 20,"Question : QUI ELEVE DES POISSONS ROUGES ?"
    item_add 20,"====================================================="

    item_add 20,"Indices :"
    item_add 20,"  1. L’Anglais vit dans la maison rouge."              
    item_add 20,"  2. Le Suédois élève des chiens."
    item_add 20,"  3. Le Danois boit du thé."
    item_add 20,"  4. La maison verte est juste à gauche de la maison blanche."
    item_add 20,"  5. Le propriétaire de la maison verte boit du café."
    item_add 20,"  6. Le fumeur de Pall Mall élève des oiseaux."
    item_add 20,"  7. Le propriétaire de la maison jaune fume des Dunhills."
    item_add 20,"  8. L’homme qui vit dans la maison du centre boit du lait."
    item_add 20,"  9. Le Norvégien vit dans la pemière maison."
    item_add 20," 10. L’homme qui fume des Blends vit à côté de celui qui élève des chats."
    item_add 20," 11. L’homme qui élève des chevaux vit à côté du fumeur de Dunhills."
    item_add 20," 12. L’homme qui fume des Blue Masters boit de la bière."
    item_add 20," 13. L’Allemand fume des Prince."
    item_add 20," 14. Le Norvégien vit à côté de la maison bleue."
    item_add 20," 15. L’homme qui fume des Blends a un voisin qui boit de l’eau."

    button 30 : top 30,600 : left 30,800 : font_name 30,"arial black"
    caption 30,"Solution" : on_click 30,choix
    button 40 : top 40,600 : left 40, 1050 : font_name 40,"arial black"
    caption 40,"Quitter" : on_click 40,choix
    memo 50 : top 50,250 : left 50,20 : width 50,750 : height 50,400
    font_name 50,"arial black" : bar_both 50 : hide 50
    
    shape 60 : width 60,630 : height 60,210  : color 60,200,100,200
    top 60,10 : left 60,10
    shape_rectangle_rounded 60  : hide 60
    
    shape 80 : width 80,410 : height 80,120
    top 80,440 : left 80,770
    shape_rectangle_rounded 80 : color 80,200,100,200 : hide 80
    
    alpha 70 : top 70,450 : left 70,780 : font_bold 70 : font_size 70,12
        
END_SUB
rem ============================================================================
choix:
    select number_click
        case 30 : Solution()
        case 40 : terminate
    end_select
return
rem ============================================================================
SUB Solution()
    dim_local t$
    inactive 30 : show 10 : show 50 : show 60
    item_add 50,"D’après 9 et 14 on obtient :"
    item_add 50,"16. La maison Bleue est la deuxième maison."
    grid_write 10,2,3,"  Bleu" : pause p
    item_add 50,"D’après 5 et 8 on obtient :"
    item_add 50,"17. La maison du centre n’est pas la maison verte." : pause p
    item_add 50,"D’après 4 (et en partant du postulat que les maisons sont numérotées de gauche à droite)"
    item_add 50,"la maison verte est la X ième maison, la maison blanche est la (X+1) ème maison." : pause p
    item_add 50,"D’après 16, X = 1 est impossible (car on aurait X + 1 = 2 et la 2ème maison étant bleue,"
    item_add 50,"elle ne peut pas être blanche)" : pause p
    item_add 50,"Toujours d’après 16, X = 2 est impossible." : pause p
    item_add 50,"D’après 17, X = 3 est impossible." : pause p
    item_add 50,"Il ne reste qu’une possibilité: X = 4, X + 1 = 5." : pause p
    item_add 50,"On obtient donc:"
    item_add 50,"18. La maison verte est la quatrième maison."
    grid_write 10,2,5,"  Vert" : pause p
    item_add 50,"19. La maison blanche est la cinquième maison."
    grid_write 10,2,6,"  Blanc" : pause p
    item_add 50,"D’après 16, 18, et 19, on sait que la première et la troisième maison sont la rouge et la jaune."
    item_add 50,"D’après 1 et 9, la première maison ne peut être la rouge, c’est donc la jaune." : pause p
    grid_write 10,2,2,"  Jaune"    
    item_add 50,"La rouge est la dernière maison restante, à savoir la troisième."
    grid_write 10,2,4,"Rouge"  : pause p
    item_add 50,"On connait maintenant l’ordre des maisons:"
    item_add 50,"20. Les maisons sont dans l’ordre 1:Jaune, 2:Bleue, 3:Rouge, 4:Verte, 5:Blanche" : pause p
    
    item_add 50,"D’après 1, 8 et 20, on obtient:"
    item_add 50,"21. L’Anglais vit dans la 3ème maison (rouge), et boit du lait." : pause p
    grid_write 10,3,4,"  Anglais"
    grid_write 10,4,4,"  Lait" : pause p
    
    item_add 50,"D’après 7,9 et 20, on obtient:"
    item_add 50,"22. Le Norvégien vit dans la 1ère maison (jaune), et fume des Dunhills."
    grid_write 10,3,2,"  Norvégien"
    grid_write 10,5,2,"  Dunhill" : pause p
    
    item_add 50,"D’après 11,20 et 22, on obtient:"
    item_add 50,"23. L’éleveur de chevaux vit dans la 2ème maison (bleue)."
    item_add 50,"D’après 21, le Norvégien ne boit pas de lait."
    item_add 50,"D’après 5 et 22, le Norvégien ne boit pas de café."
    item_add 50,"D’après 12 et 22, le Norvégien ne boit pas de bière."
    item_add 50,"D’après 3, le Norvégien ne boit pas de thé."
    item_add 50,"Il boit donc de l’eau et on peut compléter la proposition 22 qui devient:"
    item_add 50,"24. Le Norvégien vit dans la 1ère maison (jaune), fume des Dunhills et boit de l’eau."
    grid_write 10,4,2,"  Eau" : pause p
    item_add 50,"D’après 15, 20, et 24, l’homme habitant dans la maison bleue (le seul voisin du Norvégien) fume des Blends."
    item_add 50,"On peut completer la proposition 23 qui devient:"
    item_add 50,"25. L’homme qui fume des Blends vit dans la 2ème maison (bleue) et élève des chevaux."
    grid_write 10,5,3,"  Blend"
    grid_write 10,6,3,"  Chevaux" : pause p
    
    item_add 50,"D’après 12, l’homme qui fume des blue masters boit de la bière."
    item_add 50,"D’après 24, la première maison est occupée par un fumeur de dunhills qui boit de l’eau."
    item_add 50,"D’après 25, la deuxième maison est occupée par un fumeur de blends."
    item_add 50,"D’après 21, la troisième maison est occupée par un buveur de lait."
    item_add 50,"D’après 5 et 20, la quatrième maison est occupée par un buveur de café."
    grid_write 10,4,5,"  Café" : pause p
    item_add 50,"Le fumeur de blue masters buveur de bière ne peut être dans aucune de ces 4 maisons,"
    item_add 50,"il est donc dans la cinquième, qui est la blanche d’après 20."
    grid_write 10,5,6,"Blue masters"
    grid_write 10,4,6,"  Bière" : pause p
    item_add 50,"On obtient:"
    
    item_add 50,"26. L’homme qui occupe la dernière maison (blanche) fume des blue masters et boit de la bière."
    item_add 50,"Nous savons à ce stade, que le buveaur d’eau est dans la première maison,"
    item_add 50,"le buveur de lait dans la troisième, le buveur de café dans la quatrième,"
    item_add 50,"et le buveur de bière dans la cinquième."
    item_add 50,"Le buveur de thé est donc dans la dernière maison disponible (la 2ème),"
    item_add 50,"et nous savons d’après 3 qu’il s’agit du Danois."
    grid_write 10,4,3,"  Thé"
    grid_write 10,3,3,"  Danois"
    
    item_add 50,"Nous pouvons compléter la proposition 25 qui devient:"
    item_add 50,"27. Le Danois vit dans la deuxième maison (bleue), il fume des Blends,"
    item_add 50,"élève des chevaux, et boit du thé."
    
    item_add 50,"D’après 21,24 et 27, l’Allemand est dans la quatrième ou dans la cinquième maison."
    item_add 50,"D’après 13 et 26 il ne peut pas être dans la dernière maison, il est donc dans la quatrième."
    grid_write 10,3,5,"  Allemand"
    grid_write 10,5,5,"  Prince": pause p
    item_add 50,"De plus on sait qu’il fume des Prince."
    item_add 50,"On peut completer la proposition 5 qui devient:"
    item_add 50,"28. La quatrième maison (verte) est occupée par l’Allemand, qui fume des Prince et boit du café."
    
    item_add 50,"A ce stade, nous avons déterminé que "
    item_add 50,"le Norvégien est dans la première maison,"
    item_add 50,"le Danois dans la seconde,"
    item_add 50,"l’Anglais dans la 3ème,"
    item_add 50,"l’Allemand dans la quatrième,"
    item_add 50,"le Suédois est donc forcément dans la 5ème maison."
    grid_write 10,3,6,"  Suédois" : pause p
    item_add 50,"Nous avons aussi déterminé que"
    item_add 50,"le fumeur de Dunhills est dans la première maison,"
    item_add 50,"le fumeur de Blends dans la deuxième,"
    item_add 50,"le fumeur de Prince dans la quatrième,"
    item_add 50,"et le fumeur de Blue Masters dans la cinquième."
    item_add 50,"Le fumeur de Pall Mall est donc dans la troisième maison."
    grid_write 10,5,4,"  Pall Mall"
    
    item_add 50,"" : item_add 50,"Récapitulatif"
    item_add 50," - La première maison est la maison jaune, occupée par le Norvégien, qui fume des Dunhills et boit de l’eau."
    item_add 50," - La seconde maison est la maison bleue, occupée par le Danois, qui fume des Blends, boit du thé, et élève des chevaux."
    item_add 50," - La troisième maison est la maison rouge, occupée par l’Anglais, qui fume des Pall Mall, et boit du lait."
    item_add 50," - La quatrième maison est la maison verte, occupée par l’Allemand, qui fume des Prince et boit du café."
    item_add 50," - La cinquième maison est la maison blanche, occupée par le Suédois, qui fume des Blue-Masters et boit de la bière."
    item_add 50,""
    item_add 50,"D’après ce récapitulatif et 2, le Suédois élève des chiens."
    grid_write 10,6,6,"  Chiens"
    item_add 50,"D’après le récaptitulatif et 6, l’Anglais élève des oiseaux."
    grid_write 10,6,4,"  Oiseaux"
    item_add 50,"D’après le récapitulatif et 10, l’éleveur de chats est soit le Norvégien"
    item_add 50,"soit l’Anglais, or on vient d’établir que"
    item_add 50,"l’Anglais élève des oiseaux, le norvégien élève donc des chats."
    grid_write 10,6,2,"  Chats"
    item_add 50,"D’après le récapitulatif, le Danois élève des chevaux."
    item_add 50,"Il ne reste donc plus que l’Allemand pour élever des poissons rouges."
    grid_write 10,6,5,"  Poissons" : pause p
    
    t$ = chr$(13) + " C'est l'Allemand qui élève les poissons rouges. "+ chr$(13)
    t$ = t$ + " Il habite la maison verte N°4. "+chr$(13)
    t$ = t$ + " Il boit du café et fume des Prince. " + chr$(13)
    show 80 : caption 70,t$
    while 1 = 1
        pause 1000 : font_color 70,255,0,0 : pause 1000 : font_color 70,0,0,0
    end_while
END_SUB
rem ============================================================================