Discussion :

[nadirmabed]

Bonjour,

je voudrais transformer cet algorithme pascal en algorithme simple et que vous m'expliquiez sa simulation

Code pascal :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program tri(input,output);
uses wincrt;
const m=5;
var t:array[1..m] of real;
i,j,rangmin:integer;
min:real;
begin
writeln('introduisezz les element du tableau');
for i:=1 to m do
readln(t[i]);
for i:=1 to m do
begin min:=t[i];rangmin:=i;
for j:=i+1 to m do
begin
if t[j]<min then
begin 
min:=t[j];
rangmin:=j;
end;
end;
t[rangmin]:=t[i];
t[i]:=min;
end;
for i:=1 to m do
writeln(t[i]:5:2);
end.

voila mon algorithme
algorithme tri

constant  m=5;
variable t:tableau[1..m] en reel
i,j,rangmin:entier
min:reel
debut
ecrire('introduisezz les element du tableau')
pour i de1 a m faire
lire(t[i]);
pour i de1 a m faire
debut min recoit t[i];rangmin  recoit i;
pour j de i+1 a m faire
debut
si t[j]<min alors
debut 
min   recoit t[j];
rangmin  recoit  j;
finpour
fin pour
t[rangmin]  recoit  t[i];
t[i]  recoit min;
fin pour
for i:=1 to m do
ecrire(t[i]);
fin.

la simulation

i	j	min	rangmin

les photos



Merci

[nadirmabed]

çayait j'ai trouve la solution avec algobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
 
AlgoBox : sanstitre
program tri(input,output
 
Code de l'algorithme
1   VARIABLES
2     i EST_DU_TYPE NOMBRE
3     j EST_DU_TYPE NOMBRE
4     rangmin EST_DU_TYPE NOMBRE
5     min EST_DU_TYPE NOMBRE
6     t EST_DU_TYPE LISTE
7   DEBUT_ALGORITHME
8     AFFICHER "introduisezz les element du tableau"
9     POUR i ALLANT_DE 1 A 5
10      DEBUT_POUR
11      LIRE t[i]
12      FIN_POUR
13    POUR i ALLANT_DE 1 A 5
14      DEBUT_POUR
15      min PREND_LA_VALEUR t[i]
16      rangmin PREND_LA_VALEUR i
17      POUR j ALLANT_DE i+1 A 5
18        DEBUT_POUR
19        SI (t[j]<min) ALORS
20          DEBUT_SI
21          min PREND_LA_VALEUR t[j]
22          rangmin PREND_LA_VALEUR j
23          FIN_SI
24        FIN_POUR
25      t[rangmin] PREND_LA_VALEUR t[i]
26      t[i] PREND_LA_VALEUR min
27      FIN_POUR
28    
29    POUR i ALLANT_DE 1 A 5
30      DEBUT_POUR
31      AFFICHER t[i]
32      FIN_POUR
33  FIN_ALGORITHME