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

404

Not Found

The resource requested could not be found on this server!


Proudly powered by LiteSpeed Web Server

Please be advised that LiteSpeed Technologies Inc. is not a web hosting company and, as such, has no control over content found on this site.