Eilera cikls (Turbo Pascal 7 0) programma

Risinājums: Programma veidota Pascal valodā, programma “Turbo Pascal 7.0”. Datu ievade un izvade notiek failos (atbilstoši “Eiler.in” un “Eiler.out”). Grafs tiek uzdots ar savu virsotņu blakus attiecības sarakstu struktūru Adj[x], kur Adj[x] – virsotņu daudzums, kas saistītas ar x piederošo X. Rezultējošā Eilera ķēde formējas daudzumā Z.

Z = Z U R; {ciklu apvienošana vienā ciklā}

R = {v}; {Eilera ķēdes atsevišķa cikla veidošana}

R = R U {w}; {nodzēst noieto šķautni (v,w) }

until Not |Adj[v]|>0; {kamēr nav noietas visas šķautnes}

Ieejas datu struktūra tiek uzdota ar teksta failu „Eiler.in”. Pirmais skaitlis norāda virsotņu skaitu, tālāk katrā rindā pirmais cipars norāda virsotni, ar to saistīto virsotņu skaitu, tad šo virsotņu sarakstu:

Izskaitļojumu rezultāti tiek saglabāti izejas teksta failā „Eiler.out” ar sekojošu struktūru:

Katrā solī tiek parādīta veidojošās Eilera ķēde Z, kas tiek paplašināta ar R izdalīto ciklu. Rezultējošais Eilera cikls tiek atzīmēts ar O rindas sākumā.

{Nolūks ir atzīmēs virsotnes ar to kārtas numuriem blakusattiecības sarakstā}

{ja šķautne (w,v) nav cilpa, tad nodzēst arī to no saraksta virsotnei w}