Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.31 Kolikrát padne 6 na dvou kostkách

MENU

04.31 Kolikrát padne 6 na dvou kostkách

Zadání:
Sestavte program, který určí, kolikrát padne hodnota 6 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 padly šestky, 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,k1,k2:longint;

begin

   randomize;

   write('Zadejte pocet hodu: ');
   readln(n);

   pocet6:=0;

   for i:=1 to n do
   begin
      k1:=random(6)+1;
      k2:=random(6)+1;
      if (k1=6) and (k2=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.