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!
 
404 Not Found

Server Error

404

Page Not Found

This page either doesn't exist, or it moved somewhere else.


That's what you can do