Pemrograman Komputer - Program Konversi Suhu

TUGAS MATA KULIAH PEMROGRAMAN KOMPUTER

Program Konversi Suhu

Fajrin Siddiq 0310610029

Jurusan Teknik Sipil Fakultas Teknik Universitas Brawijaya Malang 2007

Algoritma Program Konversi Suhu 1. User memilih mode konversi : a. Celcius ke Fahrenheit b. Celcius ke Reamur c. Fahrenheit ke Celcius d. Fahrenheit ke Reamur e. Reamur ke Celcius f. Reamur ke Fahrenheit 2. -

Bila user memilih mode a, maka ke langkah 3.

-

Bila user memlih mode b, maka ke langkah 4.

-

Bila user memlih mode c, maka ke langkah 5.

-

Bila user memlih mode d, maka ke langkah 6.

-

Bila user memlih mode e, maka ke langkah 7.

-

Bila user memlih mode f, maka ke langkah 8.

3. -

User memilih mode a.

-

User memasukkan nilai suhu yang akan dikonversi.

-

Program menghitung konversi nilai suhu yang dimasukkan dari Celcius ke Fahrenheit.

-

Jika ingin konversi lagi, maka kembali ke langkah 1. Jika tidak, maka ke langkah 9.

4. -

User memilih mode b.

-

User memasukkan nilai suhu yang akan dikonversi.

-

Program menghitung konversi nilai suhu yang dimasukkan dari Celcius ke Reamur.

-

Jika ingin konversi lagi, maka kembali ke langkah 1. Jika tidak, maka ke langkah 9.

5. -

User memilih mode c.

-

User memasukkan nilai suhu yang akan dikonversi.

-

Program menghitung konversi nilai suhu yang dimasukkan dari Fahrenheit ke Celcius.

-

Jika ingin konversi lagi, maka kembali ke langkah 1. Jika tidak, maka ke langkah 9.

. 6. -

User memilih mode d.

-

User memasukkan nilai suhu yang akan dikonversi.

-

Program menghitung konversi nilai suhu yang dimasukkan dari Fahrenheit ke Reamur.

-

Jika ingin konversi lagi, maka kembali ke langkah 1. Jika tidak, maka ke langkah 9.

7. -

User memilih mode e.

-

User memasukkan nilai suhu yang akan dikonversi.

-

Program menghitung konversi nilai suhu yang dimasukkan dari Reamur ke Celcius.

-

Jika ingin konversi lagi, maka kembali ke langkah 1. Jika tidak, maka ke langkah 9.

8. -

User memilih mode f.

-

User memasukkan nilai suhu yang akan dikonversi.

-

Program menghitung konversi nilai suhu yang dimasukkan dari Reamur ke Fahrenheit.

-

Jika ingin konversi lagi, maka kembali ke langkah 1. Jika tidak, maka ke langkah 9.

9. Program selesai.

Flowchart Program Konversi Suhu

Mulai Memilih mode konversi : 1. Celcius ke Fahrenheit 2. Celcius ke Reamur 3. Fahrenheit ke Celcius 4. Fahrenheit ke Reamur 5. Reamur ke Celcius 6. Reamur ke Fahrenheit

1

2

Nilai suhu yang akan dikonversi

Nilai suhu yang akan dikonversi

To C = ( 9/5 * T) + 32 o F

Tidak

Konversi lagi

Tidak

Tidak

6

Nilai suhu yang akan dikonversi

To F = 4/9 * (T – 32) o R

Nilai suhu yang akan dikonversi

To R = 5/4 * T o C

Tidak

Konversi lagi

Ya

Selesai

Konversi lagi

Ya

5

Nilai suhu yang akan dikonversi

Ya

Konversi lagi

To F = 5/9 * (T – 32) o C

Ya

4

Konversi lagi

Nilai suhu yang akan dikonversi

