Recherche des palindromes d'un texte saisi.

Commenter

Contenu du snippet

Ce programme affiche la liste des mots palindromes que contient votre text ainsi saisi.

Une version plus améliorée de ce code sera prochainement postée dans laquelle les mots palindromes seront affichés dans le même text sans le dupliquer en mémoire comme c'est le cas du présent programme.

Vos questions sont les bienvenues.

Source / Exemple : 

;programmed by Billal BEGUERADJ
;affichage des mots palindromes saisis dans un text.

.MODEL SMALL
.STACK
.DATA
msssg DB 'La liste des mots palindromes saise est : $'
mot Struc
 premier_car Dw ? 
 dernier_car Dw ? 
mot EndS
nb_max_car_a_saisir Db 255 
nb_car_saisis Db 0 
buffer_du_paragraphe Db 270 dup (0) 
bienvenue Db 'Veuillez saisir un paragraphe: $' 
tableau_qui_recoit_le_paragraphe_saisi mot 160 dup (<,>)
nb_de_mots_total_saisis Dw 0 
tab_de_mots_plein Dw 0 
compteur Dw 0
fin_de_un_mot Db '$'
deux_points Db ' ----> $'
retour_chariot Db 0Dh,0Ah,'$'
resultat Db 0Dh,0Ah,0Dh,0Ah,'Le nombre de palindromes saisis est: $'
.CODE
effacer_ecran PROC
PUSH AX
PUSH CX
MOV AX,0003H
INT 10H
POP CX
POP AX
RET
effacer_ecran ENDP
affichage PROC
PUSH BX
PUSH DX
MOV DX,OFFSET [retour_chariot]
MOV AH, 9
INT 21H
POP DX
MOV AX,DX
MOV DX,OFFSET [deux_points]
MOV AH, 9
INT 21H
POP BX
MOV DI, [BX].dernier_car
MOV AL, '$'
MOV [DI],AL
MOV DX,[BX].premier_car
MOV AH, 9
INT 21H
RET
affichage ENDP
traduire_heximal_en_decimal PROC
MOV BX, OFFSET [fin_de_un_mot-1]
MOV CX, 10
conversion:
XOR DX, DX  
DIV CX  
ADD DL, '0'  
MOV [BX], DL  
DEC BX  
CMP AX,0 
JNZ conversion 
MOV DX,BX 
INC DX  
RET
traduire_heximal_en_decimal ENDP
verifier_si_cest_un_palindrome PROC
MOV SI, [BX].premier_car
MOV DI, [BX].dernier_car
DEC DI 
comparer_premier_et_dernier_car:
MOV AL, [SI]
CMP AL, [DI]
JNE non_palindrome
DEC DI 
INC SI 
CMP SI,DI
JBE comparer_premier_et_dernier_car
STC
RET
non_palindrome:
CLC
RET
verifier_si_cest_un_palindrome ENDP
distinguer_traiter_et_separer_les_mots PROC 
MOV SI,OFFSET [buffer_du_paragraphe]
MOV DI,OFFSET [tableau_qui_recoit_le_paragraphe_saisi]
XOR CX,CX  
XOR DX, DX
lire_car_a_partir_du_buffer:
MOV AL, [SI]  
CMP AL, 0Dh
JE fin
CMP AL,'/'
JE non_alphabet
CMP AL,'&'
JE non_alphabet
CMP AL,'~'
JE non_alphabet
CMP AL,'('
JE non_alphabet
CMP AL,')'
JE non_alphabet
CMP AL,'{'
JE non_alphabet
CMP AL,'}'
JE non_alphabet
CMP AL,'['
JE non_alphabet
CMP AL,']'
JE non_alphabet
CMP AL,';'
JE non_alphabet
CMP AL,','
JE non_alphabet
CMP AL,':'
JE non_alphabet
CMP AL,'.'
JE non_alphabet
CMP AL,'+'
JE non_alphabet
CMP AL,'-'
JE non_alphabet
CMP AL,'*'
CMP AL, 20h
JE non_alphabet
CMP AL,'0'
JGE verifier_si_inf_a_neuf
verifier_si_inf_a_neuf:
CMP AL,'9'
JBE non_alphabet
TEST DX,DX
JNZ le_car_suivant
MOV [DI].premier_car,SI 
INC DX
JMP le_car_suivant
non_alphabet:
TEST DX,DX
JZ le_car_suivant
CMP CX, 160
JE on_a_atteint_la_fin_du_tableau
DEC DX
MOV [DI].dernier_car, SI 
INC CX 
ADD DI, TYPE mot 
le_car_suivant:
INC SI 
JMP lire_car_a_partir_du_buffer
on_a_atteint_la_fin_du_tableau:
INC tab_de_mots_plein 
fin:
MOV nb_de_mots_total_saisis, CX  
RET
distinguer_traiter_et_separer_les_mots ENDP
compte_rendu PROC
MOV CX, nb_de_mots_total_saisis  
MOV BX, OFFSET [tableau_qui_recoit_le_paragraphe_saisi]
mot_suivant:
PUSH CX 
CALL verifier_si_cest_un_palindrome
JNC passer_au_mot_suivant
INC compteur
MOV DX, compteur
PUSH BX
CALL affichage  
POP BX
passer_au_mot_suivant:
ADD BX, TYPE mot  
POP CX  
LOOP mot_suivant
MOV DX,OFFSET [resultat]
MOV AH, 9
INT 21H
MOV AX,compteur
CALL traduire_heximal_en_decimal ;afficher le nombre de pal
MOV AH, 9
INT 21H
RET
compte_rendu ENDP
main PROC
MOV AX, @DATA
MOV DS,AX
CALL effacer_ecran
MOV DX, OFFSET [bienvenue]
MOV AH, 9
INT 21h
MOV DX, OFFSET [nb_max_car_a_saisir]
MOV AH, 0AH
INT 21H
MOV SI, OFFSET [buffer_du_paragraphe]
MOV BL, nb_car_saisis
XOR BH,BH
MOV AL, ' '
MOV [BX+SI], AL
MOV AL, 0Dh  
INC SI
MOV [BX+SI], AL
CALL distinguer_traiter_et_separer_les_mots
MOV DX,OFFSET[retour_chariot]
MOV AH, 9
INT 21H
MOV DX,OFFSET[retour_chariot]
MOV AH, 9
INT 21H
MOV DX,OFFSET[retour_chariot]
MOV AH, 9
INT 21H
MOV DX,OFFSET[msssg]
MOV AH, 9
INT 21H
MOV DX,OFFSET[retour_chariot]
MOV AH, 9
INT 21H
CALL compte_rendu
MOV DX,OFFSET[retour_chariot]
MOV AH, 9
INT 21H
MOV DX,OFFSET[retour_chariot]
MOV AH, 9
INT 21H
MOV AX, 4C00H
INT 21H
main ENDP
END main

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCBill)