Re: [哭哭] 計設爆掉了啦...

看板KS96-310作者jaychang1988 (花雪)時間18年前 (2007/11/22 19:50)推噓5(5推 0噓 5→)

留言10則, 3人參與討論串3/5 (看更多)

科科那我來貼一個我的Fortran作業 ! Homework3_11.f90 ! ! FUNCTIONS: ! Homework3_11 - Entry point of console application. ! !**************************************************************************** ! ! PROGRAM: Homework3_11 ! ! PURPOSE: Entry point for the console application. ! !**************************************************************************** program Homework3_11 implicit none REAL::F,x,y WRITE(*,*)' ' WRITE(*,*)'已知一函數f(x,y):' WRITE(*,*)' ' WRITE(*,*)'當 x>=0 且 y>=0 時, f(x,y) = x + y' WRITE(*,*)' ' WRITE(*,*)'當 x>=0 且 y< 0 時, f(x,y) = x + y^2' WRITE(*,*)' ' WRITE(*,*)'當 x< 0 且 y>=0 時, f(x,y) = x^2 + y' WRITE(*,*)' ' WRITE(*,*)'當 x< 0 且 y< 0 時, f(x,y) = x^2 + y^2' WRITE(*,*)' ' WRITE(*,*)'請輸入x值:' READ(*,*)x WRITE(*,*)' ' WRITE(*,*)'請輸入y值:' READ(*,*)y WRITE(*,*)' ' a1:IF(x>=0)THEN a2:IF(y>=0)THEN F=x+y !a1 and a2 ELSE !~a2 F=x+y**2 !a1 and ~a2 END IF a2 ELSE !~a1 a3:IF(y>=0)THEN F=x**2+y !~a1 and a3 ELSE !~a3 F=x**2+y**2 !~a1 and ~a3 END IF a3 END IF a1 WRITE(*,*)'函數f(x,y)為:',F WRITE(*,*)' ' PAUSE end program Homework3_11 -- 我說話是很中肯的！ http://www.wretch.cc/blog/jaychang1988 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.116.103.83 ※ 編輯: jaychang1988 來自: 140.116.103.83 (11/22 19:55)

推

jaychang1988

11/22 19:57, , 1^F

11/22 19:57, 1^F

推

trashprince

11/22 19:59, , 2^F

11/22 19:59, 2^F

→

jaychang1988

11/22 20:04, , 3^F

11/22 20:04, 3^F