Program konversi suhu dengan pascal

 Pada 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..