3.7. Процедура очистки значений

В(10) : массив

с(10) : массив

D(10) : массив

g: data type

очистка_значений=proc(B,c,D,g) returns (B,c,D,g)

для i=1 по 10

B(i)=" "

c(i)=" "

конец цикла

для i=1 по 3

D(i)=" "

конец цикла

g=0

3.8. Процедура выбора занятия среди тех которые требуют корректировки

а(66;11) : таблица

В(10) : массив

с(10) : массив

требуют_корректировки=proc(a;B;c) returns(a;B;c)

пока (пользователь не выбрал) делать

если (пользователь не выбрал)

то

если атрибут(а;11)=2

то

вызов(а)

иначе

переход(а)

конец если

иначе

для i=1 по 10

в(i)=атрибут(а;i)

конец цикла

замена_элемента(а;11;1)

если атрибут(а;5)="лекция"

то

пока (ненайдена пара) делать

вызов(а)

для i=6 по 10

если атрибут (а;i)=в(i)

то

L=L+1

иначе

переход(а)

L=0

конец если

конец цикла

если (L=5)и(атрибут(а;1)<>в(1))

то

замена_элемента(а;11;1)

для i=1 по 10

с(i)=атрибут(а;i)

иначе

переход(а)

конец если

конец цикла

иначе

для конец i=1 по 10

с(i)=0

конец если

конец если

конец цикла

3.9. Замена значений в занятиях требующих корректировку

а(66;11) : таблица

В(10) : массив

D(3) : массив

замена_значений=proc(a;B;D) returns(a)

t=false

пока t=false делать

вызов(а)

р=0

для i=1 по 10

если В(i)=атрибут(а;i)

то

p=p+1

конец если

конец цикла

если р=10

то

для i=8 по 10

атрибут(а;i)=D(i-7)

конец цикла

атрибут(а;11)=0

t=true

иначе

переход(а)

конец если

конец цикла