Bilete Pentru Proba Practica-Anexa 2

MINISTERUL EDUCAȚIEI NAȚIONALE

BILET DE EXAMENExamenul de certificare a calificării profesionale

a absolvenţilor învăţământului postlicealSesiunea: februarie 2015

Centrul de examen: COLEGIUL TEHNIC TURDA

Calificarea : analist-programator

Numărul temei: ___Bilet 1_______Tema:

I. Realizați un site web despre persoana proprie cu următoarele specificații:

a) titlul paginii să conțină numele absolventului;b) realizaţi o construcţie care împarte pagina în două cadre de tip coloană;c) creați în zona din stânga o lista cu patru elemente, care constituie legături la patru pagini

asemănătoare și care conțin în zona din dreapta diferite elemente(texte, imagini,etc. )d) Realizaţi formular pentru upload fișieree) Realizaţi un script php trimiterea unui mail la care adaugăm header aditional cu campurile

From, Cc, Bcc. Se vor folosi caracterele speciale \r\n pentru afisarea fiecarei informatii pe un nou rand;

II. Evidenţa cărţilor dintr-o bibleotecă este păstrată într-un fişier .DBF cu următoarea structură:

AUTOR C 30TITLU C 40EDITURA C 30AN_AP N 4 0

a) Să se creeze fişierulb) Să se adauge 5-10 înregistrări

Să se scrie un program care să stabilească autorul cărţii cu cel mai lung titlu (existent în bibleotecă).

III. Pentru desfăşurarea unui concurs, se formează o comisie de k profesori dintre cei n profesori ai unui

liceu (k, n N*, k n 30). Editaţi şi corectaţi programul alăturat astfel încât pentru valorile n şi k citite de la tastatură, să genereze un fişier COMISIE_BAC cu toate posibilităţile de alcătuire a delegaţiei. Fiecare soluţie va fi afişată pe o linie separată în fişierul de ieşire, elementele fiind separate prin spaţii. Consideraţi profesorii numerotaţi de la 1 la n. Programul va fi comentat.

Problema se reduce la determinarea tuturor submulţimilor de k elemente ale mulţimii{1,2,…,n}. Acest algoritm este implementat astfel:

Programul PascalProgram Comisie;Var a:array[0100] of integer; n,k:real; f:text;

procedure Solutie; {afisarea unei solutii} var i:integer;begin

Programul C

# include <stdio.h>

int n, k, a[100];FILE *f;void solutie(void) { / / afisarea unei solutii for (int i=1;I <=n; i++) fprint f (f," ÷d ",a[i]); putc(' \ n ', f);

for i:=1 to k do write(f,a [i], ' ' ); writeln(f)end;

procedure Submultimi(pas:integer); var i:integer;begin if pas=k+1 then solutie else for i:=a[pas-1] +1 to n dobegin a[pas] : =i; {selectare element} Submultimi(pas+1) {urmatorul element} endend;

begin Assign(f, 'COMISIE.BAC' ); Reset(f); Readln(n,k); Submultimi(1); Close(f)End.

}void submultimi (int pas) { if (pas= = k+1) solutie( ); else for(int i=a [pas-1]+1; i<=n; i++) { a[pas]=i; / / selectare element submultimi (pas+1); / / urmatorul element }}

void main (void) { f=fopen("COMISIE.BAC", "wt"); / / deschidere fisier scanf ( " ÷d÷d ", &n, &k); submultimi (1);}

Preşedinte de comisie:dir.adj. Szasz Edit - Melinda

Profesori evaluatori:Nr.crt.Nume şi prenume semnătura1.Zăhan Virgil - reprezentant agent economic2.Hanca Simona3.Oprea Daniela - Alina4.Peter Arpad


BILET DE EXAMEN

Examenul de certificare a calificării profesionalea absolvenţilor învăţământului postliceal

Sesiunea: februarie 2015



Numărul temei: ___Bilet 2_______

Tema: I. Realizați un site web despre persoana proprie cu următoarele specificații:




II. Să se creeze o bază de date cu structura: COD

ADRESA NUME PRENUME NR_TELEFON

