pelajaran: contoh laporan program potran.

SEKOLAH TINGGI TEKNOLOGI ADISUTJIPTO

JURUSAN TEKNIK MESIN

LAPORAN PRAKTIKUM

PEMROGRAMAN KOMPUTER

DENGAN BAHASA FORTRAN

Oleh :

Nama : BOBI KUSWANDI

NIM : 12040037

Yogyakarta

2014

LEMBAR PENGESAHAN

Diajukanuntukmemenuhisebagiansyarat

MenempuhmatakuliahPraktikumPemograman

Di JurusanTeknikMesinSekolahTinggiTeknologiAdisutjipto

Disusunoleh :

BOBI KUSWANDI

12040037

DISETUJUI OLEH:

Yogyakarta, 27 Juni 2014

INSTRUKTUR

…………………………..

Kata Pengantar

Denganmengucapkanpujidansyukurkehadirat Allah SWT atassegalarahmatdankaruniaNya.Sehinggsayadapatmenyelesaikanpembuatanlaporaninidenganjudul “PEMROGRAMAN KOMPUTER DENGAN BAHASA FORTRAN”

Adapunpenyusunanlaporaninitidak lain untukmemenuhitugasmatakuliahpemrogramancomputer dantidaklupauntukmengucapkanterimakasihkepadaDosen / pembimbingkarenadenganinikami bisamengetahui tentangpemrograman computer denganbahasafortran

Tidakadagading yang tidakretak, olehkarenaitudalampenyusunanlaporanini kami dapatmenyadaritentunyamasihterdapatkekurangandankelemahannya, maka kamiselakupenulismengharapkansumbang saran yang konstruktif demi sempurnanyapenyusunanlaporanselanjutnya.

Yogyakarta, 27 Juni 2014

Penulis

Daftar Isi

HalamanJudul

HalamanPengesahan

Kata Pengantar

BAB I PENDAHULUAN

BAB II SISTEM KOMPUTER

1. CPU

2. MONITOR

3. KEYBOARD

4. MOUSE

BAB III MENJALANKAN FORTRAN 77

BAB IV TUGAS DAN LATIHAN

Penutup

DaftaPustaka

BAB I

PENDAHULUAN

Suatu group di IBM yang diketuaioleh John Bakuspadatahun 1945 mulaibekerjauntukmengembangkanbahasapemrogramantingkattinggi (high level language) untukTeknikdanMatematika yang diberinama FORTRAN (FORmulaTRANslator),Bahasa FORTRAN dimulaidari FORTRAN I danoleh ANSI (American National Standarts Institute) membentuk FORTRAN 77. Dalampraktikuminidigunakan WATFOR 77 yang merupakan waterloo dari WATFOR 77.

I.1 Struktur Program Fortran

Strukturbahasafortrandibagi 4 bagiankolomdantiap-tiapbarisberisi di dalam program dapatberisi :

1. Metacommand

2. Komentar

3. Statemen

4. Sambungandaristatemenbarissebelumnya

Aturanmenulis;

Kolom 1 digunakanuntukkomentar,biasadigunakankarater “c” yang menunjukkanbahwabaristersebutberisikomentarbebas.
Kolom 1 sampaidengan 5 digunakanuntukpenulisan label statement (statement label)
Kolom 6 digunakanuntukindikasisambungan statement daribarissebelumnya.
Kolom 7 sampaidengankolom 72 digunakanuntukmenulis statement fortran
Kolom 73 sampaidengan 80 tidakdigunakanolehfortran.

Statement fortrandapatdibentukdarilemen-elemensebagaiberikut;

konstanta
operator
ungkapan
nama
verb

BAB II

SISTEM KOMPUTER

1. CPU

Ø DZUMBA

2. MONITOR

Ø LCD AOC 19 inc

3. KEYBOARD

Ø VOTRE

4. MOUSE

Ø VOTRE

BAB III

MENJALANKAN FORTRAN 77

Setelahlayar monitor tampil A: (promt A) atau C: ataulainnya (tergantungdimana program Watforr77 dilletakkan).

Langkah-langkah;

1. Ketik“ watfor77” tekan enter.

Akan tampaktampilansebagaiberikut:

2. TekanF9untukmenaikkankursordari area command ke area statemen.

3. TekanF5 untukmemberikanruangkosongpada area statemen.

