Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Girilen Bir Sayıya Kadar Asal Sayıları Bulma


Girilen Bir Sayıya Kadar Asal Sayıları Bulma

Pascal programlama dilinde yazılmış olan bu program kullanıcının konsoldan girdiği bir sayıya kadar olan asal sayıların bulunmasını sağlamaktadır. Bulunan asal sayılar konsola yazdırılmaktadır.

Program Kodu:

  1. uses crt;
  2. var
  3. dizi :array [1..200] of integer;
  4. dizibl:array [1..200] of boolean;
  5. i,n,j,n1:integer;
  6. tus:char;
  7.  
  8. procedure asaln;
  9. begin
  10. n1:=trunc(sqrt );
  11. for i:=1 to n1 do
  12.  begin
  13.    for j:=1 to n do
  14.     begin
  15.      if ( dizi[j] mod dizi[i] = 0)and(i<>j) then dizibl[j]:=false;
  16.     end;
  17.  end;
  18.  
  19.  
  20.  
  21.  
  22. begin
  23. clrscr;
  24. repeat
  25. writeln('Sayiyi giriniz.. (1-200) : ');
  26. readln ;
  27.  for i:=1 to n-1 do
  28.  begin
  29.   dizi[i]:=i+1; dizibl[i]:=true;
  30. asaln;
  31. writeln(n,' ‘a/e kadar olan asal sayilar .. :');
  32.  
  33. for j:=1 to n do
  34.  if dizibl[j] then  write(' ', dizi[j]);
  35. readln;
  36.  writeln('Cikmak icin * karakterine basiniz..');
  37.  tus:=readkey;
  38.  until tus='*';
  39.  
  40.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Cumartesi, 01 Ekim 2011 02:57 )