Trang 1 / 2 12 LastLast
Hiển thị kết quả từ 1 đến 10 / 15

Chủ đề: Giúp với!

  1. #1
    Tham gia
    18-11-2007
    Bài viết
    7
    Like
    0
    Thanked 0 Times in 0 Posts

    Nói nhỏ nè ! Giúp với!

    Ai giúp mình giải bài này với, mình mới học pascal:
    Bai toan: Tính trung bình cộng các số nguyên tố từ 1->N.Với N nhập từ bàn phím.
    Ai có lòng tốt mình xin cảm ơn
    Quote Quote

  2. #2
    tranvanho Guest
    ui trời
    bài này dễ òm mà
    chỉ dùng vòng for i:=1 to n do
    tong:=tong+i;
    rùi lấy tổng chia cho n là dc
    Được sửa bởi real_time lúc 16:05 ngày 06-12-2007

  3. #3
    Tham gia
    25-07-2002
    Bài viết
    1,756
    Like
    9
    Thanked 54 Times in 40 Posts
    Bài nãy cũng vác lên hỏi???
    Bạn học gì vậy???

    Warning: Lần sau nhớ post tiêu đề đầy đủ nha.
    Nợ tình chưa trả cho ai.
    Chết xuống huyền đài, tình vẫn còn nguyên

  4. #4
    Tham gia
    18-11-2007
    Bài viết
    7
    Like
    0
    Thanked 0 Times in 0 Posts
    À, bởi vì mình mới học Pascal nên chưa hiểu rõ.Mà bạn tranvanho nói gì kì vậy, cái này là số nguyên tố mà,ít ra cũng phải có cái gì kiểm tra nó có phải là số nguyên tố trước chứ.
    Làm ơn cho mình chương trình cụ thể với.

  5. #5
    Tham gia
    03-11-2007
    Bài viết
    21
    Like
    0
    Thanked 2 Times in 2 Posts
    sao mà bài nài cũng không làm được.làm theo bạn tranvannho đúng đấy.

  6. #6
    Tham gia
    18-11-2007
    Bài viết
    7
    Like
    0
    Thanked 0 Times in 0 Posts
    không hiểu
    cho mình trương trình cụ thể với
    làm ơn đi

  7. #7
    Tham gia
    18-09-2002
    Location
    Ha Noi
    Bài viết
    1,311
    Like
    0
    Thanked 13 Times in 10 Posts
    Cố gắng suy nghĩ trước khi xin chương trình cụ thể đi bạn. Bạn có thể tìm thấy đoạn chương trình liệt kê các số nguyên tố từ 1 đến n trong box này sau đó thêm một đoạn tính trung bình cộng nữa là xong.

  8. #8
    Tham gia
    18-11-2007
    Bài viết
    7
    Like
    0
    Thanked 0 Times in 0 Posts
    Liệt kê các con số thì mình làm được rùi, nhưng khi gán biến đếm thì nó không tăng lên. Mình không hiểu tại sao?

  9. #9
    Tham gia
    28-10-2007
    Bài viết
    106
    Like
    0
    Thanked 1 Time in 1 Post
    bạn post ct lên để mọi người xem rồi chỉ ra lỗi chứ. Nói vậy sao biết chỗ nào sai được

  10. #10
    Tham gia
    16-02-2007
    Location
    TP:HCM
    Bài viết
    306
    Like
    1
    Thanked 0 Times in 0 Posts
    Code:
    program TBC;
    ues crt;
    var n:integer
    {----------}
    procedure nhap;
    begin
       clrscr;
       write('N =');
       readln(n);
    end;
    {---------}
    function ktnt(n:integer):boolean;
    var i:integer;
    begin
       ktnt:=false;
       for i:=2 to trunc(sqrt(n)) do
          if n mod i=0 then exit;
       ktnt:=true;
    end;
    {---------}
    procedure xl;
    var tong,i:integer;
    begin
       tong:=0;
       for i:=2 to n do
          if ktnt(i) then tong:=tong+i;
       write(tong);
    end;
    {---------}
    begin
       nhap;
       xl;
       readln;
    end.

Trang 1 / 2 12 LastLast

Bookmarks

Quy định

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