First commit

This commit is contained in:
2026-04-08 20:11:20 +02:00
parent 10fe469c10
commit 79f15536a1
861 changed files with 135610 additions and 0 deletions

View File

@@ -0,0 +1,44 @@
{
R : Permet d'ajouter une valeur à un tableau, dans l'ordre croissant
E/S : tab 1 tableau de réels
S : Vide
}
Saisie_ordonnee : une fonction (tab : un tableau de réels) -> vide
Lexique {Local à Saisie_ordonnee}
nombre : un réel
Algorithme {Local à Saisie_ordonnee}
Début
Ecrire("Saisir un réel")
lire(nombre)
tab[0] <- nombre
Ecrire("Saisir un réel")
lire(nombre)
Si nombre < tab[0]:
Faire tab[1] <- tab[0]
tab[0] <- nombre
Sinon tab[1] <- nombre
Ecrire("Saisir un réel")
lire(nombre)
Si nombre > tab[1]:
Faire tab[2] <- nombre
Sinon
tab[2] <- tab[1]
Si nombre > tab[0]:
tab[1] <- nombre
Sinon
tab[1] <- tab[0]
tab[0] <- nombre
Lexique {Principal}
tab : un tableau de 3 réel
i : un entier
Algorithme {Principal}
Début
Saisie_ordonnee(tab)
Faire tant que n < 2
Ecrire(tab[i])
i <- i + 1
Fin