create or replace function prwpod (ile_rzutow in number) return number as prawda number :=0; liczba1 number :=0; liczba2 number :=0; liczba3 number :=0;
begin
for licznik in 1..ile_rzutow loop --losowanie liczba1 := trunc(DBMS_RANDOM.VALUE(1, 7)); liczba2 := trunc(DBMS_RANDOM.VALUE(1, 7)); liczba3 := trunc(DBMS_RANDOM.VALUE(1, 7));
if liczba1 <> liczba2 then if liczba1 <> liczba3 then if liczba2 <>liczba3 then if liczba1 <> 6 then
prawda := prawda + 1;
end if; end if; end if; end if;
end loop;
return prawda/ile_rzutow;
end;
declare resultat number;
begin resultat := prwpod(1000); dbms_output.put_line('Prawdopodobienstwo jest rowne '||resultat); end;
Wyszukiwarka