Program Konversi Suhu --> Program Pacal

program konversi_suhu;

uses

        crt;

var

        c,c1:integer;

        f,k,k1,f1:real;

        jawaban:char;

begin

        clrscr;

        writeln('________PROGRAM KONVERSI SUHU________');

        writeln('       dibuat oleh ................. ');

        writeln('       NIM .......                   ');

        writeln('       PRODI ....................... ');

        writeln;

        writeln;

        writeln('_____________________________________');

        writeln('CELCIUS        KELVIN          FAHRENHEIT');

        writeln('_____________________________________');

        for c:=1 to 15 do

                begin

                        k:=c+273.15;

                        f:=(c*1.8)+32;

                        writeln(c:5, k:15:2, f:12:2);

                end;

        writeln('_____________________________________');

        writeln;

        writeln;

        writeln('Apakah anda ingin mencoba mengkonversi suhu yang lain?(Y/T)');

        readln(jawaban);

        clrscr;

        if (jawaban='Y') or (jawaban='y') then

                begin

                        writeln('TULISKAN BESARNYA SUHU YANG AKAN DIKONVERSI');

                        writeln;

                        write ('besarnya suhu (dalam Celcius) : ');

                        readln (c1);

                        k1:=c+273.15;

                        f1:=(c1*1.8)+32;

                        writeln('maka besarnya suhu (dalam Kelvin) adalah : ',k1:2:2,'Kelvin');

                        write ('maka besarnya suhu (dalam Fahrenheit) adalah : ',f1:2:2,'Fahrenheit');

                        readln;

                end;

end.