Matrice

Bonjour;;

si tu veux un exemple d'un programme en pascal en utilisant les matrice le voilà:

programme qui permetra de calculer le nombre de kilometres et la distance moyenne parcouru par un cycliste :

program Cyclo;

var tabKilom : Array[1..10] Of Real;
Total : Real;
maxKilom : Real;
minKilom : Real;
moyKilom : Real;
i : Integer;

begin
{Création d'une "base de données"}
for i := 1 To 10 do
begin
writeln('Kilometres parcouru durant la sortie N°', i);
readln(tabKilom[i]); {On affecte le résultat dans un tableau}
end;

{Détermination du nombre total de kilometres}
for i := 1 To 10 Do
Total := Total + tabKilom[i];

{Détermination de la plus grande distance}
For i := 1 To 10 Do
if tabKilom[i] > maxKilom Then maxKilom := tabKilom[i];

{Détermination de la plus petite ditance}
minKilom := maxKilom;
for i := 1 To 10 Do
If tabKilom[i] < minKilom Then minKilom := tabKilom[i];

{Détermination du nb de le distance moyenne}
moyKilom := Total / 10;

{Affichage du résultat}
writeln('Nombre de kilométre parcouru : ', Total);
writeln('Plus petite distance : ', minKilom);
writeln('Plus grande distance : ', maxKilom);
writeln('Distance moyenne : ', moyKilom);
end.

Salutations;