Ngừng hoạt động !

Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

TonMeans


    Mình hay có thói quen đánh tên mà không in hoa chữ cái đầu của tên.

    Admin
    Admin
    Admin


    Tổng số bài gửi : 239
    Join date : 19/05/2011
    Age : 28
    Đến từ : VietNam

    Mình hay có thói quen đánh tên mà không in hoa chữ cái đầu của tên. Empty Mình hay có thói quen đánh tên mà không in hoa chữ cái đầu của tên.

    Bài gửi  Admin Mon May 30, 2011 9:06 pm

    Ví dụ: Nguyen Tan Nghia nhưng lại viết là nguyen tan nghia

    Bây giờ mình sẽ viết 1 chương trình để chuyển họ và tên chưa được in hoa chữ cái đầu trở lại đúng.

    PROGRAM Forum;
    USES crt;
    VAR i: BYTE;
    s: STRING;
    BEGIN
    Write('Nhap xau: '); readln(s);
    s[1]:=upcase(s[1]);
    FOR i:=2 TO length(s) DO
    IF S[i] = ' ' THEN s[i+1]:= upcase(s[i+1]);
    Write(s);
    Readln
    END.
    Admin
    Admin
    Admin


    Tổng số bài gửi : 239
    Join date : 19/05/2011
    Age : 28
    Đến từ : VietNam

    Mình hay có thói quen đánh tên mà không in hoa chữ cái đầu của tên. Empty Chương trình trên thì lấy ý tưởng từ chương trình...

    Bài gửi  Admin Mon May 30, 2011 9:09 pm

    Chuyển 1 xâu thành xâu chữ hoa hoàn toàn.
    Ví dụ: nguyen tan nghia thành NGUYEN TAN NGHIA
    PROGRAM Forum;
    USES crt;
    VAR i: BYTE;
    s: STRING;
    BEGIN
    Write('Nhap xau: '); readln(s);
    FOR i:=1 TO length(s) DO
    s[i]:=upcase(s[i]);
    Write(s);
    Readln
    END.

      Hôm nay: Sun May 19, 2024 8:01 pm