Delphi Asal Çarpanlar Bulma Programı
Delphi programı gelişim aşamasında zaman zaman karşımıza delphi asal çarpanlar nasıl yapılır sorusu çıkıyor.
Bu kodlar ile birlikte asal çarpanlar işlemini kolayca yapabileceksiniz.
Delphi Asal Çarpanlar
Delphi Asal Çarpanlar Bulma Programı, Asal sayılar sadece kendisine ve 1’e bölünebilen sayılardır. Örneğin 13 asal bir sayıdır. Çünkü 13 sayısı sadece kendisine bölünebilir ve sadece 13 ve 1’e bölünebilir. Bir sayının asal çarpanını bulmak için bölen algoritmasını kullanırız. En küçük asal sayı ile başlıyoruz ve sayıları tek tek bölüyoruz. Örneğin 48’in asal çarpanını bulalım.
Aşağıda verilen örnek program ile bir sayının asal çarpanlarını saniyeler içinde bulmanız mümkündür. Verilen kodların algoritmasını çizerek algoritma bilginizi üst seviyelere çıkarabilirsiniz. Delphi programı ile uygulayabileceğiniz basit kodları sitemizde kolayca bulabilirsiniz.
procedure TForm1.Button1Click(Sender: TObject); var sayi,bolen,bolunen:Integer; begin sayi:=StrToInt(Edit1.Text); bolen:=2; bolunen:=sayi; while bolen<sayi do begin if bolunen mod bolen =0 then begin Listbox1.Items.Add(IntToStr(bolen)); bolunen:= bolunen div bolen; end else begin bolen:=bolen+1; 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:
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.