A voir également:
- Matrice
- Excel vous ne pouvez pas modifier une partie de matrice ✓ - Forum Excel
- Vous ne pouvez pas modifier une partie de matrice - Forum Excel
- Inverse matrice excel ✓ - Forum Excel
- Calculatrice matrice - Télécharger - Calcul & Conversion
- Exemple matrice de flux firewall excel - Forum Réseau
1 réponse
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;
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;
