04.32 Kolikrát padne součet 7 na dvou kostkách
Zadání:
Sestavte program, který určí, kolikrát padne součet 7 na dvou kostkách ze zadaného počtu hodů.
Sestavte program, který určí, kolikrát padne součet 7 na dvou kostkách 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 kostkami).
Nagenerované hodnoty otestujeme a pokud padl součet 7, zvýšíme proměnnou pocet7 o 1 (jedna). Na konci
programu počet padlých součtů 7 vytiskneme.
Pomocí cyklu FOR pro proměnnou i nagenerujeme N-krát hodnoty z intervalu 1..6 (simulace hodu kostkami).
Nagenerované hodnoty otestujeme a pokud padl součet 7, zvýšíme proměnnou pocet7 o 1 (jedna). Na konci
programu počet padlých součtů 7 vytiskneme.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var n,pocet7,i,k1,k2:longint;
begin
randomize;
write('Zadejte pocet hodu: ');
readln(n);
pocet7:=0;
for i:=1 to n do
begin
k1:=random(6)+1;
k2:=random(6)+1;
if k1+k2=7 then pocet7:=pocet7+1;
end;
writeln('Pocet souctu 7: ',pocet7);
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.