a) Să se afişeze toate înregistrările care încep cu o literă introdusă de la tatstatură (în cazul în care nu există să se afişeze un mesaj)

Să se afişeze într-o fereastră BROWSE numai: NUMELE,PRENUMELE şi ADRESA de la fiecare înregistrare.

III. Se consideră următoarea funcţie:

Varianta Pascal:

var x:array[1..100] of real;function f(n:Byte):Byte;var i:Byte;begin f:=1; for i:=2 to n do if x[i]=x[i-1] then f:=0end;

Varianta C:

float x[10];int f (int n) { int i; for (i=2; i<=n; i++) if (x[i]==x[i-1]) return 0; return 1;}

Integraţi această funcţie într-un program principal pentru a răspunde următoarelor întrebări:

1. Ce valoare va avea variabila f ?2. Ce valoare se va afişa?









Tema:





II. Evidenţa elevilor dintr-o clasă de liceu este păstrată într-un fişier de tip .DBF, cu următoarea

structură:NUME C 35ADR C 30DATA_N D 8SEX L 1

a) Să se creeze fişierulb) Să se adauge 5-6 înregistrări în afară de câmpul „sex” Ştiind că prenumele de sex feminin se termină cu caracterul „a” cu excepţia prenumelui „Carmen”, să se scrie un program pentru completarea cîmpului sex cu : .T. pentru băieţi şi .F. pentru fete.

III. Transcrieţi într-un limbaj de programare Pascal sau C, următoarea secvenţă de instrucţiuni reprezentată

în pseudocod:Citeşte nx← 0repetă x ← x + rest [n/10];n←[n/10]până când n =0scrie x

Secvenţa de instrucţiune determină numărul obţinut prin citirea cifrelor unui anumit număr de la dreapta spre stânga. În programul creat, algoritmul de mai sus să fie implementat ca o funcţie sau o procedură













II. Evidenţa candidaţilor la admitere în liceu este păstrată într-un fişier de tip . DBF cu următoarea

structură:NUME C 35SCPROV C 30OPT1 C 15OPT2 C 15OPT3 C 15

a) Să se creeze baza de dateb) Să se adauge 5-6 înregistrări (câmpul 3-5 cuprinzând următoarele opţiuni posibile: MAT-INFO, ST-

MAT, FILO)Să se scrie un program care să stabilească câţi elevi au optat pentru : ST-MAT (indifferent la care dintre cele 3 opţiuni).

III. Scrieţi un program care caută un anumit număr dat într-un şir de numere reale, ordonat crescător, şi

returnează o valoare logică corespunzătoare folosind subprogramul alăturat. Numărul căutat, dimensiunea şirului, precum şi şirul de numere reale vor fi transmise ca parametrii în subprogram.

Program Pascalfunction cautare(nr:real; n:byte; a:sir) : boolean;var p,q,m:byte;beginp:=1;q:=n;while p<=q dobegin m:=(p+q) div 2; if nr=a[m] then begin cautare:=true; exit end

Program Cint cautare(float nr, int n, float *a) { int p=0, q=n-1, m; while (p<=q) { m=(p+q) / 2; if (nr= = a [m]) return 1; else if (nr<a[m]) q=m-1; else p=m+1;}return 0;

else if nr<a[m] then q:=m-1 else p:=m+1 end; cautare:=falseend.

}

. Preşedinte de comisie:dir.adj. Szasz Edit - Melinda








Tema:








MAT, FILO)Să se scrie un program care să afişeze numărul de candidaţi pe şcoli de provenienţă..

III. Editaţi şi corectaţi programul alăturat astfel încât aplicaţia să execute următoarele: copiază conţinutul

unui fişier text al cărui nume se citeşte de la tastatură, într-un alt fişier text al cărui nume se introduce tot de la tastaură.

Program PascalProgram copiere; var f,g: Text; sursa, dest:string; c: char;Begin write ('Numele fisierului sursa: '); readln(sursa);

Program C# include <stdio.h>

