Tuesday, February 12, 2013

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






Subscribe to Our Blog Updates!




Share this article!

No comments:

Post a Comment

=(*_*)------------------------(^_^)=
:::::|berkomentar dengan sopan adalah akhlak kemulian|:::::

Return to top of page
Powered ByBlogger | Design by PARMAN | Blogger Template by UKK As-Siraaj