Menentukan Bentuk Padat, Cair, Gas Benda

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

Kata Kunci

MENENTUKAN BENTUK PADAT CAIR DAN GAS.

Related posts:

1. Program Suhu
2. Menghitung Hambatan
3. Pascal
4. Program Konversi Suhu
5. Program Banyak Huruf dalam Kalimat