Hỏi Viết chương trình trong xâu.

Đăng nhập diễn đàn

Kết quả 1 đến 2 của 2
  1. #1
    Ngày tham gia
    Oct 2012
    Bài viết
    14
    Thanks
    3
    Thanked: 0 in 0 posts

  2. #2
    Ngày tham gia
    Apr 2012
    Bài viết
    1,358
    Thanks
    357
    Thanked: 712 in 426 posts
    Bài của bạn:

    program xau;
    var s:string;
    i,n,thuong,hoa,so,tu:integer;
    ch:char;

    BEGIN
    writeln('Nhap vao xau: ');
    readln(s);

    for i:=1 to length(s) do
    begin
    if (s[i]>='a') and (s[i]<='z') then inc(thuong); {tim cac ky tu thuong}
    if (s[i]>='A') and (s[i]<='Z') then inc(hoa); {tim cac ky tu hoa}
    if (s[i]>='0') and (s[i]<='9') then inc(so); {tim cac ky tu so}
    end;

    {dem so tu}
    s:=' '+s;
    for i:=1 to length(s)-1 do
    if (s[i]=' ') and (s[i+1]<>' ') then inc(tu);

    {dao nguoc xau}
    i:=1;
    while i<= length(s) div 2 do
    begin
    ch:=s[i];
    s[i]:=s[length(s)-i+1];
    s[length(s)-i+1]:=ch;
    inc(i);
    end;

    writeln('Trong xau co: ',tu,' tu, ',thuong,' ky tu thuong, ',hoa,' ky tu hoa, ',so,' ky tu so.');
    writeln('Xau dao nguoc: ',s);
    readln;
    END.
    Lần sửa cuối bởi nguyenvanquan7826, ngày 11-26-2012 lúc 12:36 PM.

  3. Những thành viên đã cảm ơn nguyenvanquan7826 trong bài viết này:

    tranhuy1980 (10-11-2013)

Tag của Chủ đề này

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  

Textlink: thiet ke web,tai game dien thoai,nha dat thai nguyen,nhadatthainguyen ,ke toan tong hop ,tuyển sinh,tuoi tre ben tre, dien dan viec lam, tim viec nhanh

dịch vụ seo xu hướng seo 2014 Bảng tuần hoàn seo seo on page da là gì- domain authority công cụ kiểm tra backlink thuật toán google panda FPT Thái Nguyên ,FPT Thai Nguyen ,Internet FPT Thai Nguyen ,FPT Bắc Giang ,FPT Bắc Ninh ,FPT Lao Cai ,FPT Tuyen Quang ,FPT Hoa Binh ,FPT Cao Bằng