cr3us
Moderator
 Inregistrat: acum 17 ani
Postari: 160
|
|
{1)Accesarea unui caracter al unei date string var s:string; begin write('Introduceti cuvantul=');readln(s); writeln(s[5]); readln end.}
{2) Compararea datelor string var s,t:string; begin write('primul sir de caractere=');readln(s); write('al doilea sir de caractere=');readln(t); if 's'<'t'then writeln('s este mai mic ca t') else writeln('s este mai mare decat t'); readln end.}
{3) Operatii de atribuire var a,b,c,d:string[10]; begin readln(a);readln(b); c:=a+b;d:=b+a; write(c,' ',d); readln end.}
{Functii predefinite ale tipului string} {4)Functia length var c:string[20]; nr,i:integer; begin c:='tartarin'; nr:=length(c); writeln(nr); for i:=1 to length(c) do write(upcase(c[i])); readln end.} {5)Functia pos var c,d:string[20]; nr:integer; begin c:='tartarin';d:='tar'; nr:=pos(d,c); writeln(nr); d:='ma'; writeln(pos(d,c)); readln end.}
{6)Functia copy var c,d:string[20]; nr:integer; begin c:='tartarin'; d:=copy(c,2,3); writeln(d); d:=d+copy(c,7,5); writeln(d); readln end.}
_______________________________________ Cr3u$
|
|