4.8 KiB
{Fonction 1 R : copier les élements d’un tableau d’entiers dans un autre. E : tab_in un tableau d'entiers, taille_pratique_in un entier, taille_réele_out E/S : tab_out un tableau d'entiers S : Vide } copy : une fonction( tab_in : un tableau d'entiers, taille_pratique_in : un entier, tab_out : un tableau d'entiers, taille_réele_out : un entier ) -> vide Lexique : i : un entier Algorithme : Début Si taille_pratique_in <= taille_réele_out Alors i <- 0 Tant que i < taille_pratique_in Faire tab_out[i] <- tab_in[i] i <- i + 1 Fin
{Fonction 2 R : afficher les élements d’un tableau d’entiers sous la forme : {e1,e2,e3,...,en} E : tab un tableau d'entiers, taille_pratique un entier S : Vide } afficher_tableau : une fonction( tab : un tableau d'entiers, taille_pratique : un entier ) -> vide Lexique : i : un entier Algorithme : Début i <- 0 Tant que i < taille Faire Ecrire(tab[i], ",") {On aura une virgule à la fin, mais l'enlever complexifierai inutilemment l'algorithme} i <- i + 1 Fin
{Fonction 3 R : tester si deux tableaux sont identiques E : tab1 un tableau d'entiers, taille_pratique_1 un entier, tab2 un tableau d'entiers, taille_pratique_2 un entier S : vrai si les 2 tableau sont identiques } sont_identiques : une fonction( tab1 : un tableau d'entiers, tab2 : un tableau d'entiers, taille_pratique_1 : un entier, taille_pratique_2 : un entier ) -> un booléen Lexique : i : un entier Algorithme : Début Si taille_pratique_1 != taille_pratique_2 Alors Retourner(Faux) i <- 0 Tant que i < taille_pratique_1 Faire Si tab1[i] != tab2[i]: Alors Retourner(Faux) Retourner(Vrai) Fin
{Fonction 4 R : calculer la moyenne des élements d’un tableau E : tab un tableau d'entiers, taille_pratique un entier S : un réel : la moyenne de tab } moyenne_tableau : une fonction( tab : un tableau de réels, taille_pratique : un entier ) -> un réel Lexique : i : un entier somme : un réel Algorithme : Début i <- 0 somme <- 0 Tant Que i < taille_pratique Faire somme <- somme + tab[i] Retourner(somme/taille_pratique) Fin
{Fonction 5 R : remplacer les valeurs d’un tableau par sa somme cumulée E : tab le tableau d'entiers, taille_pratique un entier E/S : tab le tableau de réels S : vide } somme_cumulee : une fonction( tab : un tableau d'entiers taille_pratique : un entier ) -> vide Lexique : i : un entier j : un entier somme : un réel Algorithme : Début i <- 0 Tant Que i < taille_pratique j <- 0 somme <- 0 Tant Que j <= i Faire somme <- somme + tab[j] j <- j + 1 tab[i] <- somme
i <- i + 1
Fin
Lexique : Saisie_entiers : une fonction(tab: un tableau d'entiers, taille_réele : un entier) -> un entier copy : une fonction(tab_in : un tableau d'entiers,taille_pratique_in : un entier,tab_out : un tableau d'entiers, taille_réele_out : un entier) -> vide afficher_tableau : une fonction(tab : un tableau d'entiers, taille_pratique : un entier ) -> vide sont_identiques : une fonction(tab1 : un tableau d'entiers, tab2 : un tableau d'entiers, taille_pratique_1 : un entier, taille_pratique_2 : un entier) -> un booléen moyenne_tableau : une fonction(tab : un tableau d'entiers, taille_pratique : un entier) -> un réel somme_cumulee : une fonction(tab : un tableau d'entiers, taille_pratique : un entier) -> vide
# Fonctions 1, 2, 3, 4 et 5
tab1 : un tableau de 1000 entiers
taille_réele_1 : la constante entière := 1000
taille_pratique_1 : un entier
tab1_copie : un tableau de 1000 entiers
taille_réele_copie_1 : la constante entière := 1000
tab2 : un tableau de 1000 entiers
taille_réele_2 : la constante entière := 1000
taille_pratique_2 : un entier
Algorithme : Début taille_pratique_1 <- Saisie_entiers(tab1) taille_pratique_copie_1 <- taille_pratique_1 copy(tab1, taille_pratique_1, tab1_copie, taille_réele_copie_1) afficher_tableau(tab1_copie, taille_pratique_copie_1)
taille_pratique_2 <- Saisie_entiers(tab2)
Ecrire(
"tab1 et tab2 sont identiques : ",
sont_identiques(tab1, tab2, taille_pratique_1, taille_pratique_2)
)
Ecrire("La moyenne de tab1 est : ", moyenne_tableau(tab1, taille_pratique_1))
somme_cumulee(tab1_copie, taille_pratique_copie_1)
afficher_tableau(tab1_copie, taille_pratique_copie_1)
Fin