Date structurate

Tipurile de date structurate sunt

• Integer

• fisier

• tablou

• boolean

• sir de caractere

Stabiliti care dintre urmatoarele variante reprezinta declararea corecta a unei variabile de tip tablou cu exact 8 componente de tip caracter:

• var v : array [0..8] of char ;

• var v : array [1..8] of char ;

• var v : array[8] of char ;

• var v : array [1,8] of char ;

Precizati care din declaratiile de vectori de mai jos sunt corecte:

• type tablou_ciudat = array [boolean] of integer ;

  var nume : tablou_ciudat ;

• type ciudat_de _tot = array [semafor] of semafor ;

  type semafor = (rosu,galben,verde) ;

• type vector = array [1....10] of integer ;

• type domeniu = 1..20 ;

  vector = array [domeniu] of real ;

Care dintre urmatoarele variante reprezinta o declarare corecta a variabilei a de tipul sir de caractere?

• Var a:string [20];

• Var a:string[1..20];

• var a:char[20];

• var a=string;

Fie variabilele a şi b şir de caractere şi i număr natural. Secvenţa de program:

a:='aranjament '+'floral';

b:=' colorat';

insert(b,a,pos(' ',a));

i:=pos('ora',a);

delete(a,i,3);

i:=pos('ora',a);

delete(a,i,2);

write(a);

• aranjament colorat floral;

• aranjament colt fll;

• aranjament colt flal;

• aranjament colt fl.

Pentru a afişa şirul de caractere mai mic, în sens lexicografic, dintre două şiruri date a şi b, folosim instrucţiunile:

• if a[0]<b[0] then writeln(a)else writeln(b);

• if length(a)<length(b) then writeln(a)else writeln(b);

• if a>b then writeln(b)else writeln(a);

• if a[1]<b[1] then writeln(a)else writeln(b);

Precizaţi ce va afişa următorul program:

var s,t:string;

i,e,n:integer;

begin

s:='1234567890';

t:='';

for i:=length(s) downto 1 do

begin

val(s[i],n,e);

if n mod 2=1 then t:=t+s[i];

end;

write(t);

end.

Functia care sterge din sirul de caractere numarul de caractere specificate

Functia care calculeaza numarul caracterelor in sir

Structura de date care constă dintr-o secvență de componente este...

• mulțime

• fișier

• tablou

• sir de caractere