- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Dếm số ký tự chữ và số



Viết ct nhập vào xâu có cả chữ và số, rồi cho xuất ra có bao nhiêu kí tự chữ và bao nhiêu kí tự số.

var s: string;cs,cc,i: integer;
begin
 write('Nhap mot xau ky tu: ');
 readln(s);
 cs:=0;
 cc:=0;
 for i:=1 to length(s) do
 begin
  if (s[i] in ['0'..'9']) then cs:=cs+1;
  if s[i] in ['A'..'Z'] + ['a'..'z'] then cc:=cc+1;
 end;
 write('So cac ki tu la chu so:',cs:2,'  So cac ki tu la chu cai:',cc:4);
 readln
end.


Nặc danh nói...

minh muon tim chuong trinh hien ra bang cuu chuong cua lop 8 co


20:54 Ngày 22 tháng 02 năm 2013
Nguyên Trần nói...

Thanks. Mình đang rất cần!


21:06 Ngày 17 tháng 08 năm 2013
Pauline Louis nói...

Dùng code này liệu khi nhập vào như 33, 111 có ra không nhỉ?


17:24 Ngày 26 tháng 04 năm 2015
Ly Lê nói...

cảm ơn bạn nhiều


11:55 Ngày 14 tháng 12 năm 2015
Nặc danh nói...

Minh nghi nhu the nay cung dc (đối với dãy số) :
Program.....;
Uses....;
Var n:integer;
Begin
If n>10 then write(n co mot chu so)
If (n>9) and(n<100) then write('n co hai chu so')
......
If n>999 and n<10000 then write ('n co 4 chu so')
.......{bn co the viet tiep}
Readln;
End


17:03 Ngày 22 tháng 04 năm 2016

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.