{------------------------------------------------------------------------------} {Donne les numéros de colonne et de ligne d'un numéro d'ordre de cellule d'une matrice de 256 x 256 Maximum. Entrées : LN = Nb de lignes de la matrice CN = Nb de colonnes de la matrice N = Numéro d'ordre de la cellule Sortie : L = Ligne de la cellule à rechercher C = Colonne de la cellule à rechercher Résultat: = False si erreur Limite : Le produit L x C < 65 537, soit 256 x 256 {------------------------------------------------------------------------------} Function TForm1.FLCNcelMat(N,LM,CM: Word;Var L,C : Byte) :Boolean; Begin Result := False; if LM*CM < 65537 then begin Result := True; L := N div CM +1; C := N mod CM; if C = 0 then C := CM; if N mod LM = 0 then L := L -1; end; end;
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.