Posted to tcl by jdc at Fri May 23 13:52:33 GMT 2008view raw

  1. lzet g [bereken int(rand() * 100)]
  2.  
  3. herhaal 10 keer {
  4.  
  5. schrijf -blijf "Geef een getal tussen 0 en 100: "
  6.  
  7. zet w [lees]
  8.  
  9. als {$w == $g } dan {
  10. schrijf "Juist!"
  11. wacht 1000
  12. afsluiten
  13. } anders {
  14. schrijf "Verkeerd!"
  15. als { $w < $g } dan {
  16. schrijf "Het getal dat we zoeken is groter."
  17. } anders {
  18. schrijf "Het getal dat we zoeken is kleiner."
  19. }
  20. }
  21. }
  22.  
  23. schrijf "Je kon het getal niet vinden in 10 beurten. De oplossing was: $g"
  24.  
  25. wacht 1000
  26.  
  27. afsluiten