Viết chương trình nhập vào 1 xâu n ký tự .Đếm số ký tự chữ và chữ số có trong xâu

Xin chào các bạn, hôm nay mình nhận được một bài toán của một bạn học sinh lớp 11 gửi về cho Fanpage, đề có nội dung như sau :

Viết chương trình nhập vào 1 xâu n ký tự .Đếm số ký tự và chữ số có trong xâu

Trước tiên ta phải đi phân tích đề này sau đó mới tìm ra được thuật toán để giải.

Ví dụ : Nhập vào xâu jkllljhhj1254 thì nó sẽ in ra màn hình kết quả đó là :

- Xâu có 9 ký tự chữ và 4 ký tự số.

Thuật toán : 

- Tạo ra các biến đếm chữ số và chữ cái gán cho nó bằng 0, cho vòng for chạy từ phần tử đầu tiên đến phần tử cuối cùng của xâu.

+ Nếu phần tử đó là chữ cái thì biến chữ cái +1 

+ Nếu phần tử đó là chữ số thì biến chữ số +1 

Cách giải :

Trước tiên ta khai báo các biến

- Biến xâu s có kiểu dữ liệu string

- Biến chuso và biến chucai dùng để đếm số ký tự chữ số và số ký tự chữ cái.

- Biến i tý nữa dùng để chạy vòng for quen thuộc.

var s: string;
chuso,chucai,i: integer;

Tiếp theo ta viết câu lệnh để nhập xâu

write('Nhap mot xau ky tu: ');
 readln(s);

Rồi, tiếp ta cho vòng for chạy từ i đến độ dài của xâu (độ dài của xâu chính là ký tự cuối cùng của xâu) và kiểm tra
- Nếu nó là chữ số thì biến chuso +1
if s[i] in ['0'..'9']) then chuso:=chuso+1;
- Nếu nó là chữ cái thì biến chucai +1
if s[i] in ['A'..'Z'] + ['a'..'z'] then chuccai:=chucai+1;
Để cho nó kiểm tra đúng phần tử đang xét chúng ta phải cho 2 điều kiện if này chạy trong một chương trình con được kẹp giữa bởi BEGIN ... END; (Nhớ cho tui là chương trình con kết thúc bằng END; chứ không phải END. nhé)

begin
if (s[i] in ['0'..'9']) then chuso:=chuso+1;
if s[i] in ['A'..'Z'] + ['a'..'z'] then chucai:=chucai+1;
end;

Việc cuối cùng của chúng ta là in kết quả ra thôi

write('Xau co ',chuso,' chu so va ',chucai,' chu cai);
readln;

Code hoàn thiện nhé !!! Nếu hay thì share ♥

var s: string;chuso,chucai,i: integer;
begin
 write('Nhap mot xau ky tu: ');
 readln(s);
 chuso:=0;
 chucai:=0;
 for i:=1 to length(s) do
 begin
  if (s[i] in ['0'..'9']) then chuso:=chuso+1;
  if s[i] in ['A'..'Z'] + ['a'..'z'] then chucai:=chucai+1;
 end;
 write('Xau co ',chuso,' chu so va ',chucai,' chu cai);
 readln;
end. ;