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?: 
Average: 6 (2 votes)
Ả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.

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

 
Facebook chuyển tới đại bản doanh mới 03/2015

Facebook chuyển tới đại bản doanh mới 03/2015

Tất cả nhân viên của Facebook chính thức làm việc từ hôm nay tại trụ sở mớ

Galaxy S II HD Review : First Look

Galaxy S II HD Review : First Look

Samsung has announced two Galaxy S II variants for its domestic market. First is the Galaxy S II LTE that was announced at the IFA sometime back.

Apple sẽ đại tu lại hầu hết các sản phẩm trong năm 2012

Apple sẽ đại tu lại hầu hết các sản phẩm trong năm 2012

Theo các nguồn tin trong chuỗi cung ứng các sản phẩm của Apple cho biết với Digitimes, hầu hết các sản phẩm của Apple hiện nay sẽ nhận được một bản đại tu vào năm 2012 tới.

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

 

Diet con trung