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

804

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (Phần 3)

Câu 5: 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ời giải

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.

Đánh giá

0

0 đánh giá