Discussion :

[Aenigma]

Bonsoir bonsoir..

j'aimerais savoir comment faire pour garder la valeur d'une variable globale utilisée dans une procédure.

je m'explique: j'initialise une variable x au début de mon prog et je crée une procédure nécéssitant la valeur d'une variable éxtérieure, ici, ma variable x ( procédure ma_proc (var1:type), puis je l'utilise dans le prog principal ma_proc(x); ). En fait, j'ai créé une procédure qui modifie la valeur de x, et cette valeur, j'aimerais bien la récuperer dans mon prog principal, apres l'execution de cette procédure..

merci bien d'av,

+

[M.Dlb]

Hé bien, après l'appel à ta_proc(x) , x aura la valeur que ta_proc() lui a assignée.

Code :

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

1
2
3
4
5
x := 1;
ta_proc(x);  { ta_proc() multipliue le paramètre par 2 }
...
 
{ ici x vaut 2 et non plus 1 }

[Aenigma]

oui mais non en fait, .. je pensais que ça fonctionnait comme cela aussi, ça me paraissait effectivement tres logique aussi.. mais ça fonctionne pas ^^ .. j'ai peut-être fais une bête erreur dans mon script mais je ne pense pas, l'ayant relu qques fois avec attention...

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Program cryptage;
uses crt;
var word1,code1 : string;
    i : integer;
    char_ : char;
const alpha=['a'..'z'];
      num=['0'..'9'];
procedure enterword(word0:string);
	 begin
	      word0:='';
	      repeat
	  	    char_:=readkey;
	  	    if char_ in alpha then begin
	  	      write(char_);
	  	      word0:=word0+char_;
	  	    end;
	      until (ord(char_)=13) and (word0<>'');
	      writeln(word0);
	end;
procedure entercode(word0,code0:string);
         begin 
              code0:='';
              for i:=1 to length(word0) do begin
                 repeat 
                       char_:=readkey;
                 until char_ in num;
                 write(char_);
                 code0:=code0+char_;
              end;
              writeln;
         end;
Begin
     clrscr;
     writeln(word1);
     writeln('enterword');
     enterword(word1);
     writeln(word1);
     writeln('entercode');
     entercode(word1,code1);
     readkey;
End.

voilou c'est un simple début de prog, j'ai mis qques writeln pour être sur que c'était éffectivement ce que j'ai expliqué le problème: càd que ma varible word1 est toujours vide apres l'execution de ma proc enterword..

so...

[j.p.mignot]

Evidement!
la routine ne enterword déclare pas son paramètre comme variable. Elle restitue donc sa valeur d'origine en sortie!
il faut déclarer

Code :

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

1
2
 
procédure enterword(var word0:string);

ou alors utiliser le variable globale dans enterword sans paramètre
on change alors la variable globale en y faisant un accès directe

[Tuxico]

ben si 'jai bien compris tu dois simplement rajouter un 'var' devant tes variables dans l'en tetede la procédure sinon la modification n'a lieu qu'a l interieur de la procédure et les variables gardent leurs valeurs intiales en dehors ^^

en gros le var écrase la valeur quand il y amodifcation tandis que si tu ne mets pas de var, la procedure prend une copie de la valeur des variables passées en paramètre et modifie cette copie qui est affacée a la fin dl aprocédure

[Aenigma]

hmmm, je crois comprendre ce que vous voulez dire mais en fait, le truc c'est que j'aimerais utiliser ma procédure plusieurs fois avec un nombre illimité de word possible et qu'ils puissent tous être modifié et sauvegardés..

bon, ça je pourrais le faire avec une fonction mais avec une procédure je pourrais (si j'arrivais à faire ce que je viens de dire) modifier plusieurs variables d'un coup au lieu de ne retourner qu'une valeur grace à la fonction.

soo..

[Tuxico]

alors soit tu mets un var devant chaque 'word' nécéssaire
soit tu utilises le résultat de chaque word dans la procédure meme et pas en dehors comme ca cela peut etre une vazriable locale sans var ^^

[j.p.mignot]

C'EST FACILE !!!
par exemple le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var t : textfile;
Procedure lire_n_lignes( n : integer);
var i : integer; s : string;
   begin
   for i:=1 to n do 
      readln(t ,s);
   end;
begin
assign(t,'my_file.txt');
reset(t);
lire_n_ligne(4);
close(t);
end.

On ne passe pas n comme variable : Cela devient un "paramètre " de la routine appelée. Le compilateur va créer en local un integer qu'il va charger avec la valeur n et ne va par toucher à la valeur de l'appelant. Cela permet de passer des valeurs sans variable comme dans cet exemple 4. On aurait pu aussi déclarer un integer j faire j:=4; et appeler lit_n_ligbes(j);

par contre le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var t : textfile;
Procedure lit_string( var S : string );
   begin
   readln(t,s);
   end;
var Name : String;
begin
assign(t,'My_file.txt');
reset(t);
lit_string(Name);
 
close(t);
end.

permet d'accéder à Name depuis l'appelant.
Ici il serait impossible d'utiliser lit_string('toto');
le compilateur réclame que la variable soit décrite ailleurs et, à travers l'information "var" on passe à la routine l'adresse où il faut écrire le résultat dans le codage correspondant au type, record, ... de la variable.
Ici il n'y a plus création d'un buffer dans la routine appelée mais accès direct via l'adresse transmise à la variable. Cela implique qu'elle sera changée.
On a la même philosophie en C. Pour changer une valeur il faut la passer via un pointer, si non cela devient un paramètre de la routine appelée et sa valeur n'est pas affectée en retour

[Tuxico]

waip c'est ce que je disais en plus complet

[Aenigma]

merci à vous !