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)') '=================='

mereka dan tingkahnya

ini alamku, Indonesia

my style

what they feel?