Accueil > > > RECHERCHE DES PALINDROMES D'UN TEXTE SAISI.
RECHERCHE DES PALINDROMES D'UN TEXTE SAISI.
Information sur la source
Description
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
- ;programmed by Billal BEGUERADJ
- ;beg.bill@yahoo.com
- ;www.begueradj.50megs.com
- ;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
-
;programmed by Billal BEGUERADJ
;beg.bill@yahoo.com
;www.begueradj.50megs.com
;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
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
affichage et saisie [ par anonyme_man_in_this_world ]
salut ! doit je creer des fonctions pour capter des valeurs et des nombres ?puis je afficher une valeur(pas caractere) grace a une interruption B
saisie et affichage de caractères [ par SHEPHERD1988 ]
salut je viens tout juste de commencer la programmation assembleur depuis une semaine et je veux que mon programme m'affiche un caractère que j'entre
tp [ par rajabo ]
je suis débutante en assembleur et je veux ecrire un programme qui fait la saisie d'une suite de nbres à stocker ds 1 tableau,la saisie s'arrete lors
question sur le language asm [ par dyroj ]
bonjour,j'ai qulque question sur l'asm :-quand je fait un : mov ax, 10 , quesqui va dans le registre (ladresse de 10 dans la ram, ou 10).-pourquoi se
Problème d'affichage de programme après compilation [ par li2k ]
Salut tout le Monde.Bon voilà, dans le cardre d'un projet scolaire, j'ai écris un programme assembleur avec l'émulateur "Emul8086".dans ce programme j
[BAR]problème d'affichage de mes dossiers [ par garrouribari ]
Bonjour,lors de l'endommagement de mon système d'exploitation, j'ai l'installé de nouveau, mais mes dossiers que j'ai les mis dans mes documents je n'
montage et leur programme(pic 16f84) d'un affichage d'horloge a l'aide de la persistance rétinnienne [ par mohamedturki ]
|
Derniers Blogs
COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
RE : ASSEMBLEURRE : ASSEMBLEUR par solleil
Cliquez pour lire la suite par solleil RE : ASSEMBLEURRE : ASSEMBLEUR par ghuysmans99
Cliquez pour lire la suite par ghuysmans99 RE : ASSEMBLEURRE : ASSEMBLEUR par ghuysmans99
Cliquez pour lire la suite par ghuysmans99
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|