Test
Scrieti un subprogram care verifica daca un sir de numere reale formeaza sau nu o progresie aritmetica. Subprogramul returneaza o valoare logica 717y2418h corespunzatoare. sirul e declarat ca variabila globala. (2p)
Fisierul text date.txt contine numere scrise pe mai multe linii. Numarul de linii si numarul de numere pe linii nu se cunoaste. Scrieti un subprogram care creeaza un fisier nou în care sunt scrise numerele aflate la începutul fiecarei linii. Subprogramul va contine toate instructiunile necesare lucrului cu cele doua fisiere. (2p)
Subprogramul intersch realizeaza interschimbarea valorilor a doua variabile întregi transmise prin intermediul parametrilor formali x si y. Antetul subprogramului este:
a. procedure intersch(var x:integer; var y:integer);
b. function intersch(x:integer):integer;
c. function intersch(var x,y:integer);
d. procedure intersch(x,y:integer); (1p)
Se stie ca este definit subprogramul prime ce primeste prin doi parametri x si y doua valori întregi si returneaza numarul de numere prime din intervalul închis [x,y] numai daca x<y. Care dintre urmatoarele expresii este adevarata numai daca valoarea întreaga z (z>5) este numar prim? (1p)
a. prime(z,z)=1 c. prime(2,z) prime(2,z+1)
b. prime (z-1,z)=prime(z,z+1) d. prime(2,z) prime(2,z-1)
Sa se scrie un subprogram care primind drept parametru o multime de caractere returneaza cardinalitatea ei. Definiti si tipurile de date necesare. (3p)
Ce afiseaza programul de mai jos: (1p)
Program test;
Var x: integer;
Function f(x:integer):integer;
Begin x:=x+1;f:=x*x;end;
BEGIN x:=2;writeln(x,' ',f(x),' ',x);END. ...............
Dar daca functia ar avea antetul function f(var x:integer):integer; ? .......
7.Sa se scrie un program care citind un sir de n numere afiseaza câte dintre acestea au cifrele în ordine crescatoare si câte au cifrele în ordine descrescatoare. Se va puncta o corecta alegere a subprogramelor si parametrilor acestora precum si utilizarea judicioasa a memoriei. (4p)
Obs. Se pot alege problemele ce se doresc a fi rezolvate, dar suma punctelor nu trebuie sa depaseasca valoarea 9(un punct este din oficiu).
|
