voila je veux 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 }
type Pgraphe = ^graphe;
var Pvaleur_defini_graphe : Pgraphe;
function defini_graphe(R : relation ; nb_sommets:integer): pointer;
var x,y : integer;
begin
Pvaleur_defini_graphe^.nb_sommets:=nb_sommets;
for x:=1 to nb_sommets do
for y:=1 to nb_sommets do
begin
Pvaleur_defini_graphe^.aretes[x,y]:=R(x,y);
end;
defini_graphe:=Pvaleur_defini_graphe;
end;
var G : graphe;
begin
new(Pvaleur_defini_graphe);
G:=defini_graphe(relation_K,6)^;
end.
mais le compilateur me repond "wrong amount of parameters specified" sur l'avant derniere ligne.
Au fait c'est du Pascal
[edtdd]--Message édité par karim63--[/edtdd]