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

Anasayfa Programlama Pascal Yaş Değerine Göre Sınıflandırma Yapan Program


Yaş Değerine Göre Sınıflandırma Yapan Program

Pascal programlama dilinde yazılmış bu programda bir kişinin yaşına göre 10’dan küçükse çoçuk, 15 ile 25 arasında ise genç, 25-40 arasında ise orta yaşlı, 60-40 arası ise olgun, 60 yaş üzeri ise yaşlı olduğunu  belirten bir prosedür yazılmıştır.

Program Kodu:

  1.  
  2.  
  3. uses crt;
  4. var
  5. s:integer;
  6. tus:char;
  7.  
  8. Procedure A(yas:integer);
  9. begin
  10. case yas of
  11. 0..9:writeln('Kisi : Cocuk ..');
  12. 15..25:writeln('Kisi : Genc .. ');
  13. 26..40:writeln('Kisi : Orta yasli ..');
  14. 41..60:writeln('Kisi : Olgun ..');
  15. 61..120:writeln('Kisi : Yasli ..');
  16.  
  17. Begin {ana program blogu}
  18. Clrscr;
  19. repeat;
  20. Writeln('Yasi giriniz:..');
  21. readln(s);
  22. A(s);
  23. Writeln('Cikmak icin * karakterine basiniz..');
  24.  
  25. tus:=readkey;
  26. until tus= '*';
  27. readln;
  28.  
  29.  
  30.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!