Discussion :

[eliane04]

j'ai besoin de convertir ce programme camel en pascal
je n'ai aucune notion de camel j'aurai donc besoin d'un peu d'aide. c'est la question 11 du sujet d'informatique des mines 2003:

Code :

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

1
2
3
4
5
6
7
8
9
let coloration G = let couleurs = make_vect G.n 0 in  
          for i = 0 to G.n-1 do  
              let vois = voisins G i in 
                   let v= voisins_plus_petits i vois in 
                     let c = map(fun x -> couleurs.(x)) v in  
                      couleurs.(i)<- premier_choix 1 c  
 
done; 
couleurs;

la fonction voisins qui renvoi la liste triée par ordre croissant des voisins du sommet s dans le graphe G

Code :

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

1
2
3
4
5
6
7
let voisins G s = 
let rec aux accu= fonction 
  |[]-> accu 
  |t::q when t.a = s ->aux (insere accu t.b) q 
  |t::q when t.b = s -> aux (insere accu t.a) q 
   |_::q -> aux accu q 
in aux [] G.A;;

la fontion insere telle que si L est une liste
d'entier distinc trié par ordre croissan et s keskonque inser L s renvoi la liste d(entier obtenu en inseran s dans L dans lordre croissanbt si s ne figurait pas ds L.

la fonction voisins_plus_petit qui extrait de la liste de tous les voisins ceux qui sont de numero inferieur strictement à i.

Code :

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

1
2
3
let rec voisins_plus_petits i=function 
|t::q when t<i -> t:voisins_plus_peits i q) 
|_-> [];;

la fonction premier choix telle que premier choix 1 q renvoi le premier numero de couleur qui ne fait pas partir de la liste q.

Code :

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

1
2
3
let rec premier_choix i = function 
|q when mem i q -> premier_choix (i+1)  q 
|_->i;;

je n'ai pas les types en camel mais en pascal:

Code :

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

1
2
3
4
5
6
7
8
9
10
type  Arete = record 
        a: integer; 
        b:integer; 
       end; 
type Graphe = record 
      n: integer; 
      nb_aretes:integer; 
      A:array[0.. max_arretes-1]of arete; 
 
type couleurs = array(0..max sommet-1] of integer;

merci beaucoup d'avance je doit présenter le tipe très bientot, c'est à dire lundi

[Tuxico]

euh pourquoi ne pas demander qu'on t'explique le code sur la partie camel du forum et puis la convertir en pascal?

edit: non je n'ai rien dit il n'y a aps de forums consacrés au camel . Mais seulement pas de multipost stp on s'y retrouve pas sinon

[Eric Sigoillot]

Bonjour,

Pas d'indentation, pas de balise code, le code source est donc illisible. Donc on ne se cassera pas la tête à t'aider si tu ne fais pas d'efforts pour nous y inciter.

Sinon, bonne chance pour tes oraux, peut-être qu'on se croisera l'année prochaine aux Mines de Sainté

@++

PS: Ton adresse mail ne sera utilisée par aucun d'entre nous (on est sur un forum, pas sur une mailing), par contre les robots de spam vont se faire un plaisir de récupérer cette adresse pour te bombarder de mails. Mieux vaut pour toi éditer ton message et la supprimer au plus vite...

[eliane04]

en fait j'y est re réfléchie
l'algorithme en français devrait donner quelque chose comme ça:

c(1)<- 1 pour i>1 on examine la liste d couleurs c(j) où j<i et (j,i) appartenan à l'ensemble des arretes de G en le triant par insertion.
On effecte alors à c(i) la plus petite valeur disponible.