110 likes | 293 Views
Binevenita si mult asteptata vacanta de Paste. Vacanta de Paste a inceput.Ce ziceti de o vizita prin mai multe localitati de unde sa aflam traditiile acestei sarbatori ?. Eu (Diana) si Roxy am ales locatiile:Vaidei Fizesti , Hobita , Serel,Craguis , Malaiesti , Valea Daljii.
E N D
Vacanta de Paste a inceput.Ceziceti de o vizitaprinmaimultelocalitati de undesaaflamtraditiileacesteisarbatori?
Eu(Diana) si Roxy am ales locatiile:Vaidei Fizesti, Hobita, Serel,Craguis, Malaiesti, ValeaDaljii
*Camy si Oana au gasit o harta a Tarii Hategului, pe care au incadrat localitatiile pe care le vom vizita si prin care vom trece:Hateg, Ciopeia, Salasu de Jos, Salasu de Sus, Malaiesti, Ohaba, Baiesti, Vaidei, Galati, Fizesti, Pui, Hobita, Rusor, Serel, Santamarie, Valea Daljii, Totesti, Hatagel, Tustea, Farcadin, General Berthelot, Craguis, Hateg(din nou acasa).
Ionut a desenatpefoaiehartatraseului. Dan a cautat o solutiepentru a vizita o singura data toatesatele, traseulsa fie parcurs cu cost minim, iardupaultimalocalitatevizitatasa ne intoarcem in orasul de plecare, Hateg.
Camy: Si in vacanta folosim grafurile de la orele de informatica?Nu-i asa ca satele reprezinta varfurile grafului iar drumurile sunt arcele? Oana:Da, dar acum trebuie sa gasim o modalitate ca sa rezolvam ceea ce ne-am propus. Avem nevoie de o modalitate de reprezentare a grafului, astfel incat sa asociem fiecarei muchii un numar real care sa corespunda distantei dintre 2 varfuri(localitati). Camy:Daca alegem ca reprezentare matricea de adiacenta, dar in care sa completam cu 1 in cazul in care exista arc si cu 0 in caz contrar, facand urmatoarea modificare: a[i,j]= distanta dintre orasele i si j.Ce ziceti,merge? Roxy:Este o solutie buna!
Procedure minim(varDm:mat_ad); vari,j,k:integer; Begin Dm:=c; for k:=1 to n do for i:=2 to n do for j:=1 to n do if (k<>i) and(k<>j) then if Dm[i,k]+Dm[k,j]<Dm[i,j] then Dm[i,j]:=Dm[i,k]+Dm[k,j]; End; BEGIN clrscr; citire(c,n); minim(Dm); for i:=1 to n do begin for j:=1 to n do Write(Dm[i,j],' '); writeln; end; readln; end. program vacanta_Pasti_drum_scrut_si_cost_minim; type mat_ad=array[1..50,1..50]of integer; varc,Dm:mat_ad; {c=matriceacosturilor} n,i,j:integer; Procedure citire(var c:mat_ad;var n:integer); var f:text; x,m,i,j:integer; Begin Assign(f,'cost.txt'); Reset(f); Readln(f,n); Readln(f,m); for i:=1 to n do for j:=1 to n do if i=j then c[i,j]:=0 else c[i,j]:=maxint; for i:=2 to m do begin readln(f,i,j,x); {x=cost} c[i,j]:=x; end; close(f); End;
Concluzii:Lucrurileinvatate la grafuri, combinate cu metoda backtracking ajuta la alegereadrumuluicelmaiscurtdintre 2 pct x si y, farasatreci de douaoriprintr-un punct. Grafurilesuntfoartefolositoare in viata de zi cu zi.Acestea au ajutatsi la stabilireatraseuluinostru.
Proiect realizat de IEPURASII PocanschiIonut Dragota Diana IonutCamelia Paran Dan PavelOana Razvan Roxana