Snippets

FSC1004 - CBFísica - Fortran rendimento

Created by Hans Rogério Zimermann last modified
rendimentos.f
Raw 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
!-------------------------------------------------------------------------------
!  Programa que calcula rendimentos após um depósito lido pelo teclado
!  A taxa de rendimentos é 10%
!  O programa deve parar de calcular quando o saldo atingir o dobro do depósito
!
!  Autor: Hans - zrhans@gmail.com
!  Data : 27-04-2016
!  Info : Adaptado de Brian D Hahn - Fortran 90 for Scientists and Engineers
!-------------------------------------------------------------------------------
program rendimentos
implicit none

integer :: ano
real    :: rendimento, saldo, deposito, taxa

    print*, "Depósito inicial: "
    read *, deposito

    taxa = 0.1 ! 10%
    saldo = deposito ! Cópia do deposito (saldo original)
    ano = 0
    
    print*, " Ano  Rendimento Saldo"
    print*,   ! mostra uma linha em branco
    
    do
        rendimento = taxa * saldo
        saldo = saldo + rendimento
        ano = ano + 1
        
        print*, ano, rendimento, saldo
        
        if ( saldo > 2 * deposito ) exit
        
    end do

end program rendimentos    
! Tópico: Uso da estutura de repetição DO indeterminado

Comments (1)

  1. Hans Rogério Zimermann 
    sh-4.3$ gfortran -std=f95 *.f95 -o main                                                                                                                                         
sh-4.3$ main                                                                                                                                                                    
 Depósito inicial:                                                                                                                                                              
100.00                                                                                                                                                                          
  Ano  Rendimento Saldo                                                                                                                                                         

           1   10.0000000       110.000000                                                                                                                                      
           2   11.0000000       121.000000                                                                                                                                      
           3   12.1000004       133.100006                                                                                                                                      
           4   13.3100004       146.410004                                                                                                                                      
           5   14.6410007       161.051010                                                                                                                                      
           6   16.1051006       177.156113                                                                                                                                      
           7   17.7156124       194.871719                                                                                                                                      
           8   19.4871731       214.358887                                                                                                                                      
sh-4.3$

    Sugestão de avaliação: Qual o rendimento e saldo após 7 meses do investimento.

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.