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.
Nhãn: Bài tập Pascal, Pascal mở rộng, Xâu
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
lúc 13:56 17 tháng 3, 2013
Hổng hiểu
lúc 17:08 29 tháng 3, 2013
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!
lúc 10:23 24 tháng 4, 2013
Mình không hiểu cho lắm
Bạn nói rõ 1 tí được không
lúc 08:09 24 tháng 11, 2013
hay
lúc 15:55 12 tháng 1, 2015
ban co the noi ro hon tu cho:
if((.... cho den z:=y duoc ko??
lúc 15:23 22 tháng 11, 2015
ơ hời! ct sai rồi tác giả ơi!!!!
lúc 15:32 22 tháng 11, 2015
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.
lúc 21:04 17 tháng 12, 2015
dien
lúc 22:31 29 tháng 12, 2015
bỏ cái write(' ' ); đi là ok
lúc 11:53 15 tháng 1, 2016
hay do, de hieu
lúc 09:54 23 tháng 1, 2016
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
lúc 05:46 10 tháng 3, 2016
bài này hơi khó hiểu thì phải giải thích dùm mình được không
lúc 14:30 23 tháng 3, 2016
Nặc danh nói ...
lúc 10:38 21 tháng 9, 2016
khó hiểu
lúc 13:19 19 tháng 3, 2017
bai nay kha la hay nhung tac gia co the lam de hieu hon dc khong a?
lúc 13:43 10 tháng 4, 2017
bài làm của bạn nặc danh đúng. nhưng theo mình nên thống nhất các biến cho dễ nhớ: như biến chạy dùng: i,j,k...
- nếu chạy dạng tệp mà thừa, thiếu khoảng trống là sai đáp án so với các test, nên bạn nào làm dạng tệp cần lưu ý, ko xong rồi chạy thấy ok đến khi chấm = test lại zero điểm ah
lúc 09:56 4 tháng 5, 2017
THUẬT TOÁN TRÊN LÀ THUẬT TOÁN ĐÚNG !
NHƯNG KHI CÁC BẠN TEST CÁC TRƯỜNG HỢP KHÁC THÌ SẼ BỊ LỖI
(test có rất nhiều bản đặc biệt)
VD1:***đi**xe*****đạp****** >> thừa dấu cách ****đạp***xe******đi*
VD2:cuong >> thừa dấu cách ****cuong*
(dấu '*' là dấu cách)
Nên mình có thuật toán này có thể khắc phục dc lỗi trên =))
var s:string;
i,j,k,f,:longint;
begin
readln(s); s:=s+#32;
while s[1]=#32 do delete(s,1,1);
k:=length(s); i:=k;
while k>1 do
begin
dem:=0; f:=i;
while s[i]=#32 do begin
dec(i);
dec(f);
end;
k:=i;
while (s[i]<>#32)and (i>0) do
begin
dec(i);
dec(k);
end;
for j:=k+1 to f do write(s[j]);
write(#32);
end;
readln
end.
lúc 22:43 18 tháng 6, 2017
Có nghĩa khi gặp kí tự trắng thì nó sẽ viết ra các kí tự từ y to z nhé
lúc 11:43 14 tháng 5, 2019
Có nghĩa khi gặp kí tự trắng thì nó sẽ viết ra các kí tự từ y to z nhé
lúc 11:44 14 tháng 5, 2019
Có nghĩa khi gặp kí tự trắng thì nó sẽ viết ra các kí tự từ y to z nhé
lúc 11:44 14 tháng 5, 2019
mn có thể chỉ mk cách viết chương trình con bài này đc ko ạ
lúc 09:35 21 tháng 7, 2021
afyon
muğla
batman
hakkari
artvin
2DM
lúc 03:58 28 tháng 7, 2023
Đăng nhận xét