l2p2-SPD

%Sa se simuleze pe Pc urmatorul joc:Un zar se arunca de 4 ori si daca cel
%putin o data apare cifra 6 jocul se comsidera castigat.Pentru ca
%probabilitatea sa fie cat mai bine aproxminata cu frecventa relativa jocul
%trebuie repetat n ori.

clc
clear
help p2.m

n=1000;
x=0;
p=0;

for i=1:n
    contor=0;
    for j=1:4
        zar=fix(rand*6)+1;
        if zar==6
            contor=contor+1;
        end
    end
    if contor>0
        x=x+1;
    else
        p=p+1;

    end
end


disp('am simulat jocul de:');
n
disp('jocul a fost castigat de:');
x

disp('jocul a fost pierdut de:');
p

disp('frecventa relativa:');
x/n

disp('Probabilitatea ca evenimentul sa fie castigat este:');
(5/6)^4

disp('Probabilitatea ca evenimentul sa fie pierdut este:');
1-(5/6)^4