Menentukan Bentuk Padat, Cair, Gas Benda
July 25th, 2009
1 comment
Program untuk menentukan bentuk padat, cair, atau gas benda :
uses wincrt;
var a: integer;
ket: string;
begin
write ('suhu : '); readln (a);
if a <= 0 then
ket :='padat'
else
if (a > 0) and (a < 100) then
ket :='cair'
else
if a >=100 then
ket :='gas';
writeln('Air pada suhu tersebut berbentuk',' ',ket);
end.
Gunawan Setya Putra
gunawansp@rocketmail.com
