Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Курсовые проекты / лабы мои / 2 / отчёт2СПОмая

.doc
Скачиваний:
19
Добавлен:
02.05.2014
Размер:
123.9 Кб
Скачать

Министерство образования РФ

Уфимский Государственный Авиационный Технический Университет

Кафедра ТК

Лабораторная работа №2

“ Проектирование лексического анализатора ”

Выполнили:

ст.гр УТС-411

Беляев В. В.

Проверил: доц. каф. ТК

Карамзина А. Г.

Уфа 2007

Цель работы: изучение основных понятий теории регулярных грамматик, ознакомление с назначением и принципами работы лексических анализаторов (сканеров), получение практических навыков построения сканера на примере заданного простейшего входного языка.

Вариант8:

Входной язык содержит операторы цикла типа for (...;...;...) do, разделенные символом ;(точка с запятой). Оператор цикла идентификаторы, знаки сравнения <,>,= , римские числа, знака присваивания (:=).

КС-грамматика входного языка в форме Бэкуса-Наура:

Условные обозначения:

d – все цифры и буквы алфавита, кроме V, X, I

d1 – все буквы алфавита, кроме f

d2 - все буквы алфавита, кроме o

d3 - все буквы алфавита, кроме r

d4 - все буквы алфавита, кроме d

d5 - все буквы алфавита, кроме o

d6- все символы

d7 – символы <, >, =, : , ;

d8 – любой символ, кроме <, >, =, : , ;

^-знак пробела

G({0..9, a..z, ; , : , = , ^ , < , > , V,X,I}, {H, ZZ, L, N, Z1, O2, O1, E, F1, K1, F2, K2, K3, D2, Z2, D1, T1, I },P,S)

P:

H®H^

N®HV|HX|HI

L®H;

O1®H)

O2®H(

F1®H:

F2®F1=

Z2®H=

ZZ®H>

Z1®H<

K1®Hf

K2®K1o

K3®K2r

D1®Hd

D2®D1o

I®Nd|K1d1|K2d2|K3d3|D1d4|D2d5| E®Z2d6|Z1d8|Z2d8|F1d8|F2d8|K1d7|K2Dd7|K3d7|D1d7|D2d7|Nd7|O1d6|O2d6|E^|

S®F2^|Z2^|ZZ^|Z1^|O2^O1^|I ^|D2^|K3^|N^|L^

Листинг программы:

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, Grids, ExtCtrls;

type

TAutoState = ( AUTO_H, AUTO_ZZ,AUTO_L,AUTO_N,AUTO_Z1,AUTO_O2,AUTO_O1,AUTO_E,AUTO_F1,AUTO_K1, AUTO_F2,AUTO_K2,AUTO_K3,AUTO_D2,AUTO_Z2, AUTO_D1,AUTO_T1,AUTO_I );

TForm1 = class(TForm)

OpenDialog1: TOpenDialog;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Button2: TButton;

Memo1: TMemo;

TabSheet2: TTabSheet;

StringGrid1: TStringGrid;

Button3: TButton;

Panel1: TPanel;

Memo2: TMemo;

Label2: TLabel;

Label1: TLabel;

Button1: TButton;

Button4: TButton;

Label3: TLabel;

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

var a:integer;

begin

if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName) ;

a:=memo1.lines.count;

label3.Caption:='Всего строк в Файле : '+ inttostr(a);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='Номер';

StringGrid1.Cells[1,0]:='Лексема';

StringGrid1.Cells[2,0]:='Инфа';

end;

procedure TForm1.Button3Click(Sender: TObject);

var

ind,pos,dl,i,j,i1,fl,zn:integer;

st,str,stroka:string;

sost:TAutoState;

begin

for i:=0 to 2 do

for i1:=1 to 999 do

StringGrid1.Cells[i,i1]:='';

i1:=Memo1.Lines.Count;

ind:=1;

pos:=1;

for i:=1 to i1 do

begin

str:='';

stroka:=Memo1.Lines[i-1];

stroka:=stroka+' ';

dl:=Length(stroka);

sost:=AUTO_H;

fl:=0;

zn:=0;

for j:=1 to dl do

begin

st:=stroka[j];

case sost of

AUTO_H:

case stroka[j] of

';': begin sost:=AUTO_L;str:=str+st; end; {1}

'I','X','V': begin sost:=AUTO_N;str:=str+st; end; {1}

'>': begin sost:=AUTO_ZZ;str:=str+st; end; {1}

'<': begin sost:=AUTO_Z1; str:=str+st end; {1}

'=': begin sost:=AUTO_Z2; str:=str+st end; {1}

':': begin sost:=AUTO_F1;str:=str+st; end; {1}

'(': begin sost:=AUTO_O2;str:=str+st; end; {1}

')': begin sost:=AUTO_O1;str:=str+st; end; {1}

'd': begin sost:=AUTO_D1;str:=str+st; end; {1}

'f': begin sost:=AUTO_K1;str:=str+st; end; {1}

'.': begin sost:=AUTO_T1;str:=str+st; end;

'a'..'c','e','g'..'z': begin sost:=AUTO_I;str:=str+st; end;

