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

Anasayfa Programlama Pascal Konsoldan Girilen Sayilarin Çift Olup Olmadığını Test Eden Program


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 )