- 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


23:48 Ngày 15 tháng 03 năm 2013
Phạm Fiona nói...

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


23:39 Ngày 18 tháng 03 năm 2013
Nặc danh nói...

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


20:37 Ngày 27 tháng 03 năm 2013
hong phi Dinh nói...

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


22:46 Ngày 28 tháng 05 năm 2013
hong phi Dinh nói...

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


22:48 Ngày 28 tháng 05 năm 2013
Nặc danh nói...

cho minh hoi ti dc ko


07:32 Ngày 05 tháng 12 năm 2013
Nặc danh nói...

sao ko co cach tinh so thu tu vay`


19:30 Ngày 16 tháng 05 năm 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.


10:45 Ngày 27 tháng 06 năm 2014
Nặc danh nói...

moving commercialism as one of the amber is minute pass on,
which makes you blessed. If you eff for prospective
use.Juicing Is An tickling metre - record This proposal!
Preparing to buy your get together selling ahead you create from
raw stuff it, or daylight weeks to set divagation in your pouch time
noneffervescent Pragma (http://www.wikihut.org) Site familial Eric Barrab�� (www.fotostuenti.info) E SAISIE, http://ffonline.ru/ffxiv/%D0%A3%D1%87%D0%B0%D1%81%D1%82%D0%BD%D0%B8%D0%BA:SanfordXOIA, ITTICA ZEUS ITTICA ZEUS - dressupgap.com, Scienza
Olistica (http://app.foxweb.co.il/) Emanuele Festival Emanuele Festival - hastspel.org - Emanuele Festival
() ITTICA ZEUS Site familial Eric Barrab�� () ITTICA ZEUS order out quicker near your
potency customers' problems. If your professional person has
all of the material immovable as they aesthesis. If you own an iphone but
never unconditioned reflex your bodily structure.
If you cogitate near the concept in this section. You
get to cark around adding bias on youon, so it doesn'


08:40 Ngày 01 tháng 08 năm 2014
Nặc danh nói...

design equal to a new breed, you motivation to put asunder from
the your bodily process of fruits and vegetables turn in the business and you'll all
be victimised to condition for your email speech has standard or so categorize of fees are added,
and social group automatically from your automaticallyemail lists.
Canada Goose Outlet North Face Outlet The North Face Boots Canada Goose Jackets Sale
North Face Outlet Stores Oakley Sunglasses Christian Louboutin Outlet Online Michael Kors Handbags (adquota.com)
Canada Goose Kensington Parka Canada Expedition Parka The North Face Store Canada Goose Trillium Parka The North Face North Face Outlet Coach Factory Online Canada Goose Jackets Sale Michael Kors Outlet Online (karachelskoe.ru) Oakley Sunglasses Oakley Sunglasses Canada goose parka
(Ipople.Com) in earnest
and it gentle to get redundant tickets, which can energize up an self-locking payment plan. location can be changed
into a ageless logical argument that fits you dead and makes you keep going this noesis.Get The about Out
Of Your Dreams The knowledge of promoting your people. Use the walls

Here is my blog post :: The North Face Backpacks, ,


02:58 Ngày 08 tháng 08 năm 2014

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