Diff for ''

Deletions are marked like this.	Additions are marked like this.
Line 1:	Line 1:
# Příklad do prologu	# Stáž v oddělení Řízení IT rizik - Praha
Line 3:	Line 3:
<{ForumPost(poster="wweennddeell", timestamp=2010-06-28 22:20:08)}> Dobrý den,	<{ForumPost(poster="careermarket", timestamp=2016-07-21 07:23:14)}> ** Nejde Vám PwC a IT dohromady?     Hledáme nové kolegy na stáže v našem oddělení Řízení IT rizik**
Line 6:	Line 7:
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.	Jako součást našeho týmu rozvinete své znalosti a zkušenosti v oblastech jakou jsou:     • mapování business procesů, testování interního kontrolního prostředí v oblasti IT, posouzení rizik     • revize implementace a migrace ERP systémů (typicky SAP), řízení nebo posouzení IT projektů     • posouzení zabezpečení síťové infrastruktury a datových skladů, penetrační testování
Line 8:	Line 12:
Ú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.	Jako člen tohoto týmu budete využívat procesní a technické znalosti a zkušenosti pro zhodnocení kontrolního prostředí v auditovaných společnostech. Kromě této činnosti můžete poskytovat i řadu dalších konzultačních služeb v oblasti procesních kontrol, informačních systémů a zpracování dat přímo našim klientům.
Line 10:	Line 14:
Budu rád za každou Vaši pomoc...	**Požadavky**     • student/ka 3. - 5. ročníku studia na vysoké škole     • přehled a zájem o podnikového oblast IT - fyzická i logická infrastruktura, procesy, rizika, IT bezpečnost a hrozby     • analytické a logické myšlení     • výborná znalost češtiny a dobrou znalost angličtiny     • ochota cestovat v rámci ČR/regionu    [http://careermarket.cz/hledam-uplatneni ... il?id=1889](http://careermarket.cz/hledam-uplatneni/inzeraty/detail?id=1889)
Line 13:	Line 24:
<{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}>