Giới Thiệu Pháp Luân Đại Pháp - Những Lợi Ích về Tâm Tính & Sức Khỏe: http://www.mediafire.com/view/?oczx91o8coopx3z. Nếu bạn cần hướng dẫn tập luyện xin vui lòng tham gia diễn đàn ChinhPhap.com để được hướng dẫn miễn phí.
Tường Hoạt động mới Bài viết Giới thiệu
-
chào làm wen đc ko? tui sn 93 ở bắc ninhai muốn làm wen thì vào trang tớ nhé ok!
chào!
.................................................................................................................................................................
http://diendan.hocmai.vn/showthread.php?t=94750
Hãy đến với chúng tôi để cùng trao đỏi thảo luận các vấn đề quanh ta nhe!
Rubic chat with me
tớ là Hưng, ở Vinh!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
kaka ... Thế thì ko thanks mình đi =))
làm wen nha!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Em liên lạc với anh qua Yahoo swordmaster0016 dể lấy đề thi mod văn
http://diendan.hocmai.vn/showthread.php?t=92450
vào chúc mừng sinh nhật bạn tui nhe!
tuyetroimuahe_vtn
Bạn lên yh sớm chút là gặp m mà ... m mệt quá ..........
vậy hãy thử tải lại lần khác ko thì cậu ko thể giỏi tớ đảm bảo Cậu ko thực hành sẽ ko jioi cho dù lý thuyết tốt
) ừ ... Có lẽ đc ... Mình đang ol nè ^^
oh vâng môn này thì ko khó. tớ chân thành ý chỉ là cauaj ko thực hành nhiều hjhj lúc trước tớ cũng ngốc vậy thôi
Cậu thực hành nhiều thì Ok
Mình đã lâu k vào box văn rồi
Hì
Giờ chỉ vò xem mọi người học tập thôi
thoi` gian này minh cũng k rảnh
oi câu 2 cũng sai rồi hjhj nó hơi bị máy móc một tý dường như cậu vẫn chưa hiểu lắm thì fai hôm nao Pm nói chuyện tớ sẽ chỉ cho hak
Nhập xâu chỉnh hoá sao cho xuất ra màn hình ko còn ký tự cách ( ' ').
1. var: a, b: string;
i, x: byte;
begin
writeln('nhap xau');
readln(a);
x:= length(a);
b:= ' '; {khoi tao xau rong} cái này bạn thấy có để làm gì đâu dư ùi bạn ah`
for i:= 1 to x do
if a <> ' ' then write(a) câu này sai rồi vì no châng để làm gì. tớ sửa lại nhé if a = ' ' then delete(a,i,1);
writeln(' xau da chuan hoá',a);
else ko cần từ này bạn ạ (có hoặc ko vẫn được )
readln
end.
Tớ chẳng biết được nữa có thể khuya mới lên được Tuỳ thui cậu cứ cho chạy thử xem tớ chưa chạy )
Sao cậu ko vào yahu cho nó dễ tớ giải rồi đâys chỗ nào thắt mắc thì hỏi tớ
Var A.b:string; i:integer;
Begin
writeln('nhap xau A'); readln(a);
B:='' ;
for i:= length(a) downto 1 do
B:=B+A; {Đảo ngược}
for i:=1 to length(a) do
begin
if a[length(a)] = ' ' then delete(a,length(a),1); {xoá ký tự trống cuối xâu}
if a[1] = ' ' then delete(a,1,1); {xoá ký tự trống đầu xâu}
end;
for i:=length(a) downto 1 do
if a = ' ' and a[i-1] = ' ' then
delete(a,i,1); {Chuẩn hoá sao cho giữa 2 từ chỉ có một dấu cách}
h:=1;
for i:=1 to length(a) do
if a = ' ' then h:=h+1; {h là số từ}
writeln(' so tu ',h, ' xau dao nguoc',B);
readln
end.
Ok nhá cậu cứ cho chạy thử là được
cai này hơi kang đấy nhá đề như vậy nên bạn phải chấp nhận là 3 là một từ đó nhá và 'hie5u' cũng là một từ nha chứ ko thì khá phúc tạp -
Đang tải…
-
Đang tải…
-
Đang tải…