Algorithmes (Transcription numérique)
1. Algorithme : Discriminant
VAR
a, b, c, Dis, x1, x2 : Entier
DEBUT
Ecrire ("Entrer les nombres a, b, c")
Lire (a, b, c)
Dis ← (b * b - 4 * a * c)
Si (Dis < 0) Alors
DEBUT
Ecrire ("Pas de solution")
FIN
Sinon
DEBUT
Si (Dis = 0) Alors
DEBUT
x1 ← (-b) / (2 * a)
Ecrire ("ax² + bx + c = 0 a pour zéro x = ", x1)
FIN
Sinon
DEBUT
x1 ← (-b - √Dis) / (2 * a)
x2 ← (-b + √Dis) / (2 * a)
Ecrire ("ax² + bx + c = 0 a pour zéros x1 = ", x1, " et x2 = ", x2)
FIN
FIN
FIN
2. Algorithme : Vérifie mot du premier groupe
DEBUT
i←i+1
Part1 ← 1
Part2 ← (Taille - 1)
Car1 ← (Rang de Part1 du mot)
Car2 ← (Rang de Part2 du mot)
Si (Car1 = "e" ET Car2 = "r") Alors
DEBUT
Trouve ← 1
FIN
Sinon
DEBUT
Trouve ← 0
FIN
FIN
Si (Trouve = 1) Alors
DEBUT
Ecrire ("mot n'est pas un argument")
FIN
FIN
2. Algorithme : Conjugaison verbe du 1er groupe
VAR
Verbe, Radicol : Caractère
Nombre : Entier
DEBUT
Ecrire ("Entrez un verbe du premier groupe")
Lire (Verbe)
Nombre ← (Longueur du verbe - 2)
Radicol ← (Verbe sans les 2 derniers caractères)
Ecrire ("Je ", Radicol, "e")
Ecrire ("Tu ", Radicol, "es")
Ecrire ("Il/Elle ", Radicol, "e")
Ecrire ("Nous ", Radicol, "ons")
Ecrire ("Vous ", Radicol, "ez")
Ecrire ("Ils/Elles ", Radicol, "ent")
FIN
3. ALGORITHME : ANAGRAME
VAR
mod, i, part1, part2, Taille, Trouve : ENTIER
Cmax : ENTIER
Car1, Car2 : Caractère
DEBUT
ECRIRE : ("Bonjour l'algorithme détermine si un mot est un anagramme")
ECRIRE : ("Entrez le mot")
LIRE : (mot)
Taille <- (Longueur(mot))
mod <- (Taille mod 2)
i <- 1
part1 <- 0
part2 <- (Taille - 1)
Car1 <- (Rang de Part1)
Car2 <- (Rang de Part2)
Trouve <- 1
Si (Car1 <> Car2) Alors
Début
Ecrire (mot n'est pas un anagramme)
Fin;
Sinon
Début
Tantque (Car1 = Car2 ET i <= (Taille div 2)) Faire
Début
i <- (i + 1)
part1 <- (i - 1)
part2 <- (Taille - i)
Car1 <- (Rang de Part1)
Car2 <- (Rang de Part2)
Si (Car1 <> Car2) Alors
Début
Trouve <- 1
Fin;
Sinon
Début
Trouve <- 0
Fin;
Fin;
Fin Tantque;
Si (Trouve = 1) Alors
Début
Ecrire (mot n'est pas un anagramme)
Fin;
Fin;
Fin;
FIN
