> {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. …

>Verifica daca un cuvand dat de la tastatura este sau nu palindrom. program cuv_palindrom; var …

>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, …