Giải bài tập pascal

[cau_be_pascal]

anh em trong topic giúp mình với !!!
Nhập (chuỗi) xâu gồm n kí tự.
a) In chuỗi đã nhập
b) Đếm số phần tử trong chuỗi đã nhập là kí tự chữ thường { ví dụ như a,b,c,d ...}
c) Đếm số phần tử trong chuỗi đã nhập là kí tự chữ hoa { ví dụ A,B,C,D...}
d) Đếm số phần tử trong chuỗi đã nhập là kí tự số { ví dụ 1,2,3,4,5...}
e) In chuỗi đảo ngược
Anh em trong topic giúp mình nhanh nha, t3 là em thi rồi

 

[dienvi2010]

Hướng dẫn:

Program XLXau;
Type xau=string;
Var str:xau;

{Ham dem ky tu thuong}
Function DemKTThuong(s:xau):byte;
Var dem,i:byte;
Begin
    dem:=0;
    for i:= 1 to length(s) do
        if (s[i]>='a') and (s[i]<='z') then
            inc(dem);
    DemKTThuong:=dem;
End;

{Ham dem ky tu hoa}
Function DemKTHoa(s:xau):byte;
Var dem,i:byte;
Begin
    dem:=0;
    for i:= 1 to length(s) do
        if (s[i]>='A') and (s[i]<='Z') then
            inc(dem);
    DemKTHoa:=dem;
End;

{Ham dem ky tu so}
Function DemKTSo(s:xau):byte;
Var dem,i:byte;
Begin
    dem:=0;
    for i:= 1 to length(s) do
        if (s[i]>='0') and (s[i]<='9') then
            inc(dem);
    DemKTSo:=dem;
End;

{Thu tuc In xau dao nguoc}
Procedure InXauDao(var s:xau);
Var i:byte;
Begin
    for i:= length(s) downto 1 do
        write(s[i]);
End;
Begin
    Write('Nhap xau: '); Readln(str);
    Writeln('So ky tu thuong: ',DemKTThuong(str));
    Writeln('So ky tu hoa   : ',DemKTHoa(str));
    Writeln('So ky tu so    : ',DemKTSo(str));
    Write('Xau dao nguoc: ');
    InXauDAo(str);
    Readln;
End.