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

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character
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 )  
amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım