Correction Algorithme ===> Partie 11

Corrigés des Exercices

Exercice 11.1

Voilà un début en douceur...

Fonction Sum(a, b, c, d, e)

Renvoyer a + b + c + d + e

FinFonction

Exercice 11.2

Fonction NbVoyelles(Mot en Caractère)

Variables i, nb en Numérique

Pour i ← 1 à Len(Mot)

Si Trouve("aeiouy", Mid(Mot, i, 1)) <> 0 Alors

nb ← nb + 1

FinSi

i suivant

Renvoyer nb

FinFonction

Exercice 11.3

Fonction Trouve(a, b)

Variable i en Numérique

Début

i ← 1

TantQue i < Len(a) - Len(b) et b <> Mid(a, i, Len(b))

i ← i + 1

FinTantQue

Si b <> Mid(a, i, Len(b)) Alors

Renvoyer 0

Sinon

Renvoyer i

FinFonction

Fonction ChoixDuMot

Quelques explications : on lit intégralement le fichier contenant la liste des mots. Au fur et à

mesure, on range ces mots dans le tableau Liste, qui est redimensionné à chaque tour de boucle. Un tirage aléatoire intervient alors, qui permet de renvoyer un des mots au hasard.

Fonction ChoixDuMot()

Tableau Liste() en Caractère

Variables Nbmots, Choisi en Numérique

Ouvrir "Dico.txt" sur 1 en Lecture

Nbmots ← -1

Tantque Non EOF(1)

Nbmots ← Nbmots + 1

Redim Liste(Nbmots)

LireFichier 1, Liste(Nbmots)

FinTantQue

Fermer 1

Choisi ← Ent(Alea() * Nbmots)

Renvoyer Liste(Choisi)

FinFonction

Fonction PartieFinie

On commence par vérifier le nombre de mauvaises réponses, motif de défaite. Ensuite, on regarde si la partie est gagnée, traitement qui s’apparente à une gestion de Flag : il suffit que l’une des lettres du mot à deviner n’ait pas été trouvée pour que la partie ne soit pas gagnée. La fonction aura besoin, comme arguments, du tableau Verif, de son nombre d’éléments et du nombre actuel de mauvaises réponses.

Fonction PartieFinie(t() en Booleen, n, x en Numérique)

Variables i, issue en Numerique

Si x = 10 Alors

Renvoyer 2

Sinon

Issue ← 1

Pour i ← 0 à n

Si Non t(i) Alors

Issue ← 0

FinSi

i suivant

Renvoyer Issue

FinSi

FinFonction

Procédure AffichageMot

Une même boucle nous permet de considérer une par une les lettres du mot à trouver (variable m), et de savoir si ces lettres ont été identifiées ou non.

Procédure AffichageMot(m en Caractère par Valeur, t() en Booléen par Valeur)

Variable Aff en Caractere

Variable i en Numerique

Aff ← ""

Pour i ← 0 à len(m) - 1

Si Non t(i) Alors

Aff ← Aff & "-"

Sinon

Aff ← Aff & Mid(mot, i + 1, 1)

FinSi

i suivant

Ecrire Aff

FinProcédure

Remarque : cette procédure aurait également pu être écrite sous la forme d'une fonction, qui

aurait renvoyé vers la procédure principale la chaîne de caractères Aff. L'écriture à l'écran de cette chaîne Aff aurait alors été faite par la procédure principale.

Voilà donc une situation où on peut assez indifféremment opter pour une sous-procédure ou pour

une fonction.

Procédure SaisieLettre

On vérifie que le signe entré (paramètre b) est bien une seule lettre, qui ne figure pas dans les

propositions précédemment effectuées (paramètre a)

Procédure SaisieLettre(a, b en Caractère par Référence)

Variable Correct en Booleen

Variable Alpha en Caractere

Début

Correct ← Faux

Alpha ← "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

TantQue Non Correct

Ecrire "Entrez la lettre proposée : "

Lire b

Si Trouve(alpha, b) = 0 Ou len(b) <> 1 Alors

Ecrire "Ce n’est pas une lettre !"

SinonSi Trouve(a, b) <> 0 Alors

Ecrire "Lettre déjà proposée !"

Sinon

Correct ← Vrai

