close

Вход

Забыли?

вход по аккаунту

?

5 (2)

код для вставкиСкачать
Кононов Дмитрий
Группа АИ-III-024
Лабораторная работа №5.
Процедура, которая не смещает указатель.
Лексический анализ включает в себя сканирование компилируемой программы и распознавание лексем, составляющих предложения исходного текста. Сканеры обычно строятся таким образом, чтобы они могли распознавать ключевые слова, операторы и идентификаторы так же, как целые числа, числа с плавающей точкой, строки символов и другие аналогичные конструкции, встречающиеся в исходной программе. Точный перечень лексем, которые необходимо распознавать, зависит, разумеется, от языка программирования, на который рассчитан компилятор, и от грамматики, используемой для описания этого языка. Такие объекты, как идентификаторы и целые числа обычно распознаются сканером как отдельные лексемы.
Данной программе будет дано 2 текстовых документа: в одном будет находиться исходный текст, в во втором - ключевые слова. Программа будет выбирать из исходного текста перечисленные во втором файле ключевые слова и записывать их в массив TAB_K. Также в массив TAB_I будут записываться идентификаторы.
Текст программы:
var s,c:string;
k,kl,id,tab_i,tab_k:array [1..100] of string;
f,kluch:text;
st,i,x,n,o,j,d,d2,l,q,r,r2:integer;
procedure scan (c:string; var k:array [1..100] of string; i:integer);
begin if (((c[1]>='A') and (c[1]<='Z')) or ((c[1]>='a') and (c[1]<='z'))) then begin k[1]:=c[1];
i:=1; x:=2;
st:=1;end;
repeat
case st of
1:begin if (((c[x]>='A') and (c[x]<='Z')) or ((c[x]>='a') and (c[x]<='z')) or ((c[x]>='0') and (c[x]<='9'))) then begin k[i]:=k[i]+c[x];
inc(x); end
else begin st:=2;x:=x+1; end;
end;
2:begin if (((c[x]>='A') and (c[x]<='Z')) or ((c[x]>='a') and (c[x]<='z'))) then begin i:=i+1;
k[i]:=c[x]; x:=x;
st:=1; end
else x:=x+1;
end; end;
until length(c)=x;
end;
begin d:=1;
d2:=1;
assign(kluch,'Kluch.txt');
reset(kluch);
i:=0;
r:=0;
r2:=0;
repeat i:=i+1;
readln (kluch,c);
kl[i]:=c;
until eof(kluch);
o:=i;
close(kluch);
assign(f,'Text.txt');
reset(f);
repeat
readln(f,c);
scan (c,k,i);
n:=i;
for i:=1 to n do
begin l:=1;
for j:=1 to o do
if k[i]=kl[j] then l:=0;
if l=1 then begin for q:=1 to d do
if k[i]=tab_i[q] then l:=0;
if l=1 then begin r:=r+1; tab_i[r]:=k[i]; d:=d+1;end;
end;
end;
for i:=1 to n do
begin l:=0;
for j:=1 to o do
if k[i]=kl[j] then l:=1;
if l=1 then begin for q:=1 to d2 do
if k[i]=tab_k[q] then l:=0;
if l=1 then begin r2:=r2+1; tab_k[r2]:=k[i]; d2:=d2+1;end;
end;
end;
until eof(f);
close(f);
for i:=1 to r do
writeln (tab_i[i]);
writeln;
for i:=1 to r2 do
writeln (tab_k[i]);
end.
В результате компиляции программы получится следующий результат:
xx
yy
iinteger
f идентификаторы
rreal
y
cc
ff
var
begin
readln ключи
writeln
end
Документ
Категория
Рефераты
Просмотров
8
Размер файла
19 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа