Sleeping Beauty problem: Difference between revisions

=={{header|BASIC}}==

==={{header|BASIC256}}===

{{trans|FreeBASIC}}

<lang BASIC256>

iteraciones = 1000000

cara = 0

dormir = 0

for i = 1 to iteraciones

lanza_moneda = int(rand * 2)

dormir = dormir + 1

if lanza_moneda = 1 then

cara = cara + 1

else

dormir = dormir + 1

end if

next i

print "Wakings over "; iteraciones; " repetitions = "; dormir

print "Percentage probability of heads on waking = "; (cara/dormir*100); "%"

end

</lang>

{{out}}

<pre>

Igual que la entrada de FreeBASIC.

</pre>

==={{header|FreeBASIC}}===

<lang freebasic>

Const iteraciones = 1000000

Randomize Timer

Dim As Uinteger cara = 0, dormir = 0

For i As Uinteger = 1 To iteraciones

Dim As integer lanza_moneda = Int(Rnd * 2) + 1

dormir += 1

if lanza_moneda = 1 then cara += 1 else dormir += 1

Next i

Print Using "Wakings over #####,### repetitions = #####,###"; iteraciones ; dormir

Print using "Percentage probability of heads on waking = ###.######%"; (cara/dormir*100)'; "%"

Sleep

</lang>

{{out}}

<pre>

Wakings over 1,000,000 repetitions = 1,499,718

Percentage probability of heads on waking = 33.358405%

</pre>

==={{header|Yabasic}}===

{{trans|FreeBASIC}}

<lang Yabasic>

iteraciones = 1000000

cara = 0

dormir = 0

for i = 1 to iteraciones

lanza_moneda = int(ran(2))

dormir = dormir + 1

if lanza_moneda = 1 then cara = cara + 1 else dormir = dormir + 1 endif

next i

print "Wakings over ", iteraciones, " repetitions = ", dormir

print "Percentage probability of heads on waking = ", (cara/dormir*100), "%"

end

</lang>

{{out}}

<pre>

Igual que la entrada de FreeBASIC.

</pre>