Tin học Bài tập lập trình Pascal lớp 11

Thảo luận trong 'Dòng họ c , c++ , c#' bắt đầu bởi awlq, 6 Tháng tư 2019.

Lượt xem: 271

  1. awlq

    awlq Học sinh Thành viên

    Bài viết:
    16
    Điểm thành tích:
    31
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    Mọi người giúp em với, hoặc là chỉ cho em cái sườn, em cần phải làm những gì chứ giờ em không biết phải làm gì hết ạ. Em xin cảm ơn.
    Bài tập: Viết chương trình ghi tất cả các số nguyên tố nằm trong từ 0 đến 2000 vào tệp NGUYENTO.DAT. Yêu cầu các số nguyên tố phải được ghi vào tệp theo thứ tự từ nhỏ đến lớn, mỗi số được ghi trên 1 dòng và cuối chương trình xuất hiện trên màn hình thông báo có bao nhiêu số nguyên tố đã được ghi vào tệp. Sau đó đọc tất cả các số nguyên tố chứa trong tệp NGUYENTO.DAT và ghi vào tệp TONG.DAT tổng các số nguyên tố chứa trong tệp NGUYENTO.DAT.
     
    Trâm Nguyễn Thị Ngọc thích bài này.
  2. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh tiến bộ Thành viên HV CLB Hóa học vui HV CLB Lịch sử

    Bài viết:
    1,329
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Có thể viết một CTC để kiểm tra số nguyên tố
    Mã:
    Function snt(a:integer):boolean;
      Var kt:=boolean;
     begin
      kt:=true;
      For i:=1 to a-1 do
       if a mod i=0 then kt:=false;
      snt:=kt;
     end;
    Còn phần tính tổng thì em nghĩ anh/chị làm đc rồi
     
    Last edited: 7 Tháng tư 2019
    awlq thích bài này.
  3. awlq

    awlq Học sinh Thành viên

    Bài viết:
    16
    Điểm thành tích:
    31

    Cái đây có ý nghĩa gì thế ạ?
     
  4. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh tiến bộ Thành viên HV CLB Hóa học vui HV CLB Lịch sử

    Bài viết:
    1,329
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Là đổi chỗ đó ạ, nếu mà a[ i ]>a[ j ] thì em sẽ đổi chỗ a[ i ] và a[ j ] với nhau thông qua biến trung gian
     
    awlq thích bài này.
  5. awlq

    awlq Học sinh Thành viên

    Bài viết:
    16
    Điểm thành tích:
    31

    À dạ vâng ạ. Cảm ơn bạn nhiều ạ.

    À bạn ơi, kiểu như mình muốn kiểm tra từ 1-50 có bao nhiêu số nguyên tố thì mình phải viết như nào ạ? Như cách bạn viết có vẻ là phải nhập từng số vô nhưng nếu với số lượng lớn quá thì mình không biết phải làm sao ạ.
     
    Last edited by a moderator: 7 Tháng tư 2019
  6. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh tiến bộ Thành viên HV CLB Hóa học vui HV CLB Lịch sử

    Bài viết:
    1,329
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Không cần nhập đâu ạ, nếu anh/chị muốn đếm xem từ 1-50 có bao nhiêu snt thì như này:
    Mã:
    d:=0;
    For i:=1 to 50 do
     if snt(i)=true then d:=d+1;
    Nhưng mà phải kết hợp với cái CTC em viết trên kia nữa ạ
    p/s:Anh/chị thông cảm, em vốn định viết Code luôn mà h hơi mệt nên chỉ nói thuật toán đc thôi
     
  7. awlq

    awlq Học sinh Thành viên

    Bài viết:
    16
    Điểm thành tích:
    31

    Dạ vâng ạ, để mình làm thử, nếu gặp gì không biết mình lại hỏi bạn được chứ ạ?
     
  8. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh tiến bộ Thành viên HV CLB Hóa học vui HV CLB Lịch sử

    Bài viết:
    1,329
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Vâng ạ,nếu câu hỏi nằm trong khả năng của em thì em sẽ cố hết sức ạ
     
    awlq thích bài này.
  9. awlq

    awlq Học sinh Thành viên

    Bài viết:
    16
    Điểm thành tích:
    31

    Mình gặp khủng hoảng rồi bạn ơi :)))) chỉnh hộ mình chỗ số nguyên tố với
    upload_2019-4-7_9-20-35.png
     
  10. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh tiến bộ Thành viên HV CLB Hóa học vui HV CLB Lịch sử

    Bài viết:
    1,329
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Hình như chị hiểu sai ý em rồi thì phải, phần CTC để kiểm tra số nguyên tố là ở trên đầu CT, sau phần khai báo thôi ạ, nếu không dùng CTC thì chị có thể viết như này
    Mã:
    For i:=2 to 50 do
     begin
      kt:=true;
      For j:=2 to i-1 do
        if i mod j=0 then kt:=false;
      if kt=true then
        begin
          dem:=dem+1;
          writeln(f,i);
        end;
    end;
           
    Không được đem CT con vào phần CT chính được đâu ạ
     
    Last edited: 7 Tháng tư 2019
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->