A voir également:
- Programmation
- Application de programmation - Guide
- Programmation sms - Guide
- Programmation binaire - Guide
- Programmation vb - Télécharger - Langages
- Logo programmation - Télécharger - Études & Formations
1 réponse
Voici un exemple :
program ElHadi213
var i,nb,min,max:integer;
begin
randomize; // une seule fois dans un programme
for i:=1 to 15 do
begin
min:=1+random(100); // un nombre entre 1 et 100
max:=min+random(3*min+1); // un nombre entre min et 4*min
nb:=min+random(max-min+1); // un nombre entre min et max
writeln('alea(',min,',',max,')=',nb);
end;
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.
