home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 03 / c_abc / toupper.c < prev   
Encoding:
C/C++ Source or Header  |  1988-01-20  |  654 b   |  28 lines
  1. /*-------------------------------------------------------*/
  2. /*    Umwandlung von Kleinbuchstaben in Großbuchstaben   */
  3. /*              Ein Beispiel zum C-ABC Teil 3            */
  4. /*                     PASCAL 3/88                       */
  5. /*-------------------------------------------------------*/
  6.  
  7. #include <stdio.h>
  8.  
  9. main()
  10. {
  11. char z;
  12. char toupper();
  13.  
  14.   while((z = getchar()) != 'E')
  15.     putchar(toupper(z));
  16. }
  17.  
  18.  
  19.  
  20. char toupper(c)
  21. char c;
  22. {
  23.   if(c >= 'a' && c <= 'z') /* Kleinbuchstabe ?           */
  24.     return(c - 32);        /* Kleinbuchstabe - umwandeln */
  25.   return(c);               /* ungewandelt zurück         */
  26. }
  27.  
  28.