Subsiruri Exemple Functii

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

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.

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