Setelah program selesaidiketik (pastikanKursoradadiposisi command line)

4. KetikPUTuntukmenyimpandanmemberikannama file contoh putmesin.FOR

5. KetikRUNuntukmenjalankan program contoh : run mesin.for

6. KetikQUITuntukmengakhiriwatfor 77

BAB IV

TUGAS DAN LATIHAN

LATIHAN 1

1. Buatlah program untukmenghitung LUAS dan VOLUME kubusdenganpanjangsisi S tanpastatemen FORMAT. Kemudiansimpandengannamakubus.for, danjalankan.

C PROGRAM MENGHITUNG LUAS DAN VOLUME KUBUS

C234567

WRITE(*,*)‘MASUKAN SALAH SATU SISI KUBUS

READ(*,*)S

AL=6.*S*S

V=S*S*S

WRITE(*,*)S,AL,V

STOP

END

2. Buatlah program untukmenghitung LUAS dan VOLUME kubusdenganpanjangsisi S tanpastatemen FORMAT. Kemudiansimpandengannamakubus.for, danjalankan.

C PROGRAM MENGHITUNG LUAS DAN VOLUME KUBUS

C234567

WRITE(*,10)

10 FORMAT(‘MASUKAN SALAH SATU SISI KUBUS’)

READ(*,*)S

AL=6.*S*S

V=S*S*S

WRITE(*,20)S,AL,V

20 FORMAT(‘SISI=,’F5.1,2X,’LUAS KUBUS=’,F5.1,2X,’VOLUME=’,F5.1)

STOP

END

LATIHAN 2

1. Akan dibuat program untukmenghitungkecepatanlintasan

Program

C PROGRAM MENGHITUNG KECEPATAN LINTASAN

C OLEH : MESIN,ST

C234567

WRITE(*,*)’MASUKKAN BESARNYA PERCEPATAN?’

READ(*,*)A

WRITE(*,*)’MASUKKAN BESARNYA WAKTU?’

READ(*,*)T

V=A*T

S=0.5*A*T**2.

WRITE(*,20)A,T,V,S

20 FORMAT(‘PERCEPATAN(M/DET2)=,’F5.1,’WAKTU(DETIK)=,’F5.1,’KECEPA

TAN(M/DET)=’,F5.1,’LINTASAN(M)=,’F5.1)

STOP

END

Bila program dijalankanakandidapatkanhasil :

MASUKKAN BESARNYA PERCEPATAN?

5.0 data yang diisikan

MASUKKAN BESARNYA WAKTU?

20.0 data yang diisikan

PERCEPATAN (M/DET2)=5.0WAKTU(DETIK)=10.0

KECEPATAN(M/DET)=50.0LINTASAN(M)=250.0

TUGAS 1

a. UmurMesin,STadalah 24 tahun, 1 bulan,15 hari, 6 jam

Bila 1 tahun= 365 hari,1bulan=30 hari.

BerapaumurMesin,STdalamsatuan jam, dalamsatuanmenit, dalamsatuandetik

BuatlahProgramnya !

b. Pengisiansuatubateraimengikutipersamaan

Isi=k(1-e^-T)

Bila k= 10 dan e=2.71828

Berapakah isi baterai tersebut setelah T=0.5

Buatlahprogramnya!

c.Suatu parabola mempunyaipersamaan Y= +8x+2 berapaharga Y bilahargaabsis

X=2.34. buatlahprogramnya.

d.Apabilasuatubendamassanya = 10 kg danpercepatanya , hitunglahgaya yang ditimbulkan . Gunakanrumus K=M*A dengan K=gaya, M=massa, A=percepatan.

Buatlahprogramnya.

Jawaban

a)programya

C234567

READ(*,*)A,B,C,D

F=A*360.*24+24+B*30.*24.+C*24+D

G=F*60

H=G*60

WRITE(*,10)F,G,H

10 FORMAT(‘JAM=’,F10.1,2X,’MENIT=’,F10.1,2X,F20.1)

STOP

END

b) programnya

C234567

WRITE(*,*)’MASUKAN HARGA T?’

READ(*,*) T

I=10*(1-2.7,8**(-T))

WRITE(*,*)I

STOP

END

c) programnya

C234567

WRITE(*,*)’MASUKAN ABSIS X?’

READ(*,*) X

Y=5*X**2+8*X+2

WRITE(*,*) Y

STOP

