Exercitii rezolvate cu subprograme Pascal

Exerciții rezolvate pas cu pas

1. 1
   Funcție pentru calculul factorialului function factorial(n: integer): integer; begin if n <= 1 then factorial := 1 else factorial := n * factorial(n-1); end;
2. 2
   Procedură pentru afișarea unui mesaj procedure afisare; begin writeln('Salut!'); end; Apel: afisare;
3. 3
   Funcție cu parametri transmisi prin valoare function suma(a, b: integer): integer; begin suma := a + b; end; Apel: s := suma(3, 4); returnează 7.
4. 4
   Procedură cu parametri transmisi prin referință procedure schimba(var x, y: integer); var temp: integer; begin temp := x; x := y; y := temp; end; Modifică variabilele originale.

Exemple practice

• Verificare număr prim Funcție care returnează true dacă un număr este prim. Pentru n=5, verifică divizorii de la 2 la sqrt(5).
• Sortare vector Procedură care sortează un vector de 3 elemente. Exemplu: [3,1,2] devine [1,2,3] folosind bubble sort.
• Calcul medie Funcție care calculează media a 3 numere. Pentru 2, 4, 6, returnează (2+4+6)/3 = 4.