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

210 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 Stringi Ters Çevirmek

Delphi Bir Dizi Tam Sayının Ortalamasını Bulma

Delphi Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği