Mais um blog inútil.

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"