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...<><><><><><><><><><>
PROGRAM HASIL FORTRAN77.rar
program konversi suhu lengkap.exe "(program fortran siap pake)"
dibawah ini script program diatas :
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
No comments:
Post a Comment
=(*_*)------------------------(^_^)=
:::::|berkomentar dengan sopan adalah akhlak kemulian|:::::