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”
2 comentários a “Arvorezinha - Fortran”
O melhor é deicares-te aos numeros primos, ou as primas e deixares o Eme Esse Ene :P