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

[Master_Baby]

Vớ vỉn. Treo thế nào được. Nếu đọc từ file chỉ là đọc ký tự 1 tỷ lần, máy chạy ngon lành (chỉ tốn tí time với tí dung lượng file thôi muh ). Tui nghĩ hotboy85 mún nói đến dãy có quy luật. Nhưng cụ thể là quy luật nào???

[trinick_13]

Mây đại ca ơi, chỉ giúp gà em với:
- Tính tích của hai số mà mỗi số có số chữ số không quá 256 chữ số.
- Thuật toán hoán vị chính xác chuỗi (bài này em có làm rồi nhưng thuật toán chạy xong thì chuỗi hoán vị không theo thứ tự). vd: nhập ABCD thì các chuỗi hoán vị là ABCD, ABDC, ACBD, ACDB,..
Mấy đại ca chỉ dùm để em hậu tạ !

[NothingToLost]

Bài 1: Tính tích thì thực ra là cộng các số vào với nhau thui... Theo tui nhớ ko nhầm thì là làm array String, còn chụ thể thế nào thì ko nhớ
Bài 2: Bài này chỉ cần sửa code thui, post cái code lên đây tui sửa cho. Tui cũng đang tìm hiểu về cái bài này, ko hiểu có cách nào làm mà ko sài đệ quy ko ???

[F12]

Mọi người hiểu sai đề rồi.
Đây là dãy có quy luật.
Ta viết liên tiếp các số tự nhiên từ 1,2,3,4,5,6,7,8,9,10,11,12... trở đi thì thu được dãy : 1234567891011121314...
Yêu cầu là nhập số n và in ra chữ số thứ n của dãy.
VD:
+ n=9 thì đáp số là 9.
+ n=10 ===> đáp số = 1
+ n=11 ===> đáp số = 0.

[hotboy85]

F12 hiểu đúng rồi đó. Nhưng mình xin nói một cách khá đơn giản. Lập dãy b với các hạng tử lần lượt là số chữ số của các số có 1,2,3... chữ số rồi so sánh với n cũng được đấy. Với mình thì đơn giản nhưng với mấy bạn thì ko biết à.

[hotboy85]

Mình có một bài này giải mãi không ra. Mong nhận được sự trợ giúp :
Viết liên tiếp các số của dãy Fibonaci (F1=1;F2=1;F3=F2+F1;...Fn+1=Fn+F(n-1))
thành mảng sau : 1123581321...
Nhập n từ bàn phím với n<=20000; xuất ra chữ số thứ n của dãy trên.

[condecodon2003]

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

Hơ nhận để tử thì em ko dám đâu, còn cách tính thì khá đơn giản:
số các số có 1 chữ số: 9 (1->9)
sô các số có 2 chữ số: 90 (10->99) tức là chữ số 1 trong số 10 là chữ số thứ 9 + 1 của dãy, chữ số 9 (hàng đơn vị) của số 99 là chữ số thứ 9 + 90 = 99 của dãy
số các số có 3 chữ số: 900 (100->999)tức là chữ số 1 trong số 100 là ....

từ đó có thể tìm được P là số chứa chữ số thứ n thì P có bao nhiêu chữ số, là số nào và chữ số thứ n đó là chữ số thứ mấy trong P

[NothingToLost]

Tui hiểu cái đầu bài của hotboy85 rùi đó chứ, cho hết vào file mà search, làm 1 cái nhập lần lượt từ 1 đến 1 tỉ vào file, vậy cái file này thành 1 dãy các kí tự liên tiếp . Tiếp đó thì bắt đầu search từ 1 đến n

[condecodon2003]

Bài 7: Viết chương trình in ra các số nguyên tố từ 2 --> a (với a là số nguyên dương nhập từ bàn phím)

bài 8: Viết chương trình nhập và số dương n, tìm các số nguyên tố nhỏ hơn hoặc bằng n

Bài 10: Viết chương trình nhập vào số nguyên dương n in ra n số nguyên tố đầu tiên

Bài 7, 8 giống hệt nhau, bài 10 gần giống, chỉ biến đổi đi chút, mình nghĩ cái này dùng sàng số nguyên tố nhanh hơn

Bài 11: Viết chương trình tích 1 số nguyên dương n thành tích các thừa số

write(n,' = ');
{in ra thừa số đầu tiên}
for i := 2 to n do
   if n mod i = 0 then 
      begin
          write(i);
          n := n div i;
          break;
      end 
for j := i to n do
    begin
        if n = 1 then break;
        while n mod j = 0 do
            begin
                write(' * ',j);
                n := n div j;
            end;
    end;

[condecodon2003]

Mình có một bài này giải mãi không ra. Mong nhận được sự trợ giúp :
Viết liên tiếp các số của dãy Fibonaci (F1=1;F2=1;F3=F2+F1;...Fn+1=Fn+F(n-1))
thành mảng sau : 1123581321...
Nhập n từ bàn phím với n<=20000; xuất ra chữ số thứ n của dãy trên.

Cái này chắc là phải tính trâu bò vì 20000 cũng ko lớn lắm, với lại số chữ số của các số Fibo cũng ko dễ như dãy 1,2,3,...
còn phải tính toán với số nguyên lớn nữa, dùng 2 mảng để biểu diễn 2 số Fibo, tính qua lại cho nhau + đếm số chữ số nữa