Pada postingan kali ini, kami akan sedikit berbagi bagaimana cara membuat program konversi suhu dengan pascal. Kami tahu program ini masih sangat sederhana dan jauh dari sempurna, kritik dan saran selalu terbuka bagi kami, demi sempurna program kami. Langkah yang pertama adalah menyiapkan software TPW1.5 yang sudah terinstall pada PC/Laptop anda. Kami menggunakan TPW1.5 untuk membuat program ini. Jika anda belum memiliki program tersebut cari aza di mbah goolge, download n install programnya. Setelah itu ikuti langkah selanjutnya seperti ini :
Langkah - langkahnya adalah sebagai berikut:
- Jalankan program TPW1.5.
- Setelah jendela aplikasi terbuka klik File>>New (ini difungsikan untuk membuat lembar kerja baru).
- Copy dan pastekan script di bawah ini pada program TPW anda!
Program Konversi_Suhu;
uses wincrt;
label 10,11;
var
celcius,reamur,farenheit,kalvin:real;
pilihanutama:byte;
jawab:char;
begin
10: clrscr;
writeln(' Program Konversi Suhu');
writeln('-------------------------------------------------');
writeln;
writeln;
writeln('------------------------------------');
writeln(' Pilih Menu Konversi');
writeln('====================================');
writeln('1 Konversi Celcius');
writeln('2 Konversi Reamur');
writeln('3 Konversi Farenheit');
write('Pilihan Anda (1/2/3): ');
readln(pilihanutama);
clrscr;
if pilihanutama= 1 then
begin
writeln;
writeln(' Program Konversi Suhu Celcius ');
writeln('----------------------------------------');
writeln;
write('Masukkan Suhu Celcius : ');readln(celcius);
write('Suhu Reamur : ');
reamur:=0.8*celcius;
writeln(reamur:3:2);
write('Suhu Farenheit : ');
farenheit:=1.8*celcius+32;
writeln(farenheit:3:2);
write('Suhu Kalvin : ');
kalvin:=celcius+273;
writeln(kalvin:3:2);
writeln;
writeln('----------------------------------------');
writeln;
write('Akan Menghitung Lagi (Y/T)? ');readln(jawab);
if (jawab ='Y') or (jawab = 'T') then goto 10
else goto 11
end;
if pilihanutama= 2 then
begin
writeln;
writeln(' Program Konversi Suhu Reamur ');
writeln('----------------------------------------');
writeln;
write('Masukkan Suhu Reamur : ');readln(reamur);
write('Suhu Celcius : ');
celcius:=(5/4)*reamur;
writeln(celcius:3:2);
write('Suhu Farenheit : ');
farenheit:=(9/4)*reamur+32;
writeln(farenheit:3:2);
write('Suhu Kalvin : ');
kalvin:=celcius+273;
writeln(kalvin:3:2);
writeln;
writeln('----------------------------------------');
writeln;
write('Akan Menghitung Lagi (Y/T)? ');readln(jawab);
if (jawab ='Y') or (jawab = 'T') then goto 10
else goto 11
end;
if pilihanutama= 3 then
begin
writeln;
writeln('----------------------------------------');
writeln(' Program Konversi Suhu Farenheit ');
writeln('----------------------------------------');
writeln;
write('Masukkan Suhu Farenheit : ');readln(farenheit);
write('Suhu Reamur : ');
reamur:=(4/9)*(farenheit-32);
writeln(reamur:3:2);
write('Suhu Celcius : ');
celcius:=(5/9)*(farenheit-32);
writeln(celcius:3:2);
write('Suhu Kalvin : ');
kalvin:=celcius+273;
writeln(kalvin:3:2);
writeln;
writeln('----------------------------------------');
writeln;
write('Akan Menghitung Lagi (Y/T)? ');readln(jawab);
if (jawab ='Y') or (jawab = 'T') then goto 10
else goto 11
end;
if pilihanutama>3 then
begin
writeln;
writeln(' Error Program ');
writeln;
11:writeln(' Powered By Dona Vanhelsink ');
end;
end.
uses wincrt;
label 10,11;
var
celcius,reamur,farenheit,kalvin:real;
pilihanutama:byte;
jawab:char;
begin
10: clrscr;
writeln(' Program Konversi Suhu');
writeln('-------------------------------------------------');
writeln;
writeln;
writeln('------------------------------------');
writeln(' Pilih Menu Konversi');
writeln('====================================');
writeln('1 Konversi Celcius');
writeln('2 Konversi Reamur');
writeln('3 Konversi Farenheit');
write('Pilihan Anda (1/2/3): ');
readln(pilihanutama);
clrscr;
if pilihanutama= 1 then
begin
writeln;
writeln(' Program Konversi Suhu Celcius ');
writeln('----------------------------------------');
writeln;
write('Masukkan Suhu Celcius : ');readln(celcius);
write('Suhu Reamur : ');
reamur:=0.8*celcius;
writeln(reamur:3:2);
write('Suhu Farenheit : ');
farenheit:=1.8*celcius+32;
writeln(farenheit:3:2);
write('Suhu Kalvin : ');
kalvin:=celcius+273;
writeln(kalvin:3:2);
writeln;
writeln('----------------------------------------');
writeln;
write('Akan Menghitung Lagi (Y/T)? ');readln(jawab);
if (jawab ='Y') or (jawab = 'T') then goto 10
else goto 11
end;
if pilihanutama= 2 then
begin
writeln;
writeln(' Program Konversi Suhu Reamur ');
writeln('----------------------------------------');
writeln;
write('Masukkan Suhu Reamur : ');readln(reamur);
write('Suhu Celcius : ');
celcius:=(5/4)*reamur;
writeln(celcius:3:2);
write('Suhu Farenheit : ');
farenheit:=(9/4)*reamur+32;
writeln(farenheit:3:2);
write('Suhu Kalvin : ');
kalvin:=celcius+273;
writeln(kalvin:3:2);
writeln;
writeln('----------------------------------------');
writeln;
write('Akan Menghitung Lagi (Y/T)? ');readln(jawab);
if (jawab ='Y') or (jawab = 'T') then goto 10
else goto 11
end;
if pilihanutama= 3 then
begin
writeln;
writeln('----------------------------------------');
writeln(' Program Konversi Suhu Farenheit ');
writeln('----------------------------------------');
writeln;
write('Masukkan Suhu Farenheit : ');readln(farenheit);
write('Suhu Reamur : ');
reamur:=(4/9)*(farenheit-32);
writeln(reamur:3:2);
write('Suhu Celcius : ');
celcius:=(5/9)*(farenheit-32);
writeln(celcius:3:2);
write('Suhu Kalvin : ');
kalvin:=celcius+273;
writeln(kalvin:3:2);
writeln;
writeln('----------------------------------------');
writeln;
write('Akan Menghitung Lagi (Y/T)? ');readln(jawab);
if (jawab ='Y') or (jawab = 'T') then goto 10
else goto 11
end;
if pilihanutama>3 then
begin
writeln;
writeln(' Error Program ');
writeln;
11:writeln(' Powered By Dona Vanhelsink ');
end;
end.
4. Jalankan program dengan perintah Run pada menu bar.