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 )  
404 Not Found

404

Not Found

The resource requested could not be found on this server!


Proudly powered by LiteSpeed Web Server

Please be advised that LiteSpeed Technologies Inc. is not a web hosting company and, as such, has no control over content found on this site.