8. Счетчик в виде продукции
COUNTER():IF D:NUMB(X1) B:+(X1,1,X2) THEN NUMB(X2);
Сколько раз будет вызвана продукция COUNTER() таким будет значение X2 в фрагменте NUMB(X2).
Пример 8.1.
Сколько на факультете ПМ студентов по имени Дмитрий?
START:IF THEN NUMB(0) T!:NUMB_DM() T1: OUT_NUMB();
{= Подсчет Дмитриев =}
NUMB_DM():IF ГР(X1,ПМ) СТУД(X2,X1) ИМЯ(Дмитрий,X2) THEN T1:COUNTER();
OUT_NUMB():IF NUMB(X5) THEN B:A("Количество Дмитриев - ",X5);
Предыдущий раздел|Следующий раздел