clasa XI-A, 13.04-17.04, Tema: Proceduri si functii utilizind tipul de date string..

Tipul string - tip de date sir de caractere cu lungime variabila nu mai mare de 256.
Operatii:
1. + alipirea, juxtapunerea a 2 siruri
2. copy(sir,poz,nr) -copierea unui subsir de lungime nr din sir incepind cu pozitia poz
3. insert(subsir,sir,poz)- inserarea subsir in sir la pozitia indicata
4. delete(sir,poz,nr)-excluderea din sir a caracterelor incepind cu pozitia indicata
5. length(sir)-determinarea lungimii unui sir de caractere

Exemplu 1. Scrieti o functie care determina numarul semnelor ? 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]='?' Then Inc(N);
Nr:=N End;

Exemplu 2. Scrieti o functie care determina numarul vocalelor 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 UpCase(X[I])  in ['A','E','I','O','U']' Then Inc(N);
Nr:=N End;

Exemplu 3. Scrieti o functie care exclude cifrele dintr-un sir de caractere.
Function F(X:String):String;
Var I:Integer;
Begin I:=1;
   While I<= Length(X) Do
If X[I]  in ['0'..'9']' Then  Delete(X,I,1) Else Inc(I);
F:=X End;

Exemplu 4. Scrieti o functie care adauga semnul + in fata fiecarei litere mici  dintr-un sir de caractere.
Function F(X:String):String;
Var I:Integer;
Begin I:=1;
   While I<= Length(X) Do
If X[I]  in ['a'..'z']' Then  Begin Insert('+',X,I); Inc(I,2) End  Else Inc(I);
F:=X End;

Exemplu 5. Scrieti o functie care adauga codul ASCII idupa fiecare litera mare  dintr-un sir de caractere.
Function F(X:String):String;
Var I,Cod:Integer; Cx:String;
Begin I:=1;
   While I<= Length(X) Do
If X[I]  in ['A'..'Z']' Then
Begin Cod:=Ord(X[I]); Str(Cod,Cx); Insert(Cx,X,I+1); Inc(I,Length(Cx)+1) End  Else Inc(I);
F:=X End;

Exemplu 6. Scrieti o functie care verifica daca un sir de caractere este simetric.
Function F(X:String):Boolean;
Var I:Integer; V:Boolean;
Begin I:=1; V:=True;
   While V And (I<= Length(X) Div 2) Do
If X[I] =X[Length(X)-I+1] Then   Inc(I) Else V:=False;
F:=V End;

Sarcini pentru realizare:
1. Scrieti o functie care determina numarul de operatii aritmetice dintr-un sir de caractere.
2. Scrieti o functie care determina numarul de consoane dintr-un sir de caractere.
3. Scrieti o functie care exclude cifrele dintr-un sir de caractere.
4. Scrieti o functie care adauga cuvintul cifra in fata fiecarei cifre.
5. Verificati daca sirul de caractere contine numai litere mici.
6. Verificati daca sirul de caractere contine macar o cifra.


Rezultatele le transmiteti la adresa: toloaca.svetlana@gmail.com pina la data de 17.04.2020
Succese!!!