void main (void) { char sursa[15], dest[15]; printf("Numele fisierului sursa: "); gets(sursa); printf("Numele fisierului destinatie:");

write('Numele fisierului destinatie: '); readln(dest) Assign(f, sursa); Reset(f); Assign(g, dest); Rewrite(g); while not Eof(f) do begin read(f, c); write(f, c) end; Close(f); Close(g);End.

gets(dest); FILE *f =fopen(sursa,"rt"), *g=fopen(dest,"wt"); while ( !feof(f)) fputc(fgetc(g),g); fclose(f); fclose(g);}















c) Să se creeze baza de dated) Să se adauge 5-6 înregistrări (câmpul 3-5 cuprinzând următoarele opţiuni posibile: MAT-INFO, ST-

MAT, FILO)Să se scrie un program care să afişeze numărul de candidaţi pe şcoli de provenienţă.





Programul C

# include <stdio.h>

int n, k, a[100];

procedure Solutie; {afisarea unei solutii} var i:integer;begin for i:=1 to k do write(f,a [i], ' ' ); writeln(f)end;



FILE *f;void solutie(void) { / / afisarea unei solutii for (int i=1;I <=n; i++) fprint f (f," ÷d ",a[i]); putc(' \ n ', f);}void submultimi (int pas) { if (pas= = k+1) solutie( ); else for(int i=a [pas-1]+1; i<=n; i++) { a[pas]=i; / / selectare element submultimi (pas+1); / / urmatorul element }}

















MAT, FILO)Să se scrie un program care să ordoneze candidaţii pe opţiuni în ordine alfabetică.

III. Fie programul care citeşte de la tastatură numele elevilor dintr-o clasă şi afişează în fişierul

NUME.TXT o listă ordonată alfabetic a acestor elevi. Transformaţi programul astfel încât citirea numelor să se facă prin apelul unei proceduri CITIRE, iar scrierea în fişier să se facă cu procedura SCRIE_F.

Program Pascal

Program elevi; var nume:array[1..100] of string; ordonat:Boolean; i, n:integer; aux:string; f:Text;Begin writeln('Introduceti numele elevilor: '); n:=0; while not Seekeof do {citirea numelor}

Program C# include <stdio.h># include <sting.h>void main (void) {

char nume[100] [100], aux[100], ordonat,n=0;puts("Introduceti numele elevilor");/ / citirea darelorwhile ( ! feof (stdin)) scanf("÷s, nume[n++] );do { / / ordonare folosind BubbleSort ordonat=1; for (int i=0; i<n ; i++) if (strcmp(nume[i], nume[i+1]) >0)

begin Inc(n; readln(nume[n])) end; repeat {ordonare folosind BubbleSort} ordonat:=true; for i:=1 to n-1 do if nume[i] > nume[i+1] then begin aux:=nume[i]; nume[i]:=nume[i+1]; nume[i+1]:=aux; ordonat:=false end until ordonat; Assign(f, 'NUME.TXT'); Rewrite(f); for i:=1 to n do writeln(f, nume[i]); {afisare} Close(f)End.

strcpy(aux, nume[i] ), strcpy(nume[i], nume[i+1] ), strcpy(nume[i+1], aux), ordonat=0;{ while ( ! ordonat); FILE *f=fopen ("NUME.TXT", "wt"); for (int i=0; i<n; i++) / / afisare fprintf (f, "÷s\n", nume[i] );

fclose(f);







Calificarea : analist-programatorNumărul temei: ___Bilet 8_______Tema:








MAT, FILO)Să se conceapă un FORM care să faciliteze introducerea candidaţilor în fişier (trebuie evitaţi posibile în r-d accidentale a aceleaşi opţiuni de mai multe ori).

III. Fie un program care implementează algoritmul de sortare prin metoda bulelor(Bubble Sort).

Transformați programul astfel încât sortarea să fie realizată de o procedură .

Program Pascal:Program sortare; var a: array [1..100] of integer; aux, i, n:integer; ordonat:boolean;Begin write('Introduceti dimensiunea sirului: '); readln(n); writeln('Introduceti elementele sirului: '); for i:=1 to n do read(a[i]); repeat ordonat:=true; for i:=1 to n-1 do if a[i] >a [i+1] then begin

Program C:

# include <stdio.h>

void main (void) {int a[100], aux, n, ordonat;printf ("Introduceti dimensiunea sirului: ");scanf ("÷d", &n);puts printf ("Introduceti elementele sirului: ");for (int i=0; i<n; i++) scanf("÷d", &a[i]);do { ordonat=1; for (i=0; i<n-1; i++) if (a[i]>a[i+1]) { aux=a[i]; a[i]=a[i+1]; a[i+1]=aux; ordonat=0;

aux:=a[i]; a[i]:=a[i+1]; a[i+1]: =aux; ordonat: =false end until ordonat; writeln('Sirul ordonat este: '); for i:=1 to n do write(a[i], ' ')end.

}} whilw ( ! ordonat);Puts("Sirul ordonat este: ");For (i=0; i<n; i++) printf("÷d", a[i]);

}













II. Evidenţa elevilor participanţi la orele de Ed.fizică este păstrată într-un fişier de tip .DBF cu următoarea

structură:NUME C 35CLS C 30INALT N 5 2MASA N 5 2

a) Să se creze fiţierulb) Să se adauge 5-10 înregistrăriŞtiind că după anumite studii antropometrice, greutatea ideală a unei personae se opţine scăzând 10 din numărul centimetrilor ce depăşesc un metru, să se scrie un program care să afişeze elevii care au greutatea ideală.





