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

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character
Anasayfa Programlama Pascal Konsoldan Girilen Say?lar?n Asal Olup Olmad???n?n Testi
´╗┐

Konsoldan Girilen Say?lar?n Asal Olup Olmad???n?n Testi

Pascal programlama dilinde yaz?lm?? bu program ile konsoldan al?nan say?lar?n asal olup olmad???n? test edilmektedir. E?er girilen bŘtŘn say?lar asal ise Say?lar asal ifadesi yazd?r?l?rken, aksi halde Say?lar asal degil ifadesi yazd?r?l?r.

Program Kodu:

  1. uses crt;
  2. var
  3. i,j,k,a,b:integer;
  4. c:char;
  5. bl:boolean;
  6. Dizi:array[1..100] of integer;
  7.  
  8. begin
  9. writeln('Soru BST_5_11');
  10. while c <> '*'do
  11.  
  12. begin
  13.  
  14. áwriteln('Dizi boyutunu giriniz .. [1..100]');
  15. áreadln ;
  16. áwriteln('Dizi degerlerini giriniz .. ');
  17. ábl:=true;
  18.  
  19. for i:=1 to b do
  20. begin
  21. áreadln ;
  22. áDizi[i]:=a;
  23.  
  24. for i:=1 to b do
  25. begin
  26. if Dizi[i]<>2 then
  27. ábegin
  28. ák:=Dizi[i];
  29. áfor j:=2 to k-1 do
  30. áif (Dizi[i] mod j=0) then bl:=false;
  31. áend;
  32.  
  33. if bl=true then begin writeln('Sayilar asal');
  34. end else begin writeln('Sayilar asal degil');
  35.  
  36. writeln('Programi sonlandirmak icin * karakterine basiniz');
  37. readln ;
  38.  
  39.  
  40.  

Yorumlar (0)
Sadece kay─▒tl─▒ kullan─▒c─▒lar yorum yazabilir!
Son G├╝ncelleme ( Cumartesi, 01 Ekim 2011 02:29 )  
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