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

Ngọc Nguyễn Ngày: 18-07-2023 Tổng hợp kiến thức

228

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (phần 4) hay nhất được biên soạn và chọn lọc giúp bạn ôn luyện và đạt kết quả cao trong bài thi môn Tin học.

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

Câu 32: 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.