[Pascal] Xâu

[i_am_challenger]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào một xâu bất kì. Xét xem xâu có đối xứng không?
p/s: Các bạn giúp mình với, trình bày dễ hiểu nha. Mình *** pascal lắm.

 

[duychuong.bui]

Đây là bài làm của mình (làm theo kiểu lớp 8 thôi ). Bạn coi thử đúng hay sai nhen

uses crt;
var s : string;

function kt ( s : string ) : boolean;
var i , n : integer;
begin
n := length(s);
for i := 1 to (n div 2) do
if s <> s[n+1-i] then
begin
kt := false;
exit;
end
else kt := true;
end;

BEGIN
clrscr;
write('Nhap xau: '); readln(s);
if kt(s) = false then
write('Xau khong doi xung')
else
write('Xau doi xung');
readln
END.

 

[megamanxza]

Nhập vào một xâu bất kì. Xét xem xâu có đối xứng không?
p/s: Các bạn giúp mình với, trình bày dễ hiểu nha. Mình *** pascal lắm.

Theo mình bài này không cần hàm đâu! Xét đề của bạn i_am_challenger, ta có:

Uses crt;
var st: string;
i: integer;
begin
clrscr;
write ('Nhap xau: '); readln (st);
for i:= 1 to length(st) div 2 do
if st<>st[length(st)-i+1] then
begin
write ('Xau khong doi xung!'); readln; exit;
end;
write ('Xau doi xung!');
readln;
end.