en pascal comment renvoyer un type enregistrement avec une fonction ?

en pascal comment renvoyer un type enregistrement avec une fonction ? - Programmation

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]

Reply

Marsh Posté le 18-11-2001 à 17:11:33   

Reply

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;

Reply

Marsh Posté le 18-11-2001 à 17:26:43    

ah oui je vois PAS  :D comment faire avec des pointeurs.

 

[edtdd]--Message édité par karim63--[/edtdd]

Reply

Marsh Posté le 18-11-2001 à 17:52:32    

un ptit up pour corriger mon erreur  :p

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed