41 Востаннє редагувалося kostoprav666 (28.08.2019 16:22:00)

Re: Вперед у світле майбутнє

Друк газет = 3;
synonym "Друк", "print";
Наклад журналів = Друк газет;
Друк Наклад журналів;
газет = 8;
Друк газет;
Синтаксическая ошибка в строке 3 на символе 'PRINT'

А якщо так

Друк газет = 3;
synonym "Друк", "print";
Наклад журналів = 20;
Друк Наклад журналів; Друк;
газет = 8;
Друк газет;
20
8

Це ж як можна заплутати програму  *JOKINGLY*

42

Re: Вперед у світле майбутнє

/KIT\ написав:

змінні з пробілами - це жах

У фортрані пробіли ігноруються, тому змінні з пробілами там теж можливі, як і ключові слова з пробілами (GOTO, GO TO, G O T O сприймаються як одне й те ж).

Подякували: 221VOLT1

43

Re: Вперед у світле майбутнє

Топологічне сортування. Програма успішно запрацювала.

Граф = array(
  object(array("Флаг", 0), array("Имя", "Трусы"), array("Следующий", array("Ботинки", "Штаны"))),
  object(array("Флаг", 0), array("Имя", "Штаны"), array("Следующий", array("Ботинки", "Ремень"))),
  object(array("Флаг", 0), array("Имя", "Ремень"), array("Следующий", array("Пиджак"))),
  object(array("Флаг", 0), array("Имя", "Рубашка"), array("Следующий", array("Ремень", "Галстук"))),
  object(array("Флаг", 0), array("Имя", "Галстук"), array("Следующий", array("Пиджак"))),
  object(array("Флаг", 0), array("Имя", "Носки"), array("Следующий", array("Ботинки"))),
  object(array("Флаг", 0), array("Имя", "Ботинки"), array("Следующий", array())),
  object(array("Флаг", 0), array("Имя", "Часы"), array("Следующий", array())),
  object(array("Флаг", 0), array("Имя", "Пиджак"), array("Следующий", array()))
);

Итоговый список = array();

function Поиск в глубину(Узел) {
  Узел.Флаг = 1;
  local Список смежности = Узел.Следующий;
  while(i <= alen(Список смежности)) begin local i = 1; step i = i + 1; {
    local Имя смежного узла = Список смежности[i];
    while(j <= alen(Граф)) begin local j = 1; step j = j + 1; {
      local Смежный узел = Граф[j];
      if(Смежный узел.Имя = Имя смежного узла) {
        do case {
          case(Смежный узел.Флаг = 1) {
            print "Найден цикл. Сортировка невозможна."; print; exit();
          }
          case(Смежный узел.Флаг = 0) {
            Поиск в глубину(Смежный узел); break;
          }
        }
      }
    }
  }
  Узел.Флаг = 2;
  aunshift(Итоговый список, Узел.Имя);
}
while(i <= alen(Граф)) begin i = 1; step i = i + 1; {
  Узел = Граф[i];
  if(Узел.Флаг = 0) {
    Поиск в глубину(Узел);
  }
}
print Итоговый список;
Массив #47 [9] {
  [1] => Часы (Строка)
  [2] => Носки (Строка)
  [3] => Рубашка (Строка)
  [4] => Галстук (Строка)
  [5] => Трусы (Строка)
  [6] => Штаны (Строка)
  [7] => Ремень (Строка)
  [8] => Пиджак (Строка)
  [9] => Ботинки (Строка)
}

44

Re: Вперед у світле майбутнє

В попередньому прикладі занадто заплутаний синтаксис визначення об'єкта. Зробив в стилі js.

Граф = array(
  object { Флаг: 0, Имя: "Трусы", Следующий: array("Ботинки", "Штаны") },
  object { Флаг: 0, Имя: "Штаны", Следующий: array("Ботинки", "Ремень") },
  object { Флаг: 0, Имя: "Ремень", Следующий: array("Пиджак") },
  object { Флаг: 0, Имя: "Рубашка", Следующий: array("Ремень", "Галстук") },
  object { Флаг: 0, Имя: "Галстук", Следующий: array("Пиджак") },
  object { Флаг: 0, Имя: "Носки", Следующий: array("Ботинки") },
  object { Флаг: 0, Имя: "Ботинки", Следующий: array() },
  object { Флаг: 0, Имя: "Часы", Следующий: array() },
  object { Флаг: 0, Имя: "Пиджак", Следующий: array() }
);

Страждаю всякої фігньою замість того щоб гроші заробляти як всі.  *SORRY*

45 Востаннє редагувалося kostoprav666 (20.09.2019 19:35:37)

Re: Вперед у світле майбутнє

Зробив онлайн інтерпретатор. Скоро викладу посилання. Ще потрібно написати документацію, приклади. Але вже працює в павутинці ... :)

46

Re: Вперед у світле майбутнє

ur_naz написав:

а геморой з постійной зміной розкладки клавіатури

