Discussion :

[paskal++]

salut,
pourquoi pascal n'accepte pas cette écriture

Code :

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

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 :

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

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

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

Code :

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

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

merci.

[droggo]

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 :

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

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

[darrylsite]

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

Code :

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

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 :

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

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 :

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

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 :

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

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
//...

[paskal++]

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

Code :

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

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

merci bcp