Program Diagram Kartesian

Baiklah, saya akan mem-posting script program Diagram kartesian dengan menggunakan Delphi 2010

Dengan soal sebagai berikut:

Implementasikan program yang menerima input berupa koordinat x dan y dari suatu titik pada bidang cartesian, serta menghasilkan output berupa posisi kuadran dari titik input.

Script pada Tombol 'Process'
----------------------------------------->>>>

procedure TForm1.Button1Click(Sender: TObject);
begin
x := StrToInt(Edit1.Text);
y := StrToInt(Edit2.Text);
if (x>=0) and (y>=0) then
  begin
  Label3.Caption :='Ket : Titik Berada pada kuadran I';
  ShowMessage('Titik Berada pada kuadran I');
  end
else if (x<=0) and (y>=0) then
  begin
  Label3.Caption :='Ket : Titik Berada pada kuadran II';
  ShowMessage ('Titik Berada pada kuadran II');
  end
else if (x<=0) and (y<=0) then
  begin
  Label3.Caption :='Ket : Titik Berada pada kuadran III';
  showMessage ('Titik  Berada pada kuadran III');
  end
else if (x>=0) and (y<=0) then
  begin
  Label3.Caption :='Ket : Titik Berada pada kuadran IV';
  ShowMessage ('Titik  Berada pada kuadran IV');
  end
end;

----------------------------->>>

Download Program here
http://www.4shared.com/file/AxUdJQCG/Cartesian_Kuadran.html