To C = (4/5 * T o R

Ya

Tidak

3

To R = ( 9/4 * T) + 32 o F

Tidak

Konversi lagi

Ya

Listing Program Konversi Suhu ! Deklarasi Variabel integer :: c, a real :: celcius, fahrenheit, reamur ! Judul Program write (*,01) write (*,02) write (*,03) write (*,04) write (*,05) write (*,06) write (*,07) 01 format (1x, '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ') 02 format (1x, '+ Program Konversi Suhu +') 03 format (1x, '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ') 04 format (1x, '==> Programmer : Fajrin Siddiq - Anak Serui Production <==') 05 format (1x, '----------------------------------------------------------') 06 format (8x, ' Terimakasih Telah Menggunakan Program ini.') 07 format (8x, '===========================================') ! Meminta User Memilih Mode Konversi 75 write(*,08) 08 format (1x,/ ' Pilih Mode Konversi :'/) write (*,09) 09 format (1x, '[1] Celcius Ke Fahrenheit'/, ' [2] Celcius Ke Reamur'/, ' [3] Fahrenheit Ke Celcius'/, ' [4] Fahrenheit Ke Reamur'/, ' [5] Reamur Ke Celcius'/, ' [6] Reamur Ke Fahrenheit') read (*,*) c ! Struktur Percabangan Mode Konversi if (c.eq.1) then goto 13 else if (c.eq.2) then goto 23 else if (c.eq.3) then goto 33 else if (c.eq.4) then goto 43 else if (c.eq.5) then goto 53

else if (c.eq.6) then goto 63 else goto 82 end if ! 1. Perhitungan Mode Konversi Celcius Ke Fahrenheit 13 write (*,10) write(*,11) 10 Format (1x,/ ' Anda telah memilih Mode Konversi Celcius Ke Fahrenheit.') 11 format (1x, 'Masukkan suhu dalam Celcius :') read (*,*) celcius fahrenheit=((9.0/5.0)*celcius)+32 write (*,12) celcius, fahrenheit 12 format (1x,/ F6.2,' Derajat Celcius sama dengan ', F6.2, ' Derajat Fahrenheit.') goto 80 ! 2. Perhitungan Mode Konversi Celcius Ke Reamur 23 write (*,20) write(*,21) 20 Format (1x,/ ' Anda telah memilih Mode Konversi Celcius Ke Reamur.') 21 format (1x, 'Masukkan suhu dalam Celcius :') read (*,*) celcius reamur=((4.0/5.0)*celcius) write (*,22) celcius, reamur 22 format (1x,/ F6.2,' Derajat Celcius sama dengan ', F6.2, ' Derajat Reamur.') goto 80 ! 3. Perhitungan Mode Konversi Fahrenheit Ke Celcius 33 write (*,30) write(*,31) 30 Format (1x,/ ' Anda telah memilih Mode Fahrenheit Ke Celcius.') 31 format (1x, 'Masukkan suhu dalam Fahrenheit :') read (*,*) fahrenheit celcius=(5.0/9.0)*(fahrenheit-32) write (*,32) fahrenheit, celcius 32 format (1x,/ F6.2,' Derajat Fahrenheit sama dengan ', F6.2, ' Derajat Celcius.') goto 80 ! 4. Perhitungan Mode Konversi Fahrenheit Ke Reamur 43 write (*,40) write(*,41) 40 Format (1x,/ ' Anda telah memilih Mode Fahrenheit Ke Reamur.') 41 format (1x, 'Masukkan suhu dalam Fahrenheit :') read (*,*) fahrenheit reamur=(4.0/9.0)*(fahrenheit-32)

write (*,42) fahrenheit, reamur 42 format (1x,/ F6.2,' Derajat Fahrenheit sama dengan ', F6.2, ' Derajat Reamur.') goto 80 ! 5. Perhitungan Mode Konversi Reamur Ke Celcius 53 write (*,50) write(*,51) 50 Format (1x,/ ' Anda telah memilih Mode Reamur Ke Celcius.') 51 format (1x, 'Masukkan suhu dalam Reamur :') read (*,*) reamur celcius=(5.0/4.0)*reamur write (*,52) reamur, celcius 52 format (1x,/ F6.2,' Derajat Reamur sama dengan ', F6.2, ' Derajat Celcius.') goto 80 ! 6. Perhitungan Mode Konversi Reamur Ke Fahrenheit 63 write (*,60) write(*,61) 60 Format (1x,/ ' Anda telah memilih Mode Reamur Ke Fahrenheit.') 61 format (1x, 'Masukkan suhu dalam Reamur :') read (*,*) reamur fahrenheit=((9.0/4.0)*reamur)+32 write (*,62) reamur, fahrenheit 62 format (1x,/ F6.2,' Derajat Reamur sama dengan ', F6.2, ' Derajat Fahrenheit.') goto 80 ! Peringatan Salah Memasukkan Mode Konversi 82 write (*,83) 83 format (1x,/ ' Mode Konversi yang anda masukkan salah.'/, ' Silakan ulangi lagi.') goto 75 ! Pernyataan Penawaran 80 write (*,81) 81 format (1x, /' [1] Mulai Lagi'/, ' [2] Selesai') read(*,*) a if (a.eq.1) then goto 75 else if (a.eq.2) then goto 70 end if ! Program Selesai 70 end