Turbo pascal
gotie3147
-
teebo Messages postés 33491 Date d'inscription Statut Modérateur Dernière intervention -
teebo Messages postés 33491 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour, je suis en prépa hec, j'ai un petit prog à faire : ecrire un programme qui choisit 12 entiers au hasard entre 0 et 20 et qui les classe dans l'ordre croissant.
Je commence comme ça :
var
t:array[1..12] of integer;
begin
randomize;
for k:= 1 to 12 do t[k]:= random(21);
Mais après je ne sais que faire, pourriez vous m'aider rapidement svp ?? Merci d'avance,
Gautier
gotie@wanadoo.fr
Je commence comme ça :
var
t:array[1..12] of integer;
begin
randomize;
for k:= 1 to 12 do t[k]:= random(21);
Mais après je ne sais que faire, pourriez vous m'aider rapidement svp ?? Merci d'avance,
Gautier
gotie@wanadoo.fr
A voir également:
- Turbo pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Turbo sim inconvénient - Forum iPhone
- Turbo meeting - Télécharger - Messagerie
1 réponse
Salut,
Il y a plusieurs moyen de trier un tableau, mais vue la taille du probleme (du tableau) , autant faire le plus simple...
Je propose (attention, je ne peux pas te faire le code comme ca...)
Tu crees un autre tableau, tu cherches le minimum de ton tableau initial et tu le mes en premiere case, et tu fais ca dans une boucle ou le minimum va en i
pour i de 1 a 12
min(oldtab, rang)
nvtab[i]:=oldtab[rang]
oldtab[rang]:=21 (pour pas avoir de minimum)
i:=i+1
Voila, reste a ecrire la procedure min...
Hesite pas a demander des complements si il y a des trucs pas clairs....
Teebo...
Le droit de vote ne s'use que si l'on ne s'en sert pas...
Il y a plusieurs moyen de trier un tableau, mais vue la taille du probleme (du tableau) , autant faire le plus simple...
Je propose (attention, je ne peux pas te faire le code comme ca...)
Tu crees un autre tableau, tu cherches le minimum de ton tableau initial et tu le mes en premiere case, et tu fais ca dans une boucle ou le minimum va en i
pour i de 1 a 12
min(oldtab, rang)
nvtab[i]:=oldtab[rang]
oldtab[rang]:=21 (pour pas avoir de minimum)
i:=i+1
Voila, reste a ecrire la procedure min...
Hesite pas a demander des complements si il y a des trucs pas clairs....
Teebo...
Le droit de vote ne s'use que si l'on ne s'en sert pas...