Nội dung bài viết

    Xem thêm

    Viết chương trình nhập vào một xâu kí tự từ bàn phím

    Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

    1 176 05/07/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Viết chương trình nhập vào một xâu kí tự từ bàn phím

    Đề bài: Viết chương trình nhập vào một xâu kí tự từ bàn phím, thông báo lên màn hình các chữ cái có trong xâu và số lượng của chúng (Không phân biệt chữ hoa hay chữ thường) (lập trình pascal)

    VD: PAScal

    Kết quả: Cac chu cai co trong xau la: p a s c l

    p xuat hien 1

    a xuat hien 2

    s xuat hien 1

    c xuat hien 1

    l xuat hien 1

    Lời giải:

    var s: ansistring;
        i,j: longint;
        a,b: array[1..10000000] of longint;
    begin
        read(s); j:= 1;
        s:= Lowercase(s);
        for i:= 1 to length(s) do
            begin
                inc(a[ord(s[i])]);
                If a[ord(s[i])] = 1 then 
                    begin 
                        b[j]:= ord(s[i]);
                        inc(j);
                    end;
            end;
        j:= j-1;
        write('Cac chu cai co trong xau la: ');
        For i:= 1 to j do
            write(chr(b[i]),#32);
        writeln;
        For i:= 1 to j do
            writeln( chr(b[i]),' xuat hien ',a[b[i]]);
    end.

    Xem thêm các câu hỏi Tin học có đáp án khác:

    Hãy chọn câu phát biểu đúng nhất khi nói về hệ điều hành

    Hoạt động nào sau đây có sử dụng CSDL

    Trong số các địa chỉ dưới đây, địa chỉ nào là địa chỉ thư điện tử

    Để tạo một CSDL mới và đặt tên tệp trong Access, ta phải

    Viết chương trình nhập vào một mảng gồm N số nguyên

    Trong Access để thực hiện chức năng tìm kiếm và thay thế ta thực hiện thế nào

    Để sắp xếp các trường trong mẫu hỏi, ta nhập điều kiện vào dòng nào trong lưới QBE

    Khi làm việc với cấu trúc bảng, để xác định kiểu dữ liệu của trường

    Xét tệp lưu trữ hồ sơ học bạ của học sinh

    Phần mềm ứng dụng là gì?

    Bài viết cùng lớp mới nhất

    Xem thêm
    1 176 05/07/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Xem thêm các chương trình khác: