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.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var n,pocet6,i,k:longint;
begin
randomize;
write('Zadejte pocet hodu: ');
readln(n);
pocet6:=0;
for i:=1 to n do
begin
k:=random(6)+1;
if k=6 then pocet6:=pocet6+1;
end;
writeln('Pocet sestek: ',pocet6);
readln;
end.
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.