tutorial fortran 77

assalamualaikum wr. wb. 

salam IT saudaraku sekalian !!!!, pada kesempatan ini saya ingin berbagi script fortran77. script ini bisa di jalankan menggunakan compiler force 2.0 yang bisa di download melalui link 
resminya :
http://www.lepsch.com/2009/05/downloads.html
screenshoot force 2.0
dibawah ini contoh script yang bisa dijalankan atau bagi yang ingin melihat program yang 
bisa dihasilkan silahkan  download di link dibawah ini :

tutorial Bahasa Fortran









silahkan saudara/i ku yg gi beljr fortran mamfaatkan materinya untuk bahan referensi tambahan .....


don't forget your comment for this blog...




http://www.stanford.edu/class/me200c/tutorial_77/

PROGRAM HASIL FORTRAN77.rar

program konversi suhu lengkap.exe “(program fortran siap pake)”
dibawah ini script program diatas :
C234567890
C PROGRAM CAMPURAN
02 WRITE(*,'(3X,A,/)')'%%%%% A S S A L A M U A L A I K U M %%%%%%%'
WRITE(*,*)'__________Copy Right, Engineer COBA-COBA______________'
WRITE(*,'(3X,A,/)')'$$KUNJUNGI BLOG SAYA DENGAN URL DIBAWAH INI$$'
WRITE(*,*)'*****http://www.engineerparman.blogspot.com*****'
WRITE(*,*)'__________Copy Right, Engineer COBA-COBA______________'
WRITE(*,*)
WRITE(*,'(3X,A,/)')'SILAHKAN, PILIH PROGRAM YG MAU DIJALANKAN !!!'
WRITE(*,'(3X,A,/)')'1)L. LINGKARAN'
WRITE(*,'(3X,A,/)')'2)L.SEGITIGA'
WRITE(*,'(3X,A,/)')'3)PHYTAGORAS'
WRITE(*,'(3X,A,/)')'4)LOGIKA'
WRITE(*,'(3X,A,/)')'5)PENJUMLAHAN N KALI'
WRITE(*,'(3X,A,/)')'6)KONVERSI SUHU CELSIUS KE FAHRENHEIT'
WRITE(*,'(3X,A,/)')'7)KONVERSI SUDUT'
WRITE(*,'(3X,A,/)')'8)GAMES'
WRITE(*,'(3X,A,/)')'9)KONVERSI PANJANG DARI METER'
WRITE(*,*)'UNTUK MEMULAI SILAHKAN TULIS URUTAN NOMOR PROGRAM'
READ(*,*)ST
IF(ST.EQ.3) GO TO 11
IF(ST.EQ.8) GO TO 5
IF(ST.EQ.6) GO TO 03
IF(ST.EQ.9) GO TO 06
IF(ST.EQ.7) GO TO 08
IF(ST.EQ.1) GO TO 09
IF(ST.EQ.2) GO TO 012
IF(ST.EQ.4) GO TO 013
IF(ST.EQ.5) GO TO 014
C
11 write(*,'(10x,a)')'****** A S S A L A M U A L A I K U M ********'
write(*,'(15x,a)')'x adalah sisi tegak, y adalah sisi alas'
write(*,'(20x,a,///)')'z adalah bagian sisi miring'
WRITE(*,'(3X,A)') 'INI ADALAH PROGRAM SEGITIGA SIKU-SIKU'
WRITE(*,'(a,/)')'DENGAN MENGGUNAKAN PRINSIF DASAR PYTAGORAS'
WRITE(*,'(a,/)')'Aturan penggunaan program ini sebagai berikut :'
write(*,'(2x,a,/)')'1)misal ingin mencari X tulis nilai X =0'
write(*,'(2x,a,/)')'2)misal ingin mencari y tulis nilai y =0'
write(*,'(2x,a,//)')'3)misal ingin mencari Z tulis nilai Z =0'
WRITE(*,'(3X,A)')'NILAI X= '
READ(*,*) X
WRITE(*,'(3X,A)')'NILAI Y= '
READ(*,*) Y
WRITE(*,'(3X,A)')'NILAI Z= '
READ(*,*) Z
IF(Z.EQ.0) GO TO 10
IF(Y.EQ.0) GO TO 20
IF(X.EQ.0) GO TO 30
10
Z=(X**2+Y**2)**0.5
WRITE(*,'(3X,A,//)')'nilai Z yang di cari?'
WRITE(*,*)'NILAI Z =',Z
write(*,*)'_____________________________________________________'
WRITE(*,'(3X,A)')'*************KUNJUNGI BLOG KU****************'
WRITE(*,'(3X,A)')'+++++http://engineerparman.blogspot.com++++++'
write(*,*)'-----------------------------------------------------'
write(*,'(2x,a,/)')'untuk melanjutkan tulis 1, exit 0,MENU AWAL 2'
read*,q
if(q.eq.1) go to 11
if(q.eq.0) go to 01
if(q.eq.2) go to 02
C
READ(*,*)
go to 11
20
Y=(Z**2-X**2)**0.5
WRITE(*,'(3X,A,//)')'nilai Y yang di cari?'
WRITE(*,*)'NILAI Y =',Y
write(*,*)'_____________________________________________________'
WRITE(*,'(3X,A)')'*************KUNJUNGI BLOG KU****************'
WRITE(*,'(3X,A)')'+++++http://engineerparman.blogspot.com++++++'
write(*,*)'-----------------------------------------------------'
write(*,'(2x,a,/)')'untuk melanjutkan tulis 1, exit 0,MENU AWAL 2'
read*,q
if(q.eq.1) go to 11
if(q.eq.0) go to 01
if(q.eq.2) go to 02
C
READ(*,*)
go to 11
30
X=(Z**2-Y**2)**0.5
WRITE(*,'(3X,A,//)')'nilai X yang di cari?'
WRITE(*,*)'NILAI X =',X
write(*,*)'_____________________________________________________'
WRITE(*,'(3X,A)')'*************KUNJUNGI BLOG KU****************'
WRITE(*,'(3X,A)')'+++++http://engineerparman.blogspot.com++++++'
write(*,*)'-----------------------------------------------------'
write(*,'(2x,a,/)')'untuk melanjutkan tulis 1, exit 0,MENU AWAL 2'
read*,q
if(q.eq.1) go to 11
if(q.eq.0) go to 01
if(q.eq.2) go to 02
READ(*,*)
go to 11
C
READ(*,*)
01 STOP
5 WRITE(*,*)'TRY AGAIN = ENTER '
WRITE(*,'(3X,A,/)')'SIAPA NAMA PEMBUAT PROGRAM INI ? ',1,2,3,4
WRITE(*,*) ' 1)PARMAN', ' 2)OTHER', ' 3)EINSTEN',' 4)COPY PASTE'
READ(*,*)JAWAB
WRITE(*,'(3X,A,/)')'SIAPA NAMA GUBERNUR NTB MASA DEPAN ?',5
WRITE(*,*) ' 1)TGB', ' 2)PARMAN', ' 3)EINSTEN',' 4)COPY PASTE'
READ(*,*)JAWAB1
WRITE(*,'(3X,A,/)')'PENDUDUK TERBANYAK DI LOMBOK, BERADA DI !',4
WRITE(*,*) ' 1)LOTIM',' 2)LOTENG',' 3)LOBAR',' 4)LOTUR'
READ(*,*)JAWAB2
WRITE(*,'(3X,A,/)')'(1+2+999999+888888-0)*9**2*4*0 ='
WRITE(*,*) ' 1)0000000',' 2)111111',' 3)333333',' 4)2222222222'
READ(*,*)JAWAB3
WRITE(*,'(3X,A,/)')'dosen killer mesin ganjil pagi(inisial)?'
WRITE(*,*) ' 1)EM',' 2)YD',' 3)MD',' 4)SH'
READ(*,*)JAWAB4
IF(JAWAB.EQ.1)WRITE(*,*)'1)BENAR KAWAN,kadas youth is lotim'
IF(JAWAB.EQ.2) WRITE(*,*)'ANDA TIDAK MENGHARGAI PEMBUAT',0000,0000
IF(JAWAB.EQ.2) GO TO 5
IF(JAWAB.EQ.3) WRITE(*,*)'DIA TIDAK KENAL FORTRAN', 666
IF(JAWAB.EQ.3) GO TO 5
IF(JAWAB.EQ.4) WRITE(*,*)'PLAGIAT TUH MAS BRO',99
IF(JAWAB.EQ.4) GO TO 5
IF(JAWAB1.EQ.2)WRITE(*,*)'2)BENAR KAWAN,kadas youth is lotim'
IF(JAWAB1.EQ.1) WRITE(*,*)'ANDA TIDAK MENGHARGAI PEMBUAT', 555
IF(JAWAB1.EQ.1) GO TO 5
IF(JAWAB1.EQ.3) WRITE(*,*)'DIA TIDAK KENAL FORTRAN', 666
IF(JAWAB1.EQ.3) GO TO 5
IF(JAWAB1.EQ.4) WRITE(*,*)'PLAGIAT TUH MAS BRO', 99
IF(JAWAB1.EQ.4) GO TO 5
IF(JAWAB2.EQ.1) WRITE(*,*)'3)BENAR KAWAN,kadas youth is lotim'
IF(JAWAB2.EQ.2) WRITE(*,*)'ANDA TIDAK MENGHARGAI PEMBUAT', 555
IF(JAWAB2.EQ.2) GO TO 5
IF(JAWAB2.EQ.3) WRITE(*,*)'DIA TIDAK KENAL FORTRAN', 666
IF(JAWAB2.EQ.3) GO TO 5
IF(JAWAB2.EQ.4) WRITE(*,*)'PLAGIAT TUH MAS BRO', 99
IF(JAWAB2.EQ.4) GO TO 5
IF(JAWAB3.EQ.1) WRITE(*,*)'4)BENAR KAWAN,kadas youth is lotim'
IF(JAWAB3.EQ.2) WRITE(*,*)'ANDA TIDAK MENGHARGAI PEMBUAT',555
IF(JAWAB3.EQ.2) GO TO 5
IF(JAWAB3.EQ.3) WRITE(*,*)'DIA TIDAK KENAL FORTRAN',666
IF(JAWAB3.EQ.3) GO TO 5
IF(JAWAB3.EQ.4) WRITE(*,*)'PLAGIAT TUH MAS BRO',99
IF(JAWAB3.EQ.4) GO TO 5
IF(JAWAB4.EQ.3) WRITE(*,*)'5)BENAR KAWAN,kadas youth is lotim'
IF(JAWAB4.EQ.1) WRITE(*,*)'ANDA TIDAK MENGHARGAI PEMBUAT',555
IF(JAWAB4.EQ.1) GO TO 5
IF(JAWAB4.EQ.2) WRITE(*,*)'DIA TIDAK KENAL FORTRAN',666
IF(JAWAB4.EQ.2) GO TO 5
IF(JAWAB4.EQ.4) WRITE(*,*)'PLAGIAT TUH MAS BRO',99
IF(JAWAB4.EQ.4) GO TO 5
WRITE(*,*)'KUNCI JAWABAN = 12113'
WRITE(*,*)'******************KUNJUNGI BLOG KU********************'
WRITE(*,*)'++++++http://www.engineerparman.blogspot.com++++++++++'
WRITE(*,*)'MENU AWAL TULIS 02, EXIT 01'
READ(*,*)PR
IF(PR.EQ.02) GO TO 02
IF(PR.EQ.01) GO TO 01
READ(*,*)
C234567890
WRITE(*,*)'',''
FAH = 1.8*C + 32
03
write(*,*)'_____________________________________________________'
WRITE(*,'(3X,A)')'*************KUNJUNGI BLOG KU****************'
WRITE(*,'(3X,A)')'+++++http://engineerparman.blogspot.com++++++'
write(*,*)'-----------------------------------------------------'
WRITE(*,*)'INPUT CELCIUS ='
READ(*,*)C
WRITE(*,*)'---------------------------'
WRITE(*,*) 'CELCIUS FAHRENHEIT'
WRITE(*,*)'---------------------------'
C
04 WRITE(*,'(1X,F7.2,4X,F10.2)') C, FAH
IF(C .LT. 5.0) THEN
C = C + 0.5
GOTO 04
ENDIF
WRITE
(*,*)'--------------------------------------------'
WRITE(*,'(3X,A)')'BLOG :www.engineerparman.blogspot.com'
WRITE(*,*)'--------------------------------------------'
WRITE(*,*)'**************parman engineer*********************'
WRITE(*,*)'INPUT 1 FOR CONTINUE,MENU AWAL 02, INPUT 0 FOR EXIT'
READ(*,*)B
IF(B.EQ.1) GO TO 03
IF(B.EQ.0) GO TO 01
IF(B.EQ.02) GO TO 02
READ*,
C KONVERSI SATUAN
06 WRITE(*,'(3X,A,//)') 'INPUT P(METER) = '
READ(*,*)METER
FEET = METER * 3.28
YARD = METER * 1.09
MILE = METER * 0.00062
INCH = METER * 39.37
WRITE(*,*)
WRITE(*,'(3X,A,/)')'HASIL KONVERSI'
WRITE(*,*)
WRITE(*,*)METER,'METER = ',FEET,'FEET'
WRITE(*,*)METER,'METER = ',YARD,'YARD'
WRITE(*,*)METER,'METER = ',MILE,'MILE'
WRITE(*,*)METER,'METER = ',INCH,'INCH'
write(*,'(3X,A,/)')'blogme=http://www.engineerparman.blogspot.com'
write(*,'(3X,A,/)')'**************PARMAN ENGINEER****************'
WRITE(*,*)'EXIT INPUT=0, CONTINUE INPUT=1, MENU AWAL=2'
READ(*,*)A
IF(A.EQ.1) GO TO 06
IF(A.EQ.0) GO TO 01
IF(A.EQ.2) GO TO 02
READ(*,*)

