ngocsohn
MOD
 Tổng số bài gửi : 434
 Xu TP : 21279432
 Cảm ơn !! : 11
 Ngày sinh : 21/12/1994
 Tham gia ngày: : 28/11/2010
 Tuổi : 29
 Đến từ : Đà Nẵng
Châm ngôn sống : sống có lý tưởng
 |  Tiêu đề: Thuật toán kiểm tra xâu đối xứng 02/12/10, 08:24 am | |
| Xâu đối xứng nếu nó bằng chính xâu đảo của nó. Vậy cách đơn giản nhất là ta sẽ xây dựng xâu đảo của x và kiểm tra xem nó có bằng x không. Để xây dựng xâu đảo của x, cách đơn giản nhất là cộng các kí tự của x theo thứ tự ngược (từ cuối về đầu). Chương trình: - Code:
-
var x : string;
(************************************************)
function doixung(x : string) : boolean;
var y : string;
i : integer;
begin
y := '';
for i := length(x) downto 1 do y := y + x[i];
if x=y then doixung := true else doixung := false;
end;
BEGIN
write('Nhap vao 1 xau:');
readln(x);
if doixung(x) then
writeln('Xau doi xung!')
else
writeln('Xau khong doi xung!');
readln;
END. | |
|
Tìm kiếm 
Đăng ký 
Đăng Nhập 
