Aléatoire (Algorithmique mathématique) sujet

Est-ce que vous connaissez un algorithme générateur d'aléatoire conformément à une probabilité donnée ?

Formellement :
Soit telle que et
Je cherche des algorithmes générateurs de suite qui soit telle que

(je ne sais pas vraiment donner de condition sur n, si c'est important pour ces algorithmes je dirais qu'en pratique si n est vers 1000 et que le quotient est proche de p au centième près c'est ce que je cherche)

J'ai essayé de diverses manières, avec des modulos successifs de nombres premiers, mais ça n'est pas du tout aussi simple que ça (j’obtiens des résultats vraiment mauvais par rapport à l'objectif), donc si vous avez des documents intéressants ou des idées sur ces algorithmes je suis preneur.

Merci beaucoup !

Jeux mathématique en tp7 sujet

Bonjour,

Je vous propose un nouvel élément à utiliser : Jeux mathématique en tp7

C'est un jeux mathématique qui est en fait une boucle Repeat Until qui génère des nombres aléatoires entre 1 et 10 et il vérifie si vrotre résultat donnée est juste ou faux. S'il est fax il vous laisse une seconde chance.

Voici de srcipt:

Program MultiplicaHER_3_2;



Var

n1,n2,cal,rep,n_m: integer;

reponse: char;



BEGIN

Repeat

Writeln('Combien de multiplication veut-tu faire?');

Readln(n_m);

Randomize;

For cal:=1 to n_m do

Begin

n1:=trunc(11*random);

n2:=trunc(11*random);

Writeln(n1,'*',n2,'=');

Readln(rep);

If rep=n1*n2

Then

Writeln('la r‚ponse est juste.')

Else

Begin

Writeln('la r‚ponse est fause.');

Writeln('Recommence.');

Begin

Writeln(n1,'*',n2,'=');

Readln(rep);

If rep=n1*n2

Then

Writeln('la r‚ponse est juste.')

Else

Begin

Writeln('la r‚ponse est toujours fause.');

End;

Writeln(n1,'*',n2,'=',n1*n2);

End; End;

End;

Writeln('Une nouvelle s‚rie de 10 multiplication ? (O/N)');

Readln(reponse);

Until (reponse='N') or (reponse='n');

END.

Qu'en pensez-vous ?