programa fortran
oii
preciso fazer uma função troco em linguagem fortran 95 que se refere a troco
em notas de 50,20,10,5,1 e 0.50,0.25,0.10,0.05,0.01
so que ele ta dando um erro enão consigo arrumar alguem pode me ajudar real function troco(volta)
integer, dimension(12) :: vetortroco
real :: volta
integer, dimension(:) :: nota(7), cent(5)
integer :: i, j, qn, vlr nota=(/100,50,20,10,5,2,1/)
cent=(/50,25,10,5,1/) vlr = int(volta)
i = 1
do while ( vlr /= 0 )
qn = vlr / nota(i) !Quantidade de notas
if ( qn /= 0 )then
vetortroco(i) = qn
vlr = mod(vlr,nota(i))
else
vetortroco(i) = 0 end if
i = i + 1
end do vlr = fraction( volta - int(volta)*100)
i = 1
j = 8
do while ( vlr /= 0 )
qn = vlr / cent(i) !Quantidade de cent
if ( qn /= 0)then
vetortroco(j) = qn
vlr = mod(vlr,cent(i))
else
vetortroco(j) = 0
end if
i = i + 1
j = j + 1
end do end function troco
preciso fazer uma função troco em linguagem fortran 95 que se refere a troco
em notas de 50,20,10,5,1 e 0.50,0.25,0.10,0.05,0.01
so que ele ta dando um erro enão consigo arrumar alguem pode me ajudar real function troco(volta)
integer, dimension(12) :: vetortroco
real :: volta
integer, dimension(:) :: nota(7), cent(5)
integer :: i, j, qn, vlr nota=(/100,50,20,10,5,2,1/)
cent=(/50,25,10,5,1/) vlr = int(volta)
i = 1
do while ( vlr /= 0 )
qn = vlr / nota(i) !Quantidade de notas
if ( qn /= 0 )then
vetortroco(i) = qn
vlr = mod(vlr,nota(i))
else
vetortroco(i) = 0 end if
i = i + 1
end do vlr = fraction( volta - int(volta)*100)
i = 1
j = 8
do while ( vlr /= 0 )
qn = vlr / cent(i) !Quantidade de cent
if ( qn /= 0)then
vetortroco(j) = qn
vlr = mod(vlr,cent(i))
else
vetortroco(j) = 0
end if
i = i + 1
j = j + 1
end do end function troco
0%
Seja o primeiro a responder a esta pergunta!
Documentos relacionados
Pesquisar perguntas por matéria