' ': begin sost:=AUTO_H;str:=''; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_L: {;}

case stroka[j] of

' ': begin sost:=AUTO_H;fl:=1;zn:=1; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_N: {римские буквы}

case stroka[j] of

'X','I','V': begin sost:=AUTO_N; str:=str+st; end;

' ': begin sost:=AUTO_H; fl:=1; zn:=12; end;

'a'..'h','j'..'u','w','y','z': begin sost:=AUTO_H;fl:=1;zn:=5;str:=str+st; end;

else begin sost:=AUTO_E; str:=str+st; end;

end;

AUTO_O2: {(}

case stroka[j] of

' ': begin sost:=AUTO_H; fl:=1; zn:=2; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_O1: {)}

case stroka[j] of

' ': begin sost:=AUTO_H;fl:=1;zn:=3; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_F1:

case stroka[j] of {:=}

'=': begin sost:=AUTO_F2;str:=str+st; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_F2:

case stroka[j] of {:=}

' ': begin sost:=AUTO_H;fl:=1;zn:=4; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_K1: {for}

case stroka[j] of

'a'..'n','p'..'z','0'..'9',' ': begin sost:=AUTO_I;str:=str+st; end;

'o': begin sost:=AUTO_K2;str:=str+st; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_K2: {for}

case stroka[j] of

'a'..'q','s'..'z','0'..'9',' ': begin sost:=AUTO_I;str:=str+st; end;

'r': begin sost:=AUTO_K3;str:=str+st; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_K3: {for}

case stroka[j] of

'a'..'z','0'..'9': begin sost:=AUTO_I;str:=str+st; end;

' ': begin sost:=AUTO_H; fl:=1; zn:=11; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_I:

case stroka[j] of

'a'..'z','0'..'9': begin sost:=AUTO_I;str:=str+st; end;

' ': begin sost:=AUTO_H;fl:=1;zn:=5; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_ZZ: {<,>,=}

case stroka[j] of

' ': begin sost:=AUTO_H;fl:=1;zn:=6; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_Z1:

case stroka[j] of

' ': begin sost:=AUTO_H;fl:=1;zn:=7; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_Z2:

case stroka[j] of

' ': begin sost:=AUTO_H;fl:=1;zn:=8; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_D1: {DO}

case stroka[j] of

'a'..'n','p'..'z','0'..'9',' ': begin sost:=AUTO_I;str:=str+st; end;

'o': begin sost:=AUTO_D2;str:=str+st; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_D2:

case stroka[j] of

'a'..'z','0'..'9': begin sost:=AUTO_I;str:=str+st; end;

' ': begin sost:=AUTO_H;fl:=1;zn:=10; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_T1:

case stroka[j] of

' ': begin sost:=AUTO_H;fl:=1;zn:=9; end;

'.': begin sost:=AUTO_T1; str:=str+st; end;

else begin sost:=AUTO_E;str:=str+st; end;

end;

AUTO_E: begin

if stroka[j]<>' 'then

begin

sost:=AUTO_E;

str:=str+st;

end

else

begin

sost:=AUTO_H;

Memo2.Lines.Append(str);

str:='';

end;

end;

end;

if fl=1 then

begin

StringGrid1.Cells[0,ind]:=IntToStr(ind);

StringGrid1.Cells[1,ind]:=str;

case zn of

1: StringGrid1.Cells[2,ind]:='Разделяюший знак';

2: StringGrid1.Cells[2,ind]:='Круглые открывающиеся скобки';

3: StringGrid1.Cells[2,ind]:='Круглые закрывающиеся скобки';

4: StringGrid1.Cells[2,ind]:='Знак присваивания';

5: StringGrid1.Cells[2,ind]:='Идентификатор';

6: StringGrid1.Cells[2,ind]:='>';

7: StringGrid1.Cells[2,ind]:='<';

8: StringGrid1.Cells[2,ind]:='=';

9: StringGrid1.Cells[2,ind]:='Точка ';

10: StringGrid1.Cells[2,ind]:='Оператор "DO" ';

11: StringGrid1.Cells[2,ind]:='Оператор "for"';

12:StringGrid1.Cells[2,ind]:='Римские цифры';

end;

str:='';

ind:=ind+1;

fl:=0;

end;

end;

end;

label2.Caption:='Число лексем '+IntToStr(ind-1); {Число лексем }

end;

procedure TForm1.Button4Click(Sender: TObject);

var i,i1:integer;

begin

for i:=0 to 2 do

for i1:=1 to 999 do

StringGrid1.Cells[i,i1]:='';

Memo1.Clear;

Label2.Caption:= 'Кол-во Лексем: 0 ';

Memo2.Clear;

Label3.Caption:= 'Всего строк в файле: 0 '

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

end.

Результаты работы:

Вывод: в ходе проделанной работы были изучены основные понятия теории регулярных грамматик; был построен лексический анализатор, который позволяет выделить во входном тексте нужные лексемы; неверные лексемы анализатор помещает в поле ошибочных лексем, и продолжает работу пока не будет, достигнут конец файла.

Соседние файлы в папке 2