Tous les billets

Ici une matrice finale de 4x4 depuis un vecteur de 16 éléments. Deux solutions différentes :
- une imbrication de boucles, permettant d'avoir un accès aux deux dimensions de la matrice avec une variable locale incrémentée (pas de 1) ;
- une seule boucle, dont on applique au numéro de l'itération une division euclidienne (quotient et reste forment les deux dimensions de la matrice).

nb : la même matrice est réutilisée, ce qui ne serait probablement pas le cas dans ...

Ajout de quelques Questions/Réponses supplémentaires à la FAQ Free Pascal :

• Comment s'assurer qu'une instance de classe sera toujours libérée ?
• Qu'est-ce qu'un champ ou un attribut d'une classe en Pascal ?
• Qu'est-ce qu'une propriété en Pascal ?
• Comment avoir accès à la Programmation Orientée Objet avec Free Pascal ?
• Où peut-on déclarer une classe ?

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    'Fonction qui récupere un vecteur
Function ExtraireVecteur(ByVal Matrice As Variant, Ligne As Long, OneColonne As Boolean) As Variant
    'defintion variables
    Dim i As Long, j As Long
    Dim VaR As Variant
        'extraction
    If OneColonne = False Then
        ReDim VaR(UBound(Matrice, 2))
    End If
    For i = 1 To UBound(Matrice, 1)
        If i = Ligne Then
            If OneColonne = False Then

...