Programul C

# include <stdio.h>

int n, k, a[100];




FILE *f;void solutie(void) { / / afisarea unei solutii for (int i=1;I <=n; i++) fprint f (f," ÷d ",a[i]); putc(' \ n ', f);}void submultimi (int pas) { if (pas= = k+1) solutie( ); else for(int i=a [pas-1]+1; i<=n; i++) { a[pas]=i; / / selectare element submultimi (pas+1); / / urmatorul element }}
















a) Să se creze fiţierulb) Să se adauge 5-10 înregistrări

Să se conceapă un FORM care să faciliteze introducerea datelor în fişier (înălţimea va fi între 1,00-2,10).


Varianta Pascal:

var x:array[1..100] of real;function f(n:Byte):Byte;var i:Byte;begin f:=1; for i:=2 to n do if x[i]=x[i-1] then f:=0

Varianta C:


end;


1. Ce valoare va avea variabila f ?2. Ce valoare se va afişa?3. Funcţia returnează valoarea 0, în cazul în care în şirul x există…









Tema:





II. Evidenţa cititorilor unei bibleoteci este păstrată într-un fişier de tip .DBF , cu următoarea structură:

NUME C 35CLS C 30DATAIMP D 8CARTI M 10

Unde DATAIMP este data împrumutului la care a fost făcută.a) Să se creze fişierulb) Să se adauge 5-10 înregistrări în fişierŞtiind că un elev poate împrumuta cărţile 2 săptămâni, să se scrie un program care să afişeze lista restanţierilor.


în pseudocod:

Citeşte nx← 0repetă x ← x + rest [n/10];n←[n/10]până când n =0scrie x

Secvenţa de instrucţiune determină numărul obţinut prin citirea cifrelor unui anumit număr de la dreapta spre stânga. În programul creat, algoritmul de mai sus să fie implementat ca o funcţie sau o procedură.















Unde DATAIMP este data împrumutului la care a fost făcută.a) Să se creze fişierulb) Să se adauge 5-10 înregistrări în fişier

Să se scrie un program care să afişeze numărul cititorilor pe nivel de clase.



Program Pascalfunction cautare(nr:real; n:byte; a:sir) : boolean;var p,q,m:byte;beginp:=1;q:=n;while p<=q dobegin m:=(p+q) div 2;

Program Cint cautare(float nr, int n, float *a) { int p=0, q=n-1, m; while (p<=q) { m=(p+q) / 2; if (nr= = a [m]) return 1; else if (nr<a[m]) q=m-1; else p=m+1;}

if nr=a[m] then begin cautare:=true; exit end else if nr<a[m] then q:=m-1 else p:=m+1 end; cautare:=falseend.

return 0;}
















