Program konversi suhu dengan pascal
13/01/2011 18:04Pada artikel ini saya akan membahas tentang program untuk menghitung atau mengkonversikan satuan suhu celcius ke satuan lainnya,, pada program ini anda dapat memilih 3 pilihan yaitu konversi dari celsius ke kelvin, celsius ke fahrenheit, atau dari celcius ke reamur..
Listing programnya sebagai berikut :
uses crt;
var
cel, pil:integer;
hasil : real;
param: string;
begin
clrscr;
writeln('-----------------------');
writeln('KONVERSI SUHU');
writeln('-----------------------');
writeln('1. celcius->kelvin');
writeln('2. celcius->fahrenheit');
writeln('3. celcius->reamur');
writeln('-----------------------');
write('masukan pilihan: ');
readln(pil);
write('masukan besar suhu dalam celcius: ') ;
readln(cel);
case pil of
1:
begin
hasil:= cel+273;
param:='kelvin';
end;
2:
begin
hasil:= cel*1.8+32;
param:='fakrenheit';
end;
3:
begin
hasil:= cel*0.8;
param:= 'reamur';
end;
else
writeln('input salah..');
end;
writeln(cel, ' celcius = ',hasil:10:2, ' ',param);
readln();
end.
output program:
demikian penjelasan programnya, logika program tinggal dikaliin aja, (saya lagi males jelasin logika), jari udah mulai kriting,,hahaaa..
semoga bermanfaat ya..terima kasih^_^ jangan lupa comment..
Tags:
———
Back