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!
 
backlinktr.biz | 521: Web server is down

Error 521 Ray ID: 4c9ba14dab4fb05b • 2019-04-19 03:00:46 UTC

Web server is down

You

Browser

Working
Istanbul

Cloudflare

Working
backlinktr.biz

Host

Error

What happened?

The web server is not returning a connection. As a result, the web page is not displaying.

What can I do?

If you are a visitor of this website:

Please try again in a few minutes.

If you are the owner of this website:

Contact your hosting provider letting them know your web server is not responding. Additional troubleshooting information.