А в чому проблема перемикати розкладку? Я от навіть розділові знаки на англійській розкладці вводжу; кириличні вмикаю виключно для вводу кириличних символів, уже й забувати починаю, де там розділові знаки...

47

Re: Вперед у світле майбутнє

Прихований текст

48

Re: Вперед у світле майбутнє

Назва банальна.

Раджу щось оригінальне вигадати, от-як у мене.

49

Re: Вперед у світле майбутнє

Я теж запрошую Вас tuday.

Прихований текст

http://bednpart.org.ua/ (російська)

50

Re: Вперед у світле майбутнє

elektryk написав:

Я теж запрошую Вас tuday.

Прихований текст

http://bednpart.org.ua/ (російська)

Бандерівський сайт все червоно чорне.

51 Востаннє редагувалося /KIT\ (26.12.2019 23:17:48)

Re: Вперед у світле майбутнє

eset каже, що сайт з небажаним вмістом і сумнівною репутацією

52 Востаннє редагувалося 221VOLT (27.12.2019 04:13:21)

Re: Вперед у світле майбутнє

kostoprav666 написав:
Прихований текст

https://ebal-language.appspot.com/ (російська)

mr. koala, mr. ФакіТрусику , mr. dot!

а чому оце ви на оцей сайт,
оце посилання та на mr. kostoprav666 бочку не котите,
як на мене?

чому мене ви обзиваєте русофілом, москалем та іншими "приємностями",
а інших людей, хто також постить щось російською,
для прикладу, mr. kostoprav666 -- ні?

це тому, що mr. kostoprav666 --
комусь з вас кум-брат-сват-кращий_друг ?

чи навпаки, ви активного гоните бочку лише на тих,
хто 100% не може бути русофілом-москалем etc, га?

*FACEPALM*
* анекдот про "ви або хрестик зніміть, або труси надіньте" *
( або на всіх одинаково гоніть бочку, включаючи і на самих себе,
або перестаньте на мене гнати, пробачення за наклепи попросіть )

53

Re: Вперед у світле майбутнє

221VOLT написав:
kostoprav666 написав:

https://ebal-language.appspot.com/

mr. koala, mr. ФакіТрусику , mr. dot!

а чому оце ви на оцей сайт,
оце посилання та на mr. kostoprav666 бочку не котите,
як на мене?

чому мене ви обзиваєте русофілом, москалем та іншими "приємностями",
а інших людей, хто також постить щось російською,
для прикладу, mr. kostoprav666 -- ні?

це тому, що mr. kostoprav666 --
комусь з вас кум-брат-сват-кращий_друг ?

чи навпаки, ви активного гоните бочку лише на тих,
хто 100% не може бути русофілом-москалем etc, га?

*FACEPALM*
* анекдот про "ви або хрестик зніміть, або труси надіньте" *
( або на всіх одинаково гоніть бочку, включаючи і на самих себе,
або перестаньте на мене гнати, пробачення за наклепи попросіть )


Јакшчо не помильају сьа, ја вже кидав скаргу.

54

Re: Вперед у світле майбутнє

pluszz написав:
elektryk написав:

Я теж запрошую Вас tuday.
http://bednpart.org.ua/

Бандерівський сайт все червоно чорне.

І що??

55 Востаннє редагувалося koala (27.12.2019 15:52:00)

Re: Вперед у світле майбутнє

221VOLT написав:
kostoprav666 написав:

https://ebal-language.appspot.com/

mr. koala, mr. ФакіТрусику , mr. dot!

а чому оце ви на оцей сайт,
оце посилання та на mr. kostoprav666 бочку не котите,
як на мене?

чому мене ви обзиваєте русофілом, москалем та іншими "приємностями",
а інших людей, хто також постить щось російською,
для прикладу, mr. kostoprav666 -- ні?

це тому, що mr. kostoprav666 --
комусь з вас кум-брат-сват-кращий_друг ?

чи навпаки, ви активного гоните бочку лише на тих,
хто 100% не може бути русофілом-москалем etc, га?

*FACEPALM*
* анекдот про "ви або хрестик зніміть, або труси надіньте" *
( або на всіх одинаково гоніть бочку, включаючи і на самих себе,
або перестаньте на мене гнати, пробачення за наклепи попросіть )

Бо він у чужі теми не лізе з криками "мене цькують". А зауваження за порушення правил він отримував, і прямо в цій темі.

56

Re: Вперед у світле майбутнє

/KIT\ написав:

eset каже, що сайт з небажаним вмістом і сумнівною репутацією

Плюньте в пику тій білій сволоті.

57

Re: Вперед у світле майбутнє

уявляю адресу форку того ебала...  *CRAZY* nae...

58

Re: Вперед у світле майбутнє

ur_naz написав:

уявляю адресу форку того ебала...  *CRAZY* nae...

У моєму будинку попрошу не виражатися!!

59

Re: Вперед у світле майбутнє

а може тебе в СБУ здати за невиконання закону про мову?.. і це ще найм'якіша підозра...

60

Re: Вперед у світле майбутнє

я один не розумію, що тут відбувається?

Подякували: pluszz, P.Y.2