Tin học Hằng xâu

Thảo luận trong 'Tin học cấp III' bắt đầu bởi Navy Nguyễn, 6 Tháng một 2020.

Lượt xem: 128

  1. Navy Nguyễn

    Navy Nguyễn Học sinh Thành viên

    Bài viết:
    93
    Điểm thành tích:
    26
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    Trường THPT Đan Phượng
    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!

    Nhập vào từ bàn phím một hằng xâu X bất kì
    a, Ktra xâu X có phải là xâu đối xứng k biết rằng xâu đối xứng có tính chất là đọc nó từ phải sang trái cũng như từ trái sang phải ta thu đc cùng một kết quả.
    b, Hãy thông báo ra màn hình số lần xuất hiênh của mỗi kí tự trong xâu X (không phân biệt hoa thường).
    Giúp mình với, mình cảm ơn nhiều ạ
     
  2. Haworthia

    Haworthia Học sinh Thành viên

    Bài viết:
    35
    Điểm thành tích:
    21
    Nơi ở:
    TP Hồ Chí Minh
    Trường học/Cơ quan:
    Tân Thông Hội

    Mã:
    uses crt;
    var i,j:integer;
    k:char;
    d:array ['A'..'Z'] of integer;
    s:string;
    h:boolean;
    Begin
    clrscr;
    read(s);
    j:=length(s);
    h:=true;
    for i:= 1 to length(s) do
    begin
    if s[i] <> s[j] then h:=false;
    dec(j);
    end;
    if h=true then writeln(s,' la chuoi doi xung')
    else writeln(s,' khong phai chuoi doi xung');
    for i:= 1 to length(s) do
    if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]);;
    for k:= 'A' to 'Z' do
    for i:= 1 to length(s) do
    if s[i]=k then inc(d[k]);
    for k:= 'A' to 'Z' do if d[k] > 0 then writeln('Ki tu ',k,' xuat hien ',d[k],' lan');
    readln;
    End.
     
    Tam1902 thích bài này.
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

-->