Chào mừng quý vị đến với website của Phạm Văn Phúc - Tuy Hòa- Phú Yên
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành
viên, vì vậy chưa thể tải được các tài liệu của
Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
đối xứng 1 từ
- 0 / 0
-
Nguồn:
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 06h:31' 06-02-2015
Dung lượng: 20.0 KB
Số lượt tải: 31
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 06h:31' 06-02-2015
Dung lượng: 20.0 KB
Số lượt tải: 31
Số lượt thích:
0 người
Kiểm tra tình đối xứng của 1 từ
uses crt;
var tu:string;
i:integer;
function doixung(tu1:string):boolean;
var ok:boolean;
begin
ok:=true;
for i:=1 to (length(tu1) div 2) do
if tu1[i]<>tu1[length(tu1)-i+1] then begin
ok:=false;
break;
end;
doixung:=ok;
end;
begin
clrscr;
write(` Nhap tu:`);readln(tu);
if doixung(tu) then writeln(` Tu vua nhap doi xung`)
else writeln(` Tu vua nhap khong doi xung`);
readln;
end.
uses crt;
var tu:string;
i:integer;
function doixung(tu1:string):boolean;
var ok:boolean;
begin
ok:=true;
for i:=1 to (length(tu1) div 2) do
if tu1[i]<>tu1[length(tu1)-i+1] then begin
ok:=false;
break;
end;
doixung:=ok;
end;
begin
clrscr;
write(` Nhap tu:`);readln(tu);
if doixung(tu) then writeln(` Tu vua nhap doi xung`)
else writeln(` Tu vua nhap khong doi xung`);
readln;
end.