a ← a & b

FinSi

FinTantQue

Fin Procédure

Procédure VerifLettre

Les paramètres se multiplient… L est la lettre proposée, t() le tableau de booléens, M le mot à

trouver et N le nombre de mauvaises propositions. Il n’y a pas de difficulté majeure dans cette

procédure : on examine les lettres de M une à une, et on en tire les conséquences. Le flag sert à

savoir si la lettre proposée faisait ou non partie du mot à deviner.

Procédure VerifLettre(L, M en Caractère par Valeur, t() en Booléen par Référence, N

en Numérique par Référence)

Variable Correct en Booleen

Début

Correct ← Faux

Pour i ← 1 à Len(M)

Si Mid(M, i, 1) = L Alors

Correct ← Vrai

T(i - 1) ← Vrai

FinSi

FinTantQue

Si Non Correct Alors

N ← N + 1

FinSi

Fin Procédure

Procédure Epilogue

Procédure Epilogue(M en Caractère par Valeur, N en Numérique par Valeur)

Début

Si N = 2 Alors

Ecrire "Une mauvaise proposition de trop… Partie terminée !"

Ecrire "Le mot à deviner était : ", M

Sinon

Ecrire "Bravo ! Vous avez trouvé !"

FinSi

Fin Procédure

Procédure Principale

Procédure Principale

Variables Lettre, Mot, Propos en Caractere

Variables g i, MovRep en Numérique

Tableau Verif() en Booleen

Début

Mot ← ChoixDuMot()

Propos ← ""

Lettre ← ""

Redim Verif(Len(Mot)-1)

Pour i ← 0 à Len(Mot)-1

Verif(i) ← Faux

i suivant

k ← 0

Tantque k = 0

AffichageMot(Mot, Verif())

SaisieLettre(Propos, Lettre)

VerifLettre(Lettre, Mot, Verif(), MovRep)

k ← PartieFinie(Verif(), len(mot), MovRep)

FinTantQue

Epilogue(Mot, k)

Fin

Lire...

Exercice Algorithme ===> PARTIE 11

PARTIE 11

Exercice 11.1

Écrivez une fonction qui renvoie la somme de cinq nombres fournis en argument.

Exercice 11.2

Écrivez une fonction qui renvoie le nombre de voyelles contenues dans une chaîne de caractères

passée en argument. Au passage, notez qu'une fonction a tout à fait le droit d'appeler une autre

fonction.

Exercice 11.3

Réécrivez la fonction Trouve, vue précédemment, à l’aide des fonctions Mid et Len (comme quoi, Trouve, à la différence de Mid et Len, n’est pas une fonction indispensable dans un langage).

Lire...

Correction Algorithme ===> Partie 10

Corrigés des Exercices

Exercice 10.1

Cet algorithme écrit l'intégralité du fichier "Exemple.txt" à l'écran

Exercice 10.2

Variable Truc en Caractère

Variable i en Entier

Debut

Ouvrir "Exemple.txt" sur 5 en Lecture

Tantque Non EOF(5)

LireFichier 5, Truc

Pour i ← 1 à Len(Truc)

Si Mid(Truc, i, 1) = "/" Alors

Ecrire " "

Sinon

Ecrire Mid(Truc, i, 1)

FinSi

i Suivant

FinTantQue

Fermer 5

Exercice 10.3

Variables Nom * 20, Prénom * 17, Tel * 10, Mail * 20, Lig en Caractère

Debut

Ecrire "Entrez le nom : "

Lire Nom

Ecrire "Entrez le prénom : "

Lire Prénom

Ecrire "Entrez le téléphone : "

Lire Tel

Ecrire "Entrez le nom : "

Lire Mail

Lig ← Nom & Prénom & Tel & Mail

Ouvrir "Adresse.txt" sur 1 pour Ajout

EcrireFichier 1, Lig

Fermer 1

Fin

Exercice 10.4

Là, comme indiqué dans le cours, on passe par un tableau de strutures en mémoire vive, ce qui est

la technique la plus fréquemment employée. Le tri - qui est en fait un simple test - sera effectué

sur le premier champ (nom).

Structure Bottin

Nom en Caractère * 20

Prénom en Caractère * 15

Tel en Caractère * 10

