Navigace: Hlavní stránka -> PASCAL -> 05 Jednorozměrná pole -> 05.06 Modelování hodu kostkou a ukládání četností

MENU

05.06 Modelování hodu kostkou a ukládání četností

Zadání:
Sestavte program, který modeluje hod kostkou a do pole ukládá četnosti jednotlivých hodnot
Řešení:
Po zadání počtu hodů vynulujeme pole četností pomocí cyklu FOR (analogie k inicializaci proměnných).
Poté pomocí cyklu FOR nasimulujeme hod kostkou (proměnná k) a poté zvýšíme příslušnou četnost v poli
četností o 1 (jedna).
Na konci programu pole četností vytiskneme.
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cetnosti:array[1..6] of integer;
    n,i:longint;
    k,j:1..6;
begin

   randomize;

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

   for i:=1 to 6 do cetnosti[i]:=0;

   for i:=1 to n do
   begin
      k:=random(6)+1;
      cetnosti[k]:=cetnosti[k]+1;
   end;

   for i:=1 to 6 do
      writeln('Cetnost ',i,': ',cetnosti[i]);

   readln;

end.
program ke stažení