Subsiruri:

Fiind dat un sir de caractere ,prin subsir al sau se intelege un sir de caractere consecutive care se regasesc in sirul initial.

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. 21912bbn82mtv9u

• 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; bt912b1282mttv

*- 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.