Procedure Konversi Suhu Pascal [PDF]

Citation preview

Program Konversi_Suhu; Uses crt; var f,c,r,k pil,lagi



: real; : char;



Procedure Fahrenheit_Celcius; begin Writeln('Program Konversi Fahrenheit Ke Celcius'); Writeln('======================================'); Writeln; Write('Masukkan Nilai Suhu Dalam Fahrenheit: ');readln(f); c:=5/9*(f-32); Writeln; Writeln('Hasil Konversi Suhu Dalam Celcius Adalah: ',c:4:2); end; Procedure Fahrenheit_Reaumur; Begin Writeln('Program Konversi Fahrenheit Ke Reaumur'); Writeln('======================================'); Writeln; Write('Masukkan Nilai Suhu Dalam Fahrenheit: ');readln(f); r:=4/9*(f-32); Writeln; Writeln('Hasil Konversi Suhu Dalam Reaumur Adalah: ',r:4:2); end; Procedure Fahrenheit_Kelvin; Begin Writeln('Program Konversi Fahrenheit Ke Kelvin'); Writeln('====================================='); Writeln; Write('Masukkan Nilai Suhu Dalam Fahrenheit: ');readln(f); k:=5/9*(f+273); Writeln; Writeln('Hasil konversi Suhu Dalam Kelvin Adalah: ',k:4:2); end; Begin repeat clrscr; Writeln ('Program Konversi Suhu'); Writeln; Writeln ('1. Fahrenheit -> Celcius'); Writeln ('2. Fahrenheit -> Reaumur'); Writeln ('3. Fahrenheit -> Kelvin'); Writeln; Write('pilih nomor konversi [1.3]= ');readln(pil); Writeln; case pil of '1' : Fahrenheit_Celcius; '2' : Fahrenheit_Reaumur; '3' : Fahrenheit_Kelvin; else Writeln('Nomor Yang Anda Masukkan Salah'); end; writeln;



write('Mau Coba Lagi [Y/T]: ');readln(lagi); Until Upcase(lagi) 'Y'; End.