- 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

Đếm số lần xuất hiện của mỗi chữ cái trong xâu



Viết chương trình nhập vào từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mổi chứ cái tiếng Anh trong S ( không phân biệt chữ hoa và chữ thường).

Uses Crt;
Var    St:String;
       dem: Array[‘A’..’Z’] Of Byte;
       i:Byte;
       ch:Char;
Begin
    Write(‘Nhap xau St: ‘); Readln(St);
    {Khởi tạo mảng}
    For ch:=’A’ To ‘Z’ Do dem[ch]:=0;
    {Duyệt xâu}
    For i:=1 To Length(St) Do
        If Upcase(St[i]) IN [‘A’..’Z’] Then              Inc(dem[Upcase(St[i])]);
    {Liệt kê các ký tự ra màn hình}
    For ch:=’A’ To ‘Z’ Do
        If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);
    Readln;
End.






Nặc danh nói...

I am in fact delighted to read this blog posts which consists of lots of valuable
data, thanks for providing such data.

my blog post chapter 7 bankruptcy florida


lúc 23:48 15 tháng 3, 2013
Unknown nói...

thiếu dem:=0 đó nha bạn


lúc 23:39 18 tháng 3, 2013
Nặc danh nói...

Thực ra dem đã mặc định = 0 rồi bạn


lúc 20:37 27 tháng 3, 2013
Unknown nói...

neu trong xau co khoang trang thi chuong trinh se khong chay


lúc 22:46 28 tháng 5, 2013
Unknown nói...

tai vi khong co bien mang dem[' '] nen chuong trinh bi loi.


lúc 22:48 28 tháng 5, 2013
Nặc danh nói...

cho minh hoi ti dc ko


lúc 07:32 5 tháng 12, 2013
Unknown nói...

Nặc danh nói...


lúc 14:40 4 tháng 1, 2014
Nặc danh nói...

sao ko co cach tinh so thu tu vay`


lúc 19:30 16 tháng 5, 2014
Nặc danh nói...

Các bạn xem hộ mình sai ở đâu với ạ




uses crt;
var s: string;
i,j,t,n: integer;
begin
clrscr;
write('Nhap mot xau ki tu : ');readln(s);
t:=0;
n:=length(s);
for i:=1 to n do
if (s[i]='h')and((s[i-1]=' ')or(i=1)) then
for j:=i to n do
begin
if (s[j]='o')and((s[j+1]=' ')or(j=n)) then
t:=t+1;
if (s[j]=' ') then
break;
end;
writeln('Co ',t,' tu.');
readln;
end.


lúc 10:45 27 tháng 6, 2014
congmienct nói...

Var s:string;
N,i,d:integer;
C:char;
Begin
Writeln ('nhap s:');
Readln(s);
For c:=upcase('a') to upcase('z') do
Begin
D:=0;
For i:=1 to length(s) do
If upcase (s[i])=c then d:=d+1;
If d>=1 then write('chu',c,'xuat hien:',d,'lan');
End;
Readln
End.


lúc 09:36 4 tháng 3, 2016
congmienct nói...

Var s:string;
N,i,d:integer;
C:char;
Begin
Writeln ('nhap s:');
Readln(s);
For c:=upcase('a') to upcase('z') do
Begin
D:=0;
For i:=1 to length(s) do
If upcase (s[i])=c then d:=d+1;
If d>=1 then write('chu',c,'xuat hien:',d,'lan');
End;
Readln
End.


lúc 09:37 4 tháng 3, 2016
Unknown nói...

chạy nhưng không ra kết quả


lúc 10:27 30 tháng 5, 2016
giup e bài này nói...

chỉ cho e một bài với đó là:
e hãy tìm số lần xuất hiện nhiều nhất của một kí tự trong xâu pascal.mau mau nha


lúc 16:13 30 tháng 3, 2017
Unknown nói...

Đếm số lượng từng kí tự trong chuỗi.
VD: 'abca'
2 chu a
1 chu b
1 chu c
Giải:
uses crt;
var st:string[255];
dem,i:byte;
ch:char;
begin
clrscr;
write('nhap chuoi st: ');readln(st);
for i:=1 to length(st) do
st[i]:=upcase(st[i]);
for ch:='A' to 'Z' do
begin
dem:=0;
for i:=1 to length(st) do
if ch=st[i] then dem:=dem+1;
if dem>0 then writeln(' chu ',ch ,' xuat hien ', dem ,' lan');
end;
readln;

end.


lúc 10:58 14 tháng 5, 2017
Unknown nói...

Đáp án: Số lần xuất hiện nhiều nhất của 1 kí tự trong chuổi.
uses crt;
var st:string[255];
max, dem,i:byte;
tam,ch:char;
begin
clrscr;
write('nhap chuoi st: ');readln(st);
max:=0;
for i:=1 to length(st) do
st[i]:=upcase(st[i]);
for ch:='A' to 'Z' do
begin
dem:=0;
for i:=1 to length(st) do
if ch=st[i] then dem:=dem+1;
if dem>0 then writeln(' chu ',ch ,' xuat hien ', dem ,' lan');
if max < dem then
begin max:=dem; tam:=ch; end;

end;
write( ' ki tu xuat hien nhieu nhat la ', tam ,' so la ', max);
readln;

end.


lúc 11:06 14 tháng 5, 2017
Nặc danh nói...

cc


lúc 07:50 28 tháng 6, 2017
Nặc danh nói...

thế thì đếm xem trong chuỗi có bao nhiêu chữ n thì làm sao


lúc 19:18 30 tháng 6, 2018
Unknown nói...

Viết chương trình này giúp mình với ạ: Nhập vào một xâu S bất kỳ, thông báo ra màn hình số lần xuất hiện của mỗi chữ số trong S?


lúc 23:00 20 tháng 3, 2019
Nặc danh nói...

Như con cak


lúc 09:35 13 tháng 7, 2019

Đă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.