bir sayının asal olup olmadığını kontrol etme

program AsalSayiKontrolu;

var

sayi, İ: Integer;
asal:Boolean;

begin
 //kulanıcıdan sayı al
 Write('Bir sayi girin: ');
 readln(sayi);

// 1 ve 0 asal değildir 
if (sayı <= 1) then
 asal=False

else
  begin
    // 2'den Sayı-1'e kadar olan sayılarla bölünüp bölünmediğini kontrol et
    for i := 2 to (Sayı div 2) do
    begin
      if (Sayı mod i = 0) then
      begin
        Asal := False;
        Break; // Bölme bulunduğunda döngüden çık
      end;
    end;
  end;

// sonucu ekrana yazdır 
if Asal then
    WriteLn(Sayı, ' asal bir sayidir.');
  else
    WriteLn(Sayı, ' asal bir sayi değildir.');

end.

program AsalSayiKontrolu;

var

sayi, İ: Integer;
asal:Boolean;

begin
 //kulanıcıdan sayı al
 Write('Bir sayi girin: ');
 readln(sayi);

// 1 ve 0 asal değildir 
if (sayı <= 1) then
 asal=False

else
  begin
    // 2'den Sayı-1'e kadar olan sayılarla bölünüp bölünmediğini kontrol et
    for i := 2 to (Sayı div 2) do
    begin
      if (Sayı mod i = 0) then
      begin
        Asal := False;
        Break; // Bölme bulunduğunda döngüden çık
      end;
    end;
  end;

// sonucu ekrana yazdır 
if Asal then
    WriteLn(Sayı, ' asal bir sayidir.');
  else
    WriteLn(Sayı, ' asal bir sayi değildir.');

end.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
kayra12 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 23 Aralık 2024 Durum: Aktif Değil Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı kayra12 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: bir sayının asal olup olmadığını kontrol etme Gönderim Zamanı: 10 Saat 15 Dakika Önce Saat 14:34
	program AsalSayiKontrolu; var sayi, İ: Integer; asal:Boolean; begin //kulanıcıdan sayı al Write('Bir sayi girin: '); readln(sayi); // 1 ve 0 asal değildir if (sayı <= 1) then asal=False else begin // 2'den Sayı-1'e kadar olan sayılarla bölünüp bölünmediğini kontrol et for i := 2 to (Sayı div 2) do begin if (Sayı mod i = 0) then begin Asal := False; Break; // Bölme bulunduğunda döngüden çık end; end; end; // sonucu ekrana yazdır if Asal then WriteLn(Sayı, ' asal bir sayidir.'); else WriteLn(Sayı, ' asal bir sayi değildir.'); end. program AsalSayiKontrolu; var sayi, İ: Integer; asal:Boolean; begin //kulanıcıdan sayı al Write('Bir sayi girin: '); readln(sayi); // 1 ve 0 asal değildir if (sayı <= 1) then asal=False else begin // 2'den Sayı-1'e kadar olan sayılarla bölünüp bölünmediğini kontrol et for i := 2 to (Sayı div 2) do begin if (Sayı mod i = 0) then begin Asal := False; Break; // Bölme bulunduğunda döngüden çık end; end; end; // sonucu ekrana yazdır if Asal then WriteLn(Sayı, ' asal bir sayidir.'); else WriteLn(Sayı, ' asal bir sayi değildir.'); end.