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

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?

View more random threads:

• Không cài được Autocad vào WIN 7
• Hỏi cách crack Win XP SP3
• Giúp mình 2 bài pascal
• Khắc phục lỗi 401 Unauthorized
• [Cần giúp] Bài tập pascal
• Đề cương Ôn tập thi học kì II môn Tin học 8 (help me)
• Cách vẽ đường tròn ngoại tiếp tam giác?
• Ai có theme win7 nào đẹp ko em xin cái
• Config.msi la gì vậy các pro
• Mấy câu hỏi về pascal nhờ các bạn giải hộ

Nguồn: http://diendankienthuc.net.

bài này trong sgk có rồi, lớp 11,mở ra xem đi ở bài thực hành ấy Nguồn: http://diendankienthuc.net.

Gợi ý nha bạn:
câu 1:
i:=1; d:=0;
A[i]=A[n-d];
inc(i);
inc(d);
câu 2:
i:=1; d:=0;
B[i]:=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 Nguồn: http://diendankienthuc.net.

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[i]<>' ' then
begin
k:=k+1;
tu[k]:='';
while (i<=n)and(s[i]<>' ') do
begin
xau[k]:=xau[k]+s[i];
i:=i+1;
end;
end;
i:=i+1;
end;
for i:=k downto 1 do write(xau[i],' ');
readln
end.

cách này đảo xâu như: viết code -> code viết Nguồn: http://diendankienthuc.net.

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 Nguồn: http://diendankienthuc.net.

xem ví dụ3 trang 71 và baìi 1 trang 73 sách giáo khoa tin 11. có cả 2 bài rồi nhé.hj Nguồn: http://diendankienthuc.net.