Să se afişeze un program care să afişeze masa totală a elevilor pentru fiecare clasă.










Calificarea : analist-programatorNumărul temei: ___Bilet 14_______

Tema:








Să se scrie un program care să afişeze numele tuturor cititorilor care au împrumutat o anumită carte (titlul se citeşte de la tastatură).


Transformați programul astfel încât sortarea să fie realizată de o procedură .Program Pascal:

Program sortare; var a: array [1..100] of integer; aux, i, n:integer; ordonat:boolean;Begin write('Introduceti dimensiunea sirului: '); readln(n); writeln('Introduceti elementele sirului: '); for i:=1 to n do read(a[i]); repeat

Program C:

# include <stdio.h>

void main (void) {int a[100], aux, n, ordonat;printf ("Introduceti dimensiunea sirului: ");scanf ("÷d", &n);puts printf ("Introduceti elementele sirului: ");for (int i=0; i<n; i++) scanf("÷d", &a[i]);

ordonat:=true; for i:=1 to n-1 do if a[i] >a [i+1] then begin aux:=a[i]; a[i]:=a[i+1]; a[i+1]: =aux; ordonat: =false end until ordonat; writeln('Sirul ordonat este: '); for i:=1 to n do write(a[i], ' ')end.

do { ordonat=1; for (i=0; i<n-1; i++) if (a[i]>a[i+1]) { aux=a[i]; a[i]=a[i+1]; a[i+1]=aux; ordonat=0; }} whilw ( ! ordonat);Puts("Sirul ordonat este: ");For (i=0; i<n; i++) printf("÷d", a[i]);

}









Tema:








Să se scrie un program care să afişeze înălţimea medie a elevilor fin fiecare clasă.



Program Pascal

Program elevi; var nume:array[1..100] of string; ordonat:Boolean; i, n:integer; aux:string; f:Text;


char nume[100] [100], aux[100], ordonat,n=0;puts("Introduceti numele elevilor");/ / citirea darelorwhile ( ! feof (stdin)) scanf("÷s, nume[n++] );

Begin writeln('Introduceti numele elevilor: '); n:=0; while not Seekeof do {citirea numelor} begin Inc(n; readln(nume[n])) end; repeat {ordonare folosind BubbleSort} ordonat:=true; for i:=1 to n-1 do if nume[i] > nume[i+1] then begin aux:=nume[i]; nume[i]:=nume[i+1]; nume[i+1]:=aux; ordonat:=false end until ordonat; Assign(f, 'NUME.TXT'); Rewrite(f); for i:=1 to n do writeln(f, nume[i]); {afisare} Close(f)End.

do { / / ordonare folosind BubbleSort ordonat=1; for (int i=0; i<n ; i++) if (strcmp(nume[i], nume[i+1]) >0) strcpy(aux, nume[i] ), strcpy(nume[i], nume[i+1] ), strcpy(nume[i+1], aux), ordonat=0;{ while ( ! ordonat); FILE *f=fopen ("NUME.TXT", "wt"); for (int i=0; i<n; i++) / / afisare fprintf (f, "÷s\n", nume[i] );

fclose(f);
















Să se scrie un program care să afişeze numele cititorilor care au împrumutat cărţi în ultimele 3 zile.





procedure Solutie; {afisarea unei solutii} var i:integer;

Programul C

# include <stdio.h>

int n, k, a[100];FILE *f;void solutie(void) { / / afisarea unei solutii for (int i=1;I <=n; i++) fprint f (f," ÷d ",a[i]);

begin for i:=1 to k do write(f,a [i], ' ' ); writeln(f)end;



putc(' \ n ', f);}void submultimi (int pas) { if (pas= = k+1) solutie( ); else for(int i=a [pas-1]+1; i<=n; i++) { a[pas]=i; / / selectare element submultimi (pas+1); / / urmatorul element }}










Tema:





II.1. Evidenţa cărţilor dintr-o bibleotecă este păstrată într-un fişier .DBF cu următoarea structură:

AUTOR C 30TITLU C 40EDITURA C 30AN_APN 4 0

a) Să se creeze fişierulb) Să se adauge 5-10 înregistrăriSă se scrie un program care să afişeze o listă a cărţilor unui anumit autor (numele acestuia se va citi de la tastatură) existent la bibleotecă.


Varianta Pascal:


Varianta C:








Tema:








Să se scrie un program care să afişeze numărul de cărţi existente în bibleotecă pentru fiecare editură.


Varianta Pascal:


Varianta C:








Tema:








Să se scrie un program care să afişeze o listă a cărţilor mai vechi de 10 ani, pe edituri.



Program Pascalfunction cautare(nr:real; n:byte; a:sir) : boolean;var p,q,m:byte;beginp:=1;q:=n;while p<=q do

Program Cint cautare(float nr, int n, float *a) { int p=0, q=n-1, m; while (p<=q) { m=(p+q) / 2; if (nr= = a [m]) return 1; else if (nr<a[m]) q=m-1;

begin m:=(p+q) div 2; if nr=a[m] then begin cautare:=true; exit end else if nr<a[m] then q:=m-1 else p:=m+1 end; cautare:=falseend.

else p=m+1;}return 0;}









Tema:








Să se scrie un program pentru listarea titlurilor într-un număr de exemplare mai mare de 3.



Program PascalProgram copiere; var f,g: Text; sursa, dest:string; c: char;Begin write ('Numele fisierului sursa: '); readln(sursa); write('Numele fisierului destinatie: ');


void main (void) { char sursa[15], dest[15]; printf("Numele fisierului sursa: "); gets(sursa); printf("Numele fisierului destinatie:"); gets(dest);

readln(dest) Assign(f, sursa); Reset(f); Assign(g, dest); Rewrite(g); while not Eof(f) do begin read(f, c); write(f, c) end; Close(f); Close(g);End.

FILE *f =fopen(sursa,"rt"), *g=fopen(dest,"wt"); while ( !feof(f)) fputc(fgetc(g),g); fclose(f); fclose(g);}








Tema:






AUTOR C 30TITLU C 40EDITURA C 30AN_APN 4 0

c) Să se creeze fişieruld) Să se adauge 5-10 înregistrări



