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

 
Giới thiệu những kiến thức cơ bản về Apache Hive

Giới thiệu những kiến thức cơ bản về Apache Hive

Như đã biết thuật ngữ “big data” được sử dụng để nói đến tập dữ liệu lớn trong đó hàng ngày nó gia tăng về cả khối lượng

Hướng dẫn tạo nút reply facebook đơn giản 1 phút

Hướng dẫn tạo nút reply facebook đơn giản 1 phút

Nhưng chúng ta đã biết lúc trước facebook chỉ cho bật nút reply comment facebook 

Máy tính bảng Kindle Fire giá rẻ có gì hay?

Máy tính bảng Kindle Fire giá rẻ có gì hay?

Với mức giá cực thấp, Kindle Fire đang trực tiếp đe dọa iPad và trở thành thế lực mới trên thị trường.

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

 

Diet con trung