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

Anasayfa Programlama Pascal Bir S?n?r De?erine Kadar Olan Asal Say?lar? Bulma


Bir S?n?r De?erine Kadar Olan Asal Say?lar? Bulma

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.


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

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
 
404 Not Found

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.