Page 71 - MATINF Nr. 6

˘
PROBLEME DE INFORMATICA PENTRU EXAMENE 71

for i:=0 to 3 do 20 16 12 8 4
begin 19 15 11 7 3
for j:=0 to 4 do 18 14 10 6 2
write (......... , ’ ’);
writeln; 17 13 9 5 1
end;

a) 20-4*i-j b) 20-4*i+j c) 20-i-4*j d) 20-i+4*j
4. O expresie Pascal care are valoarea 20 este: (4p.)

a) abs(2) c) trunc(19.25)
b) round(19.75) d) sqr(10)

ˆ
5. In secvent¸a de instruct¸iuni al˘aturat˘a, toate m:=2020; n:=1020;
variabilele sunt de tip ˆıntreg. O expresie while ... do
care poate ˆınlocui punctele de suspensie begin
astfel ˆıncˆat, ˆın urma execut˘arii secvent¸ei, x := m mod n;
variabila m s˘a aib˘a o valoare egal˘a cu cel m := n;
mai mare divizor comun al numerelor 2020 n := x;
¸si 1020 este: (4p.) end;
a) m<>0 b) m mod n<>0 c) n<>0 d) n<>m

SUBIECTUL al II-lea (40 de puncte)
Scriet , i pe foaia de examen r˘aspunsul corect pentru fiecare dintre cerint , ele
urm˘atoare.

1. Algoritmul urm˘ator este reprezentat ˆın pseudocod. S-a notat cu a%b restul ˆımp˘art , irii
valorii naturale a variabilei a la valoarea natural˘a a variabilei b.

a) Ce se va afis , a pentru s , irul de valori 2
4 6 5 7 4 3 0? (6p.) citeste x (numar natural)
b) Dat , i un exemplu de s , ir de cel put , in nr ← 0
cat timp x<>0 executa
dou˘a valori pentru care valoarea
| citeste y (numar natural)
afis , at˘a va fi 0. (6p.) | daca x mod 2=y mod 2 atunci
c) Scriet , i ˆın pseudocod un algoritm echi- | |_ nr ← nr+1
valent cu cel dat, ˆınlocuind adecvat |_ x ← y
structura cat timp...executa cu o scrie nr
structur˘a repetitiv˘a de alt tip. (6p.)
d) Scriet , i un program Pascal cores-
punz˘ator algoritmului dat. (10p.)
2. Variabilele ˆıntregi v1,v2 s , i v3 memoreaz˘a, pentru fiecare dintre cei trei porumbei aflat , i
ˆıntr-o volier˘a, vˆarsta acestora. Scriet , i o secvent , ˘a de instruct , iuni ˆın urma execut˘arii c˘areia
s˘a se afis , eze pe ecran vˆarstele celor trei porumbei, ˆın ordine cresc˘atoare, separate prin
cˆate un spat , iu. (6p.)

3. Variabilele x s , i y sunt de tip char, iar ce- k:=ord(’A’)-ord(’a’); x:=’e’;
lelalte variabile sunt de tip ˆıntreg. Scriet , i for i:=0 to 1 do
ce se afis , eaz˘a ˆın urma execut˘arii secvent , ei begin
date. (6p.) y:=chr(ord(x)+k+1);
write(x,y);
x:=chr(ord(x)-1);
end;