~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SAYA MENDENGAR LALU SAYA LUPA ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SAYA MEMBACA LALU SAYA INGAT ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SAYA MELAKUKAN LALU SAYA MENGERTI~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

15 November 2015

Konversi Suhu Menggunakan Pascal




Penghitungan konversi derajat dari Celcius ke Fahrenheit ke Kelvin dan sebaliknya. User diberi pilihan jenis derajat yang ingin dimasukkan (1. Celcius  2. Fahrenheit  3. Kelvin) dan setelahnya jenis derajat yang akan dikonversikan.  (1. Celcius  2. Fahrenheit  3. Kelvin). Misal apabila user memilih pilihan 1 kemudian 2, maka user akan mendapatkan konversi dari celcius ke Fahrenheit.

Pada contoh berikut ini konversi suhu menggunakan Celcius, Fahrenheit, dan Kelvin


Flowchart Konversi Suhu Menggunakan Pascal


program Konversi_Suhu;
{Konversi suhu Celcius, fahrenheit, dan Kelvin}

var
bil : real;
pilawal, pilakhir : integer;

begin
writeln(' Pilih suhu awal = 1) Celcius  2) Fahrenheit  3) Kelvin ');
readln(pilawal);
write('Masukkan Suhu = ');
read(bil);
writeln(' Pilih suhu konversi = 1) Celcius  2) Fahrenheit  3) Kelvin ');
readln(pilakhir);

if (pilawal = 1) and (pilakhir = 1) then
writeln('HASIL = ' , bil)
else if (pilawal = 2) and (pilakhir = 2) then
writeln('HASIL = ' , bil)
else if (pilawal = 3) and (pilakhir = 3) then
writeln('HASIL = ' , bil)
else if (pilawal = 1) and (pilakhir = 2) then
writeln('HASIL = ' , (1.8 * bil) + 32)
else if (pilawal = 1) and (pilakhir = 3) then
writeln('HASIL = ' , bil + 273)
else if (pilawal = 2) and (pilakhir = 1) then
writeln('HASIL = ' , 0.56 * (bil - 32))
else if (pilawal = 2) and (pilakhir = 3) then
writeln('HASIL = ' , 0.56 * (bil - 32) + 273)
else if (pilawal = 3) and (pilakhir = 1) then
writeln('HASIL = ' , bil - 273)
else if (pilawal = 3) and (pilakhir = 2) then
writeln('HASIL = ' , 1.8 * (bil - 273) + 32)
else
write('Bilangan Pilihan Salah');
readln;
end.


ARTIKEL TERKAIT:


BACA JUGA TULISAN MENARIK LAINNYA :

0 Komentar:

Post a Comment