SEM INF 24.11.2010

Pokračujeme v simuláciach...
    Dnes sme pokračovali v simuláciách, simulovali sme športku, a potom sme "na štatistickom úrade" zisťvali ktoré číslo padlo koľko krát.  

Simulácia športky 6 zo 49

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

***

program sportka;
uses Crt;
var i,k : integer;
      c : array [1..6] of integer;
      p : boolean;
begin
  Clrscr;
  Randomize;
  for i:=1 to 6 do begin
    repeat
      p:=true;
      c[i]:=random(49)+1;
      for k:=(i-1) downto 1 do
        if c[i]=c[k] then p:=false
    until p;
  end;
  for i:=1 to 6 do write(c[i],' ');
  writeln('Koniec programu.');
  readln;
end.

***

Tento program je tu.
Aplikácia je tu.
Tento program pracoval na princípe: 6-krát vygeneruje náhodné číslo, a potom s každým ktoré bolo vygenerované skôr ho porovná, či náhodou nie je rovnaké ako nejaké aké už bolo vygenerované. Ak je, tak ho nezaradí medzi 6 vygenerovaných čísiel.

Simulácia štatistického úradu 

    Aby dve za sebou idúce čísla neboli rovnaké. V športke 6 čísel zo 49. Počítač, koľko krát padlo ktoré číslo, od 1 po 49, a športku ťahať 365–krát.

***

program sportka_staturad;
uses Crt;
var i,k,j : integer;
     c : array [1..6] of integer;
     b : array [1..49] of integer;
     p : boolean;
begin
  Clrscr;
  Randomize;
  for i:=1 to 49 do b[i]:=0;
  for j:=1 to 365 do begin
    for i:=1 to 6 do begin
      repeat
        p:=true;
        c[i]:=random(49)+1;
        for k:=(i-1) downto 1 do
          if c[i]=c[k] then p:=false
      until p;
      b[c[i]]:=b[c[i]]+1;
    end;
  end;
  for i:=1 to 49 do write(b[i],' ');
  writeln('Koniec programu.');
  readln;
end.

***

Tento program je tu.
Aplikácia je tu.
Tento program pracoval na princípe: robí to isté čo program pred ním, ale ešte si započítava do poľa 'b' koľko krát ktoré číslo padlo.

Koniec hodiny.