VCT nhập vào xâu S đếm các từ trong xâu

VCT nhập vào xâu S đếm các từ trong xâu

VCT nhập vào xâu S đếm các từ trong xâu

Ôn tập Hằng

Hằng là một đại lượng không đổi trong quá trình thực hiện chương trình. Có hai loại hằng là hằng chuẩn và hằng do người dùng định nghĩa.

– Hằng chuẩn là hằng do Pascal định sẵn, ví dụ hằng số PI, hằng số chỉ màu RED=4,…

Người sử dụng không cần định nghĩa lại nếu thấy không cần thiết. Các hằng này được Pascal định nghĩa sẵn trong các Unit. Cần tham khảo hướng dẫn (help) đối với mỗi Unit để biết trong Unit có các hằng nào đã được định nghĩa..

– Hằng do người dùng định nghĩa thông qua việc khai báo.

Cú pháp:

CONST <ten_hang_1>=<gia_tri_hang_1>;

<ten_hang_n>=<gia_tri_hang_n>;

Ví dụ:

CONST a=5;

ch=’Q’;

Bài giải

Program Dem_kytu;

uses crt;
    var str:string[100];
    chu:array[#1..#254] of integer;
    i:integer;
    ch:char;
    
begin
    clrscr;
    
    for ch:=#1 to #254 do chu[ch]:=0;
    
    write(' Nhap chuoi = ');readln(str);
    
    for i:=1 to length(str) do
    
    (chu[upcase(str[i])]):=chu[upcase(str[i])] +1;
    
    writeLn('Cac ki tu trong xau la:');
    
    for ch:=#1 to #254 do
    
    if chu[ch]>0 then writeln(ch, ': xuat hien ',chu[ch],' lan');
    
    readln;
end.

Hình minh họa

dem tu

Bạn thấy bài viết này như thế nào?: 
No votes yet
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
Image CAPTCHA
Enter the characters shown in the image.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Nhanh tay “thử ngay” giao diện mới của Youtube!

Nhanh tay “thử ngay” giao diện mới của Youtube!

Youtube đang thử nghiệm một thiết kế trang chủ mới, thông tin này đang lan truyền trên các mạng xã hội Facebook, Google +, Twitter.

Pep Guardiola và cuộc chạm trán Real Madrid tại Champions League 2020

Pep Guardiola và cuộc chạm trán Real Madrid tại Champions League 2020

Pep Guardiola thường có những ý tưởng quái đản trước các trận đấu lớn. Cuộc chạm trán Real Madrid ở lượt đi vòng 1/8 Champions League cũng không ngoại lệ.

10 lí do khiến Adobe thua cuộc trong cuộc chiến Flash di động với Apple

10 lí do khiến Adobe thua cuộc trong cuộc chiến Flash di động với Apple

Vừa qua, Adobe đã quyết định sẽ không còn hỗ trợ FLash Player cho các trình duyệt web di động nữa. Qua đó, ta có thể thấy rằng Adobe đã thua Apple trong cuộc chiến căng thẳng kéo dài về nền tảng phát triển ứng dụng Web này.

Công ty diệt chuột T&C

 

Diet con trung