Câu hỏi:

14/06/2023 1,043

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).

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

Uses Crt;

Var  St:String;        

dem: Array[‘A’..’Z’] Of Byte;        

 i:Byte;

ch:Char;

Begin    

 Write(‘Nhap xau St: ‘); Readln(St);     {Khởi tạo mảng}    

 For ch:=’A’ To ‘Z’ Do dem[ch]:=0;     {Duyệt xâu}    

For i:=1 To Length(St) Do        

 If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);     {Liệt kê các ký tự ra màn hình}    

For ch:=’A’ To ‘Z’ Do        

 If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);    

 Readln;

 End.

Bình luận


Bình luận

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1:

Sự khác biệt giữa hệ điều hành và phần mềm ứng dụng

Xem đáp án » 14/06/2023 27,938

Câu 2:

Cách xóa chữ M trên máy tính Casio

Xem đáp án » 14/06/2023 12,726

Câu 3:

Nhập vào 2 số nguyên a, b. Tính tổng hiệu tích thương và in kết quả ra màn hình

Xem đáp án » 14/06/2023 9,239

Câu 4:

Viết chương trình nhập vào 3 số a b c tìm số lớn nhất số bé nhất trong ba số đó c++

Xem đáp án » 14/06/2023 8,128

Câu 5:

đâu không phải là phần mở rộng của tệp video?

Xem đáp án » 14/06/2023 7,895

Câu 6:

Viết chương trình nhập vào N số nguyên tìm số lớn nhất, số nhỏ nhất.

Xem đáp án » 14/06/2023 5,156

Câu 7:

viết chương trình nhập vào 1 ký tự. in ra mã ASCII của ký tự đó và in ra ký tự kế tiếp của nó

Xem đáp án » 14/06/2023 4,856
Vietjack official store
Đăng ký gói thi VIP

VIP +1 - Luyện thi tất cả các đề có trên Website trong 1 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP +3 - Luyện thi tất cả các đề có trên Website trong 3 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP +6 - Luyện thi tất cả các đề có trên Website trong 6 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP +12 - Luyện thi tất cả các đề có trên Website trong 12 tháng

  • Siêu tiết kiệm - Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua