Program ex0601
implicit none
integer counter
integer,parameter::lines=10
do counter=1,lines,2
write(*,*) "Happy Birthday",counter
end do
stop
end
阅读全部
|
jude1990
贴于 2012年8月21日 09:22
hide
bbsi
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
#include<stdio.h>
#include<math.h>
#include<stdlib.h>
void main(void)
{
double x1,y1,z1,x2,y2,z2;
double d1,d2,d,p,s;
char name[20];
int k;
......................
阅读全部
|
纯哲学
贴于 2012年8月18日 22:59
hide
bbsi