Delphi Mükemmel Sayı

Delphi programı gelişim aşamasında  zaman zaman karşımıza mükemmel sayı nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte  mükemmel sayı  işlemini kolayca yapabileceksiniz.

Delphi Mükemmel Sayı

procedure TForm1.Button1Click(Sender: TObject);
var
gir , top,sayac:Integer;
I: Integer;
begin
top:=0;
gir:=StrToInt(Edit1.Text);
for I := 1 to gir do begin

if (gir mod I = 0) then begin
sayac:=sayac+1;
ListBox1.Items.Add(IntToStr(i));
top:=top+i;
end;
if top div 2=gir then begin
Label1.Caption:='Mükemmel sayıdır' ;
end
else begin
Label1.Caption:='Mükemmel sayı değildir' ;
end;
end;

 

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

Delphi ile ilgili kavramlara ek olarak, Delphi öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.

Diğer örneklere de göz atabilirsiniz:
Permütasyon Hesaplama Programı
Fibonacci Sayısı Hesaplayan Program:
Girilen İki Sayı Arasındaki Asal Sayıları Bulan Program: 
Boy-Kilo Endeksi Hesaplama: 
Armstrong Sayısı Gösteren Program:

Faktöriyel: 

Girilen Sayınn Rakamlarını Topla:
Haftanın Günlerini Bulan Program: 

Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.