Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Giúp các bé đáng thương ấy với

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Bán đấu giá ủng hộ từ thiện

Ngập tràn ưu đãi cho tín đồ công nghệ tại sony show 2014

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tin tức công nghệ mới
Trang 1/2 1 2 cuốicuối
kết quả từ 1 tới 15 trên 23
  1. #1
    servin_xoan's Avatar
    servin_xoan vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jul 2009
    Bài
    11
    Cảm ơn
    5
    Điểm
    3/2 bài viết

    Default số siêu nguyên tố help me!!

    ai biết làm bài số siêu nguyên tố không giúp mình cái(làm cách nào chạy phát ra luôn ấy VD nhập 8 ra luôn không phải chờ lâu hơn 1 giây) ông thầy giáo bảo làm nhưng khó quá

  2. #2
    HGMinh95's Avatar
    HGMinh95 vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    May 2010
    Bài
    429
    Cảm ơn
    87
    Điểm
    232/168 bài viết

    Default

    Bạn không nên duyệt hết các số có n chữ số mà nên dùng quay lui thử từng chữ số vào vị trí 1, vị trí 2,...

  3. #3
    minhhoangltk's Avatar
    minhhoangltk vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    May 2010
    Đến từ
    Thanh Hoá
    Bài
    7
    Cảm ơn
    17
    Điểm
    3/3 bài viết

    Default

    Code:
    PROGRAM So_sieu_nguyen_to;
    USES crt;
    VAR
      a,b:ARRAY[1..50000] OF Qword;
      ka,kb:Qword;n,i,k,cs:LONGINT;
    {------------------------------------------------------------------------}
    FUNCTION NT(n:LONGINT):BOOLEAN;
    VAR
      i:LONGINT;
    BEGIN
      IF n<2 THEN NT:=FALSE
      ELSE
        BEGIN
          i:=2;
          WHILE (n MOD i<>0) AND (i<=sqrt(n)) DO i:=i+1;
          IF i>sqrt(n) THEN NT:=TRUE
          ELSE NT:=FALSE;
        END;
    END;
    {------------------------------------------------------------------------}
    BEGIN
      Clrscr;
      Write('Nhap so n:');
      Readln(n);
      ka:=1;
      a[ka]:=0;
      FOR i:=1 TO n DO                                                                                                          
       BEGIN
          kb:=0;
          FOR k:=1 TO ka DO
            FOR cs:=0 TO 9 DO
              IF NT(a[k]*10+cs) THEN
                BEGIN
                  kb:=kb+1;
                  b[kb]:=a[k]*10+cs;
                END;
          ka:=kb;
          FOR k:=1 TO ka DO
            a[k]:=b[k];
        END;
      FOR k:=1 TO ka DO
        Write(a[k]:10);
      Writeln;
      Writeln('Co tat ca ',ka,' so sieu nguyen to co ',n,' chu so.');
      Readln;
    END.

  4. #4
    tungh121's Avatar
    tungh121 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Oct 2010
    Bài
    64
    Cảm ơn
    38
    Điểm
    16/12 bài viết

    Default

    Trích minhhoangltk View Post
    Code:
    PROGRAM So_sieu_nguyen_to;
    USES crt;
    VAR
      a,b:ARRAY[1..50000] OF Qword;
      ka,kb:Qword;n,i,k,cs:LONGINT;
    {------------------------------------------------------------------------}
    FUNCTION NT(n:LONGINT):BOOLEAN;
    VAR
      i:LONGINT;
    BEGIN
      IF n<2 THEN NT:=FALSE
      ELSE
        BEGIN
          i:=2;
          WHILE (n MOD i<>0) AND (i<=sqrt(n)) DO i:=i+1;
          IF i>sqrt(n) THEN NT:=TRUE
          ELSE NT:=FALSE;
        END;
    END;
    {------------------------------------------------------------------------}
    BEGIN
      Clrscr;
      Write('Nhap so n:');
      Readln(n);
      ka:=1;
      a[ka]:=0;
      FOR i:=1 TO n DO                                                                                                          
       BEGIN
          kb:=0;
          FOR k:=1 TO ka DO
            FOR cs:=0 TO 9 DO
              IF NT(a[k]*10+cs) THEN
                BEGIN
                  kb:=kb+1;
                  b[kb]:=a[k]*10+cs;
                END;
          ka:=kb;
          FOR k:=1 TO ka DO
            a[k]:=b[k];
        END;
      FOR k:=1 TO ka DO
        Write(a[k]:10);
      Writeln;
      Writeln('Co tat ca ',ka,' so sieu nguyen to co ',n,' chu so.');
      Readln;
    END.
    bạn ơi tớ nghĩ làm cách này vẫn lâu mình có cách này chạy phát ra luôn
    Code:
    uses crt;
    var d,n,i,j: longint;
        a,b:array[1..5]of integer;
        c:array[1..100]of longint;
    function kt(n:longint):boolean;
    var i:longint;
    begin
      kt:=true;
       if n<2 then begin kt:=false; exit; end;
       if not((n mod 6)in[5,1]) then begin kt:=false; exit; end;
       for i:=2 to round(sqrt(n)) do
        if n mod i=0 then begin kt:=false; exit; end;
    end;
    procedure deq(i:longint);
    var j:longint;
        s:string;
    begin
    str(i,s);
     if  length(S)=n then begin write(i,' '); inc(d); end
      else
        for j:=1 to 4 do
         begin
            if kt(i*10+b[j]) then  deq(i*10+b[j]);
         end;
    end;
    begin
    clrscr;
    readln(n);
    a[2]:=2;a[3]:=3;a[4]:=5;a[5]:=7;
    b[1]:=1;b[2]:=3;b[3]:=7;b[4]:=9;
    if n>8 then write('khong co so nao') else
    begin
    for i:=2 to 5 do
     deq(a[i]);
    writeln;
    write('co ',d,' so sieu nguyen to co ',n,' chu so');
    end;
    readln
    end.

  5. #5
    btn1995's Avatar
    btn1995 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Feb 2011
    Đến từ
    Đà Nẵng
    Bài
    294
    Cảm ơn
    217
    Điểm
    139/101 bài viết

    Default

    Code:
    Uses crt;
    Var
      n,dem:byte;
      k,i:longint;
    {-------------------------------------------}
    Function NT(n:longint):boolean;
    Var
      i:longint;
    Begin
      NT:=False;
      If n<2 then Exit;
      For i:=2 to round(sqrt(n)) do
        If n mod i=0 then Exit;
      NT:=True;
    End;
    {-------------------------------------------}
    Procedure Find(x:longint);
    Var
      i:longint;
    Begin
      If NT(x) then
        If x>k then
          Begin
            Write(x:10);
            dem:=dem+1;
          End
        Else
          For i:=1 to 9 do
            If (i<>5) and (i mod 2<>0) then Find(10*x+i);
    End;
    {-------------------------------------------}
    BEGIN
      Clrscr;
      Write('Nhap so n:');
      Readln(n);
      k:=1;
      For i:=1 to (n-1) do
        k:=10*k;
      Find(1); Find(2); Find(3); Find(5); Find(7);
      Writeln;
      Writeln('Co ',dem,' so sieu nguyen to co ',n,' chu so.');
      Readln;
    END.
    I have a dream^^

  6. Có 1 thành viên cảm ơn btn1995 cho bài viết này:
    pha96 (25-06-2012)

  7. #6
    pha96's Avatar
    pha96 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Apr 2010
    Bài
    445
    Cảm ơn
    240
    Điểm
    147/110 bài viết

    Default

    Trích btn1995 View Post
    Code:
     Find(1); Find(2); Find(3); Find(5); Find(7);
    mình nghĩ chỉ cần Find(2); Find(3); Find(5); Find(7) chứ ko cần Find(1) vì các số từ 1000-->1999 đâu có số siêu nguyên tố nào đâu?

  8. #7
    NS_pro's Avatar
    NS_pro vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Nov 2011
    Bài
    80
    Cảm ơn
    6
    Điểm
    8/8 bài viết

    Default

    siêu nguyen tố là ji` thế??
    mình không hiểu lắm nhưng nếu là dạng tìm số nguyên tố trong n phần tử thì mình có thể làm(1 phát ra luôn);

  9. #8
    pha96's Avatar
    pha96 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Apr 2010
    Bài
    445
    Cảm ơn
    240
    Điểm
    147/110 bài viết

    Default

    Trích NS_pro View Post
    siêu nguyen tố là ji` thế??
    mình không hiểu lắm nhưng nếu là dạng tìm số nguyên tố trong n phần tử thì mình có thể làm(1 phát ra luôn);
    search google đi rồi hãy hỏi.

  10. #9
    NS_pro's Avatar
    NS_pro vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Nov 2011
    Bài
    80
    Cảm ơn
    6
    Điểm
    8/8 bài viết

    Default

    Trích pha96 View Post
    search google đi rồi hãy hỏi.
    nhiều người không biết thì giúp chứ đừng nói như vậy?

  11. #10
    pha96's Avatar
    pha96 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Apr 2010
    Bài
    445
    Cảm ơn
    240
    Điểm
    147/110 bài viết

    Default

    Trích NS_pro View Post
    nhiều người không biết thì giúp chứ đừng nói như vậy?
    xin lỗi bạn, bạn nên biết rằng việc tìm trước khi hỏi sẽ giúp bạn và ng # tiết kiệm thời gian, bạn sẽ cảm thấy thế nào nếu như cứ xoay đi xoay lại vấn đề mà nó đã quá quen thuộc từ ngày xửa ngày xưa? và nếu bạn chưa tìm đc câu trả lời thoả đáng thì khi ấy hỏi cũng ko muộn. Mong bạn hiểu ý mình, bạn đừng trách mình vì ngày trước mình cũng hỏi câu như thế và nhận đc câu trả lời như vậy.
    Thay đổi nội dung bởi pha96; 25-06-2012 lúc 16:53.

  12. Có 1 thành viên cảm ơn pha96 cho bài viết này:
    HGMinh95 (25-06-2012)

  13. #11
    hodf's Avatar
    hodf vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Jun 2010
    Bài
    54
    Cảm ơn
    27
    Điểm
    14/14 bài viết

    Default

    siêu nguyên tố là:
    + bản thân số đó là số nguyên tố
    + bỏ bớt một chữ số tùy ý bên phải của nó vẫn tạo thành số nguyên tố

  14. Có 1 thành viên cảm ơn hodf cho bài viết này:
    NS_pro (25-06-2012)

  15. #12
    NS_pro's Avatar
    NS_pro vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Nov 2011
    Bài
    80
    Cảm ơn
    6
    Điểm
    8/8 bài viết

    Default

    Trích pha96 View Post
    xin lỗi bạn, bạn nên biết rằng việc tìm trước khi hỏi sẽ giúp bạn và ng # tiết kiệm thời gian, bạn sẽ cảm thấy thế nào nếu như cứ xoay đi xoay lại vấn đề mà nó đã quá quen thuộc từ ngày xửa ngày xưa? và nếu bạn chưa tìm đc câu trả lời thoả đáng thì khi ấy hỏi cũng ko muộn. Mong bạn hiểu ý mình, bạn đừng trách mình vì ngày trước mình cũng hỏi câu như thế và nhận đc câu trả lời như vậy.
    hay wa!!!!!!!

  16. Có 1 thành viên cảm ơn NS_pro cho bài viết này:
    tungh121 (25-06-2012)

  17. #13
    tungh121's Avatar
    tungh121 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Oct 2010
    Bài
    64
    Cảm ơn
    38
    Điểm
    16/12 bài viết

    Default

    Trích btn1995 View Post
    Code:
    Uses crt;
    Var
      n,dem:byte;
      k,i:longint;
    {-------------------------------------------}
    Function NT(n:longint):boolean;
    Var
      i:longint;
    Begin
      NT:=False;
      If n<2 then Exit;
      For i:=2 to round(sqrt(n)) do
        If n mod i=0 then Exit;
      NT:=True;
    End;
    {-------------------------------------------}
    Procedure Find(x:longint);
    Var
      i:longint;
    Begin
      If NT(x) then
        If x>k then
          Begin
            Write(x:10);
            dem:=dem+1;
          End
        Else
          For i:=1 to 9 do
            If (i<>5) and (i mod 2<>0) then Find(10*x+i);
    End;
    {-------------------------------------------}
    BEGIN
      Clrscr;
      Write('Nhap so n:');
      Readln(n);
      k:=1;
      For i:=1 to (n-1) do
        k:=10*k;
      Find(1); Find(2); Find(3); Find(5); Find(7);
      Writeln;
      Writeln('Co ',dem,' so sieu nguyen to co ',n,' chu so.');
      Readln;
    END.
    đây hình như vẫn là cách ghép số giống cách của mình phải không hả bạn

  18. #14
    unmatched1010's Avatar
    unmatched1010 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Mar 2011
    Bài
    631
    Cảm ơn
    359
    Điểm
    129/110 bài viết

    Default

    Trích pha96 View Post
    mình nghĩ chỉ cần Find(2); Find(3); Find(5); Find(7) chứ ko cần Find(1) vì các số từ 1000-->1999 đâu có số siêu nguyên tố nào đâu?
    ai nói bạn là từ 1000-1999 k có số siêu nguyên tố nào . vd như 1333 k phải là số siêu nguyên tố ak . ?:s

  19. #15
    unmatched1010's Avatar
    unmatched1010 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Mar 2011
    Bài
    631
    Cảm ơn
    359
    Điểm
    129/110 bài viết

    Default

    bài này k phải là khó nhưng thời gian chạy mình nghĩ là nó lâu . ai có cách nào nhanh hơn thì help nhá

 

 
Trang 1/2 1 2 cuốicuối

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •