Viết chương trình đếm các ký tự chữ trong xâu Pascal

Ôn tập Từ khóa

Các từ khoá là các từ dành riêng của Pascal mà người lập trình có thể sử dụng chúng trong chương trình để thiết kế chương trình. Không được dùng từ khoá để đặt cho các tên riêng như tên biến, tên kiểu, tên hàm…

Một số từ khoá của Pascal gồm:

• And External Mod Shr
• Array File Nil String
• Begin For Not Then
• Case Function Object To
• Const Goto Of Type
• Constructor If Or Unit
• Div Implementation Packed Until
• Do In Procedure Uses
• Downto Inline Program Var
• Else Interface Record Virtual
• End Label Repeat While
• Set Shl With Xor

Bài giải

Program Dem_kytu;

Uses crt;

Var I,dem_chu, dem_so, tong: integer;

S: string;

Begin

    Clrscr;

    Write('Nhap xau S: '); Readln(S);

    Dem_chu:=0;

    For i:=1 to length(S) do

    If S[i] in ['A'..'Z']+['a'..'z'] then

    Dem_chu:=dem_chu+1 else

    Dem_so:=dem_so+1;
    
    tong:= Dem_so + Dem_chu;

    Writeln('Trong xau S co tat ca ',tong,' ky tu');
    
    readln;

End.

Hình minh họa