Mail en Caractère * 20

Fin Structure

Tableau Mespotes() en Bottin

Variables MonPote, Nouveau en Bottin

Variables i, j en Numérique

Debut

Ecrire "Entrez le nom : "

Lire Nouveau.Nom

Ecrire "Entrez le prénom : "

Lire Nouveau.Prénom

Ecrire "Entrez le téléphone : "

Lire Nouveau.Tel

Ecrire "Entrez le mail : "

Lire Nouveau.Mail

On recopie l'intégralité de "Adresses" dans MesPotes(). Et après tout, c'est l'occasion : quand on

tombe au bon endroit, on insère subrepticement notre nouveau copain dans le tableau.

Ouvrir "Adresse.txt" sur 1 pour Lecture

i ← -1

inséré ← Faux

Tantque Non EOF(1)

i ← i + 1

Redim MesPotes(i)

LireFichier 1, MonPote

Si MonPote.Nom > Nouveau.Nom et Non Inséré Alors

MesPotes(i) ← Nouveau

Inséré ← Vrai

i ← i + 1

Redim MesPotes(i)

FinSi

MesPotes(i) ← MonPote

FinTantQue

Fermer 1

Et le tour est quasiment joué. Il ne reste plus qu'à rebalancer tel quel l'intégralité du tableau

MesPotes dans le fichier, en écrasant l'ancienne version.

Ouvrir "Adresse.txt" sur 1 pour Ecriture

Pour j ← 0 à i

EcrireFichier 1, MesPotes(j)

j suivant

Fermer 1

Fin

Exercice 10.5

C'est un peu du même tonneau que ce qu'on vient de faire, à quelques variantes près. Il y a

essentiellement une petite gestion de flag pour faire bonne mesure.

Structure Bottin

Nom en Caractère * 20

Prénom en Caractère * 15

Tel en caractère * 10

Mail en Caractère * 20

Fin Structure

Tableau Mespotes() en Bottin

Variables MonPote en Bottin

Variables Ancien, Nouveau en Caractère*20

Variables i, j en Numérique

Variable Trouvé en Booléen

Debut

Ecrire "Entrez le nom à modifier : "

Lire Ancien

Ecrire "Entrez le nouveau nom : "

Lire Nouveau

On recopie l'intégralité de "Adresses" dans Fic, tout en recherchant le clampin. Si on le trouve, on

procède à la modification.

Ouvrir “Adresse.txt” sur 1 pour Lecture

i ← -1

Trouvé ← Faux

Tantque Non EOF(1)

i ← i + 1

Redim MesPotes(i)

LireFichier 1, MonPote

Si MonPote.Nom = Ancien.Nom Alors

Trouvé ← Vrai

MonPote.Nom ← Nouveau

FinSi

MesPotes(i) ← MonPote

FinTantQue

Fermer 1

On recopie ensuite l'intégralité de Fic dans "Adresse"

Ouvrir "Adresse.txt" sur 1 pour Ecriture

Pour j ← 0 à i

EcrireFichier 1, MesPotes(j)

j Suivant

Fermer 1

Et un petit message pour finir !

Si Trouvé Alors

Ecrire "Modification effectuée"

Sinon

Ecrire "Nom inconnu. Aucune modification effectuée"

FinSi

Fin

Exercice 10.6

Là, c'est un tri sur un tableau de structures, rien de plus facile. Et on est bien content de disposer des structures, autrement dit de ne se coltiner qu'un seul tableau...

Structure Bottin Nom en Caractère * 20

Prénom en Caractère * 15

Tel en caractère * 10

Mail en Caractère * 20

Fin Structure

Tableau Mespotes() en Bottin

Variables Mini en Bottin

Variables i, j en Numérique

Debut

On recopie l'intégralité de "Adresses" dans MesPotes...

Ouvrir "Adresse.txt" sur 1 pour Lecture

i ← -1

Tantque Non EOF(1)

i ← i + 1

Redim MesPotes(i)

LireFichier 1, MesPotes(i)

FinTantQue

Fermer 1

On trie le tableau selon l'algorithme de tri par insertion déjà étudié, en utilisant le champ Nom de la structure :

Pour j ← 0 à i - 1

Mini ← MesPotes(j)

