Arvorezinha – Fortran
Submetido por ali-o-kimiku
Olá amiguinhos
Dentro do espirito da inutilidade vigente neste blol decidi acrescentar mais dois programas da arvorezinha.
O primeiro é o clássico escrito em Fortran 90/95/2003
! (c) ali-o-kimiku 2009 program arvore implicit none integer :: i,ii,n write(*,*) "Qual a dimensao da arvore?" read(*,*)n do i=1,n write(*,*)("*",ii=1,i) end do end program arvore
gfortran arvorezinha.f90 -o arvorezinha ./arvorezinha Qual a dimensao da arvore? 10 * ** *** **** ***** ****** ******* ******** ********* **********
Claro que não contente com isto decidi fazer algo para homenagear o nosso Dcoder. Aqui está a minha versão da árvore de Fibonacci:
! (c) ali-o-kimiku 2009 program arvoref implicit none integer :: i,ii,n,fb write(*,*) "Qual a dimensao da arvore?" read(*,*)n do i=1,n fb=fibb(i) write(*,*)("*",ii=1,fb) end do contains function fibb(n) implicit none integer :: n, fibb real :: g,l,s5 s5=sqrt(5.0) g=(1+s5)/2 ! l=(g**n-(1-g)**n)/s5 ! fibb=int(l) fibb=int(g**n/s5+0.5) end function fibb end program arvoref
gfortran arvorezinhaf.f90 -o arvorezinhaf ./arvorezinhaf Qual a dimensao da arvore? 10 * * ** *** ***** ******** ************* ********************* ********************************** *******************************************************
Um grande bem-haja
"desde que deixei de ir ao mirc comecei a ter mais sexo"
no meio de tudo so nao entendo a ligação entre as arvores, fibonacci, os coelhos, o sexo e o irc.
O melhor é deicares-te aos numeros primos, ou as primas e deixares o Eme Esse Ene :P
não admira ... não és da el8