Soru = Girilen sayının pozitif mi, negatif mi veya o'a esit olup olmadığını kontrol eden programı prosedürde yapınız.
Şekli :
Kodları :
Procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
Procedure tamsayi(y:integer);
begin
if y<0 then label3.Caption:='Negatif Sayıdır'
else if y>0 then label3.Caption:='Pozitif Sayıdır'
else label3.Caption:='Sayı Sıfırdır';
end;
begin
x:=strtoint(edit1.Text);
tamsayi(x);
end;
Procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
label3.Caption:='';
end;
Procedure TForm1.Button3Click(Sender: TObject);
begin
halt;
end;
Çalışma Şekli :
 
Burda ise klavyeden bir sayı giriyoruz. Sayı (+),(-) veya 0 eşit mi butonuna tıkladığımızda sayının pozitif, negatif veya sıfıra eşit olup olmadığını kontrol ederiz. Temizle butonu ise editdeki ve sonucu yazdıran label’i sıfırlar. Çıkış ise programdan çıkmaya yarar.
|
