Viết chương trình nhập từ bàn phím sâu kí tự có độ dài không vượt quá 150. Hãy cho biết :
a)Số lượng chữ cái in hoa
b)Số lượng chữ cái thường
c)số lượng chữ số
d)Số lượng kí tự không phải in hoa
e)Số lượng chữ cái không phải in thường
f)Thông báo kết quả ra màn hình
(Viết mấy câu lệnh quan trọng thôi)
Viết chương trình nhập từ bàn phím sâu kí tự có độ dài không vượt quá 150. Hãy cho biết : a)Số lượng chữ cái in hoa b)Số lượng chữ cái thường c)số lượ
By Piper
Nek bạn ơi !!!
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;