Các bác giỏi pascan giúp em với nào...

[The Death]

Em ngu pascan , thầy cho bài về nhà lấy điểm 15 phút:
Viết chương trình dùng hàm copy để đảo ngược xâu.
Thầy gợi ý thế này:
For i: length (st1) downto 1 do
st2:=st2 + copy (st1;1;1);

Bác nào giúp em viết hoàn chỉnh với ạ,thanks bác nhiều , chứ mấy cái này em cực kì ngu, trong khí toán của em học rất khá...ko hiểu sao..

[hominhquan]

http://www.google.com/intl/en_ALL/images/logo.gif

đùa chứ cái này tìm được mà, 15' thôi

[†h€†ru†h]

Em ngu pascan , thầy cho bài về nhà lấy điểm 15 phút:
Viết chương trình dùng hàm copy để đảo ngược xâu.
Thầy gợi ý thế này:
For i: length (st1) downto 1 do
st2:=st2 + copy (st1;1;1);

Bác nào giúp em viết hoàn chỉnh với ạ,thanks bác nhiều , chứ mấy cái này em cực kì ngu, trong khí toán của em học rất khá...ko hiểu sao..
Bro tìm trong đống này thảo nào cũng có.
Đang bận không có time up file lên (nhẹ ý mà, trong này tầm >40 ví dụ và ~50 bài tập)
Đang vần vật đồ họa trong Pas mà bấn quá.
Nhìn ông thầy làm slide show bằng Pas cứ tưởng trên PPoint :shot::shot:

[The Death]

mấy bác giúp em , nhà em ko vô dc pascan ah..

[not katurato's clone]

mấy bác giúp em , nhà em ko vô dc pascan ah..

ah. ý là nhò ng ta code hộ rồi nộp đó hả??cũng đc thôi. nhận nè

:shot::shot::shot::shot::shot:

[jish@n]

Em ngu pascan , thầy cho bài về nhà lấy điểm 15 phút:
Viết chương trình dùng hàm copy để đảo ngược xâu.
Thầy gợi ý thế này:
For i: length (st1) downto 1 do
st2:=st2 + copy (st1;1;1);

Bác nào giúp em viết hoàn chỉnh với ạ,thanks bác nhiều , chứ mấy cái này em cực kì ngu, trong khí toán của em học rất khá...ko hiểu sao..


st2:='';
len:=length(st1);
if (len>0) then
for i:=len downto 1 do st2:=st2+copy(st1,i,1);

[The Death]

ah. ý là nhò ng ta code hộ rồi nộp đó hả??cũng đc thôi. nhận nè

:shot::shot::shot::shot::shot:

nhà win xài win 7 64 bit , ko vô pascan dc bác ah..

[tailove86]

Em ngu pascan , thầy cho bài về nhà lấy điểm 15 phút:
Viết chương trình dùng hàm copy để đảo ngược xâu.
Thầy gợi ý thế này:
For i: length (st1) downto 1 do
st2:=st2 + copy (st1;1;1);

Bác nào giúp em viết hoàn chỉnh với ạ,thanks bác nhiều , chứ mấy cái này em cực kì ngu, trong khí toán của em học rất khá...ko hiểu sao..

đánh dấu:hungry:

[The Death]

st2:='';
len:=length(st1);
if (len>0) then
for i:=len downto 1 do st2:=st2+copy(st1,i,1);


len của bác nghĩa là ji bác, bác dịch ra tiếng việt dc ko.

[MNQ]

len của bác nghĩa là ji bác, bác dịch ra tiếng việt dc ko.
:sad:
:sad:

[not katurato's clone]

len của bác nghĩa là ji bác, bác dịch ra tiếng việt dc ko.
em ko biết pascal, chỉ học c++ với java thôi, nhưng nhìn cũng mò ra đc cái len là biến, dùng gán giá trị độ dài chuỗi vào. rút gọn của length thoi

[jish@n]

nhà win xài win 7 64 bit , ko vô pascan dc bác ah..
Win7 64bit chạy Turbo Pascal 7 bình thường :rap:

len của bác nghĩa là ji bác, bác dịch ra tiếng việt dc ko.
:plaster::shot::hang:

[The Death]

Win7 64bit chạy Turbo Pascal 7 bình thường :rap:


:plaster::shot::hang:

sao của em ko chạy dc..........:hungry::hungry::hungry:

ko , ý em hỏi nó là ji thôi , chứ em cũng biết nó là biến bác ah..giờ mới hiểu đó là từ rút gọn length thôi hả bác....

[nec]

Pascan là cái gì trời :hungry: