Delphi Armstrong Sayı Uygulaması

Delphi programı gelişim aşamasında  zaman zaman karşımıza delphi armstrong sayısı bulma sorusu çıkıyor.

Sonuç olarak bu kodlar ile birlikte delphi programında armstrong sayı bulma uygulamasını kolayca yapabileceksiniz.

 

Delphi Armstrong Sayısı Uygulaması

procedure TForm1.Button1Click( Sender: TObject);
var
sayi: Integer;
onlar, yuzler, birler, islem: Integer;
begin
sayi := StrToInt( Edit1.Text );
birler := sayi mod 10;
onlar := (sayi mod 100) div 10;
yuzler := (sayi div 100) mod 10;
islem := (birler * birler * birler )+( onlar *onlar *onlar )+( yuzler* yuzler* yuzler );
label1.Caption := IntToStr( birler );
label2.Caption := IntToStr( onlar );
label3.Caption := IntToStr( yuzler );
label4.Caption := IntToStr( islem );
if islem= sayi then begin
Label4.Caption := (' Armstrong Sayısı '+ IntToStr( islem ));
end;
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ını Gösteren Program: 
Girilen İki Sayı Arasındaki Asal Sayıları Gösteren Program:
Boy-Kilo Endeksi Hesaplama Programı:
Faktöriyel Hesaplama Programı:
Haftanın Günlerini hesaplayan program: 
Girilen Sayınn Rakamlarını Topla:

 

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