Bài 12: Kiểu xâu

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap xau: '); readln(s);

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while s[pos(#32#32,s)]=#32 do delete(s,pos(#32#32,s),1);

s:=s+#32;

for i:=1 to length(s) do if s[i]=#32 then write(s[i-1],' ');

readln

end.

for i:=1 to legnth(s) do

s = input("Nhập một xâu bất kỳ: ")

print("Các ký tự và chữ số trong xâu là:")

for char in s:

       if char.isdigit() or char.isalpha():

              print(char)

Program HOC24;

var i,l,k: byte;

s: string;

begin

write('Nhap xau: '); readln(s);

k:=0; l:=0;

for i:=1 to length(s) do

begin

if s[i] in ['A'..'z'] then k:=k+1;

if s[i] in ['0'..'9'] then l:=l+1;

end;

if l>k then write('So ki tu chu cai nhieu hon ki tu chu so');

if l<k then write('So ki tu chu so nhieu hon ki tu chu cai');

if l=k then write('So ki tu chu so bang so ki tu chu cai');

readln

end.

Dịch chương trình: Đây là đoạn chương trình in hoa tất cả các kí tự trong xâu và đếm số lượng chữ cái H trong xâu.

S = 'Hoang Thi Thu Hong' sau khi in hoa S = 'HOANG THI THU HONG'

-> Trong xâu S có 4 kí tự 'H' => d = 4

xau = input("Nhap mot xau bat ky: ")

dau_cham = False

for i in range(len(xau)):

      if xau[i] == ".":

            dau_cham = True

      elif dau_cham:

            print(xau[i].upper(), end=" ")

      else:

            print(xau[i], end=" ")