Recherche des exercices corrigés
Résolu/Fermé
A voir également:
- Recherche des exercices corrigés
- Recherche musique - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Google recherche par image - Guide
- Recherche adresse - Guide
- Copains d'avant recherche par nom ✓ - Forum Réseaux sociaux
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
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
Bonjour,
Je cherche des exercices corrigés sur l'analyse statistique bayésienne (théorie de la décision bayésienne)
Et MERCI.
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.
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 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
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
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
