Delphi 1'den N'e Kadar Asal Sayıları Bulma Örneği

41 Okunma Delphi

"Delphi" Programlama dilinde "1'den N'e Kadar Asal Sayıları Üretme Örneği" ile ilgili kod örneği aşağıda belirtilmiştir. 

program Main;

uses
  SysUtils;

var
  number, num, i: Integer;
  isPrime: Boolean;

begin
  WriteLn('Aralık Değeri Girin: ');
  ReadLn(number);

  for num := 2 to number do
  begin
    isPrime := True;
    for i := 2 to num div 2 do
    begin
      if (num mod i) = 0 then
      begin
        isPrime := False;
        Break;
      end;
    end;

    if isPrime then
      WriteLn(num);
  end;
end.
Asal Sayı Örnek Bulma Gösterme Delphi

İlginizi Çekebilir

Delphi Bir Stringten İlk N Karakteri Kaldırma Örneği

Delphi Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

Delphi Dictionary'deki Değerler İle Listenin Elemanlarını Eşleşti ...

Delphi 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek