Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.32 Kolikrát padne součet 7 na dvou kostkách

MENU

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ů.
Ř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.
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.