Diff for ''

Revision 1
Time:
2024-06-13 22:31
Revision 108
Author:
black
Time:
2024-11-18 11:42
Deletions are marked like this. Additions are marked like this.
Line 1: Line 1:
# Příklad do prologu
Line 3: Line 2:
<{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}>
# Format diskuse #
Line 13: Line 4:
<{ForumPost(poster="H8me", timestamp=2010-06-29 17:12:28)}>
Zdarec,
co to to ? Je to pre orientovany graf.
Diskuse se delaji po vlaknech `== Tema ==`, dalsi prispevky se odsazuji pomoci `*, **, ***, ...` a podepisuji pomoci `~~~~`.
Line 17: Line 6:
    %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).
    
Kala oti einai aderfi einai oeanoflro .alla einai toso ksefonimeni na isxyrizetai oti i Kaneli tou askise prwti swmatiki via????Ase pou i Kaneli 2 lekseis na pei ton exei tapwsei to mapa giati n askhsei via? An k einai toso aderfi pou xalara ton exei tou xeriou tis i kaneli .Malista pisteuw den antapedwse ta xtypimata giati fovithike mh toy xalasei to make upVy jste banda ,ktere1 se věnuje trestne9 činosti !!!!!!!! Propagujete sve9 pojstoe nezakonnfdm jednanedm.A tedm chcete doke1zat co? Že jste banda krimine1lnedk s plnou hubou kecu,kteřed nedovedou nic jine9ho,než čme1rat po cizedm majetku!!?? To už jste doke1zali
Line 25: Line 8:
## gUcqGxCFhUmHRmMy ##
Line 26: Line 10:
<{/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}>
I would like to express my tnahks to the writer just for rescuing me from such a problem. Right after checking throughout the world wide web and finding opinions which were not powerful, I figured my entire life was well over. Living minus the solutions to the problems you have solved through this guide is a critical case, and the ones that could have badly damaged my career if I hadn't noticed your site. Your own personal skills and kindness in taking care of all areas was very useful. I'm not sure what I would have done if I had not encountered such a stuff like this. It's possible to at this point relish my future. Thanks for your time so much for your high quality and sensible guide. I will not think twice to endorse your web site to anybody who needs to have guidance on this situation.J1rfl6 , \[url=http://quejpgvrgilf.com/]quejpgvrgilf\[/url], \[link=http://wktcufzbeakr.com/]wktcufzbeakr\[/link], http://gsobadwjiubm.com/