Follow us on...
Follow us on Facebook

VN-Zoom.com chung tay vì Cộng đồng

Kaka - ứng dụng hát Karaoke trên mobile



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

Vui thể thao quà ý nghĩa
kết quả từ 1 tới 15 trên 15
  1. #1
    Tham gia
    Sep 2010
    Bài
    2
    Cảm ơn
    0
    Điểm
    2/2 bài viết
    VR power
    0

    Talking Bài toán số nguyên tố mạnh trong pascal, cần giúp ngay! :(

    Xin các pro chỉ bảo giùm chương trình:
    Câu 1:
    Kiểm tra 1 số có phải là số nguyên tố mạnh hay không. Số nguyên tố mạnh là số lớn hơn trung bình cộng của số nguyên tố liền trước và số nguyên tố liền sau nó.
    Câu 2:
    Tìm tất cả các số có 3 chữ số sao cho tổng các lập phương của các chữ số bằng chính số đó.
    Các pro chỉ giùm em trước ngày thứ 7 nhé. Chiều thứ 7 em phải nộp bài rồi. Thank các pro.

  2. Có 1 thành viên cảm ơn boyoverflower300 cho bài viết này:
    win 8 (28-10-2011)

  3. #2
    becon91's Avatar
    becon91 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Sep 2009
    Bài
    783
    Cảm ơn
    132
    Điểm
    400/255 bài viết
    VR power
    0

    Default

    Trích boyoverflower300 View Post
    Xin các pro chỉ bảo giùm chương trình:
    Câu 1:
    Kiểm tra 1 số có phải là số nguyên tố mạnh hay không. Số nguyên tố mạnh là số lớn hơn trung bình cộng của số nguyên tố liền trước và số nguyên tố liền sau nó.
    Câu 2:
    Tìm tất cả các số có 3 chữ số sao cho tổng các lập phương của các chữ số bằng chính số đó.
    Các pro chỉ giùm em trước ngày thứ 7 nhé. Chiều thứ 7 em phải nộp bài rồi. Thank các pro.
    Số nguyên tố mạnh:
    PHP Code:
    program so_ngto_manh;
    uses crt;
    var 
    i,j,n:longint;

    Function 
    ngto(m:longint):boolean;
    var 
    t:longint;
    Begin
     
    if m<2 then ngto:=false
     
    else
      
    Begin
        ngto
    :=true;
        for 
    t:=2 to trunc(sqrt(m)) do if m mod t=0 then
         Begin ngto
    :=false; break; end;
      
    end;
    end;
    Begin
     clrscr
    ;
     
    write(' Nhap  n>=1:');
     
    readln(n);
     if  (
    ngto(n)=false) or (n<4then writeln(' So ',n,' ko la so ngto manh:')
      else
      
    begin
        i
    :=n-2;
        while (
    i>0) do
        if 
    ngto(ithen break else i:=i-2;
        
    j:=n+2;
        while (
    j>n) do
        if 
    ngto(jthen break else j:=j+2;
        if 
    > ((i+j)/2)  then writeln('So ',n,' la so ngto manh')
          else 
    writeln('So ',n,' ko phai la so ngto manh');
      
    end;
     
    readln;
    End

  4. Có 2 thành viên cảm ơn becon91 cho bài viết này:
    auauau97 (26-10-2011), win 8 (28-10-2011)

  5. #3
    Tham gia
    Sep 2010
    Bài
    2
    Cảm ơn
    0
    Điểm
    2/2 bài viết
    VR power
    0

    Default Thank pro!

    Thank pro nhiều nha. Nhưng mà còn bài kia nữa mà, pro giúp nốt cho em!

  6. Có 1 thành viên cảm ơn boyoverflower300 cho bài viết này:
    win 8 (28-10-2011)

  7. #4
    becon91's Avatar
    becon91 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Sep 2009
    Bài
    783
    Cảm ơn
    132
    Điểm
    400/255 bài viết
    VR power
    0

    Default

    Trích boyoverflower300 View Post
    Thank pro nhiều nha. Nhưng mà còn bài kia nữa mà, pro giúp nốt cho em!
    Ầy, có nút Thank kia mà.
    PHP Code:
    program bai_2;
    uses crt;
    var 
    a,b,c:byte;

    Begin
     writeln
    ('Cac so thoa man:');
     for 
    a:=1 to 9 do
     for 
    b:=0 to 9 do
     for 
    c:=0 to 9 do
     if (
    100*a+10*b+c=a*a*a+b*b*b+c*c*cthen write(a,b,c,' ');
     
    readln;
    End

  8. Có 2 thành viên cảm ơn becon91 cho bài viết này:
    auauau97 (26-10-2011), win 8 (28-10-2011)

  9. #5
    lovelybabyvt's Avatar
    lovelybabyvt vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Apr 2009
    Bài
    11
    Cảm ơn
    2
    Điểm
    3/3 bài viết
    VR power
    0

    Default

    xin các bác chỉ hộ em chương trình nha
    câu 1 : Nhập từ bàn phím N (0<N<30000)
    tìm N có phải là số nguyên tố.

  10. Có 1 thành viên cảm ơn lovelybabyvt cho bài viết này:
    win 8 (28-10-2011)

  11. #6
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích lovelybabyvt View Post
    xin các bác chỉ hộ em chương trình nha
    câu 1 : Nhập từ bàn phím N (0<N<30000)
    tìm N có phải là số nguyên tố.
    Code:
    PROGRAM snt;
    VAR n,i:INTEGER;
    BEGIN
    writeln('Nhap vao so can kiem tra');
    readln(n);      
    FOR i:= 2 TO n-1 DO 
    BEGIN
    IF n MOD i = 0 THEN break;
    BEGIN
    writeln(n,' khong phai la so nguyen to')
    END;
    IF n MOD i <> 0 THEN break;
    BEGIN
    writeln(n,' la so nguyen to');    
    END;
    END;
    readln; 
    END.


    ---------- Bài thêm lúc 20:12 ---------- Bài trước là lúc 20:11 ----------

    Trích becon91 View Post
    Ầy, có nút Thank kia mà.
    Đã đủ 5 bài đâu mà Thanks

  12. Có 1 thành viên cảm ơn thecuong064 cho bài viết này:
    win 8 (28-10-2011)

  13. #7
    god250895's Avatar
    god250895 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jul 2011
    Đến từ
    Thanhhoa City
    Bài
    550
    Cảm ơn
    374
    Điểm
    195/103 bài viết
    VR power
    0

    Default

    Trích lovelybabyvt View Post
    xin các bác chỉ hộ em chương trình nha
    câu 1 : Nhập từ bàn phím N (0<N<30000)
    tìm N có phải là số nguyên tố.
    uses crt;
    var N,i: integer
    begin
    writeln('Nhap vao so N'); readln(N);
    i:=0;
    For i:=2 to N-1 do if N mod i = 0 then write('So nay khong phai la so nguyen to') else write('So nay la so nguyen to');
    readln
    end.

  14. Có 1 thành viên cảm ơn god250895 cho bài viết này:
    win 8 (28-10-2011)

  15. #8
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.688
    Cảm ơn
    11.981
    Điểm
    5.268/3.029 bài viết
    VR power
    0

    Default

    Trích lovelybabyvt View Post
    xin các bác chỉ hộ em chương trình nha
    câu 1 : Nhập từ bàn phím N (0<N<30000)
    tìm N có phải là số nguyên tố.
    Hàm kiểm tra số nguyên tố nè bạn:
    Code:
    Function NT(a:integer):boolean;{ham kiem tra so nguyen to}
    Var
      i:integer;
    Begin
      If a<0 then a:=-a;
      For i:=2 to round(sqrt(a)) do
        If a mod i=0 then
          Begin
            NT:=false;
            Exit;
          End;
      NT:=true;
    End;
    Nothing is true, everything is permitted

  16. Có 1 thành viên cảm ơn auauau97 cho bài viết này:
    win 8 (28-10-2011)

  17. #9
    dviadduc's Avatar
    dviadduc vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    Feb 2010
    Đến từ
    Hà Nam
    Bài
    1.047
    Cảm ơn
    332
    Điểm
    254/183 bài viết
    VR power
    0

    Default

    Trích thecuong064 View Post
    Code:
    PROGRAM snt;
    VAR n,i:INTEGER;
    BEGIN
    writeln('Nhap vao so can kiem tra');
    readln(n);      
    FOR i:= 2 TO n-1 DO 
    BEGIN
    IF n MOD i = 0 THEN break;
    BEGIN
    writeln(n,' khong phai la so nguyen to')
    END;
    IF n MOD i <> 0 THEN break;
    BEGIN
    writeln(n,' la so nguyen to');    
    END;
    END;
    readln; 
    END.


    ---------- Bài thêm lúc 20:12 ---------- Bài trước là lúc 20:11 ----------


    Đã đủ 5 bài đâu mà Thanks
    Vãi mấy bác for đến tận n-1 kiểu này thì tung mồm à

    ---------- Bài thêm lúc 20:35 ---------- Bài trước là lúc 20:34 ----------

    Trích auauau97 View Post
    Hàm kiểm tra số nguyên tố nè bạn:
    Code:
    Function NT(a:integer):boolean;{ham kiem tra so nguyen to}
    Var
      i:integer;
    Begin
      If a<0 then a:=-a;
      For i:=2 to round(sqrt(a)) do
        If a mod i=0 then
          Begin
            NT:=false;
            Exit;
          End;
      NT:=true;
    End;
    Bác này thì chỉ cần đến trunc(sqrt(a)) là ok rồi :d

  18. Có 2 thành viên cảm ơn dviadduc cho bài viết này:
    huuchi207 (27-10-2011), win 8 (28-10-2011)

  19. #10
    lovelybabyvt's Avatar
    lovelybabyvt vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Apr 2009
    Bài
    11
    Cảm ơn
    2
    Điểm
    3/3 bài viết
    VR power
    0

    Default

    cảm ơn mấy anh chị nhe! hihi

  20. #11
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích dviadtuan View Post
    Vãi mấy bác for đến tận n-1 kiểu này thì tung mồm à

    ---------- Bài thêm lúc 20:35 ---------- Bài trước là lúc 20:34 ----------



    Bác này thì chỉ cần đến trunc(sqrt(a)) là ok rồi :d
    trunc hay round. Tại sợ bạn ấy không hiểu nên mới làm thế

  21. Có 1 thành viên cảm ơn thecuong064 cho bài viết này:
    win 8 (28-10-2011)

  22. #12
    laihoangle's Avatar
    laihoangle vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Aug 2011
    Đến từ
    VỊ TRÍ THỨ HAI, CHƯA BAO GIỜ LÀ THỨ NHẤT
    Bài
    92
    Cảm ơn
    53
    Điểm
    31/19 bài viết
    VR power
    0

    Default

    bài 1: nhập cái gì vào, in ra các số nguyên tố mạnh thì phải có điều kiện j nữa chứ. Bổ sung đề đi bạn ơi
    [COLOR="#0000CD"] Muôn liên hệ : Hidden Content /COLOR]

  23. Có 1 thành viên cảm ơn laihoangle cho bài viết này:
    win 8 (28-10-2011)

  24. #13
    lovelybabyvt's Avatar
    lovelybabyvt vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Apr 2009
    Bài
    11
    Cảm ơn
    2
    Điểm
    3/3 bài viết
    VR power
    0

    Default

    break là gì vậy ? bác

  25. Có 1 thành viên cảm ơn lovelybabyvt cho bài viết này:
    win 8 (28-10-2011)

  26. #14
    huuchi207's Avatar
    huuchi207 vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    May 2010
    Bài
    1.386
    Cảm ơn
    1.478
    Điểm
    901/494 bài viết
    VR power
    0

    Default

    break là câu là câu lệnh dùng để thoát ra từ câu lệnh lặp gần nhất

  27. Có 1 thành viên cảm ơn huuchi207 cho bài viết này:
    win 8 (28-10-2011)

  28. #15
    sadeyesno1's Avatar
    sadeyesno1 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jan 2012
    Bài
    7
    Cảm ơn
    0
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    cai nay chuan hon nay, may bai kieu tinh voi so to lau lam,nhug cai nay voi nhug so ma lon hon kieu longint thi hoi lau mot ti thui.nhung nhanh hon may cai kia
    program nguyento;
    uses crt;
    var i,n:integer;
    t:boolean;
    begin
    clrscr;
    writeln('nhap vao so n');
    readln(n);
    if (n=2) or (n=3) then writeln(n,' la so nguyen to')
    else
    for i:=2 to trunc(sqrt(n)) do
    begin
    if n mod i=0 then
    begin
    writeln(n,' ko la so nguyen to');
    break;
    end
    else t:=true;
    end;
    if t=true then
    writeln(n,' la so nguyen to');
    readln
    end.

 

 

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
  •