04.30 Kolikrát padne 6 na kostce
Zadání:
Sestavte program, který určí, kolikrát padne hodnota 6 na kostce ze zadaného počtu hodů.
Sestavte program, který určí, kolikrát padne hodnota 6 na kostce ze zadaného počtu hodů.
Řešení:
Pomocí cyklu FOR pro proměnnou i nagenerujeme N-krát hodnoty z intervalu 1..6 (simulace hodu kostkou).
Nagenerovanou hodnotu otestujeme a pokud padla šestka, zvýšíme proměnnou pocet6 o 1 (jedna). Na konci
programu počet padlých šestek vytiskneme.
Pomocí cyklu FOR pro proměnnou i nagenerujeme N-krát hodnoty z intervalu 1..6 (simulace hodu kostkou).
Nagenerovanou hodnotu otestujeme a pokud padla šestka, zvýšíme proměnnou pocet6 o 1 (jedna). Na konci
programu počet padlých šestek vytiskneme.
Module Module1
Sub Main()
Dim n, pocet6, i, k As Integer
Randomize(Timer)
Console.Write("Zadejte pocet hodu: ")
n = Console.ReadLine
pocet6 = 0
For i = 1 To n
k = Int(Rnd() * 6) + 1
If k = 6 Then
pocet6 = pocet6 + 1
End If
Next i
Console.WriteLine("Pocet sestek: {0}", pocet6)
Console.ReadLine()
End Sub
End Module
program ke stažení
Pro studenty:
Generátor náhodných čísel musíme zinicializovat příkazem RANDOMIZE, jinak by program tisknul pokaždé stejný výsledek.