FUNCTIILE SI PROCEDURILE UTILIZATE DE TIPUL STRING

• Functia Copy
Sintaxa functiei Copy
Copy ( , , ) ;
Copiaza din sirul dat incepand cu pozitia data de variabila pozitie un sir format dintr-un numar de caractere dat de variabila numarului .
Exemplu 1 : S := ’ MIRABELA ’
S1 := copy ( S , 5 , 4 ) ;
Writeln (S1) ; => afiseaza BELA
Exemplu : 2
S : =’ CALCULATOR `
S1 : = COPY (S , 1 ,4)
Writeln (S1) => afiseaza CALC
• Functia Pos
Sintaxa functiei Pos
Pos( , ) ;
Testeaza daca sirul nu este subsir al sirului 2 returnand pozitia de inceput a variabilei sir1 in cadrul sirului2 .
Observatie :Daca sirul 1 nu este subsir al sirului 2 o sa returneze valoarea 0.(zero)
Exemplu :
S : = ’ MIRABELA `
S1 : = ’ BELA`
S2 : = ’ BIANCA `
P1 : = POS ( S1 , S) ;
P2 : = POS ( S2 , S ) ;
Writeln ( p1 , p2 ) ;
P1 : = 5
P2 : = 0
• Functia Length
Sintaxa functiei Length
Length ( S ) ;S – variabila de tip string .
Returneaza dimensiunea unui sir de caractere .
{ Exemplu : pe calculator scrii intreg => Exemplu }
Exemplu : 1
S : = ’ MIRABELA `
N := length ( S ) ;
Writeln ( N ) => N = 8
Exemplu : 2
S : = ’LILIAC `
N : = length ( S ) ;
Writeln ( N ) => N = 6
Observatie : Folosind functia length putem afisa un sir de caractere pe litere .
Exemplu :
S := ’ MIRABELA `
For i : = 1 to length ( S ) do
Writeln ( S [ i ] ) ;afisaza S [ 1 ] = M , S [ 2 ] = I , S [ 3 ] = R
_ _ S [ 8 ] = A
• Procedura Delete .
Sintexa proceduri Delete :
Delete ( < sir > , < poz > , < nr > ) ;
Sterge din variabila sir incepand cu pozitia data de variabila pozitie un sir format dintr-un numar de caractere dat de variabile numere .
Observatie :Sirul rezultat in urma stergeri va fi memorat in variabila sir .
Exemplu : S` = ’ PROGRAMARE `
Delete ( S , 8 , 3 )
Writeln ( S ) => afiseaza program
• Procedura Insert .
Sintaxa procedurii Insert :
Insert ( < subsir > , < sir > , < poz >) ;
Adauga in variabile sir un subsir dat de variabila subsir incepand cu pozitia data de variabila poz .
Exemplu :
S := ` PROGRAME `
Insert ( ` AR ` , s , 8 ) ;
Writeln ( s ) => afiseaza programear .
• Procedura Str folosita pentru a transforma un numar in sir de caractere.
Sintaxa procedurii Str :
str ( , ) ;
Transforma numarul dat de variabila numerelor intr-un sir de caractere retinut in variabila sir .
Exemplu : n := 125 (n de tip intreg )
str (n,s) ;
writeln (s) ;=> afiseaza s = ’ 125 ’
• Procedura Val folosita pentru a transforma un sir de caractere in numar.
Sintaxa procedurii Val :
val ( , , ) ;
Transforma sirul dat de variabila sir in numar retinut in variabila numar .
Observatie : Daca transformarea reuseste , variabila eroare ia valoarea 0 (zero) , iar daca transformarea nu reuseste variabila eroare ia valoarea pozitiei caracterului din cauza careia nu a reusit transformarea , variabila eroare este de tip intreg .
Exemplu : s1 := ’ - 125 . 36 ’ ;
s2 := ’ - 125 . A36 ;
val (s1 , n1 , e1) ;
val (s2 , n2 , e2) ;
writeln (e1 , e2 , n1 , n2) ;
=> afiseaza
e1 := 0
e2 := 6
n1 := - 125 . 36
n2 nu afiseaza nimic

Observatie : Pentru a transforma o litera mica in litera mare se poate folosi : functia UPCASE :s[i] = UPCASE (s[i]) ;
S[i] = chr (ord (s[i]) - 32)
Pentru a transforma o litera mare in litera mica se foloseste :
S[i] := chr (ord (s[i]) +32) .