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

padat cair gas, gas padat, benda pascal, bentuk padat, paat cair dan gas, padat cair, algoritma tentang gas cair dan padat, padat gas dan cair, perhitungan suhu padat cair gas menggunakan delphi, program c menentukan bentuk cair.

Related posts:

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