※ 引述《grasteven (定心N yN N )》之銘言：
: ※ 引述《grasteven (定心N yN N )》之銘言：
: : program z
: : real::a,b,c
: : write(*,*)'請輸入一個數字a'
: : read(*,*)a
: : write(*,*)'請輸入另一個數字b'
: : read(*,*)b
: : c=a+b
: : write(*,*)'a+b=',c
: : end program
: program ex1
: real::a,b,c,d,e,f,g
: write(*,*)'請輸入底邊a'
: read(*,*)a
: write(*,*)'請輸入高b'
: read(*,*)b
: c=(a*a+b*b)**(1./2.)
: write(*,*)'斜邊=',c
: end program
這是自己寫的
program ex2
real::a,b,c,d,e,f,g,h
write(*,*)'請輸入梯形的上底a'
read(*,*)a
write(*,*)'請輸入梯形的下底b'
read(*,*)b
write(*,*)'請輸入梯形的高c'
read(*,*)c
d=(a+b)*c/2
write(*,*)'梯形的面積=',d
end program
--
都是鮑魚啦....
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.136.202.102