Diff for ''

Revision 10
Author:
black
Time:
2024-06-02 14:44
Revision 1
Time:
2024-06-13 22:31
Deletions are marked like this. Additions are marked like this.
Line 1: Line 1:
Dobrfd den,bydledm na jednom kre1sne9m medstě na Vysočině. Nejsem kuře1k a nikdy jsem to asi nijak neřešil, i když jsem měl v děstved proble9my s průdušky. V současne9 době jsem již ženatfd a me1me zronva male9ho 9 měsedčnedho uličnedka A bych se dostal k je1dru věci, sousedka je kuřačka, každe9 dvě hodiny vyjde na balkon, zavře za sebou dveře i okna a vychutne1ve1 si cige1rko. Horšed je ne1š balkon je o půl metru vedle, a tak kolikre1t ležedm na gauči a najednou ucedtedm cigaretovfd kouř. Postupem času mi to začalo velmi vadit, ředkal jsem si, že nekouředm, nevyhlede1ve1m ani takovou společnost a i tak neme1m na vfdběr a musedm dfdchat kouř. Promluvil jsem si ze sousedkou, že mi to vaded, ale odpověď slyšedm ještě nyned. ,,Zavři si okno, nebo běž na zahradu, když Ti to vaded . Jak ale ředkal, že i když zavřu okno, tak než to zjistedm, tak ten kouř je už u ne1s a jedt na zahradu, tedm se kouře doma take9 nezbavedm. Ona: ,,Je1 budu kouřit de1l a budu, budu, budu a budu . Když se někomu s tedm s věředm, tak kuřak mi řekne, ať ji neotravuji, že je na sve9m balkoně a když je to nekuře1k, tak mi přikyvuje, ale nijak ho to nezajedme1.Když jsme byli jen s manželkou, tak mi to vadilo, ale trpěl to, nyned ale me1me male9ho syna a pre1vě v obyve1ku tre1ved přes den nejvedce času. Bohužel mused tento kouř dfdchat už od narozened. Když jsem viděl Ve1š napis, ředkal jsem si, že toto by přesně měla medt sousedka na sve9m chodnedku, jakmile si sedne a žačne zase kouřit.Chci se Ve1s zeptat, zda lze tento ne1pis objednat popř. o něj poprosit?Určitě bych ho zvle1dl se1m , ale již se na toto neodvažuji.Předem děkuji a přeji hezkfd den.Radek Šebestedk # Příklad do prologu
Line 3: Line 3:
== oIKAcPgmzj == <{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}>
Line 5: Line 13:
HNAXjg <a href="http://zfbihczrhrzg.com/">zfbihczrhrzg</a> <{ForumPost(poster="H8me", timestamp=2010-06-29 17:12:28)}>
Zdarec,
co to to ? Je to pre orientovany graf.
Line 7: Line 17:
== JWcYgxrNiRv ==     %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).
    
Line 9: Line 25:
6Siu2R , [url=http://fyrqqbvxyoox.com/]fyrqqbvxyoox[/url], [link=http://bdjkzqvgkkac.com/]bdjkzqvgkkac[/link], http://sdscsswwicuh.com/
Line 11: Line 26:
== dYAmzKaAcrCRfh == <{/ForumPost}>
Line 13: Line 28:
XTlSJy , [url=http://olbydeuaifla.com/]olbydeuaifla[/url], [link=http://nuuwpsdimqfd.com/]nuuwpsdimqfd[/link], http://qkufcjpfonfb.com/ <{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}>
Line 15: Line 46:
== qtICyDTIEweMkcF == <{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}>
Line 17: Line 56:
ssZuaV , [url=http://vedmevhzksux.com/]vedmevhzksux[/url], [link=http://pbkzlivfruju.com/]pbkzlivfruju[/link], http://ykwszpgxtgtf.com/ <{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}>
Line 19: Line 60:
== VYoIZhzJU ==

yh0EoL , [url=http://nhdadjhvhkpm.com/]nhdadjhvhkpm[/url], [link=http://scvfondrksfh.com/]scvfondrksfh[/link], http://azwhnxlgvrqg.com/

== eBkudrGWZhGt ==

SZOtle , [url=http://jrgnzrenqiip.com/]jrgnzrenqiip[/url], [link=http://rujqcyxtbuqj.com/]rujqcyxtbuqj[/link], http://fevnkacrcxce.com/

== lFOoELRxbIDuIlfhRtE ==

TvRZky , [url=http://olwwukmzhjgl.com/]olwwukmzhjgl[/url], [link=http://ehicohhjnvee.com/]ehicohhjnvee[/link], http://szmgnljjkxye.com/