Transformați programul astfel încât sortarea să fie realizată de o procedură .

Program Pascal:Program sortare; var a: array [1..100] of integer; aux, i, n:integer; ordonat:boolean;Begin write('Introduceti dimensiunea sirului: '); readln(n); writeln('Introduceti elementele sirului: '); for i:=1 to n do read(a[i]); repeat ordonat:=true; for i:=1 to n-1 do if a[i] >a [i+1] then

Program C:

# include <stdio.h>

void main (void) {int a[100], aux, n, ordonat;printf ("Introduceti dimensiunea sirului: ");scanf ("÷d", &n);puts printf ("Introduceti elementele sirului: ");for (int i=0; i<n; i++) scanf("÷d", &a[i]);do { ordonat=1; for (i=0; i<n-1; i++)

begin aux:=a[i]; a[i]:=a[i+1]; a[i+1]: =aux; ordonat: =false end until ordonat; writeln('Sirul ordonat este: '); for i:=1 to n do write(a[i], ' ')end.

if (a[i]>a[i+1]) { aux=a[i]; a[i]=a[i+1]; a[i+1]=aux; ordonat=0; }} whilw ( ! ordonat);Puts("Sirul ordonat este: ");For (i=0; i<n; i++) printf("÷d", a[i]);

}









Tema:





II.1. Evidenţa operaţiilor de depunere şi retragere a anumitor sume de bani în contul unei bănci este păstrată

într-un fişier de tip .DBF cu următoarea structură:CONT C 10DATA_OP D 8DEPUS N 10 0RETRAS N 10 0

a) Să se creeze fişierulb) Să se adauge 5-10 înregistrăriSă se scrie un program pentru calculul diferenţei dintre totalul depunerilor şi totalul retragerilor pe întreaga bancă, într-o anumită zi.



Program Pascal

Program elevi; var nume:array[1..100] of string; ordonat:Boolean; i, n:integer; aux:string; f:Text;Begin writeln('Introduceti numele elevilor: '); n:=0;


