IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Temmuz 2014, 11:03   #1
Çevrimdışı
Bir Sınır Değerine Kadar Olan Asal Sayıları Bulma


-- Sponsor Baglantı --


Pascal programlama dilinde yazılmış bu programda 1'den N'ye kadar olan asal sayıları ekrana yazdıran prosedür icra edilmiştir. Bu problemin çözümü için, önce 2’den N’ye kadar mantıksal elemanlardan oluşmuş bir dizinin elemanlarına True değeri aktarılır. Sonra 2’den başlayarak N sayısının kareköküne kadar her sayının kendileri hariç bütün katlarının olduğu dizi elemanları False yapılır.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var dizi :array [1..200] of integer; dizibl:array [1..200] of boolean; i,n,j,n1:integer; tus:char; procedure asaln; begin n1:=trunc(sqrt(n)); for i:=1 to n1 do begin for j:=1 to n do begin if ( dizi[j] mod dizi[i] = 0)and(i<>j) then dizibl[j]:=false; end; end; end; begin clrscr; repeat writeln('Dizi boyutunu giriniz..[1..200]: '); readln(n); for i:=1 to n-1 do begin dizi[i]:=i+1; dizibl[i]:=true; end; asaln; writeln(n,'a/e kadar olan asal sayilar .. :'); for j:=1 to n do if dizibl[j] then write(' ', dizi[j]); readln; writeln('Cikmak icin * karakterine basiniz..'); tus:=readkey; until tus='*'; end.

Pascal programlama dilinde yazılmış bu programda 1'den N'ye kadar olan asal sayıları ekrana yazdıran prosedür icra edilmiştir. Bu problemin çözümü için, önce 2’den N’ye kadar mantıksal elemanlardan oluşmuş bir dizinin elemanlarına True değeri aktarılır. Sonra 2’den başlayarak N sayısının kareköküne kadar her sayının kendileri hariç bütün katlarının olduğu dizi elemanları False yapılır.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var dizi :array [1..200] of integer; dizibl:array [1..200] of boolean; i,n,j,n1:integer; tus:char; procedure asaln; begin n1:=trunc(sqrt(n)); for i:=1 to n1 do begin for j:=1 to n do begin if ( dizi[j] mod dizi[i] = 0)and(i<>j) then dizibl[j]:=false; end; end; end; begin clrscr; repeat writeln('Dizi boyutunu giriniz..[1..200]: '); readln(n); for i:=1 to n-1 do begin dizi[i]:=i+1; dizibl[i]:=true; end; asaln; writeln(n,'a/e kadar olan asal sayilar .. :'); for j:=1 to n do if dizibl[j] then write(' ', dizi[j]); readln; writeln('Cikmak icin * karakterine basiniz..'); tus:=readkey; until tus='*'; end.

__________________
şah hatayi'm muhabbete bakarım
ben doluyum ben dolana akarım


Maya
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
asal, bîr, bulma, değerine, kadar, olan, sayıları, sınır

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
1 ile 100 arası asal sayıları While döngüsü ile ekrana yazma – C# Console aSpeNDos C# 0 08 Mart 2013 12:52
0-999 basamaklarının küpleri toplamı kendisine eşit sayıları bulma MorfiN C ve C++ 0 28 Nisan 2012 10:22
Kovaladığı 3 kişinin ölümüne neden olan Türk'e sınır dışı Angel Haber Arşivi 0 23 Eylül 2008 14:18
Belli bir sayıya kadar olan asal sayıları bulmak Cemalizim C ve C++ 0 19 Temmuz 2008 15:16