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.
Nhãn:
Bài tập Pascal,
Bài tập sgk,
Pascal cơ bản,
Xâu
Previous Article
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
thiếu dem:=0 đó nha bạn
lúc 23:39 18 tháng 3, 2013
Thực ra dem đã mặc định = 0 rồi bạn
lúc 20:37 27 tháng 3, 2013
sao hk chay
lúc 20:31 16 tháng 5, 2013
neu trong xau co khoang trang thi chuong trinh se khong chay
lúc 22:46 28 tháng 5, 2013
tai vi khong co bien mang dem[' '] nen chuong trinh bi loi.
lúc 22:48 28 tháng 5, 2013
cho minh hoi ti dc ko
lúc 07:32 5 tháng 12, 2013
Nặc danh nói...
lúc 14:40 4 tháng 1, 2014
sao ko co cach tinh so thu tu vay`
lúc 19:30 16 tháng 5, 2014
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
Kho giáo trình nhiều chuyên ngành: Anh văn căn bản || Ngữ pháp tiếng nhật || Giáo trình WEB || Tài liệu thi TOEFL - IELTS - TOEIC || Cơ khí chế tạo máy || Điện tử căn bản || Giáo trình đề thi || Lập trình C++ || Giáo trình đồ họa || Giáo trình Access || Giáo trình Photoshop
lúc 04:00 25 tháng 12, 2014
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
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
chạy nhưng không ra kết quả
lúc 10:27 30 tháng 5, 2016
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
Đế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
Đá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
cc
lúc 07:50 28 tháng 6, 2017
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
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
Như con cak
lúc 09:35 13 tháng 7, 2019
Đăng nhận xét