DaraCempaka
Cuma itu yg aku dapat q g tahu cara nentuin kode pascalnya, lebih tepatnya g ngerti.
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.
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.
semoga membantu