Pages

Tuesday, October 23, 2012

Mereka bilang saya kekanakkan

Ini pertama kalinya saya menulis mengenai diri pribadi saya sendiri. Sebelum sebelumnya postingan saya berisi codingan ataupun hasil foto saya, tp itu akan tetap saya lakukan karena saya menyukai dunia photography, music dan saya sarjana IT.

Thursday, September 27, 2012

Ngoding Sekan di Fortran



LISTING PROGRAM  :
Sekan.for

$ title: Sekan
c Contoh program Sekan
      REAL X0,X1,X2,T
      INTEGER ORDO, ITER
      DIMENSION KOEF(20)
      WRITE (*,’(24(/))’)
      WRITE (*,’(30X,A)’) ‘Input Persamaan’
      WRITE (*,’(30X,A)’) ‘===============’

Ngoding Polinom di Fortran




LISTING PROGRAM  :    
Polinom.for

      INTEGER HIT,HT,O,X
      INTEGER A(10),POL(10),H,N,PIL
      CHARACTER*20 LAGI,KEY
2     WRITE(*,'(24(/))')
      WRITE(*,'(A)') '      M E N U '
      WRITE(*,'(A)') '=================='
      WRITE(*,'(A)') ' 1. INPUT '
      WRITE(*,'(A)') ' 2. NILAI F(X) '
      WRITE(*,'(A)') ' 3. HASIL BAGI '
      WRITE(*,'(A)') ' 4. EXIT '
      WRITE(*,'(A)') '=================='