[Help] 3 bài. (Chọn số nguyên tố, chia quà, tìm dãy con dài nhất)

[lamerjapan]

B1) Cách chọn các nguyên tố_pascal
Nhập 1 số nguyên n (4<n<20000).Chọn nhiều nhất m số nguyên tố # nhau,sao cho tổng của m số nguyên này nhỏ hơn hoặc bằng n.
Cho biết có b/n cách chọn với cùng số m lớn nhất.
VD1:Với n=8.Chọn nhiều nhất m=2 số nguyên tố # nhau,và có 3 cách chọn:
2+3<8
2+5<8
3+5=8
VD2:Với n=15.Chọn nhiều nhất m=3 số nguyên tố # nhau,và có 4 cách chọn:
2+3+5<15
2+3+7<15
2+5+7<15
3+5+7=15:-?
B2) Có N món quà đc đánh số từ 1 đến N(N<=20).Trong đó món quà thứ i có gtri là a (1<a<10000).Cần chia N món quà trên cho 3 người.
Gọi T1,T2,T3 lần lượt là tổng gtri các món quà của mỗi người.
Gọi TongMax,TongMin lần lượt la gtri lớn nhất và gtri nhỏ nhất của T1,T2,T3.
Hãy tìm cách chia N món quà trên cho 3 người sao cho chênh lệch TongMax và TongMin là nhỏ nhất./[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
B3) Cho 1 dãy gồm N số nguyên a1,a2,..An.Ta gọi dãy con của dãy thu đc bởi việc xóa khỏi dãy đã cho 1 số số hạng của nó và giữ nguyên thứ tự của các số hạng còn lại.Bản thân dãy đã cho cũng coi la dãy con của chính nó.
Trong số các dãy con của dãy đã lập thành 1 cấp số cộng với công sai d,hãy tìm 1 dãy con gồm nhiều p/tử nhất,hoặc thông báo là dãy đã cho ko chứa dãy con như vậy.:whistling:
HELP ME!

[sanxuattudien]

Có ai giỏi ,giải hộ cái ,tớ đang cần gấp lắm!

[vftravel]

Bài 1: Dùng QHĐ như kiểu dạng bài tìm trong 1 dãy số các số bằng tổng 1 số ấy.
Bài 2: Dùng QHĐ giống dạng chia kẹo.
Bài 3: Chưa nghĩ ra :|

[ocean123]

ai giúp đi,tớ ko rõ lắm về quy hoạch động.

[victory355]

Theo tớ thì bài 2 làm thế này: xếp tăng N món quà. Sau đó chia dần cho 3 người theo cách: chia quà có giá trị lớn nhất cho người hiện đang có ít nhất. Cứ như vậy thì chênh lệch giữa 3 người sẽ là nhỏ nhất.
Bài 3 thì làm theo bài chia kẹo nhưng có mảng 2 chiều để lưu lại công sai ứng với các phần tử đứng trước.
Bài 1 chưa nghĩ ra. [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
Sr bạn nha dạo này mình có ít thời gian lắm, thỉnh thoảng mới vào diễn đàn.

[Menbro102015]

Bài 1 tớ mới chỉ đưa ra được 1 cách thôi. Bạn tham khảo sau đó sửa them giúp nha để được nhiều cách, tớ đang nghĩ

Var N,k,h,i,j,S:integer;
A:Array[1..100] of integer;
Function snt(x:integer):boolean;
 Var m:integer;
Begin
  SNT:=x>1;
 For m:=2 to trunc(sqrt(x)) do
  if x mod m =0 then
  Begin
     SNT:=False;
     break;
  End;
 End;
BEGIN
  write('Nhap vao so nguyen duong N:'); Readln(N);
{   J:=0;
  For i:=2 to N div 2 do
   if SNT(i) then
    Begin
    j:=j+1;
     A[j]:=i;
    End;
  For h:=1 to j do write(A[h]:3);
  while S<= N do
  Begin
   S:=S+A[k] }

S:=0;j:=1; i:=2;

While S< N do
Begin
 For i:=2 to N div 2 do
 if SNT(i) then
    Begin
      S:= S+i;
     A[j]:=i;
       j:=j+1;
    End;
 if S<=N then
 Begin
  For k:=1 to j-1 do

  write(A[k]:3); writeln;
  End

    else
   Begin
     For k:=1 to j-2 do
     write(A[k]:3);writeln;
   End;
End;
Readln

End.

[yentatoo]

Các bạn toàn nói tới quy hoạch động mà tớ chẳng biết tí gì, chán quá! Các bạn giúp tớ với, nó có dễ không vậy

[thiendung]

mấy bài này khó ra phết đấy nhỉ. Các bác viết chương trình cho em thao khảo nhé!

[Thắng Lợi Group]

lehang_gb1 hiểu nhầm đề bài thì phải. Đề bài yêu cầu in ra số cách chọn chứ không yêu cầu chọn như thế nào.

[yeubongda1102]

Thế thì mình đã nói rồi mà. Mình chưa tìm được các cách mà chỉ biết cách in được 1 cách thôi