- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Đưa ra xâu đảo theo từ



Viết chương trình nhập vào xâu, đưa ra xâu đảo theo từ. Ví dụ: đi xe đạp -> đạp xe đi.

uses crt;
var s:string;
    x,y,z,t:byte;
begin
  write('Nhap vao mot xau: ');
  readln(s);
  z:=length(s);
  for y:=length(s) downto 1 do
  begin
    if ((s[y]=' ')or(y=1)) then begin for t:=y to z do write(s[t]);z:=y end;
    write(' ');
  end;
  readln;
end.


Duong Nguyen Tuan nói...

Dòng "if ((s[y]=' ')or(y=1)) then begin for t:=y to z do write(s[t]);z:=y" để làm j vậy bạn, chỉ mình với


13:56 Ngày 17 tháng 03 năm 2013
Nặc danh nói...

Hổng hiểu


17:08 Ngày 29 tháng 03 năm 2013
Nặc danh nói...

Các từ cách nhau bởi dấu cách nên dùng s[y] = ' ' để kiểm tra... kiểm tra y = 1 để in ra từ đầu tiên trong chuỗi!


10:23 Ngày 24 tháng 04 năm 2013
Nặc danh nói...

Mình không hiểu cho lắm
Bạn nói rõ 1 tí được không


08:09 Ngày 24 tháng 11 năm 2013
Nguyễn Huyền nói...
Nhận xét này đã bị tác giả xóa.
Broku Ssj100 nói...

ban co the noi ro hon tu cho:
if((.... cho den z:=y duoc ko??


15:23 Ngày 22 tháng 11 năm 2015
Broku Ssj100 nói...

ơ hời! ct sai rồi tác giả ơi!!!!


15:32 Ngày 22 tháng 11 năm 2015
Nặc danh nói...

bài trên có rất nhiều dấu cách thừa, mình sẽ sửa lại
uses crt;
var s:string;
x,y,z,t:byte;
begin
write('Nhap vao mot xau: ');
readln(s);
z:=length(s);
for y:=length(s) downto 1 do
if ((s[y]=' ')or(y=1)) then
begin
for t:=y to z do write(s[t]);
z:=y;
end;
delete(s,1,1);
delete(s,length(s),1);
readln;
end.


21:04 Ngày 17 tháng 12 năm 2015
nambeo_ nohana nói...

bỏ cái write(' ' ); đi là ok


11:53 Ngày 15 tháng 01 năm 2016
Yến thọ\ nói...

Cái chỗ t:= y to z do .... Là sao vậy bạn , t là 1 biến để xuất ra màn hình mà sao lại đặt = y to z vậy bạn , mình ko hiểu rõ cho lắm


05:46 Ngày 10 tháng 03 năm 2016
bo lam nói...

bài này hơi khó hiểu thì phải giải thích dùm mình được không


14:30 Ngày 23 tháng 03 năm 2016
Nặc danh nói...

Nặc danh nói ...


10:38 Ngày 21 tháng 09 năm 2016

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.