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.  
  18.  
  19.  
  20.  
  21. begin
  22. clrscr;
  23. repeat
  24. writeln('Sayiyi giriniz.. (1-200) : ');
  25. readln ;
  26. for i:=1 to n-1 do
  27. begin
  28. dizi[i]:=i+1; dizibl[i]:=true;
  29. asaln;
  30. writeln(n,' a/e kadar olan asal sayilar .. :');
  31.  
  32. for j:=1 to n do
  33. if dizibl[j] then write(' ', dizi[j]);
  34. readln;
  35. writeln('Cikmak icin * karakterine basiniz..');
  36. tus:=readkey;
  37. until tus='*';
  38.  
  39.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Cumartesi, 01 Ekim 2011 02:57 )  
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.