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!
 
301 Moved Permanently

301 Moved Permanently


nginx