Discussion :

[EpiTouille]

Bonjour,
Je cherche à renvoyé un record. J'ai vu que turbo pascal n'accepte que les types simples. Aurais-je moyen d'utiliser des pointers ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Type Tcoord = record
  x : integer;
  y : integer;
end;
 
type Pcoord = ^Tcoord;
 
function x : Pcoord
begin
...
...
end;

Je connais pas trop les pointers et tout ça.

Merci de vos réponses.

[M.Dlb]

Oui tu dois pouvoir t'en sortir avec les pointeurs.

Un bon article expliquant ça:
http://pascal.developpez.com/cours/ptrau/?page=page_16

[EpiTouille]

Merci j'ai réussi !

J'ai fait un ptit code, ça peut toujours aidé

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
 
 
program test;
 
uses crt;
 
 
type Tcoord = record
  x : integer;
  y : integer;
end;
type Pcoord = ^Tcoord;
 
var
  CoordApple : Tcoord;
 
function Aleatoire : Pcoord;
var
  PcoordApple : Pcoord;
begin
  randomize;
  new(PcoordApple);
  PcoordApple^.x := random(100);
  pcoordApple^.y := random(100);
 
  Aleatoire := PcoordApple;
end;
 
begin
  CoordApple := Aleatoire^; {Récupération du résultat de la fonction}
  writeln(coordApple.x,' ',coordApple.y);
end.

[batyann811]

Tu viens aussi de créer une belle fuite de mémoire. Le bloc alloué dans la fonction n'est libéré nulle part.

1ere solution : tu mémorises le pointeur et tu le libères quand il n'est plus necessaire.

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
 
program test;
 
uses heaptrc, crt;
 
 
type Tcoord = record
  x : integer;
  y : integer;
end;
type Pcoord = ^Tcoord;
 
var
  CoordApple : Pcoord;
 
function Aleatoire : Pcoord;
var
  PcoordApple : Pcoord;
begin
  new(PcoordApple); {allocation mémoire}
  PcoordApple^.x := random(100);
  pcoordApple^.y := random(100);
 
  Aleatoire := PcoordApple;
end;
 
begin
  randomize;  
  CoordApple := Aleatoire; {Récupération du résultat de la fonction}
  writeln(coordApple^.x,' ',coordApple^.y);
  dispose(CoordApple); {libération mémoire}
end.

2 eme solution bien plus propre à mon avis : tu utilises une procedure avec passage de parametre par référence

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
 
program test;
 
uses heaptrc, crt;
 
 
type Tcoord = record
  x : integer;
  y : integer;
end;
type Pcoord = ^Tcoord;
 
var
  CoordApple : Tcoord;
 
procedure Aleatoire(var Coord : Tcoord);
begin
  coord.x := random(100);
  coord.y := random(100);
end;
 
begin
  randomize;  
  Aleatoire(CoordApple);
  writeln(coordApple.x,' ',coordApple.y);
end.

Dernière chose : il est inutile d'appeler randomize à chaque fois que tu utilises random, il suffit de le faire une fois au début du programme.