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

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 )