DELPHİ YAZILIM UZMANLIĞI

Kodları:

Procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:integer;
begin
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
z:=strtoint(edit3.Text);
ucgen(x,y,z);
end;

Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit1.setfocus;
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;

Procedure TForm1.Button3Click(Sender: TObject);
begin
halt;
end;

Procedure tform1.ucgen(a,b,c:integer);
begin
if (a = b) And (b = c) Then edit5.Text := 'EŞKENAR ÜÇGEN'
Else if a = b Then edit5.Text := 'İKİZ KENAR'
Else if a = c Then edit5.Text := 'İKİZ KENAR'
Else if b = c Then edit5.Text := 'İKİZ KENAR'
Else if (a <> b) and (b<> c) and (a<>c) Then
                           edit5.Text := 'ÇEŞİT KENAR';

if (((a - b) < c) And ((a + b) > c)) And (((b - c) < a) And
   ((b + c) > a)) And (((a - c) < b) And ((a + c) > b)) Then
                                                        edit4.Text := 'Üçgendir'
Else
begin
edit4.Text := 'Üçgen Degildir';
edit5.Text := 'Türü Yoktur' ;
end;
end;