char nume[100] [100], aux[100], ordonat,n=0;puts("Introduceti numele elevilor");/ / citirea darelorwhile ( ! feof (stdin)) scanf("÷s, nume[n++] );do { / / ordonare folosind BubbleSort ordonat=1; for (int i=0; i<n ; i++)

while not Seekeof do {citirea numelor} begin Inc(n; readln(nume[n])) end; repeat {ordonare folosind BubbleSort} ordonat:=true; for i:=1 to n-1 do if nume[i] > nume[i+1] then begin aux:=nume[i]; nume[i]:=nume[i+1]; nume[i+1]:=aux; ordonat:=false end until ordonat; Assign(f, 'NUME.TXT'); Rewrite(f); for i:=1 to n do writeln(f, nume[i]); {afisare} Close(f)End.

if (strcmp(nume[i], nume[i+1]) >0) strcpy(aux, nume[i] ), strcpy(nume[i], nume[i+1] ), strcpy(nume[i+1], aux), ordonat=0;{ while ( ! ordonat); FILE *f=fopen ("NUME.TXT", "wt"); for (int i=0; i<n; i++) / / afisare fprintf (f, "÷s\n", nume[i] );

fclose(f);









Tema:





II. Evidenţa operaţiilor de depunere şi retragere a anumitor sume de bani în contul unei bănci este păstrată



Să se scrie un program pentru calculul soldului existent într-un anumit cont după ultima operaţie efectuată (contul va fi introdus de la tastatură).




Programul PascalProgram Comisie;Var a:array[0100] of integer; n,k:real;

Programul C

# include <stdio.h>

f:text;




int n, k, a[100];FILE *f;void solutie(void) { / / afisarea unei solutii for (int i=1;I <=n; i++) fprint f (f," ÷d ",a[i]); putc(' \ n ', f);}void submultimi (int pas) { if (pas= = k+1) solutie( ); else for(int i=a [pas-1]+1; i<=n; i++) { a[pas]=i; / / selectare element submultimi (pas+1); / / urmatorul element }}










Tema:








Să se scrie un program pentru aflarea contului cu cel mai mare sold la data curentă (prin sold înţelegem diferenţa dintre totalul sumelor depuse şi totalul sumelor retrase).


Varianta Pascal:


Varianta C:




.









Tema:








Să se scrie un program pentru calculul mediei sumelor depuse şi al mediei sumelor retrase din conturi în anul current.


în pseudocod:

Citeşte nx← 0repetă x ← x + rest [n/10];n←[n/10]până când n =0scrie x

Secvenţa de instrucţiune determină numărul obţinut prin citirea cifrelor unui anumit număr de la dreapta spre stânga. În programul creat, algoritmul de mai sus să fie implementat ca o funcţie sau o procedură.









Tema:

I. Evidenţa cărţilor dintr-o clasă de liceu este păstrată într-un fişier de tip .DBF, cu următoarea structură:

NUME C 35ADR C 30DATA_N D 8SEX L 1

a) Să se creeze fişierulb) Să se adauge 5-10 înregistrări în fişier fără a completa câmpul sex

Să se scrie un program care să stabilească dacă în clasă există „tizi” (elevi care au acelaşi prenume) ştiind că la introducerea datelor, prenumele elevilor este precedat de două blak-uri.



e) Să se creeze fişierulf) Să se adauge 5-10 înregistrări




Program Pascalfunction cautare(nr:real; n:byte; a:sir) : boolean;var p,q,m:byte;beginp:=1;q:=n;

Program Cint cautare(float nr, int n, float *a) { int p=0, q=n-1, m; while (p<=q) { m=(p+q) / 2; if (nr= = a [m]) return 1;

while p<=q dobegin m:=(p+q) div 2; if nr=a[m] then begin cautare:=true; exit end else if nr<a[m] then q:=m-1 else p:=m+1 end; cautare:=falseend.

else if (nr<a[m]) q=m-1; else p=m+1;}return 0;}









Tema:







g) Să se creeze fişierulh) Să se adauge 5-10 înregistrări












