Test de verificare programare

Test de verificare

Randul I  Nume si prenume: __________ ______ ____ _____

I.           Alegeti varianta corecta de raspuns: 

Stiind ca procedura delete(s,poz,nr) sterge din sirul s, nr caractere, incepand cu pozitia poz.

Fie variabilele a si b sir de caractere si i numar natural. Secventa de program: (2p)

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);

are ca efect afisarea textului:

a) aranjament colorat floral b) aranjament colt fll;

c) aranjament colt flal d) aranjament colt fl.

Ce va afisa programul urmator:  (2p)

var s1:string; s2:string; i:byte;

begin

s1:='invat informatica';

s2:=s1;

i:=pos('INF',s2);

write(i,' ');

i:=pos('inf',s2);

write(i,' ');

delete(s2,i,11);

write(i,' ',length(s2));

end.

a) 0 0 12 15; b) 0 7 7 6; c) 0 7 15 6; d) 12 7 7 6.

Pentru a afisa sirul de caractere mai mic, in sens lexicografic, dintre doua siruri date a si b, folosim instructiunile: (1p)

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

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

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

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

II. Completati spatiile punctate, astfel incat programul de mai jos sa afiseze sufixele proprii ale unui cuvant citit de la tastatura (de ex., sufixele cuvantului PASCAL sunt: PASCAL, ASCAL, SCAL, CAL, AL, L): (2p)

var s:string;

i:integer;

begin

readln(s);

for i:=1 to length(s) do

writeln(_____ _______ ______ __________);

end.

Test de verificare

Randul II  Nume si prenume: __________ ______ ____ _____

I.           Alegeti varianta corecta de raspuns: 

Stiind ca procedura delete(s,poz,nr) sterge din sirul s, nr caractere, incepand cu pozitia poz.

Fie variabilele a si b sir de caractere si i numar natural. Secventa de program: (2p)

a:='aranjament'+' floral';

b:=' colorat';

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

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

delete(a,i,2);

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

delete(a,i,2);

write(a);

are ca efect afisarea textului:

a) aranjament colorat floral b) aranjament colt fll

c) aranjament colt flal d) aranjent colorat floral

Ce va afisa programul urmator:  (2p)

var s1:string; s2:string; i:byte;

begin

s1:='invatam informatica';

s2:=s1;

i:=pos('INF',s2);

write(i,' ');

i:=pos('inf',s2);

write(i,' ');

delete(s2,i,12);

write(i,' ',length(s2));

end.

a) 0 0 14 7; b) 0 14 14 7; c) 0 7 14 7; d) 14 7 7 14.

Pentru a afisa sirul de caractere mai mare, in sens lexicografic, dintre doua siruri date a si b, folosim instructiunile: (1p)

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

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

c) if a[1]>b[1] then writeln(a)else writeln(b);

d) if a<b then writeln(b)else writeln(a);

II. Completati spatiile punctate, astfel incat programul de mai jos sa afiseze prefixele proprii ale unui cuvant citit de la tastatura (de ex., prefixele cuvantului PASCAL sunt: P, PA, PAS, PASC, PASCA, PASCAL): (2p)

var s:string;

i:integer;

begin

readln(s);

for i:=1 to length(s) do

writeln(_____ _______ ______ __________);

end.