Diff for ''

Revision 1
Time:
2024-06-13 22:31
Revision 86
Author:
black
Time:
2024-06-18 03:17
Deletions are marked like this. Additions are marked like this.
Line 1: Line 1:
# Příklad do prologu Seznam je řazen podle abecedy.
Line 3: Line 3:
<{ForumPost(poster="wweennddeell", timestamp=2010-06-28 22:20:08)}>
Dobrý den,
  
potřeboval bych pomoct naprogramovat úlohu v prologu. Hledal jsem nějaké řešení na internetu, ale nic jsem nenašel a absolutně si s tím nevím rady.
  
Úloha zní takto: Na vstupu je zadán graf, který obecně není stromem. Napište program v jazyce Prolog, který vytiskne pro zadaný uzel grafu všechny cykly grafu, jichž je daný uzel prvkem.
  
Budu rád za každou Vaši pomoc...
<{/ForumPost}>

<{ForumPost(poster="H8me", timestamp=2010-06-29 17:12:28)}>
Zdarec,
co to to ? Je to pre orientovany graf.

    %graf je zoznam hran v tvare h(X,Y)
    
    vsetkyCykly(Hrany,X,Out):-findall(C,(cyklus(Hrany,X,X,[],C),length(C,Len),Len > 1),Out).
    
    cyklus(_,X,X,Akum,Akum).
    cyklus(Hrany,X,Y,Akum,Out):-member(h(Y,N),Hrany), not(member(N,Akum)), cyklus(Hrany,X,N,[N|Akum],Out).
    


<{/ForumPost}>

<{ForumPost(poster="wweennddeell", timestamp=2010-06-29 23:05:55)}>
Díky moc za snahu. Ten prolog je pro mě kámen úrazu.
  
Jestli sem to dobře pochopil, tak mám například tyto hrany:
  
h(b,c).
h(f,c).
h(g,h).
h(d).
h(f,b).
h(k,f).
h(h,g).
  
Co mám teda napsat za vstupní podmínku, aby mi prolog vypsal všechny cykly třeba uzlu f (i když v tomhle příkladu je pouze jeden cyklus).
  
