Trang 1 / 2 12 LastLast
Hiển thị kết quả từ 1 đến 10 / 12
  1. #1
    Tham gia
    14-11-2008
    Bài viết
    70
    Like
    0
    Thanked 0 Times in 0 Posts

    Tính tổng và đếm các số nguyên tố trong mảng???

    Xem hộ mình đúng chưa nhé! ^-^
    Mới học pascal dc 2 tuần mò mãi mới viết được có thế này.
    -----------------
    program baitap;
    uses wincrt;
    var
    a: array[1..100] of integer;
    i,j,n,s,d,k:integer;
    begin
    write('nhap so cac so nguyen trong day n=');readln(n);
    for i:=1 to n do
    begin
    write('a[',i,']=');readln(a[i]);
    end;
    d:=0;s:=0;k:=0;
    for i:=1 to n do
    begin
    for j:=2 to round(sqrt(a[i])) do
    begin
    d:=0;
    if a[i] mod j = 0 then d:=d+1;
    end;
    begin
    if d=0 then
    begin
    k:=k+1;
    s:=s+a[i];
    end;
    end;
    end;
    writeln('tong cac so nguyen to trong day la ',s);
    writeln('so cac so nguyen to trong day la ',k);
    readln;
    end.
    Được sửa bởi light241089 lúc 02:06 ngày 04-01-2010 Reason: Bổ sung bài viết
    Quote Quote

  2. #2
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts
    Đoạn nhập mảng thì đúng rồi. Nhưng cái chỗ số ng tố thì sai:
    Sửa lại:
    for i:=1 to n do
    begin
    d:=0;
    for j:=2 to round(sqrt(a[i])) do
    if a[i] mod j = 0 then d:=d+1;
    if d=0 then
    begin
    k:=k+1;
    s:=s+a[i];
    end;end;
    writeln('tong cac so nguyen to trong day la ',s);
    writeln('so cac so nguyen to trong day la ',k);
    readln;
    end.

  3. #3
    Tham gia
    20-12-2009
    Bài viết
    3
    Like
    0
    Thanked 0 Times in 0 Posts
    có ai chỉ em BT pascal nay ko :
    cho N so bat ki; {n la so duoc nhap tu ban phim}
    dem cac so lon hon 10 va nho hon 20 sau do tinh tong cua chung;
    sau do dua ra man hinh :
    cac so >10 va <20 la: {gia tri} {liet ke}
    tong cua chung la: {gia tri}
    lam on ghi loi giai con khong viet cach giai gium em; {X.X}

  4. #4
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts
    Hình như bài này có post ở đâu đó rùi. Bạn học mảng chưa zậy

  5. #5
    Tham gia
    14-11-2008
    Bài viết
    70
    Like
    0
    Thanked 0 Times in 0 Posts
    Uhm,đúng rùi!Thanks nhokdragon nha!Mình tự học trong sách thôi,chứ ở trường thì chưa được học pascal.

  6. #6
    Tham gia
    20-12-2009
    Bài viết
    3
    Like
    0
    Thanked 0 Times in 0 Posts
    minh hoc trong cai phan pascal study, mang thi theo chuong trinh lop 8 thi chua hoc toi nhung minh cung da biet roi.

  7. #7
    Tham gia
    23-06-2009
    Location
    Huyện Gia Bình - Tỉnh Bắc Ninh
    Bài viết
    323
    Like
    0
    Thanked 4 Times in 4 Posts
    Quote Được gửi bởi Project_T View Post
    có ai chỉ em BT pascal nay ko :
    cho N so bat ki; {n la so duoc nhap tu ban phim}
    dem cac so lon hon 10 va nho hon 20 sau do tinh tong cua chung;
    sau do dua ra man hinh :
    cac so >10 va <20 la: {gia tri} {liet ke}
    tong cua chung la: {gia tri}
    lam on ghi loi giai con khong viet cach giai gium em; {X.X}
    Bài này đơn giản chỉ dùng vòng For - do, câu lệnh If- then, lệnh đưa dữ liệu ra màn hình. Thế thôi, bạn tự viết đi!

  8. #8
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts
    Nhập mảng, xuất mảng;
    for i:=1 to n do
    If (A[i]>10) and (A[i]<20) then
    begin
    S:=S+A[i];
    write(A[i]:6);
    end;
    writeln;
    writeln('tong: ',S);
    readln;
    end.
    (Chưa test)

  9. #9
    Tham gia
    13-01-2010
    Bài viết
    78
    Like
    0
    Thanked 0 Times in 0 Posts
    Hình như hai bạn trên kia làm sai rồi. Tính tổng mà chả thấy câu lệnh For đâu cả. Bài mình giải thế nay không biết đã đúng chưa:
    uses crt;
    var
    begin
    write('nhap so luong phan tu');readln(n);
    For i:=1 to n do
    begin
    write('nhap A[',i,']=');readln(a[i]);
    end;s:=0;dem:=0;
    For i:=1 to n do
    begin
    kt:=true;
    For j:=1 to round(sqrt(a[i]) do
    if a[i] mod j=0 then
    begin kt:=false;break;
    end;
    If kt then
    begin s:=s+a[i]; dem:=dem+1; end;
    end;
    writeln('Co tat ca ',dem,' so nguyen to trong mang');
    writeln('Tong cac so nguyen to la ',s:8);
    readln;
    end.

  10. #10
    Tham gia
    07-04-2010
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts

    Tệ thật ! transon sp tin

    xin chao cac ban minh moi dang ki lam thanh vien song minh co mot so van de can hoi moi nguoi ? ai co cac dang thuat toan hay thi sen cho minh nhe!

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
  •