posmini ← j

Pour k ← j + 1 à i

Si MesPotes(k).Nom < Mini.Nom Alors

mini ← MesPotes(k)

posmini ← k

Finsi

k suivant

MesPotes(posmini) ← MesPotes(j)

MesPotes(j) ← Mini

j suivant

On recopie ensuite l'intégralité du tableau dans "Adresse"

Ouvrir "Adresse.txt" sur 1 pour Ecriture

Pour j ← 0 à i

EcrireFichier 1, MesPotes(j)

j suivant

Fermer 1

Fin

Exercice 10.7

Bon, celui-là est tellement idiot qu'on n'a même pas besoin de passer par des tableaux en mémoire vive.

Variable Lig en Caractère

Début

Ouvrir "Tutu.txt" sur 1 pour Ajout

Ouvrir “Toto.txt” sur 2 pour Lecture

Tantque Non EOF(2)

LireFichier 2, Lig

EcrireFichier 1, Lig

FinTantQue

Fermer 2

Ouvrir “Tata.txt” sur 3 pour Lecture

Tantque Non EOF(3)

LireFichier 2, Lig

EcrireFichier 1, Lig

FinTantQue

Fermer 3

Fermer 1

Fin

Exercice 10.8

On va éliminer les mauvaises entrées dès la recopie : si l'enregistrement ne présente pas un mail

valide, on l'ignore, sinon on le copie dans le tableau.

Structure Bottin

Nom en Caractère * 20

Prénom en Caractère * 15

Tel en caractère * 10

Mail en Caractère * 20

Fin Structure

Tableau Mespotes() en Bottin

Variable MonPote en Bottin

Variables i, j en Numérique

Debut

On recopie "Adresses" dans MesPotes en testant le mail...

Ouvrir "Adresse.txt" sur 1 pour Lecture

i ← -1

Tantque Non EOF(1)

LireFichier 1, MonPote

nb ← 0

Pour i ← 1 à Len(MonPote.Mail)

Si Mid(MonPote.Mail, i, 1) = "@" Alors

nb ← nb + 1

FinSi

i suivant

Si nb = 1 Alors

i ← i + 1

Redim MesPotes(i)

MesPotes(i) ← MonPote

FinSi

FinTantQue

Fermer 1

On recopie ensuite l'intégralité de Fic dans "Adresse"

Ouvrir "Adresse.txt" sur 1 pour Ecriture

Pour j ← 0 à i

EcrireFichier 1, MesPotes(j)

j Suivant

Fermer 1

Fin

Exercice 10.9

Une fois de plus, le passage par un tableau de structures est une stratégie commode. Attention

toutefois, comme il s'agit d'un fichier texte, tout est stocké en caractère. Il faudra donc convertir en numérique les caractères représentant les ventes, pour pouvoir effectuer les calculs demandés.

Pour le traitement, il y a deux possibilités. Soit on recopie le fichier à l'identique dans un premier tableau, et on traite ensuite ce tableau pour faire la somme par vendeur. Soit on fait le traitement directement, dès la lecture du fichier. C'est cette option qui est choisie dans ce corrigé.

Structure Vendeur

Nom en Caractère * 20

Montant en Numérique

Fin Structure

Tableau MesVendeurs() en Vendeur

Variables NomPrec * 20, Lig, Nom en caractère

Variables Somme, Vente en Numérique

On balaye le fichier en faisant nos additions.

Dès que le nom a changé (on est passé au vendeur suivant), on range le résultat et on remet tout à

zéro

Debut

Ouvrir "Ventes.txt” sur 1 pour Lecture

i ← -1

Somme ← 0

NomPréc ← ""

Tantque Non EOF(1)

LireFichier 1, Lig

Nom ← Mid(Lig, 1, 20)

