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

Chủ đề: gấp gấp

  1. #1
    Tham gia
    17-10-2007
    Bài viết
    145
    Like
    0
    Thanked 2 Times in 2 Posts

    Tệ thật ! gấp gấp

    các pác ah` có pai` như thế này làm seo nhỉ
    cho N số nguyên dương lập trình tính tổng các số đã nhập nhỏ hơn 20. dữ liệu nhập từ bàn phím cho ra màn hình em hok hiểu phải làm kiểu nào nữa sáng mai em phải nộp roài(T_T)
    Quote Quote

  2. #2
    Tham gia
    12-10-2007
    Bài viết
    9
    Like
    0
    Thanked 0 Times in 0 Posts

    Nói nhỏ nè !

    int n,i,tong,so;
    tong=0;
    printf("nhap n=");
    for(i=1;i<n;++i)
    {
    scanf("%d",&so);
    if(so<20) tong=tong+so;
    }
    printf("tong=%d",d);
    May quá mới hơn 11h gần tiếng nữa mới đến ngày MAI
    (ah mà còn trường hợp xét N nguyên dương thì bạn tự làm nhé)

  3. #3
    Tham gia
    17-10-2007
    Bài viết
    145
    Like
    0
    Thanked 2 Times in 2 Posts
    cảm ơn pác nha!!! Em hok bit' nói gì hơn.Ah` mà bọn em mới học mấy câu lệnh rẽ nhánh vòng lặp chưa bít gì những câu lệnh của pác nhưng dù sao cũng cảm ơn pác nha!!!!!!!!!!(^-<)

  4. #4
    Tham gia
    17-10-2007
    Bài viết
    145
    Like
    0
    Thanked 2 Times in 2 Posts
    em thử roài sao vẫn hok được ah`

  5. #5
    Tham gia
    17-10-2007
    Bài viết
    145
    Like
    0
    Thanked 2 Times in 2 Posts
    sao chẳng có pác nào trả lời vậy ? em chít mất

  6. #6
    tranvanho Guest

    thằng cha này bị ấm đầu

    Quote Được gửi bởi UltraViolet View Post
    int n,i,tong,so;
    tong=0;
    printf("nhap n=");
    for(i=1;i<n;++i)
    {
    scanf("%d",&so);
    if(so<20) tong=tong+so;
    }
    printf("tong=%d",d);
    May quá mới hơn 11h gần tiếng nữa mới đến ngày MAI
    (ah mà còn trường hợp xét N nguyên dương thì bạn tự làm nhé)
    bài này là code bằng C
    còn bài pascal thì đyâ nè
    uses crt;
    var i,N:byte;ptu:array[1..200] of integer;
    tong:integer;
    begin
    write('nhap N:');readln(n);
    for i:=1 to n do
    begin
    write('nhap so thứ ',i);readln(pt[i]);
    end;
    for i:=1 to n do
    if pt[i]<20 then tong:=tong+pt[i];
    write('tong cac so lon hon 20 la ',tong);
    readln;
    end.

  7. #7
    Tham gia
    25-09-2006
    Bài viết
    533
    Like
    0
    Thanked 1 Time in 1 Post
    tui khoái cái ICON của tranvannho quá, (theo tui là rất ấn tượng);

    var i,N:byte;pt:array[1..200] of integer;
    tong:integer;
    begin
    write('nhap N:');readln(n);tong:=0;
    for i:=1 to n do
    begin
    write('nhap so thứ ',i);readln(pt[i]);
    if pt[i]<20 then inc(tong,pt[i]);
    end;
    writeln('Kq=',tong);
    end.

  8. #8
    tranvanho Guest
    @thuonghcm cảm ơn lời khen
    à mà quên vì bạn Tri Duc mới học đến mấy cái vòng lặp và cấu trúc rẽ nhánh nên bạn chưa thể hiểu về mảng
    vậy thì tui xin phép mạo muội post lên bài này không cần mảng
    var n,tong,i,so:integer;
    begin
    write('nhap N:');readln(N);
    for i:=1 to N do
    begin
    write('nhap so thu ',i);readln(so);
    if so <20 then
    tong:=tong+1;
    end;
    write('ket qqua la:',tong);
    readln;
    end.
    vài lời vớ vẩn dám thốt ra mong các bác chỉ giáo

  9. #9
    tranvanho Guest
    à nếu bạn Tri Duc hưa hiểu về thuật toán của bài này thì vui lòng PM cho mình
    YH:dan_hack_ngheo
    tại vì em rất khoái học hack mà

  10. #10
    Tham gia
    06-11-2007
    Location
    Hà Nội
    Bài viết
    504
    Like
    5
    Thanked 6 Times in 5 Posts
    tong:=tong+so chứ; mà bác sao lại nói tui ấm đầu,chỉ nhầm là đang trong box C thôi mà,vừa ngáp nhủ vừa viết đâu để ý
    Được sửa bởi BeatOfAngle lúc 00:11 ngày 09-11-2007

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
  •