> {creare arbore de cautare si stergere valoare data }type arb=^ref; ref=record inf:integer; st,dr:arb; end;var…
Dragos Schiopu
Dragos Schiopu
Pasionat de tehnologie, curios, de mic demontam orice jucarie electrica/electronica sau care avea butoane. Pe ce puneam mana stricam, astazi se cheama ca le testez.
-
-
> {determinare numar frunze dintr-un arbore binar,afisare chei din nodurile care au exact un succesor}…
-
>Suma noduri, suma noduri pare,citire din fisier,determinare numar niveluri in arbore, afisare noduri de pe…
-
> {determina cliclu eulerian dintr-un graf, daca exista} program ciclu_eulerian; uses crt; type mat=array [1..20,1..20]…
-
> {arbori binari: creare, parcurgeri} type ref=^nod; nod=record inf:integer; st,dr:ref end; var r:ref; procedure creare(var…
-
> {numerele lui Gigel} program nr_lui_gigel; {iterativ} type stiva=array[1..100] of integer; var st:stiva; i,n,k:integer; as,ev:boolean;…
-
Backtracking: iesirea din labirint >Se da un labirint sub forma de matrice cu m linii…
-
Backtracking: aranjamente: > {generarea aranjamentelor} program aranjamente; {iterativ} type stiva=array [1..10] of integer; var st:stiva;…
-
> {generare permutari}program permutari;type stiva=array [1..100] of integer;var st:stiva; n,k:integer; as,ev:boolean;procedure init(k:integer;var st:stiva);beginst[k]:=0;end;procedure succesor (var…
-
> {PascalZone.uv.ro}program combinari;type stiva=array [1..10] of integer;var st:stiva; ev,as:boolean; n,k,p:integer;procedure init(k:integer;var st:stiva);begin if k>1 then…