作者jaychang1988 (花雪)
看板KS96-310
標題Re: [哭哭] 計設爆掉了啦...
時間Thu Nov 22 19:50:12 2007
科科 那我來貼一個我的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
推 trashprince:蚵蚵 好低階的語言 一直推文 11/22 19:59
→ jaychang1988:敢說它低階@@ 低階你寫的出來嗎? 科科 11/22 20:04
推 trashprince:write(*,*)'洨花花 11/22 20:16
→ trashprince:READ a 11/22 20:17
→ trashprince:蚵蚵 話說咱計概老師上課動不動就在那裏玩FORTRAN 11/22 20:17
推 jaychang1988:北七 你4、5樓的語法都錯了 嫩炮 連Fortran都不會 11/22 20:35
→ Pineapple225:Fortran現在沒啥人在用了吧 而且個人覺得還蠻不方便ꬠ 11/22 21:56
推 jaychang1988:科科 同樣的算式去跑 Fortran只要一半不到的時間 11/23 00:57
→ jaychang1988:當然還是會有用到Fortran的地方啊 11/23 00:58