turbo pascal

Question

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

cs_Nono40 · Answer

Dis à HEC il n'y a pas mieux que le turbo pascal ?
Est-ce toujours la version turbo pascal 3 que j'ai eu en école d'ingé il y a des années ?

Enfin pour répondre à ta question :
La méthode du tri "à bulle" est la plus rapide à écrire pour les petits tableaux :
For i:=1 To 11 Do For j:=i+1 To 12 Do if t[i]>t[j] Then
Begin 
Temp:=t[i];t[i]:=t[j];t[j]:=Temp;
end;

Attention cette méthode est très longue sur de gros tableaux. Dans le cas d'un gros tableau il faut utiliser la méthode "Quick Sort" qui est très rapide mais plus longue à saisir. Mais si un jour tu as un cours sur la récursivité, alors tu veras sans doute cette méthode de tri.

--- :sleepy)  Nono du Moulin  :sleepy) ---

RM50Man · Answer

en ecole d'ingenieur vous faites du turbo pascal!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Turbo pascal

2 réponses

Votre réponse

Discussions similaires