!Her zamanki gibi programımıza başlıyoruz.
program toplam_fonksiyonu
integer::n,faktoriyel,i
real::toplam,x
do
print*,"x i giriniz."
read*,x
if (x==0) then
exit
end if
!On defa dönecek olan ana döngümüzü başlatıyoruz.
!Fakat başlatmadan önce toplam değerimizi sıfırlayalım.
toplam=0
    do n=1,10
    !Şimdi de faktoriyel döngüsünü başlatalım.
    !Tabi burada da faktoriyel değerini sıfırlamak gerekli.
    !Faktoriyelimiz "1" den "n" e kadar olmalı
    faktoriyel=1
        do i=1,n
        !Burada faktoriyel değişkenini al, i le çarp sonra çıkan değeri
        !faktoriyele eşitle adı üstünde değişken istediğimiz gibi değiştirebiliriz.
        faktoriyel=faktoriyel*i
        !faktoriyel döngümüzü "end do" ile bitiriyoruz.
        !"end do" en son başlatılan "do" yu bitirir.
        end do
    !Ana döngümüz hala devam ediyor.
    !Burada da aynı şekilde toplam değişkenini alıyoruz ve fonksiyonumuzla
    !toplayıp çıkan toplamı toplam değişkenimize atıyoruz
    toplam=toplam+(x**n)/(faktoriyel)
    end do
print*,toplam
end do
end program toplam_fonksiyonu