C234567890
08 WRITE(*,'(1X,A,/)') 'BERAPA DERAJAT = '
READ (*,'(F6.2)')X1
X = X1/57.2958
Y1 = SIN(X)
Y2 = COS(X)
Y3= TAN(X)
WRITE(*,*)
WRITE(*,'(1X,A,F6.2,A,F6.5)')'SIN',X1,'=',Y1
WRITE(*,'(1X,A,F6.2,A,F6.5)')'COS',X1,'=',Y2
WRITE(*,'(1X,A,F6.2,A,F6.5)')'TAN',X1,'=',Y3
WRITE(*,*)
WRITE(*,'(2X,A)')'***********************************************'
WRITE(*,'(5X,A)')'HTTP://WWW.ENGINEERPARMAN.BLOGSPOT.COM'
WRITE(*,'(2X,A)')'********************************************'
WRITE(*,'(5X,A,/)')'CONTINUE PILIH 1 & EXIT 2 SERTA MENU AWAL ,0,'
WRITE(*,*)'CONTINUE & EXIT, PLEASE INPUT NUMBER 1/2, MENU AWAL =0'
READ(*,*)AB
IF(AB .EQ. 1) GO TO 08
IF(AB .EQ. 2) GO TO 01
IF(AB .EQ. 0) GO TO 02
READ*,
C
09 WRITE(*,'(10X,A,//)')'MENGHITUNG LUAS LINGKARAN'
WRITE(*,*) 'JARI-JARI LINGKARAN = '
READ(*,*)r
LS=r*r*3.14159
WRITE(*,*)'LUAS LINGKARAN =',LS
WRITE(*,*)'--------------------------------------------'
WRITE(*,'(3X,A)')'BLOG :www.engineerparman.blogspot.com'
WRITE(*,*)'--------------------------------------------'
WRITE(*,*)'**************parman engineer*********************'
WRITE(*,*)'INPUT 1 FOR CONTINUE,MENU AWAL 02, INPUT 0 FOR EXIT'
READ(*,*)B
IF(B.EQ.1) GO TO 09
IF(B.EQ.0) GO TO 01
IF(B.EQ.02) GO TO 02
READ(*,*)
C234567890
012 WRITE(*,'(10X,A,//)')'MENGHITUNG LUAS SEGITIGA'
WRITE(*,*) 'ALAS = '
READ(*,*)A
WRITE(*,*) 'TINGGI = '
READ(*,*)T
LS=0.5*A*T
WRITE(*,*)'LUAS SEGITIGA =', LS
WRITE(*,*)'--------------------------------------------'
WRITE(*,'(3X,A)')'BLOG :www.engineerparman.blogspot.com'
WRITE(*,*)'--------------------------------------------'
WRITE(*,*)'**************parman engineer*********************'
WRITE(*,*)'INPUT 1 FOR CONTINUE,MENU AWAL 02, INPUT 0 FOR EXIT'
READ(*,*)B
IF(B.EQ.1) GO TO 012
IF(B.EQ.0) GO TO 01
IF(B.EQ.02) GO TO 02
READ(*,*)
C234567890
013 WRITE(*,'(10X,A,//)')'$$$$$$$$$$LOGIKA PEMEROGRAMAN$$$$$$$$$$$$$'
WRITE(*,*) 'NILAI A = '
READ(*,*)A
WRITE(*,*) 'NILAI B = '
READ(*,*)B
WRITE(*,*) 'NILAI C = '
READ(*,*)C
IF(A.GT.B) WRITE(*,*) 'NILAI A LEBIH BESAR B'
IF(A.LT.B) WRITE(*,*) 'NILAI B LEBIH BESAR A'
IF((A.LT.B) .AND. (A.LT.C)) WRITE(*,*) 'NILAI A TERKECIL'
IF((A.GT.B) .AND. (A.GT.C)) WRITE(*,*) 'NILAI A TERBESAR'
IF((A.GT.B) .OR. (A.GT.C)) WRITE(*,*) 'NILAI A TERKECIL'
IF((A.LT.B) .OR. (A.LT.C)) WRITE(*,*) 'NILAI A TERBESAR'
WRITE(*,*) 'PUSINGKAN DENGAN PROGRAM LOGIKA INI'
WRITE(*,*) 'SAYA JELASKAN YANG PALING BAWAH ADALAH .OR. YG TENGAH'
WRITE(*,*) 'ADALAH .AND.'
WRITE(*,*)'--------------------------------------------'
WRITE(*,'(3X,A)')'BLOG :www.engineerparman.blogspot.com'
WRITE(*,*)'--------------------------------------------'
WRITE(*,*)'**************parman engineer*********************'
WRITE(*,*)'INPUT 1 FOR CONTINUE,MENU AWAL 02, INPUT 0 FOR EXIT'
READ(*,*)B
IF(B.EQ.1) GO TO 013
IF(B.EQ.0) GO TO 01
IF(B.EQ.02)GO TO 02
READ(*,*)
C PENJUMLAHAN PENGULANGAN DARI 1-N
014 WRITE(*,'(10X,A,/)')'$$$$$$$ ENGINEERPARMAN.BLOGSPOT.COM $$$$$$$$'
WRITE(*,'(10X,A,/)')'____PROGRAM PENJUMLAHAN OTOMATIS N KALI____'
WRITE(*,'(10X,A,//)')'$$$$$$ ENGINEERPARMAN.BLOGSPOT.COM $$$$$$$$'
PRINT*,'TENTUKAN NILAI N='
READ*,N
SUM =0
DO 100 I = 1,N
SUM = SUM + I
WRITE(*,*)'I=',I
WRITE(*,*)'SUM=',SUM
100 CONTINUE
WRITE
(*,*)'--------------------------------------------'
WRITE(*,'(3X,A)')'BLOG :www.engineerparman.blogspot.com'
WRITE(*,*)'--------------------------------------------'
WRITE(*,*)'**************parman engineer*********************'
WRITE(*,*)'INPUT 1 FOR CONTINUE,MENU AWAL 02, INPUT 0 FOR EXIT'
READ(*,*)B
IF(B.EQ.1) GO TO 014
IF(B.EQ.0) GO TO 01
IF(B.EQ.02)GO TO 02
READ(*,*)
END


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s