Program menentukan Wujud Air menggunakan Delphi 7

Pseudo Code:


var a : real;
begin
  a:=strtofloat(Edit1.Text);
  if (a>0) and (a<100) then Edit2.Text:='cair';
  if a=100 then edit2.Text:='cair';
  if (a>100) then Edit2.Text:='gas';
  if (a<0) then Edit2.Text:='es';
  if a=0 then edit2.Text:='es';
end;

Semoga Bermanfaat :)