Delphi Sıfır Girilene Kadar Sayının Rakamlarını Toplama

Delphi programı gelişim aşamasında  bazen karşımıza delphi sıfır girilene kadar sayının rakamlarını toplama uygulaması nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte delphi programında sıfır rakamı girilene kadar sayının rakamlarını toplama hesabını kolayca yapabileceksiniz.

Sıfır Girilene Kadar Sayıların Rakamların Toplama

Bu örnek program kodlarımız ile kullanıcı sıfır rakamı girene kadar girilen bütün sayılarını kolayca öğrenebileceksiniz. Öncelikle Örnek program kodlarına hakim olmak için while döngüsüne hakim olmanız gerekmektedir. Bu nedenle while döngüsü örnek kullanımlarını web sitemizde aratarak bulabilirsiniz.

Örnek Program Açıklaması

• İlk olarak tasarım kısmında birer adet buton , text box ve listbox a ihtiyacımız var. Daha sonra buton1 ögesinin click evresinde gereken kodları yerleştirme aşamasına geçiyoruz.
• Kod yerleştirme aşamasında ise while döngüsü ile sıfır girilene kadar döngünün devam etmesini sağlıyoruz.
• İkinci kısımda ise  kodlarımızın kalan kısmını döngü içine yerleştireceğiz. Gereken bütün kodları aşağıda bulunan kod barında bulabilirseniz.
• Son olarak programda oluşan herhangi bir hatada yorum kısmından yardım istemeyi unutmayınız!.

 

 

Delphi Girilen Sayının Rakamlarını Toplama Kodları

procedure TForm1. Button1Click( Sender: TObject);
var
adet, toplam, sayi :Integer;
begin
sayi:= StrToInt( Edit1.Text) ;
adet := 0;
toplam := 0;
while (sayi:= 0) do begin
toplam:=(sayi mod 10 )+ toplam ;
sayi :=sayi div 10;
inc(adet);
Label1.Caption := IntToStr( toplam);
end;
end;
end.

 

En önemlisi 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: 
 Faktöriyel: 
Fibonacci Sayısı: 
Girilen İki Sayı Arasındaki Asal Sayılar: 
Boy-Kilo Endeksi Hesaplama: 
Armstrong Sayısı:
Haftanın Günleri: 
 Permütasyon:

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