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

    tìm ước chung lớn nhất và bội chung nhỏ nhất

    có ai biết cái này không, nếu được thì cho em xin cái sơ đồi khối hoặc bài pascal, nếu không thì hướng dẫn ý tưởng cũng được, xin cám ơn nhiều
    Quote Quote

  2. #2
    Tham gia
    05-06-2009
    Location
    Tuyên Quang
    Bài viết
    656
    Like
    0
    Thanked 4 Times in 3 Posts
    Dễ mà. UCLN của x,y:
    Code:
    While x<>y do If x>y then x:=x-y else y:=y-x;
    UCLN:=x;
    BCNN:
    Code:
    BCNN:=(x*y) div UCLN;
    Thanks phát nha

  3. #3
    Tham gia
    08-05-2008
    Bài viết
    9
    Like
    0
    Thanked 0 Times in 0 Posts
    hình như không có nút thank hay sao ấy, cho xin cái sơ đồ khối được không ?
    mấy cái lệnh này hình như chưa học !
    mà hình như cái trên thấy chưa ổn, cũng làm như vậy nhưng thầy nói là phải dùng phép chia, không phải trừ

  4. #4
    Tham gia
    17-05-2009
    Location
    HCM
    Bài viết
    77
    Like
    0
    Thanked 0 Times in 0 Posts
    Quote Được gửi bởi hoangQuangThanh View Post
    hình như không có nút thank hay sao ấy, cho xin cái sơ đồ khối được không ?
    mấy cái lệnh này hình như chưa học !
    mà hình như cái trên thấy chưa ổn, cũng làm như vậy nhưng thầy nói là phải dùng phép chia, không phải trừ
    Phép mod(lấy phần dư) mới chính xác bạn ah^^
    Code:
    procedure USCLN(a, b : positive integers)
    
    Begin
    
        x := a
        y := b
        while y ≠ 0
        begin
    
            r := x mod y
            x := y
            y := r
    
        end {x là USCLN(a, b)}
    
    End

  5. #5
    Tham gia
    08-05-2008
    Bài viết
    9
    Like
    0
    Thanked 0 Times in 0 Posts
    Quote Được gửi bởi xistem View Post
    Phép mod(lấy phần dư) mới chính xác bạn ah^^
    Code:
    procedure USCLN(a, b : positive integers)
    
    Begin
    
        x := a
        y := b
        while y ≠ 0
        begin
    
            r := x mod y
            x := y
            y := r
    
        end {x là USCLN(a, b)}
    
    End
    em đã làm theo nhưng pascal không chạy đc

  6. #6
    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
    Đối với 2 số dương thì dùng chương trình sau(số âm thì sai - thuật toán SGk tinhoc10):
    {Bcnn=x*y/ucln bạn ah}
    Code:
    <<<@!1!@>>>
    Được sửa bởi lehang_gb1 lúc 21:37 ngày 04-07-2009 Reason: Bổ sung bài viết

  7. #7
    Tham gia
    19-07-2008
    Location
    CĐV-Phú Tân-Cà Mau
    Bài viết
    124
    Like
    0
    Thanked 2 Times in 2 Posts

  8. #8
    Tham gia
    08-05-2008
    Bài viết
    9
    Like
    0
    Thanked 0 Times in 0 Posts
    chỉ dùng hàm if có thể tìm được UCLN không vậy ?

  9. #9
    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
    chỉ dùng hàm if thì khong được đâu bạn ah

  10. #10
    Tham gia
    20-03-2007
    Bài viết
    46
    Like
    0
    Thanked 0 Times in 0 Posts
    hình như gcd chỉ định nghĩa cho số dương thôi

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
  •