Passage de paramètres de type prédefini à une procédure

salut,
pourquoi pascal n'accepte pas cette écriture

Code:

---

1 2 3 4 5 6 7 8

procedure permuter_element_tableau(var x,y : string[2] ); var t : string; begin t := x ; x := y ; y := t ; end;

---

le problème c'est que j'ai défini un nouveau type

Code:

---

1 2	type tab_ch = array[1..10] of string[2];

---

cette entête n'est pas accepté non plus

Code:

---

1 2	procedure permuter_element_tableau(var x,y : string );

---

merci.

Nai,

Ça refuse ton code parce qu'il ne respecte pas la syntaxe du langage.

Parce qu'il faut définir des types, c'est à ça que ça sert.

Code:

---

1 2 3 4 5

type str2 = string[2];   tab_ch = array[1..10] of str2; ...

---

L'explication logique est qu'en pascal, si on definit par exemple les types suivants:

Code:

---

1 2 3 4

type tab1= array[1..2] of string; tab2= array[1..2] of string;

---

ces deux types sont bien differents. Consequence, on peut realiser l'affectation suivante :

Code:

---

1 2 3 4 5 6 7

var a:tab1; b:tab2; begin //... a:=b; //erreur type incompatible

---

Alors, si il arrive que tu declares une entete comme:

Code:

---

1 2	procedure permuter_element_tableau(var x,y : string[1..2] );

---

il serait alors impossible de trouver un type compatible avec le type specifier dans l'entete pour les raisons sus enoncées.

Ceci dit, pour passer un tableau en parametre il convient de specifier un type compatible dans l'entete. Ce qui paut se faire seulement de la maniere suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

type tableau= array[1..2] of string; var a, b : tableau;   procedure exemple(var x, y: tableau); //...   begin //... exemple(a,b); //a et b sont sont compatible avec l'entete specifier lors de la // creation de la procedure //...

---

merci pour vos réponses.
bravo droggo ça marche maintenant

Code:

---

1 2 3

ch = string[2]; tab_ch = array[1..10] of ch ;

---

merci bcp