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

The Death · #1 04-03-2010, 22:27

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 · #2 05-03-2010, 08:16

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

†h€†ru†h · #3 05-03-2010, 13:45

Quote:

Originally Posted by 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..

Bro tìm trong đống này thảo nào cũng có.
Đang bận không có time up file lên (nhẹ ý mà, trong này tầm >40 ví dụ và ~50 bài tập)
Đang vần vật đồ họa trong Pas mà bấn quá.
Nhìn ông thầy làm slide show bằng Pas cứ tưởng trên PPoint

The Death · #4 05-03-2010, 16:04

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

not katurato's clone · #5 05-03-2010, 16:05

Quote:

Originally Posted by The Death

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è

jish@n · #6 05-03-2010, 16:10

Quote:

Originally Posted by 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..

Code:

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

The Death · #7 05-03-2010, 16:11

Quote:

Originally Posted by not katurato's clone

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

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

tailove86 · #8 05-03-2010, 16:11

Quote:

Originally Posted by 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..

đánh dấu

The Death · #9 05-03-2010, 16:12

Quote:

Originally Posted by jish@n

Code:

st2:='';
len:=length(st1);
if (len&gt;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 · #10 05-03-2010, 16:16

Quote:

Originally Posted by The Death

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