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:

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.