+ Xâu đổi chữ HOA - thường: "xIN cHAO cAC bAN!"
+ Xâu loại bỏ kí tự đặc biệt: "Xin Chao Cac Ban"
Mã nguồn (Đổi chữ HOA thành chữ thường)
Mã: Chọn tất cả
Program ChuHoaThuong;
Uses Crt;
Var i : Integer;
St : AnsiString;
Begin
ClrScr;
Write('Nhap xau: ');
ReadLn(St);
For i := 1 To Length(St) Do
If St[i] In ['a'..'z'] Then St[i] := Upcase(St[i])
Else If St[i] In ['A'..'Z'] Then St[i] := Chr(Ord(St[i]) + 32);
Write('Ket qua: ', St);
ReadLn;
End.
Mã: Chọn tất cả
Program BoKiTuDacBiet;
Uses Crt;
Var i : Integer;
St : AnsiString;
Begin
ClrScr;
Write('Nhap xau: ');
ReadLn(St);
i := 1;
While i <= Length(St) Do
If (St[i] In ['a'..'z']) Or (St[i] In ['A'..'Z']) Or (St[i] In ['0'..'9']) Or (St[i] = ' ')
Then Inc(i) Else Delete(St, i, 1);
Write('Ket qua: ', St);
ReadLn;
End.