Mấy bài toán về pascal

[grenadier1991]

Ac, ai làm bài 9 = Bubble Sort đó?
Có 3 số mà cũng ...

[xbach17]

grenadier1991 bít làm ko?Mình mới học Pascal muh.Giúp đỡ cho gà đi.Post bài lên hay chỉ cách làm cũng dc!!!

[Master_Baby]

- Gửi xbach17:
Hì, bài của bach đưa ko phải là 20 ẩn * đâu, thực ra là 6 ẩn thôi, vì chỉ cần có được 2 hàng * đầu tiên là có thể tính ra các * típ theo... Và việc tìm thế nèo thì chắc chỉ có For là dễ cài đặt nhứt thôi.
Có thể cài for thế này:
gọi đại thía này cho nó gọn:
  abc
x def
------

For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
For d:=0 to 9 do
For e:=0 to 9 do
For f:=0 to 9 do
begin
 {......}
end;

Hay làm thía này cho dễ bắt

For a[1]:=1 to 9 do
For a[2]:=0 to 9 do
For a[3]:=0 to 9 do
For a[4]:=0 to 9 do
For a[5]:=0 to 9 do
For a[6]:=0 to 9 do
begin
 {......}
end;

Trong phần {.....} bước đầu tiên là bạn bắt lỗi input. Tức là trong mảng a[] ko có quá 2 ptử giống nhau. Phần này bạn nên để nó sang một procedure riêng.
Bước típ theo là grenarate ra mấy ông sao ở dưới. Lại dùng procedure để tìm xem các * ở dưới + mấy ông sao ở trên có quá 2 * giống nhau ko? Nếu có thì skip, nếu ko thì in ra.
{mấy cái * bạn nên viết ra mảng, nếu ko thì bạn có thể dùng MOD và DIV để tách từng chữ số ra khi dùng integer cũng được}

[xbach17]

Cám ơn anh,để em viết thử.Master_baby học ở đâu zậy???

[Master_Baby]

Học cái gì ở đâu cơ???

[hotboy85]

Tui có một câu đố dành cho toàn thể mọi người. Ai làm dc thi cứ liên hệ tui để nhận đệ tử :
Cho dãy số tự nhiên liên tiếp như sau :
123456789101112...
Nhập một số n từ bàn phím (n<=1 tỉ)
Xuất ra chữ số thứ n của dãy trên.
PS: bài làm xin gửi về hộp mail : sagittarius221193@yahoo.com

[hotboy85]

Nhân tiện nói luôn em cùng lớp với xbach17 do

[Master_Baby]

Bạn ko nói rõ. Dãy này là dãy quy luật hay dãy tự nhập? (tự nhập 1 tỷ số chắc điên quá. )

[NothingToLost]

Bài này đơn giản quá còn gì... cho hết cái dãy đó vào 1 file rùi search ), còn về số n thì để longint

[xbach17]

Em lại ko nghĩ zay...cai nay chi don gian la nhap so n thui chu dau cho search.n<= 1ti chac search treo may lun!!!