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 ^^