Tema:







a) Să se creeze fişierulb) Să se adauge 5-6 înregistrări (câmpul 3-5 cuprinzând următoarele opţiuni posibile: MAT-INFO,

ST-MAT, FILO)Să se scrie un program care să ordoneze candidaţii pe opţiuni în ordine alfabetică.


Transformați programul astfel încât sortarea să fie realizată de o procedură .Program Pascal:

Program sortare; var a: array [1..100] of integer; aux, i, n:integer; ordonat:boolean;Begin write('Introduceti dimensiunea sirului: '); readln(n); writeln('Introduceti elementele sirului: '); for i:=1 to n do read(a[i]);

Program C:

# include <stdio.h>

void main (void) {int a[100], aux, n, ordonat;printf ("Introduceti dimensiunea sirului: ");scanf ("÷d", &n);puts printf ("Introduceti elementele sirului: ");

repeat ordonat:=true; for i:=1 to n-1 do if a[i] >a [i+1] then begin aux:=a[i]; a[i]:=a[i+1]; a[i+1]: =aux; ordonat: =false end until ordonat; writeln('Sirul ordonat este: '); for i:=1 to n do write(a[i], ' ')end.

for (int i=0; i<n; i++) scanf("÷d", &a[i]);do { ordonat=1; for (i=0; i<n-1; i++) if (a[i]>a[i+1]) { aux=a[i]; a[i]=a[i+1]; a[i+1]=aux; ordonat=0; }} whilw ( ! ordonat);Puts("Sirul ordonat este: ");For (i=0; i<n; i++) printf("÷d", a[i]);

}









Tema:







a) Să se creze fişierulb) Să se adauge 5-10 înregistrări

Să se scrie un program care să afişeze masa totală a elevilor din fiecare clasă.



Program Pascal

Program elevi; var nume:array[1..100] of string; ordonat:Boolean; i, n:integer; aux:string; f:Text;


char nume[100] [100], aux[100], ordonat,n=0;puts("Introduceti numele elevilor");/ / citirea darelorwhile ( ! feof (stdin)) scanf("÷s, nume[n++] );

Begin writeln('Introduceti numele elevilor: '); n:=0; while not Seekeof do {citirea numelor} begin Inc(n; readln(nume[n])) end; repeat {ordonare folosind BubbleSort} ordonat:=true; for i:=1 to n-1 do if nume[i] > nume[i+1] then begin aux:=nume[i]; nume[i]:=nume[i+1]; nume[i+1]:=aux; ordonat:=false end until ordonat; Assign(f, 'NUME.TXT'); Rewrite(f); for i:=1 to n do writeln(f, nume[i]); {afisare} Close(f)End.

do { / / ordonare folosind BubbleSort ordonat=1; for (int i=0; i<n ; i++) if (strcmp(nume[i], nume[i+1]) >0) strcpy(aux, nume[i] ), strcpy(nume[i], nume[i+1] ), strcpy(nume[i+1], aux), ordonat=0;{ while ( ! ordonat); FILE *f=fopen ("NUME.TXT", "wt"); for (int i=0; i<n; i++) / / afisare fprintf (f, "÷s\n", nume[i] );

fclose(f);















c) Să se creze fişieruld) Să se adauge 5-10 înregistrări

Să se scrie un program care să afişeze masa totală a elevilor din fiecare clasă.





procedure Solutie; {afisarea unei solutii} var i:integer;

Programul C

# include <stdio.h>

int n, k, a[100];FILE *f;void solutie(void) { / / afisarea unei solutii for (int i=1;I <=n; i++) fprint f (f," ÷d ",a[i]);

begin for i:=1 to k do write(f,a [i], ' ' ); writeln(f)end;



putc(' \ n ', f);}void submultimi (int pas) { if (pas= = k+1) solutie( ); else for(int i=a [pas-1]+1; i<=n; i++) { a[pas]=i; / / selectare element submultimi (pas+1); / / urmatorul element }}




Bilete Pentru Proba Practica-Anexa 2

Documents

Transcript of Bilete Pentru Proba Practica-Anexa 2