Post by Marco Kurvers on Feb 28, 2024 20:08:32 GMT
Probeer onderstaande code uit. Je kunt het wijzigen door op te geven hoeveel beurten.
Je kunt het programma ook uitbreiden door te kiezen of de medespeler (computer) het moet raden of andersom. Gebruik in beide spellen de scheidsrechter voor controle verkeerde invoer.
Je kunt het programma ook uitbreiden door te kiezen of de medespeler (computer) het moet raden of andersom. Gebruik in beide spellen de scheidsrechter voor controle verkeerde invoer.
'*** Medespeler het getal laten raden ***
keer = 10
beurt = 1
input "Geef een getal: "; getal
'er is niet alleen een medespeler maar ook een scheidsrechter (computer)
do
do
raadgetal = int(rnd(1) * 25)
print "Beurt: "; beurt; ". Mijn getal is: "; raadgetal; "."
input "Heb ik het goed? "; antwgeraden$
if upper$(antwgeraden$) = "JA" and raadgetal <> getal then
'scheidsrechter meldt
print "Het was niet geraden: computer mag nog een keer in dezelfde beurt."
end if
if upper$(antwgeraden$) <> "JA" and raadgetal = getal then
print "De computer heeft het wel geraden."
antwgeraden$ = ""
end if
loop while upper$(antwgeraden$) = "JA" and raadgetal <> getal
if raadgetal <> getal then
beurt = beurt + 1
end if
loop while beurt < keer and raadgetal <> getal
if raadgetal = getal then
print "Hoera! Ik heb het geraden in "; beurt; " beurten."
else
print "Jammer, ik heb het niet geraden."
end if
