bonjour,
pouvez vous me traduire ce programme de C en pascal svp
parce que je connais rien en C
voici le programme:
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
void tri_insertion_lst(adr_comp *prem)
 {
  /*position testée, précédent,dernier plus petit*/
  adr_comp pt,prec,dpp;
 
  for(prec=*prem,pt=(*prem)->suiv;pt!=NULL;prec=pt,pt=pt->suiv)
   if(prec->val>pt->val) /*inutile de chercher si en bonne
position */
   {
    prec->suiv=pt->suiv;
    if((*prem)->val > pt->val) /*cas particulier du premier*/
     {
      pt->suiv=*prem;
      *prem=pt;
     }
    else
     {
      dpp=*prem;
      while(dpp->suiv->val <= pt->val)dpp=dpp->suiv;
 /* on est sur d'en trouver un, vu les tests effectués plus haut */
      pt->suiv=dpp->suiv;
      dpp->suiv=pt;
     }
   }
 }
merci d avance.