• Khung trình chiếu

Bài tập: Đổi chữ HOA - thường và loại bỏ kí tự đặc biệt

Các mã nguồn được viết bằng ngôn ngữ Pascal
Gửi hồi đáp
Ảnh đại diện người dùng
huynhbuutam
Nhà sáng lập
Nhà sáng lập
Các bài viết: 112
Đã gia nhập lúc: T3 31 Th8, 2021 22:04
Địa điểm: Trường THCS Châu Lăng
Tên thật: Huỳnh Bửu Tâm

Bài tập: Đổi chữ HOA - thường và loại bỏ kí tự đặc biệt

Bài viết bởi huynhbuutam »

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ã: 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ã nguồn (Loại bỏ các kí tự đặc biệt):

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.
Gửi hồi đáp
  • Similar Topics
    Các hồi đáp
    Lượt xem
    Bài viết cuối