Vente ← CNum(Mid(Lig, 21, 10)

Si Nom = NomPrec Alors

Somme ← Somme + Vente

Sinon

i ← i + 1

Redim MesVendeurs(i)

MesVendeurs(i).Nom ← NomPrec

MesVendeurs(i).Montant ← Somme

Somme ← 0

NomPrec ← Nom

FinSi

FinTantQue

Et n'oublions pas un petit tour de plus pour le dernier de ces messieurs…

i ← i + 1

Redim MesVendeurs(i)

MesVendeurs(i).Nom ← NomPrec

MesVendeurs(i).Montant ← Somme

Fermer 1

Pour terminer, on affiche le tableau à l'écran

Pour j ← 0 à i

Ecrire MesVendeurs(j)

j suivant

Fin

Lire...

Exercice Algorithme ===> PARTIE 10

PARTIE 10

Exercice 10.1

Quel résultat cet algorithme produit-il ?

Variable Truc en Caractère

Début

Ouvrir "Exemple.txt" sur 5 en Lecture

Tantque Non EOF(5)

LireFichier 5, Truc

Ecrire Truc

FinTantQue

Fermer 5

Fin

Exercice 10.2

Ecrivez l’algorithme qui produit un résultat similaire au précédent, mais le fichier texte

"Exemple.txt" est cette fois de type délimité (caractère de délimitation : /). On produira à l'écran un affichage où pour des raisons esthétiques, ce caractère sera remplacé avec des espaces.

Exercice 10.3

On travaille avec le fichier du carnet d’adresses en champs de largeur fixe.

Ecrivez un algorithme qui permet à l’utilisateur de saisir au clavier un nouvel individu qui sera

ajouté à ce carnet d’adresses.

Exercice 10.4

Même question, mais cette fois le carnet est supposé être trié par ordre alphabétique. L’individu

doit donc être inséré au bon endroit dans le fichier.

Exercice 10.5

Ecrivez un algorithme qui permette de modifier un renseignement (pour simplifier, disons

uniquement le nom de famille) d’un membre du carnet d’adresses. Il faut donc demander à

l’utilisateur quel est le nom à modifier, puis quel est le nouveau nom, et mettre à jour le fichier. Si le nom recherché n'existe pas, le programme devra le signaler.

Exercice 10.6

Ecrivez un algorithme qui trie les individus du carnet d’adresses par ordre alphabétique.

Exercice 10.7

Soient Toto.txt et Tata.txt deux fichiers dont les enregistrements ont la même structure. Ecrire un algorithme qui recopie tout le fichier Toto dans le fichier Tutu, puis à sa suite, tout le fichier Tata (concaténation de fichiers).

Exercice 10.8

Ecrire un algorithme qui supprime dans notre carnet d'adresses tous les individus dont le mail est

invalide (pour employer un critère simple, on considèrera que sont invalides les mails ne

comportant aucune arobase, ou plus d'une arobase).

Exercice 10.9

Les enregistrements d’un fichier contiennent les deux champs Nom (chaîne de caractères) et

Montant (Entier). Chaque enregistrement correspond à une vente conclue par un commercial d’une société.

On veut mémoriser dans un tableau, puis afficher à l'écran, le total de ventes par vendeur. Pour

simplifier, on suppose que le fichier de départ est déjà trié alphabétiquement par vendeur.

Lire...

Correction Algorithme ===> Partie 9

Corrigés des Exercices

Exercice 9.1

A ← Sin(B) Aucun problème

A ← Sin(A + B * C) Aucun problème

B ← Sin(A) – Sin(D) Erreur ! D est en caractère

D ← Sin(A / B) Aucun problème… si B est différent de zéro

C ← Cos(Sin(A) Erreur ! Il manque une parenthèse fermante

Exercice 9.2

Vous étiez prévenus, c'est bête comme chou ! Il suffit de se servir de la fonction Len, et c'est réglé :

Variable Mot en Caractère

Variable Nb en Entier

Debut

Ecrire "Entrez un mot : "

Lire Mot

Nb ← Len(Mot)

Ecrire "Ce mot compte ", Nb, " lettres"

Fin

Exercice 9.3

Là, on est obligé de compter par une boucle le nombre d'espaces de la phrase, et on

en déduit le nombre de mots. La boucle examine les caractères de la phrase un par

un, du premier au dernier, et les compare à l'espace.

Variable Bla en Caractère

Variables Nb, i en Entier

Debut

Ecrire "Entrez une phrase : "

Lire Bla

Nb ← 0

Pour i ← 1 à Len(Bla)

Si Mid(Bla, i , 1) = " " Alors

Nb ← Nb + 1

FinSi

i suivant

Ecrire "Cette phrase compte ", Nb + 1, " mots"

Fin

Exercice 9.4

Solution 1 : pour chaque caractère du mot, on pose une très douloureuse condition composée. Le moins que l'on puisse dire, c'est que ce choix ne se distingue pas par son élégance. Cela dit, il

marche, donc après tout, pourquoi pas.

Variable Bla en Caractère

Variables Nb, i, j en Entier

Debut

Ecrire "Entrez une phrase : "

Lire Bla

Nb ← 0

Pour i ← 1 à Len(Bla)

Si Mid(Bla, i, 1) = "a" ou Mid(Bla, i, 1) = "e" ou Mid(Bla, i, 1) = "i" ou

Mid(Bla, i, 1) = "o" ou Mid(Bla, i, 1) = "u" ou Mid(Bla, i, 1) = "y" Alors

Nb ← Nb + 1

FinSi

i suivant

Ecrire "Cette phrase compte ", Nb, " voyelles"

Fin

Solution 2 : on stocke toutes les voyelles dans une chaîne. Grâce à la fonction Trouve, on détecte immédiatement si le caractère examiné est une voyelle ou non. C'est nettement plus sympathique...

Variables Bla, Voy en Caractère

Variables Nb, i, j en Entier

Debut

Ecrire "Entrez une phrase : "

Lire Bla

Nb ← 0

Voy ← "aeiouy"

Pour i ← 1 à Len(Bla)

Si Trouve(Voy, Mid(Bla, i, 1)) <> 0 Alors

Nb ← Nb + 1

FinSi

i suivant

Ecrire "Cette phrase compte ", Nb, " voyelles"

Fin

Exercice 9.5

Il n'existe aucun moyen de supprimer directement un caractère d'une chaîne… autrement qu'en

procédant par collage. Il faut donc concaténer ce qui se trouve à gauche du caractère à supprimer,avec ce qui se trouve à sa droite. Attention aux paramètres des fonctions Mid, ils n'ont rien d'évident !

Variable Bla en Caractère

Variables Nb, i, j en Entier

Début

Ecrire "Entrez une phrase : "

Lire Bla

Ecrire "Entrez le rang du caractère à supprimer : "

Lire Nb

L ← Len(Bla)

Bla ← Mid(Bla, 1, Nb – 1) & Mid(Bla, Nb + 1, L – Nb)

Ecrire "La nouvelle phrase est : ", Bla

Fin

Exercice 9.6

Sur l'ensemble des exercices de cryptographie, il y a deux grandes stratégies possibles :

- soit transformer les caractères en leurs codes ASCII. L'algorithme revient donc ensuite à traiter des nombres. Une fois ces nombres transformés, il faut les reconvertir en caractères.

- soit en rester au niveau des caractères, et procéder directement aux transformations à ce niveau.

C'est cette dernière option qui est choisie ici, et pour tous les exercices de cryptographie à venir.

Pour cet exercice, il y a une règle générale : pour chaque lettre, on détecte sa position dans

l'alphabet, et on la remplace par la lettre occupant la position suivante. Seul cas particulier, la

vingt-sixième lettre (le Z) doit être codée par la première (le A), et non par la vingt-septième, qui n'existe pas !

Variables Bla, Cod, Alpha en Caractère

Variables i, Pos en Entier

Début

Ecrire "Entrez la phrase à coder : "

Lire Bla

Alpha ← "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Cod ← ""

Pour i ← 1 à Len(Bla)

Let ← Mid(Bla, i, 1)

Si Let <> "Z" Alors

Pos ← Trouve(Alpha, Let)

Cod ← Cod & Mid(Alpha, Pos + 1, 1)

Sinon

Cod ← Cod & "A"

FinSi

i Suivant

Bla ← Cod

Ecrire "La phrase codée est : ", Bla

Fin

Exercice 9.7

Cet algorithme est une généralisation du précédent. Mais là, comme on ne connaît pas d'avance le décalage à appliquer, on ne sait pas a priori combien de "cas particuliers", à savoir de dépassements au-delà du Z, il va y avoir.

Il faut donc trouver un moyen simple de dire que si on obtient 27, il faut en réalité prendre la lettre numéro 1 de l'alphabet, que si on obtient 28, il faut en réalité prendre la numéro 2, etc. Ce moyen simple existe : il faut considérer le reste de la division par 26, autrement dit le modulo.

Il y a une petite ruse supplémentaire à appliquer, puisque 26 doit rester 26 et ne pas devenir 0.

Variable Bla, Cod, Alpha en Caractère

Variables i, Pos, Décal en Entier

Début

Ecrire "Entrez le décalage à appliquer : "

Lire Décal

Ecrire "Entrez la phrase à coder : "

Lire Bla

Alpha ← "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Cod ← ""

Pour i ← 1 à Len(Bla)

Let ← Mid(Bla, i, 1)

Pos ← Trouve(Alpha, Let)

NouvPos ← Mod(Pos + Décal, 26)

Si NouvPos = 0 Alors

NouvPos ← 26

FinSi

Cod ← Cod & Mid(Alpha, NouvPos, 1)

i Suivant

Bla ← Cod

Ecrire "La phrase codée est : ", Bla

Fin

Exercice 9.8

Là, c'est assez direct.

Variable Bla, Cod, Alpha en Caractère

Variables i, Pos, Décal en Entier

Début

Ecrire "Entrez l’alphabet clé : "

Lire Clé

Ecrire "Entrez la phrase à coder : "

Lire Bla

Alpha ← "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Cod ← ""

Pour i ← 1 à Len(Bla)

Let ← Mid(Bla, i, 1)

Pos ← Trouve(Alpha, Let)

Cod ← Cod & Mid(Clé, Pos, 1)

i Suivant

Bla ← Cod

Ecrire "La phrase codée est : ", Bla

Fin

Exercice 9.9

Le codage de Vigenère n’est pas seulement plus difficile à briser; il est également un peu plus raide à programmer. La difficulté essentielle est de comprendre qu’il faut deux boucles: l’une pour parcourir la phrase à coder, l’autre pour parcourir la clé. Mais quand on y réfléchit bien, ces deux boucles ne doivent surtout pas être imbriquées. Et en réalité, quelle que soit la manière dont on l'écrit, elle n’en forment qu’une seule.

Variables Alpha, Bla, Cod, Clé, Let en Caractère

Variables i, Pos, PosClé, Décal en Entier

Début

Ecrire "Entrez la clé : "

Lire Clé

Ecrire "Entrez la phrase à coder : "

Lire Bla

Alpha ← "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Cod ← ""

PosClé ← 0

Pour i ← 1 à Len(Bla)

On gère la progression dans la clé. J’ai effectué cela "à la main" par une boucle, mais un joli emploi de la fonction Modulo aurait permis une programmation en une seule ligne!

Posclé ← Posclé + 1

Si PosClé > Len(Clé) Alors

PosClé ← 1

FinSi

On détermine quelle est la lettre clé et sa position dans l’alphabet

LetClé ← Mid(Clé, PosClé, 1)

PosLetClé ← Trouve(Alpha, LetClé)

On détermine la position de la lettre à coder et le décalage à appliquer. Là encore, une solution

alternative aurait été d’employer Mod : cela nous aurait épargné le Si…

Let ← Mid(Bla, i, 1)

Pos ← Trouve(Alpha, Let)

NouvPos ← Pos + PosLetClé

Si NouvPos > 26 Alors

NouvPos ← NouvPos – 26

FinSi

Cod ← Cod & Mid(Alpha, NouvPos, 1)

i Suivant

Bla ← Cod

Ecrire "La phrase codée est : ", Bla

Fin

Exercice 9.10

On en revient à des choses plus simples...

Variable Nb en Entier

Ecrire "Entrez votre nombre : "

Lire Nb

Si Nb/2 = Ent(Nb/2) Alors

Ecrire "Ce nombre est pair"

Sinon

Ecrire "Ce nombre est pair"

FinSi

Fin

Exercice 9.11

a) Glup ← Alea() * 2

b) Glup ← Alea() * 2 - 1

c) Glup ← Alea() * 0,30 + 1,35

d) Glup ← Ent(Alea() * 6) + 1

e) Glup ← Alea() * 17 – 10,5

f) Glup ← Ent(Alea()*6) + Ent(Alea()*6) + 2

Lire...