Bilderna förklarar själva problemet. Filen finns i BOX-verktyget, programarkivet. Namn: Väntevärde.tns.
Sedan simulerar vi spelet med ett program
Vi tar oss en titt på programmet:
Define väntevärde()=
Prgm
Local vv,n,i,re Variablerna definiers som variabla
0→vv Variabeln vv visar det förväntade värdet på vinst/förlust
Request ”Antal kast”,n Antal kast fastställs
For i,1,n En loop initieras
re:=int(6*rand())+1 Tärningen ”kastas”. Resultat = re
vv-1.5→vv Spelinsatsen betalas
If mod(re,2)=1 Then Udda/jämnt kollas. Här udda. Obs hur mod-kommandot används!
vv-2→vv Spelförlust på 2 euro
EndIf Slut på kollen udda
If mod(re,2)=0 Then Udda/jämnt kollas. Här jämnt.
vv+re→vv : EndIf Spelvinst utbetalas.
EndFor Slut på kolen jämnt
Disp vv Resultatet vv visas
EndPrgm Programslut
