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
[email protected]
2 responses to “Menentukan Bentuk Padat, Cair, Gas Benda”
tanya dund mz.
program untuk konversi suhu menggunakan c++ builder gimana ya mas?
makasih
maaf, mohoi bantuannya. bagaimana menuliskan kode program pascal untuk soal mengubah angka menjadi terbilang. misal 234 = dua ratus tiga puluh empat. Terima kasih..