Bonjour,
Mon but est de tirer un nombre aléatoire soit 1 soit 0.

Pensez-vous que c'est correct ? ou une autre méthode existe ?
la boucle c'est pour vérifier de visu que ça fonctionne .
Merci de vos conseils
voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
program testrandom;
//but tirage d'un nombre entre 0 et 1
var r,i : integer;
begin
	randomize;
	for i:=1 to 200 do
	begin
		r:=(random(2)+1)-1;
		writeln(r);
	end;
end.
Bien cordialement