Anagramme pascal
Fermé
locachica
Messages postés
1
Date d'inscription
mercredi 9 septembre 2009
Statut
Membre
Dernière intervention
9 septembre 2009
-
9 sept. 2009 à 17:58
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 14 oct. 2009 à 13:42
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 14 oct. 2009 à 13:42
A voir également:
- Anagramme pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Anagramme expert gratuit - Forum Logiciels
- Uses crt pascal - Forum Pascal
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ? - Forum Windows
1 réponse
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
14 oct. 2009 à 13:42
14 oct. 2009 à 13:42
Ton idée de départ (avec les pos) est vraiment bonnes, mais la boucle repeat until est maladroite car tu connais le nombre d'opérations (égale à la taille de tes mots) donc il est plus intéressant d'utiliser une boucle for...
Sur le même principe que toi :
Sur le même principe que toi :
program locachicha;
function sontAnagrammes(s1,s2:string):boolean;
var i,j:integer;
begin
if length(s1)<>length(s2) then exit(false);
for i:=1 to length(s1) do
begin
j:=pos(s1[i],s2);
if j>0 then s2[j]:='_' // on "supprime" la lettre
else exit(false);
end;
exit(true);
end;
var s1,s2:string;
begin
while true do
begin
write('s1 : '); readln(s1);
write('s2 : '); readln(s2);
writeln(sontAnagrammes(s1,s2));
writeln;
end;
end.