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: 713 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 webxe chevrolet cruze, dao tao seo,

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, thiết kế web chuẩn seo, công ty thiết kế website, tên miền, Hosting viet nam, chú ý khi làm web, dich vu seo, thiết kế web,