program tes;
uses crt;
var ogensom,groter:Integer;
var bijhouden:Longint;
var kansg,kansgr:Real;
var
invoer,db1,db2,db3,db4,db5,db6,mogel:Integer;
function aantalm(ogens:integer):integer;
var
correct:integer;
begin
correct:=0;
for db1:=1 to 6 do
begin
for db2:=1 to 6 do
begin
for db3:=1 to 6 do
begin
for db4:=1 to 6 do
begin
for db5:=1 to 6 do
begin
for db6:=1 to 6 do
begin
if (db1+db2+db3+db4+db5+db6) = ogens then BEGIN correct:=correct+1; END;
end;
end;
end;
end;
end;
end;
aantalm:=correct;
end;
begin
clrscr;
writeln('ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln('Ί Dit programma geeft het aantal mogelijkheden en
writeln('Ί om een ogensom k of
>= k met 6 dobbelstenen te bereiken Ί');
writeln('ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');
writeln('Geef de ogensom in (druk daarna op Enter)');
read(ogensom);
WHILE ((ogensom<6)
OR (ogensom >36)) DO
BEGIN
writeln('Ongeldige invoer! Geef correcte ogensom in!');
read(ogensom);
END;
invoer:=ogensom;
mogel := aantalm(ogensom);
writeln('');
writeln('Aantal mogelijkheden om
',invoer,' als ogensom te krijgen bedraagt ',mogel);
bijhouden:=0;
for groter:=invoer to 36 do
begin
bijhouden:=bijhouden + aantalm(groter);
end;
kansg:=mogel/(6*6*6*6*6*6);
kansgr:=bijhouden/(6*6*6*6*6*6);
writeln('Aantal mogelijkheden
ogensom groter of gelijk aan ',invoer,' is ',bijhouden);
writeln('P(X = ',invoer,') = ',kansg:7:5);
writeln('P(X >= ',invoer,') = ',kansgr:7:5);
end.