Program ex0434
implicit none
type::person
character(len=30)::name
integer:: age
real:: height
real:: weight
character(len=80) address
end type person
type(person)::a
......................
阅读全部
|
jude1990
贴于 2012年8月19日 18:42
hide
bbsi
Program ex0429
implicit none
real,parameter::pi=3.1415
write(*,*)sin(pi/6)
stop
end
阅读全部
|
jude1990
贴于 2012年8月19日 18:22
hide
bbsi
Program ex0428
implicit none
i=123+321
write(*,"('123+321=',I4)")j
stop
end
阅读全部
|
jude1990
贴于 2012年8月19日 18:10
hide
bbsi
Program ex0418
implicit none
real::a,b,c
read(*,*)a,b,c
write(*,*)a+b+c
stop
end
阅读全部
|
jude1990
贴于 2012年8月19日 17:54
hide
bbsi
Program ex0418
implicit none
real::a,b,c
read(*,*)a,b,c
write(*,*)a+b+c
stop
end
阅读全部
|
jude1990
贴于 2012年8月19日 17:53
hide
bbsi
Program ex0417
implicit none
integer(kind=2)::a
read(*,*)a
write(*,*)a
stop
end
阅读全部
|
jude1990
贴于 2012年8月19日 17:40
hide
bbsi
Program ex0501
implicit none
logical(kind=2)::a,b
a=.true.
b=.false.
write(*,*)a,b
stop
end
阅读全部
|
jude1990
贴于 2012年8月19日 17:38
hide
bbsi
Program ex0501
implicit none
real(kind=4)::speed
write(*,*)"speed:"
read(*,*) speed
if (speed>100.0) then
write(*,*) "Slow down."
endif
stop
end
阅读全部
|
jude1990
贴于 2012年8月19日 12:01
hide
bbsi
Program ex0430
integer::a=1
real::b=2.0
complex::c=(1.0,2.0)
character(len=20)::str="Fortran 90"
write(*,*) a,b,c,str
stop
end
阅读全部
|
jude1990
贴于 2012年8月18日 15:09
hide
bbsi