Xét xem xâu đó có phải là xâu đối xứng hay không?

tuan linh

New member
Xu
0
bài 1:
nhập vào 1 xâu, xét xem xâu đó có phải là xâu đối xứng hay không?
bài 2:
nhập vào 1 xâu, rồi in ra xâu đảo của xâu ấy?
 
Gợi ý nha bạn:
câu 1:
i:=1; d:=0;
A=A[n-d];
inc(i);
inc(d);
câu 2:
i:=1; d:=0;
B:=A[n-d];
inc(i);
inc(d);
nếu dùng until thì until i=d thi` fai? hihi hem nhớ rõ nha
còn while do thì i>n
 
Câu 2:
program in_xau_dao_nguoc;
var s : string;
xau: array[1..100] of string;
n,i,k:integer;
begin
write('Nhap vao chuoi ki tu ');readln(s);
n:=length(s);
i:=1;
k:=0;
while i<=n do
begin
if s<>' ' then
begin
k:=k+1;
tu[k]:='';
while (i<=n)and(s<>' ') do
begin
xau[k]:=xau[k]+s;
i:=i+1;
end;
end;
i:=i+1;
end;
for i:=k downto 1 do write(xau,' ');
readln
end.

cách này đảo xâu như: viết code -> code viết
 
uhm, nếu chỉ là bài tập in đảo xâu thì chỉ việc in ngược lại như ICT noi', nhưng mà theo minh` là nên gan' no' vao` 1 chuỗi B mới để dạng như là co' bài fuc tạp hơn chỉ cần lấy chuỗi B ra xai` la` xong
 

VnKienthuc lúc này

Không có thành viên trực tuyến.

Định hướng

Diễn đàn VnKienthuc.com là nơi thảo luận và chia sẻ về mọi kiến thức hữu ích trong học tập và cuộc sống, khởi nghiệp, kinh doanh,...
Top