Fiind dat un sir de caractere ,prin subsir al sau se intelege un sir de caractere consecutive care se regasesc in sirul initial. i8q20qn
EXEMPLU:
Sirul ‘harnic’ are ca subsir al sau ‘rni’ .Acesta incepe in pozitia a 3 din sirul initial (3caractere).
Exista mai multe proceduri si functii care actioneaza asupra sirurilor de caractere .Aceste sunt prezentate mai jos.

· Functia copy are rolul de a extrage un subsir din cadrul unui sir dat.

Function copy(s:string;inceput,lungime:integer):string;

*- variabila s ,de tip string ,contine sirul din care se face extragerea;
*- inceput -;retine pozitia de inceput a subsirului care se extrage;
*- lungime- retine numarul de caractere care se extrag.

PROGRAM s1;
Var a,b:string; i, j:byte;
Begin
Write(‘a=’);readln(a);
Write(‘i:=’);readln(i);
Write(‘j=’);readln(j);
B:=copy(a ,I , j);
Writeln(b);
End.

· Functia pos are rolul de a verifica daca un sir este subsir pentru altul.

Function pos(subsir,sir:string) :byte;

Programul urmator citeste 2 siruri a si b si verifica daca b este subsir al lui a.
In ambele cazuri se dau mesaje.

Program s2;
Var a, b :string;

N:integer;
Begin
Write(‘a=’);readln(a);
Write(‘b=’);readln(b); n:=pos(b,a); if n=0 then writeln(‘b nu este subsir al lui a’) else writeln(‘b este subsir al lui a si incepe in pozitia’,n); end.

· Procedura insert are rolul de a insera un sir de caractere incepind cu o anumita pozitie,inalt sir.
Procedure insert (sir_de_ins: string; var sir_unde_ins:string; poz: integer);
- sir_de_ins -;sirulcare urmeaza a fi inserat;
- sir_unde_ins -; sirul in care se face inserarea;
- poz -; pozitia din care se face inserarea.

Program s3;
Var a, b :string;
Begin
Write(‘a=’);readln(a);
Write(‘b=’);readln(b);
Insert(b, a, 3);
Writeln(a);
End.

· Procedura delete are rolul de a sterge un subsir din cadrul unui sir dat.

Procedure delete(var sir:string; indice ,nr_car: integer);

Programul urmator citeste un sir de caractere intr-o variabila de tip string ,numita a.

Program s4;
Var a:string;
Begin
Write(‘a=’);readln(a);
Delete(a, 3, 2);
End.