※ 引述《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
--
都是鮑魚啦....
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.136.202.102