Programme analyseur lexical

**minoucha.21** · 12/01/2015, 00h02

je cherche un simple programme d'un analyseur lexical dont aprés le texte entrant le resultat sera:
mot clés:begin, end, ...
ponctuation: ; , : ,. ,(......
identificateur: i, j...
opérateurs: < > := ..
s'il vous plait qui peut m'aider
et merci

**ALT** · 12/01/2015, 12h13

Salut

Pourrais-tu être plus explicite ?
Que doit faire le programme exactement ?
Pour quel usage ?
Etc.

Cordialement

**minoucha.21** · 12/01/2015, 18h49

bon pour etre plus claire je donne un exemple: l'utilisateur entre cette fonction
function max (i,j) :integer ;
et le programme va afficher comme resultat les unité lexical:
mot clé: function
identificateur: i j
ponctuation , ( )
operateur par exp + - ..
et merci .

**ALT** · 12/01/2015, 18h59

Bof, c'est un exercice banal, ça.
Qu'as-tu écrit (code, pseudo-code, organigramme...) ?

**minoucha.21** · 12/01/2015, 19h10

voila le code :
function max (i,j:integer) : integer;
begin
if i>j then max:= i else maw:= j
end;
je cherche un programme qui identifier les unités lexical et leurs types svp.
et merci

**anapurna** · 13/01/2015, 02h05

salut
le premier conseille serait de l'analyser manuellement et de noter le processus que tu utilise pour y parvenir
je m'explique reprenons ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function max (i,j:integer) : integer;
begin
if i>j then max:= i else maw:= j
end;

comme tu l'as compris dans d'autre post que tu as émis, tu doit découper ton texte en mot
ce qui dans ton cas donnera
function
max
(
i
,
j
:
integer
)
: integer on passe ces deux termes car on les a déjà défini avant
;
begin
if
i
>
j
then
max
:=
i
else
max:= j
end
;

une fois que tu as fais cela
il te reste donc

function
max
(
i
,
j
:
integer
)
;
begin
if
>
then
:=
else
end

voila donc ta liste de mots disponible pour cette fonction .

maintenant comment ton cerveau sais à quoi correspond tel ou tel terme ?
je pense que comme moi tu l'as appris soit par des livres, soit par des cours, soit autrement

il te faut donc rapprocher ces termes avec des listes de lexème prédéfini
d’après ce que tu as dis, il te faut :
une liste de mot clé
une liste d’opérateur
une liste de type ordinal ou complexe
une fois que tu as défini ces listes, il ne te reste plus qu'a comparer tes mots avec les lexèmes prédéfini dans les listes
voila une première explication succin, mais qui te permettra d'avancer un peu dans ton projet
une fois que tu auras fais ça on pourra approfondir et affiner le raisonnement pour analyser la fonction dans son ensemble

**minoucha.21** · 13/01/2015, 20h23

merci beaucoup , mais esque tu peux m'aider pour faire la fonction qui permet de suprimer le vide et sauter la ligne SVP
et merci d'avance

**anapurna** · 14/01/2015, 02h55

salut

oui je peut t'aider ... les autres aussi

bon alors comment faire pour lire un texte ?
je suppose que tu as déjà une petite idée ?

tout est dans les boucles

la première chose à trouver c'est la longueur de la chaine
voici un code basique pour parcourir un texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 LgChaine := length(MonTexte);
 iPosCurrent := 1;
 while (iPosCurrent <=LgChaine do
 begin
      ...
      inc(iPosCurrent);
  end;

une fois cette boucle principale compris il te faut faire différent test
on va se construire quelque fonction utile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
///////////////////////////////////////////////////////////////////////////////
function IsDigit:Boolean;
begin
 Result := (iPosCurrent<=LgChaine) and (MonTexte[iPosCurrent] in ['0'..'9']) ;
end;
///////////////////////////////////////////////////////////////////////////////
function IsAlpha:boolean;
begin
  Result:=(iPosCurrent<=LgChaine) and (UpCase(MonTexte[iPosCurrent]) in ['A'..'Z','_']);
end;
///////////////////////////////////////////////////////////////////////////////
function IsOperateur : boolean;
begin
  Result:=(iPosCurrent<=LgChaine) and (MonTexte[iPosCurrent] in ['(',';',':','=',')']);
end;
///////////////////////////////////////////////////////////////////////////////
function ExtractMot : String;
begin
  Result:=copy(Line,iPosStart,IPosEnd);
end;
///////////////////////////////////////////////////////////////////////////////
function GetDigit : string;
var
  i:integer;
begin
  IPosStart :=iPosCurrent;
  while IsDigit do
     inc(iPosCurrent);
  IPosEnd :=iPosCurrent -1;  
  Result :=ExtractMot;
end;
///////////////////////////////////////////////////////////////////////////////
function GetAlpha : string;
var
  i:integer;
begin
  IPosStart :=iPosCurrent;
  while IsAlpha do
     inc(iPosCurrent);
  IPosEnd :=iPosCurrent -1;  
  Result :=ExtractMot;
end;
///////////////////////////////////////////////////////////////////////////////

voila c'est tout pour ce soir ... essai de voir comment tu organiserais le code pour pouvoir en extraire une liste de mots
et construit d'autre fonction si besoin est

**ALT** · 14/01/2015, 10h27

Juste un détail, pour tester si un caractère est une "lettre" (donc faisant partie soit d'un identifiant, soit d'une chaîne de caractères), je mettrais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

... in ['A'..'Z','_','a'..'z']

car les minuscules en font partie.
Mais je suppose que tout le monde avait rectifié !

**anapurna** · 14/01/2015, 10h44

salut

effectivement c'est un choix ... mais si tu avais bien examiné mon code je test avec un upcase() ce qui a pour effet de mettre en majuscule le caractère testé

c'est donc pour cela que j'avais délibérément réduit ma liste de caractère mais effectivement rien ne t’empêche d’agrandir la liste.
Dans ce cas là le contrôle sera écrit de cet façon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
///////////////////////////////////////////////////////////////////////////////
function IsAlpha:boolean;
begin
  Result:=(iPosCurrent<=LgChaine) and (MonTexte[iPosCurrent] in ['A'..'Z','_','a'..'z']);
end;

voila pour la rectification