SEM INF 10.11.2010

Začíname niečo nové... Simulácie

    Dnes sme na hodine začali programovať simulácie... začali sme hádzaním kockou.

Simulácia hodu kockou

    Hádžeme kockou. 100x Random1 až 6. Koľko krát padne 6,5,4,3,2,1?

***

program kocka;
uses Crt;
var p : array[1..6] of integer;
      i,c : integer;
begin
  Clrscr;
  Randomize;
  for i:=1 to 6 do p[i]:=0;
  for i:=1 to 100 do begin
    c:=random(6)+1;
    p[c]:=p[c]+1;
  end;
  for i:=1 to 6 do
    writeln('vase cislo ',i,' padlo ',p[i],'-krat');
  readln;
end.

***

Tento program je tu.
Aplikácia je tu.
Tento program funguje na princípe: robím 100-krát to, že vygenerujem náhodné číslo od 1 po 6 a podľa toho aké je, tak k tomu prvku poľa 'p' priradím hodnotu o 1 vyššiu. Potom už len vypíšem ktoré číslo padlo koľko krát.

Simulácia športky

    Aby dve za sebou idúce čísla neboli rovnaké. V športke. (6 zo 49).

Úloha lenivý Jim 

    Budeme robiť nabudúce.

Koniec hodiny.