I bölmə t t t

function Toplama(m,n:integer):integer; 

begin 

if m = n then Toplama := m 

else Toplama := n+Toplama(m, n-1) 

end; 

Bu 

ìçproqram, 

məs. 

Toplama(3,5)ìfadəsìnì 

aşaõıdakı 

ardıcıllıqla 

hesablayır: 

Toplama(3,5)=5 + Toplama(3,4)=5 +4 +Toplama(3,3)= 5+4+3. 

---

Yənì, blok toplamanı ìkì etapda yerìnə yetìrìr: -əvvəlcə 5, 4, 3 ədədlərìndən 

axın təşkìl edìr, -sonra ìsə onları tərs sırayla toplayır. 

Məsələ  21.  Ìlk    n  natural  ədədìn  hasìlìnì  n!  =n(n-1)!  –düsturunu  (0!=1, 

1!=1)  ardıcıl  olaraq  tətbìq  etməklə  hesablamaq  üçün  rekursìv  funksìya 

qurmalı. 

function Vurma(n:integer):integer; 

begin 

if n =0 then Vurma:=1