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

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character


Konsoldan Girilen Sayilarin Çift Olup Olmad???n? Test Eden Program

Pascal programlama dilinde yaz?lm?? olan bu program, kullan?c?n?n komut sat?r?ndan girdi?i say?lar?n hepsinin çift olup olmad???n? kontrol etmektedir. Dizideki bütün say?lar çift ise "Tum sayilar cift" de?ilse, "Tum sayilar cift degil" ifadesi konsola yazd?r?lmaktad?r.

Program Kodu :

  1. uses crt;
  2. var
  3. i,a,b:integer;
  4. c:char;
  5. Dizi:array[1..100] of integer;
  6.  
  7. begin
  8. writeln('Soru BST_5_9');
  9. while c <> '*'do
  10. begin
  11.  writeln('Dizi boyutunu giriniz .. [1..100]');
  12.  readln ;
  13.  writeln('Dizi degerlerini giriniz .. ');
  14.  for i:=1 to b do
  15.  begin
  16.  readln ;
  17.  Dizi[i]:=a;
  18.  end;
  19.  a:=0;
  20.  writeln('Dizi : ');
  21.  for i:=1 to b do
  22.  begin
  23.  writeln(Dizi[i]);
  24.  if Odd(Dizi[i])=FALSE then a:=a+1;
  25.  end;
  26.  if a=b then begin writeln('Tum sayilar cift');
  27.  end else begin writeln('Tum sayilar cift degil');
  28.  end;
  29. writeln('Programi sonlandirmak icin * karakterine basiniz');
  30. readln ;
  31.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Cumartesi, 01 Ekim 2011 02:17 )  
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.