PROGRAM DELPHI UNTUK MENYATAKAN WUJUD AIR BERDASARKAN SUHU

procedure TForm1.ButtonProsesClick(Sender: TObject);
var s:real;
begin
  s:=StrToFloat(EditS.Text);
  if(s<=0)then EditW.Text:='PADAT';
  if(s>0)and(s<=100)then EditW.Text:='CAIR';
  if(s>100)then EditW.Text:='GAS';
end;

procedure TForm1.ButtonHapusClick(Sender: TObject);
begin
  EditS.Clear;
  EditW.Clear;
end;

procedure TForm1.ButtonSelesaiClick(Sender: TObject);
begin
  application.terminate;
end;

end.

Semoga Bermanfaat.

Wenda Alifulloh, Bandung 2013