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;