en pascal comment renvoyer un type enregistrement avec une fonction ? - Programmation
Marsh Posté le 18-11-2001 à 17:24:09
je voudrais pouvoir faire ça
type graphe = record
nb_sommets : integer;
aretes : array[Tmin..Tmax, Tmin..Tmax] of boolean;
end;
type relation = function(x,y : integer):boolean;
function relation_K(x,y : integer):boolean;
begin
relation_K:=not(x=y);
end; { relation_K }
function defini_graphe(R : relation;nb_sommets:integer):graphe;
var x,y : integer;
begin
defini_graphe.nb_sommets:=nb_sommets;
for x:=1 to nb_sommets do
for y:=1 to nb_sommets do
begin
defini_graphe.aretes[x,y]:=R(x,y);
end;
end; { defini_graphe }
var G : graphe;
begin
G:=defini_graphe(relation_K,6);
end;
Marsh Posté le 18-11-2001 à 17:26:43
ah oui je vois PAS comment faire avec des pointeurs.
[edtdd]--Message édité par karim63--[/edtdd]
Marsh Posté le 18-11-2001 à 17:11:33
par exemple un type avec un enregistrement, ou un tableau.
[edtdd]--Message édité par karim63--[/edtdd]