Delphi Sıfır Girilene Kadar Tek Ve Çift Sayıları Ayıran Program
Delphi sıfır girilene kadar sayıları ayıran program kodları ve diğer algoritma kodlarına kolaylıkta erişebilirsiniz. Verilen programda temel mantık belirli bir sayı girilene kadar, girilen sayıları tek ve çift olarak gruplandırmaktır.
İçindekiler
Sıfır girilene kadar tek ve çift ayrımı yapan program kodları
Delphi tek ve çift sayıları ayıran örnek program için sayı adında bir integer değişken tanımlaması yapıyoruz ve kullanıcıdan edit text yardımıyla veri alıyoruz.
Sayının sıfıra eşit olması durumunda ekranda bütün sayıların toplamını ekranda göstermesini sağlıyoruz.
sayı değişkenine atadığımız sayının 2 modunu aldığımızda sayı sıfıra eşitse çiftleri bir arttırıyoruz değilse tekleri bir arttırıyoruz.
2. satırda yazılan kod sayesinde programımız sıfır girene kadar çalışacaktır.
Delphi Tek Ve Çift Sayıları Ayıran Program
procedure TForm1.Button1Click( Sender: TObject );
var
sayi: Integer;
begin
sayi:= StrToInt( Edit1.Text );
if sayi = 0 then begin
ShowMessage(' teklerin toplamı : '+IntToStr( tek)+' ciftlerin toplamı : '+IntToStr (cift));
end
else
if sayi mod 2 = 0 then begin
Listbox1.Items.Add (IntToStr( sayi));
cift := cift +sayi; end
Else begin
Listbox2.Items.Add( IntToStr( sayi));
tek := tek + sayi;
end;
end;
end.
Bu yazımızda sizlere belirli bir sayı girilene kadar tek ve çift sayıları ayıran programı gösterdik. Merak ettiğiniz kodları ve diğer ayrıntıları bizlere yorum kısmından iletebilirsiniz.
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:
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.
