برنامه نمونه برای آزمایش داکسیژن
0.1
این بسته برای ایجاد یک فایل LaTex توسط داکسیژن ایجاد شده است.
صفحه ی اصلی
پرونده ها
ليست فايل ها
اعضاء پرونده
همه
پرونده ها
توابع
bank.f90
توضيحات اين پرونده.
1
>
!این یک برنامه نمونه است
2
>
! هدف آن است که داکسیژن متن کوچکی تولید کند
3
program
bank
4
implicit none
5
integer(kind=4)
:: rooz_res, rooz_gha,i,j
6
real(kind=8)
:: sood(365), mandeh_res, mandeh_gha, zarib_sood, pool_aval, max_sood
7
pool_aval=4000000.0
8
zarib_sood=0.2
9
max_sood=0.0
10
mandeh_res = pool_aval
11
do
i=1,365
12
mandeh_gha =
vam_res
(i)+pool_aval
13
rooz_gha=(365-i)
14
sood(i)=
sood_kol
(rooz_gha)
15
print* ,sood(i),i,
vam_res
(i)
16
if
( max_sood<sood(i))
then
17
max_sood=sood(i)
18
j=i
19
endif
20
enddo
21
print*, maxval(sood),j
22
23
contains
24
>
!این یک تابع است
25
>
! این تابع محاسباتی را انجام میدهد که خیلی سخته. حتی هرکول هم نمیتونه اونارو انجام بده.
26
function
vam_res
( rooz )
27
real*8
::
vam_res
28
integer
:: rooz
29
vam_res
= mandeh_res * rooz/120.0 *2.0
!result
30
end function
31
!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@22
32
>
! این تابع محاسباتی را انجام میده که هرکول که هیچ حتی رستم هم از پسش بر نمیاد.
33
function
sood_kol
(rooz )
34
real*8
::
sood_kol
35
integer
:: rooz
36
sood_kol
=mandeh_gha*rooz/365.0* zarib_sood
!result
37
end function
38
end program
bank.f90
توليد شده در شنبه ۲۱ دسامبر ۲۰۱۳ ۰۰:۱۵:۲۲ برای برنامه نمونه برای آزمایش داکسیژن توسط
1.8.4