Pascal - Program Wujud Air
Program Wujud Air menggunakan Bahasa Pascal
program Wujud_Air(SUHU);
{Dibaca suhu air, tampilkan wujud air tersebut dengan ketentuan
suhu>100 adalah UAP, suhu 0 -100 adalah cair, suhu<0 adalah BEKU}
{DEKLARASI}
var
suhu:real;
(*ALGORITMA*)
begin
writeln('Program Wujud Air ');
write('Masukkan suhu air : ');
readln(suhu);
if (suhu <0) then
writeln('BEKU')
else
if (suhu>=0) and (suhu<=100) then
writeln('CAIR')
else
writeln('UAP')
end.
HASIL COMPILE :
program Wujud_Air(SUHU);
{Dibaca suhu air, tampilkan wujud air tersebut dengan ketentuan
suhu>100 adalah UAP, suhu 0 -100 adalah cair, suhu<0 adalah BEKU}
{DEKLARASI}
var
suhu:real;
(*ALGORITMA*)
begin
writeln('Program Wujud Air ');
write('Masukkan suhu air : ');
readln(suhu);
if (suhu <0) then
writeln('BEKU')
else
if (suhu>=0) and (suhu<=100) then
writeln('CAIR')
else
writeln('UAP')
end.
HASIL COMPILE :
Comments
Post a Comment
-Berkomentarlah yang baik dan rapi.
-Menggunakan link aktif akan dihapus.