Program Delphi untuk Menampilkan Keterangan Nilai dan Menentukan Kuadran

Disini contoh syntax untuk menampilkan keterangan nilai dan menentukan kuadran pada Delphi 7, berikut syntax dan hasil programnya :

1.       Keterangan Nilai

procedure TForm1.Button1Click(Sender: TObject);
var nilai:integer;
begin
    nilai:=StrToInt(Edit1.Text);
    if nilai<=15 then Edit2.Text:='E'
    else
    if nilai<=40 then Edit2.Text:='D'
    else
    if nilai<=60 then Edit2.Text:='C'
    else
    if nilai<=80 then Edit2.Text:='B'
    else
    Edit2.Text:='A'
end;
  procedure TForm1.Button2Click(Sender: TObject);
begin
    Edit1.Clear;
    Edit2.Clear;
end;
 procedure TForm1.Button3Click(Sender: TObject);
begin
    Application.Terminate;
end;
 end.
 

2.       Menentukan Kuadran

procedure TForm1.Button1Click(Sender: TObject);
var x , y : Integer;
begin
x:=StrToInt(edit1.Text);
y:=StrToInt(edit2.Text);
if ( x > 0 ) and ( y > 0 ) then
label3.Caption:= 'Kuadran I'
else
if ( x < 0 ) and ( y > 0 ) then
label3.Caption:= 'Kuadran II'
else
if ( x < 0 ) and ( y < 0 ) then
label3.Caption:= 'Kuadran III'
else
if ( x > 0 ) and ( y < 0 ) then
label3.Caption:= 'Kuadran IV'
 end;
 end.