Menentukan Bentuk Padat, Cair, Gas Benda

Jul 25, 2009 2 Comments by Sahabat

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

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

2 Responses to “Menentukan Bentuk Padat, Cair, Gas Benda”

  1. estu says:
    16 July 2010 at 09:16

    tanya dund mz.
    program untuk konversi suhu menggunakan c++ builder gimana ya mas?
    makasih

  2. aufanuri says:
    8 January 2012 at 11:50

    maaf, mohoi bantuannya. bagaimana menuliskan kode program pascal untuk soal mengubah angka menjadi terbilang. misal 234 = dua ratus tiga puluh empat. Terima kasih..

Leave a Reply

You must be logged in to post a comment.