Viết Chương Trình Nhập Vào 1 Xâu Kí Tự Từ Bàn Phím. A) Tìm Xâu đảo ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

tienbao
Chưa có nhóm

Trả lời
14
Điểm
95
Cảm ơn
7

Tin Học
Lớp 11
20 điểm
tienbao - 13:08:13 01/03/2020

Viết chương trình nhập vào 1 xâu kí tự từ bàn phím. a) Tìm xâu đảo ngược của xâu đó. b) Nhập xâu S, nếu xâu vừa nhập không phải xâu đối xứng thì thêm vào bên trái xâu các kí tự sao cho xâu vừa nhập đó trở thành xâu đối xứng. VD: Xâu "abcded" --> "abcdedcba" Pascal nha

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

keyy
_Interesting_

Trả lời
1742
Điểm
353
Cảm ơn
1315

keyy

02/03/2020

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Với một thằng ngu Tin như mình thì chỉ làm được câu a '-'

Program BTT;Uses crt;Var St: String; i: longint;Begin Clrscr; Write('Nhap St: '); Readln(St); For i:=length(St) downto 1 do Write(St[i]); ReadlnEnd.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4.4starstarstarstarstar8 voteGửiHủy

Cảm ơn 3

Đăng nhập để hỏi chi tiết avatar

canhtoanle
Chưa có nhóm

Trả lời
1254
Điểm
14323
Cảm ơn
1161

canhtoanle

05/03/2020

var s:string;

i:longint;

begin

write('Nhap xau: '); readln(s);

for i:=length(s) downto 1 do

write(s[i]);

readln;

end.

var s,st:string; i:longint;beginwrite('Nhap xau: '); readln(s);for i:=length(s)-1 downto 1 dost:=st+s[i];if s=st then write('La xau doi xung') else write('Xau doi xung la: ',s+st);readln;end.

Để tối ưu thêm câu b) bạn có thể tìm hiểu thêm về hàm Z

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar3.6starstarstarstarstar5 voteGửiHủy

Cảm ơn 2
Báo vi phạm

- asrieldreemurr4t
- Chưa có nhóm
- Trả lời
  0
- Điểm
  160
- Cảm ơn
  0
cho mn hỏi: St là j vậy???
- asrieldreemurr4t
- Chưa có nhóm
- Trả lời
  0
- Điểm
  160
- Cảm ơn
  0
st:=st+s[i]; không dc
- asrieldreemurr4t
- Chưa có nhóm
- Trả lời
  0
- Điểm
  160
- Cảm ơn
  0
to đổi thành downto
- canhtoanle
- Chưa có nhóm
- Trả lời
  1254
- Điểm
  14323
- Cảm ơn
  1161
Ok mình sửa r.
- Nhuqynh123
- Chưa có nhóm
- Trả lời
  0
- Điểm
  50
- Cảm ơn
  0
Tại sao không dùng được lên to mà phải dùng lệnh downto.
- nguyenbachung
- Chưa có nhóm
- Trả lời
  2
- Điểm
  85
- Cảm ơn
  0
ý tưởng thì cx đc nhưng code này nó ko ổn lắm đâu ạ. các làm của bạn nó ko khác j s cộng với đảo ngược của s mà bị xóa đi s[1] đâu. VD : nhập vào xâu "abab" thì kq của nó sẽ là "ababa" chứ ko phải "abababa" đâu