REAT 2009 - INFORMATICĂ, limbajul C/C++ Subiectul I Subiectul III (30 de puncte) - Varianta 001 100 de numere naturale, fiecare număr având cel mult 4 cifre Scrieţi un
x are valoarea 2007 iar y are valoarea 2009? i programul C sau C++ care cite¡ te din fi¡ierul BAC Proba scrisă la INFORMATICĂ Fie G un graf neorientat conex cu 100 de noduri ¡i 2007
iante BAC chimie organica 2007 • II; 15 lectii de baza pentru Chimie anorganica; 10 BAC romana 2008 + rezolvari vand copiute bac 2009 la romana mate m1 m2, geografie,
intensiv i neintensiv 2 Descrierea CIP a Bibliotecii NaĠionale a României Metode de rezolvare a subiectelor de bacalaureat 2008 : informatică intensiv i neintensiv / coord.: Giorgie Daniel Vlad, Ovidiu Marian Marcu. - Suceava : Little
Lamb, 2008
ISBN 978-973-7762-63-4
I. Vlad, Giorgie Daniel (coord.)
II. Marcu, Ovidiu (coord.)
004 3
MODELE DE REZOLVARE
A SUBIECTELOR DE BACALAUREAT 2008
INFORMATICĂ
intensiv i neintensiv în conformitate cu modificările prevăzute
în erata publicată pe situl MECT,
în luna aprilie, 2008
Bacalaureat 2008 - Modele de rezolvare
4
Autori:
Numele i prenumele JudeĠ Variante
Marinescu Minodora Arad 1 - 7
Vătămănescu Nicu
Petrior Adrian
Costineanu Raluca
Hatmanu Mihaela Suceava 10, 11
8, 9 14
12, 13
Tarasă Daniela Bacău 15 - 21
Murean Ciprian BistriĠa Năsăud 22 - 28
Voinea-Axinte Alina Botoani 29 - 35
Prus Paul Brăila 36 - 42
Istrate Nicolae Cecilian , Vitan Adrian DâmboviĠa 43 - 49
Bradatan Claudita (52)
Popa Carmen (51)
Pintea Eugen (53)
Ududec Marius si Stefanescu Narcisa (54)
Erhan Mihail (56)
Zotic Cristina (50)
Aga Petronela (55) Suceava 52
51 53 54 56 50 55
Balacea Georgeta Iulia GalaĠi 57 - 63
Runceanu Mihaela Gorj 64 - 70
Iacobescu Raluca Silvia Hunedoara 71 - 77
Hadîmbu Stelian Iai 78 - 84
Ungureanu Florentina NeamĠ 85 - 91
Vlad Giorgie Daniel (coordonator)
Marcu Ovidiu Marian (coordonator)
Marcu Daniela
Hojbotă Rodica Suceava 92 - 93
94 - 97
98 - 100
Varianta
Pascal:
13 (I. 2) c))
24 (III. 4)
63 (III. 3)
Coperta i tehnoredactare: Daniela Marcu
Bacalaureat 2008 - Modele de rezolvare
5
Varianta <1>
SUBIECTUL I
1. d 2. a) 963 b) 61, 65, 67 c) citete n (număr natural) z0 p1
ňdacă n<>0 atunci
Ňňrepetă
ŇŇcn%10
ŇŇn[n/10]
ŇŇ ňdacă c%3=0 atunci
ŇŇ Ňzz+p*(9-c)
ŇŇ Ňpp*10
ŇŊpână când n=0
d) Varianta C/C++ Varianta PASCAL #include void main() unsigned int n,c,z=0,p=1; cout<<"n=";cin>>n; while(n>0) c=n%10; n=n/10; if(c%3==0) z=z+p*(9-c); p=p*10; cout<0 do begin c:=n mod 10; n:=n div 10; if c mod 3=0 then begin z:=z+p*(9-c); p:=p*10; end end; write(z) end.
#include void main() unsigned int n,m,i,j,A[11][11]; do {cout<<"n=";cin>>n; while(n<2 || n>10); do {cout << "m"; cin>> m; while ( m<2 || m>10); for (i=1;i<=n;i++) for (j=1;j<=m;j++) if(iA:array[1..10,1..10] of byte; begin repeat write('n=');readln(n); until (n>=2) and (n<=10); repeat write('m=');readln(m); until (m>=2) and (m<=10); for i:=1 to n do for j:=1 to m do if iSUBIECTUL III 1. b
2. 12345 pentru intensiv
6 pentru neintensiv în cazul în care prima condiĠie a funcĠiei în C/C++ este n= =0
3.
Varianta C/C++ Varianta PASCAL
Pentru intensiv
# include "stdio.h" void main() unsigned n,a,este=0;
FILE *f;
f=fopen("bac.txt","r"); do { printf("n=") scanf("%d", &n); while (n==0 || n>999); while(!feof(f)) fscanf(f,"%d",&a); if(a%n==0) {printf("%d ",a); este=1; if(este==0) printf("NU var f:text; n,a:word; este:boolean; begin assign(f,'bac.txt'); reset(f); repeat write('n=');readln(n); until (n<>0) and (n<=999); este:=false; while not(eof(f)) do begin read(f,a); if a mod n=0 then begin write(a,' '); este:=true; end; end; if not este then write('NU EXISTA');
Bacalaureat 2008 - Modele de rezolvare
7
EXISTA");
fclose(f); close(f); end. 4. a)
Varianta C/C++ Varianta PASCAL
Pentru intensiv
int sub (int v[100],int n,int a) {int i; nr=0 ; for(i=0; iLa neintensiv se modifică doar condiĠia v[i]==a în loc de v[i]Varianta C/C++ Varianta PASCAL