clasa XI-A, 21.04-24.04. Tema: Rezolvarea problemelor utilizind tipul string.

Problema 1. Scrieti o functie care calculeaza numarul de litere mici dintr-un sir de caractere.

Function Nr(X:String):Integer;
Var N,I:Integer;
Begin  N:=0;
    For I:=1 To Length(X) Do
    If X[I] in ['a'..'z'] Then Inc(N);
Nr:=N
End;

Problema 2. Scrieti o functie care exclude imbinarea OA dintr-un sir de caractere.

Function Ex(X:String):String;
Var I:Integer;
Begin  I:=1;
   While I<=Length(X) Do
    If (UpCase(X[I])='O') And (UpCase(X[I+1])='A') Then Delete(X,I,2) Else Inc(I);
Ex:=X
End;

Problema 3. Scrieti o functie care adauga semnul + intr-un sir de caractere in fata fiecarei cifre.

Function Ex(X:String):String;
Var I:Integer;
Begin  I:=1;
   While I<=Length(X) Do
    If X[I] in ['0'..'9'] Then Begin Insert('+',X,I); Inc(I,2) End Else Inc(I);
Ex:=X
End;

Problema 4. Scrieti o functie care calculeaza suma cifrelor dintr-un sir de caractere.

Function Suma(X:String):Integer;
Var S,I,Cod,C:Integer;
Begin  S:=0;
    For I:=1 To Length(X) Do
   Begin Val(X[I],C,Cod);
    If Cod=0 Then S:=S+C End; 
Suma:=S
End;