Pascal Language - massiivi rekursiooni elementide ümberpööramine

Siin on rekursiivne protseduur, mis võimaldab elementidel pöörata osa tabelist positsiooni p ja n vahel:

 Menetlus Invert (Var t: Tab; p, n: Integer); Var aux: Real; Alusta Kui p <n Seejärel alustage aux: = t [p]; t [p]: = t [n]; t [n]: = aux; Inverser (t, p + 1, n - 1); Lõpp; Lõpp; 

Tänu Zouari Lazharile selle näpunäite eest

Eelmine Artikkel Järgmine Artikkel

Top Näpunäited