Exercice: Extrait BAC : anagramme + boucles

Extrait d'un Bac pratique tunisien :

Une anagramme est un mot obtenu par transposition des lettres d'un autre mot (par exemple chien, chiene sont des anagrammes du mot niche).

Ecrire un programme Pascal qui permet de saisie deux mots non vides MOT1 et MOT2 puis de déterminer si MOT2 est une anagramme de MOT1.

Cette solution a été proposée dans un forum tunisien. A vous de la vérifier.

Code:

Program TRANSPOSITION;

uses wincrt;

var mot1,mot2: string;

 

procedure saisie(var mot:string);

var i:integer;

lettre: boolean;

begin

repeat

write('Introduire un mot :');

readln(mot);

i:=0;

lettre:=true;

repeat

i:=i+1;

if not(upcase(mot[i] in ['A'..'Z']) then lettre:=false;

until (lettre=false) or (i=length(mot));

until (lettre);

end;

 

procedure permute(var x,y:char);

var temp:char;

begin

temp:=x;

x:=y;y:=temp;

end;

 

function tri(mot:string):string;

var ok:boolean;

m:string;

i:integer;

begin

m:=mot;

repeat

ok:=true;

for i:= 1 to length(m)-1 do

if m[i]>m[i+1] then

begin

permute (m[i],m[i+1]);

ok:=false;

end;

unti ok;

tri:=m;

end;

procedure affiche(mot1,mot2:string);

begin

if tri(mot1)=tri(mot2) then write(mot2,'est une anagramme de ' mot1)

else write(mot2,'n'est pas une anagramme de',mot1);

end;

 

begin

sasie(mot1);

sasie(mot2);

affiche(mot1,mot2);

end.