Dian dan Resa

random

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?

Program Gauss Jordan dengan Fortran

Program Gauss Jordan dengan Fortran

c Contoh program Gauss Jordan
INTEGER ORDO
REAL M(10,10), MB(10,10)

C ********** I N P U T M A T R I K S **********

WRITE (*,'(24(/))')
WRITE (*,'(''BANYAK ORDO MATRIKS = '',\)')
READ (*,'(I4)') ORDO
WRITE (*,*)
DO 6 I = 1, ORDO
DO 5 J = 1, ORDO
WRITE (*,'(2X,''ELEMEN ('',I1,'','',I2,'') = '',\)') I, J
READ (*, *) M(I,J)
5 CONTINUE
6 CONTINUE

Menghitung luas lingkaran dengan fortran

Menghitung luas lingkaran dengan Fortran

berikut ini coding singkat yang digunakan untuk menghitung luas lingkaran dengan fortran :

LISTING PROGRAM :

        integer r

        real luas

        write(*,5)

        read(*,15)r

        luas=3.14*r*r

        write(*,20)luas

5      FORMAT('Masukkan Jari-jari:')

15    FORMAT(I5)

20    FORMAT('Luas=',F5.2)

        STOP

        END