- program calcul;
- var a,b,n,m,na,mb,e:integer;
- function numar(x,nrp:integer):integer;
- var i,j,k:integer;
- begin
- nrp:=0;
- for i:=2 to x do
- begin
- k:=0;
- for j:=2 to i div 2 do
- if i mod j=0 then k:=k+1;
- if k=0 then nrp:=nrp+1;
- end;
- numar:=nrp;
- end;
- begin
- readln(a,b);
- e:=0;
- na:=numar(a,n);
- mb:=numar(b,m);
- if na>mb then e:=na-mb
- else e:=mb-na;
- if e<>0 then write('da')
- else write('nu');
- readln;
- end.
care sunt diferentele dintre functii si proceduri?
eu stiu ca o functie returneaza ceva,in schimb procedura nu.
si cum imi dau seama ca trebuie sa folosesc functie sau procedura?
de exemplu aceasta problema:
Se consideră subprogramul numar, cu doi parametri, x şi nrp, care:
– primeşte prin intermediul parametrului, x, un număr natural nenul de cel mult 4 cifre;
– furnizează prin intermediul parametrului nrp numărul de numere prime mai mici sau
egale cu x.
a) Scrieţi numai antetul subprogramului numar. (4p.)
b) Scrieţi programul Pascal care citeşte de la tastatură două numere naturale nenule de
cel mult 4 cifre, a şi b, şi prin apeluri utile ale subprogramului numar, se verifică dacă
intervalul determinat de a şi b conţine cel puţin un număr prim. Programul va afişa pe ecran
în caz afirmativ mesajul DA, iar în caz contrar mesajul NU. Prin intervalul determinat de a şi
b se înţelege intervalul [a,b] dacă a<b şi [b,a] în caz contrar.
eu am facut-o cu functie(pt ca mi-a zis cineva ca atunci cand apare cuvantul "furnizeaza" trebuie facuta cu functie) iar la rezolvari am vazut ca era cu procedura...
am testat-o in pascal si mi-a dat bine...deci cred ca e bine cu amandoua...
Welcome to BitCell. Click here to register !