Recherche des exercices corrigés
Résolu/Fermé
Djoo
-
matt -
matt -
Bonjour,
Je cherche des exercices corrigés sur la récursivité + algorithmes récurrents + algorithmes arithmétiques + algorithmes de tri(tri par insertion, tri Shell, tri par fusion).
Et MERCI.
Je cherche des exercices corrigés sur la récursivité + algorithmes récurrents + algorithmes arithmétiques + algorithmes de tri(tri par insertion, tri Shell, tri par fusion).
Et MERCI.
Configuration: Windows XP Internet Explorer 6.0
7 réponses
-
program tri_fusion;
uses wincrt;
type
tab=array[1..20] of integer;
var
t,S:tab;
n,i:integer;
procedure saisie(var v:tab;var n:integer);
begin
repeat
writeln(' Donner n');
readln(n);
until n> 2;
for i:= 1 to n do
begin
writeln('t[',i,']');
readln(t[i] );
end;
end;
procedure Fusionner(var T:tab;g,m,d:integer);
var
i,j,k:integer;
r:tab;
begin
for i := g to m do
S[i] := t[i] ;
for j := m+1 to d do
S[j]:= T[d+m+1-j];
i :=g;
j :=d ;
k :=g;
while (i<=m) and (k<=d) do
begin
if S[i]<S[j] then
begin
T[k] := S[i] ;
i :=i+1
end
else
begin
T[k] := S[j] ;
j := j-1;
end;
k := k+1;
end;
end;
procedure tri_Fusion(var T:tab;d,f:integer);
var
m:integer;
begin
if d<>f then
begin
m := (d+f) div 2 ;
tri_Fusion(T,d,m);
tri_Fusion(T,m+1,f);
Fusionner(T,d,m,f);
end;
end;
procedure affiche(v:tab;x:integer);
begin
for i:=1 to n do
write(t[i],'|');
end;
begin
saisie(t,n);
tri_fusion(t,1,n);
affiche(t,n);
end.
/*******************************************/
procédure récursive tri par insertion :
0) procedure tri_insertion(var t:tab;d,f:entier)
1) Si(d <= f)alors
decaler(d,t)
tri_ins(t,d+1,f)
finsi
2) fin tri_insertion
Objets Type/nature
decaler procédure
0) procedure decaler(p:entier;var t:tab)
1) auxكt[p]
jكp-1
si (aux>t[j])et(j>=1) alors
t[j+1]كt[j]
jكj-1
t[j+1]كaux
decaler(p-1,t)
finsi
2) fin decaler
T.D.O
Objets Type/nature
j, aux entier
Leur type nécessite de type des éléments du tableau
procédure récursive de tri Shell :
0)Procedure Tri_Shell (Var t: TAB; n,h : entier)
Si( h > 0)alors
Si(n > h) alors
Tri_Shell(t,n - h,h)
Si(t[n] < t[n - h])alors
Auxك t[n]
i ك n
Repeter
t[i] ك t[i - h]
i ك i - h
jusqu’a (i = h) Ou (aux > t[i - h])
t[i] ك aux
finsi
finsi
Tri_Shell(t,n,h Div 3)
finsi
2) Fin tri_shell
Objets Type/nature
I, aux Entier -
Tout est ici sur les algorithmes
-
Bonjour,
Je cherche des exercices corrigés sur l'analyse statistique bayésienne (théorie de la décision bayésienne)
Et MERCI. -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bsr, je cherche des exercices corrigés de théorie de la décision, series temporelles et economértie(modéles dynamiques) merci.
-
je cherche ds ex-corrigés sur les alogorithmes arithmétique et d'approximation. merci d'avace
-
bonjour§
svp aidez moi je doi préparer un exam.
je voudrais des cours et exercices corrigés en gestion de trésorerie et en décision financière
Merci-
SVP ANDREA, je cherche également des exercices corrigés de la gestion de trésorerie, donc si vous les avez déjà, pouvez vous me les passez
- Salut, je peux te donner un exercice qui cherche sin(x):
sin(x)=x+x3/3!+x5/5!+x7/7!+.......
la solution est la suivante:
0)fonction calcul_sin(x:réel):réel
1)s2←x ;i←3
répeter
s1←s2
s2←s1+fn puissance(x,i)/fn factorielle(i)
i←i+2
jusqu'a(abs(s2-s1)<=epsilon)
2) calcul_sin←s2
3) fin calcul_sin
algorithme de la fonction puissance:
0) fonction puissance(a,b:entier):entier
1)p←1
pour i de 1 à b faire
p←p*a
fin pour
2) puissance←p
3) fin puissance
algorithme de la fonction factorielle:
0) fonction factorielle(n:entier):entier
1)f←1
pour i de 2 à n faire
f←f*i
fin pour
2) factorielle←f
3) fin factorielle
-