Çözüldü İçiçe Sonsuz Terimli Köklü Sayıların Çarpımı - Programlama

---
Geometrik Seri Çözümü:
{ 3^[ (1 / 6 + 1 / (6·6) + 1 / (6·6·6) + ... ] }·{ 9^[ (1 / 3 + 1 / (3·6) + 1 / (3·6·6) + ... ] } =
{ 3^[ (1 / 6) / (1 - 1 / 6) ] }·{ 9^[ (1 / 3) / (1 - 1 / 6) ] } =
[ 3^(1 / 5) ]·[ 9^(2 / 5) ] =
[ 3^(1 / 5) ]·[ 3^(4 / 5) ] =
3^(1 / 5 + 4 / 5) =
3^(5 / 5) =
3
---
Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması:

https://i72.servimg.com/u/f72/19/97/10/39/kokler10.png

Program:

Kod:

program limit
implicit none
real (kind=8) :: koklerin_limiti, artis3=1./6.,artis9=1./3.
real (kind=8) :: ustop3=0.,ustop9=0.,uc,dokuz

do

  ustop3=ustop3+artis3; uc=3.**ustop3; artis3=artis3/6.0;

  ustop9=ustop9+artis9; dokuz=9.**ustop9; artis9=artis9/6.0;

  koklerin_limiti=uc*dokuz

  if((3.0-koklerin_limiti)<10.**(-44)) exit

enddo

write(6,10) 10.**(-44),' hata payiyla sonuc: ',koklerin_limiti

10 format (E7.2,a,f10.7,/)

end program