Trang 1 / 5 1234 ... LastLast
Hiển thị kết quả từ 1 đến 10 / 48
  1. #1
    tranvanho Guest

    Nói nhỏ nè ! TÍnh TỔng CÁc ChỮ SỐ CỦa MỘt SỐ NguyÊn

    TÍNH TỔNG CÁC CHỮ SỐ CỦA MỘT SỐ NGUYÊN nhập vào từ bàn phím
    bác nào giải giùm em với
    đưa ra thuật giải luôn nhé
    Quote Quote

  2. #2
    Tham gia
    02-02-2005
    Bài viết
    219
    Like
    0
    Thanked 3 Times in 3 Posts
    À, định lười à. Thử be cái này lên xem thầy giáo cho mấy:

    var i:integer;
    s:string;
    begin
    write (' cho vao: '); readln(i);
    str(i:0,s);
    writeln('dai: ',length(s));
    end.

  3. #3
    Tham gia
    29-02-2004
    Bài viết
    3,942
    Like
    0
    Thanked 12 Times in 11 Posts
    Dùng phép div và mod để tính ra các số từ hàng đơn vị trở lên rùi tổng chúng nó lại.

  4. Thành viên Like bài viết này:


  5. #4
    Tham gia
    29-02-2004
    Bài viết
    3,942
    Like
    0
    Thanked 12 Times in 11 Posts
    Quote Được gửi bởi huyphuc1981_nb View Post
    À, định lười à. Thử be cái này lên xem thầy giáo cho mấy:

    var i:integer;
    s:string;
    begin
    write (' cho vao: '); readln(i);
    str(i:0,s);
    writeln('dai: ',length(s));
    end.
    0 điểm là chắc rùi. Bảo tính tổng các chữ số (123 => 1+2+3) chứ đâu phải tổng số các chữ số(123 => 3). Và i là biến kiểu integer thì viết chi i:0 nhỉ?

  6. #5
    Tham gia
    04-09-2007
    Bài viết
    17
    Like
    0
    Thanked 0 Times in 0 Posts
    uses crt;
    var s:string;
    i,tong,f,v:integer;
    begin
    clrscr;
    readln(s);
    for i:= 1 to length(s) do
    begin
    val(s[i],f,v);
    tong:=tong+f;
    end;
    write('Tong = ',tong);
    readln
    end.

  7. #6
    tranvanho Guest

    Vui lắm !

    Quote Được gửi bởi cafesua1892 View Post
    uses crt;
    var s:string;
    i,tong,f,v:integer;
    begin
    clrscr;
    readln(s);
    for i:= 1 to length(s) do
    begin
    val(s[i],f,v);
    tong:=tong+f;
    end;
    write('Tong = ',tong);
    readln
    end.
    đây là một chuỗi mà
    làm sao tính đc theo cách đó
    vô duyên
    với lại s phải thuộc mảng mới có s[i] chứ

  8. #7
    tranvanho Guest

    Buồn quá đi !

    Quote Được gửi bởi lee_huynh306 View Post
    Dùng phép div và mod để tính ra các số từ hàng đơn vị trở lên rùi tổng chúng nó lại.
    ừh ai cũng biết xài div và mod nhưng mà làm thế nào với là chuyện

  9. #8
    Tham gia
    02-02-2005
    Bài viết
    219
    Like
    0
    Thanked 3 Times in 3 Posts
    Sai à, tưởng là tính tổng các chữ số, hóa ra là tính tổng giá trị các chữ số à. Câu với cú, mải nghiên kứu IT rồi quên không học Tiếng Việt phỏng.
    tổng:=0;
    For i:=1 to length (s) do
    tổng := tổng + byte(s[i])-byte('0');

    được chửa.
    Làm kiểu đó ngắn gọn dễ hiểu hơn kiểu này:

    var so,tong: longint;
    begin
    write ('nhap: '); readln(so);
    tong:=0;
    repeat
    tong:=tong+(so mod 10);
    so:=so div 10;
    until (so = 0);
    writeln('tong: ',tong);
    end.
    Được sửa bởi huyphuc1981_nb lúc 19:23 ngày 19-09-2007

  10. #9
    Tham gia
    04-09-2007
    Bài viết
    17
    Like
    0
    Thanked 0 Times in 0 Posts
    Quote Được gửi bởi tranvanho View Post
    đây là một chuỗi mà
    làm sao tính đc theo cách đó
    vô duyên
    với lại s phải thuộc mảng mới có s[i] chứ
    ==> Có thử chưa mà biết không được, nhập vào 1 số có khác gì với nhập vào 1 chuỗi miễn sao ra kết quả đúng với thuật toán ngắn gọn, đúng là ếch ngồi đáy giếng.

  11. #10
    Tham gia
    02-02-2005
    Bài viết
    219
    Like
    0
    Thanked 3 Times in 3 Posts

    Thằng này ngu quá.

    Quote Được gửi bởi tranvanho View Post
    TÍNH TỔNG CÁC CHỮ SỐ CỦA MỘT SỐ NGUYÊN nhập vào từ bàn phím
    bác nào giải giùm em với
    đưa ra thuật giải luôn nhé
    ------

    đoạn sau
    var s:string; i, code, va: integer;
    begin
    s:=1234;
    forr i:=1 to length (s) do
    val (s[i],va,code);
    end.
    hoàn toàn đúng. Bạn đã dốt thì đừng có be be.
    + s:=s[i] đây là type casting, đồ dốt ạ
    + s[i] luôn đúng, hình như bạn quá dốt, nên bỏ ước mơ lập trình đi.

Trang 1 / 5 1234 ... 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
  •