END

d) programnya

C234567

WRITE(*,*)’MASUKAN MASSA?’

READ(*,*) M

WRITE(*,*)’MASUKAN PERCEPATAN’

READ(*,*) P

F=M*P

WRITE(*,*)F

STOP

END

LATIHAN 3

C234567

100 READ(*,*)A,B

C=A*B

WRITE(*,*)’HARGA C=’,C

IF(A.GT.5) GOTO 10

GOTO 100

10 STOP

END

Jalankandengan

1. Harga A=2, B=5 lalujalankan

2. Harga A=10, B=5 lalujalankan

LATIHAN 4

C234567

READ(*,*)N,A,B

GO TO(100,200,300),N

100 C=A*B

GOTO 20

200 C=A+B

GOTO 20

300 C=A-B

GOTO 20

20 WRITE(‘HARGA C=’,C

STOP

END

LATIHAN 5

C234567

WRITE(*,*)’ISI DATA’

READ(*,*)A,B,C

DISK=B**2 – 4*A*C

IF(DISK.LT.0.0)GOTO 100

X1=(-B+SQRT(B**,2-4*A*C))/(2*A)

X2=(-B-SQRT(B**,2-4*A*C))/(2*A)

WRITE(*,*)X1,X2

100 STOP

END

LATIHAN 6

C234567

DO 50 I= 1,10,-1

A=I*2

B=I*4

WRITE(*,*)I,A,B

50 CONTINUE

STOP

END

LATIHAN 7

C234567

DO 50 V=30,200,10

FM=0.5

T=3.5

D=0.278*V*T+V**2/(254.*FM)

WRITE(*,*)D

50 CONTINUE

STOP

END

TUGAS 2

Buatlah program untukmenghitungakardarimasing-masingpersamaandibawah

LATIHAN 8

C234567

DIMENSION A(5,5),D(5,5),E(5,5)

READ(*,*)A(1,1),A(1,2),A(2,1),A(2,2),D(1,1),D(1,2),D(2,1),(2,2)

E(1,1)=D(1,1)+A(1,1)

E(1,2)=D(1,2)+D(1,2)

WRITE(*,*)E(1,1),E(1,2)

STOP

END

Jalankandengannilai A(1,1)=2, A(1,2)=3, A(2,1)=4, A(2,2)=5

BerapakahhargaE(1,1) dan E(1,2)?

LATIHAN 9

C234567

WRITE(*,*)’BAHASA FORTRAN SULIT AMAT’

WRITE(*,*)’SUDAH BERULANG-ULANG TETAP TIDAK BISA’

CALL XYZ

STOP

END

SUBROUTINE XYZ

WRITE(*,*)’MAKANYA BELAJAR LAGI’

WRITE(*,*)’JANGAN PACARAN MELULU’

RETURN

END

LATIHAN 10

C234567

WRITE(*,*)’PROGRAM 1’

CALL MESIN 1

WRITE(*,*)’PROGRAM 2

CALL MESIN 2

STOP

END

SUBROUTINE MESIN 1

READ(*,*)C

R=4./5.*C

F=9./5.*C+32

WRITE(*,*)R,F

RETURN

END

SUBROUTINE MESIN 2

X=-1

100 X=X+7

Q=100

L=10

RA=(Q*L)/2

SFD=RA-Q**2

WRITE(*,*)X,RA,SFD

IF(X.LT.20)GOTO 100

RETURN

END

Penutup

Kesimpulan

FORTRAN merupakanbahasapemrogramantingkattinggi (high level language) untukTeknikdanMatematika .Bahasa FORTRAN dimulaidari FORTRAN I danoleh ANSI (American National Standarts Institute) membentuk FORTRAN 77.Dalampraktikuminidigunakan WATFOR 77 yang merupakan waterloo dari WATFOR 77.

Saran

Penulismembutuhkankritikdan saran yang baikuntukmenunjangkreativitas yang baik agar kedepanyapenulisdapatmengertiataumengetahuilatakkesalahandalammembuat format lapoaranmaupunmakalah,sehinggatidakterulangkesalahan yang samadalammembuatlapoaransepertiini.

DaftarPustaka

MODUL PRAKTIKUM FORTRAN 77

pelajaran

Rabu, 29 Oktober 2014

contoh laporan program potran.

Tidak ada komentar:

Posting Komentar

Arsip Blog