Soru = Girilen sayının aralığını bulan programı prosedürde yapınız.
Sayı Aralığı
1-10
10-100
100-1000
1000-10000
Şekli :
Kodları :
Procedure TForm1.Button1Click(Sender: TObject);
var
sayi:integer;
Procedure basamak(s:integer);
begin
if (s>=1) and (s<=10000) then
begin
if s>=1000 then label3.Caption:='1000-10000 Arasında'
else if s>=100 then label3.Caption:='100-1000 Arasında'
else if s>=10 then label3.Caption:='10-100 Arasında'
else if s>=1 then label3.Caption:='1-10 Arasında'
end
else label3.Caption:='Sayi 1 İle 10000 arasında Olmalıdır.';
end;
begin
sayi:=StrtoInt(edit1.Text);
basamak(sayi);end;
Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
label3.Caption:='';
end;
Çalışma Şekli :
 
Bu programda ise bir sayı giriyoruz ve “Sayı Aralığını "Bul” butonunu tıklayarak sonuc olarak belirtiğimiz kriterlere göre sayı aralığını bulur. Temizle butonu ise Editdeki sonucu yazdırılan Label’i sıfırlar. Çıkış ise programdan çıkmaya yarar.
|
