Генератор кода ДРОН Ярослава Романченко: http://sage.com.ua/ru.shtml?e6l0. Там же лежит старая версия ДРАКОН-редактора, которую поддерживает ДРОН.
Схема процедуры быстрой сортировки:
Вложение:
sort.PNG [ 17.97 КБ | Просмотров: 28248 ]
Файл ДРАКОН-схемы для ДРОН-а:
Вложение:
Сгенерированный код:
Код:
MODULE sort;
PROCEDURE Sort(VAR a: ARRAY OF INTEGER;
l, r: INTEGER);
VAR i, j,x: INTEGER;
BEGIN
i := l;
j := r;
x := a[(r+l) DIV 2];
REPEAT
WHILE a[i] < x DO
INC(i)
END; (* WHILE *)
WHILE x < a[j] DO
DEC(j)
END; (* WHILE *)
IF i <= j THEN
t := a[i]; a[i] := a[j]; a[j] := t;
INC(i); DEC(j)
END; (* IF *)
UNTIL i > j;
IF l < j THEN
Sort(a, l, j)
END; (* IF *)
IF i < r THEN
Sort(a, i, r)
END; (* IF *)
END Sort;
END sort.
PROCEDURE Sort(VAR a: ARRAY OF INTEGER;
l, r: INTEGER);
VAR i, j,x: INTEGER;
BEGIN
i := l;
j := r;
x := a[(r+l) DIV 2];
REPEAT
WHILE a[i] < x DO
INC(i)
END; (* WHILE *)
WHILE x < a[j] DO
DEC(j)
END; (* WHILE *)
IF i <= j THEN
t := a[i]; a[i] := a[j]; a[j] := t;
INC(i); DEC(j)
END; (* IF *)
UNTIL i > j;
IF l < j THEN
Sort(a, l, j)
END; (* IF *)
IF i < r THEN
Sort(a, i, r)
END; (* IF *)
END Sort;
END sort.
Замечание: в исходном варианте я допустил ошибку, забыл объявить локальные переменные i, j, x: INTEGER. См. сообщение Ярослава Романченко.
Для меня не очевидны преимущества новых версий редактора и необходимость постоянного изменения формата. Нет гарантий что формат опять не поменяется.
