A voir également:
- Programmation
- Application programmation - Guide
- Programmation sms - Guide
- Delphi programmation - Télécharger - Langages
- Langage de programmation visual basic - Télécharger - Langages
- Programmation binaire - Guide
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.
