Delphi Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

150 Okunma Delphi

"Delphi" Programlama dilinde "Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir. 

program CheckPrime;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  number, i: Integer;
  isprime: Boolean;

begin
  Write('1 den büyük sayı girin: ');
  Readln(number);

  isprime := True;

  for i := 2 to Trunc(number / 2) do
  begin
    if number mod i = 0 then
    begin
      isprime := False;
      Break;
    end;
  end;

  if isprime then
    Writeln(number, ' asal sayıdır.')
  else
    Writeln(number, ' asal sayı değildir.');

  Readln;
end.
Asal Sayı Örnek Böl Bulma Delphi

İlginizi Çekebilir

Delphi Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

Delphi Bir String İçindeki Sayıların Toplamını Bulma Örneği

Delphi Dikdörtgenin Alanını Hesaplama Örneği

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

Delphi Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği