> {determina cliclu eulerian dintr-un graf, daca exista} program ciclu_eulerian; uses crt; type mat=array [1..20,1..20] …
Categorie:
Tehnologie
-
-
> {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 …
-
Functia Manna Pnueli recursiv > program manna_pnueli; var x:integer; function manna(x:integer):integer; begin if x>=12 then …
-
> program mm135_8;type vector=array[1..100] of integer;var v,u,p:vector;i,n:integer;function produs(a:integer):integer;var prod:integer;beginif a>n then prod:=0else prod:=produs(a+1)+v[a]*u[a];produs:=prod;end;beginwrite(‘n=’);readln(n);writeln(‘Citire si afisare …
-
>Din fisierul in.txt, de pe fiecare linie sunt sterse toate caractere cu exceptiaprimului si ultimului. …