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

Tuyển chuyên viên tin tức VN-Zoom 2014

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Hoãn tổ chức offline VN-Zoom 8 năm tại TP HCM

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

Tài trợ VNZ Siêu phẩm Tân Kiếm Thế chibi 3D mới

Tuyển BQT VN-Zoom
Trang 1/3 1 2 3 cuốicuối
kết quả từ 1 tới 15 trên 43
  1. #1
    SátThủSiTình's Avatar
    SátThủSiTình vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Mar 2008
    Bài
    210
    Cảm ơn
    177
    Điểm
    49/38 bài viết
    VR power
    0

    Default [pascal]Đếm số nguyên tố trong 1 dãy số

    Mình mới học pascal , có 1 bài tập nhỏ :
    Đề : Cho 1 dãy số, hãy đếm các số nguyên tố trong dãy số này ?

    Ý tưởng của mình : nhập dãy số vào , lấy từng số trong dãy số đó ( gán là A1,A2... ) chia cho i . ( gán i ban đầu = 1 , sau đó típ tục gán i = i +1 ) khi nào i >= căn nguyên của A .=> nếu A1 chia i <> 0 thì SNT = 1 . Tương tự nếu số A2 chia i<> 0 thì SNT = SNT + 1 .

    Mình có ý tưởng như vậy nhưng chưa làm ra thành pascal dc Mình mới học xong bài CẤu trúc lặp và Kiểu mảng . Thầy mình nói áp dụng 2 bài đó

    CÁm ơn trước sẽ thanks 5 cái bạn nào giúp trọn vẹn

  2. Có 1 thành viên cảm ơn SátThủSiTình cho bài viết này:
    MrNTHunk (26-09-2011)

  3. #2
    Doikhacthanh's Avatar
    Doikhacthanh vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Jul 2008
    Bài
    153
    Cảm ơn
    85
    Điểm
    100/59 bài viết
    VR power
    0

    Smile Bài nguyên tố đây bạn

    procedure tdt;
    uses crt;
    type mang=array[1..100] of integer;
    var
    a:mang;
    n,d,i;integer;
    {----------------------------------------}
    procedure nhap(var a:mang);
    var i:integer;
    begin
    for i:=1 to n do
    begin
    write('Moi ban nhap so thu ',i,': '); readln(a[i]);
    end;
    end;
    {-----------------------------------------}
    function ngto(n:integer):boolean;
    var i,d:integer;
    begin
    d:=0;
    for i:=1 to n do
    if n mod i = 0 then
    d:=d+1;
    if d = 2 then
    ngto:=true
    else ngto:=false;
    end;
    {----------------------------------------}
    begin clrscr;
    write('Nhap so so hang: '); readln(n);
    nhap(a,n);
    d:=0;
    for i:=1 to n do
    if ngto(a[i]) = true then
    d:=d+1;
    writeln('So cac so nguyen to la: ',d);
    readln;
    end.

  4. Có 2 thành viên cảm ơn Doikhacthanh cho bài viết này:
    donbug (06-11-2008), SátThủSiTình (06-11-2008)

  5. #3
    SátThủSiTình's Avatar
    SátThủSiTình vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Mar 2008
    Bài
    210
    Cảm ơn
    177
    Điểm
    49/38 bài viết
    VR power
    0

    Default

    bạn ơi có 1 số cái mình hok hỉu bạn có thể giải đáp dùm mình hok

    procedure, function là jì za ???

    là newbie mọi ngươi thông củm

  6. #4
    kingofdragonn's Avatar
    kingofdragonn vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Aug 2008
    Bài
    176
    Cảm ơn
    39
    Điểm
    133/35 bài viết
    VR power
    0

    Default

    Trích SátThủSiTình View Post
    bạn ơi có 1 số cái mình hok hỉu bạn có thể giải đáp dùm mình hok

    procedure, function là jì za ???

    là newbie mọi ngươi thông củm
    function là hàm bắt buộc phải trả về một giá trị nào đó (giống như kiểu int,float,bool trong C)
    procedure cũng là hàm nhưng không bắt buộc trả về giá trị (giống như void trong C vậy )
    mình chỉ biết sơ sơ về pascal qua các lệnh lập trình của oracle nên không chắc những gì viết ở trên đúng 100%

  7. #5
    Doikhacthanh's Avatar
    Doikhacthanh vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Jul 2008
    Bài
    153
    Cảm ơn
    85
    Điểm
    100/59 bài viết
    VR power
    0

    Smile

    Sorry các bác nhé, cái procedure ở đầu là em viết sai đó, đáng ra là "program" cơ sr....

    procedure và function là hai chương trình con, trong đó function là trả lại kết vô hướng, procedure là một chương trình con trả lại kết quả thông qua tên của nó nên các procedure không thể viết trong các biểu thức.

  8. #6
    tesulakata's Avatar
    tesulakata vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Jan 2008
    Bài
    238
    Cảm ơn
    167
    Điểm
    117/60 bài viết
    VR power
    0

    Default

    bạn viết chưong trình này ko chạy được đâu!

  9. #7
    duyquynh88's Avatar
    duyquynh88 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Apr 2009
    Đến từ
    Tp Da Lat - Lam Dong
    Bài
    11
    Cảm ơn
    23
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    giai minh bai tap ve xau ky tu

  10. #8
    duyquynh88's Avatar
    duyquynh88 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Apr 2009
    Đến từ
    Tp Da Lat - Lam Dong
    Bài
    11
    Cảm ơn
    23
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    bai tap ve dem ky tu trong mot chuoi

  11. #9
    duyquynh88's Avatar
    duyquynh88 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Apr 2009
    Đến từ
    Tp Da Lat - Lam Dong
    Bài
    11
    Cảm ơn
    23
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    bai tap ve C++

  12. #10
    hau3p's Avatar
    hau3p vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Feb 2009
    Bài
    8
    Cảm ơn
    0
    Điểm: 2/1 bài viết
    VR power
    0

    Default

    Mình mún hỏi bài đếm số lượng số nguyên tố trong dãy .
    Có cách nào không cần dùng đến hàm không. Chỉ dùng các lệnh IF...THEN ; FOR...TO...DO.
    mà vẫn làm đc ko (Mình thủ nhìu cách nhưng chưa đc ).
    _________________________
    Học sinh lớp 8 chưa học hàm

  13. #11
    soixamcon's Avatar
    soixamcon vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Sep 2009
    Bài
    74
    Cảm ơn
    59
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Trích Doikhacthanh View Post
    procedure tdt;
    uses crt;
    type mang=array[1..100] of integer;
    var
    a:mang;
    n,d,i;integer;
    {----------------------------------------}
    procedure nhap(var a:mang);
    var i:integer;
    begin
    for i:=1 to n do
    begin
    write('Moi ban nhap so thu ',i,': '); readln(a[i]);
    end;
    end;
    {-----------------------------------------}
    function ngto(n:integer):boolean;
    var i,d:integer;
    begin
    d:=0;
    for i:=1 to n do
    if n mod i = 0 then
    d:=d+1;
    if d = 2 then
    ngto:=true
    else ngto:=false;
    end;
    {----------------------------------------}
    begin clrscr;
    write('Nhap so so hang: '); readln(n);
    nhap(a,n);
    d:=0;
    for i:=1 to n do
    if ngto(a[i]) = true then
    d:=d+1;
    writeln('So cac so nguyen to la: ',d);
    readln;
    end.
    Chương trình bạn viết còn nhiều chỗ sai lém , nhưng cơ bản là đúng rồi.

  14. #12
    don't let go's Avatar
    don't let go vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Sep 2009
    Bài
    204
    Cảm ơn
    42
    Điểm
    129/61 bài viết
    VR power
    0

    Default

    mình xin sửa lại một vãi chỗ để làm tốc độ của bài nhanh hơn, biến n là biến tổng thể bạn viết hàm kiểm tra nguyên tố mà bỏ biến n vào thì chắc chắn bài sẽ sai

    function ngto(so:integer):boolean;
    var i:integer;
    begin
    ngto:=true;
    for i:=2 to (so div 2) do
    if so mod i=0 then
    begin
    ngto:=false;
    break;
    end;
    end;

  15. #13
    vietvitcon's Avatar
    vietvitcon vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    Jun 2008
    Bài
    1.029
    Cảm ơn
    104
    Điểm
    435/274 bài viết
    VR power
    0

    Default

    Mình nghĩ nên làm thế này cho đơn giản:
    program snt;
    var x, d, i : integer;
    begin
    if x<=1 then writeln('Nhap sai')
    else
    begin
    d:=0;
    write (' Nhap x:');
    readln(x);
    for i:=1 to x do
    if x mod i =0 then inc(d);
    if d=2 then writeln(' So vua nhap la SNT!')
    else writeln('So vua nhap khong la SNT!');
    end;
    readln
    end.

  16. #14
    phuocru91's Avatar
    phuocru91 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Dec 2009
    Bài
    12
    Cảm ơn
    20
    Điểm: 2/1 bài viết
    VR power
    0

    Default

    help me! Giúp tui bài:bai so nguyen to trong C++.dung đừng dung phương pháp mảng nha!

  17. #15
    Forte_201092's Avatar
    Forte_201092 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Oct 2008
    Đến từ
    Huế City
    Bài
    224
    Cảm ơn
    1
    Điểm
    22/19 bài viết
    VR power
    0

    Default

    Có 1 chút bổ sung vào bài này. Khi xét số nguyên tố thì ko cần cho i chạy đến n luôn đâu, đến phần nguyên căn bậc 2 của n là dc rồi. Mà nên cho i chạy từ 2, đừng chạy từ 1

 

 
Trang 1/3 1 2 3 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
  •