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

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character
´╗┐

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!
 
am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m