Tin học Xâu kí tự trong tin học

[DieuGigi]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình nhập từ bàn phím một xâu kí tự và thông báo ra màn hình số lần xuất hiện của một kí tự trong xâu
p/s: dùng ch gì gì đó

 

[Trâm Nguyễn Thị Ngọc]

viết chương trình nhập từ bàn phím một xâu kí tự b và thông báo ra màn hình số lần xuất hiện của b
p/s: dùng ch gì gì đó

Đề có sai ko chị, nhập vào xâu b rồi lại đếm lần xuất hiện của b là sao chị

 

[Nguyễn Tùng Ân]

viết chương trình nhập từ bàn phím một xâu kí tự b và thông báo ra màn hình số lần xuất hiện của b
p/s: dùng ch gì gì đó

Hửm ? Có đề kiểu này nữa hả ta, có mà xâu kí từ abc rồi đếm số lần xuất hiện của b thì còn hiểu đc.

 

[DieuGigi]

Hửm ? Có đề kiểu này nữa hả ta, có mà xâu kí từ abc rồi đếm số lần xuất hiện của b thì còn hiểu đc.

kiểu vậy đó bạn...mình ghi sai đề đó

 

[Trâm Nguyễn Thị Ngọc]

kiểu vậy đó bạn...mình ghi sai đề đó

Var
 s,k:string;
 i,d:integer;
Begin
 write('nhap vao mot xau s:');readln(s);
 write('nhap vao ki tu k:');readln(k);
 For i:=1 to length(s) do
  if s[i]=k then d:=d+1;
write('so lan xuat hien cua ki tu',k,'trong xau',s,'la:',d);
readln
End.

Code này em làm theo đề:'Nhập vào xâu và kí tự rồi đếm số lần xuất hiện của kí tự đó trong xâu '
nếu có sai sót hay là đề bài em làm sai thì chị báo với em để em sửa ạ