Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Мой / СГСА

.docx
Скачиваний:
14
Добавлен:
11.06.2015
Размер:
20.75 Кб
Скачать

begin

A:=IA(0).IA.0…0; B:=IB; C:=0; T:=0; P:=0;

if(T!=7)

While(!(C(1)^C(2)))

C:=C(0).C(1).C(3,32).0;

OC:=C(1,16)

end

0

If((!B(14)*B(15)*!P(0))V(!B(14)*!B(15)*P(0)))

0

1

C:=C+A; P(0):=0;

1

If((B(14)*!B(15)*!P(0))V(!B(14)*B(15)*P(0)))

0

1

C:=C+A(0).A(1).A(3,32).0; P(0):=0;

If((B(14)*B(15)*!P(0))V(B(14)*!B(15)*P(0)))

0

1

C:=C+!A; P(0):=1;

If(B(14)*B(15)*P(0))

0

P(0):=1;

1

C:=C(0).C(0).C(1).C(1).C(2,30); B:=0.0.B(0,13); T:=T+1;

If(!B(14)*!B(15)*P(0))V(!B(14)*B(15)*!P(0)))

0

C:=C+A;

1

If (!B(14)*B(15)*P(0))

0

1

C:=C+A(0).A(1).A(3,32).0

If(B(14)*!B(15)*!P(0))

0

1

C:=C+!A

C:=C(0).C(0).C(1).C(1).C(2,30); B:=0.0.B(0,13);

OC:=C(1,16);

end

Содержательная граф-схема алгоритма

Соседние файлы в папке Мой