Một số kĩ thuật cơ bản của Pascal

[tao_may_star_94]

tôi có bài toán này muốn hỏi pà con tí nha
1) Cho 1 xâu kí tự hãy kiểm tra xâu đó có hoán vị không. Nếu không thì đảo xâu
2) Cho 1 dãy gồm các số bất kì và không hạn định, tính tổng các số dương liên tiếp. Sau đó tìm đọ dài của dãy đan dấu dài nhất( đan dấu là cứ 1 số âm rồi dương rồi âm rồi.....)
3) Cho 1 dãy số bất kỳ , không hạn đinh hãy tìm tổng con lớn nhất trong dãy đó

[chooco_pie]

chào mấy huynh nè, thế có ai nghĩ tới đồ họa trong pascal chưa ?, vẽ một cảnh đông quê thì sẽ như thế nào nhỉ? ai có code của một số cảnh thì cho mình tham khảo được không ?

[BB_9x]

..>.<
em mới học pascal ... khó wo'..
các bác ơi thuật toán sắp xếp ma trận tăng theo hàng và giảm theo cột viết thế nào?>.<.... giúp em với... thanks ..

[huysun]

..>.<
em mới học pascal ... khó wo'..
các bác ơi thuật toán sắp xếp ma trận tăng theo hàng và giảm theo cột viết thế nào?>.<.... giúp em với... thanks ..

đưa hết vào mảng 1 chiều, xếp theo chiếu tăng dần. sau đó cắt thành n mảng có n phần tử, rồi tự nghĩ tiếp.

[khuon]

- Gửi lee_huynh:

Hì... Ngày xưa thôi huynh ơi, cái này là thầy Lê Minh Hoàng (thầy quá nổi tiếng rồi, chắc ai cũng bít nhỉ ) chỉ cho em đó.
Đi thi nên đặt try..except để đỡ mất test.
Chẳng hạn bộ test có 10 test (cùng 1 file), mà bị exception ở test 1 thì mấy test sau đáng lý vẫn có khả năng lấy điểm thì lại không có điểm (vì dính exception muh!)
Các kiểu dữ liệu lớn để xài dễ dàng hơn...
- Gửi likekiss:
Google đi bạn, nhanh không ấy muh .

sao lại thế anh ơi :"try..except " là gì hả anh
anh có thể nói rõ hơn được ko

[=========> Bổ sung bài viết <=========]

Để đổi chỗ 2 phần tử - không nhất thiết dùng biến trung gian như sau:
a:=a+b;
b:=a-b;
a:=a-b;
Các bạn test lại, bảo đảm ok mà!
Thân ái!

hiển nhiên nhưng mà thêm 1 biến có tốn là bao,
phép gán tg:=a;a:=b;b:=tg; nhanh hơn nhiều so với phép cộng đó

[phuthinh36]

Tui nghĩ sau này bạn chungkid có thể sẽ thay đổi ý kiến về:

+Hãy thay câu lệnh inc(i) của bạn trong chương trình bằng câu lệnh i:=i+1.Vì sao à?Bởi vì câu lệnh sau tuy dài nhưng nó chạy nhanh hơn câu lệnh trước,ko tin hãy chạy mỗi cái khoảng 1 tỷ lần,bạn sẽ thấy nó khác như thế nào
(1 trình biên dịch tốt có đủ thông minh để dịch "inc(i)" giống y như "i:=i+1"
Cho dù "i:=i+1" có thiệt sự chạy nhanh hơn "inc(i)" đi nữa: xài đúng cấu trúc dữ liệu và thuật toán sẽ làm chương trình chạy nhanh hơn rất nhiều so với việc đổi "inc(i)" thành "i:=i+1")

+Thay vì viết (a) and (b),bạn hãy viết thế này
if a then
if b then
như thế nhiều khi có thể loại được một số bước xét ko cần thiết,làm chương trình có thể chạy nhanh hơn một chút.Hơn nữa có thể tránh một số lỗi vớ vẩn vì TP7 nhiều khi bị điên,viết (a) and (b) nó xét a đã sai rồi,nó xét b đúng nó vẫn chạy tiếp
(nếu bạn chắc chắn TP7 bị lỗi như vậy thì không nên xài nó làm gì !!!
Nhưng tui không biết bạn có lộn chỗ này hay không ? Tui nghĩ có thể là nó xét a sai rồi nó vẫn xét b tiếp; nhưng cuối cùng thì nó vẫn nhảy qua phần "else")

Nhưng cũng cám ơn bạn đã có ý tốt muốn chia sẻ kinh nghiệm

(hiểu biết nông cạn; có gì sai sót mong được góp ý; xin cám ơn)

-thân

Tán thành!
Khảo sát khi chạy 20000 lần thì inc(i) chạy lâu hơn i:=i+1 2s.
=> Khi chạy 1000000 lần thì inc(i) sẽ chạy lâu hơn i:=i+1 50s.

[quantt]

bác nào biết khử đệ qui(dùng vòng lặp) bài này giúp em với
Function F(k,n:byte):longint;
begin
if (k=0) or (k=n) then
F:=1
else
F:=F(k-1,n-1)+F(k,n-1)
end;
em cảm ơn các bác trước nhé

[bi2005]

em lạc đề một tí, vì em không biết forum nào sôi nổi và trả lời em ngay được, mong các anh giúp với
đề bài yêu cầu
nhap mảng một chiều từ file như sau
n
n phần tử
ví dụ:
5
1 3 5 6 2
xuất ra file nào đó.
các anh chỉ giúp em với

[dongcambiz]

em lạc đề một tí, vì em không biết forum nào sôi nổi và trả lời em ngay được, mong các anh giúp với
đề bài yêu cầu
nhap mảng một chiều từ file như sau
n
n phần tử
ví dụ:
5
1 3 5 6 2
xuất ra file nào đó.
các anh chỉ giúp em với

=>> xuất ra yêu cầu thế nào?

[Squall_1701]

ở cái bài cộng 2 số lớn, sao khi em dùng tệp để đọc dữ liệu vào (vd như 11 và 10) thì khi ở output nó lại ra là 11010.. em đã test với Writeln và Readln thì chương trình đọc bình thường.. ai chỉ cho em cách xóa dấu các để chương trình chạy đúng với. Cảm ơn.

[=========> Bổ sung bài viết <=========]

không ai giúp em à (