fortran 程序作业题.docx
- 文档编号:25234037
- 上传时间:2023-06-06
- 格式:DOCX
- 页数:17
- 大小:16.96KB
fortran 程序作业题.docx
《fortran 程序作业题.docx》由会员分享,可在线阅读,更多相关《fortran 程序作业题.docx(17页珍藏版)》请在冰豆网上搜索。
fortran程序作业题
programzuoye
implicitnone
integer:
:
a(13)
integer:
:
i,j,t
integer:
:
b,c,d
realrnd(10)
callrandom_seed()
callrandom_number(rnd)
a(1:
10)=rnd(1:
10)*100
doi=1,9
doj=i+1,10
if(a(i)>a(j))then
t=a(i)
a(i)=a(j)
a(j)=t
endif
enddo
enddo
write(*,'(10I4)')a(:
10)
open(1,file='suijishu.txt')
write(1,"(10I4)")a(1:
10)
rewind
(1)
read(1,*)(a(i),i=1,10)
write(*,*)"pleaseinputthreenumber:
"
read(*,*)b,c,d
a(11:
13)=(/b,c,d/)
doi=12,1,-1
doj=1,i
if(a(j)>a(j+1))then
t=a(j)
a(j)=a(j+1)
a(j+1)=t
endif
enddo
enddo
write(*,"(13I4)")a(1:
13)
stop
end
programzuoye
implicitnone
integer:
:
a(10)
integer:
:
b(13)
integer:
:
i,j,t
integer:
:
c,d,e
realrnd(10)
callrandom_seed()
callrandom_number(rnd)
a=rnd*100
doi=1,9
doj=i+1,10
if(a(i)>a(j))then
t=a(i)
a(i)=a(j)
a(j)=t
endif
enddo
enddo
write(*,'(10I4)')a
open(1,file='suijishu.txt')
write(1,"(10I4)")a
rewind
(1)
read(1,*)(b(i),i=1,10)
write(*,*)"pleaseinputthreenumber:
"
read(*,*)c,d,e
b(11:
13)=(/c,d,e/)
doi=12,1,-1
doj=1,i
if(b(j)>b(j+1))then
t=b(j)
b(j)=b(j+1)
b(j+1)=t
endif
enddo
enddo
write(*,"(13I4)")b(1:
13)
write(1,"(13I4)")b
stop
end
20140609
programh0903
implicitnone
integers(20,5)
realave(5),tot
integeri,k
open(9,file='grades.bin',access='direct',recl=20,action='read')
ave=0.
doi=1,20
read(9,rec=i)s(i,:
)
write(*,'(5i5)')s(i,:
)
tot=0
dok=1,5
tot=tot+s(i,k)
ave(k)=ave(k)+s(i,k)
enddo
write(*,'(f5.0)')tot
enddo
ave=ave/20
write(*,'(5f8.3)')ave
end
~
~
~programzuoye
implicitnone
integeri,j,k,l,m,n,s(5)
realave(2,5)
character*80,str
ave=0.
open(9,file='grades.txt',status='old',action='read')
j=0
do
read(9,'(a80)',end=999)str
if(str(1:
5)=='Class')then
read(9,'(a80)')str
j=j+1
k=0
else
read(str,*)k,(s(m),m=1,5)
write(*,'(7i6)')j,s,k
k=k+1
ave(j,:
)=ave(j,:
)+s(:
)
endif
enddo
999continue
ave=ave/(k-1)
write(*,*)ave
stop
end
20140526
programh0804
implicitnone
integer,external:
:
add
write(*,*)add(100)
endprogram
recursiveintegerfunctionadd(n)result(sum)
implicitnone
integer,intent(in):
:
n
if(n<0)then
sum=0
return
elseif(n<=1)then
sum=n
return
endif
sum=n+add(n-1)
return
endfunction
programh0805
implicitnone
integer,external:
:
gcd
write(*,*)gcd(18,12)
endprogram
integerfunctiongcd(A,B)
implicitnone
integerA,B,BIG,SMALL,TEMP
BIG=max(A,B)
SMALL=min(A,B)
dowhile(SMALL/=1)
TEMP=mod(BIG,SMALL)
if(TEMP==0)exit
BIG=SMALL
SMALL=TEMP
enddo
gcd=SMALL
return
endfunction
programh0802
implicitnone
realr
real,external:
:
s
write(*,*)"pleaseinputar:
"
read(*,*)r
write(*,"('s='F10.5)")s(r)
stop
endprogram
realfunctions(r)
implicitnone
real,parameter:
:
Pai=3.1415926
realr
s=r**2*Pai
return
endfunction
~programh0803
implicitnone
integer:
:
x
write(*,*)"pleaseinputx:
"
read(*,*)x
callbar(x)
stop
endprogram
subroutinebar(len)
implicitnone
integer,intent(in):
:
len
integeri
character(len=79):
:
string
string=""
doi=1,len
string(i:
i)='*'
enddo
write(*,"(A79)")string
return
endsubroutine
~
programh0804
implicitnone
integer,parameter:
:
n=21,m=71
character(len=m):
:
a(n),b
integeri,j,k
realr
real,parameter:
:
pai=3.1415926
doi=1,n,1
r=real(i-1)/real(n-1)*2.0
k=real(m-1)*(sin(r*pai)+1.0)/2.0+1
write(b,'(111x)')
b(k:
k)='*'
write(*,*)b
enddo
endprogram
~
~
~programh0805
implicitnone
integer,parameter:
:
n=21,m=71
integer,parameter:
:
pai=3.1415926
character(len=m):
:
a(n),b
integeri,j,k
realr
doi=1,n,1
a(i)=repeat('',n)
enddo
doj=1,m,1
r=real(j-1)/real(m-1)*2.0
k=real(n-1)*(sin(r*pai)+1.0)/2.0+1
a(k)(j:
j)='*'
enddo
doi=n,1,-1
write(*,*)a(i)
enddo
endprogram
~
~
~programh0801
implicitnone
realr,s
write(*,*)"pleaseinputr(m):
"
read(*,*)r
callCircleArea(r,s)
write(*,"('s=',F10.5)")s
stop
endprogramh0801
subroutineCircleArea(r,s)
implicitnone
real,parameter:
:
pai=3.1415926
realr,s
s=r**2*pai
return
endsubroutine
第七章
programh0701
implicitnone
integer,parameter:
:
x=10
integeri
integer:
:
a(x)=(/(2*i,i=1,10)/)
write(*,*)real(sum(a))/real(x)
stop
endprogram
programh0702
implicitnone
integer:
:
a(5,5)!
5*5=25
integer:
:
b(2,3,4)!
2*3*4=24
integer:
:
c(3,4,5,6)!
3*4*5*6=360
integer:
:
d(-5:
5)!
11
integer:
:
e(-3:
3,-3:
3)!
7*7=49
integerax,bx,cx,dx,ex
ax=size(a)
bx=size(b)
cx=size(c)
dx=size(d)
ex=size(e)
write(*,"(I4)")ax
write(*,"(I4)")bx
write(*,"(I4)")cx
write(*,"(I4)")dx
write(*,"(I4)")ex
stop
end
programh0703
implicitnone
integer,parameter:
:
x=10
integerf(x)
integeri
f
(1)=0
f
(2)=1
doi=3,x,1
f(i)=f(i-1)+f(i-2)
enddo
write(*,"(10I4)")f(1:
x)
stop
endprogram
programh0704
implicitnone
integer,parameter:
:
size=10
integer:
:
a(size)=(/5,3,6,4,8,7,1,9,2,10/)
integer:
:
i,j
integer:
:
t
doi=1,size-1
doj=i+1,size
if(a(i) a(i).a(j).. t=a(i) a(i)=a(j) a(j)=t endif enddo enddo write(*,"(10I4)")a stop end programh0705 implicitnone integera(5,5) integerb,c b=1+(2-1)+(2-1)*5 c=1+(3-1)+(3-1)*5 write(*,"('a(2,2)=',I3)")b write(*,"('a(3,3)=',I3)")c stop end ~ programh0706 implicitnone integer,parameter: : size=60000 integer: : a(size) integer: : i,j integer: : t realrnd(size) integer: : time (2),timeoff callrandom_seed() callrandom_number(rnd) a=rnd*size callsystem_clock(time (1)) doi=1,size-1 doj=i+1,size if(a(i) t=a(i) a(i)=a(j) a(j)=t endif enddo enddo callsystem_clock(time (2)) timeoff=time (2)-time (1) write(*,"(60000I10)")a write(*,"('time=',I5)")timeoff stop endprogram ~ programh0707 implicitnone integer,parameter: : size=60000 integer: : a(size) integer: : i,j integer: : t realrnd(size) integer: : time (2),timeoff callrandom_seed() callrandom_number(rnd) a=rnd*size callsystem_clock(time (1)) doi=size-1,1,-1 doj=1,i
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- fortran 程序 作业题