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

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.