A voir également:
- Programmation solution
- Application de programmation - Guide
- Pack solution - Télécharger - Divers Utilitaires
- Mots entre amis messenger solution ✓ - Forum jeux en ligne
- My sims ds solution ✓ - Forum Jeux vidéo
- Solution rébus image ✓ - Forum Loisirs / Divertissements
2 réponses
Nabla's
Messages postés
18203
Date d'inscription
mercredi 4 juin 2008
Statut
Contributeur
Dernière intervention
28 avril 2014
3 193
5 févr. 2010 à 10:01
5 févr. 2010 à 10:01
CCM ne fais pas les exos à cotre place. Presente un debut de travail si tu veux de l'aide
0/début procedure tri_shell (var t:tab ; n:entier)
1/ tant que (p<>1) faire
p<--p DIV 3
si p=1 alors x<--1
sinon x <-- n - (n MOD p) +1
finsi
pour i de x à n faire
aux <--t[i]
j <--i
tant que (j<p) et (t[j]<aux) faire
t[j]<--t[j-p]
j<--j-p
fin tant que
t[j]<--aux
fin pour
2/fin procedure tri shell.
les objets (p et aux son des entiers)
traduire ce procédure de la version itérative vers la version récursive
1/ tant que (p<>1) faire
p<--p DIV 3
si p=1 alors x<--1
sinon x <-- n - (n MOD p) +1
finsi
pour i de x à n faire
aux <--t[i]
j <--i
tant que (j<p) et (t[j]<aux) faire
t[j]<--t[j-p]
j<--j-p
fin tant que
t[j]<--aux
fin pour
2/fin procedure tri shell.
les objets (p et aux son des entiers)
traduire ce procédure de la version itérative vers la version récursive