{ Type agrege de stockage d'un echantillon    }
{ de poids pour 1000 fraises Tagada           }
  
structure echantillonFraises
  entier numeroMachine <- 0
  chaine dateEchantillon <- "01/01/1901"
  reel [1000] poids
fin structure

{ Fonction de calcul et retour du pourcentage }
{ de fraises présentes dans un echantillon    }
{ qui ont un poids hors d'un intervalle       }
{ à bornes réelles [minimum,maximum]          }
{ ef : L'echantillonFraises analysé           }
{ minimum : La borne inférieure réelle        }
{           de l'intervalle de recherche      }
{ maximum : La borne supérieure réelle        }
{           de l'intervalle de recherche      }

réel fonction pourcentagePoidsHorsLimites(-> echantillonFraises ef,
                                          -> reel minimum,
                                          -> reel maximum)
  réel prctg
  entier i
  entier cpt
  cpt <- 0
  pour i de 0 à longueur(ef.poids)-1 faire
    si ( ( ef.poids[i] < minimum ) ou ( ef.poids[i] > maximum ) ) alors
      cpt <- cpt+1
    fsi
  fait
  prctg <- cpt/10.0
  retourner prctg
fin fonction

{ Fonction de calcul et retour de la valeur   }
{ médiane du poids des fraises présentes      }
{ dans un echantillon                         }
{ ef : L'echantillonFraises analysé           }

réel fonction medianePoids(-> echantillonFraises ef)
  réel mediane
  réel [] poidsTries
  entier indice
  poidsTries <- ensembleTrie(ef.poids)
  indice <- longueur(ef.poids)/2-1
  mediane <- (ef.poids[indice]+ef.poids[indice+1])/2.0
  retourner mediane
fin fonction

{ Fonction de génération et retour            }
{ du tableau de réels contenant les mêmes     }
{ valeurs qu'un tableau de réels "source",    }
{ mais ordonnées par ordre croissant          }
{ src : Le tableau de réels source            }

reel [] fonction ensembleTrie(-> reel [] src)
  ...
fin fonction