Fortran function example(interest calculation)

   program interest_calculation!This program finding interest by the formula I=P*R*T/100
                               implicit none
                                                       interface
                                                        function interest(bal,intr_rate,time)
                                                         real interest
                                                         real, intent(in)::bal,intr_rate,time
                                                        end function interest
                                                        end interface


                                                       real::bal,intr_rate,time!Declare local variable

                                                 print*,"Entre the balence,interest rate and time(years)"
                                                     read*,bal,intr_rate,time
                                                 print*,"bal=",bal,"interest rate=",intr_rate,"time=",time
                                                 print*,"interest=",interest(bal,intr_rate,time)!prompting the interest value


                                  end program interest_calculation
                                                              !We gonna using this function

                                                               function interest(bal,intr_rate,time)
                                                               implicit none
                                                                    real ::interest
                                                                    real,intent(in)::bal,intr_rate,time
                                                              interest=bal*intr_rate*time/100
                                                                   end function

Popular posts from this blog

Some Funny Mathematical Questions

Puthon3

পৃথিবীর কোনো এক আদিম সকাল