Re: Вперед у світле майбутнє
змінні з пробілами - це жах
У фортрані пробіли ігноруються, тому змінні з пробілами там теж можливі, як і ключові слова з пробілами (GOTO, GO TO, G O T O сприймаються як одне й те ж).
Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Ваші проєкти → Вперед у світле майбутнє
Сторінки Попередня 1 2 3 4 5 Наступна
Для відправлення відповіді ви повинні увійти або зареєструватися
змінні з пробілами - це жах
У фортрані пробіли ігноруються, тому змінні з пробілами там теж можливі, як і ключові слова з пробілами (GOTO, GO TO, G O T O сприймаються як одне й те ж).
Топологічне сортування. Програма успішно запрацювала.
Граф = 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] => Ботинки (Строка)
}
В попередньому прикладі занадто заплутаний синтаксис визначення об'єкта. Зробив в стилі 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() }
);
Страждаю всякої фігньою замість того щоб гроші заробляти як всі.
Зробив онлайн інтерпретатор. Скоро викладу посилання. Ще потрібно написати документацію, приклади. Але вже працює в павутинці ...
а геморой з постійной зміной розкладки клавіатури
А в чому проблема перемикати розкладку? Я от навіть розділові знаки на англійській розкладці вводжу; кириличні вмикаю виключно для вводу кириличних символів, уже й забувати починаю, де там розділові знаки...
Раджу щось оригінальне вигадати, от-як у мене.
Я теж запрошую Вас tuday.
▼Прихований текст
Бандерівський сайт все червоно чорне.
eset каже, що сайт з небажаним вмістом і сумнівною репутацією
▼Прихований текст
mr. koala, mr. ФакіТрусику , mr. dot!
а чому оце ви на оцей сайт,
оце посилання та на mr. kostoprav666 бочку не котите,
як на мене?
чому мене ви обзиваєте русофілом, москалем та іншими "приємностями",
а інших людей, хто також постить щось російською,
для прикладу, mr. kostoprav666 -- ні?
це тому, що mr. kostoprav666 --
комусь з вас кум-брат-сват-кращий_друг ?
чи навпаки, ви активного гоните бочку лише на тих,
хто 100% не може бути русофілом-москалем etc, га?
* анекдот про "ви або хрестик зніміть, або труси надіньте" *
( або на всіх одинаково гоніть бочку, включаючи і на самих себе,
або перестаньте на мене гнати, пробачення за наклепи попросіть )
kostoprav666 написав:https://ebal-language.appspot.com/
mr. koala, mr. ФакіТрусику , mr. dot!
а чому оце ви на оцей сайт,
оце посилання та на mr. kostoprav666 бочку не котите,
як на мене?чому мене ви обзиваєте русофілом, москалем та іншими "приємностями",
а інших людей, хто також постить щось російською,
для прикладу, mr. kostoprav666 -- ні?це тому, що mr. kostoprav666 --
комусь з вас кум-брат-сват-кращий_друг ?чи навпаки, ви активного гоните бочку лише на тих,
хто 100% не може бути русофілом-москалем etc, га?
* анекдот про "ви або хрестик зніміть, або труси надіньте" *
( або на всіх одинаково гоніть бочку, включаючи і на самих себе,
або перестаньте на мене гнати, пробачення за наклепи попросіть )
Јакшчо не помильају сьа, ја вже кидав скаргу.
elektryk написав:Я теж запрошую Вас tuday.
http://bednpart.org.ua/Бандерівський сайт все червоно чорне.
І що??
kostoprav666 написав:https://ebal-language.appspot.com/
mr. koala, mr. ФакіТрусику , mr. dot!
а чому оце ви на оцей сайт,
оце посилання та на mr. kostoprav666 бочку не котите,
як на мене?чому мене ви обзиваєте русофілом, москалем та іншими "приємностями",
а інших людей, хто також постить щось російською,
для прикладу, mr. kostoprav666 -- ні?це тому, що mr. kostoprav666 --
комусь з вас кум-брат-сват-кращий_друг ?чи навпаки, ви активного гоните бочку лише на тих,
хто 100% не може бути русофілом-москалем etc, га?
* анекдот про "ви або хрестик зніміть, або труси надіньте" *
( або на всіх одинаково гоніть бочку, включаючи і на самих себе,
або перестаньте на мене гнати, пробачення за наклепи попросіть )
Бо він у чужі теми не лізе з криками "мене цькують". А зауваження за порушення правил він отримував, і прямо в цій темі.
eset каже, що сайт з небажаним вмістом і сумнівною репутацією
Плюньте в пику тій білій сволоті.
уявляю адресу форку того ебала... nae...
У моєму будинку попрошу не виражатися!!
а може тебе в СБУ здати за невиконання закону про мову?.. і це ще найм'якіша підозра...
я один не розумію, що тут відбувається?
Трешняк якщо чесно. Перейди за посиланням пана електрика тобі сподобається. Я таке вперше бачив шок к****а .