Delphi ile iki sayı arasında tek ve çift bulmak

çift sayı ve tek sayıyı bulma aynı zamnda editlere karakter girilmiyor…

Delphi ile Asal sayı bulmak

Verilen aralıktaki asal sayılar nasıl bulunur

Forma 1 adet düğme,2 adet editbox,1 adet listbox koyalım.
Edit1.text ve edit2.text arasındaki asal sayıları listbox’a atalım.Olayın mantığı şudur.Bir sayının asal olup olmadığını bulmak için o sayıyı sayının karaköküne kadar olan sayılara böleriz.Eğer hiçbirine bölünmüyorsa sayı asaldır.Örneğin sayımız 37 olsun.Karakökü tamsayı olarak 6 diyelim.2’ye,3’e,4’e,5’e,6’ya bölünmez.O zaman sayımız asaldır.37′ ye kadar tüm sayılara bölmeye gerek yok.

Delphi ile Asal ve mükemmel sayı

Girilen iki sayı arasındaki asal sayı ve mükemmel sayı bulunuyor kaç adet olduğunu ve ortalamasını veren program 😉 EMİNİM İŞİNİZE YARAYACAK

Delphi ile Asal sayı

Forma iki edit 1 buton yerleştiriniz