Примеры программ на DPL

Алгоритм Евклида (нахождение наибольшего общего делителя)

begin

var x, y: int; /* описание переменных */

read x, y; /* ввод операндов */

/* выполнять до равенства аргументов */

loop x!= y ->

case

x > y -> x:= x - y

or

y > x -> y:= y - x

end

end;

write x /* полученный НОД */

end

Пример 1: Найти НОД для 30 и 21. x = 30 – 21 = 9 y = 21 – 9 = 12 y = 12 – 9 = 3 x = 9 – 3 = 6 x = 6 – 3 = 3 НОД = x = 3

Пример 2: Найти НОД для 42 и 18. x = 42 – 18 = 24 x = 24 – 18 = 6 y = 18 – 6 = 12 y = 12 – 6 = 6 НОД = x = 6

Суммирование n элементов из входного потока

begin

var a, i, s, n: int;

i,s:= 0,0;

read n;

loop

i < n -> read a; s,i:= s+a,i+1

end;

write s

end

Закрепление материала: составить программу нахождения максимального элемента из первых 10 чисел входного потока.

begin

var a, i, max: int;

i,max:= 0,0;

loop i < 10 ->

read a;

case

a > max -> max:= a

end;

i:= i+1

end;

write max

end

Применение КС-грамматик в синтаксических анализаторах

В ОС UNIX с помощью Генератора синтаксических анализаторов YACC по грамматике можно построить синтаксический анализатор – функция, создающая по исходным программам деревья разбора или фрагменты машинного кода. Эта функция проверяет корректность исходной программы, входит в состав любого компилятора.

Правила вывода записываются в РБНФ. С любым правилом можно связать действие - набор операторов языка Си, которые будут выполняться при каждом распознавании конструкции во входном тексте.

Действие заключается в фигурные скобки и помещается вслед за правой частью правила, т.е. правило с действием имеет вид:

<имя_нетерминального_символа>: определение {действие};

При использовании сокращенной записи правил с общей левой частью следует иметь в виду, что действие может относиться только к отдельному правилу, а не к их совокупности.

Statement: assign_stat

|

if_then_stat {printf("if_оператор\n");}

|

goto_stat {kgoto++;

printf("goto_оператор\n");}