1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
const
N : Integer = 10; (* taille d'une ligne/colonne de ta matrice *)
P : Integer = 8; (* taille du tableau de frequence *)
type (* Définition des types utilisés *)
T_Matrice = array[1..N, 1..N] of Integer
T_Frequence = array[1..P] of Integer
var
i, j, valeur : Integer;
matrice : T_Matrice;
frequence : T_Frequence;
begin
for i := 1 to P do
frequence[i] := 0; (* initialisation du tableau de frequence *)
for i := 0 to N do (* boucle de remplissage de la matrice *)
for j := 0 to N do
begin
(* Demander les valeurs à l'utilisateur et les rentrer dans la matrice *)
if (valeur >= 1) and (valeur <= 8) then (* Si la valeur est entre 1 et 8, la placer dans le tableau de frequence à l'indice correspondant *)
frequence[valeur] := frequence[valeur]+1;
end;
(* boucle d'affichage de la matrice *)
(* boucle d'affichage des frequences *)
end. |
Partager