Bài tập: Đổi chữ HOA - thường và loại bỏ kí tự đặc biệt
Đã gửi: CN 05 Th9, 2021 19:15
Cho xâu St với giá trị là "Xin Chao Cac Ban!":
+ 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ã nguồn (Loại bỏ các kí tự đặc biệt):
+ 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.