Yahoo奇摩 網頁搜尋

  1. program implicit none !表示下面所有東西都要自行宣告 integer i,j,k !宣告整數...17:13 補充: 有錯誤~~~~我先跑過一次了耶~~~~ 你確定你是 program implicit none !表示下面所有東西都要自行宣告 integer i,j,k !宣告整數i,j,k...

  2. implicit none integer i,j,k do i=1,9 do j=1,9 k=i*j write(*,'(1x,i1,a1,i1,a1...i1,a1,i1,a1,i2)') i,'*',j,'=',k 2008-05-13 21:13:16 補充: implicit none integer i,k do i=1,9 k=i write(*,'(9(1x,i1,a1,i1,a1,i2))')i,'...

  3. program mulity implicit none integer i,j real sum,a sum=0.d0 do i-1,50 a=0.d0 do j=1,i a=a*j enddo sum=sum+((-1)**(i-1))*(1.d0/a) enddo write(*,*) Mulity= ,sum end

  4. 程式如下: program main implicit none integer n real pi, x, x0, x1, cs, d data pi/3.1415927/ x0 = 0. x1 = pi...

  5. program teet01 implicit none integer i ,j,k,l real a,b,c do i=3,100 L=0 do j=2,i-1 a=i...

  6. program test01 implicit none real ya,xa,x x=0.000001 open(5,file="ptt.txt") do xa=(3...

  7. 程式如下: program main implicit none integer*4 i, j, m, m1, m2, L, k(10), n(10) i = 2 m1...解出所有前 10 組答案: 2012-05-11 18:51:09 補充: program main implicit none integer*8 i, ir, iq, m, L, k(10), n(10) i = 2 m = 0 do...

  8. 明天再幫你寫另外一個 不急嘛~~~^^ implicit none real a(3),b(3),c(3),x,x1,x2 integer i complex x3,x4...039;,x4 end if end do end 2008-05-14 16:56:55 補充: 2 implicit none real i,j,x(4) integer y write(*,*)'請輸入4次購買數量...

  9. 程式如下: program main implicit none character*1 signx, signy real*4 x1, y1, x2, y2, x3, y3, m12, m13, temp, c12x, c12y...

  10. program main implicit none integer :: ValuesCount = 0 ! 記錄輸入的數量 real :: ...