close

Вход

Забыли?

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

?

7 (2)

код для вставкиСкачать
РОСЖЕЛДОР
Федеральное государственное бюджетное образовательное
учреждение высшего профессионального образования
"Ростовский государственный университет путей сообщения"
(ФГБОУ ВПО РГУПС)
Лабораторная работа По дисциплине
"Системное программное обеспечение"
На тему
"Рекурсивный спуск для логического выражения"
Вариант №13
№7
Выполнил:
Ст-т Лысак В.В.
Гр. АИ-3-026
Проверил:
Пр-ль Жуков В.В.
Г. Ростов-на-Дону
2013 г.
Цель работы
создать программу, которая осуществляет выполнение алгоритма рекурсивного спуска для следующей грамматики:
L→Tl {^' or^' T}
Tl→Fl {^' and^' Fl}
(L)|!E<Z〖_n〗_o>E
Zn_o→ >|<|=|≤|≥|<>
Алгоритм построения процедур.
Для построения процедур просматривается правая часть правила для каждого нетерминала.
Если встречается нетерминальный символ, то вызывается процедура для этого символа. Если она завершается без ошибки, то в исходном тексте фраза для этого терма закрыта, и все семантические действия тоже выполнены.
Если встречается терминальный символ, он сравнивается с очередным символом входной строки. Если они совпадают, этот символ просто закрывается. Указатель смещается на один шаг вправо. Если не совпадают, то это синтаксическая ошибка и трансляция прекращается.
Если встречается метасимвол:
Если встречается итерация {, то организуется цикл while, в который помещается все, что заключено в {}. Условием входа в цикл является то, что очередной символ не принадлежит множеству Follow для этого нетерминала.
Если встречается альтернатива ( | ), то организуется оператор if , определяется вхождения очередного символа входной строки множества first для той или иной альтернативы
Код программы (pascal)
PROGRAM SPO_7;
VAR x:string;
i:integer;
flag:boolean;
fff:text;
//процедура обработки ошибок
PROCEDURE ERROR(error_type:integer);
BEGIN
if error_type=1 then writeln('expected end of file....');
if error_type=2 then writeln('invalid character!');
if error_type=3 then writeln('expected closing parenthesis...');
x[i]:='#';
END;
// процедура E с вызовом подпрограммы T, описанную далее
PROCEDURE T;
forward;
PROCEDURE E;
BEGIN
T;
while not((x[i]='#') or (x[i]=')')) do
if (x[i]='o') and (x[i+1]='r') then begin i:=i+2;T;end
else if (x[i]='>') and (x[i+1]='=') then begin i:=i+2;T;end
else if (x[i]='<') and (x[i+1]='=') then begin i:=i+2;T;end
else if (x[i]='<') and (x[i+1]='>') then begin i:=i+2;T;end
else if (x[i]='>') or (x[i]='<') then begin i:=i+1;T;end
else begin ERROR(1); flag:=false; end;
END;
// процедура T с вызовом подпрограммы F, описанную далее
PROCEDURE F;
forward;
PROCEDURE T;
BEGIN
F;
while not((x[i]='#') or (x[i]=')') or ((x[i]='o') and (x[i+1]='r'))) do
begin
if (x[i]='a') and (x[i+1]='n') and (x[i+2]='d') then begin i:=i+3;F;end
else if (x[i]='>') and (x[i+1]='=') then begin i:=i+2;F;end
else if (x[i]='<') and (x[i+1]='=') then begin i:=i+2;F;end
else if (x[i]='<') and (x[i+1]='>') then begin i:=i+2;F;end
else if (x[i]='>') or (x[i]='<') then begin i:=i+1;F;end
else begin ERROR(1); flag:=false; end;
end;
END;
//процедура F
PROCEDURE F;
BEGIN
if (x[i]='X') or (x[i]='Y') then i:=i+1
else if x[i]='(' then begin
i:=i+1;
E;
if x[i]=')' then i:=i+1
else begin ERROR(3); flag:=false; end;
end
else begin ERROR(2); flag:=false; end;
END;
//работа с исходным файлом и завершение с выводом
BEGIN
flag:=true;
assign (fff,'original.txt');
reset (fff);
read (fff,x);
i:=1;
E;
if flag=true then
writeln ('correct line');
close (fff);
END.
Выполнение
Пример №1:
(((((XorY)))))#
correct line
Пример №2:
(X>Y)or(X<Y)#
correct line
Пример №3:
((XandY)or(XandY)#
expected closing parenthesis...
Пример №4:
(Z>=Y)or(X<=Y)#
invalid character!
Пример №4:
(X>=Y)or(X<=Y)
expected end of file....
Документ
Категория
Рефераты
Просмотров
11
Размер файла
21 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа