Имеется код на ЯВУ Pascal. Как описать его средствами IDE OwenLogic?

Имеется код на ЯВУ Pascal:

Код HTML:

---

IF tmp1
THEN
  BEGIN {tmp1}
    IF NOT(D) AND U
    THEN
      BEGIN {NOT(D) AND U}
        D := 1;
        U := 0
      END {NOT(D) AND U}
    ELSE
      IF D AND NOT(U)
      THEN
        BEGIN {D AND NOT(U)}
          D := 0;
          U := 1
        END  {D AND NOT(U)}
  END; {tmp1}

---

Мог бы кто-нибудь мне помочь описать его средствами IDE OwenLogic?

Цитата:

---

Сообщение от Валенок

квадратиками что-ли?

---

да, квадратиками

Цитата:

---

Сообщение от capzap

тут не хватает куска кода, это будет генератор, меняющий состояние каждый цикл

---

по-моему, всё в самый раз

Цитата:

---

Сообщение от Дмитрий_Кирсанов

да, квадратиками

---

Ну, раз квадратиками- переводите в алгоритмический вид, т.е в гостовский графический вид блок схем алгоритмов и из квадратиков в квадратики самостоятельно, вдруг понравится...

Цитата:

---

Сообщение от Sergey666

Ну, раз квадратиками- переводите в алгоритмический вид, т.е в гостовский графический вид блок схем алгоритмов и из квадратиков в квадратики самостоятельно, вдруг понравится...

---

эксперт пожаловал

Цитата:

---

Сообщение от Дмитрий_Кирсанов

эксперт пожаловал

---

Индусы, мне до лампочки что вы там пишете...
Во первых, кто такой " код на ЯВУ Pascal"???
Приведенный код имеет все признаки индусского программирования, поэтому целесообразно привести его в "человеческий" вид, а далее хоть квадратиками, хоть как...

Цитата:

---

Сообщение от capzap

это будет генератор, меняющий состояние каждый цикл

---

Это-ж надо было сделать это так ...по индусски

..............

Цитата:

---

Сообщение от Валенок

Написано ужасно, да)) Может это машина родила?
Но сам генератор управляемый. В п#3 привел его же если что

---

спасибо за подробный ответ

Любимая кнопка программистов -копировать и вставить.

Цитата:

---

Сообщение от Дмитрий_Кирсанов

Имеется код на ЯВУ Pascal:

Код HTML:

---

IF tmp1
THEN
  BEGIN {tmp1}
    IF NOT(D) AND U
    THEN
      BEGIN {NOT(D) AND U}
        D := 1;
        U := 0
      END {NOT(D) AND U}
    ELSE
      IF D AND NOT(U)
      THEN
        BEGIN {D AND NOT(U)}
          D := 0;
          U := 1
        END  {D AND NOT(U)}
  END; {tmp1}

---

Мог бы кто-нибудь мне помочь описать его средствами IDE OwenLogic?

---

Запишитесь в бета-тестеры ОвенLogic c ST-языком. ST - брат-близнец Pascal