>Verifica daca 2 cuvinte citite dintr-un fisier textsunt sau nu anagramate. program anagrame;var f:text; s,t:string;{functia …
-
-
> program ackermann; var m,n:longint; function ack(m,n:longint):longint; begin if m=0 then ack:=n-1 else if n=0 …
-
>Calculeaza suma divizorilor numerelor pana la n. program sumadiv; var nr,i:integer; function divizor(i:integer):integer; var j:integer; …
-
>Sirul lui lui Fibonacci recursiv. program fibo;var n:integer;function fib(n:integer):integer;beginif n=0 then fib:=0elseif n=1 then fib:=1elsefib:=fib(n-1)+fib(n-2);end;beginwrite(‘n= …
-
>Operatii in coada: initializare, adaugare, parcurgere, eliminare. {operatii in coada: initializare, adaugare, parcurgere, eliminare}type coada=array[1..100] …
-
>Operatii in stiva statica:creare, parcurgere, adaugare, eliminare. program stiv;type stiva=array[0..100] of integer;var s:stiva; vf,n,i:integer; st_plina,st_vida:boolean;procedure …
-
>Operatii lista circulara simplu inlantuita: creare, parcurgere, stergere. {operatii lista circulara simplu inlantuita: creare, parcurgere, …
-
>Parcurgerea listei circulare dublu inlantuite inainte si inapoi. program lcdi;uses crt;type nod=^ref; ref=record info:integer; prec,urm:nod; …
-
>Operatii in lista simplu inlantuita: creare,afisare,cautare,adaugare inainte primului,adaugare oriunde,stergerea primului, stergerea ultimului. program lista;uses crt;type …
-
>Creare lista circulara pana la intalnirea lui 0. type nod=^ref; ref=record info:integer; urm:nod; end;var p,q,prim,ultim:nod; …