Řešení sem našel na téhle stránce: [https://prof.ti.bfh.ch/hew1/informatik3/prolog/p-99/](https://prof.ti.bfh.ch/hew1/informatik3/prolog/p-99/) .Příklad P82 by měl být přesně ten, co hledám, bohužel vůbec nevím jak ten program mám z toho sestavit.
<{/ForumPost}>

<{ForumPost(poster="H8me", timestamp=2010-06-29 23:25:14)}>
Neviem co ma vyjadrovat h(d) ale ked to preskocim tak dotaz pre tvoj priklad by vyzeral takto:
  
vsetkyCykly(\[h(f,c),h(g,h),h(f,b),h(k,f),h(h,g)],f,Out).
  
Out je volna premenna, ta vrati zoznam cyklov.
  
A to riesenie co si postol funguje na tom istom principe, tiez vyhladava cesty v grafe zo zaciatkom aj koncom v tom istom bode.
<{/ForumPost}>

<{ForumPost(poster="Andrew24", timestamp=2015-01-12 13:58:54)}>
Mohl by mi prosím někdo poradit jak by to vypadalo kdyby se měly na konci vypsat všechny cykly jichž daný uzel **neni** prvkem? díky
<{/ForumPost}>
* [http://montyb.borec.cz/ Martin Bezdíček]
** něco fotek z matfyzu, něco dalších fotek a vlastní prózy, prostě nuda
* [http://martin.alikuvkoutek.cz/ Martin Cetkovský]
** informatika, admin [http://citaty.matfyz.cz Citátů MFF], správce [http://www.kolej.mff.cuni.cz kolejních stránek 17. listopadu], člen (převážně matfyzáckého) [http://sebranka.matfyz.cz pěveckého sboru Sebranka], syn své maminky :)
** [http://basnik.alikuvkoutek.cz/ amatérské básničky] (některé i poměrně kvalitní), [http://vtipy.alikuvkoutek.cz něco pro úsměv], [http://mcsoftware.alikuvkoutek.cz/?FID=70& program proti zapomínání] (Windows)
* [http://cendo.skialpfest.sk Peter Čendula]
** skialpy, hory, blog
* [http://jojo.matfyz.cz/ Marián Černý]
** zatiaľ nič zaujímavé
* [http://www.decky.cz/ Martin Děcký]
** informatika, nějaké [http://projects.decky.cz/ projekty] a [http://lectures.decky.cz/ přednášky]
* [http://starec.blog.zive.cz/ Vladimír Dědek]
** C#, ASP.NET, SQL a mnohe dalsi
* [http://joshis.iprofil.cz/ Petr Dvořák (Josh)]
** článečky, diskuze, fotogalerie, studijní podklady
* [http://www.jail.sk Ján Ilavský (Jail)]
** hudba, zatiaľ nič moc
* [http://pavelmotal.zzl.org/ Pavel Motal]
** osobní web: moje práce, odkazy, galerie, chat, atd...
* [http://www.koupy.net/ Petr Koupý]
** osobní web, programy
* [http://www.aleskrajnik.cz/ Aleš Krajník]
** Wing Chun, PHP, Fotky focené pro radost ...
* [http://andree.sk/ Andrej Kruták (andree)]
** informatika, moje projekty, domáce úlohy z C, Pascalu, neprocedurálka... a rôzne iné halušky ;-)
* [http://kryl.info Milan Kryl]
** informatika, řešené příklady pro cvika z UNIXu, citáty vyučujících na MFF UK, ...
* [http://www.kulman.sk Igor Kulman]
** weblog o webových technológiách a Windows Vista, ModularCMS
* [http://mach.matfyz.cz Lukáš Mach]
** zápisky z přednášek (viz červený odkaz - hlavně Teorie her + nějaké náhodné věci) a spálený chleba
* [http://www.majda.cz David Majda]
** informatika, [http://www.majda.cz/zapisnik/ zápisník] (především o programování), stránky s [http://ekonomie.majda.cz/ materiály ke Kameníčkově ekonomii], pár dalších věcí
* [http://www.jakubmaly.cz Jakub Malý (trupik)]
** Jakub Malý, osobní stránky a blog
* [http://www.nekola.cz Ondra Nekola (satai)]
** Jsem Šedý, stojím mezi svící a hvězdou. Jsme Šedí, stojíme mezi světlem a temnotou. Java, Mac OS X, programování v reálném světě a sci-fi.
* [http://www.cs.wm.edu/~dnguyen/ David T. Nguyen]
** Osobní stránky absolventa. MFF, Boston, Stanford, W&M, Facebook.
* [http://urtax.ms.mff.cuni.cz/~novap2am/ Petr Novák (che)]
** nějaké poznámky, fotky, nově přidaný odkaz na Královskou společnost pro sprchování s rodiči
* [http://ivokabel.wz.cz Ivo Pavlík]
** Niečo o mne, nejaké obrázky...
* [http://artax.karlin.mff.cuni.cz/~pecaj2am Jakub Pečánka (pecan)]
** studium (matematika a ekonomie), doučování, obecné info, ...
* [http://artax.karlin.mff.cuni.cz/~pestm1am Michal Pešta (Mišisko)]
** hory, foto, básne, matematická štatistika, ...
* [http://www.tydlin.cz Tomáš Pop (Ty-Dyt nebo Tydlin)]
** Osobní stránky, ale celkem hodně věcí ze studia z MFF, ...
* [http://anja.matfyz.cz/ Anička Roubíčková]
** informatika, zápisky z přednášek a cvičení
* [http://j4ro.livejournal.com Jan Rouš (ja.ro)]
** blog
* [http://atrey.karlin.mff.cuni.cz/~miero/ Miroslav Rudišin (miEro)]
** informatika, správca [http://artax.karlin.mff.cuni.cz/ artax-u], ...
* [http://gk2.sk/ Pavol "stick" Rusnák]
** #cypherpunk #hacker #openhw #privacy #bitcoin #newmediaart
* [http://www.volny.cz/amiginka/moje/ Jitka Setíkovská (Amiginka)]
** matematika, hlavně úkoly na Výpočetní prostředí pro statistickou analýzu dat, RC5-72 team UK
* [http://artax.karlin.mff.cuni.cz/~sotam0am Miroslava Sotáková (mirka)]
** zápisky z ciest, fotky, časom a príležitostne i tá matematika
* [http://www.lukysoft.cz Lukáš Stehlík (Luky)]
** informatika, zápočtáky, ročníkáče a moje jiné projekty
* [http://www.suchan.cz Martin Suchan]
** blog, fotky, občas zmínka o mé tvorbě na MFF
* [http://jsimlo.sk/ Juraj Šimlovič (jsimlo)]
** kopa blbostí, pár zápočťákov [http://jsimlo.sk/home/projects.php tu], editor [http://jsimlo.sk/notepad/ TED Notepad], ..
* [http://srakyi.modry.cz/blog/ Michal Šrajer (srakyi)]
** pokus o blog na téma [http://srakyi.modry.cz/blog/ softwarové inženýrství]
* [http://andrew.matfyz.cz Ondrej Šterbák (andrew)]
** informatika, nejaké programíky, odkazy..
* [http://www.expost.cz/ František Štrupl]
** Především odkazy na praktika a diferenciální geometrie.
* [http://hanasustkova.ic.cz Hana Šustková]
** Stránky o MFF, časopisu Lacadalet a jen tak
* [http://kdybynahodou.wz.cz/ Julie Švecová ]
**Kdybynáhodou: blbosti, citáty,povídky.. prostě osobní stránky..
* [http://www.josiff.net Jozef Sabo (JosIFF)]
** blog, nejaké fotky a linky, samozrejme guestbook...
* [http://www.martinvseticka.eu Martin Všetička]
** Programování I. - řešené úlohy z Pascalu, různé notace (postfix, prefix, infix) v C#; Úvod do UNIXu - zápisky ze cvičení z UNIXu a pár řešených zkouškových úloh