BASPRO 2

GONDELLS

BASPRO (FORTRAN)

Belum ada komentar

nBeberapa contoh program sederhana

nBila suhu skala celccius 37 C. Berapa suhu skala reamur dan fahrenheit?

Rumus R=C*4/5

F=9/5*C+32

dengan C=skala menurut Celcius

R=skala menurut Reamur

F=skala menurut Fahrenheit

C MARI MENGHITUNG

C program mencari nilai konversi suhu

C=37.0

R=C/5*4

F=C/5*9+32

WRITE(*,100)R,F,C

100 FORMAT(3F9.2)

STOP

END

Penjelasan:

Baris ke 6: menuliskan harga variabel R,F, C

Baris ke 7: menyatakan macam format yang dipakai oleh perintah tulis

pada baris ke-6

Suatu segitiga mempunyai sisi A=9.2, B=14.4, C=18.8, maka rumus untuk

menghitung keliling dan luas lingkaran adalah:

Keliling =A+B+C

Luas =(S(S-A)(S-B)(S-C))0.5

dimana S =keliling/2

Buat program untuk menghitung keliling dan luas segitiga tersebut:

Jawab:

Urutan pengerjaan:

Mulai

Baca A,B,C

Hitung Keliling, S, Luas

Tulis Keliling, Luas

Selesai

C MARI MENGHITUNG

C PROGRAM MENGHITUNG KELILING DAN LUAS

C

READ*,A,B,C

AKEL=A+B+C

S=AKEL/2

ALUAS=(S*(S-A)*(S-B)*(S-C))**0.5

WRITE(*,20)AKEL,ALUAS

10 FORMAT(3F5.1)

20 FORMAT(1X,’KELILING=‘,F6.1,’LUAS=‘,F8.2)

STOP

END

nSuatu mobil distart dengan diberi percepatan tetap sebesar 3 m/dt2
Berapa kecepatan dan panjang lintasan setelah 10 det.
Rumus:
Jika percepatan A, kecepatan setelah T detik = AT, panjang lintasan setelah T detik = 0.5 AT2

Jawab

Urutan pengerjaan:

Mulai

Baca A,T

Hitung V,S

Tulis A,V,S

STOP

C MARI MENGHITUNG

C PROGRAM MENGHITUNG KECEPATAN LINTASAN

C

READ(*,10)A,T

V=A*T

S=0.5*A*T**2

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

10 FORMAT(2F5.1)

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

1 1X,’PERCEPATAN (M/DET) =‘, F5.1,’ LINTASAN (M) =‘,F5.1)

STOP

END

nKerjakan soal soal ini

1.Bila panjang suatu empat persegi panjang = 6.2 cm dan lebarnya=4.7 cm. Buat program untuk menghitung luasnya !

2.Apabila suatu benda massanya 10 kg dan percepatannya 9 m/det2, hitung gaya yang ditimbulkan. Gunakan rumus K=M*A, dengan K=gaya,M=massa, dan A=percepatan. Buat programmnya !

3.Umur Tono adalah 12 tahun, 3 bulan, 15 hari. Bila 1 tahun 365 hari dan 1 bulan 30 hari, berapa umur Tono dalam satuan jam, menit dan detik? Buat programmnya !

SILAHKAN MENCOBA ^^