Konversi Suhu Pascal

Ini Adalah Script Untuk Membuat Aplikasi Sederhana Konversi Suhu : uses crt; label Celcius,Reaumur,Fahrenheit,Kelvin,awal,akhir; var C,F,R,K,jumlah:real; pilih,ulang:string; begin clrscr; awal: clrscr; textcolor(red);writeln('---------------------------PROGRAM KONVERSI SUHU--------------------------------'); writeln(''); writeln(''); textcolor(white);writeln('Pilih jenis suhu: '); writeln(''); textcolor(red);writeln('1.Celcius'); textcolor(blue);writeln('2.Fahrenheit'); textcolor(white);writeln('3.Reaumur'); textcolor(green);writeln('4.Kelvin'); writeln(''); textcolor(white);write('Masukkan nomor suhu pilihan (1-4) : '); readln(pilih); if pilih='1' then goto Celcius else if pilih='2' then goto Fahrenheit else if pilih='3' then goto Reaumur else if pilih='4' then goto Kelvin else goto awal; Celcius: clrscr; textcolor(white);writeln('-----------------------------PROGRAM KONVERSI SUHU----------------------------'); writeln(''); writeln(''); textcolor(lightred);writeln('Konversi Suhu Celcius'); writeln(''); textcolor(white);write('Masukkan suhu Celcius : '); readln(C); jumlah:=C*1.8+32; textcolor(yellow);writeln('Suhu Fahrenheit = ',jumlah:0:2); jumlah:=C*0.8; textcolor(lightgreen);writeln('Suhu Reaumur = ',jumlah:0:2); jumlah:=C+273.15; textcolor(lightblue);writeln('Suhu Kelvin = ',jumlah:0:2); writeln(''); textcolor(white);writeln('Kembali ke menu awal? (y/t)'); readln(ulang); if ulang='y' then goto awal else goto akhir; Fahrenheit: clrscr; textcolor(red);writeln('-----------------------------PROGRAM-KONVERSI-SUHU------------------------------'); writeln(''); writeln(''); textcolor(yellow);writeln('Konversi Suhu Fahrenheit'); writeln(''); textcolor(white);write('Masukkan suhu Fahrenheit : '); readln(F); jumlah:=(F-32)/1.8; textcolor(red);writeln('Suhu Celcius = ',jumlah:0:2); jumlah:=(F-32)/2.25; textcolor(lightgreen);writeln('Suhu Reaumur = ',jumlah:0:2); jumlah:=(F+459.67)/1.8; textcolor(lightblue);writeln('Suhu Kelvin = ',jumlah:0:2); writeln(''); textcolor(white);writeln('Kembali ke menu awal? (y/t)'); readln(ulang); if ulang='y' then goto awal else goto akhir; Reaumur: clrscr; textcolor(red);writeln('-----------------------------PROGRAM-KONVERSI-SUHU------------------------------'); writeln(''); writeln(''); textcolor(lightgreen);writeln('Konversi Suhu Reaumur'); writeln(''); textcolor(white);write('Masukkan suhu Reaumur : '); readln(R); jumlah:=R/0.8; textcolor(lightred);writeln('Suhu Celcius = ',jumlah:0:2); jumlah:=R*2.25+32; textcolor(yellow);writeln('Suhu Fahrenheit = ',jumlah:0:2); jumlah:=R/0.8+273.15; textcolor(lightblue);writeln('Suhu Kelvin = ',jumlah:0:2); writeln(''); textcolor(white);writeln('Kembali ke menu awal? (y/t)'); readln(ulang); if ulang='y' then goto awal else goto akhir; Kelvin: clrscr; textcolor(red);writeln('-----------------------------PROGRAM KONVERSI SUHU------------------------------'); writeln(''); writeln(''); textcolor(lightblue);writeln('Konversi Suhu Kelvin'); writeln(''); textcolor(white);write('Masukkan suhu Kelvin : '); readln(K); jumlah:=K-273.15; textcolor(lightred);writeln('Suhu Celcius = ',jumlah:0:2); jumlah:=K*1.8-459.67; textcolor(yellow);writeln('Suhu Fahrenheit = ',jumlah:0:2); jumlah:=(K-273.15)*0.8; textcolor(lightgreen);writeln('Suhu Reamur = ',jumlah:0:2); writeln(''); textcolor(white);writeln('Kembali ke menu awal? (y/t)'); readln(ulang); if ulang='y' then goto awal else goto akhir; akhir: textcolor(blue);writeln('------------------------------ENTER-UNTUK-KELUAR--------------------------------'); textcolor(green);writeln('---------------------------------Terimakasih------------------------------------'); readln; end.