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