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

Server Error

404

Page Not Found

This page either doesn't exist, or it moved somewhere else.


That's what you can do