Алгоритм Евклида (нахождение наибольшего общего делителя)
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");}