Tin học Kiểu xâu

Thảo luận trong 'Tin học cấp II' bắt đầu bởi hanh2002123, 10 Tháng ba 2019.

Lượt xem: 163

  1. hanh2002123

    hanh2002123 Cựu Mod Văn Thành viên

    Bài viết:
    1,978
    Điểm thành tích:
    384
    Nơi ở:
    Bắc Giang
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    Vết chương trình nhập vào 1 xâu bất kì chỉ bao gồm các kí tự chữ cái. đếm xem trong xâu có bao nhiêu kí tự khác nhau. Đưa ra tần suất xuất hiện của các kí tự trong xâu ( không phân biệt chữ hoaa chữ thường). Giúp mình viết chương trình bài này :v yêu <3
     
  2. nguyen tran thanh nha

    nguyen tran thanh nha Học sinh Thành viên

    Bài viết:
    107
    Điểm thành tích:
    36
    Nơi ở:
    Bà Rịa - Vũng Tàu
    Trường học/Cơ quan:
    thcs kim long

    không phân biệt chữ hoa hay chữ thường là sao
    vd: aA thì sẽ có 2 chữ a hả hay 1 a 1A
     
  3. hanh2002123

    hanh2002123 Cựu Mod Văn Thành viên

    Bài viết:
    1,978
    Điểm thành tích:
    384
    Nơi ở:
    Bắc Giang

    dùng upcase để tất cả là chữ hoa
     
  4. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh tiến bộ Thành viên

    Bài viết:
    1,401
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Mã:
    Var
     d:array[1..100]  of integer;
     s:string;
     i,j:integer;
    Begin
     readln(s);
     For i:=1 to length(s) do
      s[i]:=upcase(s[i]);
     Fillchar(d,sizeof(d),1);
     For i:=1 to length(s)-1 do
       For j:=i+1 to length(s) do
         if s[i]=s[j] then
          begin
            d[i]:=d[i]+1;
            delete(s,j,1);
          end;
      For i:=1 to length(s) do
       writeln(s[i], '  ',d[i]);
    readln
    End.
     
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->