codeturbopascal
Chào mừng bạn đến với codeturbopascal
hảy tham gia và chia sẻ kinh nghiệm
codeturbopascal
Chào mừng bạn đến với codeturbopascal
hảy tham gia và chia sẻ kinh nghiệm
codeturbopascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

codeturbopascal

Nơi Chia Sẻ Của Những Người Đam Mê Pascal
 
Trang ChínhTrang Chính  PortalPortal  Latest imagesLatest images  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Most Viewed Topics
Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình.
Xóa các phần tử trùng nhau trong mảng 1 chiều
Lập chương trình Pascal để in bảng cửu chương ra màn hình.
Đếm số nguyên tổ trong mảng 1 chiều
Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không.
iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X.
Giải nén xâu trong pascal
Vừa gà vừa chó, bó lại cho tròn, ba mươi sáu con, một trăm chân chẵn. Hỏi có bảo nhiêu chó gà?
Tính tổng chỉ sổ cột hàng chẵn trong mảng 2 chiều
Trò Chơi Đánh Chữ Trên PASCAL
Top posters
codeturbopascal
Dếm số ký tự chữ và số Vote_lcapDếm số ký tự chữ và số Voting_barDếm số ký tự chữ và số Vote_rcap 
mzone1998
Dếm số ký tự chữ và số Vote_lcapDếm số ký tự chữ và số Voting_barDếm số ký tự chữ và số Vote_rcap 
tungduong08
Dếm số ký tự chữ và số Vote_lcapDếm số ký tự chữ và số Voting_barDếm số ký tự chữ và số Vote_rcap 
hungthomvp
Dếm số ký tự chữ và số Vote_lcapDếm số ký tự chữ và số Voting_barDếm số ký tự chữ và số Vote_rcap 
hangcincin
Dếm số ký tự chữ và số Vote_lcapDếm số ký tự chữ và số Voting_barDếm số ký tự chữ và số Vote_rcap 
vie_tetua
Dếm số ký tự chữ và số Vote_lcapDếm số ký tự chữ và số Voting_barDếm số ký tự chữ và số Vote_rcap 
saobang050506
Dếm số ký tự chữ và số Vote_lcapDếm số ký tự chữ và số Voting_barDếm số ký tự chữ và số Vote_rcap 
tinnguyen0702
Dếm số ký tự chữ và số Vote_lcapDếm số ký tự chữ và số Voting_barDếm số ký tự chữ và số Vote_rcap 
Latest topics
» Đếm số nguyên tổ trong mảng 1 chiều
Dếm số ký tự chữ và số EmptyTue Dec 30, 2014 9:23 pm by hangcincin

» Có ai chơi vlcm không
Dếm số ký tự chữ và số EmptyTue Dec 30, 2014 9:18 pm by hangcincin

» Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không.
Dếm số ký tự chữ và số EmptyFri Apr 18, 2014 4:22 pm by hungthomvp

» Đây là các bài thi khảo sát HSG nè
Dếm số ký tự chữ và số EmptyWed Apr 02, 2014 4:27 pm by hungthomvp

» Trò Chơi Đánh Chữ Trên PASCAL
Dếm số ký tự chữ và số EmptyWed Feb 05, 2014 1:30 pm by tinnguyen0702

» Làm gấp cho em cái bài mảng 2 chiều vs anh chị em ơi.
Dếm số ký tự chữ và số EmptySun Sep 22, 2013 2:47 am by vie_tetua

» Lập chương trình Pascal để in bảng cửu chương ra màn hình.
Dếm số ký tự chữ và số EmptySun Apr 21, 2013 7:07 pm by tungduong08

» iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X.
Dếm số ký tự chữ và số EmptySun Apr 21, 2013 7:04 pm by tungduong08

» hướng dẩn cách đăng ký
Dếm số ký tự chữ và số EmptySun Apr 21, 2013 2:36 pm by codeturbopascal

Statistics
Diễn Đàn hiện có 39 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: xuanmaiqcnh.nguyen2002

Tổng số bài viết đã gửi vào diễn đàn là 40 in 20 subjects

codeturbopascal :: Ngôn ngử lập trình pascal :: Xâu
 

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

Go down 
Tác giảThông điệp
codeturbopascal
Admin
Admin
codeturbopascal


Gemini Tổng số bài gửi : 22
Danh vọng : 64 Được thank : 7
Ngày Tham gia : 19/04/2013
Tuổi : 27
Đến từ : Quảng trị
Thú Cưng : 02
Dếm số ký tự chữ và số Empty
Bài gửiTiêu đề: Dếm số ký tự chữ và số   Dếm số ký tự chữ và số EmptySun Apr 21, 2013 2:27 pm
Code:

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.
Về Đầu Trang Go down
https://codeturbopascal.forumvi.com
 
Dếm số ký tự chữ và số
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
codeturbopascal :: Ngôn ngử lập trình pascal :: Xâu-
Chuyển đến: